User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:library

Deck LIBRARY

10 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.library +++|          IDENT  LIBRARY,FETS
00002  M01S00002.library +++|          TITLE  LIBRARY - DECLARE GLOBAL LIBRARY SET.
00003  M01S00003.library +++|          ABS
00004  M01S00004.library +++|          SST
00005  M01S00005.library +++|          ENTRY  LIBRARY
00006  M01S00001.ns2055a +++|          ENTRY  LIB=
00007  M01S00006.library +++|          ENTRY  RFL=
00008  M01S00007.library +++|          ENTRY  SSJ=
00009  M01S00008.library +++|          SYSCOM B1
00010  M01S00009.library +++|          BASE   DECIMAL
00011  M01S00010.library +++|*COMMENT  LIBRARY - DECLARE GLOBAL LIBRARY SET.
Line S00011 Modification History
M01 (Added by) library
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00012  M02S00011.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
00013  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00014  M01S00012.library +++|          SPACE  4,10
00015  M01S00013.library +++|*****     LIBRARY - DECLARE GLOBAL LIBRARY SET.
00016  M01S00014.library +++|*
00017  M01S00015.library +++|*         F. E. TERHAAR-YONKERS.  81/01/21.
00018  M01S00016.library +++|*
00019  M01S00017.library +++|*         *LIBRARY* CHANGES THE GLOBAL LIBRARY INFORMATION IN
00020  M01S00018.library +++|*         THE CONTROL POINT AREA.
00021  M01S00019.library +++|          SPACE  4,10
00022  M01S00020.library +++|***       *LIBRARY* CHANGES THE GLOBAL LIBRARY INFORMATION IN
00023  M01S00021.library +++|*         THE CONTROL POINT AREA.  THE GLOBAL LIBRARY SET IS EITHER
00024  M01S00022.library +++|*         CLEARED OR SET TO A LIST OF FILES DEPENDING ON THE
00025  M01S00023.library +++|*         CONTROL STATEMENT FORMAT.
00026  M01S00024.library +++|*         THE LIBRARY NAMES ARE VALIDATED AND SEARCHED IN THE ORDER
00027  M01S00025.library +++|*         ON THE CONTROL STATEMENT.  THE *ULIB* RECORD IN EACH
00028  M01S00026.library +++|*         LIBRARY IS SEARCHED FOR CONTROL CARD CALLABLE ENTRY POINTS
00029  M01S00027.library +++|*         (A *PROC* NAME, RELOCATABLE MAIN PROGRAM NAME, OR AN ENTRY
00030  M01S00028.library +++|*         POINT IN AN ABSOLUTE PROGRAM).  FOR EACH ENTRY POINT FOUND,
00031  M01S00029.library +++|*         A FOUR WORD DIRECTORY ENTRY IS WRITTEN TO THE *ZZZZZLD* FILE.
00032  M01S00030.library +++|*
00033  M01S00031.library +++|*         THE DIRECTORY FORMAT IS AS FOLLOWS.
00034  M01S00032.library +++|*
00035  M01S00033.library +++|*T        42/  ENTRY POINT NAME,12/  0,6/  RT
Figure

056171829 RT 0 ENTRY POINT NAME3059 ENTRY POINT NAME

00036  M01S00034.library +++|*T,       24/  RANDOM ADDRESS,36/  0
Figure

029 030353659 0 RANDOM ADDRESS

00037  M01S00035.library +++|*T,       42/  LIBRARY NAME,18/  0
Figure

0171829 0 LIBRARY NAME3059 LIBRARY NAME


Line S00036 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00038  M02S00036.ns2268  ---|*T,       12/  FL,11/  0,1/N,36/  0
Figure

029 030353637474859 0N 0 FL


Line S00001 Modification History
M01 (Added by) ns2268
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00001.261l700 ---|*T,       12/  FL,11/  0,1/N,12/  SEPF,24/  0
Figure

0232429 0 SEPF30353637474859 SEPFN 0 FL

00040  M01S00001.261l700 +++|*T,       12/  FL,11/  0,1/N,12/  SEPF,6/  0,18/ SSJB
Figure

01718232429 SSJB 0 SEPF30353637474859 SEPFN 0 FL

