pokecrystal-board/engine/gfx/load_font.asm

INCLUDE "gfx/font.asm"

_LoadStandardFont::
	ld de, Font
	ld hl, vTiles1
	lb bc, BANK(Font), 112 ; "A" to "9"
	ldh a, [rLCDC]
	bit rLCDC_ENABLE, a
	jp z, Copy1bpp

	ld de, Font
	ld hl, vTiles1
	lb bc, BANK(Font), 32 ; "A" to...
	call Get1bppViaHDMA
	ld de, Font + 32 * LEN_1BPP_TILE
	ld hl, vTiles1 tile $20
	lb bc, BANK(Font), 32
	call Get1bppViaHDMA
	ld de, Font + 64 * LEN_1BPP_TILE
	ld hl, vTiles1 tile $40
	lb bc, BANK(Font), 32
	call Get1bppViaHDMA
	ld de, Font + 96 * LEN_1BPP_TILE
	ld hl, vTiles1 tile $60
	lb bc, BANK(Font), 16 ; ..."9"
	call Get1bppViaHDMA
	ret

_LoadFontsBattleExtra::
	ld de, FontBattleExtra
	ld hl, vTiles2 tile $60
	lb bc, BANK(FontBattleExtra), 25
	call Get2bppViaHDMA
	jr _LoadFrame

_LoadFrame::
	ld a, [wTextboxFrame]
	maskbits NUM_FRAMES
	ld bc, TEXTBOX_FRAME_TILES * LEN_1BPP_TILE
	ld hl, Frames
	call AddNTimes
	ld d, h
	ld e, l
	ld hl, vTiles0 tile "┌" ; $f0
	lb bc, BANK(Frames), TEXTBOX_FRAME_TILES ; "┌" to "┘"
	call Get1bppViaHDMA
	ld hl, vTiles2 tile " " ; $7f
	ld de, TextboxSpaceGFX
	lb bc, BANK(TextboxSpaceGFX), 1
	call Get1bppViaHDMA
	ret

LoadBattleFontsHPBar:
	ld de, FontBattleExtra
	ld hl, vTiles2 tile $60
	lb bc, BANK(FontBattleExtra), 12
	call Get2bppViaHDMA
	ld hl, vTiles2 tile $70
	ld de, FontBattleExtra + 16 tiles ; "<DO>"
	lb bc, BANK(FontBattleExtra), 3 ; "<DO>" to "『"
	call Get2bppViaHDMA
	call _LoadFrame

LoadHPBar:
	ld de, EnemyHPBarBorderGFX
	ld hl, vTiles2 tile $6c
	lb bc, BANK(EnemyHPBarBorderGFX), 4
	call Get1bppViaHDMA
	ld de, HPExpBarBorderGFX
	ld hl, vTiles2 tile $73
	lb bc, BANK(HPExpBarBorderGFX), 6
	call Get1bppViaHDMA
	ld de, ExpBarGFX
	ld hl, vTiles2 tile $55
	lb bc, BANK(ExpBarGFX), 9
	call Get2bppViaHDMA
	ret

StatsScreen_LoadFont:
	call _LoadFontsBattleExtra
	ld de, EnemyHPBarBorderGFX
	ld hl, vTiles2 tile $6c
	lb bc, BANK(EnemyHPBarBorderGFX), 4
	call Get1bppViaHDMA
	ld de, HPExpBarBorderGFX
	ld hl, vTiles2 tile $78
	lb bc, BANK(HPExpBarBorderGFX), 1
	call Get1bppViaHDMA
	ld de, HPExpBarBorderGFX + 3 * LEN_1BPP_TILE
	ld hl, vTiles2 tile $76
	lb bc, BANK(HPExpBarBorderGFX), 2
	call Get1bppViaHDMA
	ld de, ExpBarGFX
	ld hl, vTiles2 tile $55
	lb bc, BANK(ExpBarGFX), 8
	call Get2bppViaHDMA
LoadStatsScreenPageTilesGFX:
	ld de, StatsScreenPageTilesGFX
	ld hl, vTiles2 tile $31
	lb bc, BANK(StatsScreenPageTilesGFX), 17
	call Get2bppViaHDMA
	ret

