From 218c98d4d5383a6330ecb4a1e4f58d1eb08186e3 Mon Sep 17 00:00:00 2001
From: Karri Kaksonen <karri@sipo.fi>
Date: Tue, 22 Mar 2022 21:28:35 +0200
Subject: [PATCH] Add get_tv.s

---
 libsrc/atari7800/get_tv.s | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 libsrc/atari7800/get_tv.s

diff --git a/libsrc/atari7800/get_tv.s b/libsrc/atari7800/get_tv.s
new file mode 100644
index 000000000..307a5c58d
--- /dev/null
+++ b/libsrc/atari7800/get_tv.s
@@ -0,0 +1,26 @@
+;
+; Stefan Haubenthal, 2007-01-21
+;
+; unsigned char get_tv (void);
+; /* Return the video mode the machine is using */
+;
+
+        .include        "atari7800.inc"
+        .include        "get_tv.inc"
+        .importzp       tmp1, tmp2
+	.import		_paldetected
+
+;--------------------------------------------------------------------------
+; _get_tv
+
+.proc   _get_tv
+
+        lda	_paldetected
+	beq	ntsc
+	lda	#TV::PAL
+	rts
+ntsc:
+	lda	#TV::NTSC
+	rts
+
+.endproc