anchor.diff:  -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(WRITE,     [reset,{fetchp,{t,16#1d5}},{bstore,{b,16#1d5}},{fetchp,{t,678}},nop,{storeb,{b,16#1d5},{t,678}},nop,nop,nop]).
  +
   -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]).
  
positive.code: 
     spawn(fun() ->
              f18A:reset(F18A),
              f18A:step (F18A,wait),
              f18A:step (F18A,wait),
              M ! { n001,stopped }
  
negative.code:    M = setup("-- READ TEST/STEP"),
     util:unregister(n000),
  
     F18A = f18A:create(n001,n000,[16#04b02,16#001d5]),
  
     f18A:reset(F18A),
  