end of early attempt

diff --git a/fig-forth_6809.asm b/fig-forth_6809.asm
index 2bda3af..3328111 100644 (file)
--- a/fig-forth_6809.asm
+++ b/fig-forth_6809.asm
@@ -555,6 +555,7 @@ EXEC        FDB     *+2
        FCB     $C8
        FDB     EXEC-10
 BRAN   FDB     ZBYES   Go steal code in ZBRANCH
+
 *
 * ======>>  5  <<
        FCB     $87
@@ -617,15 +618,20 @@ XPLOOP    FDB *+2 Note: +LOOP has an un-signed loop counter
 *      SBC A   4,X
 *      BPL     ZBYES
 *      BRA     XPLONO  fall through
-       LDD
+       LDD     ,U++
+       BPL     XPLOF
+       ADDD    ,S
+       STD     ,S
+       SUBD    2,S
+       **** Have to think about this.
 *
 * the subroutine :
-XPLOPS LDX     RP
-       ADD B   3,X     add it to counter
-       ADC A   2,X
-       STA B   3,X     store new counter value
-       STA A   2,X
-       RTS
+* XPLOPS       LDX     RP
+*      ADD B   3,X     add it to counter
+*      ADC A   2,X
+*      STA B   3,X     store new counter value
+*      STA A   2,X
+*      RTS
 *
 XPLOF  BSR     XPLOPS
        SUB B   5,X