anchor.diff:                   CPU#cpu.channel#channels.down,
                    Word).
   
  -write_mem(Mem,Addr,Word) ->
  -   write_mem(Mem,Addr,Word,array:size(Mem)).
  +write_mem(Region,Mem,Addr,Word) ->
  +   write_mem(Region,Mem,Addr,Word,array:size(Mem)).
   
   % TODO - FIX ARRAY SIZE AT 64
  -write_mem(Mem,Addr,Word,N) when Addr < N ->
  -   { ok,array:set(Addr,Word,Mem) };
  -
  -write_mem(_Mem,_Addr,_Word,_N) ->
  +write_mem(Region,Mem,Addr,Word,N) when Addr < N ->
  +   { ok,Region,array:set(Addr,Word,Mem) };
  +
  +write_mem(_Region,_Mem,_Addr,_Word,_N) ->
      eof.
   
   write_channel(CPU,Ch,Word) ->
  
positive.code:    B = CPU#cpu.b,     
     T = CPU#cpu.t,
     case write(CPU,B,T) of 
          {ok,RAM} ->
              {ok,pop(ds,CPU#cpu{ ram = RAM },CPU#cpu.s)};
  
          Other ->
              Other
  
negative.code: test_init(CPU,[{rom,A,W} |T]) -> test_init(CPU#cpu{rom=array:set(A,W,CPU#cpu.rom)},T).
  
  test_verify(Expected,Actual) ->
  %  ?debugFmt("EXPECTED: ~p",[Expected#cpu.rom]),
  %  ?debugFmt("ACTUAL:   ~p",[Actual#cpu.rom]),
     ?assertEqual(Expected,Actual).
  
  assert ([],_CPU) ->
  