*DECK QU0503                                                             QU0503 
          IDENT  QU0503                                                  QU0503 
          COMMENT  INITIALIZATION OF OVERLAY (5,3).                      QU0503 
          TITLE  QU0503 - INITIALIZATION OF OVERLAY (5,3).               QU0503 
          LIST   F                                                       QU0503 
          LIST   -L          *CALL ENVIRON                               QU0503 
*CALL ENVIRON                                                            QU0503 
          LIST   *                                                       QU0503 
          LIST   -L          *CALL BASIC                                 QU0503 
*CALL BASIC                                                              QU0503 
          LIST   *                                                       QU0503 
          SPACE  4                                                       QU0503 
**        QU0503 - INITIALIZATION OF OVERLAY (5,3).                      QU0503 
*                                                                        QU0503 
*                                                                        QU0503 
                                                                         QU0503 
                                                                         QU0503 
          ENTRY  QU0503                                                  QU0503 
 QU0503   EQ     *+1S17                                                  QU0503 
          SX6    =XAUTOPSY   SET UP *AUTOPSY* ADDRESS FOR ABORT          QU0503 
          SA6    =XAUTLOC                                                QU0503 
          RJ     =XUSECDCS   CONTINUE PROCESSING OF *USE* FOR CDCS       QU0503 
          SX6    1           GO BACK TO (1,0) OVERLAY                    QU0503 
          SA6    PRIMARY                                                 QU0503 
          SX6    B0                                                      QU0503 
          SA6    SECONDY                                                 QU0503 
          RJ     =XLOADX0                                                QU0503 
                                                                         QU0503 
          END    QU0503                                                  QU0503 
