cdc:nos2.source:opl.opl871:deck:library
Deck LIBRARY
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.library +++| IDENT LIBRARY,FETS 00002 M00S00002.library +++| TITLE LIBRARY - DECLARE GLOBAL LIBRARY SET. 00003 M00S00003.library +++| ABS 00004 M00S00004.library +++| SST 00005 M00S00005.library +++| ENTRY LIBRARY
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2055a |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00001.ns2055a +++| ENTRY LIB= 00007 M00S00006.library +++| ENTRY RFL= 00008 M00S00007.library +++| ENTRY SSJ= 00009 M00S00008.library +++| SYSCOM B1 00010 M00S00009.library +++| BASE DECIMAL 00011 M00S00010.library +++|*COMMENT LIBRARY - DECLARE GLOBAL LIBRARY SET.
| Line S00011 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00011.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00013 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00014 M00S00012.library +++| SPACE 4,10 00015 M00S00013.library +++|***** LIBRARY - DECLARE GLOBAL LIBRARY SET. 00016 M00S00014.library +++|* 00017 M00S00015.library +++|* F. E. TERHAAR-YONKERS. 81/01/21. 00018 M00S00016.library +++|* 00019 M00S00017.library +++|* *LIBRARY* CHANGES THE GLOBAL LIBRARY INFORMATION IN 00020 M00S00018.library +++|* THE CONTROL POINT AREA. 00021 M00S00019.library +++| SPACE 4,10 00022 M00S00020.library +++|*** *LIBRARY* CHANGES THE GLOBAL LIBRARY INFORMATION IN 00023 M00S00021.library +++|* THE CONTROL POINT AREA. THE GLOBAL LIBRARY SET IS EITHER 00024 M00S00022.library +++|* CLEARED OR SET TO A LIST OF FILES DEPENDING ON THE 00025 M00S00023.library +++|* CONTROL STATEMENT FORMAT. 00026 M00S00024.library +++|* THE LIBRARY NAMES ARE VALIDATED AND SEARCHED IN THE ORDER 00027 M00S00025.library +++|* ON THE CONTROL STATEMENT. THE *ULIB* RECORD IN EACH 00028 M00S00026.library +++|* LIBRARY IS SEARCHED FOR CONTROL CARD CALLABLE ENTRY POINTS 00029 M00S00027.library +++|* (A *PROC* NAME, RELOCATABLE MAIN PROGRAM NAME, OR AN ENTRY 00030 M00S00028.library +++|* POINT IN AN ABSOLUTE PROGRAM). FOR EACH ENTRY POINT FOUND, 00031 M00S00029.library +++|* A FOUR WORD DIRECTORY ENTRY IS WRITTEN TO THE *ZZZZZLD* FILE. 00032 M00S00030.library +++|* 00033 M00S00031.library +++|* THE DIRECTORY FORMAT IS AS FOLLOWS. 00034 M00S00032.library +++|* 00035 M00S00033.library +++|*T 42/ ENTRY POINT NAME,12/ 0,6/ RT
Figure
00036 M00S00034.library +++|*T, 24/ RANDOM ADDRESS,36/ 0
Figure
00037 M00S00035.library +++|*T, 42/ LIBRARY NAME,18/ 0
Figure
| Line S00036 Modification History | |
|---|---|
M01 (Removed by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 00038 M01S00036.ns2268 ---|*T, 12/ FL,11/ 0,1/N,36/ 0
Figure
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00039 M02S00001.261l700 ---|*T, 12/ FL,11/ 0,1/N,12/ SEPF,24/ 0
Figure
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00040 M01S00001.261l700 +++|*T, 12/ FL,11/ 0,1/N,12/ SEPF,6/ 0,18/ SSJB
Figure
00041 M00S00037.library +++|* 00042 M00S00038.library +++|* RT = RECORD TYPE. 00043 M00S00039.library +++|* FL = REQUIRED FIELD LENGTH/100B. 00044 M00S00040.library +++|* N = PARAMETER CRACKING FORMAT. 00045 M00S00041.library +++|* SET IF *NPC=* ENTRY POINT DEFINED.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 00046 M01S00002.ns2268 +++|* SEPF = SPECIAL ENTRY POINT FLAGS 00047 M01S00003.ns2268 +++|* (SEE BYTE 0 OF *SEPW* IN *PPCOM*).
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00048 M01S00002.261l700 +++|* SSJB = *SSJ=* PARAMETER BLOCK ADDRESS. 00049 M00S00042.library +++|* 00050 M00S00043.library +++|* IF ONE OR MORE CONTROL CARD CALLABLE ENTRY POINTS ARE 00051 M00S00044.library +++|* FOUND, THE GLOBAL LIBRARY BIT IS SET IN *LB1W* IN 00052 M00S00045.library +++|* THE CONTROL POINT AREA. 00053 M00S00046.library +++| SPACE 4,10 00054 M00S00047.library +++|*** CONTROL STATEMENT FORMAT. 00055 M00S00048.library +++|* 00056 M00S00049.library +++|* FORMAT ACTION 00057 M00S00050.library +++|* 00058 M00S00051.library +++|* LIBRARY. CLEAR GLOBAL LIBRARY SET. 00059 M00S00052.library +++|* LIBRARY(LIB1,...,LIBN) SET GLOBAL LIBRARY SET = LIB1,...,LIBN. 00060 M00S00053.library +++|* LIBRARY(LIB1,...,LIBN/R) SET GLOBAL LIBRARY SET = LIB1,...,LIBN. 00061 M00S00054.library +++|* LIBRARY(LIB1,...,LIBN/D) DELETE LIB1,...,LIBN FROM GLOBAL SET. 00062 M00S00055.library +++|* LIBRARY(LIB1,...,LIBN/A) ADD LIB1,...,LIBN TO THE GLOBAL SET. 00063 M00S00056.library +++|* 00064 M00S00057.library +++|* 00065 M00S00058.library +++|* NOTES: 00066 M00S00059.library +++|* 00067 M00S00060.library +++|* 1) TO BE ABLE TO DO CONTROL CARD CALLS FROM USER LIBRARIES 00068 M00S00061.library +++|* THE LIBRARIES MUST BE LOCAL TO THE JOB WHEN *LIBRARY* IS 00069 M00S00062.library +++|* RUN. THIS IS AN INCOMPATABILITY WITH THE SAME FEATURE ON 00070 M00S00063.library +++|* NOS/BE. 00071 M00S00064.library +++|* 00072 M00S00065.library +++|* 2) IF THE USER SIMPLY WANTS TO SATISFY RELOCATABLE LOADS AND 00073 M00S00066.library +++|* DOES NOT WISH TO INCUR THE ADDITIONAL OVERHEAD OF SEARCHING 00074 M00S00067.library +++|* THE DIRECTORY FOR A VALID ENTRY POINT, *LIBRARY* SHOULD BE 00075 M00S00068.library +++|* EXECUTED PRIOR TO THE GET/ATTACH OF THE USER LIBRARIES. 00076 M00S00069.library +++|* 00077 M00S00070.library +++|* 3) BIT 58 IN THE LOADER CONTROL WORD IS UTILIZED AS THE FLAG 00078 M00S00071.library +++|* FOR THE GLOBAL LIBRARY PROCESS. THIS BIT WILL BE CHECKED 00079 M00S00072.library +++|* BY *1AJ* BEFORE ANY DIRECTORY SEARCHES ARE MADE. 00080 M00S00073.library +++| SPACE 4,10 00081 M00S00074.library +++|*** DAYFILE MESSAGES. 00082 M00S00075.library +++|* 00083 M00S00076.library +++|* 00084 M00S00077.library +++|* * ERROR IN LIBRARY ARGUMENTS.* = AN ILLEGAL ARGUMENT OR 00085 M00S00078.library +++|* FORMAT WAS USED ON THE CONTROL STATEMENT. COMPARE 00086 M00S00079.library +++|* THE CONTROL STATEMENT USED WITH THE DOCUMENTED 00087 M00S00080.library +++|* FORMATS. 00088 M00S00081.library +++|* THE GLOBAL LIBRARY SET CURRENTLY IN EFFECT REMAINS 00089 M00S00082.library +++|* UNCHANGED. 00090 M00S00083.library +++|* 00091 M00S00084.library +++|* * TOO MANY LIBRARY NAMES SPECIFIED.* = THE NUMBER OF 00092 M00S00085.library +++|* LIBRARIES EXCEEDS THE NUMBER THAT CAN BE STORED IN THE 00093 M00S00086.library +++|* CONTROL POINT AREA. THE GLOBAL LIBRARY SET CURRENTLY 00094 M00S00087.library +++|* IN EFFECT REMAINS UNCHANGED. 00095 M00S00088.library +++|* 00096 M00S00089.library +++|* * GLOBAL LIBRARY SET CLEARED.* = FORMAT 1 ( NO ARGUMENTS ) OF 00097 M00S00090.library +++|* THE CONTROL STATEMENT WAS PROCESSED. ALL THE GLOBAL 00098 M00S00091.library +++|* LIBRARY ENTRIES IN THE CONTROL POINT AREA AND THE 00099 M00S00092.library +++|* GLOBAL LIBRARY BIT IN THE LOADER CONTROL WORD ARE 00100 M00S00093.library +++|* CLEARED. 00101 M00S00094.library +++|* 00102 M00S00095.library +++|* * TOO MANY USER LIBRARIES SPECIFIED.* = THE NUMBER OF LIBRARY 00103 M00S00096.library +++|* ARGUMENTS IS LESS THAN OR EQUAL TO THE MAXIMUM, BUT 00104 M00S00097.library +++|* TOO MANY OF THOSE LIBRARIES ARE USER LIBRARIES 00105 M00S00098.library +++|* (LIBRARIES NOT IN THE CENTRAL DIRECTORY). THE MAXIMUM 00106 M00S00099.library +++|* NUMBER OF USER LIBRARIES IS 2 IF 4 OR LESS SYSTEM 00107 M00S00100.library +++|* LIBRARIES ARE DECLARED, 1 IF 5 THRU 14 ARE SYSTEM 00108 M00S00101.library +++|* LIBRARIES, AND 0 IF MORE THAN 14 ARE SYSTEM LIBRARIES. 00109 M00S00102.library +++|* THE GLOBAL LIBRARY SET CURRENTLY IN EFFECT REMAINS 00110 M00S00103.library +++|* UNCHANGED. 00111 M00S00104.library +++|* 00112 M00S00105.library +++|* * LIBRARY NOT FOUND, LNAME* = *LNAME* IS THE NAME OF A USER 00113 M00S00106.library +++|* LIBRARY ( NOT KNOWN BY THE SYSTEM ) THAT WAS NOT LOCAL 00114 M00S00107.library +++|* TO THE JOB WHEN *LIBRARY* WAS EXECUTED. NO DIRECTORY 00115 M00S00108.library +++|* IS GENERATED FOR LIBRARY *LNAME*. 00116 M00S00109.library +++|* 00117 M00S00110.library +++|* * INCORRECTLY FORMATTED LIBRARY, LNAME* = A FILE *LNAME* WAS 00118 M00S00111.library +++|* FOUND, BUT THE ULIB RECORD IS DEFECTIVE OR 00119 M00S00112.library +++|* MISSING. THIS MESSAGE APPLIES TO BOTH SYSTEM AND USER 00120 M00S00113.library +++|* LIBRARIES. NO DIRECTORY IS GENERATED FOR FILE 00121 M00S00114.library +++|* *LNAME*. 00122 M00S00115.library +++|* 00123 M00S00116.library +++|* * ENTRY POINT TABLE OVERFLOW.* = THE NUMBER OF ENTRY POINTS 00124 M00S00117.library +++|* PER PROGRAM UNIT HAS EXCEEDED THE TABLE SPACE 00125 M00S00118.library +++|* ALLOTTED. REASSEMBLE THE PROGRAM WITH A LARGER VALUE 00126 M00S00119.library +++|* FOR *LEPT*.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00120.library +++| SPACE 4 00135 M00S00121.library +++| TITLE CONSTANTS AND TABLES. 00136 M00S00122.library +++|***** ASSEMBLY CONSTANTS. 00137 M00S00123.library +++| 00138 M00S00124.library +++| 00139 M00S00125.library +++| SSJ= EQU 0
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2055a |
Seq # *Modification Id* Act ----------------------------+ 00140 M01S00002.ns2055a +++| LIB= EQU 0 00141 M00S00126.library +++| UBUFL EQU 201B LENGTH OF ULIB BUFFER 00142 M00S00127.library +++| ZBUFL EQU 201B LENGTH OF ZZZZZLD BUFFER 00143 M00S00128.library +++| LEPT EQU 1000D LENGTH OF ENTRY POINT TABLE 00144 M00S00129.library +++| ARGM EQU 24D MAXIMUM NUMBER OF ARGUMENTS 00145 M00S00130.library +++| MAXL EQU 24D MAXIMUM NUMBER OF LIBRARIES 00146 M00S00131.library +++|*** COMMON DECKS. 00147 M00S00132.library +++| SPACE 4 00148 M00S00133.library +++|*CALL COMCCMD 00149 M00S00134.library +++|*CALL COMCMAC 00150 M00S00135.library +++|*CALL COMSLFD 00151 M00S00136.library +++| SPACE 4 00152 M00S00137.library +++| ORG 111B 00153 M00S00138.library +++|* FETS. 00154 M00S00139.library +++| 00155 M00S00140.library +++| 00156 M00S00141.library +++| FETS BSS 0 00157 M00S00142.library +++| 00158 M00S00143.library +++| ULIB FILEB ULBF,UBUFL,(FET=8) 00159 M00S00144.library +++| ZZZZZLD FILEB ZZBF,ZBUFL,(FET=8) 00160 M00S00145.library +++| SPACE 4,10 00161 M00S00146.library +++|* RESERVED LOCATIONS. 00162 M00S00147.library +++| 00163 M00S00148.library +++| 00164 M00S00149.library +++| LDCW CON 0 LOADER CONTROL WORD 00165 M00S00150.library +++| EFLG CON 0 ENTRY POINT FLAG 00166 M00S00151.library +++| ZCNT CON 0 COUNT OF LIBRARY DIRECTORIES BUILT 00167 M00S00152.library +++| TADR CON 0 *SETGLS* TABLE ADDRESS 00168 M00S00153.library +++| ACNT CON 0 ARGUMENT COUNT 00169 M00S00154.library +++| OTYP CON 1RR OPERATION TYPE(ADD, DELETE OR REPLACE) 00170 M00S00155.library +++| PEPT CON 0 ENTRY POINT BEING PROCESSED
| Line S00156 Modification History | |
|---|---|
M01 (Removed by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00171 M01S00156.ns2725 ---| SLIB CON 0 SYSTEM LIBRARY FLAG 00172 M00S00157.library ---| PRFX DATA 77000016BS36 FIRST WORD OF ULIB PREFIX TABLE 00173 M00S00158.library ---| UPFX BSS 17B ULIB PREFIX TABLE 00174 M00S00159.library ---| UHDR CON 0 ULIB HEADER WORD 00175 M00S00160.library ---| TEPTP BSS 1 *TEPT* POINTER 00176 M00S00161.library ---| PTYP CON 0 PROGRAM TYPE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 00177 M01S00004.ns2268 +++| SEPF CON 0 SPECIAL ENTRY POINTS
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00178 M01S00008.libra4 +++| LFEC CON 0 LIBRARY FILE ERROR COUNT 00179 M00S00162.library +++| 00180 M00S00163.library +++|* NOTE: THE FOLLOWING 4 LOCATIONS MAKE UP THE 00181 M00S00164.library +++|* WORKING BUFFER FOR THE *ZZZZZLD* FILE. 00182 M00S00165.library +++| 00183 M00S00166.library +++| WBUF BSS 1 WORKING BUFFER 00184 M00S00167.library +++| PRAN CON 0 PROGRAM RANDOM ADDRESS 00185 M00S00168.library +++| CLIB CON 0 LIBRARY NAME BEING PROCESSED 00186 M00S00169.library +++| RFL CON 0 PROGRAM FIELD LENGTH/100B 00187 M00S00170.library +++| 00188 M00S00171.library +++| 00189 M00S00172.library +++|** ADDRESS OF *TLIB* ENTRY BEING PROCESSED. 00190 M00S00173.library +++| 00191 M00S00174.library +++| 00192 M00S00175.library +++| ALIB VFD 42/0,18/TLIB 00193 M00S00176.library +++| SPACE 4,10 00194 M00S00177.library +++|** *SETGLS* PARAMETER WORD. 00195 M00S00178.library +++| 00196 M00S00179.library +++| 00197 M00S00180.library +++| SLPW VFD 6/0,18/ARGR,36/0 00198 M00S00181.library +++| SPACE 4,10 00199 M00S00182.library +++|** *GETGLS* PARAMETER WORD. 00200 M00S00183.library +++| 00201 M00S00184.library +++|
| Line S00185 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00202 M01S00185.libra4 ---| GLPW VFD 6/0,18/TLIB,36/0
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00203 M01S00009.libra4 +++| GLPW VFD 6/0,18/GLIB,36/0 00204 M00S00186.library +++| SPACE 4,10 00205 M00S00187.library +++|** GLOBAL LIBRARY BIT MASK FOR LOADER CONTROL WORD. 00206 M00S00188.library +++| 00207 M00S00189.library +++| 00208 M00S00190.library +++| GFLG VFD 1/0,1/1,58/0 00209 M00S00191.library +++| SPACE 4,10 00210 M00S00192.library +++| TITLE MAIN PROGRAM. 00211 M00S00193.library +++|** LIBRARY. 00212 M00S00194.library +++|* 00213 M00S00195.library +++|* MAIN ROUTINE. 00214 M00S00196.library +++| 00215 M00S00197.library +++| 00216 M00S00198.library +++| LIBRARY SB1 1 00217 M00S00199.library +++| RJ PRS PRESET
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00218 M01S00001.ns2725 +++| RETURN ZZZZZLD RETURN OLD DIRECTORY FILE 00219 M00S00200.library +++| SA2 ACNT READ ARGUMENT COUNT 00220 M00S00201.library +++| SB2 X2
| Line S00202 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00221 M01S00202.libra4 ---| ZR B2,LIB6 IF NO ARGUMENTS 00222 M01S00203.libra4 ---| 00223 M01S00204.libra4 ---|* RETRIEVE THE LIST OF LIBRARIES VIA *GETGLS*. 00224 M01S00205.libra4 ---| 00225 M01S00206.libra4 ---| GETGLS GLPW GET LIST OF LIBRARIES
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00226 M01S00010.libra4 +++| ZR B2,LIB4 IF NO ARGUMENTS
| Line S00207 Modification History | |
|---|---|
M01 (Removed by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00227 M01S00207.ns2725 ---| RETURN ZZZZZLD RETURN OLD DIRECTORY FILE
| Line S00208 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00228 M01S00208.libra4 ---| LIB2 SA1 ALIB ADDRESS OF NEXT ENTRY IN *TLIB* TABLE
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00209.library +++| SX6 X1+B1 00234 M00S00210.library +++| SA1 X1 READ NEXT ENTRY
| Line S00211 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00235 M01S00211.libra4 ---| ZR X1,LIB3 IF NO MORE ENTRIES
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00236 M01S00015.libra4 +++| ZR X1,LIB2 IF NO MORE ENTRIES
| Line S00212 Modification History | |
|---|---|
M01 (Removed by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00237 M01S00212.ns2725 ---| MX0 -18 00238 M00S00213.library ---| SA6 ALIB STORE NEW ADDRESS 00239 M01S00214.ns2725 ---| BX6 -X0*X1 00240 M01S00215.ns2725 ---| SA6 SLIB SET SYSTEM LIBRARY FLAG
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00241 M01S00002.ns2725 +++| MX0 42 00242 M00S00216.library +++| BX6 X0*X1 STORE CURRENT LIBRARY NAME 00243 M00S00217.library +++| SA6 CLIB 00244 M00S00218.library +++| RJ CLL CHECK FOR LOCAL LIBRARY
| Line S00219 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00245 M01S00219.libra4 ---| EQ LIB2 CHECK NEXT LIBRARY
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00246 M01S00016.libra4 +++| EQ LIB1 CHECK NEXT LIBRARY 00247 M00S00220.library +++| 00248 M00S00221.library +++|* ISSUE LIBRARIES PROCESSED MESSAGE AND SET/CLEAR 00249 M00S00222.library +++|* GLOBAL LIBRARY FLAG IN CONTROL POINT AREA. 00250 M00S00223.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 M00S00224.library +++| LIB3 SA2 EFLG READ ENTRY POINT FLAG
| Line S00225 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00277 M01S00225.libra4 ---| NZ X2,LIB4 IF CROSS REFERENCE GENERATED 00278 M01S00226.libra4 ---| RJ CGL CLEAR GLOBAL LIBRARY FLAG 00279 M01S00227.libra4 ---| EQ LIB7 END PROCESSING
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00280 M01S00042.libra4 +++| NZ X2,LIB5 IF CROSS REFERENCE GENERATED 00281 M01S00043.libra4 +++| LIB4 RJ CGL CLEAR GLOBAL LIBRARY BIT
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00282 M01S00003.ns2725 +++| SA1 ACNT 00283 M01S00004.ns2725 +++| NZ X1,LIB6 IF NOT CLEAR OF ALL EXISTING LIBRARIES
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00228.library +++| 00288 M00S00229.library +++|* SET GLOBAL LIBRARY FLAG. 00289 M00S00230.library +++|
| Line S00231 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00290 M01S00231.libra4 ---| LIB4 SA1 GFLG GET GLOBAL LIBRARY FLAG
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00291 M01S00047.libra4 +++| LIB5 SA1 GFLG GET GLOBAL LIBRARY FLAG 00292 M00S00232.library +++| SA2 LDCW READ LOADER CONTROL WORD 00293 M00S00233.library +++| BX6 X1+X2 SET FLAG 00294 M00S00234.library +++| SA6 A2 00295 M00S00235.library +++| SETLC LDCW RESET LOADER CONTROL WORD 00296 M00S00236.library +++| WRITER ZZZZZLD,R FLUSH BUFFER 00297 M00S00237.library +++| SETFS ZZZZZLD,NDST SET FILE STATUS
| Line S00238 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00298 M01S00238.libra4 ---| EQ LIB7 END PROCESSING
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00299 M01S00048.libra4 +++|* EQ LIB6 END PROCESSING 00300 M00S00239.library +++| 00301 M00S00240.library +++|* TERMINATE PROGRAM. 00302 M00S00241.library +++|
| Line S00242 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00303 M01S00242.libra4 ---| LIB6 MESSAGE X0,3 ISSUE TERMINATION MESSAGE 00304 M01S00243.libra4 ---| LIB7 ENDRUN
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00244.library +++| CLL TITLE SUBROUTINES. 00317 M00S00245.library +++|** CLL - CHECK FOR LOCAL LIBRARY. 00318 M00S00246.library +++|* 00319 M00S00247.library +++|* *CLL* CHECKS FOR THE EXISTENCE OF A LOCAL LIBRARY
| Line S00248 Modification History | |
|---|---|
M01 (Removed by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00320 M01S00248.ns2725 ---|* FILE. IF FILE IS NOT LOCAL AND THE SYSTEM LIBRARY FLAG 00321 M01S00249.ns2725 ---|* IS ZERO, A DIAGNOSTIC IS ISSUED. IF THE FILE IS LOCAL,
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00250.library +++|* THEN THE PREFIX TABLE IS CHECKED TO ENSURE THE FILE 00325 M00S00251.library +++|* IS ACTUALLY A LIBRARY. 00326 M00S00252.library +++|*
| Line S00253 Modification History | |
|---|---|
M01 (Removed by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00327 M01S00253.ns2725 ---|* ENTRY (X6) = LIBRARY NAME.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00328 M01S00007.ns2725 +++|* ENTRY (X6) = (CLIB) = LIBRARY NAME.
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00329 M01S00060.libra4 +++|* (ALIB) = POINTER TO NEXT ENTRY IN *SETGLS* TABLE. 00330 M00S00254.library +++|* 00331 M00S00255.library +++|* EXIT ALL PROCESSING COMPLETE FOR THIS LIBRARY. 00332 M00S00256.library +++|*
| Line S00257 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00333 M01S00257.libra4 ---|* USES X - 0, 1, 2, 3. 00334 M01S00258.libra4 ---|* A - 1, 2.
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00335 M01S00061.libra4 +++|* USES X - 0, 1, 2, 3, 6. 00336 M01S00062.libra4 +++|* A - 1, 2, 6. 00337 M00S00259.library +++|* B - 2, 5. 00338 M00S00260.library +++|* 00339 M00S00261.library +++|* CALLS PLE, SNM. 00340 M00S00262.library +++|*
| Line S00263 Modification History | |
|---|---|
M01 (Removed by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00341 M01S00263.ns2725 ---|* MACROS MESSAGE, READ, READW, REWIND, SETFET, SETFS, STATUS.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00342 M01S00008.ns2725 +++|* MACROS MESSAGE, READ, READW, REWIND, SETFET, SETFS, STATUS, 00343 M01S00009.ns2725 +++|* SYSTEM. 00344 M00S00264.library +++| 00345 M00S00265.library +++| 00346 M00S00266.library +++| CLL SUBR ENTRY/EXIT 00347 M00S00267.library +++| SETFET ULIB,LFN=X6 STORE LIBRARY NAME IN FET 00348 M00S00268.library +++| STATUS ULIB CHECK FOR FILE 00349 M00S00269.library +++| SA1 ULIB 00350 M00S00270.library +++| MX2 -11 00351 M00S00271.library +++| LX2 1 00352 M00S00272.library +++| BX1 -X2*X1 00353 M00S00273.library +++| ZR X1,CLL2 IF FILE DOES NOT EXIST 00354 M00S00274.library +++| REWIND ULIB,R POSITION AT BOI 00355 M00S00275.library +++| READ ULIB,R INITIATE READ OPERATIONS 00356 M00S00276.library +++| SA1 ULIB+2 READ *IN* 00357 M00S00277.library +++| SA2 A1+B1 READ *OUT* 00358 M00S00278.library +++| IX1 X1-X2 00359 M00S00279.library +++| ZR X1,CLL2 IF NO DATA TRANSFERRED 00360 M00S00280.library +++| READW ULIB,UPFX,17B READ PREFIX TABLE 00361 M00S00281.library +++| NZ X1,CLL3 IF TRANSFER INCOMPLETE 00362 M00S00282.library +++| SA1 UPFX READ FIRST WORD OF PREFIX TABLE 00363 M00S00283.library +++| SA2 PRFX FIRST WORD OF A LEGAL ULIB PREFIX TABLE 00364 M00S00284.library +++| BX1 X1-X2 00365 M00S00285.library +++| NZ X1,CLL3 IF NOT A USER LIBRARY PREFIX TABLE 00366 M00S00286.library +++| 00367 M00S00287.library +++|* VALID PREFIX TABLE FOUND, NOW CHECK FOR ULIB TABLE. 00368 M00S00288.library +++| 00369 M00S00289.library +++| READW ULIB,UHDR,1 READ ULIB HEADER WORD 00370 M00S00290.library +++| NZ X1,CLL3 IF TRANSFER INCOMPLETE 00371 M00S00291.library +++| SA1 UHDR CHECK FOR ULIB TABLE ID 00372 M00S00292.library +++| MX0 12 00373 M00S00293.library +++| BX2 X0*X1 00374 M00S00294.library +++| LX2 12 00375 M00S00295.library +++| SX3 X2-7600B 00376 M00S00296.library +++| NZ X3,CLL3 IF NOT A ULIB TABLE 00377 M00S00297.library +++| LX1 12 POSITION GROUP NAME COUNT FIELD 00378 M00S00298.library +++| BX2 X1*X0 STRIP OFF GROUP NAME COUNT 00379 M00S00299.library +++| LX2 12 00380 M00S00300.library +++| ZR X2,CLL1 IF NO GROUP NAMES 00381 M00S00301.library +++| READW ULIB,TEPT,X2 SKIP GROUP NAMES 00382 M00S00302.library +++| NZ X1,CLL3 IF TRANSFER INCOMPLETE 00383 M00S00303.library +++| CLL1 RJ PLE PROCESS LIBRARY ENTRY POINT 00384 M00S00304.library +++| SETFS ULIB,NDST SET *NDST* STATUS ON LIBRARY 00385 M00S00305.library +++| EQ CLLX RETURN 00386 M00S00306.library +++|
| Line S00307 Modification History | |
|---|---|
M01 (Removed by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00387 M01S00307.ns2725 ---|* ISSUE LIBRARY NOT FOUND MESSAGE, IF SYSTEM LIBRARY 00388 M01S00308.ns2725 ---|* FLAG NOT SET.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00389 M01S00010.ns2725 +++|* ISSUE LIBRARY NOT FOUND MESSAGE, IF NOT IN SYSTEM LIBRARY 00390 M01S00011.ns2725 +++|* DIRECTORY. 00391 M00S00309.library +++|
| Line S00310 Modification History | |
|---|---|
M01 (Removed by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 00392 M01S00310.ns2725 ---| CLL2 SA1 SLIB READ SYSTEM LIBRARY FLAG
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2725 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00311.library +++| NZ X1,CLLX IF SYSTEM LIBRARY 00398 M00S00312.library +++| SB5 CLLB SET FWA OF SEARCH 00399 M00S00313.library +++| SX0 CLLA SET FWA OF MESSAGE 00400 M00S00314.library +++| EQ CLL4 SET UP DAYFILE MESSAGE 00401 M00S00315.library +++| 00402 M00S00316.library +++| CLL3 SB5 CLLD SET FWA OF SEARCH 00403 M00S00317.library +++| SX0 CLLC SET FWA OF MESSAGE 00404 M00S00318.library +++| CLL4 SA1 CLIB SET LIBRARY NAME TO BE ADDED TO MESSAGE 00405 M00S00319.library +++| SB2 1RX SET SEARCH CHARACTER 00406 M00S00320.library +++| RJ SNM SET NAME INTO MESSAGE 00407 M00S00321.library +++| MESSAGE X0,3 ISSUE MESSAGE
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00322.library +++| EQ CLLX RETURN 00420 M00S00323.library +++| 00421 M00S00324.library +++| 00422 M00S00325.library +++| CLLA DATA 10H LIBRARY N 00423 M00S00326.library +++| DATA 10HOT FOUND, 00424 M00S00327.library +++| CLLB DATA 8LXXXXXXX. 00425 M00S00328.library +++| 00426 M00S00329.library +++| CLLC DATA 10H INCORRECT 00427 M00S00330.library +++| DATA 10HLY FORMATT 00428 M00S00331.library +++| DATA 10HED LIBRARY 00429 M00S00332.library +++| CLLD DATA 10H, XXXXXXX. 00430 M00S00333.library +++| DATA 0 00431 M00S00334.library +++| PLE SPACE 4,10 00432 M00S00335.library +++|** PLE - PROCESS LIBRARY ENTRY POINTS. 00433 M00S00336.library +++|* 00434 M00S00337.library +++|* *PLE* PROCESSES THE ENTRY POINT LIST IN THE ULIB 00435 M00S00338.library +++|* RECORD UNTIL THE RANDOM ADDRESS WORD IS FOUND. 00436 M00S00339.library +++|* THEN CALLS *WEP* TO WRITE THE ENTRY POINTS OF 00437 M00S00340.library +++|* THE PROGRAM TO THE *ZZZZZLD* DIRECTORY FILE. 00438 M00S00341.library +++|* 00439 M00S00342.library +++|* ENTRY *ULIB* RECORD POSITIONED BEFORE FIRST ENTRY POINT. 00440 M00S00343.library +++|* 00441 M00S00344.library +++|* EXIT ALL ENTRY POINTS FOR THIS *ULIB* RECORD PROCESSED. 00442 M00S00345.library +++|* 00443 M00S00346.library +++|* USES A - 1, 6, 7. 00444 M00S00347.library +++|* X - 0, 1, 6, 7. 00445 M00S00348.library +++|* B - 2, 3. 00446 M00S00349.library +++|* 00447 M00S00350.library +++|* CALLS CEN, WEP. 00448 M00S00351.library +++|* 00449 M00S00352.library +++|* MACROS READW. 00450 M00S00353.library +++| 00451 M00S00354.library +++| 00452 M00S00355.library +++| PLE SUBR ENTRY/EXIT 00453 M00S00356.library +++| BX6 X6-X6 CLEAR FIELD LENGTH ENTRY 00454 M00S00357.library +++| SA6 RFL 00455 M00S00358.library +++| SB2 B0 CLEAR ENTRY POINT COUNTER 00456 M00S00359.library +++| 00457 M00S00360.library +++|* READ ENTRY POINTS UNTIL RANDOM ADDRESS FOUND. 00458 M00S00361.library +++| 00459 M00S00362.library +++| PLE1 READW ULIB,PEPT,1 READ POSSIBLE ENTRY POINT 00460 M00S00363.library +++| NZ X1,PLEX IF END OF RECORD ENCOUNTERED 00461 M00S00364.library +++| SA1 PEPT 00462 M00S00365.library +++| NG X1,PLE3 IF PROGRAM RANDOM ADDRESS POINTER 00463 M00S00366.library +++| 00464 M00S00367.library +++|* CHECK TO SEE IF THE ENTRY POINT CAN BE CONTROL 00465 M00S00368.library +++|* CARD CALLED (NO SPECIAL SYMBOLS). 00466 M00S00369.library +++| 00467 M00S00370.library +++| PLE2 RJ CEN CHECK ENTRY POINT NAME 00468 M00S00371.library +++| NZ X5,PLE1 IF NOT CONTROL CARD CALLABLE 00469 M00S00372.library +++| SX0 PLEA TABLE OVERFLOW MESSAGE 00470 M00S00373.library +++| SB3 LEPT ENTRY POINT TABLE SIZE 00471 M00S00374.library +++| SA6 TEPT+B2 STORE ENTRY POINT IN TABLE 00472 M00S00375.library +++| SB2 B2+B1 INCREMENT ENTRY POINT COUNT 00473 M00S00376.library +++| EQ B2,B3,ABT IF *TEPT* TABLE OVERFLOWED 00474 M00S00377.library +++| EQ PLE1 CHECK NEXT WORD IN ULIB RECORD 00475 M00S00378.library +++| 00476 M00S00379.library +++|* IF SOME CONTROL CARD CALLABLE ENTRY POINTS WERE 00477 M00S00380.library +++|* FOUND, CHECK THE PROGRAM TYPE FIELD. IF THE FIELD 00478 M00S00381.library +++|* IS ZERO THEN THE RECORD CANNOT BE CONTROL CARD CALLED. 00479 M00S00382.library +++| 00480 M00S00383.library +++| PLE3 EQ B0,B2,PLE4 IF NO ENTRY POINTS FOUND 00481 M00S00384.library +++| MX0 -24 00482 M00S00385.library +++| BX7 -X0*X1 EXTRACT RANDOM ADDRESS 00483 M00S00386.library +++| LX7 36 00484 M00S00387.library +++| MX0 54 00485 M00S00388.library +++| LX1 30 EXTRACT RECORD TYPE 00486 M00S00389.library +++| BX6 -X0*X1 00487 M00S00390.library +++| ZR X6,PLE4 IF NOT CONTROL CARD CALLABLE 00488 M00S00391.library +++| SA6 PTYP STORE PROGRAM TYPE 00489 M00S00392.library +++| SA6 EFLG SET DIRECTORY ENTRIES FLAG 00490 M00S00393.library +++| BX6 X6-X6 00491 M00S00394.library +++| SA6 TEPT+B2 TERMINATE ENTRY POINT LIST WITH ZERO WORD 00492 M00S00395.library +++| SA7 PRAN STORE PROGRAM RANDOM ADDRESS 00493 M00S00396.library +++| RJ WEP WRITE ENTRY POINT DIRECTORY
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 00494 M01S00005.ns2268 +++| SX6 B0+ CLEAR SPECIAL ENTRY POINTS 00495 M01S00006.ns2268 +++| SA6 SEPF 00496 M00S00397.library +++| 00497 M00S00398.library +++|* SKIP CROSS REFERENCE ENTRIES UNTIL ANOTHER POSSIBLE 00498 M00S00399.library +++|* ENTRY POINT IS FOUND. 00499 M00S00400.library +++| 00500 M00S00401.library +++| PLE4 SB2 B0 CLEAR ENTRY POINT COUNT 00501 M00S00402.library +++| PLE5 READW ULIB,PEPT,1 READ POSSIBLE ENTRY POINT 00502 M00S00403.library +++| NZ X1,PLEX IF END OF RECORD ENCOUNTERED 00503 M00S00404.library +++| SA1 PEPT 00504 M00S00405.library +++| NG X1,PLE5 IF NOT AN ENTRY POINT 00505 M00S00406.library +++| BX6 X6-X6 CLEAR FIELD LENGTH 00506 M00S00407.library +++| SA6 RFL 00507 M00S00408.library +++| EQ PLE2 PROCESS ENTRY POINT NAME 00508 M00S00409.library +++| 00509 M00S00410.library +++| 00510 M00S00411.library +++| PLEA DATA C* ENTRY POINT TABLE OVERFLOW.* 00511 M00S00412.library +++| CEN SPACE 4,10 00512 M00S00413.library +++|** CEN - CHECK ENTRY POINT NAME. 00513 M00S00414.library +++|* 00514 M00S00415.library +++|* *CEN* CHECKS FOR VALID CONTROL CARD CALLABLE NAMES.
| Line S00416 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00515 M01S00416.261l700 ---|* IN ADDITION, IF A NAME BEGINNING WITH *RFL=* IS FOUND 00516 M01S00417.261l700 ---|* THE FIELD LENGTH IS EXTRACTED AND STORED IN WORD 4 00517 M01S00418.261l700 ---|* OF THE DIRECTORY ENTRY. IF A NPC= ENTRY POINT 00518 M01S00419.261l700 ---|* IS FOUND THE NOS-CRACKING BIT IS SET IN THE DIRECTORY.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00519 M02S00007.261l700 ---|* IF AN *ARG=* OR *SDM=* SPECIAL ENTRY POINT IS FOUND, 00520 M02S00008.261l700 ---|* THE APPROPRIATE BIT IS SET IN THE DIRECTORY.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00420.library +++|* 00531 M00S00421.library +++|* ENTRY (X1) = NAME TO BE CHECKED. 00532 M00S00422.library +++|* 00533 M00S00423.library +++|* EXIT (X5) = ZERO IF NAME IS CONTROL CARD CALLABLE.
| Line S00424 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00534 M01S00424.261l700 ---|* (X6) = NAME, IF NOT RFL= ENTRY POINT.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00535 M01S00012.261l700 +++|* (X6) = NAME, IF NOT SPECIAL ENTRY POINT. 00536 M00S00425.library +++|* 00537 M00S00426.library +++|* USES A - 2, 5, 6. 00538 M00S00427.library +++|* X - 0, 1, 2, 5, 6. 00539 M00S00428.library +++|* B - 5, 6. 00540 M00S00429.library +++| 00541 M00S00430.library +++| 00542 M00S00431.library +++| CEN SUBR ENTRY/EXIT
| Line S00432 Modification History | |
|---|---|
M01 (Removed by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 00543 M01S00432.ns2268 ---| SA5 CENA CHECK FOR RFL= 00544 M01S00433.ns2268 ---| MX0 30 MUST BE FOLLOWED BY 6 BITS OF ZERO 00545 M01S00434.ns2268 ---| BX6 X0*X1 00546 M01S00435.ns2268 ---| BX6 X5-X6 00547 M01S00436.ns2268 ---| NZ X6,CEN1 IF NOT RFL= 00548 M01S00437.ns2268 ---| 00549 M01S00438.ns2268 ---|* EXTRACT FIELD LENGTH, STORE IN RFL AND EXIT. 00550 M01S00439.ns2268 ---| 00551 M01S00440.ns2268 ---| MX0 12
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00558 M02S00015.261l700 ---| ZR X5,CEN4 IF END OF SPECIAL ENTRY POINT TABLE
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00559 M01S00013.261l700 +++| ZR X5,CEN5 IF END OF SPECIAL ENTRY POINT TABLE
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00441.library +++| LX1 30 00579 M00S00442.library +++| BX6 X0*X1 00580 M00S00443.library +++| SA5 RFL 00581 M00S00444.library +++| BX5 -X0*X5 00582 M00S00445.library +++| BX6 X6+X5 00583 M00S00446.library +++| SA6 RFL STORE FIELD LENGTH 00584 M00S00447.library +++| SX5 B1 00585 M00S00448.library +++| EQ CENX EXIT 00586 M00S00449.library +++|
| Line S00450 Modification History | |
|---|---|
M01 (Removed by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 00587 M01S00450.ns2268 ---|* CHECK FOR NPC= ENTRY POINT 00588 M01S00451.ns2268 ---| 00589 M01S00452.ns2268 ---| CEN1 SA5 CENB 00590 M01S00453.ns2268 ---| BX6 X5-X1 00591 M01S00454.ns2268 ---| NZ X6,CEN2 IF NOT NPC= ENTRY POINT 00592 M01S00455.ns2268 ---| SA5 RFL SET NOS CRACKING BIT IN DIRECTORY 00593 M01S00456.ns2268 ---| SA2 CENC 00594 M01S00457.ns2268 ---| BX6 X5+X2 00595 M01S00458.ns2268 ---| SA6 RFL 00596 M01S00459.ns2268 ---| SX5 B1 00597 M01S00460.ns2268 ---| EQ CENX EXIT 00598 M01S00461.ns2268 ---| 00599 M01S00462.ns2268 ---|* NOT RFL= OR NPC= ENTRY POINT SO CHECK FOR VALID NAME. 00600 M01S00463.ns2268 ---| 00601 M01S00464.ns2268 ---| CEN2 MX0 -6 CHARACTER MASK
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 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 +++|
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 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 +++|
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 00620 M01S00043.ns2268 +++|* CHECK FOR NORMAL ENTRY POINT. 00621 M01S00044.ns2268 +++|
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00622 M02S00045.261l700 ---| CEN4 MX0 -6
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00623 M01S00023.261l700 +++| CEN5 MX0 -6 00624 M00S00465.library +++| BX6 X1 SAVE NAME IN X6 00625 M00S00466.library +++| SB5 B0+ 00626 M00S00467.library +++| SB6 8
| Line S00468 Modification History | |
|---|---|
M01 (Removed by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 00627 M01S00468.ns2268 ---| CEN3 LX1 6
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00628 M02S00046.261l700 ---| CEN5 LX1 6
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00629 M01S00024.261l700 +++| CEN6 LX1 6 00630 M00S00469.library +++| BX5 -X0*X1 00631 M00S00470.library +++| ZR X5,CENX IF END OF NAME FOUND 00632 M00S00471.library +++| SX2 X5-1R+ 00633 M00S00472.library +++| PL X2,CENX IF INVALID CHARACTER 00634 M00S00473.library +++| SB5 B5+B1 INCREMENT CHARACTER COUNT 00635 M00S00474.library +++| EQ B5,B6,CENX IF EIGHT CHARACTERS CHECKED
| Line S00475 Modification History | |
|---|---|
M01 (Removed by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 00636 M01S00475.ns2268 ---| EQ CEN3 CHECK NEXT CHARACTER
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00637 M02S00047.261l700 ---| EQ CEN5 CHECK NEXT CHARACTER
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00638 M01S00025.261l700 +++| EQ CEN6 CHECK NEXT CHARACTER 00639 M01S00026.261l700 +++| 00640 M00S00476.library +++|
| Line S00477 Modification History | |
|---|---|
M01 (Removed by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 00641 M01S00477.ns2268 ---| CENA VFD 24/0LRFL=,36/0 00642 M01S00478.ns2268 ---| CENB VFD 24/0LNPC=,36/0 00643 M01S00479.ns2268 ---| CENC VFD 23/0,1/1,36/0
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 00657 M01S00055.ns2268 +++| VFD 24/0LRFL=,6/,18/CEN2,12/0
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 00658 M02S00056.261l700 ---| VFD 24/0LNPC=,6/,18/CEN3,12/0 00659 M02S00057.261l700 ---| VFD 24/0LARG=,6/,18/,12/4040B
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 00660 M01S00058.ns2268 +++| VFD 24/0LSDM=,6/,18/,12/4010B
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | ns2268 |
Seq # *Modification Id* Act ----------------------------+ 00664 M01S00059.ns2268 +++| CON 0 END OF TABLE 00665 M00S00480.library +++| WEP SPACE 4,25 00666 M00S00481.library +++|** WEP - WRITE ENTRY POINT TABLE. 00667 M00S00482.library +++|* 00668 M00S00483.library +++|* *WEP* WRITES THE CONTENTS OF THE ENTRY POINT TABLE *TEPT*, 00669 M00S00484.library +++|* TO THE *ZZZZZLD* CROSS REFERENCE FILE. 00670 M00S00485.library +++|* 00671 M00S00486.library +++|* ENTRY ENTRY POINT TABLE SET UP. 00672 M00S00487.library +++|* 00673 M00S00488.library +++|* EXIT CONTENTS OF *TEPT* WRITTEN TO THE OUTPUT BUFFER. 00674 M00S00489.library +++|* 00675 M00S00490.library +++|* USES A - 1, 2, 3, 6, 7. 00676 M00S00491.library +++|* X - 1, 2, 3, 6, 7. 00677 M00S00492.library +++|* 00678 M00S00493.library +++|* MACROS WRITEW. 00679 M00S00494.library +++| 00680 M00S00495.library +++| 00681 M00S00496.library +++| WEP SUBR ENTRY/EXIT 00682 M00S00497.library +++| SX6 TEPT 00683 M00S00498.library +++| SA6 TEPTP INITIALIZE *TEPT* POINTER 00684 M00S00499.library +++| WEP1 SA1 TEPTP READ *TEPT* POINTER 00685 M00S00500.library +++| SA2 X1 READ NEXT ENTRY POINT IN TABLE 00686 M00S00501.library +++| ZR X2,WEPX IF NO MORE ENTRY POINTS TO PROCESS 00687 M00S00502.library +++| SX7 X1+B1 INCREMENT *TEPT* POINTER 00688 M00S00503.library +++| SA7 TEPTP 00689 M00S00504.library +++| SA3 PTYP READ RECORD TYPE 00690 M00S00505.library +++| BX6 X3+X2 COMBINE ENTRY NAME WITH RECORD TYPE 00691 M00S00506.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 M00S00507.library +++| WRITEW ZZZZZLD,WBUF,4 00697 M00S00508.library +++| EQ WEP1 CHECK NEXT *TEPT* ENTRY 00698 M00S00509.library +++| CGL SPACE 4,15 00699 M00S00510.library +++|** CGL - CLEAR GLOBAL LIBRARY BIT. 00700 M00S00511.library +++|* 00701 M00S00512.library +++|* *CGL* CLEARS THE GLOBAL LIBRARY BIT IN THE LOADER 00702 M00S00513.library +++|* CONTROL WORD. THIS INDICATES THAT THERE 00703 M00S00514.library +++|* ARE EITHER NO USER LIBRARIES TO PROCESS, OR THERE 00704 M00S00515.library +++|* ARE NO CONTROL CARD CALLABLE ENTRIES IN THE GLOBAL 00705 M00S00516.library +++|* LIBRARY SET. 00706 M00S00517.library +++|* 00707 M00S00518.library +++|* EXIT GLOBAL BIT IN LOADER CONTROL WORD CLEARED. 00708 M00S00519.library +++|* 00709 M00S00520.library +++|* USES A - 1, 2, 6. 00710 M00S00521.library +++|* X - 1, 2, 6. 00711 M00S00522.library +++|* 00712 M00S00523.library +++|* MACROS SETLC. 00713 M00S00524.library +++| 00714 M00S00525.library +++| 00715 M00S00526.library +++| CGL SUBR ENTRY/EXIT 00716 M00S00527.library +++| SA1 GFLG READ GLOBAL CONTROL FLAG 00717 M00S00528.library +++| SA2 LDCW READ LOADER CONTROL WORD 00718 M00S00529.library +++| BX6 -X1*X2 CLEAR GLOBAL FLAG 00719 M00S00530.library +++| SA6 LDCW 00720 M00S00531.library +++| SETLC LDCW RESET LOADER CONTROL WORD 00721 M00S00532.library +++| EQ CGLX RETURN 00722 M00S00533.library +++| ABT SPACE 4,10 00723 M00S00534.library +++|** ABT - ISSUE MESSAGE AND ABORT. 00724 M00S00535.library +++|* 00725 M00S00536.library +++|* ENTRY (X0) = MESSAGE ADDRESS. 00726 M00S00537.library +++|* 00727 M00S00538.library +++|* MACROS ABORT, MESSAGE. 00728 M00S00539.library +++| 00729 M00S00540.library +++| 00730 M00S00541.library +++| ABT BSS 0 ENTRY 00731 M00S00542.library +++| MESSAGE X0,3 00732 M00S00543.library +++| ABORT ABORT CONTROL POINT 00733 M00S00544.library +++| SPACE 4,10 00734 M00S00545.library +++|* COMMON DECKS. 00735 M00S00546.library +++| 00736 M00S00547.library +++| 00737 M00S00548.library +++|*CALL COMCCIO 00738 M00S00549.library +++|*CALL COMCCPM 00739 M00S00550.library +++|*CALL COMCLFM 00740 M00S00551.library +++|*CALL COMCRDW 00741 M00S00552.library +++|*CALL COMCSNM 00742 M00S00553.library +++|*CALL COMCSYS 00743 M00S00554.library +++|*CALL COMCWTW 00744 M00S00555.library +++| BUFFERS SPACE 4,10 00745 M00S00556.library +++|* BUFFERS. 00746 M00S00557.library +++| 00747 M00S00558.library +++| 00748 M00S00559.library +++| ULBF EQU *+1 *ULIB* BUFFER 00749 M00S00560.library +++| ZZBF EQU ULBF+UBUFL *ZZZZZLD* BUFFER 00750 M00S00561.library +++| TEPT EQU ZZBF+ZBUFL ENTRY POINT TABLE 00751 M00S00562.library +++| TLIB EQU TEPT+LEPT LIBRARY NAME TABLE
| Line S00563 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00752 M01S00563.libra4 ---| RFL= EQU TLIB+MAXL
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00753 M01S00074.libra4 +++| GLIB EQU TLIB+MAXL *GETGLS* TABLE 00754 M01S00075.libra4 +++| RFL= EQU GLIB+MAXL 00755 M00S00564.library +++| PRS TITLE PRESET ROUTINE. 00756 M00S00565.library +++|** PRS - PRESET. 00757 M00S00566.library +++|* 00758 M00S00567.library +++|* *PRS* DETERMINES THE FORMAT OF THE CONTROL 00759 M00S00568.library +++|* STATEMENT AND CHECKS FOR THE PRESENCE OF INVALID 00760 M00S00569.library +++|* SEPARATORS. 00761 M00S00570.library +++|* THE GLOBAL LIBRARY SET IS CLEARED, THE GLOBAL 00762 M00S00571.library +++|* FLAG IN THE LOADER CONTROL WORD IS CLEARED AND 00763 M00S00572.library +++|* THE *1AJ* GLOBAL LIBRARY DIRECTORY IS RETURNED 00764 M00S00573.library +++|* IF THE *LIBRARY* STATEMENT CONTAINS NO PARAMETERS 00765 M00S00574.library +++|* (*LIBRARY.*). 00766 M00S00575.library +++|* 00767 M00S00576.library +++|* EXIT (X0) = ERROR MESSAGE. 00768 M00S00577.library +++|* TO *ABT* IF ARGUMENT ERROR. 00769 M00S00578.library +++|* 00770 M00S00579.library +++|* USES A - 1, 2, 4, 5, 6, 7. 00771 M00S00580.library +++|* X - 0, 1, 2, 3, 4, 5, 6, 7. 00772 M00S00581.library +++|* B - 2, 3, 4, 5. 00773 M00S00582.library +++|* 00774 M00S00583.library +++|* CALLS CGL, CNS. 00775 M00S00584.library +++|* 00776 M00S00585.library +++|* MACROS GETGLS, GETLC, RETURN, SETGLS. 00777 M00S00586.library +++| 00778 M00S00587.library +++|
| Line S00588 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00779 M01S00588.libra4 ---| PRS13 BX6 X5 REPLACE *SETGLS* PARAMETER WORD 00780 M01S00589.libra4 ---| SA6 SLPW 00781 M01S00590.libra4 ---| PRS14 SA1 SLPW SAVE TABLE ADDRESS 00782 M01S00591.libra4 ---| LX1 24 00783 M01S00592.libra4 ---| BX6 -X3*X1 00784 M01S00593.libra4 ---| SA6 TADR 00785 M01S00594.libra4 ---| SETGLS SLPW ISSUE GLOBAL LIBRARY SET 00786 M01S00595.libra4 ---| GETLC LDCW GET LOADER CONTROL WORD 00787 M01S00596.libra4 ---| ZR B2,PRS16 IF FORMAT *LIBRARY.* 00788 M01S00597.libra4 ---| SA1 OTYP CHECK OPTION TYPE 00789 M01S00598.libra4 ---| SX1 X1-1RD 00790 M01S00599.libra4 ---| ZR X1,PRS15 IF OPERATION IS DELETE 00791 M01S00600.libra4 ---| 00792 M01S00601.libra4 ---|* CHECK TO SEE IF THERE WERE NO ERRORS IN 00793 M01S00602.libra4 ---|* THE GLOBAL LIBRARY SET JUST ISSUED. 00794 M01S00603.libra4 ---| 00795 M01S00604.libra4 ---| SX0 =C* TOO MANY USER LIBRARIES SPECIFIED.* 00796 M01S00605.libra4 ---| SA2 TADR READ TABLE ADDRESS 00797 M01S00606.libra4 ---| SB3 X2 00798 M01S00607.libra4 ---| SA1 ACNT READ ARGUMENT COUNT 00799 M01S00608.libra4 ---| SB2 X1 00800 M01S00609.libra4 ---| SB2 B2+B3 00801 M01S00610.libra4 ---| SA1 SLPW READ *SETGLS* PARAMETER WORD 00802 M01S00611.libra4 ---| LX1 24 00803 M01S00612.libra4 ---| MX3 -18 00804 M01S00613.libra4 ---| BX1 -X3*X1 (X1) = LWA+1 OF TRANSFER 00805 M01S00614.libra4 ---| SB3 X1 00806 M01S00615.libra4 ---| NE B2,B3,ABT IF ALL NAMES DO NOT FIT 00807 M01S00616.libra4 ---| PRS15 RJ CNS CLEAR *NO-DROP* STATUS 00808 M01S00617.libra4 ---| EQ PRSX RETURN 00809 M01S00618.libra4 ---| 00810 M01S00619.libra4 ---|* CLEAR GLOBAL LIBRARY FLAG AND RETURN *ZZZZZLD*. 00811 M01S00620.libra4 ---| 00812 M01S00621.libra4 ---| PRS16 RJ CNS CLEAR *NO-DROP* STATUS 00813 M01S00622.libra4 ---| RJ CGL CLEAR GLOBAL LIBRARY BIT 00814 M01S00623.libra4 ---| RETURN ZZZZZLD,R RETURN GLOBAL LIBRARY DIRECTORY FILE 00815 M01S00624.libra4 ---| SX0 =C* GLOBAL LIBRARY SET CLEARED.* 00816 M01S00625.libra4 ---| 00817 M01S00626.libra4 ---| 00818 M00S00627.library ---| PRS SUBR ENTRY/EXIT 00819 M01S00628.libra4 ---| GETGLS PRSF GET CURRENT GLOBAL LIBRARY SET 00820 M01S00629.libra4 ---| BX7 X7-X7 CLEAR *TLIB* BUFFER
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00821 M01S00076.libra4 +++| BX7 X7-X7 CLEAR *TLIB* AND *GLIB* BUFFERS 00822 M00S00630.library +++| SA7 TLIB STARTING ADDRESS
| Line S00631 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00823 M01S00631.libra4 ---| SB5 MAXL-1 BUFFER LENGTH
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00824 M01S00077.libra4 +++| SB5 MAXL+MAXL-1 CLEAR BOTH BUFFERS 00825 M01S00078.libra4 +++| ERRNZ GLIB-TLIB-MAXL CODE ASSUMES CONTIGUOUS BUFFERS 00826 M00S00632.library +++| PRS0 SA7 A7+B1 00827 M00S00633.library +++| SB5 B5-B1 00828 M00S00634.library +++| NZ B5,PRS0 IF NOT END OF BUFFER 00829 M01S00079.libra4 +++| GETGLS GLPW GET CURRENT GLOBAL LIBRARY SET 00830 M00S00635.library +++| SA1 ACTR READ ARGUMENT COUNT 00831 M00S00636.library +++| SB2 X1 00832 M00S00637.library +++| ZR B2,PRS14 IF NO ARGUMENTS 00833 M00S00638.library +++| SX6 B2 00834 M00S00639.library +++| SA6 ACNT STORE ARGUMENT COUNT 00835 M00S00640.library +++| SB5 ARGM MAXIMUM ARGUMENT COUNT 00836 M00S00641.library +++| 00837 M00S00642.library +++|* LOOK FOR */A*, */D* OR */R*. 00838 M00S00643.library +++| 00839 M00S00644.library +++| SX0 =C* ERROR IN LIBRARY ARGUMENTS.* 00840 M00S00645.library +++| SA1 ARGR-1 FIRST ARGUMENT MINUS ONE 00841 M00S00646.library +++| SB3 B0+ 00842 M00S00647.library +++| MX3 -18
| Line S00648 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00843 M01S00648.libra4 ---|PRS1 SB3 B3+B1 SCAN ARGUMENT LIST
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00844 M01S00080.libra4 +++| PRS1 SB3 B3+B1 SCAN ARGUMENT LIST 00845 M00S00649.library +++| GT B3,B2,PRS2 IF ALL ARGUMENTS PROCESSED 00846 M00S00650.library +++| SA1 A1+B1 READ NEXT ARGUMENT 00847 M00S00651.library +++| BX6 X3*X1 CHECK FOR NULL ARGUMENT 00848 M00S00652.library +++| ZR X6,ABT IF NULL ARGUMENT 00849 M00S00653.library +++| BX2 -X3*X1
| Line S00654 Modification History | |
|---|---|
M01 (Removed by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00850 M01S00654.libra5 ---| ZR X2,PRS1 IF SEPARATOR = , . \
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00851 M01S00001.libra5 +++| ZR X2,PRS1 IF NOS SEPARATOR *,* *.* OR *)* 00852 M01S00002.libra5 +++| SA6 A1+ STORE ARGUMENT WITHOUT SEPARATOR 00853 M00S00655.library +++| SX2 X2-1R/
| Line S00656 Modification History | |
|---|---|
M01 (Removed by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00854 M01S00656.libra5 ---| NZ X2,ABT IF SEPARATOR NOT / 00855 M01S00657.libra5 ---| SA6 A1 STORE ARGUMENT WITHOUT /
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00863 M01S00658.libra5 ---| SB3 B3+B1 ARGUMENT FOLLOWING / MUST BE LAST
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00864 M01S00010.libra5 +++| PRS1.1 SB3 B3+B1 ARGUMENT FOLLOWING */* MUST BE LAST 00865 M00S00659.library +++| NE B3,B2,ABT IF NOT LAST ARGUMENT 00866 M00S00660.library +++| SA1 A1+B1 LAST ARGUMENT MUST BE *A*, *D* OR *R*
| Line S00661 Modification History | |
|---|---|
M01 (Removed by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00867 M01S00661.libra5 ---| SX7 B0 ZERO OUT LAST ARGUMENT
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00868 M01S00011.libra5 +++| SX7 B0+ ZERO OUT LAST ARGUMENT 00869 M00S00662.library +++| SA7 A1 00870 M00S00663.library +++| SX7 B2-B1 DECREMENT ARGUMENT COUNT 00871 M00S00664.library +++| SA7 ACNT
| Line S00665 Modification History | |
|---|---|
M01 (Removed by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00872 M01S00665.libra5 ---| BX7 X1 SAVE OPERATION TYPE
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00873 M01S00012.libra5 +++| BX7 X3*X1 SAVE OPERATION TYPE 00874 M00S00666.library +++| LX7 6 00875 M00S00667.library +++| SA7 OTYP
| Line S00668 Modification History | |
|---|---|
M01 (Removed by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00876 M01S00668.libra5 ---| SA2 =1LA ADD TO GLOBAL LIBRARY SET 00877 M01S00669.libra5 ---| BX6 X1-X2
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00878 M01S00013.libra5 +++| SX6 X7-1RA ADD TO GLOBAL LIBRARY SET 00879 M00S00670.library +++| ZR X6,PRS3 IF ADD OPERATION
| Line S00671 Modification History | |
|---|---|
M01 (Removed by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00880 M01S00671.libra5 ---| SA2 =1LD DELETE FROM GLOBAL LIBRARY SET 00881 M01S00672.libra5 ---| BX6 X1-X2
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00882 M01S00014.libra5 +++| SX6 X7-1RD DELETE FROM GLOBAL LIBRARY SET 00883 M00S00673.library +++| ZR X6,PRS6 IF DELETE OPERATION
| Line S00674 Modification History | |
|---|---|
M01 (Removed by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00884 M01S00674.libra5 ---| SA2 =1LR REPLACE GLOBAL LIBRARY SET(DEFAULT) 00885 M01S00675.libra5 ---| BX6 X1-X2
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | libra5 |
Seq # *Modification Id* Act ----------------------------+ 00886 M01S00015.libra5 +++| SX6 X7-1RR REPLACE GLOBAL LIBRARY SET (DEFAULT) 00887 M00S00676.library +++| NZ X6,ABT IF NOT REPLACE OPERATION 00888 M00S00677.library +++| 00889 M00S00678.library +++|* REPLACE GLOBAL LIBRARY SET. 00890 M00S00679.library +++| 00891 M00S00680.library +++| PRS2 SX0 PRSA * TOO MANY LIBRARY NAMES SPECIFIED.* 00892 M00S00681.library +++| SB3 B3-B1 (B3) = NUMBER OF ACTUAL ARGUMENTS 00893 M00S00682.library +++| GT B3,B5,ABT IF TOO MANY ARGUMENTS 00894 M00S00683.library +++| EQ PRS14 ISSUE GLOBAL LIBRARY SET 00895 M00S00684.library +++| 00896 M00S00685.library +++|* ADD TO CURRENT GLOBAL LIBRARY SET. 00897 M00S00686.library +++|
| Line S00687 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00898 M01S00687.libra4 ---| PRS3 SA1 PRSB
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00899 M01S00081.libra4 +++| PRS3 SA1 GLIB 00900 M00S00688.library +++| ZR X1,PRS2 IF CURRENT SET EMPTY
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | libra3 |
M02 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00901 M02S00001.libra4 ---| SA1 PRSF SET ARGUMENT COUNT TO NUMBER OF LIBRARIES
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00902 M01S00082.libra4 +++| SA1 GLPW SET ARGUMENT COUNT TO NUMBER OF LIBRARIES
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | libra3 |
Seq # *Modification Id* Act ----------------------------+ 00903 M01S00002.libra3 +++| LX1 24 00904 M01S00003.libra3 +++| BX6 -X3*X1
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | libra3 |
M02 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00905 M02S00004.libra4 ---| SX6 X6-PRSB
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00906 M01S00083.libra4 +++| SX6 X6-GLIB
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | libra3 |
Seq # *Modification Id* Act ----------------------------+ 00907 M01S00005.libra3 +++| SA6 ACNT 00908 M00S00689.library +++| SA1 ARGR-1 00909 M00S00690.library +++| SX0 PRSA * TOO MANY LIBRARY NAMES SPECIFIED.*
| Line S00691 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00910 M01S00691.libra4 ---| SA5 PRSE *SETGLS* PARAMETER WORD
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00911 M01S00084.libra4 +++| SA5 PRSB *SETGLS* PARAMETER WORD 00912 M00S00692.library +++| PRS4 SA1 A1+B1 READ NEXT ARGUMENT 00913 M00S00693.library +++| ZR X1,PRS13 IF END OF ARGUMENTS
| Line S00694 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00914 M01S00694.libra4 ---| SA2 PRSB-1
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00915 M01S00085.libra4 +++| SA2 GLIB-1 00916 M00S00695.library +++| PRS5 SA2 A2+B1 CHECK NEXT ENTRY 00917 M00S00696.library +++| BX6 X3*X2 EXTRACT LIBRARY NAME 00918 M00S00697.library +++| BX4 X1-X6 CHECK FOR DUPLICATE ENTRY 00919 M00S00698.library +++| ZR X4,PRS4 IF DUPLICATE ENTRY 00920 M00S00699.library +++| NZ X6,PRS5 IF SLOT NOT EMPTY
| Line S00700 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00921 M01S00700.libra4 ---| SB4 PRSB-1 CHECK NUMBER OF ARGUMENTS
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00922 M01S00086.libra4 +++| SB4 GLIB-1 CHECK NUMBER OF ARGUMENTS 00923 M00S00701.library +++| SB4 A2-B4 (B4) = ARGUMENT COUNT 00924 M00S00702.library +++| GT B4,B5,ABT IF TOO MANY ARGUMENTS 00925 M00S00703.library +++| SX6 B4 SAVE COUNT 00926 M00S00704.library +++| SA6 ACNT 00927 M00S00705.library +++| BX7 X1 STORE ARGUMENT IN LIST 00928 M00S00706.library +++| SA7 A2 00929 M00S00707.library +++| EQ PRS4 CHECK NEXT ARGUMENT 00930 M00S00708.library +++| 00931 M00S00709.library +++|* DELETE FROM CURRENT LIBRARY SET. 00932 M00S00710.library +++|
| Line S00711 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00933 M01S00711.libra4 ---| PRS6 SA1 PRSB 00934 M01S00712.libra4 ---| SA5 PRSD *SETGLS* PARAMETER WORD FOR DELETES
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00935 M01S00087.libra4 +++| PRS6 SA1 GLIB 00936 M01S00088.libra4 +++| SA5 PRSB *SETGLS* PARAMETER WORD FOR DELETES 00937 M00S00713.library +++| NZ X1,PRS8 IF CURRENT SET NOT EMPTY 00938 M00S00714.library +++| PRS7 SB2 B0 PROCESS AS *LIBRARY.* 00939 M00S00715.library +++| SX6 B0 CLEAR ARGUMENT COUNT 00940 M00S00716.library +++| SA6 ACNT 00941 M00S00717.library +++| EQ PRS13 CLEAR GLOBAL SET 00942 M00S00718.library +++|
| Line S00719 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00943 M01S00719.libra4 ---| PRS8 SA1 PRSB-1 00944 M01S00720.libra4 ---| SB3 PRSC
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00945 M01S00089.libra4 +++| PRS8 SA1 GLIB-1 00946 M01S00090.libra4 +++| SB3 GLIB 00947 M00S00721.library +++| PRS9 SA1 A1+B1 READ NEXT MEMBER OF CURRENT SET 00948 M00S00722.library +++| BX6 X3*X1 EXTRACT LIBRARY NAME 00949 M00S00723.library +++| ZR X6,PRS12 IF ALL CURRENT MEMBERS PROCESSED 00950 M00S00724.library +++| SA4 ARGR-1 00951 M00S00725.library +++| PRS10 SA4 A4+B1 READ NEXT LIBRARY TO DELETE 00952 M00S00726.library +++| ZR X4,PRS11 IF END OF ARGUMENTS 00953 M00S00727.library +++| BX1 X6-X4 00954 M00S00728.library +++| ZR X1,PRS9 IF CURRENT SET MEMBER = ARGUMENT 00955 M00S00729.library +++| EQ PRS10 CHECK MEMBER AGAINST NEXT ARGUMENT 00956 M00S00730.library +++| 00957 M00S00731.library +++| PRS11 SA6 B3 SAVE CURRENT MEMBER 00958 M00S00732.library +++| SB3 B3+B1 00959 M00S00733.library +++| EQ PRS9 CHECK NEXT MEMBER 00960 M00S00734.library +++|
| Line S00735 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00961 M01S00735.libra4 ---| PRS12 SA1 PRSC CHECK FOR ALL CURRENT MEMBERS DELETED
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00962 M01S00091.libra4 +++| PRS12 SA6 B3 00963 M01S00092.libra4 +++| SA1 GLIB CHECK FOR ALL CURRENT MEMBERS DELETED 00964 M00S00736.library +++| ZR X1,PRS7 IF ALL CURRENT MEMBERS DELETED
| Line S00737 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00965 M01S00737.libra4 ---| EQ PRS13 ISSUE GLOBAL LIBRARY SET
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00738.library +++| 00976 M00S00739.library +++| PRSA DATA C* TOO MANY LIBRARY NAMES SPECIFIED.*
| Line S00740 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00977 M01S00740.libra4 ---| PRSB BSSZ MAXL+1 SCRATCH AREA TO RETRIEVE CURRENT SET 00978 M01S00741.libra4 ---| PRSC BSSZ MAXL+1 MERGE TABLE TO PROCESS DELETES 00979 M01S00742.libra4 ---| PRSD VFD 6/0,18/PRSC,36/0 *SETGLS* PARAMETER FOR DELETES 00980 M01S00743.libra4 ---| PRSE VFD 6/0,18/PRSB,36/0 *SETGLS* PARAMETER FOR ADDS 00981 M01S00744.libra4 ---| PRSF VFD 6/0,18/PRSB,36/0 *GETGLS* PARAMETER FOR ADD/DELETE
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 00982 M01S00102.libra4 +++| PRSB VFD 6/0,18/GLIB,36/0 *SETGLS* PARAMETER FOR DELETES 00983 M00S00745.library +++| CNS SPACE 4,15 00984 M00S00746.library +++|** CNS - CLEAR *NO-DROP* STATUS. 00985 M00S00747.library +++|* 00986 M00S00748.library +++|* *CNS* CLEARS THE *NO-DROP* STATUS SET ON CURRENT 00987 M00S00749.library +++|* MEMBERS OF THE GLOBAL LIBRARY SET WHICH ARE TO BE 00988 M00S00750.library +++|* DELETED IN THE NEW GLOBAL LIBRARY SET. 00989 M00S00751.library +++|* 00990 M00S00752.library +++|* EXIT *AUTO-DROP* STATUS SET ON ALL DELETED 00991 M00S00753.library +++|* GLOBAL LIBRARIES. 00992 M00S00754.library +++|* 00993 M00S00755.library +++|* USES A - 1, 5. 00994 M00S00756.library +++|* B - 2. 00995 M00S00757.library +++|* X - 1, 2, 5. 00996 M00S00758.library +++|*
| Line S00759 Modification History | |
|---|---|
M01 (Removed by) | libra1 |
Seq # *Modification Id* Act ----------------------------+ 00997 M01S00759.libra1 ---|* MACROS SETFET, SETFS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | libra1 |
Seq # *Modification Id* Act ----------------------------+ 00998 M01S00001.libra1 +++|* MACROS SETFET, SETFS, STATUS. 00999 M00S00760.library +++| 01000 M00S00761.library +++| 01001 M00S00762.library +++| CNS SUBR ENTRY/EXIT 01002 M00S00763.library +++| SA1 ACNT CHECK NUMBER OF PARAMETERS 01003 M00S00764.library +++| SB2 X1
| Line S00765 Modification History | |
|---|---|
M01 (Removed by) | libra2 |
Seq # *Modification Id* Act ----------------------------+ 01004 M01S00765.libra2 ---| ZR B3,CNS1 IF *LIBRARY.*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | libra2 |
Seq # *Modification Id* Act ----------------------------+ 01005 M01S00001.libra2 +++| ZR B2,CNS1 IF *LIBRARY.* 01006 M00S00766.library +++| SA1 OTYP CHECK OPTION TYPE 01007 M00S00767.library +++| SX2 X1-1RA 01008 M00S00768.library +++| ZR X2,CNSX IF *ADD* OPTION 01009 M00S00769.library +++| SX2 X1-1RR 01010 M00S00770.library +++| SA5 ARGR 01011 M00S00771.library +++| NZ X2,CNS2 IF NOT *REPLACE* OPTION
| Line S00772 Modification History | |
|---|---|
M01 (Removed by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 01012 M01S00772.libra4 ---| CNS1 SA5 PRSB
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | libra4 |
Seq # *Modification Id* Act ----------------------------+ 01013 M01S00103.libra4 +++| CNS1 SA5 GLIB 01014 M00S00773.library +++| CNS2 SB2 B0+ INITIALIZE POINTER 01015 M00S00774.library +++| CNS3 SA1 A5+B2 CHECK NEXT LIBRARY 01016 M00S00775.library +++| ZR X1,CNSX IF NO OTHER LIBRARIES 01017 M00S00776.library +++| SETFET ULIB,LFN=X1 CHANGE LOCAL FILE NAME
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | libra1 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00777.library +++| SETFS ULIB,AD SET *AUTO-DROP* STATUS
| Line S00778 Modification History | |
|---|---|
M01 (Removed by) | libra1 |
Seq # *Modification Id* Act ----------------------------+ 01025 M01S00778.libra1 ---| SB2 B2+B1 INCREMENT POINTER
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | libra1 |
Seq # *Modification Id* Act ----------------------------+ 01026 M01S00008.libra1 +++| CNS4 SB2 B2+B1 INCREMENT POINTER 01027 M00S00779.library +++| EQ CNS3 CONTINUE UNTIL END OF LIBRARIES 01028 M00S00780.library +++| 01029 M00S00781.library +++| ERRNG RFL=-* IF *PRS* BIGGER THAN REST OF PROGRAM 01030 M00S00782.library +++| 01031 M00S00783.library +++| 01032 M00S00784.library +++| END
cdc/nos2.source/opl.opl871/deck/library.txt · Last modified: (external edit)