anchor.diff:  ;WORD
   
   
  -
  -\ - Defining: `:`, `;`
  +\ Defining words
  +:WORD :
  +  \ Call (CREATE), which builds a partial header.
  +  code-(CREATE) lit jsr,
  +  \ Now A is the code field address.
  +  [DOCOL] lit [ra] set, \ Which we fill with DOCOL
  +  \ Everything is ready for the compilation to write xt's into this definition.
  +  \ So I just need to set compilation mode and stand back.
  +  \ TODO New : words need to be hidden, new CREATE words not. Now, neither is.
  +  var-STATE lit rx set,
  +  1 lit [rx] set,
  +;WORD
  +
  +:WORD ;
  +  \ Compile EXIT into the definition.
  +  var-DSP lit rx set, \ X - *dsp
  +  [rx] ry set,        \ Y - dsp
  +  cfa-EXIT lit [ry] set, \ Compile the EXIT
  +  1 lit ry add,
  +  ry [rx] set,        \ Write the new DSP
  +
  +  \ Finally, switch back to interpreting mode.
  +  var-STATE lit rx set,
  +  0 lit [rx] set,
  +;WORD
  +
  +
   \ - Debugging: `SEE` (optional)
   
   \ TODO QUIT KEY EMIT REFILL
  
positive.code:   repeat,
  
    \ Now C=0 and B = codeword slot
    \ Write the address of (DODOES) into that slot.
    [DODOES] lit [rb] set,
    0 lit 1 [rb+] set, \ Write a 0 after the codeword; the DOES> slot.
    2 lit rb add, \ The beginning of the data space for this new word.
    \ Finally, write this updated dsp into the variable again.
    rb [ra] set,
  ;WORD
  
  
  
negative.code:   ra ri add,
  ;WORD
  
  :WORD EXIT
    DH 1- CONSTANT cfa-EXIT \ cfa-EXIT can be used by ; below
    ri poprsp,
  ;WORD
  
  DVAR VAR-LATEST (LATEST)
  
  