anchor.diff:           [ { ?FETCHB,n001 }
            ]).
   
  +% TODO - REIMPLEMENT AS A WRITE-TO-MEMORY
   storeb_test() ->
      M    = setup("-- STORE-B TEST"),
      F18A = f18A:create(n001,n000,[ 16#04b12,16#001d5,16#002a6,16#089b2 ]),
  
positive.code: -define(FETCHB,    [reset,{fetchp,{t,2}},{bstore,{b,2}},{fetchb,{t,678}}]).
  -define(STOREB,    [reset,{fetchp,{t,16#1d5}},{bstore,{b,16#1d5}},{fetchp,{t,678}},nop,{storeb,{b,16#1d5},{t,678}}]).
  -define(READ,      [reset,{fetchp,{t,16#1d5}},{bstore,{b,16#1d5}},{fetchb,{t,678}},nop]).
  
  -define(WRITE,     [reset,{write,678},{write,ok},eof]).
  -define(READ_STOP, [reset,nop,read,stop]).
  -define(WRITE_STOP,[reset,nop,{write,123},stop]).
  -define(READWRITE1,[reset,read,{read,135},nop,nop,nop,eof]).
  
negative.code: 
     spawn(fun() ->
              f18A:reset(F18A),
              f18A:step (F18A,wait),
              f18A:step (F18A,wait),
              f18A:step (F18A,wait),
              f18A:step (F18A,wait),
              f18A:step (F18A,wait),
              f18A:step (F18A,wait),
              f18A:step (F18A,wait),
              f18A:step (F18A,wait),
              M ! { n001,stopped }
  