mirror of
https://github.com/pret/pokegold.git
synced 2026-10-01 14:26:38 -04:00
libjet
167 lines
2.0 KiB
NASM
167 lines
2.0 KiB
NASM
Reset:: ; 5b0 (0:05b0)
|
|
call MapSetup_Sound_Off
|
|
xor a
|
|
ldh [hMapAnims], a
|
|
call ClearPalettes
|
|
ei
|
|
ld hl, wd8ba
|
|
set 7, [hl]
|
|
ld c, 32
|
|
call DelayFrames
|
|
jr Init
|
|
_Start:: ; 5c6 (0:05c6)
|
|
cp $11
|
|
jr z, .cgb
|
|
xor a
|
|
jr .load
|
|
.cgb
|
|
ld a, $1
|
|
.load
|
|
ldh [hCGB], a
|
|
Init:: ; 5d1 (0:05d1)
|
|
di
|
|
xor a
|
|
ldh [rIF], a
|
|
ldh [rIE], a
|
|
ldh [rRP], a
|
|
ldh [rSCX], a
|
|
ldh [rSCY], a
|
|
ldh [rSB], a
|
|
ldh [rSC], a
|
|
ldh [rWX], a
|
|
ldh [rWY], a
|
|
ldh [rBGP], a
|
|
ldh [rOBP0], a
|
|
ldh [rOBP1], a
|
|
ldh [rTMA], a
|
|
ldh [rTAC], a
|
|
ld [wceeb], a
|
|
ld a, $4
|
|
ldh [rTAC], a
|
|
.wait
|
|
ldh a, [rLY]
|
|
cp 145
|
|
jr nz, .wait
|
|
|
|
xor a
|
|
ldh [rLCDC], a
|
|
|
|
; Clear WRAM
|
|
ld hl, wMusicPlaying
|
|
ld bc, $2000
|
|
.ByteFill
|
|
ld [hl], $0
|
|
inc hl
|
|
dec bc
|
|
ld a, b
|
|
or c
|
|
jr nz, .ByteFill
|
|
|
|
ld sp, wStackTop
|
|
|
|
call ClearVRAM
|
|
ldh a, [hCGB]
|
|
push af
|
|
xor a
|
|
ld hl, HRAM_Begin
|
|
ld bc, HRAM_End - HRAM_Begin
|
|
call ByteFill
|
|
pop af
|
|
ldh [hCGB], a
|
|
|
|
call ClearSprites
|
|
|
|
ld a, BANK(LoadPushOAM)
|
|
rst Bankswitch
|
|
|
|
call LoadPushOAM
|
|
|
|
xor a
|
|
ldh [hMapAnims], a
|
|
ldh [hSCX], a
|
|
ldh [hSCY], a
|
|
ldh [rJOYP], a
|
|
|
|
ld a, $8 ; HBlank int enable
|
|
ldh [rSTAT], a
|
|
|
|
ld a, $90
|
|
ldh [hWY], a
|
|
ldh [rWY], a
|
|
|
|
ld a, $7
|
|
ldh [hWX], a
|
|
ldh [rWX], a
|
|
|
|
ld a, -1
|
|
ldh [hLinkPlayerNumber], a
|
|
|
|
ld h, $98
|
|
call BlankBGMap
|
|
ld h, $9c
|
|
call BlankBGMap
|
|
|
|
callfar InitCGBPals
|
|
|
|
ld a, $9c
|
|
ldh [hBGMapAddress + 1], a
|
|
xor a
|
|
ldh [hBGMapAddress], a
|
|
|
|
farcall StartClock
|
|
|
|
ld a, SRAM_ENABLE
|
|
ld [MBC3SRamEnable], a
|
|
ld a, SRAM_DISABLE
|
|
ld [MBC3LatchClock], a
|
|
ld [MBC3SRamEnable], a
|
|
|
|
ld a, %11100011
|
|
; LCD on
|
|
; Win tilemap 1
|
|
; Win on
|
|
; BG/Win tiledata 0
|
|
; BG Tilemap 0
|
|
; OBJ 8x8
|
|
; OBJ on
|
|
; BG on
|
|
ldh [rLCDC], a
|
|
|
|
ld a, $1f
|
|
ldh [rIE], a
|
|
ei
|
|
|
|
call DelayFrame
|
|
|
|
ld a, $30
|
|
call Predef
|
|
|
|
call MapSetup_Sound_Off
|
|
xor a
|
|
ld [wMapMusic], a
|
|
jp GameInit
|
|
|
|
ClearVRAM:: ; 68e (0:068e)
|
|
ld hl, $8000
|
|
ld bc, $2000
|
|
xor a
|
|
call ByteFill
|
|
ret
|
|
|
|
BlankBGMap:: ; 699 (0:0699)
|
|
ld a, $7f
|
|
jr asm_69e
|
|
|
|
FillBGMap:: ; 69d
|
|
ld a, l
|
|
asm_69e
|
|
ld de, $400
|
|
ld l, e
|
|
.loop
|
|
ld [hli], a
|
|
dec e
|
|
jr nz, .loop
|
|
dec d
|
|
jr nz, .loop
|
|
ret
|