Added get_ostype.s

git-svn-id: svn://svn.cc65.org/cc65/trunk@2289 b7a2c559-68d2-44c3-8de9-860c34a00d81
2026-04-19 09:28:25 +00:00 · 2003-08-12 17:42:03 +00:00
parent 651e82ac78
commit deeecae2ce
2 changed files with 23 additions and 0 deletions
@@ -35,6 +35,7 @@ OBJS = 	_scrsize.o     	 	\
       	color.o	       	 	\
       	conio.o	       	 	\
       	cputc.o	       	 	\
+        get_ostype.o            \
        get_tv.o                \
 	joy_stddrv.o		\
       	kbhit.o	       	 	\
@@ -0,0 +1,22 @@
+;
+; Stefan Haubenthal, Jul 10 2003
+;
+; unsigned char get_ostype(void)
+;
+; $AA US
+; $64 PET-64
+; $43 SX-64
+; $03 EU_NEW
+; $00 EU_OLD
+;
+
+	.export		_get_ostype
+
+.proc	_get_ostype
+
+	lda	$ff80
+	rts
+
+.endproc
+
+