program qcode4(outfile);
type charr2=packed array[1..2]of char;
     chptr=^charr2;
var outfile:text;
    i1:integer;
    mess1:chptr;
procedure myrecast(var i:integer;ptr:chptr);
var seg,off:integer;
begin
loadadr(i);
storexpr(off);
storexpr(seg);
writeln(outfile,'seg is ',seg,'  offset is ',off);
ptr:=makeptr(seg,off,chptr);
end;
begin
rewrite(outfile,'qcode4.lst');
i1:=16688; {* 'a0' *}
myrecast(i1,mess1);
writeln(outfile,mess1^);
close(outfile);
end.