From a0960c21508b161159f482b436cfef71c352412e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=A9my=20GIBERT?= <burniouf@users.noreply.github.com>
Date: Wed, 17 Jun 2020 21:08:08 +0200
Subject: [PATCH] Kernel 0.94

---
 LIB/LIBBLKDEV.S.BB.txt | 17 +++++++----------
 LIB/LIBBLKDEV.S.D2.txt |  2 +-
 2 files changed, 8 insertions(+), 11 deletions(-)

diff --git a/LIB/LIBBLKDEV.S.BB.txt b/LIB/LIBBLKDEV.S.BB.txt
index 6f4d6c5c..13475255 100644
--- a/LIB/LIBBLKDEV.S.BB.txt
+++ b/LIB/LIBBLKDEV.S.BB.txt
@@ -349,7 +349,7 @@ BB.Seek			lda BB.HdrTrk			get track we're on
 .5				lda IO.D2.Ph0On,x
 				ply
 			
-				jsr BB.WaitPh
+				jsr BB.Wait25600usec
 				bra .1
 
 * Last QTrack
@@ -371,12 +371,10 @@ BB.Seek			lda BB.HdrTrk			get track we're on
 				tay
 				lda IO.D2.Ph0On,y
 
-.7				phx
-				jsr BB.WaitPh
+.7				jsr BB.Wait25600usec
 				
 .80				jsr BB.Wait25600usec
 				
-				plx
 				lda IO.D2.Ph0Off,y
 				lda IO.D2.Ph0Off,x
 				bra BB.Read
@@ -384,7 +382,7 @@ BB.Seek			lda BB.HdrTrk			get track we're on
 .8				tya
 				beq BB.Read
 				
-				pha
+				tax
 
 				bra .80
 *--------------------------------------
@@ -392,20 +390,19 @@ BB.WaitPh		lda #IO.D2.SeekTime
 				.HS 2C					BIT ABS
 BB.Wait25600usec
 				lda #0
-
-				sec						(6) JSR (2)
-				
+				phx
 .1				ldx #19					(2)
 
 .2 				dex 					(2) 	delay 86 usec.	
 				bne .2					(2+)	2 + 5x16 + 2 + 2
 				
-*				ldx BB.Slotn0				(3)
+*				ldx BB.Slotn0			(3)
 *				bit IO.D2.DrvOn,x		(4) Slow down ACC boards
 
+				sec						(6)
 				sbc #1	 				(2)
 				bne .1					(2+)
-
+				plx
 				rts						(6)
 *--------------------------------------
 BB.Trk2Qtrk		asl						x2
diff --git a/LIB/LIBBLKDEV.S.D2.txt b/LIB/LIBBLKDEV.S.D2.txt
index 514e6c4c..974081e1 100644
--- a/LIB/LIBBLKDEV.S.D2.txt
+++ b/LIB/LIBBLKDEV.S.D2.txt
@@ -186,7 +186,7 @@ D2.Wait25600usec
 				lda #0
 D2.Wait100usecA	phx						(3)
 
-.1				ldx #19					(2)
+.1				ldx #18					(2)
 
 .2  			dex						(2)
 				bne .2					(3)