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