
compiletoflash

\ ------------------------------------------------
\  A quick list of words - a wish of Paul Verbeke
\ ------------------------------------------------

\ Magic numbers inside:
\    Memory locations: $208 Variable for Link to latest definition
\                      $1100 Start of Flash-Dictionary (adjust to $2500 for F1612)
\                      ['] ?key 8 -   Address of first dictionary header in core

: list
  \ Catch dictionary entry point
  here $1100 u>= if ['] ?key 8 - else $208 @ then

  cr
  begin
    dup @ $FFFF = if exit then \ $FFFF instead of Flags and Name length denotes end of dictionary in Flash, too.
    1+ \ Skip Flags
    dup type cr ( name-field-address )
    skipstring \ Skip string that contains name
               ( link-field-address )
    @ dup $FFFF = \ Check if link points to another definition or into free space.
  until
;
