pokecrystal/engine/pokedex/pokedex_3.asm

LoadSGBPokedexGFX:
	ld hl, SGBPokedexGFX_LZ
	ld de, vTiles2 tile $31
	call Decompress
	ret

LoadSGBPokedexGFX2:
	ld hl, SGBPokedexGFX_LZ
	ld de, vTiles2 tile $31
	lb bc, BANK(SGBPokedexGFX_LZ), 58
	call DecompressRequest2bpp
	ret

SGBPokedexGFX_LZ:
INCBIN "gfx/pokedex/sgb.2bpp.lz"

LoadQuestionMarkPic:
	ld hl, .QuestionMarkLZ
	ld de, sScratch
	call Decompress
	ret

.QuestionMarkLZ:
INCBIN "gfx/pokedex/question_mark.2bpp.lz"

DrawPokedexListWindow:
	ld a, $32
	hlcoord 0, 17
	ld bc, 12
	call ByteFill
	hlcoord 0, 1
	lb bc, 15, 11
	call ClearBox
	ld a, $34
	hlcoord 0, 0
	ld bc, 11
	call ByteFill
	ld a, $39
	hlcoord 0, 16
	ld bc, 11
	call ByteFill
	hlcoord 5, 0
	ld [hl], $3f
	hlcoord 5, 16
	ld [hl], $40
	ld a, [wCurDexMode]
	cp DEXMODE_OLD
	jr z, .OldMode
; scroll bar
	hlcoord 11, 0
	ld [hl], $50
	ld a, $51
	hlcoord 11, 1
	ld b, SCREEN_HEIGHT - 3
	call Bank77_FillColumn
	ld [hl], $52
	jr .Done

.OldMode:
; no scroll bar
	hlcoord 11, 0
	ld [hl], $66
	ld a, $67
	hlcoord 11, 1
	ld b, SCREEN_HEIGHT - 3
	call Bank77_FillColumn
	ld [hl], $68
.Done:
	ret

DrawPokedexSearchResultsWindow:
	ld a, $34
	hlcoord 0, 0
	ld bc, 11
	call ByteFill
	ld a, $39
	hlcoord 0, 10
	ld bc, 11
	call ByteFill
	hlcoord 5, 0
	ld [hl], $3f
	hlcoord 5, 10
	ld [hl], $40
	hlcoord 11, 0
	ld [hl], $66
	ld a, $67
	hlcoord 11, 1
	ld b, SCREEN_HEIGHT / 2
	call Bank77_FillColumn
	ld [hl], $68
	ld a, $34
	hlcoord 0, 11
	ld bc, 11
	call ByteFill
	ld a, $39
	hlcoord 0, 17
	ld bc, 11
	call ByteFill
	hlcoord 11, 11
	ld [hl], $66
	ld a, $67
	hlcoord 11, 12
	ld b, 5
	call Bank77_FillColumn
	ld [hl], $68
	hlcoord 0, 12
	lb bc, 5, 11
	call ClearBox
	ld de, .esults_D
	hlcoord 0, 12
	call PlaceString
	ret

.esults_D
; (SEARCH R)
	db   "ESULTS"
	next ""
