SSEXEC
          IDENT  SSEXEC 
          LCC    OVERLAY(SSOVL,00,00,OV=40) 
          LDSET  EPT=SSEXEC 
          LDSET  EPT=SSJ= 
          LDSET  PRESET=ZERO
          ENTRY  SSEXEC 
          ENTRY  SSJ= 
          LDSET  USEP=ABEND 
          LDSET  USEP=BZFILL
          LDSET  USEP=DOZER 
          LDSET  USEP=MEMORY
          LDSET  USEP=MESSAGE 
          LDSET  USEP=MNGMEM
          LDSET  USEP=PDATE 
          LDSET  USEP=READ
          LDSET  USEP=RECALL
          LDSET  USEP=REWIND
          LDSET  USEP=RTIME 
          LDSET  USEP=SETJCI
          LDSET  USEP=SLAVERP 
          LDSET  USEP=SWAPPER 
          LDSET  USEP=SYMSM$
          LDSET  USEP=ZFILL 
          LDSET  USEP=ZSETFET 
          LDSET  USEP=CPU.CPM 
          LDSET  USEP=CPU.CIO 
          LDSET  USEP=CPU.SYS 
          LDSET  USEP=SSOVL 
          TITLE  SSEXEC - *MSAS* EXEC 00,00 OVERLAY IN EXSKEL.
*COMMENT  *MSAS* EXEC 00,00 OVERLAY.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
  
 SSJ=     EQU    0
 SSEXEC  SPACE  4,25
*****     EXSKEL - *MSAS* EXEC OVERLAY SKELETON.
* 
*         EXSKEL IS A COLLECTION OF *COMPASS* PROGRAMS TO PROVIDE 
*         AN OVERLAY CAPABILITY FOR THE *MSAS* EXEC PROGRAMS WRITTEN
*         IN *SYMPL*. 
* 
*         CURRENTLY THE *SYMPL* LANGUAGE DOES NOT SUPPORT THE FEATURES
*         NECESSARY TO DESCRIBE AN OVERLAY TO THE LOADER. 
* 
*         ALL *COMPASS* ROUTINES EXCEPT FOR *SSEXEC* ARE NON-EXECUTABLE 
*         ROUTINES.  THEY PROVIDE THE ENTRY POINT ADDRESS FOR THE 
*         OVERLAY AND THE EXTERNAL ADDRESS TO THE *SYMPL* ROUTINE 
*         WHERE CONTROL IS TO PASS TO AFTER THE OVERLAY IS LOADED.
* 
*         OVERLAYS ARE LOADED BY AN EXPLICIT CALL BY THE USER PROGRAM.
*     THE OVERLAY LOADER ROUTINE *SSOVL* IS TO BE CALLED BY THE 
*         USER TO LOAD AND EXECUTE THE OVERLAY. 
* 
*         THE DESIGN OF THESE *COMPASS* ROUTINES IS SUCH AS TO MEET 
*     THE REQUIREMENTS OF THE OVERLAY LOADER ROUTINE *SSOVL*. 
*         IT IS REQUIRED THAT THE ENTRY POINT ADDRESS OF EACH 
*         OVERLAY CONTAINS (IN BITS 47-30) THE ADDRESS OF THE 
*         *SYMPL* ROUTINE TO BE EXECUTED. 
* 
*         EACH OVERLAY CONTAINS - 
*           . OVERLAY LOADER DIRECTIVE. 
*           . ENTRY POINT.
*           . AT THE ENTRY POINT LOCATION, THE ADDRESS
*             OF THE PROGRAM TO BE EXECUTED.
* 
*         THE FORMAT FOR AN OVERLAY (MM,NN) WHICH HAS THE *SYMPL* 
*         ENTRY POINT *ABCDE* IS AS FOLLOWS - 
* 
*                     IDENT  EXSMMNN
*                     LCC    OVERLAY(SSOVL,MM,NN) 
*            EXSMMNN  BSS    0
*                     RJ     =XABCDE
*                     END    EXSMMNN
* 
*         IN ADDITION, OVERLAY (01,00) CONTAINS A LOADER DIRECTIVE
*         TO OMIT THE SECOND REFERENCE TO ENTRY POINT SSJ=.  THIS 
*         OCCURS IN *ASARG*, WHERE SSJ= IS DEFINED FOR USE BY THE 
*         *MSAS* UTILITIES.  ALSO, A REFERENCE TO *SET0100* IS
*         INCLUDED TO FORCE IT TO BE LOADED IN (01,00).  *SET0100*
*         IS A NON-EXECUTABLE *SYMPL* ROUTINE WHICH PRESETS COMMON
*         AREA(S) WHICH ARE UNIQUE TO (01,00).
* 
*         THE *SYMPL* ENTRY POINT NAMES ASSOCIATED WITH THE VARIOUS 
*         OVERLAY LEVELS ARE -
* 
*           00,00  MSSDIR    *MSAS* EXEC DIRECTOR 
*           01,00  INITLZR   INITIALIZE *MSAS* EXEC 
*           02,00  KDISPLY   *K* DISPLAY PROCESSOR
*           03,00  NEWWORK   NEW WORK PROCESSOR 
*           04,00  HLRQMTR   *HLRQ* MONITOR 
*           05,00  LLRQMTR   *LLRQ* MONITOR 
*           07,00  WRAPUP    *MSAS* EXEC WRAP UP
* 
* 
  
  
 SSEXEC  BSS    0 
          RJ     =XMSASDIR
          ENDRUN
  
          END    SSEXEC 
          IDENT  SXS0100
          LCC    OVERLAY(SSOVL,01,00) 
          LDSET  OMIT=SSJ=   AVOID DUPLICATE ENTRY POINT
          ENTRY  SXS0100
          TITLE  SXS0100 - *MSAS* EXEC 01,00 OVERLAY (INITLZR). 
