===== Kangaroo method =====

The "lone" DOES> is used for the creation of only one word rather than for the creation of a category of words.
simple example in noForth
<code>
create .DAY ( n -- )  s" SunMonTueWedThuFriSat ? " m, align
    does> swap 7 umin 3 * + 3 type ;
</code>

example in noForth
<code>
create :
    assembler   ip push   w ip mov   next   forth   \ DOCOL
    does> create here cell- doer! ] ;               \ Action
</code>

or
<code>
:noname     does> create here cell- doer! ] ;
create :
    assembler   ip push   w ip mov   next   forth
execute
</code>

"faraway" DOES> for forward references in metacompiler
<code>
create :
    assembler   ip push   w ip mov   next   forth
    ... \ many other definitions
TELL : TO-DO: create here cell- doer! ] ;
</code>

literal pool in assembler words with CODE>
<code>
code !RP0  ( -- )
    ramadr: RP0 ,       \ register w points to this literal
    code>   day  w ) ldr,
            day  day ) ldr,
            rp day mov,
    next, end-code
</code>

(an)

=== Please add your comments below. ===
~~DISCUSSION~~