;--------------------
; Video Subroutines
;--------------------

SECTION "VBlank Int", ROM0[$40]
   ld a, 1
   ld [hVBlankFlag], a
   reti

SECTION "Vid Subs", ROM0

Wait_VBlank::
   ld   hl, hVBlankFlag  ; hl=pointer to vblank_flag
.wait:                   ; wait...
   halt                  ; suspend CPU - wait for ANY interrupt
   nop
   xor a
   cp   a,[hl]           ; vblank flag still zero?
   jr   z, .wait         ; wait more if zero
   ld   [hl],a           ; set vblank_flag back to zero
   ret