*COMMENT  SSEXEC - 01,00 OVERLAY (INITLZR). 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0100 - *MSAS* EXEC 01,00 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE EXEC INITIALIZER.
  
  
 SXS0100  BSS    0
          RJ     =XINITLZR   INITIALIZE *MSAS* EXEC 
  
-         VFD    30/=XSET0100  PRESET COMMON UNIQUE TO (01,00)
  
          END    SXS0100
          IDENT  SXS0200
          LCC    OVERLAY(SSOVL,02,00) 
          ENTRY  SXS0200
          TITLE  SXS0200 - *MSAS* EXEC 02,00 OVERLAY (KDISPLY). 
*COMMENT  SSEXEC - 02,00 OVERLAY (KDISPLAY).
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0200 - *MSAS* EXEC 02,00 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE *K* DISPLAY PROCESSOR. 
  
  
 SXS0200  BSS    0
          RJ     =XKDISPLY   *K* DISPLAY PROCESSOR
  
          END    SXS0200
          IDENT  SXS0300
          LCC    OVERLAY(SSOVL,03,00) 
          ENTRY  SXS0300
          TITLE  SXS0300 - *MSAS* EXEC 03,00 OVERLAY (NEWWORK). 
*COMMENT  SSEXEC - 03,00 OVERLAY (NEWWORK). 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0300 - *MSAS* EXEC 03,00 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE EXEC NEW WORK PROCESSOR. 
  
  
 SXS0300  BSS    0
          RJ     =XNEWWORK   NEW WORK PROCESSOR 
  
          END    SXS0300
          IDENT  SXS0301
          LCC    OVERLAY(SSOVL,03,01) 
          ENTRY  SXS0301
          TITLE  SXS0301 - *MSAS* EXEC 03,01 OVERLAY (ADDCUBE). 
*COMMENT  SSEXEC - 03,01 OVERLAY (ADDCUBE). 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0301 - *MSAS* EXEC 03,01 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE ADD CUBE ROUTINE.
  
  
 SXS0301  BSS    0
          RJ     =XADDCUBE   ADD CUBE 
  
          END    SXS0301
          IDENT  SXS0302
          LCC    OVERLAY(SSOVL,03,02) 
          ENTRY  SXS0302
          TITLE  SXS0302 - *MSAS* EXEC 03,02 OVERLAY (ADDCAR).
*COMMENT  SSEXEC - 03,02 OVERLAY (ADDCAR).
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0302 - *MSAS* EXEC 03,02 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE ADD CARTRIDGE ROUTINE. 
  
  
 SXS0302  BSS    0
          RJ     =XADDCAR    ADD CARTRIDGE
  
          END    SXS0302
          IDENT  SXS0303
          LCC    OVERLAY(SSOVL,03,03) 
          ENTRY  SXS0303
          TITLE  SXS0303 - *MSAS* EXEC 03,03 OVERLAY (ADDCSU).
