anchor.diff:  \ 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.
  +
  +pibptr @ 3 + -4 and pibptr !  ( Ensure proper structure alignment for getmem's benefit )
   
   create, memtag
   	$C0DE ,, ' memtag >BODY @ ,, $DA7A ,, $C0DE $DA7A + ' memtag >BODY @ + $FFFF xor ,,
  
positive.code: 	-1 +fp@, /node +, 2 +fp!,  0 #, 3 +fp!,
  	rfs,
  
  :, gm1
  	-1 +fp@, 2 #, +, @, -2 +fp!,
  
  
negative.code: 			256 #, 1 +fp!,
  			getmem
  			3 +fp@,
  			if,	$F640 #, crash halt,
  			then,
  			2 +fp@, 0=
  			if,	$F642 #, crash halt,
  			then,
  			2 +fp@, -3 +fp!,
  			256 #, 1 +fp!,
  			getmem
  			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+!,
  
  		
  