LoadInversedFont::
	ld de, FontInversed
	ld hl, vTiles1
	lb bc, BANK(FontInversed), 112 ; "A" to "9"
	ldh a, [rLCDC]
	bit rLCDC_ENABLE, a
	jp z, Copy1bpp

	ld de, FontInversed
	ld hl, vTiles1
	lb bc, BANK(FontInversed), 32 ; "A" to...
	call Get1bppViaHDMA
	ld de, FontInversed + 32 * LEN_1BPP_TILE
	ld hl, vTiles1 tile $20
	lb bc, BANK(FontInversed), 32
	call Get1bppViaHDMA
	ld de, FontInversed + 64 * LEN_1BPP_TILE
	ld hl, vTiles1 tile $40
	lb bc, BANK(FontInversed), 32
	call Get1bppViaHDMA
	ld de, FontInversed + 96 * LEN_1BPP_TILE
	ld hl, vTiles1 tile $60
	lb bc, BANK(FontInversed), 16 ; ..."9"
	call Get1bppViaHDMA
	ret
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`INCLUDE "gfx/font.asm"`

Remove all address comments 2018-06-24 07:09:41 -07:00			`_LoadStandardFont::`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld de, Font`
			`ld hl, vTiles1`
Expand tilesets from 192 to 255 tiles (#2) [Commit 2], Reorganization of pokecrystal charmap and fonts layout (#3) 2023-08-02 10:52:51 -07:00			`lb bc, BANK(Font), 112 ; "A" to "9"`
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, [rLCDC]`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`bit rLCDC_ENABLE, a`
			`jp z, Copy1bpp`

			`ld de, Font`
			`ld hl, vTiles1`
