anchor.diff:  : 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
  
positive.code: 
  variable iptr
  variable slot
  
  : enforce	pibptr @ iptr !  0 pib,  $F000 slot ! ;
  : bblk		slot @ $F000 XOR IF align, enforce THEN ;
  
negative.code: \ 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
  
  