anchor.diff:  	-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!,
   
  
positive.code: \ Let the start of free memory begin here.
  \ This tag structure is discovered dynamically at boot time.
  \ It must be the very last piece of code actually compiled; otherwise, the dynamic memory manager will corrupt valid program code.
  
  create, memtag
  	$C0DE ,, ' memtag >BODY @ ,, $DA7A ,, $C0DE $DA7A + ' memtag >BODY @ + $FFFF xor ,,
  
negative.code: 		-1 +fp@, poolbase @, xor, if, again, then,
  		0 #, 2 +fp!,  ESIZE $100 #, +, 3 +fp!, rfs,
  	then,
  
  	gmCombine
  
  	-1 +fp@, 2 #, +, @, -2 +fp!,
  
  	1 +fp@,  -1 #, xor, 1 #, +,  -2 +fp@, +,  $8000 #, and,
  	if,	-1 +fp@, @, -1 +fp!,
  