Using the address find the nearest head and display the word in disassembled forth.

It will get better.

 
	: show ( addr n --)
		OVER code? not IF
			DROP
			CR ." Not in code space"
		ELSE
			SWAP $30 - SWAP DUMP
		THEN
	;
	 

It will get better

15.6.1.2194 SEE

TOOLS

( "name" -- )

Display a human-readable representation of the named word's definition. The source of the representation (object-code decompilation, source block, etc.) and the particular form of the display is implementation defined.

SEE may be implemented using pictured numeric output words. Consequently, its use may corrupt the transient region identified by #>.