<< LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION>>               00000001
   DEFINE                                                      <<*7924>>00313000
      turn'traps'off =                                         <<*7924>>00313100
           PUSH(STATUS);tos.(2:1):=0;SET(STATUS)#,             <<*7924>>00313200
      turn'traps'on  =                                         <<*7924>>00313300
           PUSH(STATUS);tos.(2:1):=1;SET(STATUS)#;             <<*7924>>00313400
                ,traps'off   << flag to show traps off   >>    <<*7924>>00357000
$EDIT VOID=00386000                                            <<06240>>00374000
   IF traps'off THEN                                           <<*7924>>00528100
      BEGIN                                                    <<*7924>>00528200
      turn'traps'on;                                           <<*7924>>00528300
      traps'off := FALSE;                                      <<*7924>>00528400
      END;                                                     <<*7924>>00528500
      turn'traps'off;                                          <<*7924>>01186100
      traps'off := TRUE;                                       <<*7924>>01186200
      IF LPDT'NON'SYS'DOMAIN AND LPDT'RDY'SER'FRN'DISC THEN    <<06240>>01240000
         GOTO NEXT'VOL;                                        <<06240>>01242000
                                                               <<06240>>01244000
                                                               <<06240>>01246000
      IF LPDT'NON'SYS'DOMAIN THEN                              <<06240>>01304000
            IF NOT LPDT'MOUNTED'PV THEN                        <<06240>>01314000
                                                               <<06240>>01316000
