mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-11-16 11:27:33 -08:00
21 lines
275 B
NASM
21 lines
275 B
NASM
DelayFrame::
|
|
; Wait for one frame
|
|
ld a, 1
|
|
ldh [hVBlankOccurred], a
|
|
|
|
; Wait for the next VBlank, halting to conserve battery
|
|
.halt
|
|
halt
|
|
nop
|
|
ldh a, [hVBlankOccurred]
|
|
and a
|
|
jr nz, .halt
|
|
ret
|
|
|
|
DelayFrames::
|
|
; Wait c frames
|
|
call DelayFrame
|
|
dec c
|
|
jr nz, DelayFrames
|
|
ret
|