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: 		\ 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 ;
  
  