pokecrystal/home/init.asm

Reset::
	di
	call InitSound
	xor a
	ldh [hMapAnims], a
	call ClearPalettes
	xor a
	ldh [rIF], a
	ld a, 1 << VBLANK
	ldh [rIE], a
	ei

	ld hl, wcfbe
	set 7, [hl]

	ld c, 32
	call DelayFrames

	jr Init

_Start::
	cp $11
	jr z, .cgb
	xor a ; FALSE
	jr .load

.cgb
	ld a, TRUE

.load
	ldh [hCGB], a
	ld a, TRUE
	ldh [hSystemBooted], a

Init::
	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 [WRAM1_Begin], a

	ld a, %100 ; Start timer at 4096Hz
	ldh [rTAC], a

.wait
	ldh a, [rLY]
	cp LY_VBLANK + 1
	jr nz, .wait

	xor a
	ldh [rLCDC], a

; Clear WRAM bank 0
	ld hl, WRAM0_Begin
	ld bc, WRAM0_End - WRAM0_Begin
.ByteFill:
	ld [hl], 0
	inc hl
	dec bc
	ld a, b
	or c
	jr nz, .ByteFill

	ld sp, wStackTop

; Clear HRAM
	ldh a, [hCGB]
	push af
	ldh a, [hSystemBooted]
	push af
	xor a
	ld hl, HRAM_Begin
	ld bc, HRAM_End - HRAM_Begin
	call ByteFill
	pop af
	ldh [hSystemBooted], a
	pop af
	ldh [hCGB], a

	call ClearWRAM
	ld a, 1
	ldh [rSVBK], a
	call ClearVRAM
	call ClearSprites
	call ClearsScratch

	ld a, BANK(WriteOAMDMACodeToHRAM) ; aka BANK(GameInit)
	rst Bankswitch

	call WriteOAMDMACodeToHRAM

	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, LCDC_DEFAULT ; %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, CONNECTION_NOT_ESTABLISHED
	ldh [hSerialConnectionStatus], a

	farcall InitCGBPals

	ld a, HIGH(vBGMap1)
	ldh [hBGMapAddress + 1], a
	xor a ; LOW(vBGMap1)
	ldh [hBGMapAddress], a

	farcall StartClock

	xor a ; SRAM_DISABLE
	ld [MBC3LatchClock], a
	ld [MBC3SRamEnable], a

	ldh a, [hCGB]
	and a
	jr z, .no_double_speed
	call NormalSpeed
.no_double_speed

	xor a
	ldh [rIF], a
	ld a, IE_DEFAULT
	ldh [rIE], a
	ei

	call DelayFrame

	predef InitSGBBorder

	call InitSound
	xor a
	ld [wMapMusic], a
	jp GameInit

ClearVRAM::
; Wipe VRAM banks 0 and 1

	ld a, 1
	ldh [rVBK], a
	call .clear

	xor a ; 0
	ldh [rVBK], a
.clear
	ld hl, VRAM_Begin
	ld bc, VRAM_End - VRAM_Begin
	xor a
	call ByteFill
	ret

ClearWRAM::
; Wipe swappable WRAM banks (1-7)
; Assumes CGB or AGB

	ld a, 1
.bank_loop
	push af
	ldh [rSVBK], a
	xor a
	ld hl, WRAM1_Begin
	ld bc, WRAM1_End - WRAM1_Begin
	call ByteFill
	pop af
	inc a
	cp 8
	jr nc, .bank_loop ; Should be jr c
	ret

ClearsScratch::
; Wipe the first 32 bytes of sScratch

	ld a, BANK(sScratch)
	call GetSRAMBank
	ld hl, sScratch
	ld bc, $20
	xor a
	call ByteFill
	call CloseSRAM
	ret
Remove all address comments 2018-06-24 14:09:41 +00:00			`Reset::`
split out program init 2013-08-20 07:26:37 +00:00			`di`
Make the map setup commands match the actual function names better These functions used as map setup commands are used in other places, too, so I can't prefix them under the same. The names should match except I won't repeat "map" in a map setup command name. 2019-11-18 17:16:50 +00:00			`call InitSound`
split out program init 2013-08-20 07:26:37 +00:00			`xor a`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hMapAnims], a`
split out program init 2013-08-20 07:26:37 +00:00			`call ClearPalettes`
			`xor a`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rIF], a`
