anchor.diff:      _parse
   ;
   
  +header allot
  +: allot
  +    dp +!
  +;
  +
   header ,
   : w,
       here !
  -    d# 2
  -;fallthru
  -
  -header allot
  -: allot
  -    dp +!
  +    d# 2 allot
   ;
   
   header c,
  
positive.code: : jumptable ( u -- ) \ add u to the return address
      r> + >r ;
  
  : -throw ( a b -- ) \ if a is nonzero, throw -b
      negate and
  ;fallthru
  
  header throw
  : throw
      ?dup if
  
negative.code:     h# 1000 io@
  ;
  
  header emit
  : emit
      begin
          d# 1 uart-stat 
      until
      h# 1000 io!
  ;
  
  header space
  : space
      d# 32 emit
  ;
  
  header cr
  