wip

blk/288

@@ -4,7 +4,7 @@ PC ORG @ 0x22 + ! ( litWord, 0xf7, tight on the 0x100 limit )
   called, puts the string's address on PS )
     IY PUSHqq, HL POPqq, ( <-- IP )
     E (HL) LDrr, D 0 LDrn,
-    DE INCss, DE INCss,
+    DE INCss,
     DE ADDIYss,
     HL PUSHqq,
     JPNEXT,

blk/382

@@ -4,7 +4,7 @@
     AGAIN ;
 : LIT"
     34 , ( litWord ) H@ 0 C, ,"
-    DUP H@ -^ 1- ( a len ) SWAP C! 0 C,
+    DUP H@ -^ 1- ( a len ) SWAP C!
 ; IMMEDIATE
 : ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE
 : ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE

blk/399

@@ -1,4 +1,4 @@
-: LIT< WORD 34 , DUP C@ 1+ MOVE, 0 C, ; IMMEDIATE
+: LIT< WORD 34 , DUP C@ 1+ MOVE, ; IMMEDIATE
 : BEGIN H@ ; IMMEDIATE
 : AGAIN COMPILE (br) H@ - _bchk , ; IMMEDIATE
 : UNTIL COMPILE (?br) H@ - _bchk , ; IMMEDIATE