Fix usage of rIE and rSC constants 2019-05-05 16:14:46 +00:00			`ld a, 1 << VBLANK`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rIE], a`
split out program init 2013-08-20 07:26:37 +00:00			`ei`

Blind wram labels part 4. 2015-02-10 23:14:41 +00:00			`ld hl, wcfbe`
split out program init 2013-08-20 07:26:37 +00:00			`set 7, [hl]`

			`ld c, 32`
			`call DelayFrames`

			`jr Init`

Remove all address comments 2018-06-24 14:09:41 +00:00			`_Start::`
split out program init 2013-08-20 07:26:37 +00:00			`cp $11`
Move effects; no more reloadmapmusic, returnafterbattle 2015-12-26 23:11:55 +00:00			`jr z, .cgb`
Harmonize home/ with pokegold 2020-06-16 19:49:32 +00:00			`xor a ; FALSE`
Move effects; no more reloadmapmusic, returnafterbattle 2015-12-26 23:11:55 +00:00			`jr .load`
split out program init 2013-08-20 07:26:37 +00:00
Move effects; no more reloadmapmusic, returnafterbattle 2015-12-26 23:11:55 +00:00			`.cgb`
Harmonize home/ with pokegold 2020-06-16 19:49:32 +00:00			`ld a, TRUE`
split out program init 2013-08-20 07:26:37 +00:00
Move effects; no more reloadmapmusic, returnafterbattle 2015-12-26 23:11:55 +00:00			`.load`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hCGB], a`
Harmonize home/ with pokegold 2020-06-16 19:49:32 +00:00			`ld a, TRUE`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hSystemBooted], a`
split out program init 2013-08-20 07:26:37 +00:00
Remove all address comments 2018-06-24 14:09:41 +00:00			`Init::`
split out program init 2013-08-20 07:26:37 +00:00			`di`

			`xor a`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`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`
Scrub WRAM addresses from comments & use WRAM1_Begin where appropriate. 2018-01-03 05:19:54 +00:00			`ld [WRAM1_Begin], a`
split out program init 2013-08-20 07:26:37 +00:00
			`ld a, %100 ; Start timer at 4096Hz`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rTAC], a`
split out program init 2013-08-20 07:26:37 +00:00
			`.wait`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh a, [rLY]`
LY_BLANK and rLCDC constants 2017-12-29 17:53:21 +00:00			`cp LY_VBLANK + 1`
split out program init 2013-08-20 07:26:37 +00:00			`jr nz, .wait`

			`xor a`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rLCDC], a`
split out program init 2013-08-20 07:26:37 +00:00
			`; Clear WRAM bank 0`
Keep memory map values in hardware_constants.asm 2017-12-27 04:18:05 +00:00			`ld hl, WRAM0_Begin`
			`ld bc, WRAM0_End - WRAM0_Begin`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.ByteFill:`
split out program init 2013-08-20 07:26:37 +00:00			`ld [hl], 0`
			`inc hl`
			`dec bc`
			`ld a, b`
			`or c`
Move effects; no more reloadmapmusic, returnafterbattle 2015-12-26 23:11:55 +00:00			`jr nz, .ByteFill`
split out program init 2013-08-20 07:26:37 +00:00
Harmonize home/ with pokegold 2020-06-16 19:49:32 +00:00			`ld sp, wStackTop`
split out program init 2013-08-20 07:26:37 +00:00
			`; Clear HRAM`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh a, [hCGB]`
split out program init 2013-08-20 07:26:37 +00:00			`push af`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh a, [hSystemBooted]`
split out program init 2013-08-20 07:26:37 +00:00			`push af`
			`xor a`
Keep memory map values in hardware_constants.asm 2017-12-27 04:18:05 +00:00			`ld hl, HRAM_Begin`
			`ld bc, HRAM_End - HRAM_Begin`
split out program init 2013-08-20 07:26:37 +00:00			`call ByteFill`
			`pop af`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hSystemBooted], a`
split out program init 2013-08-20 07:26:37 +00:00			`pop af`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hCGB], a`
split out program init 2013-08-20 07:26:37 +00:00
			`call ClearWRAM`
Eliminate wd000 2018-01-18 06:25:19 +00:00			`ld a, 1`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rSVBK], a`
split out program init 2013-08-20 07:26:37 +00:00			`call ClearVRAM`
			`call ClearSprites`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 16:31:49 +00:00			`call ClearsScratch`
split out program init 2013-08-20 07:26:37 +00:00
Harmonize home/ with pokegold 2020-06-16 19:49:32 +00:00			`ld a, BANK(WriteOAMDMACodeToHRAM) ; aka BANK(GameInit)`
split out program init 2013-08-20 07:26:37 +00:00			`rst Bankswitch`

Fix wVirtualOAM labels, part 1. 2018-01-30 19:47:14 +00:00			`call WriteOAMDMACodeToHRAM`
split out program init 2013-08-20 07:26:37 +00:00
			`xor a`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hMapAnims], a`
			`ldh [hSCX], a`
			`ldh [hSCY], a`
			`ldh [rJOYP], a`
split out program init 2013-08-20 07:26:37 +00:00
			`ld a, $8 ; HBlank int enable`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rSTAT], a`
split out program init 2013-08-20 07:26:37 +00:00
			`ld a, $90`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hWY], a`
			`ldh [rWY], a`
split out program init 2013-08-20 07:26:37 +00:00
			`ld a, 7`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hWX], a`
			`ldh [rWX], a`
