Kernel 0.94

ProDOS.FX/ProDOS.S.LDR.txt

@@ -1119,6 +1119,12 @@ LDR.SPStatus.U	.DA #$00				unit number (code for smartport stat)
 LDR.DEVPTRS.CNT	.EQ 14
 
 LDR.DEVPTRS.IDX	.DA #$16				S3D2
+				.DA #$12				S1D2
+				.DA #$02				S1D1
+				.DA #$14				S2D2
+				.DA #$04				S2D1
+				.DA #$18				S4D2
+				.DA #$08				S4D1
 				.DA #$06				S3D1
 				.DA #$1A				S5D2
 				.DA #$0A				S5D1
@@ -1126,12 +1132,6 @@ LDR.DEVPTRS.IDX	.DA #$16				S3D2
 				.DA #$0C				S6D1
 				.DA #$1E				S7D2
 				.DA #$0E				S7D1
-				.DA #$12				S1D2
-				.DA #$02				S1D1
-				.DA #$14				S2D2
-				.DA #$04				S2D1
-				.DA #$18				S4D2
-				.DA #$08				S4D1
 *--------------------------------------
 LDR.cortland 	.DA #0					cortland loader flag (1 = Cortland)
 LDR.BootFlag	.DA #0					0 = normal boot, <>0 = return

ProDOS.FX/ProDOS.S.XDOS.B.txt

@@ -646,26 +646,26 @@ cmpvcb			lda gbuf+4			 	with name in directory.
 				and #$0F
 				cmp VCBs,x				are they the same length?
 				stx xvcbptr				(see rev note #23)
-				bne L3B1E			  	if not the same.
+				bne .9				  	if not the same.
 
 				tay
 				clc
 				adc xvcbptr
 				tax
 
-L3B18  			lda gbuf+4,y
+.1  			lda gbuf+4,y
 				cmp VCBs,x
-
-L3B1E  			sec		 				anticipate different names.
-				bne L3B26			  	if not the same.
+				bne .9				  	if not the same.
 
 				dex
 				dey
-				bne L3B18
+				bne .1
 
 				clc		 				indicate match.
+				.HS B0					BCS
+.9				sec
 
-L3B26  			ldx xvcbptr				offset to start of vcb (rev note #23)
+				ldx xvcbptr				offset to start of vcb (rev note #23)
 				rts
 *--------------------------------------
 tstdupvol 		lda #VCB0			 	check for other logged in volumes with the same name.
@@ -687,7 +687,7 @@ L3B41  			txa		 				index to next vcb
 				adc #VCB-1
 				bcc L3B2C			  	branch if more to check
 
-L3B49  			clc
+				clc
 				rts
 
 L3B4B  			sta duplflag			duplicate has been found.

ProDOS.FX/ProDOS.S.XRW.txt

@@ -165,6 +165,7 @@ XRW.E.ND		lda #MLI.E.NODEV
 				.HS 2C					BIT ABS
 XRW.E.OK		lda #0				
 
+				ldx A2L
 				bit IO.D2.DrvOff,x	 	turn off
 				rts
 *--------------------------------------
@@ -204,8 +205,8 @@ regrwts			ldy #1
 				lda #0
 				sta XRW.D2VolNum-1,y
 
-				jsr XRW.Seek
-				bra .2
+.30				jsr XRW.Seek
+				bra .3
 
 .4  			cmp XRW.ReqTrack
 				beq .5
@@ -222,9 +223,7 @@ regrwts			ldy #1
 				sta XRW.D2SeekTime-1,x
 				
 .41				lda XRW.ReqTrack
-				
-				jsr XRW.Seek
-				bra .2
+				bra .30
 
 .5  			lda XRW.AddrField.S		is this the right sector ?
 				cmp XRW.ReqSector
@@ -737,11 +736,15 @@ L57CD  			pla		 				place last byte into user buffer
 				sta (buf),y
 XRW.Read.RTS	rts
 *--------------------------------------
-XRW.Reset		ldy #4
-				ldx A2L
+XRW.Reset		ldx A2L
 
 				lda IO.D2.ReadMode,x	turn off write enable X = slot $S0
 
+				nop
+				nop
+
+				ldy #4
+
 .1				lda IO.D2.Ph0Off,x
 				inx
 				inx