git.sur5r.net Git - cc65/blob - libsrc/vic20/waitvblank.s

   1         .export         _waitvblank
   2
   3         .include        "vic20/vic20.inc"
   4
   5 _waitvblank:
   6         lda     PALFLAG
   7         beq     @ntsc
   8         ldx     #(312-8)/2
   9         .byte $2c
  10 @ntsc:
  11         ldx     #(262-8)/2
  12 @l2:
  13         cpx     VIC_HLINE
  14         bcs     @l2
  15         rts
  16