Initial code for controlling A2Heavin FastChip //e
This commit is contained in:
mgcaret
parent
332a2294d6
commit
9f96a85a28
2
Makefile
2
Makefile
|
|
@ -5,7 +5,7 @@ BOOTDSK=~/vii_hd.2mg
|
|||
CA65=ca65
|
||||
LD65=utils/auto_origin.sh ld65
|
||||
GENHELP=utils/gen_help.sh
|
||||
MG_CMDS=at.info.p8c at.zones.p8c afp.userprefix.p8c afp.sessions.p8c alias.p8c at.boot.p8c deschw.p8c dmem.p8c nbp.lookup.p8c tardis.p8c nbp.parse.p8c iie.card.p8c idemu.p8c mig.insp.p8c
|
||||
MG_CMDS=at.info.p8c at.zones.p8c afp.userprefix.p8c afp.sessions.p8c alias.p8c at.boot.p8c deschw.p8c dmem.p8c nbp.lookup.p8c tardis.p8c nbp.parse.p8c iie.card.p8c idemu.p8c mig.insp.p8c fastchip.p8c
|
||||
|
||||
.PHONY: all
|
||||
all: shk ;
|
||||
|
|
|
|||
|
|
@ -0,0 +1,496 @@
|
|||
; %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
|
||||
Loading…
Reference in New Issue