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

   1
   2         .export         _waitvblank
   3         .import         PALFLAG
   4         .import         sys_bank, restore_bank
   5
   6         .importzp       vic
   7
   8         .include        "cbm510.inc"
   9
  10 _waitvblank:
  11         rts     ; FIXME
  12
  13         jsr     sys_bank                ; Switch to the system bank
  14
  15         sei
  16
  17         ldy #VIC_CTRL1
  18 @l1:
  19         lda (vic),y
  20         bpl @l1
  21 @l2:
  22         lda (vic),y
  23         bmi @l2
  24
  25         cli
  26         jmp     restore_bank