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

   1
   2         .export         _waitvblank
   3
   4         .include        "c128.inc"
   5
   6 _waitvblank:
   7 @l1:
   8         lda     VIC_CTRL1
   9         bpl     @l1
  10 @l2:
  11         lda     VIC_CTRL1
  12         bmi     @l2
  13         rts