From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Tue, 12 Aug 2003 17:48:31 +0000 (+0000)
Subject: Added get_ostype.s
X-Git-Tag: V2.12.0~1436
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=f78fce218c7613b307efcaebfeb3d30068f0bdd9;p=cc65

Added get_ostype.s


git-svn-id: svn://svn.cc65.org/cc65/trunk@2290 b7a2c559-68d2-44c3-8de9-860c34a00d81
---

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