diff --git a/libsrc/atari/tvtype.s b/libsrc/atari/tvtype.s
new file mode 100644
index 000000000..ff09d8573
--- /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