mirror of
https://github.com/cc65/cc65.git
synced 2024-08-20 09:29:12 +00:00
30 lines
666 B
ArmAsm
30 lines
666 B
ArmAsm
|
;
|
||
|
; Colin Leroy-Mira <colin@colino.net>, 2024
|
||
|
;
|
||
|
; unsigned char __fastcall__ detect_iigs(unsigned char speed)
|
||
|
;
|
||
|
|
||
|
.export _set_iigs_speed
|
||
|
.import ostype, return0
|
||
|
|
||
|
.include "apple2.inc"
|
||
|
.include "accelerator.inc"
|
||
|
|
||
|
_set_iigs_speed:
|
||
|
tax ; Keep parameter
|
||
|
lda ostype ; Return if not IIgs
|
||
|
bmi :+
|
||
|
jmp return0
|
||
|
|
||
|
: lda CYAREG
|
||
|
cpx #SPEED_SLOW
|
||
|
beq :+
|
||
|
ora #%10000000
|
||
|
bne set_speed
|
||
|
: and #%01111111
|
||
|
set_speed:
|
||
|
sta CYAREG
|
||
|
txa
|
||
|
ldx #$00
|
||
|
rts
|