MCB

uses dos, crt;

var
rej:registers;
seg:word;

function getAddress(r:registers):word;
begin
r.AH:=$52;
intr($21,r);
getAddress := mem[r.ES:r.BX-2];
end;

begin
clrscr;
seg := getAddress(rej);
writeln(seg);
writeln(mem[seg:0]);
writeln(memw[seg:1]);
writeln(memw[seg:3]);
writeln(meml[seg:8]);
writeln(meml[seg:12]);
readln;
end.