pokecrystal-board/home/window.asm

RefreshScreen::
	call ClearMenuAndWindowData
	ldh a, [hROMBank]
	push af
	ld a, BANK(ReanchorBGMap_NoOAMUpdate) ; aka BANK(LoadFont_NoOAMUpdate)
	rst Bankswitch

	call ReanchorBGMap_NoOAMUpdate
	call _OpenAndCloseMenu_HDMATransferTilemapAndAttrmap
	ld a, $90
	ldh [hWY], a

	pop af
	rst Bankswitch
	ret

CloseText::
	ldh a, [hOAMUpdate]
	push af
	ld a, $1
	ldh [hOAMUpdate], a

	call ClearMenuAndWindowData
	xor a
	ldh [hBGMapMode], a
	call OverworldTextModeSwitch
	call _OpenAndCloseMenu_HDMATransferTilemapAndAttrmap
	xor a
	ldh [hBGMapMode], a
	call SafeUpdateSprites
	ld a, $90
	ldh [hWY], a
	call UpdatePlayerSprite
	xor a
	ldh [hBGMapMode], a

	pop af
	ldh [hOAMUpdate], a
	ld hl, wVramState
	res 6, [hl]
	ret

OpenText2bpp::
	call ClearMenuAndWindowData
	ldh a, [hROMBank]
	push af
	ld a, BANK(ReanchorBGMap_NoOAMUpdate)
	rst Bankswitch

; assumes that the overworld 2bpp font and frame are loaded when calling this
	call ReanchorBGMap_NoOAMUpdate ; clear bgmap
	call SpeechTextbox2bpp
	call _OpenAndCloseMenu_HDMATransferTilemapAndAttrmap ; anchor bgmap
	ld a, $90
	ldh [hWY], a

	pop af
	rst Bankswitch

	ret

OpenText1bpp::
	call ClearMenuAndWindowData
	ldh a, [hROMBank]
	push af
	ld a, BANK(ReanchorBGMap_NoOAMUpdate) ; aka BANK(LoadFont_NoOAMUpdate)
	rst Bankswitch

	call ReanchorBGMap_NoOAMUpdate ; clear bgmap
	call SpeechTextbox1bpp
	call _OpenAndCloseMenu_HDMATransferTilemapAndAttrmap ; anchor bgmap
	call LoadFont_NoOAMUpdate ; load 1bpp font and frame, hide window

	pop af
	rst Bankswitch

	ret

_OpenAndCloseMenu_HDMATransferTilemapAndAttrmap::
	ldh a, [hOAMUpdate]
	push af
	ld a, $1
	ldh [hOAMUpdate], a

	farcall OpenAndCloseMenu_HDMATransferTilemapAndAttrmap

	pop af
	ldh [hOAMUpdate], a
	ret

SafeUpdateSprites::
	ldh a, [hOAMUpdate]
	push af
	ldh a, [hBGMapMode]
	push af
	xor a
	ldh [hBGMapMode], a
	ld a, $1
	ldh [hOAMUpdate], a

	call UpdateSprites

	xor a
	ldh [hOAMUpdate], a
	call DelayFrame
	pop af
	ldh [hBGMapMode], a
	pop af
	ldh [hOAMUpdate], a
	ret

OVERWORLD_HUD_HEIGHT EQU 8

EnableOverworldWindowHUD::
	ld a, OVERWORLD_HUD_HEIGHT - 1
	; fallthrough

EnableWindowHUD:
	ldh [hWindowHUD], a
	; configure LCD interrupt
	ldh [rLYC], a
	ld a, 1 << rSTAT_INT_LYC ; LYC=LC
	ldh [rSTAT], a
	; make window hidden this frame to prevent graphical glitches
	ld a, $90
	ldh [hWY], a
	ret

DisableWindowHUD::
	xor a
	ldh [hWindowHUD], a
	; configure LCD interrupt
	xor a
	ldh [rLYC], a
	ld a, 1 << rSTAT_INT_HBLANK ; hblank (default)
	ldh [rSTAT], a
	; leave window in default state (enabled and hidden)
	ld a, $90
	ldh [hWY], a
	ldh a, [rLCDC]
	set rLCDC_WINDOW_ENABLE, a
	ldh [rLCDC], a
	ret
