1 // compile.asm: WORD p_does,'DOES>',fasm,IMMEDIATE
11 "DOES>" is a function that in execution mode does nothing but in
12 compilation mode it changes the execution semantics assignments for
13 the most recent word to use the +dodoes+ sematics with adjustment
14 offset to the current heap address. I.e., the word being defined will
15 have its execution start at whatever comes after "DOES>".
18 .Defintion concept for DOES>
21 STATE @ != IF ( only for compilation mode )
22 CURRENT-WORDLIST @ @ TFA>CFA ( cfa of current word )
23 doDOES OVER ! ( set up doer )
24 HERE @ OVER 8 + - SWAP 8 - ! ( set up offset
37 <<p_current_wordlist,CURRENT-WORDLIST>>,
40 <<p_immediate,IMMEDIATE>>,
44 <<p_tfa2cfa,TFA>CFA>>,
47 as well as <<p_execute,EXECUTE>>
48 about the range of "doer" assignments and their meanings.