pokecrystal-board/home/vblank.asm

542 lines
7.2 KiB
NASM
Raw Normal View History

2013-02-05 12:33:57 -08:00
; VBlank is the interrupt responsible for updating VRAM.
; In Pokemon Crystal, VBlank has been hijacked to act as the
; main loop. After time-sensitive graphics operations have been
; performed, joypad input and sound functions are executed.
; This prevents the display and audio output from lagging.
VBlank: ; 283
2013-02-05 12:33:57 -08:00
push af
push bc
push de
push hl
; get vblank type
ld a, [$ff9e]
and $7
; get fn pointer
ld e, a
ld d, $0
ld hl, .VBlanks
add hl, de
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
; down to business
call _hl_
2013-02-05 12:33:57 -08:00
; since this is called once per frame
call GameTimer
pop hl
pop de
pop bc
pop af
reti
; 2a1
.VBlanks ; 2a1
dw VBlank0 ; 0
dw VBlank1 ; 1
dw VBlank2 ; 2
dw VBlank3 ; 3
dw VBlank4 ; 4
dw VBlank5 ; 5
dw VBlank6 ; 6
dw VBlank0 ; 7
; 2b1
VBlank0: ; 2b1
; normal operation
; rng
; scx, scy, wy, wx
; bg map buffer
; palettes
; dma transfer
; bg map
; tiles
; oam
; joypad
; sound
; inc frame counter
ld hl, $ff9b
inc [hl]
; advance rng
2013-02-19 23:46:40 -08:00
ld a, [rDIV]
2013-02-05 12:33:57 -08:00
ld b, a
ld a, [hRandomAdd]
2013-02-05 12:33:57 -08:00
adc b
ld [hRandomAdd], a
2013-02-05 12:33:57 -08:00
2013-02-19 23:46:40 -08:00
ld a, [rDIV]
2013-02-05 12:33:57 -08:00
ld b, a
ld a, [hRandomSub]
2013-02-05 12:33:57 -08:00
sbc b
ld [hRandomSub], a
2013-02-05 12:33:57 -08:00
; save bank
ld a, [hROMBank] ; current bank
2013-02-05 12:33:57 -08:00
ld [$ff8a], a
; scroll x
2013-08-19 15:46:56 -07:00
ld a, [hSCX]
2013-02-19 23:46:40 -08:00
ld [rSCX], a
2013-02-05 12:33:57 -08:00
; scroll y
2013-08-19 15:46:56 -07:00
ld a, [hSCY]
2013-02-19 23:46:40 -08:00
ld [rSCY], a
2013-02-05 12:33:57 -08:00
; window y
2013-08-19 15:42:26 -07:00
ld a, [hWY]
2013-02-19 23:46:40 -08:00
ld [rWY], a
2013-02-05 12:33:57 -08:00
; window x + 7
2013-08-19 15:42:26 -07:00
ld a, [hWX]
2013-02-19 23:46:40 -08:00
ld [rWX], a
2013-02-05 12:33:57 -08:00
; some time management is in order
; only have time for one of these during vblank
; bg map buffer has priority
call UpdateBGMapBuffer
jr c, .doneframeaction
; then pals
call UpdatePalsIfCGB
jr c, .doneframeaction
; dma transfer
call DMATransfer
jr c, .doneframeaction
; bg map
call UpdateBGMap
; these have their own timing checks
call Serve2bppRequest
call Serve1bppRequest
call AnimateTileset
2013-02-05 12:33:57 -08:00
.doneframeaction
; oam update off?
ld a, [hOAMUpdate]
2013-02-05 12:33:57 -08:00
and a
jr nz, .vblankoccurred
; update oam by dma transfer
2013-03-20 19:55:09 -07:00
call hPushOAM
2013-08-31 18:24:49 -07:00
; @PushOAM:
; ld a, Sprites >> 8
2013-02-19 23:46:40 -08:00
; ld [rDMA], a
2013-02-05 12:33:57 -08:00
; ld a, $28
; .loop
; dec a
; jr nz, .loop
; ret
; vblank-sensitive operations are done
.vblankoccurred
; tell other fns vblank happened
xor a
ld [VBlankOccurred], a
2013-07-19 22:25:20 -07:00
; dec OverworldDelay until 0
ld a, [OverworldDelay]
2013-02-05 12:33:57 -08:00
and a
jr z, .textdelay
dec a
2013-07-19 22:25:20 -07:00
ld [OverworldDelay], a
2013-02-05 12:33:57 -08:00
.textdelay
; dec text delay counter until 0
ld a, [TextDelayFrames]
and a
jr z, .joypad
dec a
ld [TextDelayFrames], a
.joypad
call Joypad
; update sound
ld a, BANK(_UpdateSound)
2013-02-05 12:33:57 -08:00
rst Bankswitch ; bankswitch
call _UpdateSound
2013-02-05 12:33:57 -08:00
ld a, [$ff8a]
rst Bankswitch ; restore bank
;
ld a, [hSeconds]
2013-02-05 12:33:57 -08:00
ld [$ffe3], a
ret
; 325
VBlank2: ; 325
; sound only
; save bank
ld a, [hROMBank]
2013-02-05 12:33:57 -08:00
ld [$ff8a], a
; update sound
ld a, BANK(_UpdateSound)
2013-02-05 12:33:57 -08:00
rst Bankswitch ; bankswitch
call _UpdateSound
2013-02-05 12:33:57 -08:00
; restore bank
ld a, [$ff8a]
rst Bankswitch
; tell other fns vblank happened
xor a
ld [VBlankOccurred], a
ret
; 337
VBlank1: ; 337
; scx, scy
; palettes
; bg map
; tiles
; oam
; sound / lcd stat
; save bank
ld a, [hROMBank]
2013-02-05 12:33:57 -08:00
ld [$ff8a], a
; scroll x
2013-08-19 15:46:56 -07:00
ld a, [hSCX]
2013-02-19 23:46:40 -08:00
ld [rSCX], a
2013-02-05 12:33:57 -08:00
; scroll y
2013-08-19 15:46:56 -07:00
ld a, [hSCY]
2013-02-19 23:46:40 -08:00
ld [rSCY], a
2013-02-05 12:33:57 -08:00
; time-sensitive fns
call UpdatePals
jr c, .vblankoccurred
; these have their own timing checks
call UpdateBGMap
call Serve2bppRequest@VBlank
2013-02-05 12:33:57 -08:00
; update oam by dma transfer
2013-03-20 19:55:09 -07:00
call hPushOAM
2013-08-31 18:24:49 -07:00
; @PushOAM:
; ld a, Sprites >> 8
2013-02-19 23:46:40 -08:00
; ld [rDMA], a
2013-02-05 12:33:57 -08:00
; ld a, $28
; .loop
; dec a
; jr nz, .loop
; ret
.vblankoccurred
; tell other fns vblank happened
xor a
ld [VBlankOccurred], a
; get requested ints
2013-02-19 23:46:40 -08:00
ld a, [rIF]
2013-02-05 12:33:57 -08:00
ld b, a
; discard requested ints
xor a
2013-02-19 23:46:40 -08:00
ld [rIF], a
2013-02-05 12:33:57 -08:00
; enable lcd stat
ld a, %10 ; lcd stat
2013-02-19 23:46:40 -08:00
ld [rIE], a
2013-02-05 12:33:57 -08:00
; rerequest serial int if applicable (still disabled)
; request lcd stat
ld a, b
and %1000 ; serial
or %10 ; lcd stat
2013-02-19 23:46:40 -08:00
ld [rIF], a
2013-02-05 12:33:57 -08:00
ei
; update sound
ld a, BANK(_UpdateSound)
2013-02-05 12:33:57 -08:00
rst Bankswitch ; bankswitch
call _UpdateSound
2013-02-05 12:33:57 -08:00
; restore bank
ld a, [$ff8a]
rst Bankswitch
di
; get requested ints
2013-02-19 23:46:40 -08:00
ld a, [rIF]
2013-02-05 12:33:57 -08:00
ld b, a
; discard requested ints
xor a
2013-02-19 23:46:40 -08:00
ld [rIF], a
2013-02-05 12:33:57 -08:00
; enable ints besides joypad
ld a, %1111 ; serial timer lcdstat vblank
2013-02-19 23:46:40 -08:00
ld [rIE], a
2013-02-05 12:33:57 -08:00
; rerequest ints
ld a, b
2013-02-19 23:46:40 -08:00
ld [rIF], a
2013-02-05 12:33:57 -08:00
ret
; 37f
UpdatePals: ; 37f
; update pals for either dmg or cgb
; check cgb
ld a, [hCGB]
2013-02-05 12:33:57 -08:00
and a
jp nz, UpdateCGBPals
; update gb pals
ld a, [$cfc7]
2013-02-19 23:46:40 -08:00
ld [rBGP], a
2013-02-05 12:33:57 -08:00
ld a, [$cfc8]
2013-02-19 23:46:40 -08:00
ld [rOBP0], a
2013-02-05 12:33:57 -08:00
ld a, [$cfc9]
2013-02-19 23:46:40 -08:00
ld [rOBP1], a
2013-02-05 12:33:57 -08:00
and a
ret
; 396
VBlank3: ; 396
; scx, scy
; palettes
; bg map
; tiles
; oam
; sound / lcd stat
; save bank
ld a, [hROMBank]
2013-02-05 12:33:57 -08:00
ld [$ff8a], a
; scroll x
2013-08-19 15:46:56 -07:00
ld a, [hSCX]
2013-02-19 23:46:40 -08:00
ld [rSCX], a
2013-02-05 12:33:57 -08:00
; scroll y
2013-08-19 15:46:56 -07:00
ld a, [hSCY]
2013-02-19 23:46:40 -08:00
ld [rSCY], a
2013-02-05 12:33:57 -08:00
; any pals to update?
ld a, [hCGBPalUpdate]
2013-02-05 12:33:57 -08:00
and a
call nz, ForceUpdateCGBPals
jr c, .vblankoccurred
; else
call UpdateBGMap
call Serve2bppRequest@VBlank
2013-02-05 12:33:57 -08:00
; update oam by dma transfer
2013-03-20 19:55:09 -07:00
call hPushOAM
2013-08-31 18:24:49 -07:00
; @PushOAM:
; ld a, Sprites >> 8
2013-02-19 23:46:40 -08:00
; ld [rDMA], a
2013-02-05 12:33:57 -08:00
; ld a, $28
; .loop
; dec a
; jr nz, .loop
; ret
.vblankoccurred
; tell other fns vblank happened
xor a
ld [VBlankOccurred], a
; save int flag
2013-02-19 23:46:40 -08:00
ld a, [rIF]
2013-02-05 12:33:57 -08:00
push af
; reset ints
xor a
2013-02-19 23:46:40 -08:00
ld [rIF], a
2013-02-05 12:33:57 -08:00
; force lcdstat int during sound update
ld a, %10 ; lcd stat
2013-02-19 23:46:40 -08:00
ld [rIE], a
ld [rIF], a
2013-02-05 12:33:57 -08:00
ei
; update sound
ld a, BANK(_UpdateSound)
2013-02-05 12:33:57 -08:00
rst Bankswitch ; bankswitch
call _UpdateSound
2013-02-05 12:33:57 -08:00
; restore bank
ld a, [$ff8a]
rst Bankswitch
di
; request lcdstat
2013-02-19 23:46:40 -08:00
ld a, [rIF]
2013-02-05 12:33:57 -08:00
ld b, a
; and any other ints
pop af
or b
ld b, a
; reset ints
xor a
2013-02-19 23:46:40 -08:00
ld [rIF], a
2013-02-05 12:33:57 -08:00
; enable ints besides joypad
ld a, %1111 ; serial timer lcdstat vblank
2013-02-19 23:46:40 -08:00
ld [rIE], a
2013-02-05 12:33:57 -08:00
; request ints
ld a, b
2013-02-19 23:46:40 -08:00
ld [rIF], a
2013-02-05 12:33:57 -08:00
ret
; 3df
VBlank4: ; 3df
; bg map
; tiles
; oam
; joypad
; serial
; sound
; save bank
ld a, [hROMBank]
2013-02-05 12:33:57 -08:00
ld [$ff8a], a
call UpdateBGMap
call Serve2bppRequest
2013-02-05 12:33:57 -08:00
; update oam by dma transfer
2013-03-20 19:55:09 -07:00
call hPushOAM
2013-08-31 18:24:49 -07:00
; @PushOAM:
; ld a, Sprites >> 8
2013-02-19 23:46:40 -08:00
; ld [rDMA], a
2013-02-05 12:33:57 -08:00
; ld a, $28
; .loop
; dec a
; jr nz, .loop
; ret
; update joypad
call Joypad
; tell other fns vblank happened
xor a
ld [VBlankOccurred], a
; handshake
call AskSerial
; update sound
ld a, BANK(_UpdateSound)
2013-02-05 12:33:57 -08:00
rst Bankswitch ; bankswitch
call _UpdateSound
2013-02-05 12:33:57 -08:00
; restore bank
ld a, [$ff8a]
rst Bankswitch
ret
; 400
VBlank5: ; 400
; scx
; palettes
; bg map
; tiles
; joypad
;
; save bank
ld a, [hROMBank]
2013-02-05 12:33:57 -08:00
ld [$ff8a], a
; scroll x
2013-08-19 15:46:56 -07:00
ld a, [hSCX]
2013-02-19 23:46:40 -08:00
ld [rSCX], a
2013-02-05 12:33:57 -08:00
; if we can update pals, skip this part
call UpdatePalsIfCGB
jr c, .vblankoccurred
call UpdateBGMap
call Serve2bppRequest
2013-02-05 12:33:57 -08:00
.vblankoccurred
; tell other fns vblank happened
xor a
ld [VBlankOccurred], a
; joypad
call Joypad
; discard requested ints
xor a
2013-02-19 23:46:40 -08:00
ld [rIF], a
2013-02-05 12:33:57 -08:00
; enable lcd stat
ld a, %10 ; lcd stat
2013-02-19 23:46:40 -08:00
ld [rIE], a
2013-02-05 12:33:57 -08:00
; request lcd stat
2013-02-19 23:46:40 -08:00
ld [rIF], a
2013-02-05 12:33:57 -08:00
ei
; update sound
ld a, BANK(_UpdateSound)
2013-02-05 12:33:57 -08:00
rst Bankswitch ; bankswitch
call _UpdateSound
2013-02-05 12:33:57 -08:00
; restore bank
ld a, [$ff8a]
rst Bankswitch
di
; discard requested ints
xor a
2013-02-19 23:46:40 -08:00
ld [rIF], a
2013-02-05 12:33:57 -08:00
; enable ints besides joypad
ld a, %1111 ; serial timer lcdstat vblank
2013-02-19 23:46:40 -08:00
ld [rIE], a
2013-02-05 12:33:57 -08:00
ret
; 436
VBlank6: ; 436
; palettes
; tiles
; dma transfer
; sound
; save bank
ld a, [hROMBank]
2013-02-05 12:33:57 -08:00
ld [$ff8a], a
; inc frame counter
ld hl, $ff9b
inc [hl]
call UpdateCGBPals
jr c, .vblankoccurred
call Serve2bppRequest
call Serve1bppRequest
2013-02-05 12:33:57 -08:00
call DMATransfer
.vblankoccurred
; tell other fns vblank happened
xor a
ld [VBlankOccurred], a
; update sound
ld a, BANK(_UpdateSound)
2013-02-05 12:33:57 -08:00
rst Bankswitch ; bankswitch
call _UpdateSound
2013-02-05 12:33:57 -08:00
; restore bank
ld a, [$ff8a]
rst Bankswitch
ret
; 45a