split out program init 2013-08-20 07:26:37 +00:00
Clean up changes in 3c6c80f 2017-12-29 18:22:33 +00:00			`ld a, LCDC_DEFAULT ; %11100011`
split out program init 2013-08-20 07:26:37 +00:00			`; LCD on`
			`; Win tilemap 1`
			`; Win on`
			`; BG/Win tiledata 0`
			`; BG Tilemap 0`
			`; OBJ 8x8`
			`; OBJ on`
			`; BG on`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rLCDC], a`
split out program init 2013-08-20 07:26:37 +00:00
Use hSerialConnectionStatus constants elsewhere 2018-01-20 00:31:45 +00:00			`ld a, CONNECTION_NOT_ESTABLISHED`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hSerialConnectionStatus], a`
split out program init 2013-08-20 07:26:37 +00:00
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall InitCGBPals`
split out program init 2013-08-20 07:26:37 +00:00
Lowercase v for VRAM addresses 2017-12-28 12:32:33 +00:00			`ld a, HIGH(vBGMap1)`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hBGMapAddress + 1], a`
Lowercase v for VRAM addresses 2017-12-28 12:32:33 +00:00			`xor a ; LOW(vBGMap1)`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hBGMapAddress], a`
split out program init 2013-08-20 07:26:37 +00:00
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall StartClock`
split out program init 2013-08-20 07:26:37 +00:00
Harmonize home/ with pokegold 2020-06-16 19:49:32 +00:00			`xor a ; SRAM_DISABLE`
split out program init 2013-08-20 07:26:37 +00:00			`ld [MBC3LatchClock], a`
			`ld [MBC3SRamEnable], a`

Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh a, [hCGB]`
split out program init 2013-08-20 07:26:37 +00:00			`and a`
Mobile and more battle anims 2016-05-05 19:07:37 +00:00			`jr z, .no_double_speed`
labels for cgb double speed functions 2013-09-08 07:12:48 +00:00			`call NormalSpeed`
Mobile and more battle anims 2016-05-05 19:07:37 +00:00			`.no_double_speed`
split out program init 2013-08-20 07:26:37 +00:00
			`xor a`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rIF], a`
Fix usage of rIE and rSC constants 2019-05-05 16:14:46 +00:00			`ld a, IE_DEFAULT`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rIE], a`
split out program init 2013-08-20 07:26:37 +00:00			`ei`

			`call DelayFrame`

Harmonize home/ with pokegold 2020-06-16 19:49:32 +00:00			`predef InitSGBBorder`
split out program init 2013-08-20 07:26:37 +00:00
Make the map setup commands match the actual function names better These functions used as map setup commands are used in other places, too, so I can't prefix them under the same. The names should match except I won't repeat "map" in a map setup command name. 2019-11-18 17:16:50 +00:00			`call InitSound`
split out program init 2013-08-20 07:26:37 +00:00			`xor a`
Comment music functions in home.asm. 2014-05-21 20:21:46 +00:00			`ld [wMapMusic], a`
split out program init 2013-08-20 07:26:37 +00:00			`jp GameInit`

Remove all address comments 2018-06-24 14:09:41 +00:00			`ClearVRAM::`
split out program init 2013-08-20 07:26:37 +00:00			`; Wipe VRAM banks 0 and 1`

			`ld a, 1`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rVBK], a`
split out program init 2013-08-20 07:26:37 +00:00			`call .clear`

Eliminate wd000 2018-01-18 06:25:19 +00:00			`xor a ; 0`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rVBK], a`
split out program init 2013-08-20 07:26:37 +00:00			`.clear`
Eliminate wd000 2018-01-18 06:25:19 +00:00			`ld hl, VRAM_Begin`
			`ld bc, VRAM_End - VRAM_Begin`
split out program init 2013-08-20 07:26:37 +00:00			`xor a`
			`call ByteFill`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`ClearWRAM::`
split out program init 2013-08-20 07:26:37 +00:00			`; Wipe swappable WRAM banks (1-7)`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 16:31:49 +00:00			`; Assumes CGB or AGB`
split out program init 2013-08-20 07:26:37 +00:00
			`ld a, 1`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 16:31:49 +00:00			`.bank_loop`
split out program init 2013-08-20 07:26:37 +00:00			`push af`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [rSVBK], a`
split out program init 2013-08-20 07:26:37 +00:00			`xor a`
Keep memory map values in hardware_constants.asm 2017-12-27 04:18:05 +00:00			`ld hl, WRAM1_Begin`
			`ld bc, WRAM1_End - WRAM1_Begin`
split out program init 2013-08-20 07:26:37 +00:00			`call ByteFill`
			`pop af`
			`inc a`
			`cp 8`
Comment on bug in ClearWRAM 2016-05-19 12:11:44 +00:00			`jr nc, .bank_loop ; Should be jr c`
split out program init 2013-08-20 07:26:37 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`ClearsScratch::`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 16:31:49 +00:00			`; Wipe the first 32 bytes of sScratch`

			`ld a, BANK(sScratch)`
split out program init 2013-08-20 07:26:37 +00:00			`call GetSRAMBank`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 16:31:49 +00:00			`ld hl, sScratch`
			`ld bc, $20`
split out program init 2013-08-20 07:26:37 +00:00			`xor a`
			`call ByteFill`
			`call CloseSRAM`
			`ret`