uses crt;

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

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

procedure vypis;
var i,j:integer;
begin
Assign(F, 'x:\tp7\a\cmos.txt');
Rewrite(F);
     for i:=0 to 7 do begin
         write(f, hexchar[i] );
         write(f, '0   ' );
         for j:=0 to 15 do begin
             write(f, hexchar[ data[ i*16+j ] shr 4 ]);
             write(f, hexchar[ data[ i*16+j ] and $F ]);
             write(f,' ');
             if j=7 then write(f,'| ');
         end;
         writeln(f);
     end;
close(f);
end;

begin
clrscr;
for index:=0 to 127 do begin
    port[$70]:=index;
    data[index]:=port[$71];
    end;
vypis;

delay(1500);
end.