rename libsrc/atari/tvtype.s to libsrc/atari/get_tv.s

2014-03-04 15:43:33 +01:00
parent 66f1a80f4e
commit bf8eb8c22e
1 changed files with 0 additions and 0 deletions
--- a/libsrc/atari/get_tv.s
+++ b/libsrc/atari/get_tv.s
@@ -0,0 +1,26 @@
+;
+; Christian Groessler, July 2004
+;
+; unsigned char get_tv(void)
+;
+; returns the TV system the machine is using
+; 0 - NTSC
+; 1 - PAL
+;
+
+
+        .include        "atari.inc"
+        .include        "get_tv.inc"
+
+.proc   _get_tv
+
+        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