HP-71B FORTH VOCABULARY playground

[Stefan_Titan2944A]

UPDATE - complete FORTH DICTIONARY SCAN of all user defined WORDS and VOCABULARIES - including HP41V VOC content.


: USERDICT
FORTH
FORTH DEFINITIONS
0
CUR 5+ PVL2NFA
BEGIN
BEGIN
DUP ?VOC
IF
DUP U. „ [v. „ TYPE
DUP NAME$
KEY DROP CR
DUP LWL@
ELSE
DUP U. " [w] " TYPE
DUP NAME$
KEY DROP CR
LFA@
THEN
2DUP =
UNTIL
DROP
DUP U. „ .v] „ TYPE
DUP NAME$
KEY DROP CR
LFA@ ;
2DUP =
UNTIL
DROP DROP DROP ;


If the "HP-41 Translator Pac Owner's Manual" example page 73
is entered last, expect an output like this:

2FD0C [v. FORTH
306EA [w] WORD4
30655 [v. NEW
306CF [w] WORD3
30690 [v. NEWER
306B4 [w] WORD2
30690 .v] NEWER
30675 [w] WORD1
30655 .v] NEW
... (user dict)
2FD30 [v. HP41V
... (user dict)
2FD64 [w] R41
2FD54 [w]
EAF0C [w] MOD
EAEA8 [w] SIGN
... (HP41 functions - page 169ff, Table E-1)
2FD30 .v] HP41V

N.B. 30xxx will be different, depending on what was defined earlier.