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

   1
   2         .export         _waitvblank
   3
   4         .include        "c128/c128.inc"
   5
   6 _waitvblank:
   7         lda     PALFLAG
   8         beq     @ntsc
   9         ldx     #(312-24)-256
  10         .byte $2c
  11 @ntsc:
  12         ldx     #(262-4)-256
  13 @l1:
  14         lda     VIC_CTRL1
  15         and     #$80
  16         beq     @l1
  17 @l2:
  18         cpx     VIC_HLINE
  19         bcs     @l2
  20         rts