diff --git a/libsrc/atari/tvtype.s b/libsrc/atari/tvtype.s
index ff09d8573..96d672247 100644
--- a/libsrc/atari/tvtype.s
+++ b/libsrc/atari/tvtype.s
@@ -1,9 +1,11 @@
 ;
-; Christian Groessler, December 2000
+; Christian Groessler, November 2001
 ;
 ; unsigned char get_tv(void)
 ;
 ; returns the TV system the machine is using
+; 0 - NTSC
+; 1 - PAL
 ;
 
 
@@ -12,8 +14,13 @@
 
 .proc	_get_tv
 
-	lda	PALNTS
+	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
 
 .endproc