The spans do now contain the size of a span, no longer the end offset.

[cc65] / libsrc / atari / tvtype.s

diff --git a/libsrc/atari/tvtype.s b/libsrc/atari/tvtype.s
index ff09d857390e718464725aba8cd1d7f59a83d5d6..84540b898e02f0ab1b56a3633472d9ca76982184 100644 (file)
--- a/libsrc/atari/tvtype.s
+++ b/libsrc/atari/tvtype.s
@@ -1,19 +1,26 @@
 ;
-; Christian Groessler, December 2000
+; Christian Groessler, July 2004
 ;
 ; unsigned char get_tv(void)
 ;
 ; returns the TV system the machine is using
+; 0 - NTSC
+; 1 - PAL
 ;
 
 
        .include        "atari.inc"
-       .export         _get_tv
+       .include        "get_tv.inc"
 
 .proc  _get_tv
 
-       lda     PALNTS
-       ldx     #0
+       ldx     #TV::NTSC       ; Assume NTSC
+       lda     PAL             ; use hw register, PALNTS is only supported on XL/XE ROM
+       and     #$0e
+       bne     @NTSC
+       inx                     ; = TV::PAL
+@NTSC: txa
+       ldx     #0              ; Expand to int
        rts
 
 .endproc