wip

blk/328

@@ -1,14 +1,16 @@
 CODE S=
-    DE  POPqq,
-    HL  POPqq,
-    chkPS,
+    DE POPqq, HL POPqq, chkPS,
+    HL DECss, DE DECss,
+    LDA(DE),
+    (HL) CPr,
+    IFZ, ( same size? )
+        B A LDrr, ( loop A times )
         BEGIN,
+            HL INCss, DE INCss,
             LDA(DE),
             (HL) CPr,
             JRNZ, BREAK, ( not equal? break early. NZ is set. )
-        A ORr,   ( if our char is null, stop )
-        HL INCss,
-        DE INCss,
-    JRNZ, AGAIN,
+        DJNZ, AGAIN,
+    THEN,
     PUSHZ,
 ;CODE