returns television system

git-svn-id: svn://svn.cc65.org/cc65/trunk@546 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/atari/tvtype.s b/libsrc/atari/tvtype.s
new file mode 100644 (file)
index 0000000..ff09d85
--- /dev/null
+++ b/libsrc/atari/tvtype.s
@@ -0,0 +1,19 @@
+;
+; Christian Groessler, December 2000
+;
+; unsigned char get_tv(void)
+;
+; returns the TV system the machine is using
+;
+
+
+       .include        "atari.inc"
+       .export         _get_tv
+
+.proc  _get_tv
+
+       lda     PALNTS
+       ldx     #0
+       rts
+
+.endproc