Kernel 0.94

ProDOS.FX/ProDOS.S.LDR.txt

@@ -608,23 +608,6 @@ LDR.AddExtraDevs
 				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,16 +648,16 @@ LDR.AddSPDevs 	jsr LDR.SetDevID		setup the devid byte from attributes
 
 .1				jsr	$0000				SELF MODIFIED
 				
-				ldy #$FB	
-				lda (idxl),y			check device id
-				and #$02	   			SCSI?
-				beq .2					no, no need to init Cocoon
+*				ldy #$FB	
+*				lda (idxl),y			check device id
+*				and #$02	   			SCSI?
+*				beq .2					no, no need to init Cocoon
 
-				sta LDR.SPStatus.U 		device = 2 for SCSI
+*				sta LDR.SPStatus.U 		device = 2 for SCSI
 
-				jsr spvect				status of Cocoon
-				.HS 00
-				.DA LDR.SPStatus.P 		ignore any errors.
+*				jsr spvect				status of Cocoon
+*				.HS 00
+*				.DA LDR.SPStatus.P 		ignore any errors.
 
 .2  			stz LDR.SPStatus.U 		set unit# = 0
 				jsr spvect	   			call to get the device count.

SYS/KERNEL.S.STDIO2.S.txt

@@ -711,7 +711,7 @@ STDIO.Exit		php
 				pha
 				
 				lda pStack
-				clc
+				sec
 STDIO.Exit.Cnt	adc #$ff				SELF MODIFIED
 				sta pStack
 				

SYS/KM.RAMWORKS.S.txt

@@ -3,7 +3,7 @@ NEW
 				.LIST OFF
 				.OP	65C02
 				.OR	$2000
-				.TF SYS/KM/KM.RAMWORKS
+				.TF sys/km.ramworks
 *--------------------------------------
 				.INB INC/MACROS.I
 				.INB INC/IO.I