VolksForth/6502/Apple2/vFORTH38/tools.fb

\ Development Tools                                  cas 26jan06                                                                Interactive Tracer                                                                                                              One-Step Debugger                                                                                                               Traps                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           \ TOOLS LOADSCREEN            22MAR85RE)                                                                                        ONLYFORTH                                                                                                                       \NEEDS CODE  abort( Assembler is needed )                                                                                       VOCABULARY TOOLS                                                                                                                TOOLS ALSO DEFINITIONS                                          hex                                                             1 &11 +THRU                                                     decimal                                                         ONLYFORTH                                                                                                                                                                                                                                                       \ HANDLE STEPS              BP 10 02 85)                                                                                        ASSEMBLER ALSO DEFINITIONS                                                                                                      ONLY FORTH ALSO TOOLS ALSO DEFINITIONS                          | VARIABLE (W     | VARIABLE RPT                                                                                                | CODE STEP                                                      RPT DEC   RP X) LDA  IP STA                                     RP )Y LDA  IP 1+ STA  RP 2INC                                   (W LDA  W STA   (W 1+ LDA   W 1+ STA                            W 1- JMP  END-CODE                                                                                                             | CREATE NEXTSTEP  ] STEP [                                                                                                                                                                     \ THROW STATUS ON R-STACK  B  23JUL85RE)                                                                                        | CREATE NPULL    0  ]                                              RP@ COUNT 2DUP + RP! R> SWAP CMOVE ;                                                                                        : NPUSH  ( ADDR LEN -)                                              R> -ROT   OVER  >R RP@ OVER 1+ - DUP RP!  PLACE                 NPULL >R  >R ;                                                                                                              | : ONELINE .STATUS  SPACE  QUERY  INTERPRET                         -82 ALLOT  RDROP ( DELETE QUIT FROM TNEXT )  ;