VolksForth/6502/mcs/VForth35/ttools.fb

Ttools.scr enthaelt das Werkzeug um auf dem 6502-EMUF           unterFIG-Forth das neue 6502f83 zu testen                                                                                       Dazu wird NEXT des 6502f83 so modifiziert, dass man beijedem    next ins FIG-Forth gelangt.                                     Von hier aus wird beobachten,ob das 6502f83 korrekt arbeitet.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   \ loadscreen                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    \                                                               hex   27 Constant f83-next          \ 6502f83 Constants               1C Constant f83-bootnextlen                                   1109 Constant f83-bootnext                                        24 Constant f83-puta                                          1125 Constant xywjmp                                              2C Constant f83-IP                                        : place-next f83-bootnext f83-puta f83-bootnextlen cmove ;                                                                      : modify-next  up@ f83-next B + ! 4C f83-next A + c! ;                                                                          : bootf83 place-next modify-next ;                                                                                              : gof83 ( adr -- ) up@ 1+ ! 2C up@ c! stop ;                                                                                    : next-instruction 2 f83-IP +! f83-IP @ . xywjmp gof83 ;