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