anchor.diff:      begin
           d# 1 uart-stat 
       until
  -    h# 1000 io!
  +    h# 1000 _io!
   ;
   
   header space
  
positive.code:     tib dup d# 128 accept
      source!
      true
  ;fallthru
  : 0>in
      >in off
  ;
  
negative.code: ;
  
  : dispatch
      jumptable
      jmp execute                 \      -1      0       non-immediate
      jmp doubleAlso              \      0       0       number
      jmp execute                 \      1       0       immediate
  