5 compile.asm: WORD p_does,'DOES>',fasm,IMMEDIATE
10 "DOES>" is a function that in execution mode does nothing but in
11 compilation mode it changes the execution semantics assignments for
12 the most recent word to use the "dodoes" sematics with adjustment
13 offset to the current heap address. I.e., the word being defined will
14 have its execution start at whatever comes after "DOES>".
16 .Execution semantics expressed in RRQFORTH
19 STATE @ != IF ( only for compilation mode )
20 CURRENT-WORDLIST @ @ TFA>CFA ( cfa of current word )
21 doDOES OVER ! ( set up doer )
22 HERE @ OVER 8 + - SWAP 8 - ! ( set up offset