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

   1 ;
   2 ; Written by Groepaz <groepaz@gmx.net>
   3 ;
   4 ; void waitvsync (void);
   5 ;
   6
   7         .export         _waitvsync
   8
   9         .include        "vic20.inc"
  10
  11 ; FIXME
  12 ; this flag doesnt work on vic20!!!
  13 ; it will have to be filled by a get_tv() constructor or so
  14 PALFLAG         = $2A6          ; $01 = PAL, $00 = NTSC
  15
  16 _waitvsync:
  17         lda     PALFLAG
  18         beq     @ntsc
  19         ldx     #(312-8)/2
  20         .byte $2c
  21 @ntsc:
  22         ldx     #(262-8)/2
  23 @l2:
  24         cpx     VIC_HLINE
  25         bcs     @l2
  26         rts
  27