diff --git a/SYS/KERNEL.S.CIO.txt b/SYS/KERNEL.S.CIO.txt index a328aa70..18e5dd39 100644 --- a/SYS/KERNEL.S.CIO.txt +++ b/SYS/KERNEL.S.CIO.txt @@ -102,7 +102,7 @@ K.SScanF.IsDigit cmp #'0' rts */-------------------------------------- * #PPrintFYA/CPrintFYA -* Prints P-Stype/C-Style String +* Prints Pascal/C-Style String * ##In: * Y,A = PTR to PStr/CStr * %a : pull 2 bytes to Print Access right String 'drwxrwxrwx' @@ -122,9 +122,11 @@ K.SScanF.IsDigit cmp #'0' * %N : pull 1 byte to Print high Nibble HEX * %s : pull 2 bytes ptr to C-Style String * %S : pull 2 bytes ptr to P-Style String +* \b : Print 'BS' (08) * \e : Print 'ESC' ($1B,27) -* \n : Print CR=13 -* \\ : Print \ +* \f : Print 'FF' ($0C,12) +* \n : Print 'CR' ($0D,13) +* \\\\ : Print \ * \% : Print % * Modifiers for len and padding : * %d : '9' '12' @@ -480,7 +482,8 @@ CIO.GetCharAtPtr1Y lda (ZPQuickPtr1),y CSTR beq .9 iny advance to next char... - clc + bne .9 + inc ZPQuickPtr1+1 Allow >256 CStrings rts diff --git a/_Docs/KERNEL.md b/_Docs/KERNEL.md index 860b954c..b92b00bf 100644 --- a/_Docs/KERNEL.md +++ b/_Docs/KERNEL.md @@ -31,7 +31,7 @@ Scan a PStr (in progress) ##Out: #PPrintFYA/CPrintFYA -Prints P-Stype/C-Style String +Prints Pascal/C-Style String ##In: + Y,A = PTR to PStr/CStr @@ -52,9 +52,11 @@ Prints P-Stype/C-Style String + %N : pull 1 byte to Print high Nibble HEX + %s : pull 2 bytes ptr to C-Style String + %S : pull 2 bytes ptr to P-Style String + + \b : Print 'BS' (08) + \e : Print 'ESC' ($1B,27) - + \n : Print CR=13 - + \\ : Print \ + + \f : Print 'FF' ($0C,12) + + \n : Print 'CR' ($0D,13) + + \\\\ : Print \ + \% : Print % + Modifiers for len and padding : + %d : '9' '12'