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

   1 ;
   2 ; Ullrich von Bassewitz, 2002-12-03
   3 ;
   4 ; unsigned char get_tv (void);
   5 ; /* Return the video mode the machine is using */
   6 ;
   7
   8         .include        "get_tv.inc"
   9         .include        "c128.inc"
  10
  11
  12 ;--------------------------------------------------------------------------
  13 ; _get_tv
  14
  15 .proc   _get_tv
  16
  17         ldx     #TV::PAL        ; Assume PAL
  18         lda     PALFLAG
  19         bne     pal
  20         dex                     ; NTSC
  21 pal:    txa
  22         ldx     #0
  23         rts
  24
  25 .endproc