anchor.diff:     M = setup("-- READ TEST/STEP"),
      util:unregister(n000),
   
  -%   F18A = f18A:create(n001,n000,[read]),
      F18A = f18A:create(n001,n000,[16#04b02,16#001d5]),
   
      f18A:reset(F18A),
  
positive.code: 
     spawn(fun() ->
              f18A:reset(F18A),
              f18A:step (F18A,wait),
              f18A:step (F18A,wait),
              M ! { n001,stopped }
  
negative.code:                        end)),
  
     spawn(fun() ->
              f18A:go   (F18A,wait),
              M ! { n001,stopped }
           end),
  