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
00036 M01S00034.library +++|*T, 24/ RANDOM ADDRESS,36/ 0
Figure
00037 M01S00035.library +++|*T, 42/ LIBRARY NAME,18/ 0
Figure
| 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
| 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
00040 M01S00001.261l700 +++|*T, 12/ FL,11/ 0,1/N,12/ SEPF,6/ 0,18/ SSJB
Figure
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
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