*COMMENT  SSEXEC - 03,03 OVERLAY (ADDCSU).
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0303 - *MSAS* EXEC 03,03 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE ADD CSU ROUTINE. 
  
  
 SXS0303  BSS    0
          RJ     =XADDCSU    ADD CSU
  
          END    SXS0303
          IDENT  SXS0304
          LCC    OVERLAY(SSOVL,03,04) 
          ENTRY  SXS0304
          TITLE  SXS0304 - *MSAS* EXEC 03,04 OVERLAY (RMVCUBE). 
*COMMENT  SSEXEC - 03,04 OVERLAY (RMVCUBE). 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0304 - *MSAS* EXEC 03,04 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE REMOVE CARTRIDGE ROUTINE.
  
  
 SXS0304  BSS    0
          RJ     =XRMVCUBE   REMOVE CARTRIDGE 
  
          END    SXS0304
          IDENT  SXS0305
          LCC    OVERLAY(SSOVL,03,05) 
          ENTRY  SXS0305
          TITLE  SXS0305 - *MSAS* EXEC 03,05 OVERLAY (RMVCAR).
*COMMENT  SSEXEC - 03,05 OVERLAY (RMVCAR).
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0305 - *MSAS* EXEC 03,05 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE REMOVE CARTRIDGE ROUTINE.
  
  
 SXS0305  BSS    0
          RJ     =XRMVCAR    REMOVE CARTRIDGE 
  
          END    SXS0305
          IDENT  SXS0306
          LCC    OVERLAY(SSOVL,03,06) 
          ENTRY  SXS0306
          TITLE  SXS0306 - *MSAS* EXEC 03,06 OVERLAY (RMVCSU).
*COMMENT  SSEXEC - 03,06 OVERLAY (RMVCSU).
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0306 - *MSAS* EXEC 03,06 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE REMOVE CSU ROUTINE.
  
  
 SXS0306  BSS    0
          RJ     =XRMVCSU    REMOVE CSU 
  
          END    SXS0306
          IDENT  SXS0307
          LCC    OVERLAY(SSOVL,03,07) 
          ENTRY  SXS0307
          TITLE  SXS0307 - *MSAS* EXEC 03,07 OVERLAY (UPDCAT).
*COMMENT  SSEXEC - 03,07 OVERLAY (UPDCAT).
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0307 - *MSAS* EXEC 03,07 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE UPDATE MSS CATALOG ROUTINE.
  
  
 SXS0307  BSS    0
          RJ     =XUPDCAT    UPDATE MSS CATALOG 
  
          END    SXS0307
          IDENT  SXS0310
          LCC    OVERLAY(SSOVL,03,10) 
          ENTRY  SXS0310
          TITLE  SXS0310 - *MSAS* EXEC 03,10 OVERLAY (UPDMAP).
*COMMENT  SSEXEC - 03,10 OVERLAY (UPDMAP).
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0310 - *MSAS* EXEC 03,10 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE UPDATE CSUMAP ROUTINE. 
  
  
 SXS0310  BSS    0
          RJ     =XUPDMAP    UPDATE CSUMAP
  
          END    SXS0310
          IDENT  SXS0311
          LCC    OVERLAY(SSOVL,03,11) 
          ENTRY  SXS0311
          TITLE  SXS0311 - *MSAS* EXEC 03,11 OVERLAY (PURGCHN). 
*COMMENT  SSEXEC - 03,11 OVERLAY (PURGCHN). 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0311 - *MSAS* EXEC 03,11 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE PURGE CHAIN ROUTINE. 
  
  
 SXS0311  BSS    0
          RJ     =XRESETUP   RELEASE SETUP
  
          END    SXS0311
          IDENT  SXS0312
          LCC    OVERLAY(SSOVL,03,12) 
          ENTRY  SXS0312
          TITLE  SXS0312 - *MSAS* EXEC 03,12 OVERLAY (PURGFCT). 
