User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:combovl

Common COMBOVL

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.combovl +++|
00002  M01S00002.combovl +++|#     COMBOVL - *SSEXEC* OVERLAY DEFINITIONS.                        #
00003  M01S00003.combovl +++|                                               CONTROL NOLIST;
00004  M01S00004.combovl +++|                                               CONTROL IFEQ LISTCON,1;
00005  M01S00005.combovl +++|                                               CONTROL LIST;
00006  M01S00006.combovl +++|                                               CONTROL FI;
00007  M01S00007.combovl +++|      BEGIN  # COMBOVL #
00008  M01S00008.combovl +++|
00009  M01S00009.combovl +++|#
00010  M01S00010.combovl +++|***   COMBOVL - M860 EXEC OVERLAY DEFINITIONS.
00011  M01S00011.combovl +++|*
00012  M01S00012.combovl +++|*     THIS COMMON DECK CONTAINS DEFINITIONS REQUIRED FOR CALLING
00013  M01S00013.combovl +++|*     PROGRAM OVERLAYS.
00014  M01S00014.combovl +++|*
00015  M01S00015.combovl +++|#
00016  M01S00016.combovl +++|
00017  M01S00017.combovl +++|
00018  M01S00018.combovl +++|      DEF EP         #0#;            # TO SPECIFY THE ENTRY POINT #
00019  M01S00019.combovl +++|
00020  M01S00020.combovl +++|#
00021  M01S00021.combovl +++|*     DRIVER MACROS.
00022  M01S00022.combovl +++|#
00023  M01S00023.combovl +++|
00024  M01S00024.combovl +++|#
00025  M01S00025.combovl +++|*     PREXIT(PROVL) - PRESET EXIT MACRO.
00026  M01S00026.combovl +++|*                     SETS THE LEVEL NUMBER OF THE OVERLAY TO BE
00027  M01S00027.combovl +++|*                     NEXT EXECUTED IN THE CBT ARRAY. THEN EXITS THIS
00028  M01S00028.combovl +++|*                     PROCEDURE.
00029  M01S00029.combovl +++|*           (PROVL) = OVERLAY LEVEL NUMBER.
00030  M01S00030.combovl +++|#
00031  M01S00031.combovl +++|
00032  M01S00032.combovl +++|      DEF PREXIT     (PROVL)   #CBT$DESTOV[0] = PROVL;
00033  M01S00033.combovl +++|      CBT$DESTAD[0] = 0;
00034  M01S00034.combovl +++|      RETURN;
00035  M01S00035.combovl +++|      #;
00036  M01S00036.combovl +++|
00037  M01S00037.combovl +++|#
00038  M01S00038.combovl +++|*     RJEXIT(RJLABEL) - RETURN JUMP EXIT MACRO.
00039  M01S00039.combovl +++|*                       SETS THE ADDRESS OF THE LABEL TO RETURN TO
00040  M01S00040.combovl +++|*                       IN THE CBT ARRAY.  THEN EXITS THIS PROCEDURE.
00041  M01S00041.combovl +++|*           (RJLABEL) = LABEL NAME.
00042  M01S00042.combovl +++|#
00043  M01S00043.combovl +++|
00044  M01S00044.combovl +++|      DEF RJEXIT     (RJLABEL) #CBT$DESTAD[0] = LOC(RJLABEL);
00045  M01S00045.combovl +++|      RETURN;
00046  M01S00046.combovl +++|      #;
00047  M01S00047.combovl +++|
00048  M01S00048.combovl +++|#
00049  M01S00049.combovl +++|*     OVLXFR(PROVL,RJLABEL) - MACRO TO TRANSFER FROM ONE OVERLAY
00050  M01S00050.combovl +++|*                             TO ANOTHER, WITH CAPABILITY TO RETURN
00051  M01S00051.combovl +++|*                             TO THE CALLING OVERLAY THROUGH THE
00052  M01S00052.combovl +++|*                             USE OF THE *OVLRTN* MACRO.
00053  M01S00053.combovl +++|*                    PROVL  = OVERLAY LEVEL NUMBER.
00054  M01S00054.combovl +++|*                  RJLABEL  = LABEL NAME FOR RETURN.
00055  M01S00055.combovl +++|#
00056  M01S00056.combovl +++|
00057  M01S00057.combovl +++|      DEF OVLXFR     (PROVL,RJLABEL) #CBT$DESTAD[0] = LOC(RJLABEL);
00058  M01S00058.combovl +++|      ERB$DESTSV[0] = CBT$DEST[0];
00059  M01S00059.combovl +++|      CBT$DESTAD[0] = 0;
00060  M01S00060.combovl +++|      CBT$DESTOV[0] = PROVL;
00061  M01S00061.combovl +++|      RCOVL(PROVL,EP);
00062  M01S00062.combovl +++|      #;
00063  M01S00063.combovl +++|
00064  M01S00064.combovl +++|#
00065  M01S00065.combovl +++|*     OVLRTN - MACRO TO RETURN FROM ONE OVERLAY TO THE OVERLAY
00066  M01S00066.combovl +++|*              FROM WHICH IT WAS CALLED. THE RETURN IS AT THE
00067  M01S00067.combovl +++|*              STATEMENT AFTER THE CALL.
00068  M01S00068.combovl +++|#
00069  M01S00069.combovl +++|
00070  M01S00070.combovl +++|      DEF OVLRTN     #CBT$DEST[0] = ERB$DESTSV[0];
00071  M01S00071.combovl +++|      RCOVL(CBT$DESTOV[0],CBT$DESTAD[0]);
00072  M01S00072.combovl +++|      #;
00073  M01S00073.combovl +++|
00074  M01S00074.combovl +++|
00075  M01S00075.combovl +++|#
00076  M01S00076.combovl +++|*     CALLOVL - MACRO TO CALL AN OVERLAY ON TOP OF THE CURRENT ONE
00077  M01S00077.combovl +++|*               AND TRANSFER TO ITS ENTRY POINT.
00078  M01S00078.combovl +++|#
00079  M01S00079.combovl +++|
00080  M01S00080.combovl +++|      DEF CALLOVL     (PROVL)  #CBT$DESTOV[0] = PROVL;
00081  M01S00081.combovl +++|      RCOVL(CBT$DESTOV[0],EP);
00082  M01S00082.combovl +++|      #;
00083  M01S00083.combovl +++|
00084  M01S00084.combovl +++|
00085  M01S00085.combovl +++|#
00086  M01S00086.combovl +++|*     OVERLAY LEVELS ASSIGNED TO PROCEDURES.
00087  M01S00087.combovl +++|*     (THE OCTAL VALUE IS THE PRIMARY AND SECONDARY LEVEL NUMBER
00088  M01S00088.combovl +++|*     FOR THE OVERLAY THAT IS TO BE PASSED TO *SSOVL* ).
00089  M01S00089.combovl +++|#
00090  M01S00090.combovl +++|
00091  M01S00091.combovl +++|      DEF LINITLZR   #O"0100" #;     # *EXEC* INITIALIZER #
00092  M01S00092.combovl +++|      DEF LKDISPLY   #O"0200" #;     # *K* DISPLAY PROCESSOR #
00093  M01S00093.combovl +++|      DEF LNEWWORK   #O"0300" #;     # NEW WORK PROCESSOR #
00094  M01S00094.combovl +++|      DEF LADDCUBE   #O"0301" # ;    # ADD CUBE #
00095  M01S00095.combovl +++|      DEF LADDCAR    #O"0302" # ;    # ADD CARTRIDGE #
00096  M01S00096.combovl +++|      DEF LADDCSU    #O"0303" # ;    # ADD CSU #
00097  M01S00097.combovl +++|      DEF LRMVCUBE   #O"0304" # ;    # REMOVE CUBE #
00098  M01S00098.combovl +++|      DEF LRMVCAR    #O"0305" # ;    # REMOVE CARTRIDGE #
00099  M01S00099.combovl +++|      DEF LRMVCSU    #O"0306" # ;    # REMOVE CSU #
00100  M01S00100.combovl +++|      DEF LUPDCAT    #O"0307" # ;    # UPDATE CATALOG #
00101  M01S00101.combovl +++|      DEF LUPDMAP    #O"0310" # ;    # UPDATE CSUMAP #
Line S00102 Modification History
M01 (Added by) combovl
M02 (Updated by) common1
Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00102.common1 ---|      DEF LPURGCHN   #O"0311" # ;    # PURGE CHAIN #
00103  M01S00001.common1 +++|      DEF LRESETUP   #O"0311" #;     # RELEASE #
00104  M01S00103.combovl +++|      DEF LPURGFCT   #O"0312" # ;    # PURGE FCT #
00105  M01S00104.combovl +++|      DEF LGETPD     #O"0313" # ;    # GET PURGE DATE #
00106  M01S00105.combovl +++|      DEF LMAPRELS   #O"0314" # ;    # RELEASE CSUMAP #
00107  M01S00106.combovl +++|      DEF LMAPRCLM   #O"0315" # ;    # RECLAIM CSUMAP #
00108  M01S00107.combovl +++|      DEF LRCLMLK    #O"0316" #;     # RECLAIM CATALOG/MAP INTERLOCKS #
00109  M01S00108.combovl +++|      DEF LHLRQMTR   #O"0400" #;     # *HLRQ* MONITOR #
00110  M01S00109.combovl +++|      DEF LLLRQMTR   #O"0500" #;     # *LLRQ* MONITOR #
00111  M01S00110.combovl +++|      DEF LWRAPUP    #O"0700" #;     # *EXEC* WRAPUP #
00112  M01S00111.combovl +++|
00113  M01S00112.combovl +++|#
00114  M01S00113.combovl +++|*     MSSSLV OVERLAY LEVELS (71B,72B).
00115  M01S00114.combovl +++|#
00116  M01S00115.combovl +++|
00117  M01S00116.combovl +++|      DEF LSLVINIT #O"7100" #;   # MSSSLV INITIALIZER #
00118  M01S00117.combovl +++|      DEF LSLVLOOP #O"7200" #;   # MSSSLV MAIN LOOP #
00119  M01S00118.combovl +++|
00120  M01S00119.combovl +++|      END  # COMBOVL #
00121  M01S00120.combovl +++|
00122  M01S00121.combovl +++|                                               CONTROL LIST;
cdc/nos2.source/opl.opl871/common/combovl.txt ยท Last modified: by 127.0.0.1