mirror of
https://github.com/cc65/cc65.git
synced 2024-06-01 13:41:34 +00:00
166a4b25f7
Also publish detect_iigs(), set_iigs_speed() and get_iigs_speed(). Refactor to only store one ostype variable.
23 lines
575 B
ArmAsm
23 lines
575 B
ArmAsm
;
|
|
; Colin Leroy-Mira <colin@colino.net>, 2024
|
|
;
|
|
; unsigned char __fastcall__ get_iigs_speed(void)
|
|
;
|
|
|
|
.export _get_iigs_speed
|
|
.import ostype, return0
|
|
|
|
.include "apple2.inc"
|
|
.include "accelerator.inc"
|
|
|
|
_get_iigs_speed:
|
|
lda ostype ; Return SLOW if not IIgs
|
|
bpl :+
|
|
lda CYAREG ; Check current setting
|
|
bpl :+
|
|
lda #SPEED_FAST
|
|
ldx #$00
|
|
rts
|
|
.assert SPEED_SLOW = 0, error
|
|
: jmp return0 ; SPEED_SLOW
|