forth/device/fcode.fs

1 \ tag: FCode implementation functions
56 \   convert FCode number to pointer to xt in FCode table.
68 \   get xt according to an FCode#
75 \   get 8bit from FCode stream, taking spread into regard.
84 \   get 8bit signed from FCode stream
94 \   get 16bit from FCode stream
101 \   get 16bit signed from FCode stream
111 \   get 32bit from FCode stream
120 \   Get an FCode# from FCode stream
130 \   get offset from FCode stream.
146 \   get a string from FCode stream, store in pocket.
163 \   retrieve FCode header from FCode stream
170     ." Found FCode header:" cr rot
183 : fcode! ( F:FCode# -- )
195 \ 5.3.3.1 Defining new FCode functions.
221 \ new-token ( F:/FCode#/ -- )
222 \   Create a new unnamed FCode function
230 \ named-token (F:FCode-string FCode#/ -- )
231 \   Create a new possibly named FCode function.
243 \ external-token (F:/FCode-string FCode#/ -- )
244 \   Create a new named FCode function
253 \   End an FCode colon definition.
261 \   Defines type of new FCode function as colon definition.
269 \   Defines type of new FCode function as buffer:.
277 \   Defines type of new FCode function as constant.
286 \   Defines type of new FCode function as create word.
296 \   Defines type of new FCode function as defer word.
307 \   Defines type of new FCode function as field.
321 \   Defines type of new FCode function as value.
329 \   Defines type of new FCode function as variable.
345 \   Convert FCode number to function execution token.
353 \   Assign FCode number to existing function.
369 \   Numeric literal FCode. Followed by FCode-num32.
389 \   Function literal FCode. Followed by FCode#
400 \   String literal FCode. Followed by FCode-string.
420 \   FCode for setting values and defers. Followed by FCode#.
441 \   Makes subsequent FCode-offsets use 16-bit (not 8-bit) form.
449 \   Unconditional branch FCode. Followed by FCode-offset.
466 \   Conditional branch FCode. Followed by FCode-offset.
500 \   End FCode do..loop. Followed by FCode-offset.
509 \   End FCode do..+loop. Followed by FCode-offset.
518 \   Begin FCode do..loop. Followed by FCode-offset.
527 \   Begin FCode ?do..loop. Followed by FCode-offset.
560 \   FCode for of in case statement. Followed by FCode-offset.
568 \   FCode for endof in case statement. Followed by FCode-offset.