anchor.diff:  : _swap		top stop top! stop! ;
   : _nip		_swap _drop ;
   : _rot		stop top ttop top! stop! ttop! ;
  +: _reset	regmask0 esp0 ;
  +: _jz		_@8 _reset ;
   
   create procedures
   ' _noop ,
  
positive.code: ' _!8 ,		( !16 )
  ' _!8 ,		( !32 )
  ' _!8 ,		( !64 )
  ' _noop ,	( J )
  ' _@8 ,		( JZ )
  ' _noop ,	( CALL )
  ' _noop ,	( RFS )
  ' _>r ,		( >R )
  ' _r> ,		( R> )
  ' _r@ ,		( R@ )
  
negative.code: ' _add ,	( and )
  ' _add ,	( or )
  ' _add ,	( xor )
  ' _reset ,	( label )
  ' _@8 ,		( @8 )
  ' _@8 ,		( @16 )
  ' _@8 ,		( @32 )
  