X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_does.adoc;h=b31b42b274f0f803ef9e8ec7c7a33fe12769d85b;hb=aa6d10c30115571b859b9e7e3d6e8a9b9ced599b;hp=a9ac349c73fdf116ce13ae9bbf609a89fe0ebc0c;hpb=656f37efbd89db1b1088281047a9633cf74e92ec;p=rrq%2Frrqforth.git diff --git a/adoc/p_does.adoc b/adoc/p_does.adoc index a9ac349..b31b42b 100644 --- a/adoc/p_does.adoc +++ b/adoc/p_does.adoc @@ -15,8 +15,8 @@ offset to the current heap address. I.e., the word being defined will have its execution start at whatever comes after "DOES>". ==== -.Word: DOES> ----- +.Defintion concept for DOES> +**** : DOES> IMMEDIATE STATE @ != IF ( only for compilation mode ) CURRENT-WORDLIST @ @ TFA>CFA ( cfa of current word ) @@ -24,7 +24,7 @@ STATE @ != IF ( only for compilation mode ) HERE @ OVER 8 + - SWAP 8 - ! ( set up offset THEN ; ----- +**** ==== See also