pokecrystal-board/home/delay.asm

DelayFrame::
; Wait for one frame
	ld a, 1
	ld [wVBlankOccurred], a

; Wait for the next VBlank, halting to conserve battery
.halt
	halt ; rgbasm adds a nop after this instruction by default
	ld a, [wVBlankOccurred]
	and a
	jr nz, .halt
	ret

DelayFrames::
; Wait c frames
	call DelayFrame
	dec c
	jr nz, DelayFrames
	ret
Remove all address comments 2018-06-24 16:09:41 +02:00			`DelayFrame::`
split out delay functions 2013-09-03 17:36:55 -04:00			`; Wait for one frame`
			`ld a, 1`
Prefix wram labels with w, part 2. 2018-01-23 17:39:09 -05:00			`ld [wVBlankOccurred], a`
split out delay functions 2013-09-03 17:36:55 -04:00
			`; Wait for the next VBlank, halting to conserve battery`
			`.halt`
			`halt ; rgbasm adds a nop after this instruction by default`
Prefix wram labels with w, part 2. 2018-01-23 17:39:09 -05:00			`ld a, [wVBlankOccurred]`
split out delay functions 2013-09-03 17:36:55 -04:00			`and a`
			`jr nz, .halt`
			`ret`

Remove all address comments 2018-06-24 16:09:41 +02:00			`DelayFrames::`
split out delay functions 2013-09-03 17:36:55 -04:00			`; Wait c frames`
			`call DelayFrame`
			`dec c`
			`jr nz, DelayFrames`
			`ret`