*DECK QU0501                                                             QU0501 
          IDENT  QU0501                                                  QU0501 
          COMMENT  INITIALIZATION OF OVERLAY (5,1).                      QU0501 
          TITLE  QU0501 - INITIALIZATION OF OVERLAY (5,1).               QU0501 
          LIST   F                                                       QU0501 
          LIST   -L          *CALL ENVIRON                               QU0501 
*CALL ENVIRON                                                            QU0501 
          LIST   *                                                       QU0501 
          LIST   -L          *CALL BASIC                                 QU0501 
*CALL BASIC                                                              QU0501 
          LIST   *                                                       QU0501 
          LIST   -L          *CALL MACRO                                 QU0501 
*CALL MACRO                                                              QU0501 
          LIST   *                                                       QU0501 
          SPACE  4                                                       QU0501 
**        QU0501 - INITIALIZATION OF OVERLAY (5,1).                      QU0501 
*                                                                        QU0501 
*                                                                        QU0501 
                                                                         QU0501 
                                                                         QU0501 
          ENTRY  QU0501                                                  QU0501 
 QU0501   EQ     *+1S17                                                  QU0501 
          SX6    =XAUTOPSY   SET UP *AUTOPSY* ADDRESS FOR ABORT          QU0501 
          SA6    =XAUTLOC                                                QU0501 
                                                                         QU0501 
*         GO TO REQUESTED PROCESSING.                                    QU0501 
                                                                         QU0501 
          SA1    INDEX                                                   QU0501 
          NZ     X1,QU51     IF NOT TO ABORT                             QU0501 
          RJ     =XABORTUS   ABORT CURRENT USE                           QU0501 
          EQ     QU54                                                    QU0501 
                                                                         QU0501 
 QU51     SX1    X1-1                                                    QU0501 
          NZ     X1,QU52     IF NOT *USE*                                QU0501 
          RJ     =XUSE       CALL *USE* IF INDEX = 1                     QU0501 
          EQ     QU54                                                    QU0501 
                                                                         QU0501 
 QU52     SX1    X1-1 
          NZ     X1,QU53     IF NOT *BSTOP* 
          RJ     =XBSTOP     CALL *BSTOP* IF INDEX = 2
          EQ     QU54 
  
 QU53     RJ     =XIMFINVC   CALL *IMFINVC* IF INDEX = 3
  
 QU54     SX6    1                                                       QU0501 
          SA6    PRIMARY                                                 QU0501 
          MX7    0                                                       QU0501 
          SA7    SECONDY                                                 QU0501 
          RJ     =XLOADX0    GO BACK TO (1,0) OVERLAY                    QU0501 
                                                                         QU0501 
          END    QU0501                                                  QU0501 
