diff --git a/libsrc/pet/get_tv.s b/libsrc/pet/get_tv.s
new file mode 100644
index 000000000..07e1fccad
--- /dev/null
+++ b/libsrc/pet/get_tv.s
@@ -0,0 +1,22 @@
+;
+; Ullrich von Bassewitz, 2004-10-26
+;
+; unsigned char __fastcall__ get_tv (void);
+; /* Return the video mode the machine is using */
+;
+
+        .include        "pet.inc"
+	.include	"get_tv.inc"
+
+;--------------------------------------------------------------------------
+; _get_tv
+
+.proc   _get_tv
+
+        lda     #TV::OTHER
+        ldx     #0
+        rts
+
+.endproc
+
+