Retro1.org codex

          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