wip

blk/328

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