anchor.diff:  	next,
   tend-code
   
  -t: testIt pushAA55 pushFF0000 sto halt ;t
  +t: testIt $AAAAAAAA55555555 $FF0010 sto halt ;t
   
   8 talign
   tcode __RESET__
  
positive.code:   32 word find if
      execute
    else
      count tfind if
        h>t t,
      else
        nbr
      then
    then
  ;
  
  
negative.code: 
  : ;t		[t'] exit t, treveal r> r> 2drop ;
  
  tcode halt
  	0 0 jal,
  tend-code
  