ref: ac0025064fe3a506c74bf389a5487c76beeba5d6
dir: /home/gfx.asm/
TILES_PER_CYCLE EQU 8 MOBILE_TILES_PER_CYCLE EQU 6 Get2bppViaHDMA:: ldh a, [rLCDC] bit rLCDC_ENABLE, a jp z, Copy2bpp homecall HDMATransfer2bpp ret Get1bppViaHDMA:: ldh a, [rLCDC] bit rLCDC_ENABLE, a jp z, Copy1bpp homecall HDMATransfer1bpp ret FarCopyBytesDouble_DoubleBankSwitch:: ldh [hTempBank], a ldh a, [hROMBank] push af ldh a, [hTempBank] rst Bankswitch call FarCopyBytesDouble pop af rst Bankswitch ret Unreferenced_DMATransfer: 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 < TILES_PER_CYCLE ld a, c cp TILES_PER_CYCLE jr c, .done ; decrease c by TILES_PER_CYCLE sub TILES_PER_CYCLE 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 UpdatePlayerSprite:: farcall _UpdatePlayerSprite 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 OpenSRAM 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 [hTempBank], a ldh a, [hROMBank] push af ldh a, [hTempBank] 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 [hTempBank], a ldh a, [hROMBank] push af ldh a, [hTempBank] 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, TILES_PER_CYCLE ldh [hTilesPerCycle], a ld a, [wLinkMode] cp LINK_MOBILE jr nz, .NotMobile ldh a, [hMobile] and a jr nz, .NotMobile ld a, MOBILE_TILES_PER_CYCLE 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, .cycle 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 .cycle 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, TILES_PER_CYCLE ldh [hTilesPerCycle], a ld a, [wLinkMode] cp LINK_MOBILE jr nz, .NotMobile ldh a, [hMobile] and a jr nz, .NotMobile ld a, MOBILE_TILES_PER_CYCLE 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, .cycle 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 .cycle 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 * LEN_2BPP_TILE 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 * LEN_1BPP_TILE 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