program returnval;

var myval : byte  absolute $5000;

procedure getval;
begin
 inline($3E/$00/
        $21/$00/$50/
        $77);
end;

begin
 getval;
 writeln(myval);
end.