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:
parent
deeecae2ce
commit
f78fce218c
@ -37,6 +37,7 @@ OBJS= _scrsize.o \
|
||||
crt0.o \
|
||||
ctype.o \
|
||||
cvline.o \
|
||||
get_ostype.o \
|
||||
getenv.o \
|
||||
joy_stddrv.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
|
Loading…
Reference in New Issue
Block a user