anchor.diff:  
   : call,		bblk pibptr @ 4 + #, #, GO, ;
   : DEFER,	bblk CREATE iptr @ , 0 #, GO, DOES> @ call, ;
  +: IS,		' >body @ 1 TWORDS + pib! ;
   : preamble	iptr @ -1 TWORDS + #, !, bblk ;
   : rtnword	bblk iptr @ rpa ! 1 TWORDS iptr +! 0 pib, ;
   : :,		CREATE rtnword iptr @ , preamble DOES> @ call, ;
  
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: 
  : 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>> ;
  