mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-30 15:57:29 +00:00
Kernel 0.94
This commit is contained in:
parent
5f2703b80a
commit
af5d3c5af9
Binary file not shown.
Binary file not shown.
@ -31,7 +31,7 @@ L59A6 lda XRW.LastUnitUsed
|
|||||||
|
|
||||||
L59BD jsr XRW.AllPhaseOff make sure all motor phases are off.
|
L59BD jsr XRW.AllPhaseOff make sure all motor phases are off.
|
||||||
|
|
||||||
lda IO.D2.ReadMode,y turn off write enable Y = slot $S0
|
lda IO.D2.ReadMode,x turn off write enable X = slot $S0
|
||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
|
|
||||||
@ -261,51 +261,71 @@ XRW.Seek asl transform into 1/4 tracks
|
|||||||
sec
|
sec
|
||||||
sbc curtrk
|
sbc curtrk
|
||||||
beq .8
|
beq .8
|
||||||
>DEBUG
|
|
||||||
bcc .2
|
bcc .2
|
||||||
|
|
||||||
cmp #3 A>curtrk, must move in
|
cmp #3 A>curtrk, must move in
|
||||||
bcc .4
|
bcc .3
|
||||||
|
|
||||||
lda #3
|
lda #3
|
||||||
|
bra .3
|
||||||
|
|
||||||
bra .3
|
.2
|
||||||
|
* >DEBUG
|
||||||
.2 cmp #$fd A<curtrk, must move out
|
cmp #$fd A<curtrk, must move out
|
||||||
bcs .3
|
bcs .3
|
||||||
|
|
||||||
lda #$fd
|
lda #$fd
|
||||||
|
|
||||||
.3 clc
|
.3 tax save move direction
|
||||||
.4 adc curtrk
|
|
||||||
sta curtrk
|
|
||||||
|
|
||||||
bit #1
|
clc
|
||||||
beq .5 0,2,4,6
|
adc curtrk
|
||||||
|
sta curtrk
|
||||||
|
|
||||||
pha 1,3,5,7
|
jsr XRW.PhaseOn
|
||||||
inc
|
|
||||||
jsr .7
|
|
||||||
pla
|
|
||||||
|
|
||||||
.5 jsr .7
|
lda #12
|
||||||
|
jsr XRW.Wait100msA Trash X
|
||||||
lda #40
|
|
||||||
jsr XRW.Wait100msA
|
|
||||||
|
|
||||||
jsr XRW.AllPhaseOff
|
jsr XRW.AllPhaseOff
|
||||||
|
|
||||||
bra .1
|
bra .1
|
||||||
|
|
||||||
|
.8 lsr curtrk convert back to track#
|
||||||
|
lsr curtrk
|
||||||
|
rts
|
||||||
|
|
||||||
|
XRW.PhaseOn dex
|
||||||
|
bmi .1
|
||||||
|
|
||||||
|
pha
|
||||||
|
jsr .7
|
||||||
|
pla
|
||||||
|
|
||||||
|
bit #1 1,3,5,7 ?
|
||||||
|
beq .8
|
||||||
|
|
||||||
|
inc
|
||||||
|
bra .7
|
||||||
|
|
||||||
|
.1 bit #1 1,3,5,7 ?
|
||||||
|
beq .7
|
||||||
|
|
||||||
|
pha
|
||||||
|
inc
|
||||||
|
jsr .7
|
||||||
|
pla
|
||||||
|
|
||||||
.7 and #6 mask for 0,2,4,6
|
.7 and #6 mask for 0,2,4,6
|
||||||
ora A2L Slot $n0
|
ora A2L Slot $n0
|
||||||
tax
|
tax
|
||||||
lda IO.D2.Ph0On,x turn on one phase
|
lda IO.D2.Ph0On,x turn on one phase
|
||||||
rts
|
|
||||||
|
|
||||||
.8 lsr curtrk convert back to track#
|
lda #6
|
||||||
lsr curtrk
|
jmp XRW.Wait100msA Trash X
|
||||||
rts
|
|
||||||
|
.8 rts
|
||||||
|
|
||||||
XRW.AllPhaseOff ldx A2L
|
XRW.AllPhaseOff ldx A2L
|
||||||
lda IO.D2.Ph0Off,x make sure all motor phases are off.
|
lda IO.D2.Ph0Off,x make sure all motor phases are off.
|
||||||
|
Loading…
Reference in New Issue
Block a user