Retro1.org codex

          IDENT  SSSLV 
          LCC    OVERLAY(SSLVOVL,00,00,OV=100)
          LDSET  EPT=SSSLV
          LDSET  EPT=SSJ=
          ENTRY  SSSLV
          ENTRY  SSJ=
          TITLE  SSSLV - MASA SLAVE EXEC 00,00 OVERLAY IN SLVSKEL.
*COMMENT  *MSAS* SLAVE 00,00 OVERLAY.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
 
 SSJ=     EQU    0
 
*****     SLVSKEL - MASA SLAVE EXEC OVERLAY SKELETON.
*
*         SLVSKEL IS A COLLECTION OF COMPASS PROGRAMS TO PROVIDE
*         AN OVERLAY CAPABILITY FOR THE MASA SLAVE EXEC WRITTEN
*         IN SYMPL.
*
*         CURRENTLY THE SYMPL LANGUAGE DOES NOT SUPPORT THE FEATURES
*         NECESSARY TO DESCRIBE AN OVERLAY TO THE LOADER.
*
*         ALL COMPASS ROUTINES EXCEPT THE SSSLV ARE NON-EXECUTED
*         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 TO MEET
*     THE REQUIREMENTS OF THE OVERLAY ROUTINE *SSOVL*.
*
*         EACH OVERLAY CONTAINS -
*           . OVERLAY LOADER DIRECTIVE.
*           . ENTRY POINT.
*           . AT THE ENTRY POINT LOCATION, THE ADDRESS
*             TO THE PROGRAM TO BE EXECUTED.
*
*
 SSSLV  BSS    0
          RJ     =XSLVEXEC
          ENDRUN
          END    SSSLV
          IDENT  SXL7100
          LCC    OVERLAY(SSLVOVL,71,00)
          LDSET  OMIT=SSJ=
          ENTRY  SXL7100
          TITLE  SXL7100 - MASA SLAVE EXEC 71,00 OVERLAY (INITIALIZER).
*COMMENT  SSEXEC - 71,00 OVERLAY (INITIALIZER).
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
 SXL7100  BSS
          RJ     =XSLVINIT   PROCEDURE ADDRESS
          END    SXL7100
          IDENT  SXL7200
          LCC    OVERLAY(SSLVOVL,72,00)
          ENTRY  SXL7200
          TITLE  SXL7200 - MASA SLAVE EXEC 72,00 OVERLAY (SLVLOOP).
*COMMENT  SSEXEC - 72,00 OVERLAY (SLVLOOP).
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
 SXL7200  BSS
          RJ     =XSLVLOOP   PROCEDURE ADDRESS
          END    SXL7200