*DECK,QU0300
          IDENT  QU0300 
          COMMENT  INITIALIZATION OF OVERLAY 3-0
QU0300    TITLE    QU0300 - INITIALIZATION OF OVERLAY 3-0 
          ENTRY  QU0300 
          LIST   -L          *CALL MACRO
*CALL MACRO 
          LIST   L
          LIST   -L          CALL *NUMOPT 
*CALL NUMOPT
          LIST   L
QU0300    JP     *+400000B
          SX6    AUTOPSY     SET ADDRESS FOR REPRIEVE 
          SA6    =XAUTLOC                                               000230
          RJ     =XSRT4OR5
          EQ     QU0300 
          SPACE  4
 AUTOPSY  SUBR                     **ENTRY/EXIT** 
          IFEQ   SORT5,ABSENT 
          RJ     =XS.RELES         -- FREE ANY REMAINING SORT BLOCKS -- 
          ENDIF 
          EQ     EXIT.
          SPACE  4
          END    QU0300 
