mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-11-16 11:27:33 -08:00
43eff93861
Time to move everything out of home.asm: - InexplicablyEmptyFunction was moved to home/map.asm - The wDebugFlags functions and xor_a brothers were moved to home/flag.asm because they're all flag-related. - ret_2f3e was moved into home/region.asm - The register alias sisters were moved to a new file called home/call_regs.asm - IsInArray and SkipNames were joined by AddNTimes from home/math.asm into home/array.asm, as they're all used to index arrays. - CallPointerAt was moved into home/print_text.asm because given the contents of that file it doesn't feel very out of place (that file isn't very aptly named...) - CountSetBits was moved into home/pokedex_flags.asm because it's unique use is counting the amount of seen/caught mon in the podedex. GetWeekday was pulled into this by proximity. Other changes were also made: - PushLYOverrides was moved from home/sprite_anims.asm to home/battle.asm, because it's almost exclusively used for battle animations, with the lone exception being the Magnet Train. - home/copy.asm was renamed to home/gfx.asm, as it's all gfx-related - home/copy2.asm was renamed to home/copy.asm, now it's the only file called copy. - SetHPPal and GetHPPal were moved from home/hp_pals.asm to home/tilemap.asm, as they're attrmap related, like many functions in that file are. - home/rtc.asm was renamed to home/time_palettes.asm, as it had very little to do with the RTC at all, all RTC functions being in home/time.asm - home/handshake.asm was renamed to home/printer.asm. - home/mon_data_2.asm was renamed to home/mon_party.asm.
392 lines
4.8 KiB
NASM
392 lines
4.8 KiB
NASM
; Functions to copy data from ROM.
|
|
|
|
Get2bpp_2::
|
|
ldh a, [rLCDC]
|
|
bit rLCDC_ENABLE, a
|
|
jp z, Copy2bpp
|
|
|
|
homecall _Get2bpp
|
|
|
|
ret
|
|
|
|
Get1bpp_2::
|
|
ldh a, [rLCDC]
|
|
bit rLCDC_ENABLE, a
|
|
jp z, Copy1bpp
|
|
|
|
homecall _Get1bpp
|
|
|
|
ret
|
|
|
|
FarCopyBytesDouble_DoubleBankSwitch::
|
|
ldh [hBuffer], a
|
|
ldh a, [hROMBank]
|
|
push af
|
|
ldh a, [hBuffer]
|
|
rst Bankswitch
|
|
|
|
call FarCopyBytesDouble
|
|
|
|
pop af
|
|
rst Bankswitch
|
|
ret
|
|
|
|
OldDMATransfer:
|
|
dec c
|
|
ldh a, [hBGMapMode]
|
|
push af
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
ldh a, [hROMBank]
|
|
push af
|
|
ld a, b
|
|
rst Bankswitch
|
|
|
|
.loop
|
|
; load the source and target MSB and LSB
|
|
ld a, d
|
|
ldh [rHDMA1], a ; source MSB
|
|
ld a, e
|
|
and $f0
|
|
ldh [rHDMA2], a ; source LSB
|
|
ld a, h
|
|
and $1f
|
|
ldh [rHDMA3], a ; target MSB
|
|
ld a, l
|
|
and $f0
|
|
ldh [rHDMA4], a ; target LSB
|
|
; stop when c < 8
|
|
ld a, c
|
|
cp $8
|
|
jr c, .done
|
|
; decrease c by 8
|
|
sub $8
|
|
ld c, a
|
|
; DMA transfer state
|
|
ld a, $f
|
|
ldh [hDMATransfer], a
|
|
call DelayFrame
|
|
; add $100 to hl and de
|
|
ld a, l
|
|
add LOW($100)
|
|
ld l, a
|
|
ld a, h
|
|
adc HIGH($100)
|
|
ld h, a
|
|
ld a, e
|
|
add LOW($100)
|
|
ld e, a
|
|
ld a, d
|
|
adc HIGH($100)
|
|
ld d, a
|
|
jr .loop
|
|
|
|
.done
|
|
ld a, c
|
|
and $7f ; pretty silly, considering at most bits 0-2 would be set
|
|
ldh [hDMATransfer], a
|
|
call DelayFrame
|
|
pop af
|
|
rst Bankswitch
|
|
|
|
pop af
|
|
ldh [hBGMapMode], a
|
|
ret
|
|
|
|
ReplaceKrisSprite::
|
|
farcall _ReplaceKrisSprite
|
|
ret
|
|
|
|
LoadStandardFont::
|
|
farcall _LoadStandardFont
|
|
ret
|
|
|
|
LoadFontsBattleExtra::
|
|
farcall _LoadFontsBattleExtra
|
|
ret
|
|
|
|
LoadFontsExtra::
|
|
farcall _LoadFontsExtra1
|
|
farcall _LoadFontsExtra2
|
|
ret
|
|
|
|
LoadFontsExtra2:
|
|
farcall _LoadFontsExtra2
|
|
ret
|
|
|
|
DecompressRequest2bpp::
|
|
push de
|
|
ld a, BANK(sScratch)
|
|
call GetSRAMBank
|
|
push bc
|
|
|
|
ld de, sScratch
|
|
ld a, b
|
|
call FarDecompress
|
|
|
|
pop bc
|
|
pop hl
|
|
|
|
ld de, sScratch
|
|
call Request2bpp
|
|
call CloseSRAM
|
|
ret
|
|
|
|
FarCopyBytes::
|
|
; copy bc bytes from a:hl to de
|
|
|
|
ldh [hBuffer], a
|
|
ldh a, [hROMBank]
|
|
push af
|
|
ldh a, [hBuffer]
|
|
rst Bankswitch
|
|
|
|
call CopyBytes
|
|
|
|
pop af
|
|
rst Bankswitch
|
|
ret
|
|
|
|
FarCopyBytesDouble:
|
|
; Copy bc bytes from a:hl to bc*2 bytes at de,
|
|
; doubling each byte in the process.
|
|
|
|
ldh [hBuffer], a
|
|
ldh a, [hROMBank]
|
|
push af
|
|
ldh a, [hBuffer]
|
|
rst Bankswitch
|
|
|
|
; switcheroo, de <> hl
|
|
ld a, h
|
|
ld h, d
|
|
ld d, a
|
|
ld a, l
|
|
ld l, e
|
|
ld e, a
|
|
|
|
inc b
|
|
inc c
|
|
jr .dec
|
|
|
|
.loop
|
|
ld a, [de]
|
|
inc de
|
|
ld [hli], a
|
|
ld [hli], a
|
|
.dec
|
|
dec c
|
|
jr nz, .loop
|
|
dec b
|
|
jr nz, .loop
|
|
|
|
pop af
|
|
rst Bankswitch
|
|
ret
|
|
|
|
Request2bpp::
|
|
; Load 2bpp at b:de to occupy c tiles of hl.
|
|
ldh a, [hBGMapMode]
|
|
push af
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
|
|
ldh a, [hROMBank]
|
|
push af
|
|
ld a, b
|
|
rst Bankswitch
|
|
|
|
ldh a, [hTilesPerCycle]
|
|
push af
|
|
ld a, $8
|
|
ldh [hTilesPerCycle], a
|
|
|
|
ld a, [wLinkMode]
|
|
cp LINK_MOBILE
|
|
jr nz, .NotMobile
|
|
ldh a, [hMobile]
|
|
and a
|
|
jr nz, .NotMobile
|
|
ld a, $6
|
|
ldh [hTilesPerCycle], a
|
|
|
|
.NotMobile:
|
|
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
|
|
.loop
|
|
ld a, c
|
|
ld hl, hTilesPerCycle
|
|
cp [hl]
|
|
jr nc, .iterate
|
|
|
|
ld [wRequested2bpp], a
|
|
.wait
|
|
call DelayFrame
|
|
ld a, [wRequested2bpp]
|
|
and a
|
|
jr nz, .wait
|
|
|
|
pop af
|
|
ldh [hTilesPerCycle], a
|
|
|
|
pop af
|
|
rst Bankswitch
|
|
|
|
pop af
|
|
ldh [hBGMapMode], a
|
|
ret
|
|
|
|
.iterate
|
|
ldh a, [hTilesPerCycle]
|
|
ld [wRequested2bpp], a
|
|
|
|
.wait2
|
|
call DelayFrame
|
|
ld a, [wRequested2bpp]
|
|
and a
|
|
jr nz, .wait2
|
|
|
|
ld a, c
|
|
ld hl, hTilesPerCycle
|
|
sub [hl]
|
|
ld c, a
|
|
jr .loop
|
|
|
|
Request1bpp::
|
|
; Load 1bpp at b:de to occupy c tiles of hl.
|
|
ldh a, [hBGMapMode]
|
|
push af
|
|
xor a
|
|
ldh [hBGMapMode], a
|
|
|
|
ldh a, [hROMBank]
|
|
push af
|
|
ld a, b
|
|
rst Bankswitch
|
|
|
|
ldh a, [hTilesPerCycle]
|
|
push af
|
|
ld a, $8
|
|
ldh [hTilesPerCycle], a
|
|
|
|
ld a, [wLinkMode]
|
|
cp LINK_MOBILE
|
|
jr nz, .NotMobile
|
|
ldh a, [hMobile]
|
|
and a
|
|
jr nz, .NotMobile
|
|
ld a, $6
|
|
ldh [hTilesPerCycle], a
|
|
|
|
.NotMobile:
|
|
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
|
|
.loop
|
|
ld a, c
|
|
ld hl, hTilesPerCycle
|
|
cp [hl]
|
|
jr nc, .iterate
|
|
|
|
ld [wRequested1bpp], a
|
|
.wait
|
|
call DelayFrame
|
|
ld a, [wRequested1bpp]
|
|
and a
|
|
jr nz, .wait
|
|
|
|
pop af
|
|
ldh [hTilesPerCycle], a
|
|
|
|
pop af
|
|
rst Bankswitch
|
|
|
|
pop af
|
|
ldh [hBGMapMode], a
|
|
ret
|
|
|
|
.iterate
|
|
ldh a, [hTilesPerCycle]
|
|
ld [wRequested1bpp], a
|
|
|
|
.wait2
|
|
call DelayFrame
|
|
ld a, [wRequested1bpp]
|
|
and a
|
|
jr nz, .wait2
|
|
|
|
ld a, c
|
|
ld hl, hTilesPerCycle
|
|
sub [hl]
|
|
ld c, a
|
|
jr .loop
|
|
|
|
Get2bpp::
|
|
ldh a, [rLCDC]
|
|
bit rLCDC_ENABLE, a
|
|
jp nz, Request2bpp
|
|
|
|
Copy2bpp:
|
|
; copy c 2bpp tiles from b:de to hl
|
|
|
|
push hl
|
|
ld h, d
|
|
ld l, e
|
|
pop de
|
|
|
|
; bank
|
|
ld a, b
|
|
|
|
; bc = c * $10
|
|
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 rLCDC_ENABLE, a
|
|
jp nz, Request1bpp
|
|
|
|
Copy1bpp::
|
|
; copy c 1bpp tiles from b:de to hl
|
|
|
|
push de
|
|
ld d, h
|
|
ld e, l
|
|
|
|
; bank
|
|
ld a, b
|
|
|
|
; bc = c * $10 / 2
|
|
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
|