Kernel 0.94

INC/IO.D2.I.txt

@@ -2,7 +2,7 @@ NEW
   AUTO 3,1
 *--------------------------------------
 IO.D2.SeekTimeR	.EQ 160					LIBBLKDEV Recalibration
-IO.D2.SeekTimeF	.EQ 90					LIBBLKDEV Track Formatter
+IO.D2.SeekTimeF	.EQ 80					LIBBLKDEV Track Formatter
 IO.D2.SeekTimeB	.EQ 60					LIBBLKDEV Boot Block
 IO.D2.SeekTimeP	.EQ 40					ProDOS.FX initial
 IO.D2.SeekTimeI	.EQ 20					ProDOS.FX increment -> until > 128

LIB/LIBBLKDEV.S.BB.txt

@@ -282,8 +282,6 @@ BB.ReadBlock	lda blok 				figure out track & sector.
 				ldx BB.Slotn0
 				lda IO.D2.DrvOn,x
 
-				jsr BB.AllPhasesOff
-
 				jsr BB.Seek 			go read sector.
 
 				inc dbuf+1 				bump address
@@ -306,9 +304,9 @@ BB.Seek			lda BB.HdrTrk			get track we're on
 
 .1				lda BB.CurrentQTrack
 				cmp	BB.TargetQTrack
-				beq .8
+				beq BB.Read
 
-				jsr BB.AllPhasesOff
+.10				jsr BB.AllPhasesOff
 				
 				bcs .2
 
@@ -348,23 +346,29 @@ BB.Seek			lda BB.HdrTrk			get track we're on
 				ora BB.Slotn0
 				tax
 				
-				lda IO.D2.Ph0On,y
-				nop
-				nop
 				lda IO.D2.Ph0On,x
+				nop
+				nop
+				lda IO.D2.Ph0On,y
 				
 				jsr BB.WaitSeekTime
-				bra .1
+				lda BB.CurrentQTrack
+				cmp	BB.TargetQTrack
+				bne .10
 
 .8				jsr BB.Wait25600usec
 				jsr BB.AllPhasesOff
 				bcs BB.Read				ALWAYS
 *--------------------------------------
-BB.AllPhasesOff	ldx BB.Slotn0
-				bit IO.D2.Ph0Off,x
-				bit IO.D2.Ph1Off,x
-				bit IO.D2.Ph2Off,x
-				bit IO.D2.Ph3Off,x
+BB.AllPhasesOff	ldy #4
+				ldx BB.Slotn0
+
+.1				bit IO.D2.Ph0Off,x
+				inx
+				inx
+				dey
+				bne .1
+
 				rts
 *--------------------------------------
 BB.WaitSeekTime	lda #IO.D2.SeekTimeB
@@ -382,7 +386,7 @@ BB.Wait25600usec
 				ldx BB.Slotn0			(3)
 				bit IO.D2.DrvOn,x		(4) Slow down ACC boards
 
-				sec						(6)
+				sec						(2)
 				sbc #1	 				(2)
 				bne .1					(2+)
 				

LIB/LIBBLKDEV.S.D2.txt

@@ -128,14 +128,13 @@ D2MoveHead		>PULLB MoveTo
 				
 .7				jsr D2.Wait25600usec
 
-				lda IO.D2.Ph0Off,y
-				nop
-				nop
 				lda IO.D2.Ph0Off,x
 				nop
 				nop
+				lda IO.D2.Ph0Off,y
+				nop
+				nop
 
-				jsr D2.Wait25600usec
 				jsr D2.Wait25600usec
 				
 				clc

ProDOS.FX/ProDOS.S.XRW.txt

@@ -737,13 +737,17 @@ L57CD  			pla		 				place last byte into user buffer
 				sta (buf),y
 XRW.Read.RTS	rts
 *--------------------------------------
-XRW.Reset		ldx A2L
-				lda IO.D2.Ph0Off,x
-				lda IO.D2.Ph1Off,x
-				lda IO.D2.Ph2Off,x
-				lda IO.D2.Ph3Off,x
+XRW.Reset		ldy #4
+				ldx A2L
 
 				lda IO.D2.ReadMode,x	turn off write enable X = slot $S0
+
+.1				lda IO.D2.Ph0Off,x
+				inx
+				inx
+				dey
+				bne .1
+
 				rts
 *--------------------------------------
 * A = target track
@@ -835,12 +839,12 @@ XRW.Seek		ldx XRW.UnitIndex
 
 .7				jsr XRW.Wait25600usec
 
-				lda IO.D2.Ph0Off,y
-				nop
-				nop
 				lda IO.D2.Ph0Off,x
 				nop
 				nop
+				lda IO.D2.Ph0Off,y
+				nop
+				nop
 
 				rts
 *--------------------------------------