mirror of
https://github.com/cc65/cc65.git
synced 2024-08-16 12:29:03 +00:00
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
|