1 // control.asm: WORD p_begin,'BEGIN',fasm
8 Data stack: Compiling: ( -- a 0 )
11 "BEGIN" is an immediate function word that is used together with
12 <<p_ifbreak,IFBREAK>>, <<p_ifagain,IFAGAIN>> and <<p_end,END>> to
13 implement structured execution control. BEGIN simply places the
14 address for resolving branches back to this point during execution,
15 and then a 0 as a marker so as to allow for an unknown number of block
19 .Usage example {counter:example}:
21 : WTELL ( tfa -- ; Print word pname )
22 24 + DUP 8 + SWAP @ TELL SP EMIT
25 : WORDS ( wordlist -- ; Print all words of word list )