clears the bugs to the same problem with emulated disk as the RTS version.

diff --git a/fig-forth-auto6809.asm b/fig-forth-auto6809.asm
index 98e2d5b..e5b260f 100644 (file)
--- a/fig-forth-auto6809.asm
+++ b/fig-forth-auto6809.asm
@@ -381,13 +381,13 @@ XPREV     RMB     2
 ***************************
 ORIG   NOP
 *      JMP     CENT
-       LBSR    CENT
+       LBRA    CENT
 ***************************
 **  W A R M   E N T R Y  **
 ***************************
        NOP
 *      JMP     WENT    warm-start code, keeps current dictionary intact
-       LBSR    WENT    warm-start code, keeps current dictionary intact
+       LBRA    WENT    warm-start code, keeps current dictionary intact
        SETDP   IUPDP
 
 *
@@ -3205,24 +3205,24 @@ SIGNUP  SEX     ; Couldn't they have called SignEXtend EXT instead?
        FCC     'TRAVERS'       ; 'TRAVERSE'
        FCB     $C5
        FDB     SIGNUM-9
-TRAV   FDB     *+NATWID
-       BSR     SIGNUE  ; Convert negative to -, zero or positive to 1.
-       LDD     ,U++    ; Still in D, but we have to pop it anyway.
-       LDX     ,U      ; If D is 1 or -1, so is B.
-       LDA     #$7F    
-TRAVLP LEAX    B,X     ; Don't look at the one we start at.
-       CMPA    ,X      ; Not sure why we aren't just doing LDA ,X ; BPL.
-       BCC     TRAVLP
-TRAVDN STX     ,U
-       LBRA    NEXT
-* Doing this in 6809 just because it can be done may be getting too greedy.
-* TRAV FDB     DOCOL,SWAP
-* TRAV2        FDB     OVER,PLUS,LIT8
-*      FCB     $7F
-*      FDB     OVER,CAT,LESS,ZBRAN
-*      FDB     TRAV2-*-NATWID
-*      FDB     SWAP,DROP
-*      FDB     SEMIS
+* TRAV FDB     *+NATWID
+*      BSR     SIGNUE  ; Convert negative to -, zero or positive to 1.
+*      LDD     ,U++    ; Still in D, but we have to pop it anyway.
+*      LDX     ,U      ; If D is 1 or -1, so is B.
+*      LDA     #$7F    
+* TRAVLP       LEAX    B,X     ; Don't look at the one we start at.
+*      CMPA    ,X      ; Not sure why we aren't just doing LDA ,X ; BPL.
+*      BCC     TRAVLP
+* TRAVDN       STX     ,U
+*      LBRA    NEXT
+* Doing this in 6809 just because it can be done was getting too greedy.
+TRAV   FDB     DOCOL,SWAP
+TRAV2  FDB     OVER,PLUS,LIT8
+       FCB     $7F
+       FDB     OVER,CAT,LESS,ZBRAN
+       FDB     TRAV2-*-NATWID
+       FDB     SWAP,DROP
+       FDB     SEMIS
 *
 * ======>>  99  <<
 * ( --- symptr )