Kernel 0.94

SBIN/INITD.S.txt

@@ -4,6 +4,8 @@ NEW
 				.OP	65C02
 				.OR	$2000
 				.TF sbin/initd
+*---------------------------------------
+INITDDBG		.EQ 1
 *--------------------------------------
 				.INB inc/macros.i
 				.INB inc/a2osx.i
@@ -141,6 +143,11 @@ CS.RUN.ETCINIT	>LDYAI 256
 				cmp #'#'
 				beq .1
 				
+				.DO INITDDBG=1
+				>LDYA BufPtr
+				>SYSCALL PutS
+				.FIN
+				
 				>PUSHW BufPtr
 				>PUSHBI S.PS.F.NOHUP+S.PS.F.HOLD
 				>SYSCALL ExecL

SYS/KERNEL.S.SLISTX.txt

@@ -11,6 +11,7 @@ SLIST.DataLen	.BS 2
 SLIST.nDataCnt	.BS 2
 SLIST.nBufCnt	.BS 2
 SLIST.bStringMode	.BS 1
+SLIST.bAppend0		.BS 1
 SLIST.KeyID		.EQ *
 SLIST.BytePtr	.BS 1
 SLIST.BlockPtr	.BS 1
@@ -35,10 +36,12 @@ SLISTX.SListGetData
 
 				bcc .99					Offset Beyond DataLen
 
-.10				lda ZPSListDataOfs		Skip to Offset
+				lda ZPSListDataOfs		Skip to Offset
 				ldx ZPSListDataOfs+1
 				jsr SLIST.SkipDataAX
 
+				stz SLIST.bAppend0
+
 				lda FORPNT
 				ora FORPNT+1
 				bne .12					buffer provided
@@ -49,6 +52,9 @@ SLISTX.SListGetData
 				bne .11
 				inc						+1 for ending 0
 
+				sec
+				ror SLIST.bAppend0
+
 .11				ldx #SYS.GetMem
 				jsr K.SYSCALL2.MAIN		!!!	Get a buffer In MAIN Mem !!!
 				bcs .9
@@ -84,7 +90,7 @@ SLISTX.SListGetData
 				inc SLIST.nBufCnt
 				bne .4
 				inc SLIST.nBufCnt+1
-				beq .82					not string mode : end of buffer, no extra \0
+				beq .80					not string mode : until end of buffer
 
 .4				jsr SLIST.GetNextByte
 				bit SLIST.bStringMode
@@ -103,7 +109,8 @@ SLISTX.SListGetData
 				sec
 .9				rts
 
-.80				bit SLIST.bStringMode
+.80				lda SLIST.bStringMode
+				ora SLIST.bAppend0
 				bpl .82
 
 .81				lda #0