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

   1 ;
   2 ; Stefan Haubenthal, 2018-04-10
   3 ; Based on code by Mike
   4 ;
   5 ; unsigned char get_tv (void);
   6 ; /* Return the video mode the machine is using */
   7 ;
   8
   9         .include        "get_tv.inc"
  10
  11 ;--------------------------------------------------------------------------
  12 ; _get_tv
  13
  14 .proc   _get_tv
  15
  16         ; detect the system
  17         lda     #TV::NTSC
  18         tax
  19         ldy     $EDE4           ; VIC init table
  20         cpy     #5
  21         beq     @L0
  22         lda     #TV::PAL
  23 @L0:    rts                     ; system detected: 0 for NTSC, 1 for PAL
  24
  25 .endproc