Apple-2-SW
/
davex-mg-utils
mirror of https://github.com/mgcaret/davex-mg-utils.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

iie.card: better speed setter routine; mig.insp: enable ROM ID

This commit is contained in:
mgcaret 2017-09-26 19:13:40 -07:00
parent b9a7876f62
commit b8cba65dec
2 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
iie.card.s
View File

@ -99,20 +99,19 @@ fast: jsr xmess
rts rts
.endproc .endproc
.proc setspeed .proc setspeed
cpy #$00 lda #%00000100 ; bit position of speed in $c05c and $c02b
cpy #$00 ; y reg will determine selected speed. Is 0?
beq norm ; set normal beq norm ; set normal
dey dey ; is 1?
beq fast beq fast ; fast instead
lda $c05c ; default fall through to option panel speed
and #%00000100 ; bit 2 = option panel speed trb $c02b ; default to slow
beq norm and $c05c ; bit 2 of $c05c reflects option panel setting
fast: lda #%00000100 ; fall through to tsb, which will do nothing if a = $00 (slow)
ora $c02b fast: tsb $c02b
store: sta $c02b rts
norm: trb $c02b
rts rts
norm: lda #%11111011
and $c02b
bra store
.endproc .endproc
.proc dispslot .proc dispslot
jsr xmess jsr xmess

2
mig.insp.s
View File

@ -45,7 +45,7 @@
.include "davex-mg.inc" .include "davex-mg.inc"
; build options ; build options
SKIPROMID = 1 ; skip ROM identification SKIPROMID = 0 ; skip ROM identification
; lets you use on a non- ; lets you use on a non-
; IIc Plus, but obviously ; IIc Plus, but obviously
; isn't useful beyond some ; isn't useful beyond some