pokecrystal-board/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, wJoypadDisable
	set JOYPAD_DISABLE_SGB_TRANSFER_F, [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 [wBetaTitleSequenceOpeningType], 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

	xor a ; SRAM_DISABLE
	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

	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 c, .bank_loop
	ret

ClearsScratch::
; Wipe the first 32 bytes of sScratch

	ld a, BANK(sScratch)
	call OpenSRAM
	ld hl, sScratch
	ld bc, $20
	xor a
	call ByteFill
	call CloseSRAM
	ret
Remove all address comments 2018-06-24 07:09:41 -07:00			`Reset::`
split out program init 2013-08-20 00:26:37 -07: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 09:16:50 -08:00			`call InitSound`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [hMapAnims], a`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [rIF], a`
Fix usage of rIE and rSC constants 2019-05-05 09:14:46 -07: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 11:28:22 -07:00			`ldh [rIE], a`
split out program init 2013-08-20 00:26:37 -07:00			`ei`

Identify more WRAM labels, and start a <X>_DummyFunction label convention 2020-10-28 10:35:39 -07:00			`ld hl, wJoypadDisable`
			`set JOYPAD_DISABLE_SGB_TRANSFER_F, [hl]`
split out program init 2013-08-20 00:26:37 -07:00
			`ld c, 32`
			`call DelayFrames`

			`jr Init`

Remove all address comments 2018-06-24 07:09:41 -07:00			`_Start::`
split out program init 2013-08-20 00:26:37 -07:00			`cp $11`
Move effects; no more reloadmapmusic, returnafterbattle 2015-12-26 15:11:55 -08:00			`jr z, .cgb`
Harmonize home/ with pokegold 2020-06-16 12:49:32 -07:00			`xor a ; FALSE`
Move effects; no more reloadmapmusic, returnafterbattle 2015-12-26 15:11:55 -08:00			`jr .load`
split out program init 2013-08-20 00:26:37 -07:00
Move effects; no more reloadmapmusic, returnafterbattle 2015-12-26 15:11:55 -08:00			`.cgb`
Harmonize home/ with pokegold 2020-06-16 12:49:32 -07:00			`ld a, TRUE`
split out program init 2013-08-20 00:26:37 -07:00
Move effects; no more reloadmapmusic, returnafterbattle 2015-12-26 15:11:55 -08: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 11:28:22 -07:00			`ldh [hCGB], a`
Harmonize home/ with pokegold 2020-06-16 12:49:32 -07: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 11:28:22 -07:00			`ldh [hSystemBooted], a`
split out program init 2013-08-20 00:26:37 -07:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`Init::`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07: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`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 11:45:40 -07:00			`ld [wBetaTitleSequenceOpeningType], a`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [rTAC], a`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh a, [rLY]`
LY_BLANK and rLCDC constants 2017-12-29 09:53:21 -08:00			`cp LY_VBLANK + 1`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [rLCDC], a`
split out program init 2013-08-20 00:26:37 -07:00
			`; Clear WRAM bank 0`
Keep memory map values in hardware_constants.asm 2017-12-26 20:18:05 -08: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 11:42:14 -07:00			`.ByteFill:`
split out program init 2013-08-20 00:26:37 -07:00			`ld [hl], 0`
			`inc hl`
			`dec bc`
			`ld a, b`
			`or c`
Move effects; no more reloadmapmusic, returnafterbattle 2015-12-26 15:11:55 -08:00			`jr nz, .ByteFill`
split out program init 2013-08-20 00:26:37 -07:00
Harmonize home/ with pokegold 2020-06-16 12:49:32 -07:00			`ld sp, wStackTop`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh a, [hCGB]`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh a, [hSystemBooted]`
split out program init 2013-08-20 00:26:37 -07:00			`push af`
			`xor a`
Keep memory map values in hardware_constants.asm 2017-12-26 20:18:05 -08:00			`ld hl, HRAM_Begin`
			`ld bc, HRAM_End - HRAM_Begin`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [hSystemBooted], a`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [hCGB], a`
split out program init 2013-08-20 00:26:37 -07:00
			`call ClearWRAM`
Eliminate wd000 2018-01-17 22:25:19 -08: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 11:28:22 -07:00			`ldh [rSVBK], a`
split out program init 2013-08-20 00:26:37 -07:00			`call ClearVRAM`
			`call ClearSprites`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 09:31:49 -07:00			`call ClearsScratch`
split out program init 2013-08-20 00:26:37 -07:00
Harmonize home/ with pokegold 2020-06-16 12:49:32 -07:00			`ld a, BANK(WriteOAMDMACodeToHRAM) ; aka BANK(GameInit)`
split out program init 2013-08-20 00:26:37 -07:00			`rst Bankswitch`

Fix wVirtualOAM labels, part 1. 2018-01-30 11:47:14 -08:00			`call WriteOAMDMACodeToHRAM`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [hMapAnims], a`
			`ldh [hSCX], a`
			`ldh [hSCY], a`
			`ldh [rJOYP], a`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [rSTAT], a`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [hWY], a`
			`ldh [rWY], a`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [hWX], a`
			`ldh [rWX], a`
split out program init 2013-08-20 00:26:37 -07:00
Clean up changes in 3c6c80f 2017-12-29 10:22:33 -08:00			`ld a, LCDC_DEFAULT ; %11100011`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [rLCDC], a`
split out program init 2013-08-20 00:26:37 -07:00
Use hSerialConnectionStatus constants elsewhere 2018-01-19 16:31:45 -08: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 11:28:22 -07:00			`ldh [hSerialConnectionStatus], a`
split out program init 2013-08-20 00:26:37 -07:00
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall InitCGBPals`
split out program init 2013-08-20 00:26:37 -07:00
Lowercase v for VRAM addresses 2017-12-28 04:32:33 -08: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 11:28:22 -07:00			`ldh [hBGMapAddress + 1], a`
Lowercase v for VRAM addresses 2017-12-28 04:32:33 -08: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 11:28:22 -07:00			`ldh [hBGMapAddress], a`
split out program init 2013-08-20 00:26:37 -07:00
Harmonize home/ with pokegold 2020-06-16 12:49:32 -07:00			`xor a ; SRAM_DISABLE`
split out program init 2013-08-20 00:26:37 -07:00			`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 11:28:22 -07:00			`ldh a, [hCGB]`
split out program init 2013-08-20 00:26:37 -07:00			`and a`
Mobile and more battle anims 2016-05-05 12:07:37 -07:00			`jr z, .no_double_speed`
labels for cgb double speed functions 2013-09-08 00:12:48 -07:00			`call NormalSpeed`
Mobile and more battle anims 2016-05-05 12:07:37 -07:00			`.no_double_speed`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [rIF], a`
Fix usage of rIE and rSC constants 2019-05-05 09:14:46 -07: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 11:28:22 -07:00			`ldh [rIE], a`
split out program init 2013-08-20 00:26:37 -07:00			`ei`

			`call DelayFrame`

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 09:16:50 -08:00			`call InitSound`
split out program init 2013-08-20 00:26:37 -07:00			`xor a`
Comment music functions in home.asm. 2014-05-21 13:21:46 -07:00			`ld [wMapMusic], a`
split out program init 2013-08-20 00:26:37 -07:00			`jp GameInit`

Remove all address comments 2018-06-24 07:09:41 -07:00			`ClearVRAM::`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [rVBK], a`
split out program init 2013-08-20 00:26:37 -07:00			`call .clear`

Eliminate wd000 2018-01-17 22:25:19 -08: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 11:28:22 -07:00			`ldh [rVBK], a`
split out program init 2013-08-20 00:26:37 -07:00			`.clear`
Eliminate wd000 2018-01-17 22:25:19 -08:00			`ld hl, VRAM_Begin`
			`ld bc, VRAM_End - VRAM_Begin`
split out program init 2013-08-20 00:26:37 -07:00			`xor a`
			`call ByteFill`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`ClearWRAM::`
split out program init 2013-08-20 00:26:37 -07:00			`; Wipe swappable WRAM banks (1-7)`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 09:31:49 -07:00			`; Assumes CGB or AGB`
split out program init 2013-08-20 00:26:37 -07:00
			`ld a, 1`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 09:31:49 -07:00			`.bank_loop`
split out program init 2013-08-20 00:26:37 -07: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 11:28:22 -07:00			`ldh [rSVBK], a`
split out program init 2013-08-20 00:26:37 -07:00			`xor a`
Keep memory map values in hardware_constants.asm 2017-12-26 20:18:05 -08:00			`ld hl, WRAM1_Begin`
			`ld bc, WRAM1_End - WRAM1_Begin`
split out program init 2013-08-20 00:26:37 -07:00			`call ByteFill`
			`pop af`
			`inc a`
			`cp 8`
Fix some pokecrystal bug and glitches (#8) Credits sequence changes move selection menu behavior; Swimming NPCs aren't limited by their movement radius; No bump noise if standing on tile E; The unused phonecall script command may crash; ScriptCall can overflow wScriptStack and crash; LoadSpriteGFX does not limit the capacity of UsedSprites; ReadObjectEvents overflows into wObjectMasks; ClearWRAM only clears WRAM bank 1; BattleAnimCmd_ClearObjs only clears the first 6⅔ objects; Options menu fails to clear joypad state on initialization 2023-07-27 04:01:32 -07:00			`jr c, .bank_loop`
split out program init 2013-08-20 00:26:37 -07:00			`ret`

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

			`ld a, BANK(sScratch)`
Harmonize engine/{movie, pokemon} with pokegold (renames GetSRAMBank to OpenSRAM) To do: engine/{menus, overworld} 2020-06-17 14:03:38 -07:00			`call OpenSRAM`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 09:31:49 -07:00			`ld hl, sScratch`
			`ld bc, $20`
split out program init 2013-08-20 00:26:37 -07:00			`xor a`
			`call ByteFill`
			`call CloseSRAM`
			`ret`