anchor.diff:  	mplsiz @, -/node and, -/node +, mplsta @, 2 #, +, !,  ;,
   
   \ getmem allocates a block of memory from a formatted memory pool.  The mplsta
  -\ variable must point to the pool to allocate from.
  +\ variable must point to the pool to allocate from.  memsiz holds the request
  +\ size.
  +\ 
  +\ If the request can be satisfied, memptr holds the address of the allocated
  +\ block of memory, and rsn is zero.  Otherwise, memptr is undefined, and rsn
  +\ indicates why the request failed.
   
   int, p
   int, q
  
positive.code: 
  \ Global state for all OS services.
  
  int, rsn
  
  :, halt,	again, ;,
  :, crash	$C000 #, !,  $C000 #, @, -1 #, xor, $C050 #, !,  $AAAA #, $C0A0 #, !, ;,
  :, 0=		if, 0 #, exit, then, -1 #, ;,
  
  \ fillRect draws very simple rectangular patterns on the screen.
  \ This can be used to clear the screen, or to let the user in on the current progress of something.
  
negative.code: 	rfs,
  
  \ relmem is used to release previously allocated memory, as returned by getmem.
  \ relmem expects the block to release in memptr.
  \ Nothing is returned.
  
  :, relmem
  	memptr @,  -/node +,  memptr !,
  	memptr @, 2 #, +, @,  -/node and,  memptr @, 2 #, +, !,  ;,
  
  \ 
  \ First instruction of STS starts here.  coldstart vectors here.
  
  :, cold		$4000 #, %fp !,			( Initialize the STS frame pointer )
  