COMBOVL 
COMMON
  
#     COMBOVL - *SSEXEC* OVERLAY DEFINITIONS.                        #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMBOVL #
  
# 
***   COMBOVL - M860 EXEC OVERLAY DEFINITIONS.
* 
*     THIS COMMON DECK CONTAINS DEFINITIONS REQUIRED FOR CALLING
*     PROGRAM OVERLAYS. 
* 
# 
  
  
      DEF EP         #0#;            # TO SPECIFY THE ENTRY POINT # 
  
# 
*     DRIVER MACROS.
# 
  
# 
*     PREXIT(PROVL) - PRESET EXIT MACRO.
*                     SETS THE LEVEL NUMBER OF THE OVERLAY TO BE
*                     NEXT EXECUTED IN THE CBT ARRAY. THEN EXITS THIS 
*                     PROCEDURE.
*           (PROVL) = OVERLAY LEVEL NUMBER. 
# 
  
      DEF PREXIT     (PROVL)   #CBT$DESTOV[0] = PROVL;
      CBT$DESTAD[0] = 0;
      RETURN; 
      #;
  
# 
*     RJEXIT(RJLABEL) - RETURN JUMP EXIT MACRO. 
*                       SETS THE ADDRESS OF THE LABEL TO RETURN TO
*                       IN THE CBT ARRAY.  THEN EXITS THIS PROCEDURE. 
*           (RJLABEL) = LABEL NAME. 
# 
  
      DEF RJEXIT     (RJLABEL) #CBT$DESTAD[0] = LOC(RJLABEL); 
      RETURN; 
      #;
  
# 
*     OVLXFR(PROVL,RJLABEL) - MACRO TO TRANSFER FROM ONE OVERLAY
*                             TO ANOTHER, WITH CAPABILITY TO RETURN 
*                             TO THE CALLING OVERLAY THROUGH THE
*                             USE OF THE *OVLRTN* MACRO.
*                    PROVL  = OVERLAY LEVEL NUMBER. 
*                  RJLABEL  = LABEL NAME FOR RETURN.
# 
  
      DEF OVLXFR     (PROVL,RJLABEL) #CBT$DESTAD[0] = LOC(RJLABEL); 
      ERB$DESTSV[0] = CBT$DEST[0];
      CBT$DESTAD[0] = 0;
      CBT$DESTOV[0] = PROVL;
      RCOVL(PROVL,EP);
      #;
  
# 
*     OVLRTN - MACRO TO RETURN FROM ONE OVERLAY TO THE OVERLAY
*              FROM WHICH IT WAS CALLED. THE RETURN IS AT THE 
*              STATEMENT AFTER THE CALL.
# 
  
      DEF OVLRTN     #CBT$DEST[0] = ERB$DESTSV[0];
      RCOVL(CBT$DESTOV[0],CBT$DESTAD[0]); 
      #;
  
  
# 
*     CALLOVL - MACRO TO CALL AN OVERLAY ON TOP OF THE CURRENT ONE
*               AND TRANSFER TO ITS ENTRY POINT.
# 
  
      DEF CALLOVL     (PROVL)  #CBT$DESTOV[0] = PROVL;
      RCOVL(CBT$DESTOV[0],EP);
      #;
  
  
# 
*     OVERLAY LEVELS ASSIGNED TO PROCEDURES.
*     (THE OCTAL VALUE IS THE PRIMARY AND SECONDARY LEVEL NUMBER
*     FOR THE OVERLAY THAT IS TO BE PASSED TO *SSOVL* ).
# 
  
      DEF LINITLZR   #O"0100" #;     # *EXEC* INITIALIZER # 
      DEF LKDISPLY   #O"0200" #;     # *K* DISPLAY PROCESSOR #
      DEF LNEWWORK   #O"0300" #;     # NEW WORK PROCESSOR # 
      DEF LADDCUBE   #O"0301" # ;    # ADD CUBE # 
      DEF LADDCAR    #O"0302" # ;    # ADD CARTRIDGE #
      DEF LADDCSU    #O"0303" # ;    # ADD CSU #
      DEF LRMVCUBE   #O"0304" # ;    # REMOVE CUBE #
      DEF LRMVCAR    #O"0305" # ;    # REMOVE CARTRIDGE # 
      DEF LRMVCSU    #O"0306" # ;    # REMOVE CSU # 
      DEF LUPDCAT    #O"0307" # ;    # UPDATE CATALOG # 
      DEF LUPDMAP    #O"0310" # ;    # UPDATE CSUMAP #
      DEF LRESETUP   #O"0311" #;     # RELEASE #
      DEF LPURGFCT   #O"0312" # ;    # PURGE FCT #
      DEF LGETPD     #O"0313" # ;    # GET PURGE DATE # 
      DEF LMAPRELS   #O"0314" # ;    # RELEASE CSUMAP # 
      DEF LMAPRCLM   #O"0315" # ;    # RECLAIM CSUMAP # 
      DEF LRCLMLK    #O"0316" #;     # RECLAIM CATALOG/MAP INTERLOCKS # 
      DEF LHLRQMTR   #O"0400" #;     # *HLRQ* MONITOR # 
      DEF LLLRQMTR   #O"0500" #;     # *LLRQ* MONITOR # 
      DEF LWRAPUP    #O"0700" #;     # *EXEC* WRAPUP #
  
# 
*     MSSSLV OVERLAY LEVELS (71B,72B).
# 
  
      DEF LSLVINIT #O"7100" #;   # MSSSLV INITIALIZER # 
      DEF LSLVLOOP #O"7200" #;   # MSSSLV MAIN LOOP # 
  
      END  # COMBOVL #
  
                                               CONTROL LIST;
