anchor.diff:           log:info(?TAG,"GO/W"),
            Next = go_impl(CPU),
            PID ! gone,
  -         loop(Next);
  -
  -      {Ch,write,Word} ->
  -         loop({run,CPU#cpu{fifo={Ch,Word}
  -                          }
  -              });
  -
  -      _any ->
  -         ?debugFmt("??? F18A: ~p",[_any]),
  -         loop({run,CPU})
  +         loop(Next)
  +
         end.
   
   step_impl(CPU) ->
  
positive.code:          read(CPU);
  
        {stop,PID} ->
           {stop,PID};
  
        _any ->
           log:warn(?TAG,"READ/? ~p",[_any]),
           {error,_any}
     end.
     
  
  
negative.code:          write_wait(CPU);
  
        {stop,PID} ->
           {stop,PID}
     end.
  
  % EUNIT TESTS
  