pokecrystal/home/delay.asm

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

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


DelayFrames:: ; 468
; Wait c frames
	call DelayFrame
	dec c
	jr nz, DelayFrames
	ret
; 46f
Use :: to export labels between objects. This fixes the build. 2014-02-02 01:26:39 +00:00			`DelayFrame:: ; 45a`
split out delay functions 2013-09-03 21:36:55 +00:00			`; Wait for one frame`
			`ld a, 1`
			`ld [VBlankOccurred], a`

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


Use :: to export labels between objects. This fixes the build. 2014-02-02 01:26:39 +00:00			`DelayFrames:: ; 468`
split out delay functions 2013-09-03 21:36:55 +00:00			`; Wait c frames`
			`call DelayFrame`
			`dec c`
			`jr nz, DelayFrames`
			`ret`
			`; 46f`