*COMMENT  SSEXEC - 03,12 OVERLAY (PURGFCT). 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0312 - *MSAS* EXEC 03,12 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE PURGE FCT ROUTINE. 
  
  
 SXS0312  BSS    0
          RJ     =XPURGFCT   PURGE FCT
  
          END    SXS0312
          IDENT  SXS0313
          LCC    OVERLAY(SSOVL,03,13) 
          ENTRY  SXS0313
          TITLE  SXS0313 - *MSAS* EXEC 03,13 OVERLAY (GETPD). 
*COMMENT  SSEXEC - 03,13 OVERLAY (GETPD). 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0313 - *MSAS* EXEC 03,13 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE GET PURGE DATE ROUTINE.
  
  
 SXS0313  BSS    0
          RJ     =XGETPD    GET PURGE DATE
  
          END    SXS0313
          IDENT  SXS0314
          LCC    OVERLAY(SSOVL,03,14) 
          ENTRY  SXS0314
          TITLE  SXS0314 - *MSAS* EXEC 03,14 OVERLAY (MAPRELS). 
*COMMENT  SSEXEC - 03,14 OVERLAY (MAPRELS). 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0314 - *MSAS* EXEC 03,14 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE RELEASE CSUMAP ROUTINE.
  
  
 SXS0314  BSS    0
          RJ     =XMAPRELS   RELEASE CSUMAP 
  
          END    SXS0314
          IDENT  SXS0315
          LCC    OVERLAY(SSOVL,03,15) 
          ENTRY  SXS0315
          TITLE  SXS0315 - *MSAS* EXEC 03,15 OVERLAY (MAPRCLM). 
*COMMENT  SSEXEC - 03,15 OVERLAY (MAPRCLM). 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0315 - *MSAS* EXEC 03,15 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE RECLAIM CSUMAP ROUTINE.
  
  
 SXS0315  BSS    0
          RJ     =XMAPRCLM   RECLAIM CSUMAP 
  
          END    SXS0315
          IDENT  SXS0316
          LCC    OVERLAY(SSOVL,03,16) 
          ENTRY  SXS0316
          TITLE  SXS0316 - *MSAS* EXEC 03,16 OVERLAY (RCLMLK).
*COMMENT  SSEXEC - 03,16 OVERLAY (RCLMLK).
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0316 - *MSAS* EXEC 03,16 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS ROUTINES TO RECLAIM CATALOG AND
*                CSU MAP INTERLOCKS PERIODICALLY. 
  
  
 SXS0316  BSS    0
          RJ     =XRCLMLK    RECLAIM CATALOGS AND CSU MAPS
  
          END    SXS0316
          IDENT  SXS0400
          LCC    OVERLAY(SSOVL,04,00) 
          ENTRY  SXS0400
          TITLE  SXS0400 - *MSAS* EXEC 04,00 OVERLAY (HLRQMTR). 
*COMMENT  SSEXEC - 04,00 OVERLAY (HLRQMTR). 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0400 - *MSAS* EXEC 04,00 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE EXEC *HLRQ* MONITOR. 
  
  
 SXS0400  BSS    0
          RJ     =XHLRQMTR   *HLRQ* MONITOR 
  
          END    SXS0400
          IDENT  SXS0500
          LCC    OVERLAY(SSOVL,05,00) 
          ENTRY  SXS0500
          TITLE  SXS0500 - *MSAS* EXEC 05,00 OVERLAY (LLRQMTR). 
*COMMENT  SSEXEC - 05,00 OVERLAY (LLRQMTR). 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0500 - *MSAS* EXEC 05,00 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE EXEC *LLRQ* MONITOR. 
  
  
 SXS0500  BSS    0
          RJ     =XLLRQMTR   *LLRQ* MONITOR 
  
          END    SXS0500
          IDENT  SXS0700
          LCC    OVERLAY(SSOVL,07,00) 
          ENTRY  SXS0700
          TITLE  SXS0700 - *MSAS* EXEC 07,00 OVERLAY (WRAPUP).
*COMMENT  SSEXEC - 07,00 OVERLAY (WRAPUP).
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
**        SXS0700 - *MSAS* EXEC 07,00 OVERLAY.
* 
*         NOTE   THIS OVERLAY CONTAINS THE EXEC TERMINATION PROCESSOR.
  
  
 SXS0700  BSS    0
          RJ     =XWRAPUP    *MSAS* EXEC WRAP UP
  
          END    SXS0700
