Forth-41

[dmh]

I've discovered that WORDS / VLIST is very implementation specific so I've written one from scratch for FORTH-41 which I've included below.

As none of FORTH-41 primitives are implemented in FORTH (probably for performance) this will only show user created variables and words (along with one builtin called FORTH). The builtin primitives are listed in CAT 2 anyway.

WRDS will list all user definitions and uses WRD to print each word name. TYPE can't be used due to the last character including a flag.

Code:

HEX
: WRD DUP M1+ SWAP
C@ 1F AND 0 DO
  DUP MM> I + >MM C@
  7F AND EMIT
LOOP DROP ;

: WRDS HEX DB @ 
BEGIN
  DUP M2- SWAP
  WRD @ DUP WHILE 
  SPACE
REPEAT DROP ;

Note, the manual says the address of the last name is at 0x0da but it's actually at 0x0db as per the diagrams. This is used as the starting point for retrieving definition names and then working back through all of them from there.

(09-09-2022 11:29 AM)Joe Horn Wrote:  VLIST can be added to the dictionary by typing in the short program for it on page 32 of the HP 82441A FORTH/Assembler ROM Owner's Manual.

EDIT -- Oops, I don't know what modifications need to be made to that program to port it from HP-71 FORTH to Forth-41.