1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-22 12:30:41 +00:00

Added get_ostype.s

git-svn-id: svn://svn.cc65.org/cc65/trunk@2290 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2003-08-12 17:48:31 +00:00
parent deeecae2ce
commit f78fce218c
2 changed files with 21 additions and 0 deletions

View File

@ -37,6 +37,7 @@ OBJS= _scrsize.o \
crt0.o \
ctype.o \
cvline.o \
get_ostype.o \
getenv.o \
joy_stddrv.o \
kbhit.o \

View File

@ -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