mirror of
https://github.com/cc65/cc65.git
synced 2024-09-16 09:56:13 +00:00
f78fce218c
git-svn-id: svn://svn.cc65.org/cc65/trunk@2290 b7a2c559-68d2-44c3-8de9-860c34a00d81
21 lines
223 B
ArmAsm
21 lines
223 B
ArmAsm
;
|
|
; 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
|