From f78fce218c7613b307efcaebfeb3d30068f0bdd9 Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Tue, 12 Aug 2003 17:48:31 +0000
Subject: [PATCH] Added get_ostype.s

git-svn-id: svn://svn.cc65.org/cc65/trunk@2290 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/apple2/Makefile     |  1 +
 libsrc/apple2/get_ostype.s | 20 ++++++++++++++++++++
 2 files changed, 21 insertions(+)
 create mode 100644 libsrc/apple2/get_ostype.s

diff --git a/libsrc/apple2/Makefile b/libsrc/apple2/Makefile
index ccbe19f15..75addc827 100644
--- a/libsrc/apple2/Makefile
+++ b/libsrc/apple2/Makefile
@@ -37,6 +37,7 @@ OBJS=	_scrsize.o	\
 	crt0.o		\
 	ctype.o		\
 	cvline.o	\
+        get_ostype.o    \
         getenv.o        \
         joy_stddrv.o    \
 	kbhit.o		\
diff --git a/libsrc/apple2/get_ostype.s b/libsrc/apple2/get_ostype.s
new file mode 100644
index 000000000..b686cbb79
--- /dev/null
+++ b/libsrc/apple2/get_ostype.s
@@ -0,0 +1,20 @@
+;
+; Stefan Haubenthal, Jul 12 2003
+;
+; unsigned char get_ostype(void)
+;
+; $23 ProDOS 2.0.3
+;
+
+	.export		_get_ostype
+
+.proc	_get_ostype
+
+	lda	#0
+	ldx	$bf00
+	cpx	#$4c	; JMP opcode
+	bne	nopdos
+	lda	$bfff
+nopdos:	rts
+
+.endproc
-- 
2.39.5