<< LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION>>               00000001
   EQUATE mvtab'sir = 27;                                      <<01238>>00056000
         "FREE5         (C) HEWLETT-PACKARD CO., 1983"#;       <<07340>>00076000
                                                               <<07340>>00087000
<< allows LPDT include file to be used >>                      <<07340>>00087100
DEFINE                                                         <<07340>>00087200
   LPDT'INDEX = LDEV * SIZE'OF'LPDT'ENTRY#;                    <<07340>>00087300
                                                               <<*7976>>00087310
<< We look in the PCB to determine if we are running on     >> <<*7976>>00087320
<< MPE4 or MPE5                                             >> <<*7976>>00087330
                                                               <<*7976>>00087340
INTEGER POINTER PCB=3;                                         <<*7976>>00087350
DEFINE                                                         <<*7976>>00087360
   PCB'SIZE      = PCB(1)#,                                    <<*7976>>00087370
   MPEV'PCB'SIZE = %25#;                                       <<*7976>>00087380
$SET X8=ON                                                     <<07340>>00099000
$INCLUDE INCLLPDT                                              <<07340>>00099100
   MOVE fdesg:="free5out  ";                                   <<f8120>>00254000
         IF PCB'SIZE <> MPEV'PCB'SIZE THEN                     <<*7976>>00287000
            BEGIN   << we must be running MPE5 >>              <<*7976>>00287010
            GENMSG (2,1259);                                   <<*7976>>00287020
            TERMINATE;                                         <<*7976>>00287030
            END;                                               <<*7976>>00287040
