mirror of
https://github.com/mgcaret/davex-mg-utils.git
synced 2024-12-22 00:29:15 +00:00
497 lines
12 KiB
ArmAsm
497 lines
12 KiB
ArmAsm
|
; %help
|
||
|
|
; fastchip -- Control A2Heaven FastChip //e
|
||
|
|
;
|
||
|
|
; options:
|
||
|
|
; -l List speeds and exit
|
||
|
|
; -e <num> Enable FastChip, 1 = on, 0 = off (sync)
|
||
|
|
; -s <num> Set speed, 0-40, see -l for list of speed values
|
||
|
|
; -p <str> Set slot speeds, slot numbers in str are set to fast, rest slow.
|
||
|
|
; -a <num> Set audio (speaker) delay, 0-4 (Off/Fast/Normal/Music/Hifi)
|
||
|
|
; -j <num> Set joystick delay, 0-2 (Off/Short/Long)
|
||
|
|
; -b <num> Set backlight, 0-5 (Off/Fade/Speed/R/G/B)
|
||
|
|
;
|
||
|
|
; No options: List current settings
|
||
|
|
; %hend
|
||
|
|
|
||
|
|
UNLOCKV = $6a
|
||
|
|
LOCKV = $a6
|
||
|
|
CFG_SPEED = $00
|
||
|
|
CFG_SLOTS = $01
|
||
|
|
CFG_SPKR = $02
|
||
|
|
CFG_JSTCK = $03
|
||
|
|
CFG_RFENA = $04
|
||
|
|
CFG_RFSLT = $05
|
||
|
|
CFG_RWENA = $06
|
||
|
|
CFG_LIGHT = $07
|
||
|
|
|
||
|
|
ch = $24
|
||
|
|
|
||
|
|
fcbase = $c06a
|
||
|
|
|
||
|
|
showall = xczpage ; if nonzero, don't show all settings
|
||
|
|
myidx = showall+1 ; index variable
|
||
|
|
mytemp = myidx+1 ; temp for use in setting/showing/misc
|
||
|
|
mytemp1 = mytemp+1
|
||
|
|
|
||
|
|
;cout = $fded
|
||
|
|
prbyte = $fdda
|
||
|
|
|
||
|
|
.p02
|
||
|
|
.include "davex-mg.inc"
|
||
|
|
|
||
|
|
DX_start dx_mg_auto_origin ; load address
|
||
|
|
DX_info $01,$12,dx_cc_iie_or_iigs,$00
|
||
|
|
DX_ptab
|
||
|
|
DX_parm 'l',t_nil ; list speeds
|
||
|
|
DX_end_ptab
|
||
|
|
DX_desc "Control FastChip //e."
|
||
|
|
DX_main
|
||
|
|
; let user list speeds even if not on a supported machine
|
||
|
|
lda #'l'|$80 ; list speed?
|
||
|
|
jsr xgetparm_ch
|
||
|
|
bcs :+
|
||
|
|
jmp listspeeds
|
||
|
|
; davex has already identified the machine as a //e or IIgs
|
||
|
|
: sec
|
||
|
|
jsr checkmach ; see if IIgs
|
||
|
|
bcs :+ ; not a IIgs
|
||
|
|
badiie: lda #$01
|
||
|
|
jsr xredirect
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "This program requires an Apple //e"
|
||
|
|
.byte $8d,$00
|
||
|
|
exiterr: lda #$ff
|
||
|
|
jsr xredirect
|
||
|
|
jmp xerr
|
||
|
|
: lda $fbdd ; //e Card ID byte
|
||
|
|
cmp #$02
|
||
|
|
beq badiie ; not gonna work
|
||
|
|
; meat and potatoes now follow
|
||
|
|
jsr fcdetect
|
||
|
|
bcc doit
|
||
|
|
bcs doit ; TESTING!
|
||
|
|
lda #$01
|
||
|
|
jsr xredirect
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "No FastChip detected!"
|
||
|
|
.byte $8d,$00
|
||
|
|
jmp exiterr
|
||
|
|
doit: lda #$00
|
||
|
|
sta showall
|
||
|
|
jsr try_all
|
||
|
|
lda showall
|
||
|
|
bne :+
|
||
|
|
jsr show_all
|
||
|
|
: rts
|
||
|
|
; Try all config setting options
|
||
|
|
.proc try_all
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
; Show all current settings
|
||
|
|
.proc show_all
|
||
|
|
jsr fcunlock
|
||
|
|
jsr show_state
|
||
|
|
jsr show_speed
|
||
|
|
jsr show_slots
|
||
|
|
jsr show_speaker
|
||
|
|
jsr show_joystick
|
||
|
|
jsr show_backlight
|
||
|
|
jsr show_slinky
|
||
|
|
jsr show_aux
|
||
|
|
jsr fclock
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
.proc show_state
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "FastChip: "
|
||
|
|
.byte $00
|
||
|
|
lda fcbase+1
|
||
|
|
rol
|
||
|
|
rol
|
||
|
|
and #$01
|
||
|
|
jsr pr_onoff
|
||
|
|
: lda #$8d
|
||
|
|
jsr cout
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
.proc show_speed
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Speed: "
|
||
|
|
.byte $00
|
||
|
|
lda #CFG_SPEED
|
||
|
|
sta fcbase+5 ; config reg
|
||
|
|
lda fcbase+6 ; get speed
|
||
|
|
pha ; save it
|
||
|
|
tay ; and put in y for printing
|
||
|
|
lda #$00 ; high byte for printing
|
||
|
|
jsr xprdec_2
|
||
|
|
jsr xmess
|
||
|
|
asc_hi " = "
|
||
|
|
.byte $00
|
||
|
|
pla ; get speed back
|
||
|
|
jsr print_speed ; print it
|
||
|
|
bcs :+ ; skip if non-number printed by print_speed
|
||
|
|
jsr xmess
|
||
|
|
asc_hi " MHz"
|
||
|
|
.byte $00
|
||
|
|
: lda #$8d
|
||
|
|
jsr cout
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
.proc show_slots
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Slots: "
|
||
|
|
.byte $00
|
||
|
|
lda #CFG_SLOTS
|
||
|
|
sta fcbase+5
|
||
|
|
lda fcbase+6
|
||
|
|
lsr ; slot zero bit unused
|
||
|
|
sta temp
|
||
|
|
lda #'1'|$80
|
||
|
|
sta myidx
|
||
|
|
lp: jsr cout ; myidx reloaded at end of loop
|
||
|
|
lsr temp ; get slot bit into carry
|
||
|
|
bcc :+ ; fast are marked with 1 bits
|
||
|
|
lda #'+'|$80 ; indicate fast
|
||
|
|
bne :++ ; always
|
||
|
|
: lda #' '|$80 ; indicate slow
|
||
|
|
: jsr cout ; print fast/slow
|
||
|
|
lda #' '|$80 ; now get a space for separation
|
||
|
|
jsr cout ; print it
|
||
|
|
inc myidx ; next slot
|
||
|
|
lda myidx ; get it
|
||
|
|
cmp #'8'|$80 ; done with slots?
|
||
|
|
bcc lp ; nope, print this one
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "(+ = fast)"
|
||
|
|
.byte $8d,$00
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
.proc show_speaker
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Speaker: "
|
||
|
|
.byte $00
|
||
|
|
lda #CFG_SPKR
|
||
|
|
sta fcbase+5
|
||
|
|
ldx fcbase+6
|
||
|
|
bne :+
|
||
|
|
jsr pr_off
|
||
|
|
lda #$8d
|
||
|
|
jsr cout
|
||
|
|
rts
|
||
|
|
: dex
|
||
|
|
bne :+
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Fast"
|
||
|
|
.byte $8d,$00
|
||
|
|
rts
|
||
|
|
: dex
|
||
|
|
bne :+
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Normal"
|
||
|
|
.byte $8d,$00
|
||
|
|
rts
|
||
|
|
: dex
|
||
|
|
bne :+
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Music"
|
||
|
|
.byte $8d,$00
|
||
|
|
rts
|
||
|
|
: dex
|
||
|
|
bne :+
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "HiFi"
|
||
|
|
.byte $8d,$00
|
||
|
|
rts
|
||
|
|
: jsr pr_err
|
||
|
|
lda #$8d
|
||
|
|
jsr cout
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
.proc show_joystick
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Joystick: "
|
||
|
|
.byte $00
|
||
|
|
lda #CFG_JSTCK
|
||
|
|
sta fcbase+5
|
||
|
|
ldx fcbase+6
|
||
|
|
bne :+
|
||
|
|
jsr pr_off
|
||
|
|
lda #$8d
|
||
|
|
jsr cout
|
||
|
|
rts
|
||
|
|
: dex
|
||
|
|
bne :+
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Short"
|
||
|
|
.byte $8d,$00
|
||
|
|
rts
|
||
|
|
: dex
|
||
|
|
bne :+
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Long"
|
||
|
|
.byte $8d,$00
|
||
|
|
rts
|
||
|
|
: jsr pr_err
|
||
|
|
lda #$8d
|
||
|
|
jsr cout
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
.proc show_backlight
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Backlight: "
|
||
|
|
.byte $00
|
||
|
|
lda #CFG_LIGHT
|
||
|
|
sta fcbase+5
|
||
|
|
ldx fcbase+6
|
||
|
|
bne :+
|
||
|
|
jsr pr_off
|
||
|
|
lda #$8d
|
||
|
|
jsr cout
|
||
|
|
rts
|
||
|
|
: dex
|
||
|
|
bne :+
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Fade"
|
||
|
|
.byte $8d,$00
|
||
|
|
rts
|
||
|
|
: dex
|
||
|
|
bne :+
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Speed"
|
||
|
|
.byte $8d,$00
|
||
|
|
rts
|
||
|
|
: dex
|
||
|
|
bne :+
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Red"
|
||
|
|
.byte $8d,$00
|
||
|
|
rts
|
||
|
|
: dex
|
||
|
|
bne :+
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Green"
|
||
|
|
.byte $8d,$00
|
||
|
|
rts
|
||
|
|
: dex
|
||
|
|
bne :+
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Blue"
|
||
|
|
.byte $8d,$00
|
||
|
|
rts
|
||
|
|
: jsr pr_err
|
||
|
|
lda #$8d
|
||
|
|
jsr cout
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
.proc show_slinky
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Slinky: "
|
||
|
|
.byte $00
|
||
|
|
lda #CFG_RFENA
|
||
|
|
sta fcbase+5
|
||
|
|
lda fcbase+6
|
||
|
|
jsr pr_onoff
|
||
|
|
jsr xmess
|
||
|
|
asc_hi ", slot "
|
||
|
|
.byte $00
|
||
|
|
lda #CFG_RFSLT
|
||
|
|
sta fcbase+5
|
||
|
|
ldy fcbase+6
|
||
|
|
lda #$00
|
||
|
|
jsr xprdec_2
|
||
|
|
lda #$8d
|
||
|
|
jsr cout
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
.proc show_aux
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Aux RAM: "
|
||
|
|
.byte $00
|
||
|
|
lda #CFG_RWENA
|
||
|
|
sta fcbase+5
|
||
|
|
lda fcbase+6
|
||
|
|
jsr pr_onoff
|
||
|
|
lda #$8d
|
||
|
|
jsr cout
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
; detect fastchip //e. If present, return carry clear
|
||
|
|
; otherwise return carry set.
|
||
|
|
.proc fcdetect
|
||
|
|
jsr fcunlock
|
||
|
|
lda fcbase+1 ; current state
|
||
|
|
php ; save it (S flag)
|
||
|
|
sta fcbase+1 ; enable FC
|
||
|
|
lda fcbase+1 ; now see if it's there
|
||
|
|
bpl notfound ; bit 7 set if present and enabled
|
||
|
|
ldy fcbase+4 ; speed reg
|
||
|
|
lda #$21 ; 5.0 MHz
|
||
|
|
sta fcbase+4
|
||
|
|
eor fcbase+4 ; should be 0 now
|
||
|
|
sty fcbase+4 ; restore value
|
||
|
|
bne notfound ; or not found
|
||
|
|
sta fcbase+5 ; config register select, 0 = speed
|
||
|
|
ldx fcbase+6 ; config register data
|
||
|
|
eor fcbase+4 ; should be 0 again
|
||
|
|
bne notfound ; if not, no fastchip
|
||
|
|
; at this point we have a high degree of confidence that FC is there
|
||
|
|
plp ; get initial state
|
||
|
|
bpl setslow ; was it disabled?
|
||
|
|
bmi found
|
||
|
|
setslow: sta fcbase ; a=0 from above; disable it
|
||
|
|
found: jsr fclock
|
||
|
|
clc
|
||
|
|
rts
|
||
|
|
notfound: plp ; clean stack and get orig
|
||
|
|
sec
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
.proc fcunlock
|
||
|
|
lda #UNLOCKV
|
||
|
|
sta fcbase
|
||
|
|
sta fcbase
|
||
|
|
sta fcbase
|
||
|
|
sta fcbase
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
.proc fclock
|
||
|
|
lda #LOCKV
|
||
|
|
sta fcbase
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
.proc listspeeds
|
||
|
|
lda #$00
|
||
|
|
sta num+2 ; clear upper bytes of num
|
||
|
|
sta num+1
|
||
|
|
lda #41
|
||
|
|
sta myidx
|
||
|
|
spdlp: dec myidx ; next index
|
||
|
|
bmi done
|
||
|
|
lda myidx ; get it into accumulator
|
||
|
|
sta num ; prepare to print
|
||
|
|
pha ; save it
|
||
|
|
and #%11 ; mask off low bits
|
||
|
|
php ; save Z flag
|
||
|
|
tax
|
||
|
|
lda tabstops,x ; get tab stop for table
|
||
|
|
sta ch ; set cursor pos
|
||
|
|
plp
|
||
|
|
bne :+ ; if 0, no cr
|
||
|
|
lda #$8d
|
||
|
|
jsr cout
|
||
|
|
: ldy #$01 ; field width-1
|
||
|
|
jsr xprdec_pady
|
||
|
|
lda #'='|$80
|
||
|
|
jsr cout
|
||
|
|
pla ; get speed back
|
||
|
|
jsr print_speed ; and print it
|
||
|
|
lda #' '|$80 ; in case output doesn't respect ch
|
||
|
|
jsr cout
|
||
|
|
jmp spdlp
|
||
|
|
done: jsr xmess
|
||
|
|
.byte $8d,$00
|
||
|
|
rts
|
||
|
|
tabstops: .byte 0,30,20,10
|
||
|
|
.endproc
|
||
|
|
; print fastchip speed in MHz from value in A
|
||
|
|
; returns carry clear if a number was printed
|
||
|
|
; carry set otherwise
|
||
|
|
.proc print_speed
|
||
|
|
cmp #41
|
||
|
|
bcs invalid
|
||
|
|
ora #$00
|
||
|
|
beq off
|
||
|
|
asl
|
||
|
|
tax
|
||
|
|
ldy spdtab,x ; MHz
|
||
|
|
inx
|
||
|
|
lda spdtab,x ; decimal
|
||
|
|
pha ; save it
|
||
|
|
lda #$00
|
||
|
|
jsr xprdec_2 ; print MHz in AY
|
||
|
|
lda #'.'|$80
|
||
|
|
jsr cout
|
||
|
|
pla ; get decimal back
|
||
|
|
tay
|
||
|
|
lda #$00
|
||
|
|
jsr xprdec_2 ; print decimal in AY
|
||
|
|
clc
|
||
|
|
rts
|
||
|
|
invalid: jsr pr_err
|
||
|
|
sec
|
||
|
|
rts
|
||
|
|
off: jsr pr_off
|
||
|
|
sec
|
||
|
|
rts
|
||
|
|
; speed table... each pair is MHZ.decimal
|
||
|
|
spdtab: .byte 0,0,0,2,0,3
|
||
|
|
.byte 0,4,0,5,0,6
|
||
|
|
.byte 0,7,0,8,0,9
|
||
|
|
.byte 1,0,1,1,1,2
|
||
|
|
.byte 1,3,1,4,1,5
|
||
|
|
.byte 1,6,1,7,1,8
|
||
|
|
.byte 1,9,2,0,2,1
|
||
|
|
.byte 2,2,2,3,2,5
|
||
|
|
.byte 2,6,2,7,2,9
|
||
|
|
.byte 3,1,3,3,3,5
|
||
|
|
.byte 3,8,4,1,4,55
|
||
|
|
.byte 5,0,5,5,6,2
|
||
|
|
.byte 7,1,8,3,10,0
|
||
|
|
.byte 12,5,16,6
|
||
|
|
.endproc
|
||
|
|
.proc pr_err
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Err!"
|
||
|
|
.byte $00
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
.proc pr_onoff
|
||
|
|
ora #$00
|
||
|
|
beq pr_off
|
||
|
|
cmp #$01
|
||
|
|
bne pr_err
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "On"
|
||
|
|
.byte $00
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
.proc pr_off
|
||
|
|
jsr xmess
|
||
|
|
asc_hi "Off"
|
||
|
|
.byte $00
|
||
|
|
rts
|
||
|
|
.endproc
|
||
|
|
; set carry if disk II
|
||
|
|
; clear carry if not
|
||
|
|
.proc is_disk_ii
|
||
|
|
ora #$c0
|
||
|
|
sta mytemp+1
|
||
|
|
lda #$00
|
||
|
|
sta mytemp
|
||
|
|
ldx #$03
|
||
|
|
: ldy idloc,x
|
||
|
|
lda (mytemp),y
|
||
|
|
cmp idval,x
|
||
|
|
bne :+
|
||
|
|
dex
|
||
|
|
bpl :-
|
||
|
|
sec
|
||
|
|
rts
|
||
|
|
: clc
|
||
|
|
rts
|
||
|
|
idloc: .byte $01,$03,$05,$ff
|
||
|
|
idval: .byte $20,$00,$03,$00
|
||
|
|
.endproc
|
||
|
|
DX_end
|