mirror of
https://github.com/cc65/cc65.git
synced 2024-10-19 01:24:38 +00:00
d7cbbc6f46
git-svn-id: svn://svn.cc65.org/cc65/trunk@2689 b7a2c559-68d2-44c3-8de9-860c34a00d81
24 lines
255 B
ArmAsm
24 lines
255 B
ArmAsm
;
|
|
; Stefan Haubenthal, Jul 10 2003
|
|
;
|
|
; unsigned char get_ostype(void)
|
|
;
|
|
; $AA US
|
|
; $64 PET-64
|
|
; $43 SX-64
|
|
; $03 EU_NEW
|
|
; $00 EU_OLD
|
|
;
|
|
|
|
.export _get_ostype
|
|
|
|
.proc _get_ostype
|
|
|
|
ldx #$00 ; Clear high byte
|
|
lda $ff80
|
|
rts
|
|
|
|
.endproc
|
|
|
|
|