Kernel 0.94

ProDOS.FX/ProDOS.S.XRW.txt

@@ -31,7 +31,7 @@ L59A6  			lda XRW.LastUnitUsed
 
 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
 
@@ -261,52 +261,72 @@ XRW.Seek		asl						transform into 1/4 tracks
 				sec
 				sbc	curtrk
 				beq	.8
-			>DEBUG
+
 				bcc	.2
 
 				cmp #3					A>curtrk, must move in
-				bcc .4
+				bcc .3
 
 				lda #3
+				bra .3
 				
-				bra	.3
-				
-.2				cmp #$fd				A<curtrk, must move out
+.2			
+*			>DEBUG
+				cmp #$fd				A<curtrk, must move out
 				bcs .3
 
 				lda #$fd
 
-.3			    clc
-.4				adc curtrk
-				sta	curtrk
-				
-				bit #1
-				beq .5					0,2,4,6
-				
-				pha						1,3,5,7
-				inc
-				jsr .7
-				pla
-				
-.5				jsr .7
+.3			    tax						save move direction
 
-				lda #40
-				jsr XRW.Wait100msA
+				clc
+				adc curtrk
+ 				sta curtrk
+
+				jsr XRW.PhaseOn
+
+				lda #12
+				jsr XRW.Wait100msA		Trash X
 
 				jsr XRW.AllPhaseOff
 				
 				bra .1
 
-.7				and #6					mask for 0,2,4,6
-				ora A2L					Slot $n0
-				tax
-				lda IO.D2.Ph0On,x		turn on one phase
-				rts
-				
 .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
+				ora A2L					Slot $n0
+				tax
+				lda IO.D2.Ph0On,x		turn on one phase
+
+				lda #6
+				jmp XRW.Wait100msA		Trash X
+								
+.8				rts
+				
 XRW.AllPhaseOff	ldx A2L
 				lda IO.D2.Ph0Off,x		make sure all motor phases are off.
 				lda IO.D2.Ph1Off,x