TRAVERSE
Some parts of this page/site are currently incomplete & will be updated asap
Other parts will change continually so use “Refresh” in your browser !!
There is extensive use of “Tooltips” text to support learning which do
not seem to render on a Smartphone
TRAVERSE addr1 n — addr2
Move across the name field of a fig-FORTH variable length name field addr1 is the address of either the length byte or the last letter
If n=1, the motion is toward hi memory; if n=-l, the motion is toward low memory The addr2 resulting is address of the other end of the name
NFA: 0069FF 88 DB 88H
006A00 54524156 455253 DB "TRAVERS"
006A07 C5 DB 'E'+80H
LFA: 006A08 EC69 DW DDUP-7
CFA: 006A0A 3C28 TRAV: DW DOCOL ; :
PFA: 006A0C E826 DW SWAP ; SWAP
006A0E BD26 TRAV1: ; BEGIN
006A0E BD26 DW OVER ; OVER
006A10 1226 DW PLUS ; +
006A12 0621 7F00 DW LIT,7FH ; 7FH
006A16 BD26 DW OVER ; OVER
006A18 B627 DW CAT ; C@
006A1A 6569 DW LESS ; <
006A1C DA21 F0FF DW ZBRAN,TRAV1-$ ; UNTIL
006A20 E826 DW SWAP ; SWAP
006A22 CC26 DW DROP ; DROP
006A24 1725 DW SEMIS ; ;
The Meaning of the Dictionary Fields:
Definition: : SWAP BEGIN OVER PLUS LIT 7FH OVER C@ < UNTIL SWAP DROP ;