MAXForth ( SEE word )

[kwag]

Is there a word in MaxForth's dictionary that is equivalent to "SEE" for decompiling a definition and viewing the source?
Not a critical issue, but would like to know.

Thanks,
Karl

[nmitech]

There is no decompiling word that is available on any Max-FORTH version that i know of.

You can find all the Max-FORTH words and its definition on the link below,

http://www.ee.ualberta.ca/~rchapman/MFwebsite/V50/Alphabetical/Brief/index.html

chris
------

[rob]

( Here's a tool I've used over the years which is not going to give
( you source code but it can help sometimes in debugging:

( Decompiler for MaxForth Rob Chapman Aug 29, 2002 )

HEX

SP@ SP@ - ABS CONSTANT CELL ( cell size )

: WHAT ( a -- ) LATEST
BEGIN ?DUP WHILE PFAPTR 2DUP CFA = IF NFA ID. DROP EXIT THEN
LFA @
REPEAT DROP ." _" ;

: SEE ( a n ) 0 DO DUP @ SPACE WHAT CELL + LOOP DROP ;


: LIST ( a n ) CR
0 DO DUP CELL 2* U.R ." : " DUP @ WHAT CR CELL + LOOP DROP ;

( on MCore with alignemnt example )
' LIST 10 LIST
800208: _
80020C: _
800210: CR
800214: _
800218: _
80021C: _
800220: DUP
800224: CELL
800228: 2*
80022C: U.R
800230: _
800234: _
800238: DUP
80023C: @
800240: WHAT
800244: CR
OK

( on HC12 there is no realignment after the string ": " )
' LIST 10 LIST
78D: _
78F: _
791: CR
793: _
795: _
797: _
799: DUP
79B: CELL
79D: 2*
79F: U.R
7A1: _
7A3: _
7A5: _
7A7: _
7A9: _
7AB: _
OK
79F 1 DUMP
9F A0 A1 A2 A3 A4 A5 A6 A7 A8 A9 AA AB AC AD AE
79F: D3 B0 D5 CB 02 3A 20 C9 87 C9 AD 07 34 D2 9E 07 .....: .....4... OK
7A7 3 SEE _ _ _ OK
7A6 3 SEE DUP @ WHAT OK
7A6 A SEE DUP @ WHAT CR CELL + _ _ DROP EXIT OK