diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index dac8293b..647dba57 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/SBIN/INITD.S.txt b/SBIN/INITD.S.txt index 5e26c80a..b32083fe 100644 --- a/SBIN/INITD.S.txt +++ b/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 diff --git a/SYS/KERNEL.S.SLISTX.txt b/SYS/KERNEL.S.SLISTX.txt index 6a475e17..e80e4700 100644 --- a/SYS/KERNEL.S.SLISTX.txt +++ b/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