program cwiczenia;
uses dos;
 procedure WriteHexWord(w: Word);
const
 hexChars: array [0..$F] of Char =
   '0123456789ABCDEF';
begin
 Writeln(hexChars[Hi(w) shr 4],
       hexChars[Hi(w) and $F],
       hexChars[Lo(w) shr 4],
       hexChars[Lo(w) and $F]);
end;
var
r:registers;
i :byte;
wsk:pointer;
wi,wo:word;
p:real;
dir:string;
begin
        for i:=1 to 255 do
        begin
        GetIntVec(i,wsk);
        writehexword(seg(wsk^));

        end;
with r do begin

 ah:=$2c;

writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
{msdos(r);}
writeln (ch,' ',cl,' ',' ',dh );
writeln;
writeln;
writeln;
     ah:=$2a;
{msdos(r); }
writeln (cx,' ',dh,' ',' ',dl );




dir:=('c:\nauka\');
dir:=(dir+#0);
ah:=$3b;

ds:=seg(dir);

dx:=ofs(dir)+1;
getdir(0,dir);
writeln (dir) ;


{msdos (r); }
intr($21,r);
 if (r.flags and $01 = $01) then writeln ('ok');
writeln (r.flags and $01,' ',ax);
end;
readln;
end.