anchor.diff:  \ The byte-size of the PIB.
   #WORDS TWORDS CONSTANT /pib
   
  +\ Number of entries in the relocation offset buffer
  +#WORDS CONSTANT /relocb
  +
   \ Number of initialization lines to produce per defparam block.
   64 CONSTANT #INITS
   
   CREATE pib	/pib CHARS ALLOT
   pib /pib $CD FILL
  +
  +CREATE relocb	/relocb CELLS ALLOT
  +relocb /relocb CELLS $CD FILL
   
   VARIABLE pibptr
   
  
positive.code: 
  variable iptr
  variable slot
  
  : enforce	pibptr @ iptr !  0 pib,  $F000 slot ! ;
  : bblk		slot @ $F000 XOR IF align, enforce THEN ;
  
negative.code: : pack		repl slot @ AND iptr @ pib@ OR iptr @ pib! slot>> ;
  : opc ( n -- )	slot @ 0= IF bblk THEN pack ;
  : #, ( n -- )	1 opc pib, ;
  : reloc,	pibptr @  relocb relocptr @ + !  1 cells relocptr +! ;
  : &, ( n -- )   reloc, #, ;
  : prim		CREATE , DOES> DUP @ opc @ 14 = IF bblk THEN ;
  
  \ \ \ BASIC CPU PRIMITIVES
  