Kernel 0.94

ProDOS.FX/ProDOS.S.XRW.txt

@@ -862,20 +862,23 @@ XRW.Seek		asl						transform into 1/4 tracks
 .2				cmp #$fe				A<curtrk, must move out
 				bcs .3
 
-*			>DEBUG
-			
 				lda #$fe
 
-.3			    tax						save move direction
+.3			    bit #1					remember 1/4 or 2/4
-
+				php
 				clc
 				adc XRW.CurrentTrack
  				sta XRW.CurrentTrack
 
 				jsr XRW.PhaseOn
 
-				lda #28
+				lda #18
-				jsr XRW.Wait100msA		Trash X
+				plp
+				beq .4
+				
+				lsr						only 1/4
+				
+.4				jsr XRW.Wait100msA		Trash X
 
 				jsr XRW.AllPhaseOff
 				
@@ -885,10 +888,7 @@ XRW.Seek		asl						transform into 1/4 tracks
 				lsr XRW.CurrentTrack
 				rts
 
-XRW.PhaseOn		dex
+XRW.PhaseOn		pha
-				bmi .1
-				
-				pha
 				jsr .7
 				pla
 
@@ -896,15 +896,6 @@ XRW.PhaseOn		dex
 				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

SYS/KERNEL.S.DIRENT.txt

@@ -93,7 +93,8 @@ K.ReadDir.ROOT	ldy #S.FD.DIR.FC		did we already returned something ?
 				>MLICALL MLIONLINE
 				bcs K.ReadDir.RTS
 
-				>LDYAI 16*16+16*S.STAT+1	16 (Vols+Stat) + \0
+				>LDYAI 16*S.STAT+257	16 (Vols+Stat) + \0
+
 				jsr K.ReadDir.GetBufYA
 				bcs K.ReadDir.RTS