; (### FOUN)
	next "D!@"

DrawDexEntryScreenRightEdge:
	ldh a, [hBGMapAddress]
	ld l, a
	ldh a, [hBGMapAddress + 1]
	ld h, a
	push hl
	inc hl
	ld a, l
	ldh [hBGMapAddress], a
	ld a, h
	ldh [hBGMapAddress + 1], a
	hlcoord 19, 0
	ld [hl], $66
	hlcoord 19, 1
	ld a, $67
	ld b, 15
	call Bank77_FillColumn
	ld [hl], $68
	hlcoord 19, 17
	ld [hl], $3c
	xor a
	ld b, SCREEN_HEIGHT
	hlcoord 19, 0, wAttrmap
	call Bank77_FillColumn
	call WaitBGMap2
	pop hl
	ld a, l
	ldh [hBGMapAddress], a
	ld a, h
	ldh [hBGMapAddress + 1], a
	ret

Bank77_FillColumn:
	push de
	ld de, SCREEN_WIDTH
.loop
	ld [hl], a
	add hl, de
	dec b
	jr nz, .loop
	pop de
	ret
Remove all address comments 2018-06-24 14:09:41 +00:00			`LoadSGBPokedexGFX:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld hl, SGBPokedexGFX_LZ`
Lowercase v for VRAM addresses 2017-12-28 12:32:33 +00:00			`ld de, vTiles2 tile $31`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`call Decompress`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`LoadSGBPokedexGFX2:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld hl, SGBPokedexGFX_LZ`
Lowercase v for VRAM addresses 2017-12-28 12:32:33 +00:00			`ld de, vTiles2 tile $31`
GFX tile sizes in decimal 2018-01-15 00:43:35 +00:00			`lb bc, BANK(SGBPokedexGFX_LZ), 58`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`call DecompressRequest2bpp`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`SGBPokedexGFX_LZ:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`INCBIN "gfx/pokedex/sgb.2bpp.lz"`

Remove all address comments 2018-06-24 14:09:41 +00:00			`LoadQuestionMarkPic:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld hl, .QuestionMarkLZ`
			`ld de, sScratch`
			`call Decompress`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.QuestionMarkLZ:`
questionmark is not a pokemon pic 2018-02-07 19:43:58 +00:00			`INCBIN "gfx/pokedex/question_mark.2bpp.lz"`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00
Remove all address comments 2018-06-24 14:09:41 +00:00			`DrawPokedexListWindow:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld a, $32`
			`hlcoord 0, 17`
			`ld bc, 12`
			`call ByteFill`
			`hlcoord 0, 1`
			`lb bc, 15, 11`
			`call ClearBox`
			`ld a, $34`
			`hlcoord 0, 0`
			`ld bc, 11`
			`call ByteFill`
			`ld a, $39`
			`hlcoord 0, 16`
			`ld bc, 11`
			`call ByteFill`
			`hlcoord 5, 0`
			`ld [hl], $3f`
			`hlcoord 5, 16`
			`ld [hl], $40`
Curr -> Cur 2018-09-09 19:09:51 +00:00			`ld a, [wCurDexMode]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`cp DEXMODE_OLD`
			`jr z, .OldMode`
			`; scroll bar`
			`hlcoord 11, 0`
			`ld [hl], $50`
			`ld a, $51`
			`hlcoord 11, 1`
			`ld b, SCREEN_HEIGHT - 3`
			`call Bank77_FillColumn`
			`ld [hl], $52`
			`jr .Done`

			`.OldMode:`
			`; no scroll bar`
			`hlcoord 11, 0`
			`ld [hl], $66`
			`ld a, $67`
			`hlcoord 11, 1`
			`ld b, SCREEN_HEIGHT - 3`
			`call Bank77_FillColumn`
			`ld [hl], $68`
			`.Done:`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`DrawPokedexSearchResultsWindow:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld a, $34`
			`hlcoord 0, 0`
			`ld bc, 11`
			`call ByteFill`
			`ld a, $39`
			`hlcoord 0, 10`
			`ld bc, 11`
			`call ByteFill`
			`hlcoord 5, 0`
			`ld [hl], $3f`
			`hlcoord 5, 10`
			`ld [hl], $40`
			`hlcoord 11, 0`
			`ld [hl], $66`
			`ld a, $67`
			`hlcoord 11, 1`
			`ld b, SCREEN_HEIGHT / 2`
			`call Bank77_FillColumn`
			`ld [hl], $68`
			`ld a, $34`
			`hlcoord 0, 11`
			`ld bc, 11`
			`call ByteFill`
			`ld a, $39`
			`hlcoord 0, 17`
			`ld bc, 11`
			`call ByteFill`
			`hlcoord 11, 11`
			`ld [hl], $66`
			`ld a, $67`
			`hlcoord 11, 12`
			`ld b, 5`
			`call Bank77_FillColumn`
			`ld [hl], $68`
			`hlcoord 0, 12`
			`lb bc, 5, 11`
			`call ClearBox`
			`ld de, .esults_D`
			`hlcoord 0, 12`
			`call PlaceString`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.esults_D`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`; (SEARCH R)`
			`db "ESULTS"`
			`next ""`
			`; (### FOUN)`
			`next "D!@"`

Remove all address comments 2018-06-24 14:09:41 +00:00			`DrawDexEntryScreenRightEdge:`
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, [hBGMapAddress]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld l, 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, [hBGMapAddress + 1]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld h, a`
			`push hl`
			`inc hl`
			`ld a, l`
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`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld a, h`
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`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`hlcoord 19, 0`
			`ld [hl], $66`
			`hlcoord 19, 1`
			`ld a, $67`
			`ld b, 15`
			`call Bank77_FillColumn`
			`ld [hl], $68`
			`hlcoord 19, 17`
			`ld [hl], $3c`
			`xor a`
			`ld b, SCREEN_HEIGHT`
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 17:30:13 +00:00			`hlcoord 19, 0, wAttrmap`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`call Bank77_FillColumn`
			`call WaitBGMap2`
			`pop hl`
			`ld a, l`
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`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld a, h`
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`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`Bank77_FillColumn:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`push de`
			`ld de, SCREEN_WIDTH`
			`.loop`
			`ld [hl], a`
			`add hl, de`
			`dec b`
			`jr nz, .loop`
			`pop de`
			`ret`