00041  M01S00037.library +++|*
00042  M01S00038.library +++|*         RT = RECORD TYPE.
00043  M01S00039.library +++|*         FL = REQUIRED FIELD LENGTH/100B.
00044  M01S00040.library +++|*         N = PARAMETER CRACKING FORMAT.
00045  M01S00041.library +++|*             SET IF *NPC=* ENTRY POINT DEFINED.
00046  M01S00002.ns2268  +++|*         SEPF = SPECIAL ENTRY POINT FLAGS
00047  M01S00003.ns2268  +++|*                (SEE BYTE 0 OF *SEPW* IN *PPCOM*).
00048  M01S00002.261l700 +++|*         SSJB = *SSJ=* PARAMETER BLOCK ADDRESS.
00049  M01S00042.library +++|*
00050  M01S00043.library +++|*         IF ONE OR MORE CONTROL CARD CALLABLE ENTRY POINTS ARE
00051  M01S00044.library +++|*         FOUND, THE GLOBAL LIBRARY BIT IS SET IN *LB1W* IN
00052  M01S00045.library +++|*         THE CONTROL POINT AREA.
00053  M01S00046.library +++|          SPACE  4,10
00054  M01S00047.library +++|***       CONTROL STATEMENT FORMAT.
00055  M01S00048.library +++|*
00056  M01S00049.library +++|*      FORMAT                   ACTION
00057  M01S00050.library +++|*
00058  M01S00051.library +++|*      LIBRARY.                 CLEAR GLOBAL LIBRARY SET.
00059  M01S00052.library +++|*      LIBRARY(LIB1,...,LIBN)   SET GLOBAL LIBRARY SET = LIB1,...,LIBN.
00060  M01S00053.library +++|*      LIBRARY(LIB1,...,LIBN/R) SET GLOBAL LIBRARY SET = LIB1,...,LIBN.
00061  M01S00054.library +++|*      LIBRARY(LIB1,...,LIBN/D) DELETE LIB1,...,LIBN FROM GLOBAL SET.
00062  M01S00055.library +++|*      LIBRARY(LIB1,...,LIBN/A) ADD LIB1,...,LIBN TO THE GLOBAL SET.
00063  M01S00056.library +++|*
00064  M01S00057.library +++|*
00065  M01S00058.library +++|*         NOTES:
00066  M01S00059.library +++|*
00067  M01S00060.library +++|*         1) TO BE ABLE TO DO CONTROL CARD CALLS FROM USER LIBRARIES
00068  M01S00061.library +++|*         THE LIBRARIES MUST BE LOCAL TO THE JOB WHEN *LIBRARY* IS
00069  M01S00062.library +++|*         RUN.  THIS IS AN INCOMPATABILITY WITH THE SAME FEATURE ON
00070  M01S00063.library +++|*         NOS/BE.
00071  M01S00064.library +++|*
00072  M01S00065.library +++|*         2) IF THE USER SIMPLY WANTS TO SATISFY RELOCATABLE LOADS AND
00073  M01S00066.library +++|*         DOES NOT WISH TO INCUR THE ADDITIONAL OVERHEAD OF SEARCHING
00074  M01S00067.library +++|*         THE DIRECTORY FOR A VALID ENTRY POINT, *LIBRARY* SHOULD BE
00075  M01S00068.library +++|*         EXECUTED PRIOR TO THE GET/ATTACH OF THE USER LIBRARIES.
00076  M01S00069.library +++|*
00077  M01S00070.library +++|*         3) BIT 58 IN THE LOADER CONTROL WORD IS UTILIZED AS THE FLAG
00078  M01S00071.library +++|*         FOR THE GLOBAL LIBRARY PROCESS.  THIS BIT WILL BE CHECKED
00079  M01S00072.library +++|*         BY *1AJ* BEFORE ANY DIRECTORY SEARCHES ARE MADE.
00080  M01S00073.library +++|          SPACE  4,10
00081  M01S00074.library +++|***       DAYFILE MESSAGES.
00082  M01S00075.library +++|*
00083  M01S00076.library +++|*
00084  M01S00077.library +++|*         * ERROR IN LIBRARY ARGUMENTS.* = AN ILLEGAL ARGUMENT OR
00085  M01S00078.library +++|*                FORMAT WAS USED ON THE CONTROL STATEMENT.  COMPARE
00086  M01S00079.library +++|*                THE CONTROL STATEMENT USED WITH THE DOCUMENTED
00087  M01S00080.library +++|*                FORMATS.
00088  M01S00081.library +++|*                THE GLOBAL LIBRARY SET CURRENTLY IN EFFECT REMAINS
00089  M01S00082.library +++|*                UNCHANGED.
00090  M01S00083.library +++|*
00091  M01S00084.library +++|*         * TOO MANY LIBRARY NAMES SPECIFIED.* = THE NUMBER OF
00092  M01S00085.library +++|*                LIBRARIES EXCEEDS THE NUMBER THAT CAN BE STORED IN THE
00093  M01S00086.library +++|*                CONTROL POINT AREA.  THE GLOBAL LIBRARY SET CURRENTLY
00094  M01S00087.library +++|*                IN EFFECT REMAINS UNCHANGED.
00095  M01S00088.library +++|*
00096  M01S00089.library +++|*         * GLOBAL LIBRARY SET CLEARED.* = FORMAT 1 ( NO ARGUMENTS ) OF
00097  M01S00090.library +++|*                THE CONTROL STATEMENT WAS PROCESSED.  ALL THE GLOBAL
00098  M01S00091.library +++|*                LIBRARY ENTRIES IN THE CONTROL POINT AREA AND THE
00099  M01S00092.library +++|*                GLOBAL LIBRARY BIT IN THE LOADER CONTROL WORD ARE
00100  M01S00093.library +++|*                CLEARED.
00101  M01S00094.library +++|*
00102  M01S00095.library +++|*         * TOO MANY USER LIBRARIES SPECIFIED.* = THE NUMBER OF LIBRARY
00103  M01S00096.library +++|*                ARGUMENTS IS LESS THAN OR EQUAL TO THE MAXIMUM, BUT
00104  M01S00097.library +++|*                TOO MANY OF THOSE LIBRARIES ARE USER LIBRARIES
00105  M01S00098.library +++|*                (LIBRARIES NOT IN THE CENTRAL DIRECTORY).  THE MAXIMUM
00106  M01S00099.library +++|*                NUMBER OF USER LIBRARIES IS 2 IF 4 OR LESS SYSTEM
00107  M01S00100.library +++|*                LIBRARIES ARE DECLARED, 1 IF 5 THRU 14 ARE SYSTEM
00108  M01S00101.library +++|*                LIBRARIES, AND 0 IF MORE THAN 14 ARE SYSTEM LIBRARIES.
00109  M01S00102.library +++|*                THE GLOBAL LIBRARY SET CURRENTLY IN EFFECT REMAINS
00110  M01S00103.library +++|*                UNCHANGED.
00111  M01S00104.library +++|*
00112  M01S00105.library +++|*         * LIBRARY NOT FOUND, LNAME* = *LNAME* IS THE NAME OF A USER
00113  M01S00106.library +++|*                LIBRARY ( NOT KNOWN BY THE SYSTEM ) THAT WAS NOT LOCAL
00114  M01S00107.library +++|*                TO THE JOB WHEN *LIBRARY* WAS EXECUTED. NO DIRECTORY
00115  M01S00108.library +++|*                IS GENERATED FOR LIBRARY *LNAME*.
00116  M01S00109.library +++|*
00117  M01S00110.library +++|*         * INCORRECTLY FORMATTED LIBRARY, LNAME* = A FILE *LNAME* WAS
00118  M01S00111.library +++|*                FOUND, BUT THE ULIB RECORD IS DEFECTIVE OR
00119  M01S00112.library +++|*                MISSING.  THIS MESSAGE APPLIES TO BOTH SYSTEM AND USER
00120  M01S00113.library +++|*                LIBRARIES.  NO DIRECTORY IS GENERATED FOR FILE
00121  M01S00114.library +++|*                *LNAME*.
00122  M01S00115.library +++|*
00123  M01S00116.library +++|*         * ENTRY POINT TABLE OVERFLOW.* = THE NUMBER OF ENTRY POINTS
00124  M01S00117.library +++|*                PER PROGRAM UNIT HAS EXCEEDED THE TABLE SPACE
00125  M01S00118.library +++|*                ALLOTTED.  REASSEMBLE THE PROGRAM WITH A LARGER VALUE
00126  M01S00119.library +++|*                FOR *LEPT*.
00127  M01S00001.libra4  +++|*
00128  M01S00002.libra4  +++|*         * LIBRARY FILE ERROR(S) - SEE DAYFILE.* = ONE OR MORE OF THE
00129  M01S00003.libra4  +++|*                SPECIFIED LIBRARY NAMES WERE NOT FOUND OR WERE NOT IN
00130  M01S00004.libra4  +++|*                LIBRARY FORMAT.  THE SPECIFIC ERROR CAN BE DETERMINED
00131  M01S00005.libra4  +++|*                FROM PREVIOUS DAYFILE MESSAGES.  THE JOB IS ABORTED.
00132  M01S00006.libra4  +++|*                HOWEVER, THE DIRECTORY IS GENERATED FOR ALL LIBRARIES
00133  M01S00007.libra4  +++|*                EXCEPT THE ONE(S) IN ERROR.
00134  M01S00120.library +++|          SPACE  4
00135  M01S00121.library +++|          TITLE  CONSTANTS AND TABLES.
00136  M01S00122.library +++|*****     ASSEMBLY CONSTANTS.
00137  M01S00123.library +++|
00138  M01S00124.library +++|
00139  M01S00125.library +++| SSJ=     EQU    0
00140  M01S00002.ns2055a +++| LIB=     EQU    0
00141  M01S00126.library +++| UBUFL    EQU    201B        LENGTH OF ULIB BUFFER
00142  M01S00127.library +++| ZBUFL    EQU    201B        LENGTH OF ZZZZZLD BUFFER
00143  M01S00128.library +++| LEPT     EQU    1000D       LENGTH OF ENTRY POINT TABLE
00144  M01S00129.library +++| ARGM     EQU    24D         MAXIMUM NUMBER OF ARGUMENTS
00145  M01S00130.library +++| MAXL     EQU    24D         MAXIMUM NUMBER OF LIBRARIES
00146  M01S00131.library +++|***       COMMON DECKS.
00147  M01S00132.library +++|          SPACE  4
00148  M01S00133.library +++|*CALL     COMCCMD
00149  M01S00134.library +++|*CALL     COMCMAC
00150  M01S00135.library +++|*CALL     COMSLFD
00151  M01S00136.library +++|          SPACE  4
00152  M01S00137.library +++|          ORG    111B
00153  M01S00138.library +++|*         FETS.
00154  M01S00139.library +++|
00155  M01S00140.library +++|
00156  M01S00141.library +++| FETS     BSS    0
00157  M01S00142.library +++|
00158  M01S00143.library +++| ULIB     FILEB  ULBF,UBUFL,(FET=8)
00159  M01S00144.library +++| ZZZZZLD  FILEB  ZZBF,ZBUFL,(FET=8)
00160  M01S00145.library +++|          SPACE  4,10
00161  M01S00146.library +++|*         RESERVED LOCATIONS.
00162  M01S00147.library +++|
00163  M01S00148.library +++|
00164  M01S00149.library +++| LDCW     CON    0           LOADER CONTROL WORD
00165  M01S00150.library +++| EFLG     CON    0           ENTRY POINT FLAG
00166  M01S00151.library +++| ZCNT     CON    0           COUNT OF LIBRARY DIRECTORIES BUILT
00167  M01S00152.library +++| TADR     CON    0           *SETGLS* TABLE ADDRESS
00168  M01S00153.library +++| ACNT     CON    0           ARGUMENT COUNT
00169  M01S00154.library +++| OTYP     CON    1RR         OPERATION TYPE(ADD, DELETE OR REPLACE)
00170  M01S00155.library +++| PEPT     CON    0           ENTRY POINT BEING PROCESSED
Line S00156 Modification History
M01 (Added by) library
M02 (Updated by) ns2725
Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00156.ns2725  ---| SLIB     CON    0           SYSTEM LIBRARY FLAG
00172  M01S00157.library +++| PRFX     DATA   77000016BS36  FIRST WORD OF ULIB PREFIX TABLE
00173  M01S00158.library +++| UPFX     BSS    17B         ULIB PREFIX TABLE
00174  M01S00159.library +++| UHDR     CON    0           ULIB HEADER WORD
00175  M01S00160.library +++| TEPTP    BSS    1           *TEPT* POINTER
00176  M01S00161.library +++| PTYP     CON    0           PROGRAM TYPE
00177  M01S00004.ns2268  +++| SEPF     CON    0           SPECIAL ENTRY POINTS
00178  M01S00008.libra4  +++| LFEC     CON    0           LIBRARY FILE ERROR COUNT
00179  M01S00162.library +++|
00180  M01S00163.library +++|*         NOTE:  THE FOLLOWING 4 LOCATIONS MAKE UP THE
00181  M01S00164.library +++|*                WORKING BUFFER FOR THE *ZZZZZLD* FILE.
00182  M01S00165.library +++|
00183  M01S00166.library +++| WBUF     BSS    1           WORKING BUFFER
00184  M01S00167.library +++| PRAN     CON    0           PROGRAM RANDOM ADDRESS
00185  M01S00168.library +++| CLIB     CON    0           LIBRARY NAME BEING PROCESSED
00186  M01S00169.library +++| RFL      CON    0           PROGRAM FIELD LENGTH/100B
00187  M01S00170.library +++|
00188  M01S00171.library +++|
00189  M01S00172.library +++|**        ADDRESS OF *TLIB* ENTRY BEING PROCESSED.
00190  M01S00173.library +++|
00191  M01S00174.library +++|
00192  M01S00175.library +++| ALIB     VFD    42/0,18/TLIB
00193  M01S00176.library +++|          SPACE  4,10
00194  M01S00177.library +++|**        *SETGLS* PARAMETER WORD.
00195  M01S00178.library +++|
00196  M01S00179.library +++|
00197  M01S00180.library +++| SLPW     VFD    6/0,18/ARGR,36/0
00198  M01S00181.library +++|          SPACE  4,10
00199  M01S00182.library +++|**        *GETGLS* PARAMETER WORD.
00200  M01S00183.library +++|
00201  M01S00184.library +++|
Line S00185 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00202  M02S00185.libra4  ---| GLPW     VFD    6/0,18/TLIB,36/0
00203  M01S00009.libra4  +++| GLPW     VFD    6/0,18/GLIB,36/0
00204  M01S00186.library +++|          SPACE  4,10
00205  M01S00187.library +++|**        GLOBAL LIBRARY BIT MASK FOR LOADER CONTROL WORD.
00206  M01S00188.library +++|
00207  M01S00189.library +++|
00208  M01S00190.library +++| GFLG     VFD    1/0,1/1,58/0
00209  M01S00191.library +++|          SPACE  4,10
00210  M01S00192.library +++|          TITLE  MAIN PROGRAM.
00211  M01S00193.library +++|**        LIBRARY.
00212  M01S00194.library +++|*
00213  M01S00195.library +++|*         MAIN ROUTINE.
00214  M01S00196.library +++|
00215  M01S00197.library +++|
00216  M01S00198.library +++| LIBRARY  SB1    1
00217  M01S00199.library +++|          RJ     PRS         PRESET
00218  M01S00001.ns2725  +++|          RETURN ZZZZZLD     RETURN OLD DIRECTORY FILE
00219  M01S00200.library +++|          SA2    ACNT        READ ARGUMENT COUNT
00220  M01S00201.library +++|          SB2    X2
Line S00202 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00221  M02S00202.libra4  ---|          ZR     B2,LIB6     IF NO ARGUMENTS
Line S00203 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00222  M02S00203.libra4  ---|
Line S00204 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00223  M02S00204.libra4  ---|*         RETRIEVE THE LIST OF LIBRARIES VIA *GETGLS*.
Line S00205 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00224  M02S00205.libra4  ---|
Line S00206 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00225  M02S00206.libra4  ---|          GETGLS GLPW        GET LIST OF LIBRARIES
00226  M01S00010.libra4  +++|          ZR     B2,LIB4     IF NO ARGUMENTS
Line S00207 Modification History
M01 (Added by) library
M02 (Updated by) ns2725
Seq #  *Modification Id* Act 
----------------------------+
00227  M02S00207.ns2725  ---|          RETURN ZZZZZLD     RETURN OLD DIRECTORY FILE
Line S00208 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00228  M02S00208.libra4  ---| LIB2     SA1    ALIB        ADDRESS OF NEXT ENTRY IN *TLIB* TABLE
00229  M01S00011.libra4  +++|          SA1    TADR        POINTER TO *SETGLS* TABLE
00230  M01S00012.libra4  +++|          SX6    X1
00231  M01S00013.libra4  +++|          SA6    ALIB
00232  M01S00014.libra4  +++| LIB1     SA1    ALIB        POINTER TO *SETGLS* TABLE
00233  M01S00209.library +++|          SX6    X1+B1
00234  M01S00210.library +++|          SA1    X1          READ NEXT ENTRY
Line S00211 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00235  M02S00211.libra4  ---|          ZR     X1,LIB3     IF NO MORE ENTRIES
00236  M01S00015.libra4  +++|          ZR     X1,LIB2     IF NO MORE ENTRIES
Line S00212 Modification History
M01 (Added by) library
M02 (Updated by) ns2725
Seq #  *Modification Id* Act 
----------------------------+
00237  M02S00212.ns2725  ---|          MX0    -18
00238  M01S00213.library +++|          SA6    ALIB        STORE NEW ADDRESS
Line S00214 Modification History
M01 (Added by) library
M02 (Updated by) ns2725
Seq #  *Modification Id* Act 
----------------------------+
00239  M02S00214.ns2725  ---|          BX6    -X0*X1
Line S00215 Modification History
M01 (Added by) library
M02 (Updated by) ns2725
Seq #  *Modification Id* Act 
----------------------------+
00240  M02S00215.ns2725  ---|          SA6    SLIB        SET SYSTEM LIBRARY FLAG
00241  M01S00002.ns2725  +++|          MX0    42
00242  M01S00216.library +++|          BX6    X0*X1       STORE CURRENT LIBRARY NAME
00243  M01S00217.library +++|          SA6    CLIB
00244  M01S00218.library +++|          RJ     CLL         CHECK FOR LOCAL LIBRARY
Line S00219 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00245  M02S00219.libra4  ---|          EQ     LIB2        CHECK NEXT LIBRARY
00246  M01S00016.libra4  +++|          EQ     LIB1        CHECK NEXT LIBRARY
00247  M01S00220.library +++|
00248  M01S00221.library +++|*         ISSUE LIBRARIES PROCESSED MESSAGE AND SET/CLEAR
00249  M01S00222.library +++|*         GLOBAL LIBRARY FLAG IN CONTROL POINT AREA.
00250  M01S00223.library +++|
00251  M01S00017.libra4  +++| LIB2     SETGLS SLPW        ISSUE GLOBAL LIBRARY SET
00252  M01S00018.libra4  +++|          GETLC  LDCW        GET LOADER CONTROL WORD
00253  M01S00019.libra4  +++|          SA1    TADR
00254  M01S00020.libra4  +++|          SA1    X1
00255  M01S00021.libra4  +++|          ZR     X1,LIB4     IF NO LIBRARIES LEFT
00256  M01S00022.libra4  +++|          SA1    OTYP        CHECK OPTION TYPE
00257  M01S00023.libra4  +++|          SX1    X1-1RD
00258  M01S00024.libra4  +++|          ZR     X1,LIB3     IF OPERATION IS DELETE
00259  M01S00025.libra4  +++|
00260  M01S00026.libra4  +++|*         CHECK TO SEE IF THERE WERE NO ERRORS IN
00261  M01S00027.libra4  +++|*         THE GLOBAL LIBRARY SET JUST ISSUED.
00262  M01S00028.libra4  +++|
00263  M01S00029.libra4  +++|          SA2    TADR        READ TABLE ADDRESS
00264  M01S00030.libra4  +++|          SB3    X2
00265  M01S00031.libra4  +++|          SA1    ACNT        READ ARGUMENT COUNT
00266  M01S00032.libra4  +++|          SB2    X1
00267  M01S00033.libra4  +++|          SB2    B2+B3
00268  M01S00034.libra4  +++|          SA1    SLPW        READ *SETGLS* PARAMETER WORD
00269  M01S00035.libra4  +++|          LX1    24
00270  M01S00036.libra4  +++|          SB3    X1
00271  M01S00037.libra4  +++|          EQ     B2,B3,LIB3  IF NO ERRORS INDICATED
00272  M01S00038.libra4  +++|          SA1    LFEC
00273  M01S00039.libra4  +++|          NZ     X1,LIB3     IF LIBRARY FILE ERRORS OCCURRED
00274  M01S00040.libra4  +++|          MX6    -1          INDICATE TOO MANY LIBRARIES
00275  M01S00041.libra4  +++|          SA6    A1
00276  M01S00224.library +++| LIB3     SA2    EFLG        READ ENTRY POINT FLAG
Line S00225 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00277  M02S00225.libra4  ---|          NZ     X2,LIB4     IF CROSS REFERENCE GENERATED
Line S00226 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00226.libra4  ---|          RJ     CGL         CLEAR GLOBAL LIBRARY FLAG
Line S00227 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00227.libra4  ---|          EQ     LIB7        END PROCESSING
00280  M01S00042.libra4  +++|          NZ     X2,LIB5     IF CROSS REFERENCE GENERATED
00281  M01S00043.libra4  +++| LIB4     RJ     CGL         CLEAR GLOBAL LIBRARY BIT
00282  M01S00003.ns2725  +++|          SA1    ACNT
00283  M01S00004.ns2725  +++|          NZ     X1,LIB6     IF NOT CLEAR OF ALL EXISTING LIBRARIES
00284  M01S00044.libra4  +++|          SX0    LIBA        * GLOBAL LIBRARY SET CLEARED.*
00285  M01S00045.libra4  +++|          MESSAGE  X0,3      ISSUE TERMINATION MESSAGE
00286  M01S00046.libra4  +++|          EQ     LIB6        END PROCESSING
00287  M01S00228.library +++|
00288  M01S00229.library +++|*         SET GLOBAL LIBRARY FLAG.
00289  M01S00230.library +++|
Line S00231 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00290  M02S00231.libra4  ---| LIB4     SA1    GFLG        GET GLOBAL LIBRARY FLAG
00291  M01S00047.libra4  +++| LIB5     SA1    GFLG        GET GLOBAL LIBRARY FLAG
00292  M01S00232.library +++|          SA2    LDCW        READ LOADER CONTROL WORD
00293  M01S00233.library +++|          BX6    X1+X2       SET FLAG
00294  M01S00234.library +++|          SA6    A2
00295  M01S00235.library +++|          SETLC  LDCW        RESET LOADER CONTROL WORD
00296  M01S00236.library +++|          WRITER ZZZZZLD,R   FLUSH BUFFER
00297  M01S00237.library +++|          SETFS  ZZZZZLD,NDST  SET FILE STATUS
Line S00238 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00298  M02S00238.libra4  ---|          EQ     LIB7        END PROCESSING
00299  M01S00048.libra4  +++|*         EQ     LIB6        END PROCESSING
00300  M01S00239.library +++|
00301  M01S00240.library +++|*         TERMINATE PROGRAM.
00302  M01S00241.library +++|
Line S00242 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00303  M02S00242.libra4  ---| LIB6     MESSAGE  X0,3      ISSUE TERMINATION MESSAGE
Line S00243 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00304  M02S00243.libra4  ---| LIB7     ENDRUN
00305  M01S00049.libra4  +++| LIB6     SA1    LFEC        CHECK FOR LIBRARY FILE ERRORS
00306  M01S00050.libra4  +++|          SX0    LIBC        * TOO MANY USER LIBRARIES SPECIFED *
00307  M01S00051.libra4  +++|          NG     X1,ABT      IF TOO MANY LIBRARIES
00308  M01S00052.libra4  +++|          SX0    LIBB        * LIBRARY FILE ERROR(S) - SEE DAYFILE.*
00309  M01S00053.libra4  +++|          NZ     X1,ABT      IF LIBRARY FILE ERRORS OCCURRED
00310  M01S00054.libra4  +++|          ENDRUN
00311  M01S00055.libra4  +++|
00312  M01S00056.libra4  +++|
00313  M01S00057.libra4  +++| LIBA     DATA   C* GLOBAL LIBRARY SET CLEARED.*
00314  M01S00058.libra4  +++| LIBB     DATA   C* LIBRARY FILE ERROR(S) - SEE DAYFILE.*
00315  M01S00059.libra4  +++| LIBC     DATA   C* TOO MANY USER LIBRARIES SPECIFIED.*
00316  M01S00244.library +++| CLL      TITLE  SUBROUTINES.
00317  M01S00245.library +++|**        CLL - CHECK FOR LOCAL LIBRARY.
00318  M01S00246.library +++|*
00319  M01S00247.library +++|*         *CLL* CHECKS FOR THE EXISTENCE OF A LOCAL LIBRARY
Line S00248 Modification History
M01 (Added by) library
M02 (Updated by) ns2725
Seq #  *Modification Id* Act 
----------------------------+
00320  M02S00248.ns2725  ---|*         FILE.  IF FILE IS NOT LOCAL AND THE SYSTEM LIBRARY FLAG
Line S00249 Modification History
M01 (Added by) library
M02 (Updated by) ns2725
Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00249.ns2725  ---|*         IS ZERO, A DIAGNOSTIC IS ISSUED.  IF THE FILE IS LOCAL,
00322  M01S00005.ns2725  +++|*         FILE.  IF FILE IS NOT LOCAL AND IS NOT IN THE SYSTEM LIBRARY
00323  M01S00006.ns2725  +++|*         DIRECTORY, A DIAGNOSTIC IS ISSUED.  IF THE FILE IS LOCAL,
00324  M01S00250.library +++|*         THEN THE PREFIX TABLE IS CHECKED TO ENSURE THE FILE
00325  M01S00251.library +++|*         IS ACTUALLY A LIBRARY.
00326  M01S00252.library +++|*
Line S00253 Modification History
M01 (Added by) library
M02 (Updated by) ns2725
Seq #  *Modification Id* Act 
----------------------------+
00327  M02S00253.ns2725  ---|*         ENTRY  (X6) = LIBRARY NAME.
00328  M01S00007.ns2725  +++|*         ENTRY  (X6) = (CLIB) = LIBRARY NAME.
00329  M01S00060.libra4  +++|*                (ALIB) = POINTER TO NEXT ENTRY IN *SETGLS* TABLE.
00330  M01S00254.library +++|*
00331  M01S00255.library +++|*         EXIT   ALL PROCESSING COMPLETE FOR THIS LIBRARY.
00332  M01S00256.library +++|*
Line S00257 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00333  M02S00257.libra4  ---|*         USES   X - 0, 1, 2, 3.
Line S00258 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00334  M02S00258.libra4  ---|*                A - 1, 2.
00335  M01S00061.libra4  +++|*         USES   X - 0, 1, 2, 3, 6.
00336  M01S00062.libra4  +++|*                A - 1, 2, 6.
00337  M01S00259.library +++|*                B - 2, 5.
00338  M01S00260.library +++|*
00339  M01S00261.library +++|*         CALLS  PLE, SNM.
00340  M01S00262.library +++|*
Line S00263 Modification History
M01 (Added by) library
M02 (Updated by) ns2725
Seq #  *Modification Id* Act 
----------------------------+
00341  M02S00263.ns2725  ---|*         MACROS MESSAGE, READ, READW, REWIND, SETFET, SETFS, STATUS.
00342  M01S00008.ns2725  +++|*         MACROS MESSAGE, READ, READW, REWIND, SETFET, SETFS, STATUS,
00343  M01S00009.ns2725  +++|*                SYSTEM.
00344  M01S00264.library +++|
00345  M01S00265.library +++|
00346  M01S00266.library +++| CLL      SUBR               ENTRY/EXIT
00347  M01S00267.library +++|          SETFET ULIB,LFN=X6 STORE LIBRARY NAME IN FET
00348  M01S00268.library +++|          STATUS ULIB        CHECK FOR FILE
00349  M01S00269.library +++|          SA1    ULIB
00350  M01S00270.library +++|          MX2    -11
00351  M01S00271.library +++|          LX2    1
00352  M01S00272.library +++|          BX1    -X2*X1
00353  M01S00273.library +++|          ZR     X1,CLL2     IF FILE DOES NOT EXIST
00354  M01S00274.library +++|          REWIND ULIB,R      POSITION AT BOI
00355  M01S00275.library +++|          READ   ULIB,R      INITIATE READ OPERATIONS
00356  M01S00276.library +++|          SA1    ULIB+2      READ *IN*
00357  M01S00277.library +++|          SA2    A1+B1       READ *OUT*
00358  M01S00278.library +++|          IX1    X1-X2
00359  M01S00279.library +++|          ZR     X1,CLL2     IF NO DATA TRANSFERRED
00360  M01S00280.library +++|          READW  ULIB,UPFX,17B  READ PREFIX TABLE
00361  M01S00281.library +++|          NZ     X1,CLL3     IF TRANSFER INCOMPLETE
00362  M01S00282.library +++|          SA1    UPFX        READ FIRST WORD OF PREFIX TABLE
00363  M01S00283.library +++|          SA2    PRFX        FIRST WORD OF A LEGAL ULIB PREFIX TABLE
00364  M01S00284.library +++|          BX1    X1-X2
00365  M01S00285.library +++|          NZ     X1,CLL3     IF NOT A USER LIBRARY PREFIX TABLE
00366  M01S00286.library +++|
00367  M01S00287.library +++|*         VALID PREFIX TABLE FOUND, NOW CHECK FOR ULIB TABLE.
00368  M01S00288.library +++|
00369  M01S00289.library +++|          READW  ULIB,UHDR,1 READ ULIB HEADER WORD
00370  M01S00290.library +++|          NZ     X1,CLL3     IF TRANSFER INCOMPLETE
00371  M01S00291.library +++|          SA1    UHDR        CHECK FOR ULIB TABLE ID
00372  M01S00292.library +++|          MX0    12
00373  M01S00293.library +++|          BX2    X0*X1
00374  M01S00294.library +++|          LX2    12
00375  M01S00295.library +++|          SX3    X2-7600B
00376  M01S00296.library +++|          NZ     X3,CLL3     IF NOT A ULIB TABLE
00377  M01S00297.library +++|          LX1    12          POSITION GROUP NAME COUNT FIELD
00378  M01S00298.library +++|          BX2    X1*X0       STRIP OFF GROUP NAME COUNT
00379  M01S00299.library +++|          LX2    12
00380  M01S00300.library +++|          ZR     X2,CLL1     IF NO GROUP NAMES
00381  M01S00301.library +++|          READW  ULIB,TEPT,X2  SKIP GROUP NAMES
00382  M01S00302.library +++|          NZ     X1,CLL3     IF TRANSFER INCOMPLETE
00383  M01S00303.library +++| CLL1     RJ     PLE         PROCESS LIBRARY ENTRY POINT
00384  M01S00304.library +++|          SETFS  ULIB,NDST   SET *NDST* STATUS ON LIBRARY
00385  M01S00305.library +++|          EQ     CLLX        RETURN
00386  M01S00306.library +++|
Line S00307 Modification History
M01 (Added by) library
M02 (Updated by) ns2725
Seq #  *Modification Id* Act 
----------------------------+
00387  M02S00307.ns2725  ---|*         ISSUE LIBRARY NOT FOUND MESSAGE, IF SYSTEM LIBRARY
Line S00308 Modification History
M01 (Added by) library
M02 (Updated by) ns2725
Seq #  *Modification Id* Act 
----------------------------+
00388  M02S00308.ns2725  ---|*         FLAG NOT SET.
00389  M01S00010.ns2725  +++|*         ISSUE LIBRARY NOT FOUND MESSAGE, IF NOT IN SYSTEM LIBRARY
00390  M01S00011.ns2725  +++|*         DIRECTORY.
00391  M01S00309.library +++|
Line S00310 Modification History
M01 (Added by) library
M02 (Updated by) ns2725
Seq #  *Modification Id* Act 
----------------------------+
00392  M02S00310.ns2725  ---| CLL2     SA1    SLIB        READ SYSTEM LIBRARY FLAG
00393  M01S00012.ns2725  +++| CLL2     SYSTEM CPM,R,CLIB,142B*100B  GET SYSTEM LIBRARY STATUS
00394  M01S00013.ns2725  +++|          SA1    CLIB        CHECK IF LIBRARY IN SYSTEM DIRECTORY
00395  M01S00014.ns2725  +++|          MX2    -1
00396  M01S00015.ns2725  +++|          BX1    -X2*X1
00397  M01S00311.library +++|          NZ     X1,CLLX     IF SYSTEM LIBRARY
00398  M01S00312.library +++|          SB5    CLLB        SET FWA OF SEARCH
00399  M01S00313.library +++|          SX0    CLLA        SET FWA OF MESSAGE
00400  M01S00314.library +++|          EQ     CLL4        SET UP DAYFILE MESSAGE
00401  M01S00315.library +++|
00402  M01S00316.library +++| CLL3     SB5    CLLD        SET FWA OF SEARCH
00403  M01S00317.library +++|          SX0    CLLC        SET FWA OF MESSAGE
00404  M01S00318.library +++| CLL4     SA1    CLIB        SET LIBRARY NAME TO BE ADDED TO MESSAGE
00405  M01S00319.library +++|          SB2    1RX         SET SEARCH CHARACTER
00406  M01S00320.library +++|          RJ     SNM         SET NAME INTO MESSAGE
00407  M01S00321.library +++|          MESSAGE  X0,3      ISSUE MESSAGE
00408  M01S00063.libra4  +++|          SA1    LFEC        INCREMENT LIBRARY FILE ERROR COUNT
00409  M01S00064.libra4  +++|          SX6    X1+B1
00410  M01S00065.libra4  +++|          SA6    A1
00411  M01S00066.libra4  +++|          SA1    ALIB        POINTER TO NEXT ENTRY
00412  M01S00067.libra4  +++|          SX6    X1-1
00413  M01S00068.libra4  +++|          SA6    A1
00414  M01S00069.libra4  +++| CLL5     SA2    X1          MOVE REMAINING ENTRIES DOWN ONE
00415  M01S00070.libra4  +++|          BX6    X2
00416  M01S00071.libra4  +++|          SA6    A2-B1
00417  M01S00072.libra4  +++|          SX1    X1+B1
00418  M01S00073.libra4  +++|          NZ     X2,CLL5     IF MORE TO MOVE
00419  M01S00322.library +++|          EQ     CLLX        RETURN
00420  M01S00323.library +++|
00421  M01S00324.library +++|
00422  M01S00325.library +++| CLLA     DATA   10H LIBRARY N
00423  M01S00326.library +++|          DATA   10HOT FOUND,
00424  M01S00327.library +++| CLLB     DATA   8LXXXXXXX.
00425  M01S00328.library +++|
00426  M01S00329.library +++| CLLC     DATA   10H INCORRECT
00427  M01S00330.library +++|          DATA   10HLY FORMATT
00428  M01S00331.library +++|          DATA   10HED LIBRARY
00429  M01S00332.library +++| CLLD     DATA   10H, XXXXXXX.
00430  M01S00333.library +++|          DATA   0
00431  M01S00334.library +++| PLE      SPACE  4,10
00432  M01S00335.library +++|**        PLE - PROCESS LIBRARY ENTRY POINTS.
00433  M01S00336.library +++|*
00434  M01S00337.library +++|*         *PLE* PROCESSES THE ENTRY POINT LIST IN THE ULIB
00435  M01S00338.library +++|*         RECORD UNTIL THE RANDOM ADDRESS WORD IS FOUND.
00436  M01S00339.library +++|*         THEN CALLS *WEP* TO WRITE THE ENTRY POINTS OF
00437  M01S00340.library +++|*         THE PROGRAM TO THE *ZZZZZLD* DIRECTORY FILE.
00438  M01S00341.library +++|*
00439  M01S00342.library +++|*         ENTRY  *ULIB* RECORD POSITIONED BEFORE FIRST ENTRY POINT.
00440  M01S00343.library +++|*
00441  M01S00344.library +++|*         EXIT   ALL ENTRY POINTS FOR THIS *ULIB* RECORD PROCESSED.
00442  M01S00345.library +++|*
00443  M01S00346.library +++|*         USES   A - 1, 6, 7.
00444  M01S00347.library +++|*                X - 0, 1, 6, 7.
00445  M01S00348.library +++|*                B - 2, 3.
00446  M01S00349.library +++|*
00447  M01S00350.library +++|*         CALLS  CEN, WEP.
00448  M01S00351.library +++|*
00449  M01S00352.library +++|*         MACROS READW.
00450  M01S00353.library +++|
00451  M01S00354.library +++|
00452  M01S00355.library +++| PLE      SUBR               ENTRY/EXIT
00453  M01S00356.library +++|          BX6    X6-X6       CLEAR FIELD LENGTH ENTRY
00454  M01S00357.library +++|          SA6    RFL
00455  M01S00358.library +++|          SB2    B0          CLEAR ENTRY POINT COUNTER
00456  M01S00359.library +++|
00457  M01S00360.library +++|*         READ ENTRY POINTS UNTIL RANDOM ADDRESS FOUND.
00458  M01S00361.library +++|
00459  M01S00362.library +++| PLE1     READW  ULIB,PEPT,1 READ POSSIBLE ENTRY POINT
00460  M01S00363.library +++|          NZ     X1,PLEX     IF END OF RECORD ENCOUNTERED
00461  M01S00364.library +++|          SA1    PEPT
00462  M01S00365.library +++|          NG     X1,PLE3     IF PROGRAM RANDOM ADDRESS POINTER
00463  M01S00366.library +++|
00464  M01S00367.library +++|*         CHECK TO SEE IF THE ENTRY POINT CAN BE CONTROL
00465  M01S00368.library +++|*         CARD CALLED (NO SPECIAL SYMBOLS).
00466  M01S00369.library +++|
00467  M01S00370.library +++| PLE2     RJ     CEN         CHECK ENTRY POINT NAME
00468  M01S00371.library +++|          NZ     X5,PLE1     IF NOT CONTROL CARD CALLABLE
00469  M01S00372.library +++|          SX0    PLEA        TABLE OVERFLOW MESSAGE
00470  M01S00373.library +++|          SB3    LEPT        ENTRY POINT TABLE SIZE
00471  M01S00374.library +++|          SA6    TEPT+B2     STORE ENTRY POINT IN TABLE
00472  M01S00375.library +++|          SB2    B2+B1       INCREMENT ENTRY POINT COUNT
00473  M01S00376.library +++|          EQ     B2,B3,ABT   IF *TEPT* TABLE OVERFLOWED
00474  M01S00377.library +++|          EQ     PLE1        CHECK NEXT WORD IN ULIB RECORD
00475  M01S00378.library +++|
00476  M01S00379.library +++|*         IF SOME CONTROL CARD CALLABLE ENTRY POINTS WERE
00477  M01S00380.library +++|*         FOUND, CHECK THE PROGRAM TYPE FIELD.  IF THE FIELD
00478  M01S00381.library +++|*         IS ZERO THEN THE RECORD CANNOT BE CONTROL CARD CALLED.
00479  M01S00382.library +++|
00480  M01S00383.library +++| PLE3     EQ     B0,B2,PLE4  IF NO ENTRY POINTS FOUND
00481  M01S00384.library +++|          MX0    -24
00482  M01S00385.library +++|          BX7    -X0*X1      EXTRACT RANDOM ADDRESS
00483  M01S00386.library +++|          LX7    36
00484  M01S00387.library +++|          MX0    54
00485  M01S00388.library +++|          LX1    30          EXTRACT RECORD TYPE
00486  M01S00389.library +++|          BX6    -X0*X1
00487  M01S00390.library +++|          ZR     X6,PLE4     IF NOT CONTROL CARD CALLABLE
00488  M01S00391.library +++|          SA6    PTYP        STORE PROGRAM TYPE
00489  M01S00392.library +++|          SA6    EFLG        SET DIRECTORY ENTRIES FLAG
00490  M01S00393.library +++|          BX6    X6-X6
00491  M01S00394.library +++|          SA6    TEPT+B2     TERMINATE ENTRY POINT LIST WITH ZERO WORD
00492  M01S00395.library +++|          SA7    PRAN        STORE PROGRAM RANDOM ADDRESS
00493  M01S00396.library +++|          RJ     WEP         WRITE ENTRY POINT DIRECTORY
00494  M01S00005.ns2268  +++|          SX6    B0+         CLEAR SPECIAL ENTRY POINTS
00495  M01S00006.ns2268  +++|          SA6    SEPF
00496  M01S00397.library +++|
00497  M01S00398.library +++|*         SKIP CROSS REFERENCE ENTRIES UNTIL ANOTHER POSSIBLE
00498  M01S00399.library +++|*         ENTRY POINT IS FOUND.
00499  M01S00400.library +++|
00500  M01S00401.library +++| PLE4     SB2    B0          CLEAR ENTRY POINT COUNT
00501  M01S00402.library +++| PLE5     READW  ULIB,PEPT,1 READ POSSIBLE ENTRY POINT
00502  M01S00403.library +++|          NZ     X1,PLEX     IF END OF RECORD ENCOUNTERED
00503  M01S00404.library +++|          SA1    PEPT
00504  M01S00405.library +++|          NG     X1,PLE5     IF NOT AN ENTRY POINT
00505  M01S00406.library +++|          BX6    X6-X6       CLEAR FIELD LENGTH
00506  M01S00407.library +++|          SA6    RFL
00507  M01S00408.library +++|          EQ     PLE2        PROCESS ENTRY POINT NAME
00508  M01S00409.library +++|
00509  M01S00410.library +++|
00510  M01S00411.library +++| PLEA     DATA   C* ENTRY POINT TABLE OVERFLOW.*
00511  M01S00412.library +++| CEN      SPACE  4,10
00512  M01S00413.library +++|**        CEN - CHECK ENTRY POINT NAME.
00513  M01S00414.library +++|*
00514  M01S00415.library +++|*         *CEN* CHECKS FOR VALID CONTROL CARD CALLABLE NAMES.
Line S00416 Modification History
M01 (Added by) library
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00515  M02S00416.261l700 ---|*         IN ADDITION, IF A NAME BEGINNING WITH *RFL=* IS FOUND
Line S00417 Modification History
M01 (Added by) library
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00516  M02S00417.261l700 ---|*         THE FIELD LENGTH IS EXTRACTED AND STORED IN WORD 4
Line S00418 Modification History
M01 (Added by) library
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00418.261l700 ---|*         OF THE DIRECTORY ENTRY.  IF A NPC= ENTRY POINT
Line S00419 Modification History
M01 (Added by) library
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00518  M02S00419.261l700 ---|*         IS FOUND THE NOS-CRACKING BIT IS SET IN THE DIRECTORY.
Line S00007 Modification History
M01 (Added by) ns2268
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00519  M02S00007.261l700 ---|*         IF AN *ARG=* OR *SDM=* SPECIAL ENTRY POINT IS FOUND,
Line S00008 Modification History
M01 (Added by) ns2268
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00520  M02S00008.261l700 ---|*         THE APPROPRIATE BIT IS SET IN THE DIRECTORY.
00521  M01S00003.261l700 +++|*         IF A SPECIAL ENTRY POINT IS FOUND, THE APPROPRIATE BIT
00522  M01S00004.261l700 +++|*         IS SET IN THE DIRECTORY AND THE *SPECIAL ENTRY POINTS
00523  M01S00005.261l700 +++|*         PRESENT* FLAG IS SET.  IF AN *NPC=* ENTRY POINT IS
00524  M01S00006.261l700 +++|*         FOUND, THE NOS-CRACKING BIT IS SET IN THE DIRECTORY.
00525  M01S00007.261l700 +++|*         IF AN *RFL=* ENTRY POINT IS FOUND, THE FIELD LENGTH IS
00526  M01S00008.261l700 +++|*         EXTRACTED AND STORED IN WORD 4 OF THE DIRECTORY ENTRY.
00527  M01S00009.261l700 +++|*         IF AN *SSJ=* ENTRY POINT IS FOUND, THE PARAMETER BLOCK
00528  M01S00010.261l700 +++|*         ADDRESS IS EXTRACTED AND STORED IN WORD 4 OF THE
00529  M01S00011.261l700 +++|*         DIRECTORY ENTRY.
00530  M01S00420.library +++|*
00531  M01S00421.library +++|*         ENTRY  (X1) = NAME TO BE CHECKED.
00532  M01S00422.library +++|*
00533  M01S00423.library +++|*         EXIT   (X5) = ZERO IF NAME IS CONTROL CARD CALLABLE.
Line S00424 Modification History
M01 (Added by) library
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00534  M02S00424.261l700 ---|*                (X6) = NAME, IF NOT RFL= ENTRY POINT.
00535  M01S00012.261l700 +++|*                (X6) = NAME, IF NOT SPECIAL ENTRY POINT.
00536  M01S00425.library +++|*
00537  M01S00426.library +++|*         USES   A - 2, 5, 6.
00538  M01S00427.library +++|*                X - 0, 1, 2, 5, 6.
00539  M01S00428.library +++|*                B - 5, 6.
00540  M01S00429.library +++|
00541  M01S00430.library +++|
00542  M01S00431.library +++| CEN      SUBR               ENTRY/EXIT
Line S00432 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00543  M02S00432.ns2268  ---|          SA5    CENA        CHECK FOR RFL=
Line S00433 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00544  M02S00433.ns2268  ---|          MX0    30          MUST BE FOLLOWED BY 6 BITS OF ZERO
Line S00434 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00545  M02S00434.ns2268  ---|          BX6    X0*X1
Line S00435 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00546  M02S00435.ns2268  ---|          BX6    X5-X6
Line S00436 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00547  M02S00436.ns2268  ---|          NZ     X6,CEN1     IF NOT RFL=
Line S00437 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00548  M02S00437.ns2268  ---|
Line S00438 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00549  M02S00438.ns2268  ---|*         EXTRACT FIELD LENGTH, STORE IN RFL AND EXIT.
Line S00439 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00439.ns2268  ---|
Line S00440 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00551  M02S00440.ns2268  ---|          MX0    12
00552  M01S00009.ns2268  +++|
00553  M01S00010.ns2268  +++|*         CHECK FOR SPECIAL ENTRY POINT.
00554  M01S00011.ns2268  +++|
00555  M01S00012.ns2268  +++|          MX0    24
00556  M01S00013.ns2268  +++|          SA5    CENA-1      SET TABLE ADDRESS
00557  M01S00014.ns2268  +++| CEN1     SA5    A5+B1
Line S00015 Modification History
M01 (Added by) ns2268
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00558  M02S00015.261l700 ---|          ZR     X5,CEN4     IF END OF SPECIAL ENTRY POINT TABLE
00559  M01S00013.261l700 +++|          ZR     X5,CEN5     IF END OF SPECIAL ENTRY POINT TABLE
00560  M01S00016.ns2268  +++|          BX6    X5-X1       COMPARE ENTRY POINT NAMES
00561  M01S00017.ns2268  +++|          BX6    X6*X0
00562  M01S00018.ns2268  +++|          NZ     X6,CEN1     IF NO MATCH
00563  M01S00019.ns2268  +++|          MX0    -12         ADD IN NEW SPECIAL ENTRY POINT FLAG
00564  M01S00020.ns2268  +++|          BX6    -X0*X5
00565  M01S00021.ns2268  +++|          LX6    24
00566  M01S00022.ns2268  +++|          SA2    SEPF
00567  M01S00023.ns2268  +++|          BX6    X2+X6
00568  M01S00024.ns2268  +++|          SA6    A2
00569  M01S00025.ns2268  +++|          AX5    12          EXTRACT SPECIAL HANDLING ROUTINE ADDRESS
00570  M01S00026.ns2268  +++|          SB6    X5
00571  M01S00027.ns2268  +++|          SX5    B1          SET NOT COMMAND CALLABLE
00572  M01S00028.ns2268  +++|          ZR     B6,CENX     IF NO SPECIAL HANDLING ROUTINE
00573  M01S00029.ns2268  +++|          JP     B6          PERFORM SPECIAL HANDLING
00574  M01S00030.ns2268  +++|
00575  M01S00031.ns2268  +++|*         PROCESS *RFL=* SPECIAL ENTRY POINT.
00576  M01S00032.ns2268  +++|
00577  M01S00033.ns2268  +++| CEN2     MX0    12          EXTRACT FIELD LENGTH
00578  M01S00441.library +++|          LX1    30
00579  M01S00442.library +++|          BX6    X0*X1
00580  M01S00443.library +++|          SA5    RFL
00581  M01S00444.library +++|          BX5    -X0*X5
00582  M01S00445.library +++|          BX6    X6+X5
00583  M01S00446.library +++|          SA6    RFL         STORE FIELD LENGTH
00584  M01S00447.library +++|          SX5    B1
00585  M01S00448.library +++|          EQ     CENX        EXIT
00586  M01S00449.library +++|
Line S00450 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00587  M02S00450.ns2268  ---|*         CHECK FOR NPC= ENTRY POINT
Line S00451 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00588  M02S00451.ns2268  ---|
Line S00452 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00589  M02S00452.ns2268  ---| CEN1     SA5    CENB
Line S00453 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00590  M02S00453.ns2268  ---|          BX6    X5-X1
Line S00454 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00591  M02S00454.ns2268  ---|          NZ     X6,CEN2     IF NOT NPC= ENTRY POINT
Line S00455 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00592  M02S00455.ns2268  ---|          SA5    RFL         SET NOS CRACKING BIT IN DIRECTORY
Line S00456 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00593  M02S00456.ns2268  ---|          SA2    CENC
Line S00457 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00457.ns2268  ---|          BX6    X5+X2
Line S00458 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00595  M02S00458.ns2268  ---|          SA6    RFL
Line S00459 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00596  M02S00459.ns2268  ---|          SX5    B1
Line S00460 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00597  M02S00460.ns2268  ---|          EQ     CENX        EXIT
Line S00461 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00598  M02S00461.ns2268  ---|
Line S00462 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00599  M02S00462.ns2268  ---|*         NOT RFL= OR NPC= ENTRY POINT SO CHECK FOR VALID NAME.
Line S00463 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00600  M02S00463.ns2268  ---|
Line S00464 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00464.ns2268  ---| CEN2     MX0    -6          CHARACTER MASK
00602  M01S00034.ns2268  +++|*         PROCESS *NPC=* SPECIAL ENTRY POINT.
00603  M01S00035.ns2268  +++|
00604  M01S00036.ns2268  +++| CEN3     SA2    RFL         SET NOS CRACKING BIT IN DIRECTORY
00605  M01S00037.ns2268  +++|          SX6    B1
00606  M01S00038.ns2268  +++|          LX6    36
00607  M01S00039.ns2268  +++|          BX6    X2+X6
00608  M01S00040.ns2268  +++|          SA6    A2
00609  M01S00041.ns2268  +++|          EQ     CENX        RETURN
00610  M01S00042.ns2268  +++|
00611  M01S00014.261l700 +++|*         PROCESS *SSJ=* SPECIAL ENTRY POINT.
00612  M01S00015.261l700 +++|
00613  M01S00016.261l700 +++| CEN4     MX0    -18         GET PARAMETER BLOCK ADDRESS
00614  M01S00017.261l700 +++|          LX1    42
00615  M01S00018.261l700 +++|          BX1    -X0*X1
00616  M01S00019.261l700 +++|          BX6    X1+X6       STORE PARAMETER BLOCK ADDRESS
00617  M01S00020.261l700 +++|          SA6    A6
00618  M01S00021.261l700 +++|          EQ     CENX        RETURN
00619  M01S00022.261l700 +++|
00620  M01S00043.ns2268  +++|*         CHECK FOR NORMAL ENTRY POINT.
00621  M01S00044.ns2268  +++|
Line S00045 Modification History
M01 (Added by) ns2268
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00622  M02S00045.261l700 ---| CEN4     MX0    -6
00623  M01S00023.261l700 +++| CEN5     MX0    -6
00624  M01S00465.library +++|          BX6    X1          SAVE NAME IN X6
00625  M01S00466.library +++|          SB5    B0+
00626  M01S00467.library +++|          SB6    8
Line S00468 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00468.ns2268  ---| CEN3     LX1    6
Line S00046 Modification History
M01 (Added by) ns2268
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00046.261l700 ---| CEN5     LX1    6
00629  M01S00024.261l700 +++| CEN6     LX1    6
00630  M01S00469.library +++|          BX5    -X0*X1
00631  M01S00470.library +++|          ZR     X5,CENX     IF END OF NAME FOUND
00632  M01S00471.library +++|          SX2    X5-1R+
00633  M01S00472.library +++|          PL     X2,CENX     IF INVALID CHARACTER
00634  M01S00473.library +++|          SB5    B5+B1       INCREMENT CHARACTER COUNT
00635  M01S00474.library +++|          EQ     B5,B6,CENX  IF EIGHT CHARACTERS CHECKED
Line S00475 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00475.ns2268  ---|          EQ     CEN3        CHECK NEXT CHARACTER
Line S00047 Modification History
M01 (Added by) ns2268
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00637  M02S00047.261l700 ---|          EQ     CEN5        CHECK NEXT CHARACTER
00638  M01S00025.261l700 +++|          EQ     CEN6        CHECK NEXT CHARACTER
00639  M01S00026.261l700 +++|
00640  M01S00476.library +++|
Line S00477 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00477.ns2268  ---| CENA     VFD    24/0LRFL=,36/0
Line S00478 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00642  M02S00478.ns2268  ---| CENB     VFD    24/0LNPC=,36/0
Line S00479 Modification History
M01 (Added by) library
M02 (Updated by) ns2268
Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00479.ns2268  ---| CENC     VFD    23/0,1/1,36/0
00644  M01S00048.ns2268  +++|**        SPECIAL ENTRY POINT TABLE.
00645  M01S00049.ns2268  +++|*T        24/  EPTNAME,6/  0,18/  PADDR,12/  EPTFLAG
Figure

