Some small first changes for the 'atarixl' target.

[cc65] / libsrc / atari / tvtype.s

diff --git a/libsrc/atari/tvtype.s b/libsrc/atari/tvtype.s
index 96d672247c08d3a969692110174ba7c152d0ea70..76661bf7261ba29e7709502967330276928c55cd 100644 (file)
--- a/libsrc/atari/tvtype.s
+++ b/libsrc/atari/tvtype.s
@@ -1,5 +1,5 @@
 ;
-; Christian Groessler, November 2001
+; Christian Groessler, July 2004
 ;
 ; unsigned char get_tv(void)
 ;
@@ -9,18 +9,18 @@
 ;
 
 
-       .include        "atari.inc"
-       .export         _get_tv
+        .include        "atari.inc"
+        .include        "get_tv.inc"
 
-.proc  _get_tv
+.proc   _get_tv
 
-       lda     PAL             ; use hw register, PALNTS is only supported on XL/XE ROM
-       ldx     #0
-       and     #$0e
-       bne     @NTSC
-       lda     #1
-       rts
-@NTSC: txa
-       rts
+        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