Expand tilesets from 192 to 255 tiles (#2) [Commit 2], Reorganization of pokecrystal charmap and fonts layout (#3) 2023-08-02 10:52:51 -07:00			`lb bc, BANK(Font), 32 ; "A" to...`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get1bppViaHDMA`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld de, Font + 32 * LEN_1BPP_TILE`
			`ld hl, vTiles1 tile $20`
Expand tilesets from 192 to 255 tiles (#2) [Commit 2], Reorganization of pokecrystal charmap and fonts layout (#3) 2023-08-02 10:52:51 -07:00			`lb bc, BANK(Font), 32`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get1bppViaHDMA`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld de, Font + 64 * LEN_1BPP_TILE`
			`ld hl, vTiles1 tile $40`
Expand tilesets from 192 to 255 tiles (#2) [Commit 2], Reorganization of pokecrystal charmap and fonts layout (#3) 2023-08-02 10:52:51 -07:00			`lb bc, BANK(Font), 32`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get1bppViaHDMA`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld de, Font + 96 * LEN_1BPP_TILE`
			`ld hl, vTiles1 tile $60`
Expand tilesets from 192 to 255 tiles (#2) [Commit 2], Reorganization of pokecrystal charmap and fonts layout (#3) 2023-08-02 10:52:51 -07:00			`lb bc, BANK(Font), 16 ; ..."9"`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get1bppViaHDMA`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`_LoadFontsBattleExtra::`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld de, FontBattleExtra`
			`ld hl, vTiles2 tile $60`
			`lb bc, BANK(FontBattleExtra), 25`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get2bppViaHDMA`
Expand tilesets from 192 to 255 tiles (#2) [Commit 2], Reorganization of pokecrystal charmap and fonts layout (#3) 2023-08-02 10:52:51 -07:00			`jr _LoadFrame`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00
Expand tilesets from 192 to 255 tiles (#2) [Commit 2], Reorganization of pokecrystal charmap and fonts layout (#3) 2023-08-02 10:52:51 -07:00			`_LoadFrame::`
TextBox -> Textbox Homogenizing names. 2019-04-08 05:15:10 -07:00			`ld a, [wTextboxFrame]`
Avoid "+- 1" at every maskbits 2018-01-16 14:27:50 -08:00			`maskbits NUM_FRAMES`
Revise some constant definitions 2021-03-16 14:53:42 -07:00			`ld bc, TEXTBOX_FRAME_TILES * LEN_1BPP_TILE`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld hl, Frames`
			`call AddNTimes`
			`ld d, h`
			`ld e, l`
Expand tilesets from 192 to 255 tiles (#2) [Commit 2], Reorganization of pokecrystal charmap and fonts layout (#3) 2023-08-02 10:52:51 -07:00			`ld hl, vTiles0 tile "┌" ; $f0`
Revise some constant definitions 2021-03-16 14:53:42 -07:00			`lb bc, BANK(Frames), TEXTBOX_FRAME_TILES ; "┌" to "┘"`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get1bppViaHDMA`
Remove unused map environment with index 0 (#7), Implement function to draw the overworld textbox (#10) 2023-08-07 04:23:57 -07:00			`ld hl, vTiles2 tile " " ; $7f`
TextBox -> Textbox Homogenizing names. 2019-04-08 05:15:10 -07:00			`ld de, TextboxSpaceGFX`
			`lb bc, BANK(TextboxSpaceGFX), 1`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get1bppViaHDMA`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`LoadBattleFontsHPBar:`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld de, FontBattleExtra`
			`ld hl, vTiles2 tile $60`
			`lb bc, BANK(FontBattleExtra), 12`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get2bppViaHDMA`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld hl, vTiles2 tile $70`
More Japanese characters 2018-01-19 17:48:33 -08:00			`ld de, FontBattleExtra + 16 tiles ; "<DO>"`
			`lb bc, BANK(FontBattleExtra), 3 ; "<DO>" to "『"`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get2bppViaHDMA`
Expand tilesets from 192 to 255 tiles (#2) [Commit 2], Reorganization of pokecrystal charmap and fonts layout (#3) 2023-08-02 10:52:51 -07:00			`call _LoadFrame`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`LoadHPBar:`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld de, EnemyHPBarBorderGFX`
			`ld hl, vTiles2 tile $6c`
			`lb bc, BANK(EnemyHPBarBorderGFX), 4`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get1bppViaHDMA`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld de, HPExpBarBorderGFX`
			`ld hl, vTiles2 tile $73`
			`lb bc, BANK(HPExpBarBorderGFX), 6`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get1bppViaHDMA`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld de, ExpBarGFX`
			`ld hl, vTiles2 tile $55`
			`lb bc, BANK(ExpBarGFX), 9`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get2bppViaHDMA`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`StatsScreen_LoadFont:`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`call _LoadFontsBattleExtra`
			`ld de, EnemyHPBarBorderGFX`
			`ld hl, vTiles2 tile $6c`
			`lb bc, BANK(EnemyHPBarBorderGFX), 4`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get1bppViaHDMA`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld de, HPExpBarBorderGFX`
			`ld hl, vTiles2 tile $78`
			`lb bc, BANK(HPExpBarBorderGFX), 1`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get1bppViaHDMA`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld de, HPExpBarBorderGFX + 3 * LEN_1BPP_TILE`
			`ld hl, vTiles2 tile $76`
			`lb bc, BANK(HPExpBarBorderGFX), 2`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get1bppViaHDMA`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld de, ExpBarGFX`
			`ld hl, vTiles2 tile $55`
			`lb bc, BANK(ExpBarGFX), 8`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get2bppViaHDMA`
Remove all address comments 2018-06-24 07:09:41 -07:00			`LoadStatsScreenPageTilesGFX:`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ld de, StatsScreenPageTilesGFX`
			`ld hl, vTiles2 tile $31`
			`lb bc, BANK(StatsScreenPageTilesGFX), 17`
Update some routine labels, including unreferenced ones 2020-05-18 08:59:48 -07:00			`call Get2bppViaHDMA`
Move code out of gfx/ (close #474) 2018-01-15 08:06:17 -08:00			`ret`
Level selection menu: print landmark level and name (#12) 2024-01-21 08:01:44 -08:00
			`LoadInversedFont::`
			`ld de, FontInversed`
			`ld hl, vTiles1`
			`lb bc, BANK(FontInversed), 112 ; "A" to "9"`
			`ldh a, [rLCDC]`
			`bit rLCDC_ENABLE, a`
			`jp z, Copy1bpp`

			`ld de, FontInversed`
			`ld hl, vTiles1`
			`lb bc, BANK(FontInversed), 32 ; "A" to...`
			`call Get1bppViaHDMA`
			`ld de, FontInversed + 32 * LEN_1BPP_TILE`
			`ld hl, vTiles1 tile $20`
			`lb bc, BANK(FontInversed), 32`
			`call Get1bppViaHDMA`
			`ld de, FontInversed + 64 * LEN_1BPP_TILE`
			`ld hl, vTiles1 tile $40`
			`lb bc, BANK(FontInversed), 32`
			`call Get1bppViaHDMA`
			`ld de, FontInversed + 96 * LEN_1BPP_TILE`
			`ld hl, vTiles1 tile $60`
			`lb bc, BANK(FontInversed), 16 ; ..."9"`
			`call Get1bppViaHDMA`
			`ret`