anchor.diff:  			256 #, 1 +fp!,
   			getmem
   			3 +fp@,
  -			if,	3 +fp@, crash halt,
  +			if,	$F640 #, crash halt,
   			then,
   			2 +fp@, 0=
  -			if,	2 +fp@, crash halt,
  +			if,	$F642 #, crash halt,
   			then,
   			2 +fp@, -3 +fp!,
   			256 #, 1 +fp!,
   			getmem
  -			poolbase @, @, @, @, poolbase @, xor, crash halt,
  -nop, nop, nop, nop, nop,
  -\			3 +fp@,
  -\			if,	3 +fp@, crash halt,
  -\			then,
  -\			2 +fp@, -3 +fp@, xor, 0=
  -\			if,	$F642 #, crash halt,
  -\			then,
  +			3 +fp@,
  +			if,	$F644 #, crash halt,
  +			then,
  +			2 +fp@, -3 +fp@, xor, 0=
  +			if,	$F646 #, crash halt,
  +			then,
  +
  +			2 +fp@, 1 +fp!, relmem
  +			-3 +fp@, 1 +fp!, relmem
  +
  +			512 #, 1 +fp!,
  +			getmem
  +			3 +fp@,
  +			if,	$F740 #, crash halt,
  +			then,
  +
  +			2 +fp@,  poolbase @, /node +, xor, crash
   		8 fp+!,
   
   		
  
positive.code: 		gm1
  	then,
  	0 #, 2 +fp!,  EBASE 3 +fp!,
  	rfs,
  
  \ First instruction of STS starts here.  coldstart vectors here.
  
negative.code: 	-1 +fp@, /node +, 2 +fp!,  0 #, 3 +fp!,
  	rfs,
  
  :, gmCombine
  	-1 +fp@, @, 2 #, +, @, 1 #, and, if, exit, then,
  	-1 +fp@, @, poolbase @, xor, if,
  		-1 +fp@, 2 #, +, -3 +fp!,
  		-1 +fp@, @, 2 #, +, @, /node +, -3 +fp@, @, +, -3 +fp@, !,
  		-1 +fp@, @, @, -1 +fp@, !,
  	then, ;,
  
  :, gm1
  	-1 +fp@, 2 #, +, @, -2 +fp!,
  
  