mirror of
https://github.com/pret/pokegold.git
synced 2026-08-09 11:47:26 -05:00
Small home/ reorganization
This commit is contained in:
libjet
parent
1ddf04da73
commit
76216e6ce5
208
home.asm
208
home.asm
|
|
@ -19,7 +19,7 @@ SECTION "Home", ROM0
|
|||
|
||||
INCLUDE "home/vblank.asm"
|
||||
INCLUDE "home/delay.asm"
|
||||
INCLUDE "home/rtc.asm"
|
||||
INCLUDE "home/time_palettes.asm"
|
||||
INCLUDE "home/fade.asm"
|
||||
INCLUDE "home/lcd.asm"
|
||||
INCLUDE "home/time.asm"
|
||||
|
|
@ -28,7 +28,7 @@ INCLUDE "home/serial.asm"
|
|||
INCLUDE "home/joypad.asm"
|
||||
INCLUDE "home/decompress.asm"
|
||||
INCLUDE "home/palettes.asm"
|
||||
INCLUDE "home/copy.asm"
|
||||
INCLUDE "home/gfx.asm"
|
||||
INCLUDE "home/text.asm"
|
||||
INCLUDE "home/video.asm"
|
||||
INCLUDE "home/map_objects.asm"
|
||||
|
|
@ -37,224 +37,30 @@ INCLUDE "home/movement.asm"
|
|||
INCLUDE "home/menu.asm"
|
||||
INCLUDE "home/menu_window.asm"
|
||||
INCLUDE "home/menu2.asm"
|
||||
INCLUDE "home/handshake.asm"
|
||||
INCLUDE "home/printer.asm"
|
||||
INCLUDE "home/game_time.asm"
|
||||
INCLUDE "home/map.asm"
|
||||
|
||||
InexplicablyEmptyFunction:: ; 2e16
|
||||
; Inexplicably empty.
|
||||
; Seen in PredefPointers.
|
||||
rept 16
|
||||
nop
|
||||
endr
|
||||
ret
|
||||
|
||||
INCLUDE "home/farcall.asm"
|
||||
INCLUDE "home/predef.asm"
|
||||
INCLUDE "home/window.asm"
|
||||
INCLUDE "home/flag.asm"
|
||||
|
||||
Unreferenced_CheckBPressedDebug::
|
||||
; Used in debug ROMs to walk through walls and avoid encounters.
|
||||
ld a, [wDebugFlags]
|
||||
bit 1, a
|
||||
ret z
|
||||
|
||||
ldh a, [hJoyDown]
|
||||
bit 1, a
|
||||
ret
|
||||
|
||||
xor_a::
|
||||
xor a
|
||||
ret
|
||||
|
||||
xor_a_dec_a::
|
||||
xor a
|
||||
dec a
|
||||
ret
|
||||
|
||||
Unreferenced_CheckFieldDebug::
|
||||
push hl
|
||||
ld hl, wDebugFlags
|
||||
bit DEBUG_FIELD_F, [hl]
|
||||
pop hl
|
||||
ret
|
||||
|
||||
INCLUDE "home/sprite_updates.asm"
|
||||
INCLUDE "home/string.asm"
|
||||
INCLUDE "home/region.asm"
|
||||
|
||||
Function2ffe:: ; 2ffe (0:2ffe)
|
||||
push hl
|
||||
xor a
|
||||
ld hl, wd17c
|
||||
ld [hli], a
|
||||
ld [hli], a
|
||||
ld [hli], a
|
||||
ld [hl], a
|
||||
ld a, [wd17a]
|
||||
ld l, a
|
||||
ld a, [wd17b]
|
||||
ld h, a
|
||||
or l
|
||||
jr z, .quit
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
call SwitchToMapScriptsBank
|
||||
ld a, [wPlayerStandingMapX]
|
||||
add $4
|
||||
ld d, a
|
||||
ld a, [wPlayerStandingMapY]
|
||||
ld a, $4 ; add $4
|
||||
ld e, a
|
||||
push bc
|
||||
ld c, $0
|
||||
.loop
|
||||
ld a, [hl]
|
||||
cp $ff
|
||||
jr z, .done
|
||||
push hl
|
||||
ld a, d
|
||||
cp [hl]
|
||||
jr nz, .next
|
||||
inc hl
|
||||
ld a, e
|
||||
cp [hl]
|
||||
jr nz, .next
|
||||
ld hl, wd17c
|
||||
ld b, SET_FLAG
|
||||
push de
|
||||
push bc
|
||||
ld d, $0
|
||||
predef SmallFarFlagAction
|
||||
pop bc
|
||||
pop de
|
||||
.next
|
||||
pop hl
|
||||
inc hl
|
||||
inc hl
|
||||
inc hl
|
||||
inc c
|
||||
ld a, c
|
||||
cp $20
|
||||
jr c, .loop
|
||||
.done
|
||||
pop bc
|
||||
pop af
|
||||
rst Bankswitch
|
||||
.quit
|
||||
pop hl
|
||||
ret
|
||||
|
||||
INCLUDE "home/item.asm"
|
||||
INCLUDE "home/random.asm"
|
||||
INCLUDE "home/sram.asm"
|
||||
|
||||
; Register aliases
|
||||
_hl_::
|
||||
jp hl
|
||||
|
||||
_de_::
|
||||
push de
|
||||
ret
|
||||
|
||||
INCLUDE "home/call_regs.asm"
|
||||
INCLUDE "home/clear_sprites.asm"
|
||||
INCLUDE "home/copy2.asm"
|
||||
INCLUDE "home/copy.asm"
|
||||
INCLUDE "home/copy_tilemap.asm"
|
||||
INCLUDE "home/copy_name.asm"
|
||||
|
||||
IsInArray::
|
||||
; Find value a for every de bytes in array hl.
|
||||
; Return index in b and carry if found.
|
||||
|
||||
ld b, 0
|
||||
ld c, a
|
||||
.loop
|
||||
ld a, [hl]
|
||||
cp -1
|
||||
jr z, .NotInArray
|
||||
cp c
|
||||
jr z, .InArray
|
||||
inc b
|
||||
add hl, de
|
||||
jr .loop
|
||||
|
||||
.NotInArray:
|
||||
and a
|
||||
ret
|
||||
|
||||
.InArray:
|
||||
scf
|
||||
ret
|
||||
|
||||
SkipNames::
|
||||
; Skip a names.
|
||||
ld bc, NAME_LENGTH
|
||||
and a
|
||||
ret z
|
||||
.loop
|
||||
add hl, bc
|
||||
dec a
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
INCLUDE "home/array.asm"
|
||||
INCLUDE "home/math.asm"
|
||||
INCLUDE "home/print_text.asm"
|
||||
|
||||
CallPointerAt::
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, [hli]
|
||||
rst Bankswitch
|
||||
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
|
||||
call _hl_
|
||||
|
||||
pop hl
|
||||
ld a, h
|
||||
rst Bankswitch
|
||||
ret
|
||||
|
||||
INCLUDE "home/queue_script.asm"
|
||||
INCLUDE "home/compare.asm"
|
||||
INCLUDE "home/tilemap.asm"
|
||||
INCLUDE "home/hp_pals.asm"
|
||||
|
||||
CountSetBits::
|
||||
; Count the number of set bits in b bytes starting from hl.
|
||||
; Return in a, c and [wNumSetBits].
|
||||
ld c, 0
|
||||
.next
|
||||
ld a, [hli]
|
||||
ld e, a
|
||||
ld d, 8
|
||||
|
||||
.count
|
||||
srl e
|
||||
ld a, 0
|
||||
adc c
|
||||
ld c, a
|
||||
dec d
|
||||
jr nz, .count
|
||||
|
||||
dec b
|
||||
jr nz, .next
|
||||
|
||||
ld a, c
|
||||
ld [wNumSetBits], a
|
||||
ret
|
||||
|
||||
GetWeekday::
|
||||
ld a, [wCurDay]
|
||||
.mod
|
||||
sub 7
|
||||
jr nc, .mod
|
||||
add 7
|
||||
ret
|
||||
|
||||
INCLUDE "home/pokedex_flags.asm"
|
||||
INCLUDE "home/names.asm"
|
||||
INCLUDE "home/scrolling_menu.asm"
|
||||
|
|
@ -265,7 +71,7 @@ INCLUDE "home/cry.asm"
|
|||
INCLUDE "home/print_level.asm"
|
||||
INCLUDE "home/mon_data.asm"
|
||||
INCLUDE "home/print_bcd.asm"
|
||||
INCLUDE "home/mon_data_2.asm"
|
||||
INCLUDE "home/mon_party.asm"
|
||||
INCLUDE "home/battle.asm"
|
||||
INCLUDE "home/sprite_anims.asm"
|
||||
INCLUDE "home/audio.asm"
|
||||
|
|
|
|||
44
home/array.asm
Executable file
44
home/array.asm
Executable file
|
|
@ -0,0 +1,44 @@
|
|||
IsInArray::
|
||||
; Find value a for every de bytes in array hl.
|
||||
; Return index in b and carry if found.
|
||||
|
||||
ld b, 0
|
||||
ld c, a
|
||||
.loop
|
||||
ld a, [hl]
|
||||
cp -1
|
||||
jr z, .NotInArray
|
||||
cp c
|
||||
jr z, .InArray
|
||||
inc b
|
||||
add hl, de
|
||||
jr .loop
|
||||
|
||||
.NotInArray:
|
||||
and a
|
||||
ret
|
||||
|
||||
.InArray:
|
||||
scf
|
||||
ret
|
||||
|
||||
SkipNames::
|
||||
; Skip a names.
|
||||
ld bc, NAME_LENGTH
|
||||
and a
|
||||
ret z
|
||||
.loop
|
||||
add hl, bc
|
||||
dec a
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
AddNTimes::
|
||||
; Add bc * a to hl.
|
||||
and a
|
||||
ret z
|
||||
.loop
|
||||
add hl, bc
|
||||
dec a
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
|
@ -258,3 +258,22 @@ GetBattleAnimByte::
|
|||
pop hl
|
||||
ld a, [wca17]
|
||||
ret
|
||||
|
||||
PushLYOverrides::
|
||||
ldh a, [hLCDCPointer]
|
||||
and a
|
||||
ret z
|
||||
|
||||
ld a, LOW(wLYOverridesBackup)
|
||||
ld [wRequested2bppSource], a
|
||||
ld a, HIGH(wLYOverridesBackup)
|
||||
ld [wRequested2bppSource + 1], a
|
||||
|
||||
ld a, LOW(wLYOverrides)
|
||||
ld [wRequested2bppDest], a
|
||||
ld a, HIGH(wLYOverrides)
|
||||
ld [wRequested2bppDest + 1], a
|
||||
|
||||
ld a, (wLYOverridesEnd - wLYOverrides) / 28
|
||||
ld [wRequested2bpp], a
|
||||
ret
|
||||
|
|
|
|||
8
home/call_regs.asm
Executable file
8
home/call_regs.asm
Executable file
|
|
@ -0,0 +1,8 @@
|
|||
; Register aliases
|
||||
|
||||
_hl_::
|
||||
jp hl
|
||||
|
||||
_de_::
|
||||
push de
|
||||
ret
|
||||
257
home/copy.asm
257
home/copy.asm
|
|
@ -1,238 +1,53 @@
|
|||
Functiond70:: ; d70 (0:0d70)
|
||||
ld b, a
|
||||
CopyBytes:: ; 311a (0:311a)
|
||||
inc b
|
||||
inc c
|
||||
jr .asm_3121
|
||||
.asm_311e
|
||||
ld a, [hli]
|
||||
ld [de], a
|
||||
inc de
|
||||
.asm_3121
|
||||
dec c
|
||||
jr nz, .asm_311e
|
||||
dec b
|
||||
jr nz, .asm_311e
|
||||
ret
|
||||
|
||||
GetFarByte:: ; 3128 (0:3128)
|
||||
ld [wBuffer], a
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, b
|
||||
ld a, [wBuffer]
|
||||
rst Bankswitch
|
||||
ld a, [hl]
|
||||
ld [wBuffer], a
|
||||
pop af
|
||||
rst Bankswitch
|
||||
ld a, [wBuffer]
|
||||
ret
|
||||
|
||||
ld a, BANK(sDecompressBuffer)
|
||||
call OpenSRAM
|
||||
ld hl, sDecompressBuffer
|
||||
ld bc, 7 * 7 * $10
|
||||
xor a
|
||||
call ByteFill
|
||||
|
||||
ld hl, wcf3c
|
||||
GetFarHalfword:: ; 313c (0:313c)
|
||||
ld [wBuffer], a
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, [wBuffer]
|
||||
rst Bankswitch
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
ld de, sDecompressBuffer
|
||||
call Decompress
|
||||
|
||||
call CloseSRAM
|
||||
pop af
|
||||
rst Bankswitch
|
||||
ret
|
||||
|
||||
ReplacePlayerSprite::
|
||||
farcall Function1413c
|
||||
ret
|
||||
|
||||
Functiond9e::
|
||||
farcall Functionf8000
|
||||
ret
|
||||
|
||||
Functionda5::
|
||||
farcall Functionf8032
|
||||
ret
|
||||
|
||||
LoadFontsExtra::
|
||||
farcall Functionf800c
|
||||
ret
|
||||
|
||||
DecompressRequest2bpp::
|
||||
push de
|
||||
ld a, BANK(sScratch)
|
||||
call OpenSRAM
|
||||
push bc
|
||||
|
||||
ld de, sScratch
|
||||
ld a, b
|
||||
call FarDecompress
|
||||
|
||||
pop bc
|
||||
pop hl
|
||||
|
||||
ld de, sScratch
|
||||
call Request2bpp
|
||||
call CloseSRAM
|
||||
ret
|
||||
|
||||
FarCopyBytes:: ; dcd (0:0dcd)
|
||||
ld [wBuffer], a
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, [wBuffer]
|
||||
rst Bankswitch
|
||||
call CopyBytes
|
||||
pop af
|
||||
rst Bankswitch
|
||||
ret
|
||||
|
||||
FarCopyBytesDouble:: ; ddd (0:0ddd)
|
||||
ld [wBuffer], a
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, [wBuffer]
|
||||
rst Bankswitch
|
||||
ld a, h
|
||||
ld h, d
|
||||
ld d, a
|
||||
ld a, l
|
||||
ld l, e
|
||||
ld e, a
|
||||
ByteFill:: ; 314c (0:314c)
|
||||
inc b
|
||||
inc c
|
||||
jr .enter_loop
|
||||
|
||||
.copy
|
||||
ld a, [de]
|
||||
inc de
|
||||
jr .asm_3151
|
||||
.asm_3150
|
||||
ld [hli], a
|
||||
ld [hli], a
|
||||
.enter_loop
|
||||
.asm_3151
|
||||
dec c
|
||||
jr nz, .copy
|
||||
jr nz, .asm_3150
|
||||
dec b
|
||||
jr nz, .copy
|
||||
pop af
|
||||
rst Bankswitch
|
||||
jr nz, .asm_3150
|
||||
ret
|
||||
|
||||
Request2bpp:: ; dfe (0:0dfe)
|
||||
ldh a, [hBGMapMode]
|
||||
push af
|
||||
xor a
|
||||
ldh [hBGMapMode], a
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, b
|
||||
rst Bankswitch
|
||||
ld a, e
|
||||
ld [wRequested2bppSource], a
|
||||
ld a, d
|
||||
ld [wRequested2bppSource + 1], a
|
||||
ld a, l
|
||||
ld [wRequested2bppDest], a
|
||||
ld a, h
|
||||
ld [wRequested2bppDest + 1], a
|
||||
.check
|
||||
ld a, c
|
||||
cp $8 ; TilesPerCycle
|
||||
jr nc, .cycle
|
||||
ld [wRequested2bpp], a
|
||||
call DelayFrame
|
||||
pop af
|
||||
rst Bankswitch
|
||||
pop af
|
||||
ldh [hBGMapMode], a
|
||||
ret
|
||||
|
||||
.cycle
|
||||
ld a, $8 ; TilesPerCycle
|
||||
ld [wRequested2bpp], a
|
||||
call DelayFrame
|
||||
ld a, c
|
||||
sub $8 ; TilesPerCycle
|
||||
ld c, a
|
||||
jr .check
|
||||
|
||||
Request1bpp:: ; e38 (0:0e38)
|
||||
ldh a, [hBGMapMode]
|
||||
push af
|
||||
xor a
|
||||
ldh [hBGMapMode], a
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, b
|
||||
rst Bankswitch
|
||||
ld a, e
|
||||
ld [wRequested1bppSource], a
|
||||
ld a, d
|
||||
ld [wRequested1bppSource + 1], a
|
||||
ld a, l
|
||||
ld [wRequested1bppDest], a
|
||||
ld a, h
|
||||
ld [wRequested1bppDest + 1], a
|
||||
.check
|
||||
ld a, c
|
||||
cp $8 ; TilesPerCycle
|
||||
jr nc, .cycle
|
||||
ld [wRequested1bpp], a
|
||||
call DelayFrame
|
||||
pop af
|
||||
rst Bankswitch
|
||||
pop af
|
||||
ldh [hBGMapMode], a
|
||||
ret
|
||||
|
||||
.cycle
|
||||
ld a, $8 ; TilesPerCycle
|
||||
ld [wRequested1bpp], a
|
||||
call DelayFrame
|
||||
ld a, c
|
||||
sub $8 ; TilesPerCycle
|
||||
ld c, a
|
||||
jr .check
|
||||
|
||||
Get2bpp::
|
||||
ldh a, [rLCDC]
|
||||
bit 7, a
|
||||
jp nz, Request2bpp
|
||||
Copy2bpp::
|
||||
push hl
|
||||
ld h, d
|
||||
ld l, e
|
||||
pop de
|
||||
ld a, b
|
||||
push af
|
||||
swap c
|
||||
ld a, $f
|
||||
and c
|
||||
ld b, a
|
||||
ld a, $f0
|
||||
and c
|
||||
ld c, a
|
||||
pop af
|
||||
jp FarCopyBytes
|
||||
|
||||
Get1bpp::
|
||||
ldh a, [rLCDC]
|
||||
bit 7, a
|
||||
jp nz, Request1bpp
|
||||
Copy1bpp::
|
||||
push de
|
||||
ld d, h
|
||||
ld e, l
|
||||
ld a, b
|
||||
push af
|
||||
ld h, $0
|
||||
ld l, c
|
||||
add hl, hl
|
||||
add hl, hl
|
||||
add hl, hl
|
||||
ld b, h
|
||||
ld c, l
|
||||
pop af
|
||||
pop hl
|
||||
jp FarCopyBytesDouble
|
||||
|
||||
Functionea6::
|
||||
ldh a, [rLCDC]
|
||||
add a
|
||||
jp c, Request2bpp
|
||||
Functioneac::
|
||||
push de
|
||||
push hl
|
||||
ld a, b
|
||||
ld h, $0
|
||||
ld l, c
|
||||
add hl, hl
|
||||
add hl, hl
|
||||
add hl, hl
|
||||
add hl, hl
|
||||
ld b, h
|
||||
ld c, l
|
||||
pop de
|
||||
pop hl
|
||||
jp FarCopyBytes
|
||||
|
|
|
|||
|
|
@ -1,53 +0,0 @@
|
|||
CopyBytes:: ; 311a (0:311a)
|
||||
inc b
|
||||
inc c
|
||||
jr .asm_3121
|
||||
.asm_311e
|
||||
ld a, [hli]
|
||||
ld [de], a
|
||||
inc de
|
||||
.asm_3121
|
||||
dec c
|
||||
jr nz, .asm_311e
|
||||
dec b
|
||||
jr nz, .asm_311e
|
||||
ret
|
||||
|
||||
GetFarByte:: ; 3128 (0:3128)
|
||||
ld [wBuffer], a
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, [wBuffer]
|
||||
rst Bankswitch
|
||||
ld a, [hl]
|
||||
ld [wBuffer], a
|
||||
pop af
|
||||
rst Bankswitch
|
||||
ld a, [wBuffer]
|
||||
ret
|
||||
|
||||
GetFarHalfword:: ; 313c (0:313c)
|
||||
ld [wBuffer], a
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, [wBuffer]
|
||||
rst Bankswitch
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
pop af
|
||||
rst Bankswitch
|
||||
ret
|
||||
|
||||
ByteFill:: ; 314c (0:314c)
|
||||
inc b
|
||||
inc c
|
||||
jr .asm_3151
|
||||
.asm_3150
|
||||
ld [hli], a
|
||||
.asm_3151
|
||||
dec c
|
||||
jr nz, .asm_3150
|
||||
dec b
|
||||
jr nz, .asm_3150
|
||||
ret
|
||||
|
|
@ -103,3 +103,30 @@ CheckReceivedDex::
|
|||
ld a, c
|
||||
and a
|
||||
ret
|
||||
|
||||
Unreferenced_CheckBPressedDebug::
|
||||
; Used in debug ROMs to walk through walls and avoid encounters.
|
||||
|
||||
ld a, [wDebugFlags]
|
||||
bit 1, a
|
||||
ret z
|
||||
|
||||
ldh a, [hJoyDown]
|
||||
bit 1, a
|
||||
ret
|
||||
|
||||
xor_a::
|
||||
xor a
|
||||
ret
|
||||
|
||||
xor_a_dec_a::
|
||||
xor a
|
||||
dec a
|
||||
ret
|
||||
|
||||
Unreferenced_CheckFieldDebug::
|
||||
push hl
|
||||
ld hl, wDebugFlags
|
||||
bit DEBUG_FIELD_F, [hl]
|
||||
pop hl
|
||||
ret
|
||||
238
home/gfx.asm
Normal file
238
home/gfx.asm
Normal file
|
|
@ -0,0 +1,238 @@
|
|||
Functiond70:: ; d70 (0:0d70)
|
||||
ld b, a
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, b
|
||||
rst Bankswitch
|
||||
|
||||
ld a, BANK(sDecompressBuffer)
|
||||
call OpenSRAM
|
||||
ld hl, sDecompressBuffer
|
||||
ld bc, 7 * 7 * $10
|
||||
xor a
|
||||
call ByteFill
|
||||
|
||||
ld hl, wcf3c
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
ld de, sDecompressBuffer
|
||||
call Decompress
|
||||
|
||||
call CloseSRAM
|
||||
pop af
|
||||
rst Bankswitch
|
||||
ret
|
||||
|
||||
ReplacePlayerSprite::
|
||||
farcall Function1413c
|
||||
ret
|
||||
|
||||
Functiond9e::
|
||||
farcall Functionf8000
|
||||
ret
|
||||
|
||||
Functionda5::
|
||||
farcall Functionf8032
|
||||
ret
|
||||
|
||||
LoadFontsExtra::
|
||||
farcall Functionf800c
|
||||
ret
|
||||
|
||||
DecompressRequest2bpp::
|
||||
push de
|
||||
ld a, BANK(sScratch)
|
||||
call OpenSRAM
|
||||
push bc
|
||||
|
||||
ld de, sScratch
|
||||
ld a, b
|
||||
call FarDecompress
|
||||
|
||||
pop bc
|
||||
pop hl
|
||||
|
||||
ld de, sScratch
|
||||
call Request2bpp
|
||||
call CloseSRAM
|
||||
ret
|
||||
|
||||
FarCopyBytes:: ; dcd (0:0dcd)
|
||||
ld [wBuffer], a
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, [wBuffer]
|
||||
rst Bankswitch
|
||||
call CopyBytes
|
||||
pop af
|
||||
rst Bankswitch
|
||||
ret
|
||||
|
||||
FarCopyBytesDouble:: ; ddd (0:0ddd)
|
||||
ld [wBuffer], a
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, [wBuffer]
|
||||
rst Bankswitch
|
||||
ld a, h
|
||||
ld h, d
|
||||
ld d, a
|
||||
ld a, l
|
||||
ld l, e
|
||||
ld e, a
|
||||
inc b
|
||||
inc c
|
||||
jr .enter_loop
|
||||
|
||||
.copy
|
||||
ld a, [de]
|
||||
inc de
|
||||
ld [hli], a
|
||||
ld [hli], a
|
||||
.enter_loop
|
||||
dec c
|
||||
jr nz, .copy
|
||||
dec b
|
||||
jr nz, .copy
|
||||
pop af
|
||||
rst Bankswitch
|
||||
ret
|
||||
|
||||
Request2bpp:: ; dfe (0:0dfe)
|
||||
ldh a, [hBGMapMode]
|
||||
push af
|
||||
xor a
|
||||
ldh [hBGMapMode], a
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, b
|
||||
rst Bankswitch
|
||||
ld a, e
|
||||
ld [wRequested2bppSource], a
|
||||
ld a, d
|
||||
ld [wRequested2bppSource + 1], a
|
||||
ld a, l
|
||||
ld [wRequested2bppDest], a
|
||||
ld a, h
|
||||
ld [wRequested2bppDest + 1], a
|
||||
.check
|
||||
ld a, c
|
||||
cp $8 ; TilesPerCycle
|
||||
jr nc, .cycle
|
||||
ld [wRequested2bpp], a
|
||||
call DelayFrame
|
||||
pop af
|
||||
rst Bankswitch
|
||||
pop af
|
||||
ldh [hBGMapMode], a
|
||||
ret
|
||||
|
||||
.cycle
|
||||
ld a, $8 ; TilesPerCycle
|
||||
ld [wRequested2bpp], a
|
||||
call DelayFrame
|
||||
ld a, c
|
||||
sub $8 ; TilesPerCycle
|
||||
ld c, a
|
||||
jr .check
|
||||
|
||||
Request1bpp:: ; e38 (0:0e38)
|
||||
ldh a, [hBGMapMode]
|
||||
push af
|
||||
xor a
|
||||
ldh [hBGMapMode], a
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, b
|
||||
rst Bankswitch
|
||||
ld a, e
|
||||
ld [wRequested1bppSource], a
|
||||
ld a, d
|
||||
ld [wRequested1bppSource + 1], a
|
||||
ld a, l
|
||||
ld [wRequested1bppDest], a
|
||||
ld a, h
|
||||
ld [wRequested1bppDest + 1], a
|
||||
.check
|
||||
ld a, c
|
||||
cp $8 ; TilesPerCycle
|
||||
jr nc, .cycle
|
||||
ld [wRequested1bpp], a
|
||||
call DelayFrame
|
||||
pop af
|
||||
rst Bankswitch
|
||||
pop af
|
||||
ldh [hBGMapMode], a
|
||||
ret
|
||||
|
||||
.cycle
|
||||
ld a, $8 ; TilesPerCycle
|
||||
ld [wRequested1bpp], a
|
||||
call DelayFrame
|
||||
ld a, c
|
||||
sub $8 ; TilesPerCycle
|
||||
ld c, a
|
||||
jr .check
|
||||
|
||||
Get2bpp::
|
||||
ldh a, [rLCDC]
|
||||
bit 7, a
|
||||
jp nz, Request2bpp
|
||||
Copy2bpp::
|
||||
push hl
|
||||
ld h, d
|
||||
ld l, e
|
||||
pop de
|
||||
ld a, b
|
||||
push af
|
||||
swap c
|
||||
ld a, $f
|
||||
and c
|
||||
ld b, a
|
||||
ld a, $f0
|
||||
and c
|
||||
ld c, a
|
||||
pop af
|
||||
jp FarCopyBytes
|
||||
|
||||
Get1bpp::
|
||||
ldh a, [rLCDC]
|
||||
bit 7, a
|
||||
jp nz, Request1bpp
|
||||
Copy1bpp::
|
||||
push de
|
||||
ld d, h
|
||||
ld e, l
|
||||
ld a, b
|
||||
push af
|
||||
ld h, $0
|
||||
ld l, c
|
||||
add hl, hl
|
||||
add hl, hl
|
||||
add hl, hl
|
||||
ld b, h
|
||||
ld c, l
|
||||
pop af
|
||||
pop hl
|
||||
jp FarCopyBytesDouble
|
||||
|
||||
Functionea6::
|
||||
ldh a, [rLCDC]
|
||||
add a
|
||||
jp c, Request2bpp
|
||||
Functioneac::
|
||||
push de
|
||||
push hl
|
||||
ld a, b
|
||||
ld h, $0
|
||||
ld l, c
|
||||
add hl, hl
|
||||
add hl, hl
|
||||
add hl, hl
|
||||
add hl, hl
|
||||
ld b, h
|
||||
ld c, l
|
||||
pop de
|
||||
pop hl
|
||||
jp FarCopyBytes
|
||||
|
|
@ -1,17 +0,0 @@
|
|||
SetHPPal::
|
||||
; Set palette for hp bar pixel length e at hl.
|
||||
call GetHPPal
|
||||
ld [hl], d
|
||||
ret
|
||||
|
||||
GetHPPal::
|
||||
; Get palette for hp bar pixel length e in d.
|
||||
ld d, HP_GREEN
|
||||
ld a, e
|
||||
cp (HP_BAR_LENGTH_PX * 50 / 100) ; 24
|
||||
ret nc
|
||||
inc d ; HP_YELLOW
|
||||
cp (HP_BAR_LENGTH_PX * 21 / 100) ; 10
|
||||
ret nc
|
||||
inc d ; HP_RED
|
||||
ret
|
||||
|
|
@ -2427,3 +2427,11 @@ LoadTilesetHeader:: ; 2dfa (0:2dfa)
|
|||
pop bc
|
||||
pop hl
|
||||
ret
|
||||
|
||||
InexplicablyEmptyFunction:: ; 2e16
|
||||
; Inexplicably empty.
|
||||
; Seen in PredefPointers.
|
||||
rept 16
|
||||
nop
|
||||
endr
|
||||
ret
|
||||
|
|
|
|||
|
|
@ -1,13 +1,3 @@
|
|||
AddNTimes::
|
||||
; Add bc * a to hl.
|
||||
and a
|
||||
ret z
|
||||
.loop
|
||||
add hl, bc
|
||||
dec a
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
SimpleMultiply::
|
||||
; Return a * c.
|
||||
and a
|
||||
|
|
|
|||
|
|
@ -1,3 +1,35 @@
|
|||
CountSetBits::
|
||||
; Count the number of set bits in b bytes starting from hl.
|
||||
; Return in a, c and [wNumSetBits].
|
||||
ld c, 0
|
||||
.next
|
||||
ld a, [hli]
|
||||
ld e, a
|
||||
ld d, 8
|
||||
|
||||
.count
|
||||
srl e
|
||||
ld a, 0
|
||||
adc c
|
||||
ld c, a
|
||||
dec d
|
||||
jr nz, .count
|
||||
|
||||
dec b
|
||||
jr nz, .next
|
||||
|
||||
ld a, c
|
||||
ld [wNumSetBits], a
|
||||
ret
|
||||
|
||||
GetWeekday::
|
||||
ld a, [wCurDay]
|
||||
.mod
|
||||
sub 7
|
||||
jr nc, .mod
|
||||
add 7
|
||||
ret
|
||||
|
||||
SetSeenAndCaughtMon::
|
||||
push af
|
||||
ld c, a
|
||||
|
|
|
|||
|
|
@ -146,4 +146,21 @@ FarPrintText::
|
|||
|
||||
pop af
|
||||
rst Bankswitch
|
||||
ret
|
||||
|
||||
CallPointerAt::
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, [hli]
|
||||
rst Bankswitch
|
||||
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
|
||||
call _hl_
|
||||
|
||||
pop hl
|
||||
ld a, h
|
||||
rst Bankswitch
|
||||
ret
|
||||
|
|
@ -29,4 +29,66 @@ IsInJohto::
|
|||
|
||||
.Kanto:
|
||||
ld a, 1
|
||||
ret
|
||||
|
||||
Function2ffe:: ; 2ffe (0:2ffe)
|
||||
push hl
|
||||
xor a
|
||||
ld hl, wd17c
|
||||
ld [hli], a
|
||||
ld [hli], a
|
||||
ld [hli], a
|
||||
ld [hl], a
|
||||
ld a, [wd17a]
|
||||
ld l, a
|
||||
ld a, [wd17b]
|
||||
ld h, a
|
||||
or l
|
||||
jr z, .quit
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
call SwitchToMapScriptsBank
|
||||
ld a, [wPlayerStandingMapX]
|
||||
add $4
|
||||
ld d, a
|
||||
ld a, [wPlayerStandingMapY]
|
||||
ld a, $4 ; add $4
|
||||
ld e, a
|
||||
push bc
|
||||
ld c, $0
|
||||
.loop
|
||||
ld a, [hl]
|
||||
cp $ff
|
||||
jr z, .done
|
||||
push hl
|
||||
ld a, d
|
||||
cp [hl]
|
||||
jr nz, .next
|
||||
inc hl
|
||||
ld a, e
|
||||
cp [hl]
|
||||
jr nz, .next
|
||||
ld hl, wd17c
|
||||
ld b, SET_FLAG
|
||||
push de
|
||||
push bc
|
||||
ld d, $0
|
||||
predef SmallFarFlagAction
|
||||
pop bc
|
||||
pop de
|
||||
.next
|
||||
pop hl
|
||||
inc hl
|
||||
inc hl
|
||||
inc hl
|
||||
inc c
|
||||
ld a, c
|
||||
cp $20
|
||||
jr c, .loop
|
||||
.done
|
||||
pop bc
|
||||
pop af
|
||||
rst Bankswitch
|
||||
.quit
|
||||
pop hl
|
||||
ret
|
||||
|
|
@ -1,22 +1,3 @@
|
|||
PushLYOverrides::
|
||||
ldh a, [hLCDCPointer]
|
||||
and a
|
||||
ret z
|
||||
|
||||
ld a, LOW(wLYOverridesBackup)
|
||||
ld [wRequested2bppSource], a
|
||||
ld a, HIGH(wLYOverridesBackup)
|
||||
ld [wRequested2bppSource + 1], a
|
||||
|
||||
ld a, LOW(wLYOverrides)
|
||||
ld [wRequested2bppDest], a
|
||||
ld a, HIGH(wLYOverrides)
|
||||
ld [wRequested2bppDest + 1], a
|
||||
|
||||
ld a, (wLYOverridesEnd - wLYOverrides) / 28
|
||||
ld [wRequested2bpp], a
|
||||
ret
|
||||
|
||||
InitAnimatedObjectStruct::
|
||||
ld [wAnimatedObjectStructIDBuffer], a
|
||||
ldh a, [hROMBank]
|
||||
|
|
|
|||
|
|
@ -198,4 +198,22 @@ GetSGBLayout::
|
|||
ret z
|
||||
|
||||
.sgb
|
||||
predef_jump LoadSGBLayout
|
||||
predef_jump LoadSGBLayout
|
||||
|
||||
SetHPPal::
|
||||
; Set palette for hp bar pixel length e at hl.
|
||||
call GetHPPal
|
||||
ld [hl], d
|
||||
ret
|
||||
|
||||
GetHPPal::
|
||||
; Get palette for hp bar pixel length e in d.
|
||||
ld d, HP_GREEN
|
||||
ld a, e
|
||||
cp (HP_BAR_LENGTH_PX * 50 / 100) ; 24
|
||||
ret nc
|
||||
inc d ; HP_YELLOW
|
||||
cp (HP_BAR_LENGTH_PX * 21 / 100) ; 10
|
||||
ret nc
|
||||
inc d ; HP_RED
|
||||
ret
|
||||
Loading…
Reference in New Issue
Block a user