Added get_ostype.s
git-svn-id: svn://svn.cc65.org/cc65/trunk@2290 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
@@ -37,6 +37,7 @@ OBJS= _scrsize.o \
|
|||||||
crt0.o \
|
crt0.o \
|
||||||
ctype.o \
|
ctype.o \
|
||||||
cvline.o \
|
cvline.o \
|
||||||
|
get_ostype.o \
|
||||||
getenv.o \
|
getenv.o \
|
||||||
joy_stddrv.o \
|
joy_stddrv.o \
|
||||||
kbhit.o \
|
kbhit.o \
|
||||||
|
|||||||
20
libsrc/apple2/get_ostype.s
Normal file
20
libsrc/apple2/get_ostype.s
Normal 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
|
||||||
Reference in New Issue
Block a user