Kernel 0.93++

ProDOS.FX/ProDOS.S.LDR.txt

@@ -600,13 +600,30 @@ LDR.AddExtraDevs
 				sta LDR.SlotIdx
 
 .1  			ldx LDR.SlotIdx
-				ldy LDR.SlotDevType-1,x
-				bne .8
+				lda LDR.SlotDevType-1,x
+				beq .8
 
 				lda LDR.SlotDevCnt-1,x
 				cmp #3
 				bcc .8
 
+*				pha
+				
+*				lsr
+*				lsr
+*				lsr
+*				lsr
+*				ora #$30
+*				jsr LDR.PrintA
+*				pla
+*				pha
+				
+*				and #$0F
+*				ora #$30
+*				jsr LDR.PrintA
+*				>DEBUG
+				
+*				pla
 				jsr LDR.AddExtraSPDevs
 
 .8  			dec LDR.SlotIdx
@@ -665,31 +682,31 @@ LDR.AddSPDevs 	jsr LDR.SetDevID		setup the devid byte from attributes
 				lda LDR.SPStatus.Buf
 				beq LDR.AddExtraDevs.RTS	no devices, so done.
 
-				sta LDR.DevCnt
-				
+*				sta LDR.DevCnt
 				ldx LDR.SlotIdx
 				inc LDR.SlotDevType-1,x	set as smartport
 				
-.3				inc LDR.SPStatus.U
+*.3				inc LDR.SPStatus.U
 
-				jsr spvect	   			call to get the device status
-				.HS 00					this is a status call
-				.DA LDR.SPStatus.P
-				bcs .7
+*				jsr spvect	   			call to get the device status
+*				.HS 00					this is a status call
+*				.DA LDR.SPStatus.P
+*				bcs .7
 
 *				lda LDR.SPStatus.Buf
 *				bpl .7					not a block device
 				
-				ldx LDR.SlotIdx
-				inc LDR.SlotDevCnt-1,x
+*				ldx LDR.SlotIdx
+*				inc LDR.SlotDevCnt-1,x
 
-.7				dec LDR.DevCnt
-				bne .3
+*.7				dec LDR.DevCnt
+*				bne .3
 				
-				ldx LDR.SlotIdx
-				lda LDR.SlotDevCnt-1,x
-				beq LDR.AddBlkDevs.RTS
+*				ldx LDR.SlotIdx
+*				lda LDR.SlotDevCnt-1,x
+*				beq LDR.AddBlkDevs.RTS
 
+				sta LDR.SlotDevCnt-1,x
 				cmp #2					CC/CS, add 1 or 2 devs
 *--------------------------------------
 LDR.AddBlkDevs	php						how many drives (carry).
@@ -762,8 +779,8 @@ LDR.AddExtraSPDevs
 .1				jsr spvect	   			do status call
 				.HS 00
 				.DA LDR.SPStatus.P
-*				lda LDR.SPStatus.Buf	is this a block device?
-*				bpl .2
+				lda LDR.SPStatus.Buf	is this a block device?
+				bpl .2
 
 				jsr LDR.MountSPDevs
 				bcs .8