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