function entry:integer; { return the entry point parameter after a chain } { must be used before anything has a chance to change the FIRQB } var firqbline origin 440B: integer; begin entry := firqbline and 077777B end;