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