anchor.diff:  		gm1
   	then,
   	0 #, 2 +fp!,  EBASE 3 +fp!,
  +	rfs,
  +
  +\ relmem is used to release previously allocated memory, as returned by getmem.
  +\ Arguments:
  +\	+0	Return PC
  +\	+1	Block of memory to release, as returned by getmem.
  +\ Nothing is returned.
  +
  +sub: relmem
  +	1 +fp@,  -/node +,  1 +fp!,
  +	1 +fp@, 2 #, +, @,  -/node and,  1 +fp@, 2 #, +, !,
   	rfs,
   
   \ First instruction of STS starts here.  coldstart vectors here.
  
positive.code: 	-1 +fp@, /node +, 2 +fp!,  0 #, 3 +fp!,
  	rfs,
  
  :, gm1
  	-1 +fp@, 2 #, +, @, -2 +fp!,
  
  
negative.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.
  
  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 ,,
  