anchor.diff:  
   : enforce	pibptr @ iptr !  0 pib,  $F000 slot ! ;
   : bblk		slot @ $F000 XOR IF align, enforce THEN ;
  +: eject		0 slot ! ;
   : slot>>	slot @ 2/ 2/ 2/ 2/ $0FFF AND slot ! ;
   : repl		15 AND DUP 2* 2* 2* 2* OR DUP $0100 * OR ;
   : pack		repl slot @ AND iptr @ pib@ OR iptr @ pib! slot>> ;
  
positive.code: : pibc!		inside >pib c! ;
  : pibc@		inside >pib c@ ;
  : pib,		pibptr @ pib!  1 TWORDS pibptr +! ;
  : pibc,		pibptr @ pibc!  1 pibptr +! ;
  
  \ \ \ VERILOG DUMPER
  
  
negative.code: 		\ starting new instruction packets.
  : then,		bblk iptr @ swap pib! ;
  : again,	rpa @ 3 TWORDS + #, go, ;
  : int,		align, CREATE pibptr @ ,  eject  0 pib, DOES> @ #, ;
  : char,		CREATE pibptr @ ,  eject  0 pibc, DOES> @ #, ;
  
  \ \ \ Miscellanious
  
  : origin	pibptr !  eject ;
  
  