Remove all address comments 2018-06-24 07:09:41 -07:00			`RefreshScreen::`
Use overworld textbox in text printing functions, differentiating between 1bpp and 2bpp text (#10) 2023-08-11 03:28:14 -07:00			`call ClearMenuAndWindowData`
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, [hROMBank]`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`push af`
Use overworld textbox in text printing functions, differentiating between 1bpp and 2bpp text (#10) 2023-08-11 03:28:14 -07:00			`ld a, BANK(ReanchorBGMap_NoOAMUpdate) ; aka BANK(LoadFont_NoOAMUpdate)`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`rst Bankswitch`

HDMA transfer functions 2016-05-04 19:34:09 -07:00			`call ReanchorBGMap_NoOAMUpdate`
Standardize on lowercase Tilemap and Attrmap We used to have a mixture of TileMap and and Tilemap, as well as the similar AttrMap. Standardize on one. 2020-02-13 09:30:13 -08:00			`call _OpenAndCloseMenu_HDMATransferTilemapAndAttrmap`
Use overworld textbox in text printing functions, differentiating between 1bpp and 2bpp text (#10) 2023-08-11 03:28:14 -07:00			`ld a, $90`
			`ldh [hWY], a`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00
			`pop af`
			`rst Bankswitch`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`CloseText::`
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, [hOAMUpdate]`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`push af`
			`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 [hOAMUpdate], a`
About time I got to these functions 2015-10-24 07:34:19 -07:00
Use overworld textbox in text printing functions, differentiating between 1bpp and 2bpp text (#10) 2023-08-11 03:28:14 -07:00			`call ClearMenuAndWindowData`
move window asm into home/window.asm 2013-09-18 18:40:48 -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 [hBGMapMode], a`
engine/mart.asm 2015-11-11 11:12:46 -08:00			`call OverworldTextModeSwitch`
Standardize on lowercase Tilemap and Attrmap We used to have a mixture of TileMap and and Tilemap, as well as the similar AttrMap. Standardize on one. 2020-02-13 09:30:13 -08:00			`call _OpenAndCloseMenu_HDMATransferTilemapAndAttrmap`
move window asm into home/window.asm 2013-09-18 18:40:48 -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 [hBGMapMode], a`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 09:31:49 -07:00			`call SafeUpdateSprites`
move window asm into home/window.asm 2013-09-18 18:40:48 -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`
ReplaceKrisSprite -> UpdatePlayerSprite 2020-06-16 16:38:00 -07:00			`call UpdatePlayerSprite`
Remove map name sign feature (#1) 2023-07-31 10:30:40 -07:00			`xor a`
			`ldh [hBGMapMode], a`
Use overworld textbox in text printing functions, differentiating between 1bpp and 2bpp text (#10) 2023-08-11 03:28:14 -07:00
			`pop af`
			`ldh [hOAMUpdate], a`
			`ld hl, wVramState`
			`res 6, [hl]`
			`ret`

			`OpenText2bpp::`
			`call ClearMenuAndWindowData`
			`ldh a, [hROMBank]`
			`push af`
			`ld a, BANK(ReanchorBGMap_NoOAMUpdate)`
			`rst Bankswitch`

			`; assumes that the overworld 2bpp font and frame are loaded when calling this`
			`call ReanchorBGMap_NoOAMUpdate ; clear bgmap`
			`call SpeechTextbox2bpp`
			`call _OpenAndCloseMenu_HDMATransferTilemapAndAttrmap ; anchor bgmap`
			`ld a, $90`
			`ldh [hWY], a`

			`pop af`
			`rst Bankswitch`

move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`ret`

Use overworld textbox in text printing functions, differentiating between 1bpp and 2bpp text (#10) 2023-08-11 03:28:14 -07:00			`OpenText1bpp::`
			`call ClearMenuAndWindowData`
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, [hROMBank]`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`push af`
Use overworld textbox in text printing functions, differentiating between 1bpp and 2bpp text (#10) 2023-08-11 03:28:14 -07:00			`ld a, BANK(ReanchorBGMap_NoOAMUpdate) ; aka BANK(LoadFont_NoOAMUpdate)`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`rst Bankswitch`

HDMA transfer functions 2016-05-04 19:34:09 -07:00			`call ReanchorBGMap_NoOAMUpdate ; clear bgmap`
Use overworld textbox in text printing functions, differentiating between 1bpp and 2bpp text (#10) 2023-08-11 03:28:14 -07:00			`call SpeechTextbox1bpp`
Standardize on lowercase Tilemap and Attrmap We used to have a mixture of TileMap and and Tilemap, as well as the similar AttrMap. Standardize on one. 2020-02-13 09:30:13 -08:00			`call _OpenAndCloseMenu_HDMATransferTilemapAndAttrmap ; anchor bgmap`
Use overworld textbox in text printing functions, differentiating between 1bpp and 2bpp text (#10) 2023-08-11 03:28:14 -07:00			`call LoadFont_NoOAMUpdate ; load 1bpp font and frame, hide window`
Load overworld font and frame via HDMA instead of copying to VRAM (#10) 2023-08-12 12:14:46 -07:00
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`pop af`
			`rst Bankswitch`

			`ret`

Standardize on lowercase Tilemap and Attrmap We used to have a mixture of TileMap and and Tilemap, as well as the similar AttrMap. Standardize on one. 2020-02-13 09:30:13 -08:00			`_OpenAndCloseMenu_HDMATransferTilemapAndAttrmap::`
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, [hOAMUpdate]`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`push af`
			`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 [hOAMUpdate], a`
Add commented numbers to map/group constants 2015-10-17 17:49:34 -07:00
Standardize on lowercase Tilemap and Attrmap We used to have a mixture of TileMap and and Tilemap, as well as the similar AttrMap. Standardize on one. 2020-02-13 09:30:13 -08:00			`farcall OpenAndCloseMenu_HDMATransferTilemapAndAttrmap`
Add commented numbers to map/group constants 2015-10-17 17:49:34 -07:00
move window asm into home/window.asm 2013-09-18 18:40:48 -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 [hOAMUpdate], a`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`SafeUpdateSprites::`
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, [hOAMUpdate]`
move window asm into home/window.asm 2013-09-18 18:40:48 -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, [hBGMapMode]`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`push af`
			`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 [hBGMapMode], a`
move window asm into home/window.asm 2013-09-18 18:40:48 -07: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 [hOAMUpdate], a`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 09:31:49 -07:00
Various annotations Annotated the SGB functions in predef/sgb.asm, and some of the map scripts. Renamed several functions in home. Renamed six WRAM addresses corresponding to party icon animations, and renamed several others relative to these. 2015-07-22 12:57:02 -07:00			`call UpdateSprites`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 09:31:49 -07:00
move window asm into home/window.asm 2013-09-18 18:40:48 -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 [hOAMUpdate], a`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`call DelayFrame`
			`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 [hBGMapMode], a`
move window asm into home/window.asm 2013-09-18 18:40:48 -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 [hOAMUpdate], a`
move window asm into home/window.asm 2013-09-18 18:40:48 -07:00			`ret`
Implement the basics of the window HUD functionality (#15) 2023-08-27 10:18:52 -07:00
			`OVERWORLD_HUD_HEIGHT EQU 8`

			`EnableOverworldWindowHUD::`
			`ld a, OVERWORLD_HUD_HEIGHT - 1`
			`; fallthrough`

			`EnableWindowHUD:`
			`ldh [hWindowHUD], a`
			`; configure LCD interrupt`
			`ldh [rLYC], a`
			`ld a, 1 << rSTAT_INT_LYC ; LYC=LC`
			`ldh [rSTAT], a`
			`; make window hidden this frame to prevent graphical glitches`
			`ld a, $90`
			`ldh [hWY], a`
			`ret`

			`DisableWindowHUD::`
			`xor a`
			`ldh [hWindowHUD], a`
			`; configure LCD interrupt`
			`xor a`
			`ldh [rLYC], a`
			`ld a, 1 << rSTAT_INT_HBLANK ; hblank (default)`
			`ldh [rSTAT], a`
			`; leave window in default state (enabled and hidden)`
			`ld a, $90`
			`ldh [hWY], a`
			`ldh a, [rLCDC]`
			`set rLCDC_WINDOW_ENABLE, a`
			`ldh [rLCDC], a`
			`ret`