anchor.diff:      tib dup d# 128 accept
       source!
       true
  -;fallthru
   : 0>in
       >in off
   ;
  
positive.code: header decimal
  : decimal
      d# 10
  ;fallthru
  : setbase
      base _!
  ;
  
  header 2*       :noname     2*       ;
  header 2/       :noname     2/       ;
  header !        :noname     !        ;
  header +        :noname     +        ;
  header xor      :noname     xor      ;
  header and      :noname     and      ;
  header or       :noname     or       ;
  header invert   :noname     invert   ;
  header =        :noname     =        ;
  header <        :noname     <        ;
  header u<       :noname     u<       ;
  header swap     :noname     swap     ;
  header dup      :noname     dup      ;
  header drop     :noname     drop     ;
  header over     :noname     over     ;
  header nip      :noname     nip      ;
  header io!      :noname     io!      ;
  header io@      :noname     io@      ;
  header depth    :noname     depth    ;
  header-imm >r   :noname     inline: >r ;
  header-imm r>   :noname     inline: r> ;
  header-imm r@   :noname     inline: r@ ;
  header cells    :noname     2*       ;
  header char+    :noname     1+ ;
  header chars    :noname     noop ;
  
  : jumptable ( u -- ) \ add u to the return address
      r> + >r ;
  
negative.code: \     drop cr
  \ ;
  
  header -        : -         negate + ;
  header abs      : abs       dup 0< if negate then ; 
  header here     : here      dp @i ;
  
  