19 Jun
2012
19 Jun
'12
10:13 p.m.
On 19/06/12 19:18, Michail Maksimov wrote:
i not found file viewer suggest:
: sourceprint source type cr ['] interpret >data token@ >r interpret_save is interpret exit? if 777 throw then r> is interpret ;
: fileprint ( adr len -- ) ['] interpret >data token@ to interpret_save ['] sourceprint is interpret ['] included catch interpret_save is interpret dup 777 = if drop 0 then throw ;
: fp ( "name" -- ) safe-parse-word fileprint ;
I must admit I'm still not the best at Forth, but does this patch simply print out the name of the current word during execution? Note that OpenBIOS Forth also has an in-built debugger which you may find useful (see Documentation/README.debugger).
HTH,
Mark.