uses crt;

const hexchar:array[0..15]of char='0123456789ABCDEF';

var data:array[0..255] of byte;
    index:integer;
    f:file;

begin
     clrscr;
     assign(F,'x:\tp7\a\cmos2.txt');
     reset(F);
     BlockRead(F, data, 1);
     for index:=0 to 127 do
         begin
              port[$70]:=index;
              port[$71]:=data[index];

         end;
     close(F);
readkey;
end.