0111229 EPTFLAG PADDR30353659 0 EPTNAME

00646  M01S00050.ns2268  +++|*         EPTNAME = ENTRY POINT NAME.
00647  M01S00051.ns2268  +++|*         PADDR = PROCESSOR ADDRESS.
00648  M01S00052.ns2268  +++|*         EPTFLAG = SPECIAL ENTRY POINT FLAG (TO PLACE IN DIRECTORY).
00649  M01S00053.ns2268  +++|
00650  M01S00054.ns2268  +++| CENA     BSS    0
00651  M01S00027.261l700 +++|          VFD    24/0LARG=,6/,18/,12/4040B
00652  M01S00028.261l700 +++|          VFD    24/0LCLB=,6/,18/,12/4100B
00653  M01S00029.261l700 +++|          VFD    24/0LDMP=,6/,18/,12/4020B
00654  M01S00030.261l700 +++|          VFD    24/0LLDR=,6/,18/,12/4200B
00655  M01S00031.261l700 +++|          VFD    24/0LLIB=,6/,18/,12/4200B
00656  M01S00032.261l700 +++|          VFD    24/0LNPC=,6/,18/CEN3,12/0
00657  M01S00055.ns2268  +++|          VFD    24/0LRFL=,6/,18/CEN2,12/0
Line S00056 Modification History
M01 (Added by) ns2268
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00658  M02S00056.261l700 ---|          VFD    24/0LNPC=,6/,18/CEN3,12/0
Line S00057 Modification History
M01 (Added by) ns2268
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00057.261l700 ---|          VFD    24/0LARG=,6/,18/,12/4040B
00660  M01S00058.ns2268  +++|          VFD    24/0LSDM=,6/,18/,12/4010B
00661  M01S00033.261l700 +++|          VFD    24/0LSSJ=,6/,18/CEN4,12/4004B
00662  M01S00034.261l700 +++|          VFD    24/0LSSM=,6/,18/,12/4001B
00663  M01S00035.261l700 +++|          VFD    24/0LVAL=,6/,18/,12/4002B
00664  M01S00059.ns2268  +++|          CON    0           END OF TABLE
00665  M01S00480.library +++| WEP      SPACE  4,25
00666  M01S00481.library +++|**        WEP - WRITE ENTRY POINT TABLE.
00667  M01S00482.library +++|*
00668  M01S00483.library +++|*         *WEP* WRITES THE CONTENTS OF THE ENTRY POINT TABLE *TEPT*,
00669  M01S00484.library +++|*         TO THE *ZZZZZLD* CROSS REFERENCE FILE.
00670  M01S00485.library +++|*
00671  M01S00486.library +++|*         ENTRY  ENTRY POINT TABLE SET UP.
00672  M01S00487.library +++|*
00673  M01S00488.library +++|*         EXIT   CONTENTS OF *TEPT* WRITTEN TO THE OUTPUT BUFFER.
00674  M01S00489.library +++|*
00675  M01S00490.library +++|*         USES   A - 1, 2, 3, 6, 7.
00676  M01S00491.library +++|*                X - 1, 2, 3, 6, 7.
00677  M01S00492.library +++|*
00678  M01S00493.library +++|*         MACROS WRITEW.
00679  M01S00494.library +++|
00680  M01S00495.library +++|
00681  M01S00496.library +++| WEP      SUBR               ENTRY/EXIT
00682  M01S00497.library +++|          SX6    TEPT
00683  M01S00498.library +++|          SA6    TEPTP       INITIALIZE *TEPT* POINTER
00684  M01S00499.library +++| WEP1     SA1    TEPTP       READ *TEPT* POINTER
00685  M01S00500.library +++|          SA2    X1          READ NEXT ENTRY POINT IN TABLE
00686  M01S00501.library +++|          ZR     X2,WEPX     IF NO MORE ENTRY POINTS TO PROCESS
00687  M01S00502.library +++|          SX7    X1+B1       INCREMENT *TEPT* POINTER
00688  M01S00503.library +++|          SA7    TEPTP
00689  M01S00504.library +++|          SA3    PTYP        READ RECORD TYPE
00690  M01S00505.library +++|          BX6    X3+X2       COMBINE ENTRY NAME WITH RECORD TYPE
00691  M01S00506.library +++|          SA6    WBUF        STORE IN WORKING BUFFER
00692  M01S00060.ns2268  +++|          SA2    RFL         COMBINE RFL AND SPECIAL ENTRY POINT FLAGS
00693  M01S00061.ns2268  +++|          SA3    SEPF
00694  M01S00062.ns2268  +++|          BX7    X2+X3
00695  M01S00063.ns2268  +++|          SA7    A2
00696  M01S00507.library +++|          WRITEW ZZZZZLD,WBUF,4
00697  M01S00508.library +++|          EQ     WEP1        CHECK NEXT *TEPT* ENTRY
00698  M01S00509.library +++| CGL      SPACE  4,15
00699  M01S00510.library +++|**        CGL - CLEAR GLOBAL LIBRARY BIT.
00700  M01S00511.library +++|*
00701  M01S00512.library +++|*         *CGL* CLEARS THE GLOBAL LIBRARY BIT IN THE LOADER
00702  M01S00513.library +++|*         CONTROL WORD.  THIS INDICATES THAT THERE
00703  M01S00514.library +++|*         ARE EITHER NO USER LIBRARIES TO PROCESS, OR THERE
00704  M01S00515.library +++|*         ARE NO CONTROL CARD CALLABLE ENTRIES IN THE GLOBAL
00705  M01S00516.library +++|*         LIBRARY SET.
00706  M01S00517.library +++|*
00707  M01S00518.library +++|*         EXIT   GLOBAL BIT IN LOADER CONTROL WORD CLEARED.
00708  M01S00519.library +++|*
00709  M01S00520.library +++|*         USES   A - 1, 2, 6.
00710  M01S00521.library +++|*                X - 1, 2, 6.
00711  M01S00522.library +++|*
00712  M01S00523.library +++|*         MACROS SETLC.
00713  M01S00524.library +++|
00714  M01S00525.library +++|
00715  M01S00526.library +++| CGL      SUBR               ENTRY/EXIT
00716  M01S00527.library +++|          SA1    GFLG        READ GLOBAL CONTROL FLAG
00717  M01S00528.library +++|          SA2    LDCW        READ LOADER CONTROL WORD
00718  M01S00529.library +++|          BX6    -X1*X2      CLEAR GLOBAL FLAG
00719  M01S00530.library +++|          SA6    LDCW
00720  M01S00531.library +++|          SETLC  LDCW        RESET LOADER CONTROL WORD
00721  M01S00532.library +++|          EQ     CGLX        RETURN
00722  M01S00533.library +++| ABT      SPACE  4,10
00723  M01S00534.library +++|**        ABT - ISSUE MESSAGE AND ABORT.
00724  M01S00535.library +++|*
00725  M01S00536.library +++|*         ENTRY  (X0) = MESSAGE ADDRESS.
00726  M01S00537.library +++|*
00727  M01S00538.library +++|*         MACROS ABORT, MESSAGE.
00728  M01S00539.library +++|
00729  M01S00540.library +++|
00730  M01S00541.library +++| ABT      BSS    0           ENTRY
00731  M01S00542.library +++|          MESSAGE  X0,3
00732  M01S00543.library +++|          ABORT              ABORT CONTROL POINT
00733  M01S00544.library +++|          SPACE  4,10
00734  M01S00545.library +++|*         COMMON DECKS.
00735  M01S00546.library +++|
00736  M01S00547.library +++|
00737  M01S00548.library +++|*CALL     COMCCIO
00738  M01S00549.library +++|*CALL     COMCCPM
00739  M01S00550.library +++|*CALL     COMCLFM
00740  M01S00551.library +++|*CALL     COMCRDW
00741  M01S00552.library +++|*CALL     COMCSNM
00742  M01S00553.library +++|*CALL     COMCSYS
00743  M01S00554.library +++|*CALL     COMCWTW
00744  M01S00555.library +++| BUFFERS  SPACE  4,10
00745  M01S00556.library +++|*         BUFFERS.
00746  M01S00557.library +++|
00747  M01S00558.library +++|
00748  M01S00559.library +++| ULBF     EQU    *+1         *ULIB* BUFFER
00749  M01S00560.library +++| ZZBF     EQU    ULBF+UBUFL  *ZZZZZLD* BUFFER
00750  M01S00561.library +++| TEPT     EQU    ZZBF+ZBUFL  ENTRY POINT TABLE
00751  M01S00562.library +++| TLIB     EQU    TEPT+LEPT   LIBRARY NAME TABLE
Line S00563 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00752  M02S00563.libra4  ---| RFL=     EQU    TLIB+MAXL
00753  M01S00074.libra4  +++| GLIB     EQU    TLIB+MAXL   *GETGLS* TABLE
00754  M01S00075.libra4  +++| RFL=     EQU    GLIB+MAXL
00755  M01S00564.library +++| PRS      TITLE  PRESET ROUTINE.
00756  M01S00565.library +++|**        PRS - PRESET.
00757  M01S00566.library +++|*
00758  M01S00567.library +++|*         *PRS* DETERMINES THE FORMAT OF THE CONTROL
00759  M01S00568.library +++|*         STATEMENT AND CHECKS FOR THE PRESENCE OF INVALID
00760  M01S00569.library +++|*         SEPARATORS.
00761  M01S00570.library +++|*         THE GLOBAL LIBRARY SET IS CLEARED, THE GLOBAL
00762  M01S00571.library +++|*         FLAG IN THE LOADER CONTROL WORD IS CLEARED AND
00763  M01S00572.library +++|*         THE *1AJ* GLOBAL LIBRARY DIRECTORY IS RETURNED
00764  M01S00573.library +++|*         IF THE *LIBRARY* STATEMENT CONTAINS NO PARAMETERS
00765  M01S00574.library +++|*         (*LIBRARY.*).
00766  M01S00575.library +++|*
00767  M01S00576.library +++|*         EXIT   (X0) = ERROR MESSAGE.
00768  M01S00577.library +++|*                TO *ABT* IF ARGUMENT ERROR.
00769  M01S00578.library +++|*
00770  M01S00579.library +++|*         USES   A - 1, 2, 4, 5, 6, 7.
00771  M01S00580.library +++|*                X - 0, 1, 2, 3, 4, 5, 6, 7.
00772  M01S00581.library +++|*                B - 2, 3, 4, 5.
00773  M01S00582.library +++|*
00774  M01S00583.library +++|*         CALLS  CGL, CNS.
00775  M01S00584.library +++|*
00776  M01S00585.library +++|*         MACROS GETGLS, GETLC, RETURN, SETGLS.
00777  M01S00586.library +++|
00778  M01S00587.library +++|
Line S00588 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00779  M02S00588.libra4  ---| PRS13    BX6    X5          REPLACE *SETGLS* PARAMETER WORD
Line S00589 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00780  M02S00589.libra4  ---|          SA6    SLPW
Line S00590 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00781  M02S00590.libra4  ---| PRS14    SA1    SLPW        SAVE TABLE ADDRESS
Line S00591 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00782  M02S00591.libra4  ---|          LX1    24
Line S00592 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00783  M02S00592.libra4  ---|          BX6    -X3*X1
Line S00593 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00784  M02S00593.libra4  ---|          SA6    TADR
Line S00594 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00785  M02S00594.libra4  ---|          SETGLS SLPW        ISSUE GLOBAL LIBRARY SET
Line S00595 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00786  M02S00595.libra4  ---|          GETLC  LDCW        GET LOADER CONTROL WORD
Line S00596 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00787  M02S00596.libra4  ---|          ZR     B2,PRS16    IF FORMAT *LIBRARY.*
Line S00597 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00788  M02S00597.libra4  ---|          SA1    OTYP        CHECK OPTION TYPE
Line S00598 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00789  M02S00598.libra4  ---|          SX1    X1-1RD
Line S00599 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00790  M02S00599.libra4  ---|          ZR     X1,PRS15    IF OPERATION IS DELETE
Line S00600 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00791  M02S00600.libra4  ---|
Line S00601 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00792  M02S00601.libra4  ---|*         CHECK TO SEE IF THERE WERE NO ERRORS IN
Line S00602 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00793  M02S00602.libra4  ---|*         THE GLOBAL LIBRARY SET JUST ISSUED.
Line S00603 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00794  M02S00603.libra4  ---|
Line S00604 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00795  M02S00604.libra4  ---|          SX0    =C* TOO MANY USER LIBRARIES SPECIFIED.*
Line S00605 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00796  M02S00605.libra4  ---|          SA2    TADR        READ TABLE ADDRESS
Line S00606 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00797  M02S00606.libra4  ---|          SB3    X2
Line S00607 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00798  M02S00607.libra4  ---|          SA1    ACNT        READ ARGUMENT COUNT
Line S00608 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00799  M02S00608.libra4  ---|          SB2    X1
Line S00609 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00800  M02S00609.libra4  ---|          SB2    B2+B3
Line S00610 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00801  M02S00610.libra4  ---|          SA1    SLPW        READ *SETGLS* PARAMETER WORD
Line S00611 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00802  M02S00611.libra4  ---|          LX1    24
Line S00612 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00803  M02S00612.libra4  ---|          MX3    -18
Line S00613 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00804  M02S00613.libra4  ---|          BX1    -X3*X1      (X1) = LWA+1 OF TRANSFER
Line S00614 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00805  M02S00614.libra4  ---|          SB3    X1
Line S00615 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00806  M02S00615.libra4  ---|          NE     B2,B3,ABT   IF ALL NAMES DO NOT FIT
Line S00616 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00807  M02S00616.libra4  ---| PRS15    RJ     CNS         CLEAR *NO-DROP* STATUS
Line S00617 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00808  M02S00617.libra4  ---|          EQ     PRSX        RETURN
Line S00618 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00809  M02S00618.libra4  ---|
Line S00619 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00810  M02S00619.libra4  ---|*         CLEAR GLOBAL LIBRARY FLAG AND RETURN *ZZZZZLD*.
Line S00620 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00811  M02S00620.libra4  ---|
Line S00621 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00812  M02S00621.libra4  ---| PRS16    RJ     CNS         CLEAR *NO-DROP* STATUS
Line S00622 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00813  M02S00622.libra4  ---|          RJ     CGL         CLEAR GLOBAL LIBRARY BIT
Line S00623 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00814  M02S00623.libra4  ---|          RETURN ZZZZZLD,R   RETURN GLOBAL LIBRARY DIRECTORY FILE
Line S00624 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00815  M02S00624.libra4  ---|          SX0    =C* GLOBAL LIBRARY SET CLEARED.*
Line S00625 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00816  M02S00625.libra4  ---|
Line S00626 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00817  M02S00626.libra4  ---|
00818  M01S00627.library +++| PRS      SUBR               ENTRY/EXIT
Line S00628 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00819  M02S00628.libra4  ---|          GETGLS PRSF        GET CURRENT GLOBAL LIBRARY SET
Line S00629 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00820  M02S00629.libra4  ---|          BX7    X7-X7       CLEAR *TLIB* BUFFER
00821  M01S00076.libra4  +++|          BX7    X7-X7       CLEAR *TLIB* AND *GLIB* BUFFERS
00822  M01S00630.library +++|          SA7    TLIB        STARTING ADDRESS
Line S00631 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00823  M02S00631.libra4  ---|          SB5    MAXL-1      BUFFER LENGTH
00824  M01S00077.libra4  +++|          SB5    MAXL+MAXL-1 CLEAR BOTH BUFFERS
00825  M01S00078.libra4  +++|          ERRNZ  GLIB-TLIB-MAXL  CODE ASSUMES CONTIGUOUS BUFFERS
00826  M01S00632.library +++| PRS0     SA7    A7+B1
00827  M01S00633.library +++|          SB5    B5-B1
00828  M01S00634.library +++|          NZ     B5,PRS0     IF NOT END OF BUFFER
00829  M01S00079.libra4  +++|          GETGLS GLPW        GET CURRENT GLOBAL LIBRARY SET
00830  M01S00635.library +++|          SA1    ACTR        READ ARGUMENT COUNT
00831  M01S00636.library +++|          SB2    X1
00832  M01S00637.library +++|          ZR     B2,PRS14    IF NO ARGUMENTS
00833  M01S00638.library +++|          SX6    B2
00834  M01S00639.library +++|          SA6    ACNT        STORE ARGUMENT COUNT
00835  M01S00640.library +++|          SB5    ARGM        MAXIMUM ARGUMENT COUNT
00836  M01S00641.library +++|
00837  M01S00642.library +++|*         LOOK FOR */A*, */D* OR */R*.
00838  M01S00643.library +++|
00839  M01S00644.library +++|          SX0    =C* ERROR IN LIBRARY ARGUMENTS.*
00840  M01S00645.library +++|          SA1    ARGR-1      FIRST ARGUMENT MINUS ONE
00841  M01S00646.library +++|          SB3    B0+
00842  M01S00647.library +++|          MX3    -18
Line S00648 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00843  M02S00648.libra4  ---|PRS1      SB3    B3+B1       SCAN ARGUMENT LIST
00844  M01S00080.libra4  +++| PRS1     SB3    B3+B1       SCAN ARGUMENT LIST
00845  M01S00649.library +++|          GT     B3,B2,PRS2  IF ALL ARGUMENTS PROCESSED
00846  M01S00650.library +++|          SA1    A1+B1       READ NEXT ARGUMENT
00847  M01S00651.library +++|          BX6    X3*X1       CHECK FOR NULL ARGUMENT
00848  M01S00652.library +++|          ZR     X6,ABT      IF NULL ARGUMENT
00849  M01S00653.library +++|          BX2    -X3*X1
Line S00654 Modification History
M01 (Added by) library
M02 (Updated by) libra5
Seq #  *Modification Id* Act 
----------------------------+
00850  M02S00654.libra5  ---|          ZR     X2,PRS1     IF SEPARATOR = , . \
00851  M01S00001.libra5  +++|          ZR     X2,PRS1     IF NOS SEPARATOR *,* *.* OR *)*
00852  M01S00002.libra5  +++|          SA6    A1+         STORE ARGUMENT WITHOUT SEPARATOR
00853  M01S00655.library +++|          SX2    X2-1R/
Line S00656 Modification History
M01 (Added by) library
M02 (Updated by) libra5
Seq #  *Modification Id* Act 
----------------------------+
00854  M02S00656.libra5  ---|          NZ     X2,ABT      IF SEPARATOR NOT /
Line S00657 Modification History
M01 (Added by) library
M02 (Updated by) libra5
Seq #  *Modification Id* Act 
----------------------------+
00855  M02S00657.libra5  ---|          SA6    A1          STORE ARGUMENT WITHOUT /
00856  M01S00003.libra5  +++|          ZR     X2,PRS1.1   IF NOS SEPARATOR */*
00857  M01S00004.libra5  +++|          SX2    X2+1R/-1
00858  M01S00005.libra5  +++|          ZR     X2,PRS1     IF PRODUCT SET SEPARATOR *,*
00859  M01S00006.libra5  +++|          SX2    X2+1-17B
00860  M01S00007.libra5  +++|          ZR     X2,PRS1     IF PRODUCT SET TERMINATOR *.* OR *)*
00861  M01S00008.libra5  +++|          SX2    X2+17B-3
00862  M01S00009.libra5  +++|          NZ     X2,ABT      IF NOT PRODUCT SET SEPARATOR */*
Line S00658 Modification History
M01 (Added by) library
M02 (Updated by) libra5
Seq #  *Modification Id* Act 
----------------------------+
00863  M02S00658.libra5  ---|          SB3    B3+B1       ARGUMENT FOLLOWING / MUST BE LAST
00864  M01S00010.libra5  +++| PRS1.1   SB3    B3+B1       ARGUMENT FOLLOWING */* MUST BE LAST
00865  M01S00659.library +++|          NE     B3,B2,ABT   IF NOT LAST ARGUMENT
00866  M01S00660.library +++|          SA1    A1+B1       LAST ARGUMENT MUST BE *A*, *D* OR *R*
Line S00661 Modification History
M01 (Added by) library
M02 (Updated by) libra5
Seq #  *Modification Id* Act 
----------------------------+
00867  M02S00661.libra5  ---|          SX7    B0          ZERO OUT LAST ARGUMENT
00868  M01S00011.libra5  +++|          SX7    B0+         ZERO OUT LAST ARGUMENT
00869  M01S00662.library +++|          SA7    A1
00870  M01S00663.library +++|          SX7    B2-B1       DECREMENT ARGUMENT COUNT
00871  M01S00664.library +++|          SA7    ACNT
Line S00665 Modification History
M01 (Added by) library
M02 (Updated by) libra5
Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00665.libra5  ---|          BX7    X1          SAVE OPERATION TYPE
00873  M01S00012.libra5  +++|          BX7    X3*X1       SAVE OPERATION TYPE
00874  M01S00666.library +++|          LX7    6
00875  M01S00667.library +++|          SA7    OTYP
Line S00668 Modification History
M01 (Added by) library
M02 (Updated by) libra5
Seq #  *Modification Id* Act 
----------------------------+
00876  M02S00668.libra5  ---|          SA2    =1LA        ADD TO GLOBAL LIBRARY SET
Line S00669 Modification History
M01 (Added by) library
M02 (Updated by) libra5
Seq #  *Modification Id* Act 
----------------------------+
00877  M02S00669.libra5  ---|          BX6    X1-X2
00878  M01S00013.libra5  +++|          SX6    X7-1RA      ADD TO GLOBAL LIBRARY SET
00879  M01S00670.library +++|          ZR     X6,PRS3     IF ADD OPERATION
Line S00671 Modification History
M01 (Added by) library
M02 (Updated by) libra5
Seq #  *Modification Id* Act 
----------------------------+
00880  M02S00671.libra5  ---|          SA2    =1LD        DELETE FROM GLOBAL LIBRARY SET
Line S00672 Modification History
M01 (Added by) library
M02 (Updated by) libra5
Seq #  *Modification Id* Act 
----------------------------+
00881  M02S00672.libra5  ---|          BX6    X1-X2
00882  M01S00014.libra5  +++|          SX6    X7-1RD      DELETE FROM GLOBAL LIBRARY SET
00883  M01S00673.library +++|          ZR     X6,PRS6     IF DELETE OPERATION
Line S00674 Modification History
M01 (Added by) library
M02 (Updated by) libra5
Seq #  *Modification Id* Act 
----------------------------+
00884  M02S00674.libra5  ---|          SA2    =1LR        REPLACE GLOBAL LIBRARY SET(DEFAULT)
Line S00675 Modification History
M01 (Added by) library
M02 (Updated by) libra5
Seq #  *Modification Id* Act 
----------------------------+
00885  M02S00675.libra5  ---|          BX6    X1-X2
00886  M01S00015.libra5  +++|          SX6    X7-1RR      REPLACE GLOBAL LIBRARY SET (DEFAULT)
00887  M01S00676.library +++|          NZ     X6,ABT      IF NOT REPLACE OPERATION
00888  M01S00677.library +++|
00889  M01S00678.library +++|*         REPLACE GLOBAL LIBRARY SET.
00890  M01S00679.library +++|
00891  M01S00680.library +++| PRS2     SX0    PRSA        * TOO MANY LIBRARY NAMES SPECIFIED.*
00892  M01S00681.library +++|          SB3    B3-B1       (B3) = NUMBER OF ACTUAL ARGUMENTS
00893  M01S00682.library +++|          GT     B3,B5,ABT   IF TOO MANY ARGUMENTS
00894  M01S00683.library +++|          EQ     PRS14       ISSUE GLOBAL LIBRARY SET
00895  M01S00684.library +++|
00896  M01S00685.library +++|*         ADD TO CURRENT GLOBAL LIBRARY SET.
00897  M01S00686.library +++|
Line S00687 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00898  M02S00687.libra4  ---| PRS3     SA1    PRSB
00899  M01S00081.libra4  +++| PRS3     SA1    GLIB
00900  M01S00688.library +++|          ZR     X1,PRS2     IF CURRENT SET EMPTY
Line S00001 Modification History
M01 (Added by) libra3
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00901  M02S00001.libra4  ---|          SA1    PRSF        SET ARGUMENT COUNT TO NUMBER OF LIBRARIES
00902  M01S00082.libra4  +++|          SA1    GLPW        SET ARGUMENT COUNT TO NUMBER OF LIBRARIES
00903  M01S00002.libra3  +++|          LX1    24
00904  M01S00003.libra3  +++|          BX6    -X3*X1
Line S00004 Modification History
M01 (Added by) libra3
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00905  M02S00004.libra4  ---|          SX6    X6-PRSB
00906  M01S00083.libra4  +++|          SX6    X6-GLIB
00907  M01S00005.libra3  +++|          SA6    ACNT
00908  M01S00689.library +++|          SA1    ARGR-1
00909  M01S00690.library +++|          SX0    PRSA        * TOO MANY LIBRARY NAMES SPECIFIED.*
Line S00691 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00910  M02S00691.libra4  ---|          SA5    PRSE        *SETGLS* PARAMETER WORD
00911  M01S00084.libra4  +++|          SA5    PRSB        *SETGLS* PARAMETER WORD
00912  M01S00692.library +++| PRS4     SA1    A1+B1       READ NEXT ARGUMENT
00913  M01S00693.library +++|          ZR     X1,PRS13    IF END OF ARGUMENTS
Line S00694 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00914  M02S00694.libra4  ---|          SA2    PRSB-1
00915  M01S00085.libra4  +++|          SA2    GLIB-1
00916  M01S00695.library +++| PRS5     SA2    A2+B1       CHECK NEXT ENTRY
00917  M01S00696.library +++|          BX6    X3*X2       EXTRACT LIBRARY NAME
00918  M01S00697.library +++|          BX4    X1-X6       CHECK FOR DUPLICATE ENTRY
00919  M01S00698.library +++|          ZR     X4,PRS4     IF DUPLICATE ENTRY
00920  M01S00699.library +++|          NZ     X6,PRS5     IF SLOT NOT EMPTY
Line S00700 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00921  M02S00700.libra4  ---|          SB4    PRSB-1      CHECK NUMBER OF ARGUMENTS
00922  M01S00086.libra4  +++|          SB4    GLIB-1      CHECK NUMBER OF ARGUMENTS
00923  M01S00701.library +++|          SB4    A2-B4       (B4) = ARGUMENT COUNT
00924  M01S00702.library +++|          GT     B4,B5,ABT   IF TOO MANY ARGUMENTS
00925  M01S00703.library +++|          SX6    B4          SAVE COUNT
00926  M01S00704.library +++|          SA6    ACNT
00927  M01S00705.library +++|          BX7    X1          STORE ARGUMENT IN LIST
00928  M01S00706.library +++|          SA7    A2
00929  M01S00707.library +++|          EQ     PRS4        CHECK NEXT ARGUMENT
00930  M01S00708.library +++|
00931  M01S00709.library +++|*         DELETE FROM CURRENT LIBRARY SET.
00932  M01S00710.library +++|
Line S00711 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00711.libra4  ---| PRS6     SA1    PRSB
Line S00712 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00934  M02S00712.libra4  ---|          SA5    PRSD        *SETGLS* PARAMETER WORD FOR DELETES
00935  M01S00087.libra4  +++| PRS6     SA1    GLIB
00936  M01S00088.libra4  +++|          SA5    PRSB        *SETGLS* PARAMETER WORD FOR DELETES
00937  M01S00713.library +++|          NZ     X1,PRS8     IF CURRENT SET NOT EMPTY
00938  M01S00714.library +++| PRS7     SB2    B0          PROCESS AS *LIBRARY.*
00939  M01S00715.library +++|          SX6    B0          CLEAR ARGUMENT COUNT
00940  M01S00716.library +++|          SA6    ACNT
00941  M01S00717.library +++|          EQ     PRS13       CLEAR GLOBAL SET
00942  M01S00718.library +++|
Line S00719 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00943  M02S00719.libra4  ---| PRS8     SA1    PRSB-1
Line S00720 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00944  M02S00720.libra4  ---|          SB3    PRSC
00945  M01S00089.libra4  +++| PRS8     SA1    GLIB-1
00946  M01S00090.libra4  +++|          SB3    GLIB
00947  M01S00721.library +++| PRS9     SA1    A1+B1       READ NEXT MEMBER OF CURRENT SET
00948  M01S00722.library +++|          BX6    X3*X1       EXTRACT LIBRARY NAME
00949  M01S00723.library +++|          ZR     X6,PRS12    IF ALL CURRENT MEMBERS PROCESSED
00950  M01S00724.library +++|          SA4    ARGR-1
00951  M01S00725.library +++| PRS10    SA4    A4+B1       READ NEXT LIBRARY TO DELETE
00952  M01S00726.library +++|          ZR     X4,PRS11    IF END OF ARGUMENTS
00953  M01S00727.library +++|          BX1    X6-X4
00954  M01S00728.library +++|          ZR     X1,PRS9     IF CURRENT SET MEMBER = ARGUMENT
00955  M01S00729.library +++|          EQ     PRS10       CHECK MEMBER AGAINST NEXT ARGUMENT
00956  M01S00730.library +++|
00957  M01S00731.library +++| PRS11    SA6    B3          SAVE CURRENT MEMBER
00958  M01S00732.library +++|          SB3    B3+B1
00959  M01S00733.library +++|          EQ     PRS9        CHECK NEXT MEMBER
00960  M01S00734.library +++|
Line S00735 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00961  M02S00735.libra4  ---| PRS12    SA1    PRSC        CHECK FOR ALL CURRENT MEMBERS DELETED
00962  M01S00091.libra4  +++| PRS12    SA6    B3
00963  M01S00092.libra4  +++|          SA1    GLIB        CHECK FOR ALL CURRENT MEMBERS DELETED
00964  M01S00736.library +++|          ZR     X1,PRS7     IF ALL CURRENT MEMBERS DELETED
Line S00737 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00965  M02S00737.libra4  ---|          EQ     PRS13       ISSUE GLOBAL LIBRARY SET
00966  M01S00093.libra4  +++| PRS13    BX6    X5          REPLACE *SETGLS* PARAMETER WORD
00967  M01S00094.libra4  +++|          SA6    SLPW
00968  M01S00095.libra4  +++| PRS14    SA1    SLPW        SAVE TABLE ADDRESS
00969  M01S00096.libra4  +++|          LX1    24
00970  M01S00097.libra4  +++|          BX6    -X3*X1
00971  M01S00098.libra4  +++|          SA6    TADR
00972  M01S00099.libra4  +++|          RJ     CNS         CLEAR *NO-DROP* STATUS
00973  M01S00100.libra4  +++|          EQ     PRSX        RETURN
00974  M01S00101.libra4  +++|
00975  M01S00738.library +++|
00976  M01S00739.library +++| PRSA     DATA   C* TOO MANY LIBRARY NAMES SPECIFIED.*
Line S00740 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00977  M02S00740.libra4  ---| PRSB     BSSZ   MAXL+1      SCRATCH AREA TO RETRIEVE CURRENT SET
Line S00741 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00978  M02S00741.libra4  ---| PRSC     BSSZ   MAXL+1      MERGE TABLE TO PROCESS DELETES
Line S00742 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00979  M02S00742.libra4  ---| PRSD     VFD    6/0,18/PRSC,36/0  *SETGLS* PARAMETER FOR DELETES
Line S00743 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00980  M02S00743.libra4  ---| PRSE     VFD    6/0,18/PRSB,36/0  *SETGLS* PARAMETER FOR ADDS
Line S00744 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
00981  M02S00744.libra4  ---| PRSF     VFD    6/0,18/PRSB,36/0  *GETGLS* PARAMETER FOR ADD/DELETE
00982  M01S00102.libra4  +++| PRSB     VFD    6/0,18/GLIB,36/0  *SETGLS* PARAMETER FOR DELETES
00983  M01S00745.library +++| CNS      SPACE  4,15
00984  M01S00746.library +++|**        CNS - CLEAR *NO-DROP* STATUS.
00985  M01S00747.library +++|*
00986  M01S00748.library +++|*         *CNS* CLEARS THE *NO-DROP* STATUS SET ON CURRENT
00987  M01S00749.library +++|*         MEMBERS OF THE GLOBAL LIBRARY SET WHICH ARE TO BE
00988  M01S00750.library +++|*         DELETED IN THE NEW GLOBAL LIBRARY SET.
00989  M01S00751.library +++|*
00990  M01S00752.library +++|*         EXIT   *AUTO-DROP* STATUS SET ON ALL DELETED
00991  M01S00753.library +++|*                GLOBAL LIBRARIES.
00992  M01S00754.library +++|*
00993  M01S00755.library +++|*         USES   A - 1, 5.
00994  M01S00756.library +++|*                B - 2.
00995  M01S00757.library +++|*                X - 1, 2, 5.
00996  M01S00758.library +++|*
Line S00759 Modification History
M01 (Added by) library
M02 (Updated by) libra1
Seq #  *Modification Id* Act 
----------------------------+
00997  M02S00759.libra1  ---|*         MACROS SETFET, SETFS.
00998  M01S00001.libra1  +++|*         MACROS SETFET, SETFS, STATUS.
00999  M01S00760.library +++|
01000  M01S00761.library +++|
01001  M01S00762.library +++| CNS      SUBR               ENTRY/EXIT
01002  M01S00763.library +++|          SA1    ACNT        CHECK NUMBER OF PARAMETERS
01003  M01S00764.library +++|          SB2    X1
Line S00765 Modification History
M01 (Added by) library
M02 (Updated by) libra2
Seq #  *Modification Id* Act 
----------------------------+
01004  M02S00765.libra2  ---|          ZR     B3,CNS1     IF *LIBRARY.*
01005  M01S00001.libra2  +++|          ZR     B2,CNS1     IF *LIBRARY.*
01006  M01S00766.library +++|          SA1    OTYP        CHECK OPTION TYPE
01007  M01S00767.library +++|          SX2    X1-1RA
01008  M01S00768.library +++|          ZR     X2,CNSX     IF *ADD* OPTION
01009  M01S00769.library +++|          SX2    X1-1RR
01010  M01S00770.library +++|          SA5    ARGR
01011  M01S00771.library +++|          NZ     X2,CNS2     IF NOT *REPLACE* OPTION
Line S00772 Modification History
M01 (Added by) library
M02 (Updated by) libra4
Seq #  *Modification Id* Act 
----------------------------+
01012  M02S00772.libra4  ---| CNS1     SA5    PRSB
01013  M01S00103.libra4  +++| CNS1     SA5    GLIB
01014  M01S00773.library +++| CNS2     SB2    B0+         INITIALIZE POINTER
01015  M01S00774.library +++| CNS3     SA1    A5+B2       CHECK NEXT LIBRARY
01016  M01S00775.library +++|          ZR     X1,CNSX     IF NO OTHER LIBRARIES
01017  M01S00776.library +++|          SETFET ULIB,LFN=X1 CHANGE LOCAL FILE NAME
01018  M01S00002.libra1  +++|          STATUS ULIB        CHECK FOR FILE
01019  M01S00003.libra1  +++|          SA1    ULIB
01020  M01S00004.libra1  +++|          MX2    -11
01021  M01S00005.libra1  +++|          LX2    1
01022  M01S00006.libra1  +++|          BX1    -X2*X1
01023  M01S00007.libra1  +++|          ZR     X1,CNS4     IF FILE DOES NOT EXIST
01024  M01S00777.library +++|          SETFS  ULIB,AD     SET *AUTO-DROP* STATUS
Line S00778 Modification History
M01 (Added by) library
M02 (Updated by) libra1
Seq #  *Modification Id* Act 
----------------------------+
01025  M02S00778.libra1  ---|          SB2    B2+B1       INCREMENT POINTER
01026  M01S00008.libra1  +++| CNS4     SB2    B2+B1       INCREMENT POINTER
01027  M01S00779.library +++|          EQ     CNS3        CONTINUE UNTIL END OF LIBRARIES
01028  M01S00780.library +++|
01029  M01S00781.library +++|          ERRNG  RFL=-*      IF *PRS* BIGGER THAN REST OF PROGRAM
01030  M01S00782.library +++|
01031  M01S00783.library +++|
01032  M01S00784.library +++|          END
cdc/nos2.source/opl.opl871/deck/library.txt ยท Last modified: by 127.0.0.1