( what.s: description of the functions of a word) ( usage: what ) hex macros : what { 5 regs cfa ffa nfa pfa length } cr head to cfa cfa 5 - -1 traverse to nfa cfa 4- to ffa cfa 4+ to pfa nfa id. [ascii] : emit nfa c@ 40 and 0= if ." not " then ." immediate" cr ffa w@ 3ff and to length ." code length in bytes: " length if length 1+ 2* . else ." not specified" then cr ffa c@ f8 and case 20 of " no edges expected and 1 returned" endof 80 of " 1 edge expected and none returned" endof 0a0 of " 1 edge expected and 1 returned" endof 0b0 of " 1 edge exected and 2 returned" endof 0f0 of " 2 edges expected and 2 returned" endof 0e0 of " 2 edges expected and 1 returned" endof 0e8 of " 2 edges expected and a test result returned" endof 0a8 of " 1 edge expected and a test result returned" endof 0 of " no edges specified" endof " unclassified edge specification" ( default) endcase type ( the message) cr ffa 2+ w@ case 0 of " no POP specified" endof 0ffff of " no optimisation of leading edge" endof 0fffe of " no optimisation of leading edge" endof 2d00 of " the top edge is POP D0" endof 2d08 of " the top edge if POP A0" endof " unclassified POP expected" ( default) endcase type cr ." code or data address is " pfa @ os> . cr ; decimal