mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-09-28 21:51:01 -04:00
ISSOtm
157 lines
2.2 KiB
NASM
157 lines
2.2 KiB
NASM
INCLUDE "constants.asm"
|
|
|
|
SECTION "Entry point", ROM0[$100]
|
|
nop
|
|
jp Init
|
|
|
|
SECTION "Global check value", ROM0[$14E]
|
|
; The ROM has an incorrect global check, so set it here
|
|
; It is not corrected by RGBFIX
|
|
if def(GOLD)
|
|
if DEBUG
|
|
db $21, $C6
|
|
else
|
|
db $7e, $49
|
|
endc
|
|
else
|
|
if DEBUG
|
|
db $c9, $2f
|
|
else
|
|
db $b1, $7a
|
|
endc
|
|
endc
|
|
|
|
SECTION "Init", ROM0[$51C]
|
|
|
|
Reset: ; 51c (0:051c)
|
|
call DisableAudio
|
|
call ClearPalettes
|
|
ei
|
|
|
|
ld hl, wJoypadFlags
|
|
set 7, [hl]
|
|
|
|
ld c, 32
|
|
call DelayFrames
|
|
|
|
jr Init
|
|
|
|
Init: ; 052f
|
|
di
|
|
xor a
|
|
ld [rIF], a
|
|
ld [rIE], a
|
|
ld [rSCX], a
|
|
ld [rSCY], a
|
|
ld [rSB], a
|
|
ld [rSC], a
|
|
ld [rWX], a
|
|
ld [rWY], a
|
|
ld [rBGP], a
|
|
ld [rOBP0], a
|
|
ld [rOBP1], a
|
|
ld [rTMA], a
|
|
ld [rTAC], a
|
|
ld [wTitleSequenceOpeningType], a ; Useless, since WRAM gets cleared right after
|
|
ld a, 1 << rTAC_ON | rTAC_4096_HZ
|
|
ld [rTAC], a
|
|
ld a, 1 << rLCDC_ENABLE
|
|
ld [rLCDC], a
|
|
call DisableLCD
|
|
|
|
ld sp, wStackBottom
|
|
call ClearVRAM
|
|
ld hl, WRAM0_Begin
|
|
ld bc, WRAM1_End - WRAM0_Begin
|
|
.ByteFill ; 0565
|
|
ld [hl], 0
|
|
inc hl
|
|
dec bc
|
|
ld a, b
|
|
or c
|
|
jr nz, .ByteFill
|
|
ld hl, HRAM_Begin
|
|
ld bc, HRAM_End - HRAM_Begin
|
|
call ByteFill
|
|
call ClearSprites
|
|
|
|
ld a, BANK(WriteOAMDMACodeToHRAM)
|
|
call Bankswitch
|
|
call WriteOAMDMACodeToHRAM
|
|
|
|
xor a
|
|
ldh [hMapAnims], a
|
|
ldh [hSCX], a
|
|
ldh [hSCY], a
|
|
ldh [rJOYP], a
|
|
ld a, 1 << rSTAT_HBLANK
|
|
ld [rSTAT], a
|
|
ld a, SCREEN_HEIGHT_PX
|
|
ldh [hWY], a
|
|
ld [rWY], a
|
|
ld a, 7
|
|
ldh [hWX], a
|
|
ld [rWX], a
|
|
|
|
ld a, $ff
|
|
ldh [hLinkPlayerNumber], a
|
|
ld h, HIGH($9800)
|
|
call BlankBGMap
|
|
ld h, HIGH($9C00)
|
|
call BlankBGMap
|
|
ld a, LCDC_DEFAULT
|
|
ld [rLCDC], a
|
|
|
|
call DisableAudio
|
|
call _2007
|
|
predef CheckSGB
|
|
ld a, $1F
|
|
ld [rIE], a
|
|
ld a, HIGH($9C00)
|
|
ldh [hBGMapAddress + 1], a
|
|
xor a
|
|
ldh [hBGMapAddress], a
|
|
|
|
call DisableLCD
|
|
call ClearVRAM
|
|
ld a, LCDC_DEFAULT
|
|
ld [rLCDC], a
|
|
ei
|
|
|
|
ld a, SRAM_ENABLE
|
|
ld [MBC3SRamEnable], a
|
|
ld a, RTC_DH
|
|
ld [MBC3SRamBank], a
|
|
xor a
|
|
ld [SRAM_Begin], a
|
|
ld a, 0 ; Useless
|
|
ld [MBC3LatchClock], a
|
|
ld [MBC3SRamEnable], a
|
|
jp GameInit
|
|
|
|
ClearVRAM: ; 05e6
|
|
ld hl, VRAM_Begin
|
|
ld bc, VRAM_End - VRAM_Begin
|
|
xor a
|
|
call ByteFill
|
|
ret
|
|
|
|
BlankBGMap:
|
|
ld a, $7f
|
|
jr _FillBGMap
|
|
|
|
FillBGMap:
|
|
ld a, l
|
|
; fallthrough
|
|
|
|
_FillBGMap:
|
|
ld de, BG_MAP_WIDTH * BG_MAP_HEIGHT
|
|
ld l, e
|
|
.loop
|
|
ld [hli], a
|
|
dec e
|
|
jr nz, .loop
|
|
dec d
|
|
jr nz, .loop
|
|
ret
|