cdc:nos2.source:opl.opl871:deck:kronref
Deck KRONREF
6 Modifications
Listing Sections
- Deck KRONREF Start
- Deck KRONREF Part 1 (Line 1899)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.kronref +++| IDENT KRONREF,FETS,KRONREF 00002 M01S00002.kronref +++| ABS 00003 M01S00003.kronref +++| ENTRY KRONREF 00004 M01S00004.kronref +++| ENTRY MFL= 00005 M01S00005.kronref +++| SYSCOM B1 DEFINE (B1) = 1 00006 M01S00006.kronref +++|*COMMENT KRONREF - SYSTEM CROSS REFERENCE PROGRAM.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.kronref +++| TITLE KRONREF - KRONOS SYSTEM CROSS REFERENCE PROCESSOR. 00010 M01S00009.kronref +++| SPACE 4 00011 M01S00010.kronref +++|***** *KRONREF* - KRONOS SYSTEM CROSS REFERENCE PROCESSOR. 00012 M01S00011.kronref +++|* G. R. MANSFIELD. 70/10/26. 00013 M01S00012.kronref +++|* A. D. FORET. 75/04/18. 00014 M01S00013.kronref +++| SPACE 4 00015 M01S00014.kronref +++|*** *KRONREF* GENERATES A CROSS REFERENCE OF SYSTEM 00016 M01S00015.kronref +++|* SYMBOLS USED BY DECKS ON A MODIFY OPL. 00017 M01S00016.kronref +++| SPACE 4 00018 M01S00017.kronref +++|*** CONTROL CARD CALL. 00019 M01S00018.kronref +++|* 00020 M01S00019.kronref +++|* 00021 M01S00020.kronref +++|* KRONREF(P1,P2,P3) 00022 M01S00021.kronref +++|* PN MAY BE OF THE FOLLOWING FORMS. 00023 M01S00022.kronref +++|* PN 00024 M01S00023.kronref +++|* PN=NAME 00025 M01S00024.kronref +++|* 00026 M01S00025.kronref +++|* OPTIONS. 00027 M01S00026.kronref +++|* 00028 M01S00027.kronref +++|* P OPL INPUT FROM FILE *OPL*. 00029 M01S00028.kronref +++|* P=FNAME OPL INPUT FROM FILE *FNAME*. 00030 M01S00029.kronref +++|* 00031 M01S00030.kronref +++|* L LIST OUTPUT ON FILE *OUTPUT*. 00032 M01S00031.kronref +++|* L=FNAME LIST OUTPUT ON FILE *FNAME*. 00033 M01S00032.kronref +++|*
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00034 M02S00033.ns22000 ---|* S SYSTEMS TEXT FROM OVERLAY *SYSTEXT*. 00035 M01S00001.ns22000 +++|* S SYSTEMS TEXT FROM OVERLAY *NOSTEXT*. 00036 M01S00034.kronref +++|* S=NAME SYSTEMS TEXT FROM OVERLAY *NAME*. 00037 M01S00035.kronref +++|* 00038 M01S00036.kronref +++|* G SYSTEMS TEXT FROM FILE *TEXT*. 00039 M01S00037.kronref +++|* G=FNAME SYSTEMS TEXT FROM FILE *FNAME*. 00040 M01S00038.kronref +++|* OVERRIDES ANY *S* SELECTION. 00041 M01S00039.kronref +++| SPACE 4 00042 M01S00040.kronref +++|*** DAYFILE MESSAGES. 00043 M01S00041.kronref +++|* 00044 M01S00042.kronref +++|* * ERROR IN KRONREF ARGUMENTS. * - AN ILLEGAL CONTROL CARD 00045 M01S00043.kronref +++|* WAS SELECTED. 00046 M01S00044.kronref +++|* 00047 M01S00045.kronref +++|* * ERROR IN SYSTEM TEXT. * - DESIGNATED SYSTEM TEXT IS IN THE 00048 M01S00046.kronref +++|* WRONG FORMAT. 00049 M01S00047.kronref +++|*
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00050 M02S00048.ns22000 ---|* * KRONOS REFERENCE COMPLETE. * - NORMAL COMPLETION MESSAGE. 00051 M01S00002.ns22000 +++|* * KRONREF COMPLETE.* - NORMAL COMPLETION MESSAGE. 00052 M01S00049.kronref +++|* 00053 M01S00050.kronref +++|* * MEMORY OVERFLOW. * - NOT ENOUGH STORAGE AVAILABLE TO STORE 00054 M01S00051.kronref +++|* TABLES. 00055 M01S00052.kronref +++|*
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00056 M02S00053.ns22000 ---|* * NO SYSTEM TEXT FOUND. * - NO SYSTEM TEXT IS AVAILABLE BY
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00057 M02S00054.ns22000 ---|* THE NAME GIVEN.
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00058 M02S00055.ns22000 ---|*
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00059 M02S00056.ns22000 ---|* * PL ERROR IN DECK. * - PL IS IMPROPERLY FORMATED.
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00060 M02S00057.ns22000 ---|*
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00061 M02S00058.ns22000 ---|* * PROGRAM LIBRARY NOT AVAILABLE. * - P=0 WAS DESIGNATE WHICH
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00062 M02S00059.ns22000 ---|* IS ILLEGAL.
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00063 M02S00060.ns22000 ---| SPACE 4 00064 M01S00003.ns22000 +++|* * NO REFERENCES LISTED.* - OPL FILE DID NOT REFERENCE ANY 00065 M01S00004.ns22000 +++|* SYSTEM TEXT SYMBOLS. CHECK FOR 00066 M01S00005.ns22000 +++|* EMPTY OR INVALID OPL FILE OR BAD 00067 M01S00006.ns22000 +++|* SYSTEM TEXT. 00068 M01S00007.ns22000 +++|* 00069 M01S00008.ns22000 +++|* * PL ERROR IN DECK (NAME). * - BAD OPL/OPLC DECK. 00070 M01S00009.ns22000 +++| SPACE 4,10 00071 M01S00061.kronref +++|*** OPERATOR MESSAGES. 00072 M01S00062.kronref +++|* 00073 M01S00063.kronref +++|* * SCANNING DECKNAME * - WHERE DECKNAME IS CURRENTLY BEING 00074 M01S00064.kronref +++|* PROCESSED. 00075 M01S00065.kronref +++| SPACE 4 00076 M01S00066.kronref +++|**** ASSEMBLY CONSTANTS. 00077 M01S00067.kronref +++| 00078 M01S00068.kronref +++| 00079 M01S00069.kronref +++| BUFL EQU 100B SCRATCH BUFFER LENGTH 00080 M01S00070.kronref +++| PBUFL EQU 4001B OPL FILE BUFFER LENGTH 00081 M01S00071.kronref +++| MXCCL EQU 37B MAXIMUM LENGTH OF ONE COMPRESSED CARD 00082 M01S00072.kronref +++| MTBSL EQU 26000B NOMINAL TABLE LENGTH 00083 M01S00001.kronr1 +++| MINC EQU 1000B MEMORY INCREMENT FOR *TOV* 00084 M01S00010.ns22000 +++| LCFE EQU 99999 LINE COUNT TO FORCE EJECT 00085 M01S00073.kronref +++|**** 00086 M01S00074.kronref +++| TITLE MACRO DEFINITIONS. 00087 M01S00075.kronref +++| ADDWRD SPACE 4 00088 M01S00011.ns22000 +++|** COMMON DECKS. 00089 M01S00012.ns22000 +++| 00090 M01S00013.ns22000 +++| 00091 M01S00076.kronref +++|*CALL COMCMAC 00092 M01S00077.kronref +++|*CALL COMCCMD 00093 M01S00078.kronref +++| SPACE 4 00094 M01S00079.kronref +++|** ADDWRD - ADD WORD TO MANAGED TABLE. 00095 M01S00080.kronref +++|* 00096 M01S00081.kronref +++|* ADDWRD TNAM,WORD 00097 M01S00082.kronref +++|* 00098 M01S00083.kronref +++|* ENTRY *TNAM* = TABLE NAME. 00099 M01S00084.kronref +++|* *WORD* = -X- REGISTER CONTAINING WORD. 00100 M01S00085.kronref +++|* *WORD* = BOOLEAN -X- REGISTER EXPRESSION. 00101 M01S00086.kronref +++|* 00102 M01S00087.kronref +++|* USES A0, X1. 00103 M01S00088.kronref +++|* 00104 M01S00089.kronref +++|* CALLS ADW. 00105 M01S00090.kronref +++| 00106 M01S00091.kronref +++| 00107 M01S00092.kronref +++| PURGMAC ADDWRD 00108 M01S00093.kronref +++| ADDWRD MACRO TNAM,WORD 00109 M01S00094.kronref +++| IFC NE,$X1$WORD$,1 00110 M01S00095.kronref +++| BX1 WORD 00111 M01S00096.kronref +++| R= A0,TNAM 00112 M01S00097.kronref +++| RJ ADW 00113 M01S00098.kronref +++| ADDWRD ENDM 00114 M01S00099.kronref +++| ALLOC SPACE 4,10 00115 M01S00100.kronref +++|** ALLOC - ALLOCATE TABLE SPACE. 00116 M01S00101.kronref +++|* 00117 M01S00102.kronref +++|* ALLOC TNAM,N 00118 M01S00103.kronref +++|* 00119 M01S00104.kronref +++|* ENTRY *TNAM* = TABLE NAME. 00120 M01S00105.kronref +++|* *N* = NUMBER OF WORDS TO ADD. 00121 M01S00106.kronref +++|* 00122 M01S00107.kronref +++|* USES A0, X1. 00123 M01S00108.kronref +++|* 00124 M01S00109.kronref +++|* CALLS ATS. 00125 M01S00110.kronref +++| 00126 M01S00111.kronref +++| 00127 M01S00112.kronref +++| PURGMAC ALLOC 00128 M01S00113.kronref +++| ALLOC MACRO TNAM,N 00129 M01S00114.kronref +++| R= X1,N 00130 M01S00115.kronref +++| R= A0,TNAM 00131 M01S00116.kronref +++| RJ ATS 00132 M01S00117.kronref +++| ALLOC ENDM 00133 M01S00118.kronref +++| OPC SPACE 4,10 00134 M01S00119.kronref +++|** OPC - OPCODE TABLE ENTRY. 00135 M01S00120.kronref +++|* 00136 M01S00121.kronref +++|* OPC OPCODE,ADDRESS 00137 M01S00122.kronref +++|* 00138 M01S00123.kronref +++|* ENTRY *OPCODE* = OPERATION CODE. 00139 M01S00124.kronref +++|* *ADDRESS* = ADDRESS OF PROCESSOR. 00140 M01S00125.kronref +++| 00141 M01S00126.kronref +++| 00142 M01S00127.kronref +++| PURGMAC OPC 00143 M01S00128.kronref +++| OPC MACRO OPCODE,ADDR 00144 M01S00129.kronref +++| VFD 60/0R;A 00145 M01S00130.kronref +++| IFC NE,*ADDR** 00146 M01S00131.kronref +++| VFD 60/ADDR 00147 M01S00132.kronref +++| ELSE 1 00148 M01S00133.kronref +++| CON OPCX 00149 M01S00134.kronref +++| OPC ENDM 00150 M01S00135.kronref +++| TABLE SPACE 4,10 00151 M01S00136.kronref +++|** TABLE - GENERATE MANAGED TABLE POINTERS. 00152 M01S00137.kronref +++|* 00153 M01S00138.kronref +++|* TABLE TNAM 00154 M01S00139.kronref +++|* 00155 M01S00140.kronref +++|* ENTRY *TNAM* = TABLE NAME. 00156 M01S00141.kronref +++|* 00157 M01S00142.kronref +++|* EXIT *F.TNAM* = ADDRESS OF TABLE FWA POINTER. 00158 M01S00143.kronref +++|* *L.TNAM* = ADDRESS OF TABLE LENGTH POINTER. 00159 M01S00144.kronref +++| 00160 M01S00145.kronref +++| 00161 M01S00146.kronref +++| PURGMAC TABLE 00162 M01S00147.kronref +++| MACRO TABLE,TNAM,N 00163 M01S00148.kronref +++| TNAM EQU * 00164 M01S00149.kronref +++| VFD 60/MTBS 00165 M01S00150.kronref +++| F.TNAM EQU FTAB+TNAM 00166 M01S00151.kronref +++| RMT 00167 M01S00152.kronref +++| L.TNAM EQU LTAB+TNAM 00168 M01S00153.kronref +++| ORG L.TNAM 00169 M01S00154.kronref +++| DATA 0 00170 M01S00155.kronref +++| ORG NTAB+TNAM 00171 M01S00156.kronref +++| VFD 60/N 00172 M01S00157.kronref +++| RMT 00173 M01S00158.kronref +++| TABLE ENDM 00174 M01S00159.kronref +++| TITLE FETS AND STORAGE ASSIGNMENTS. 00175 M01S00160.kronref +++| FETS SPACE 4,10 00176 M01S00161.kronref +++|** FETS. 00177 M01S00162.kronref +++| 00178 M01S00163.kronref +++| 00179 M01S00164.kronref +++| ORG 103B 00180 M01S00165.kronref +++| FETS BSS 0 00181 M01S00166.kronref +++| 00182 M01S00167.kronref +++| O BSS 0
| Line S00168 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00183 M02S00168.ns22000 ---| OUTPUT FILEC PBUF,PBUFL 00184 M01S00014.ns22000 +++| OUTPUT FILEC PBUF,PBUFL,(FET=6) 00185 M01S00169.kronref +++| 00186 M01S00170.kronref +++| P BSS 0 00187 M01S00171.kronref +++| OPL RFILEB PBUF,PBUFL,(FET=8),EPR 00188 M01S00172.kronref +++| FTAB SPACE 4,10 00189 M01S00173.kronref +++|** MANAGED TABLES ARE REFERENCED BY THE TABLE NUMBER *TNAM*. 00190 M01S00174.kronref +++|* THE FWA OF A TABLE IS CONTAINED IN *F.TNAM*. 00191 M01S00175.kronref +++|* THE LENGTH OF A TABLE IS CONTAINED IN *L.TNAM*. 00192 M01S00176.kronref +++|* THESE SYMBOLS ARE GENERATED BY THE *TABLE* MACRO. 00193 M01S00177.kronref +++| 00194 M01S00178.kronref +++| 00195 M01S00179.kronref +++| FTAB BSS 0 00196 M01S00180.kronref +++| LOC 0 00197 M01S00181.kronref +++| TNME SPACE 4,10 00198 M01S00182.kronref +++|** TNME - TABLE OF REFERENCED NAMES. 00199 M01S00183.kronref +++|* ENTRY = 1 WORD. 00200 M01S00184.kronref +++|* 00201 M01S00185.kronref +++|*T 12/,48/ *NAME*
Figure
00202 M01S00186.kronref +++|* NAME NAME RIGHT JUSTIFIED 00203 M01S00187.kronref +++| 00204 M01S00188.kronref +++| 00205 M01S00189.kronref +++| TNME TABLE 10 NAMES 00206 M01S00190.kronref +++| TREF SPACE 4,10 00207 M01S00191.kronref +++|** TREF - TABLE OF REFERENCES. 00208 M01S00192.kronref +++|* ENTRY = 1 WORD. 00209 M01S00193.kronref +++|* 00210 M01S00194.kronref +++|*T 42/ *DECK*,18/ IN
Figure
00211 M01S00195.kronref +++|* DECK DECK NAME 00212 M01S00196.kronref +++|* IN INDEX IN *TNME* 00213 M01S00197.kronref +++| 00214 M01S00198.kronref +++| 00215 M01S00199.kronref +++| TREF TABLE 200 00216 M01S00200.kronref +++| 00217 M01S00201.kronref +++|* REMAINDER OF MANAGED TABLE VALUES. 00218 M01S00202.kronref +++| 00219 M01S00203.kronref +++| FTABL BSS 0 00220 M01S00204.kronref +++| LOC *O 00221 M01S00205.kronref +++| 00222 M01S00206.kronref +++| VFD 60/MTBS LWA+1 ALL TABLES 00223 M01S00207.kronref +++| LTAB BSS 0 00224 M01S00208.kronref +++| NTAB EQU LTAB+FTABL 00225 M01S00209.kronref +++| HERE 00226 M01S00210.kronref +++| TITLE STORAGE ASSIGNMENTS. 00227 M01S00211.kronref +++| DATA SPACE 4,10 00228 M01S00212.kronref +++|* COMMON DATA. 00229 M01S00213.kronref +++| 00230 M01S00214.kronref +++| 00231 M01S00215.kronref +++| T1 DATA 0 TEMPORARY STORAGE 00232 M01S00216.kronref +++| T2 DATA 0 00233 M01S00217.kronref +++| FL DATA 0 FIELD LENGTH 00234 M01S00218.kronref +++| SL DATA 0 SYSTEM SYMBOL LENGTH 00235 M01S00219.kronref +++| RF DATA 0 REFERENCE FLAG 00236 M01S00220.kronref +++| PP DATA 0 PP CODE 00237 M01S00221.kronref +++| DN DATA 0 DECK NAME 00238 M01S00222.kronref +++| CH DATA 0 NEXT CHARACTER 00239 M01S00223.kronref +++| CP DATA 0 CHARACTER POINTER 00240 M01S00224.kronref +++| LIST SPACE 4,10 00241 M01S00225.kronref +++|* LIST CONTROLS. 00242 M01S00226.kronref +++| 00243 M01S00227.kronref +++|
| Line S00228 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00244 M02S00228.ns22000 ---| LC CON LINP LINE COUNT 00245 M01S00015.ns22000 +++| LC CON LCFE LINE COUNT 00246 M01S00016.ns22000 +++| LL CON 0 LINE LIMIT 00247 M01S00017.ns22000 +++| PD CON 0 PRINT DENSITY 00248 M01S00229.kronref +++| PN CON 1 PAGE NUMBER 00249 M01S00230.kronref +++| ST CON 0,LSRA ADDRESS OF SUBTITLE LINES 00250 M01S00231.kronref +++| TX CON 0 SYSTEXT PRESENT FLAG 00251 M01S00232.kronref +++| SPACE 4 00252 M01S00233.kronref +++|* PROGRAM LIBRARY STATISTICS. 00253 M01S00234.kronref +++| 00254 M01S00235.kronref +++| 00255 M01S00236.kronref +++| BLANK CON 0 BLANK STATEMENTS 00256 M01S00237.kronref +++| CALL CON 0 *CALL STATEMENTS 00257 M01S00238.kronref +++| CODE CON 0 LINES OF CODE NOT OTHERWISE COUNTED 00258 M01S00239.kronref +++| COMNT CON 0 * TYPE COMMENT STATEMENTS 00259 M01S00240.kronref +++| INACT CON 0 INACTIVE STATEMENTS 00260 M01S00241.kronref +++| BLOCK SPACE 4 00261 M01S00242.kronref +++|* BLOCK STORAGE. 00262 M01S00243.kronref +++| 00263 M01S00244.kronref +++| 00264 M01S00245.kronref +++| USE BUFFERS 00265 M01S00246.kronref +++| 00266 M01S00247.kronref +++|* TITLE LINE. 00267 M01S00248.kronref +++| 00268 M01S00249.kronref +++| TITL DATA 30H1 CROSS REFERENCE OF OPL. 00269 M01S00250.kronref +++| DATA 10H OPL FILE= 00270 M01S00251.kronref +++| PLNM DATA 10H 00271 M01S00252.kronref +++| DATA 10HSYS. TEXT= 00272 M01S00253.kronref +++| TXNM DATA 10H *NONE* 00273 M01S00254.kronref +++| DATA 10H 00274 M01S00255.kronref +++| DATA 10H 00275 M01S00256.kronref +++| DATE DATA 1H 00276 M01S00257.kronref +++| TIME DATA 1H 00277 M01S00258.kronref +++| DATA 4APAGE 00278 M01S00259.kronref +++| PAGE DATA 1H 00279 M01S00260.kronref +++| TITLL EQU *-TITL 00280 M01S00261.kronref +++| 00281 M01S00262.kronref +++| CDTX BSS MXCCL CARD TEXT 00282 M01S00263.kronref +++| USE * 00283 M01S00264.kronref +++| TITLE MAIN PROGRAM. 00284 M01S00265.kronref +++| KRONREF SPACE 4,10 00285 M01S00266.kronref +++|** KRONREF - MAIN PROGRAM. 00286 M01S00267.kronref +++|* 00287 M01S00268.kronref +++|* USES X - 1, 6. 00288 M01S00269.kronref +++|* A - 1, 6. 00289 M01S00270.kronref +++|* B - 1. 00290 M01S00271.kronref +++|* 00291 M01S00272.kronref +++|* CALLS LCL, LNK, LOC, LSR, LSS, OPC, PRS, RMT, SCA. 00292 M01S00273.kronref +++|* 00293 M01S00274.kronref +++|* MACROS ENDRUN, MESSAGE, RECALL, WRITEC, WRITER. 00294 M01S00275.kronref +++| 00295 M01S00276.kronref +++| 00296 M01S00277.kronref +++| KRONREF SB1 1 (B1) = 1 00297 M01S00278.kronref +++| RJ PRS PRESET PROGRAM 00298 M01S00279.kronref +++| RJ LSS LOAD SYSTEMS SYMBOLS 00299 M01S00280.kronref +++| 00300 M01S00281.kronref +++|* BEGIN NEW DECK. 00301 M01S00282.kronref +++| 00302 M01S00283.kronref +++| REF1 RJ RMT READ MODIFIER TABLE 00303 M01S00284.kronref +++| NZ X1,REF4 IF EOR 00304 M01S00285.kronref +++| 00305 M01S00286.kronref +++|* SCAN DECK CARDS. 00306 M01S00287.kronref +++| 00307 M01S00288.kronref +++| REF2 RJ RPF READ CARD 00308 M01S00289.kronref +++| NZ X1,REF1 IF EOR 00309 M01S00290.kronref +++| SA1 CDTX CHECK FIRST CHARACTER 00310 M01S00291.kronref +++| NZ X1,REF3 IF NOT BLANK STATEMENT 00311 M01S00292.kronref +++| SA1 BLANK COUNT BLANK STATEMENT 00312 M01S00293.kronref +++| SX6 B1 00313 M01S00294.kronref +++| IX6 X6+X1 00314 M01S00295.kronref +++| SA6 A1 00315 M01S00296.kronref +++| EQ REF2 LOOP FOR NEXT STATEMENT 00316 M01S00297.kronref +++| 00317 M01S00298.kronref +++| REF3 RJ LOC PROCESS LOCATION FIELD 00318 M01S00299.kronref +++| ZR X6,REF2 IF NO PROCESSING 00319 M01S00300.kronref +++| SA1 TX 00320 M01S00301.kronref +++| ZR X1,REF2 IF NO SYSTEXT 00321 M01S00302.kronref +++| RJ OPC PROCESS OPCODE 00322 M01S00303.kronref +++| NZ X1,REF2 IF NOT INTERESTING 00323 M01S00304.kronref +++| SA2 RF 00324 M01S00305.kronref +++| ZR X2,REF2 IF REFERENCE FLAG OFF 00325 M01S00306.kronref +++| RJ SCA SCAN ADDRESS 00326 M01S00307.kronref +++| EQ REF2 CONTINUE SCAN 00327 M01S00308.kronref +++| 00328 M01S00309.kronref +++|* LIST REFERENCE TABLE. 00329 M01S00310.kronref +++| 00330 M01S00311.kronref +++| REF4 SA1 L.TREF 00331 M01S00312.kronref +++| ZR X1,REF6 IF NO REFERENCES 00332 M01S00313.kronref +++| RJ LNK LINK TABLES 00333 M01S00314.kronref +++| RECALL P 00334 M01S00315.kronref +++| SA1 TX 00335 M01S00316.kronref +++| ZR X1,REF4.1 IF NO SYSTEXT 00336 M01S00317.kronref +++| RJ LSR LIST SYMBOL REFERENCES 00337 M01S00318.kronref +++| REF4.1 RJ LCL LIST SPECIAL CALLS 00338 M01S00319.kronref +++| RJ PLS ISSUE PROGRAM LIBRARY STATISTICS MESSAGES 00339 M01S00320.kronref +++| SA1 PN 00340 M01S00321.kronref +++| LX1 59 00341 M01S00322.kronref +++| NG X1,REF5 IF PAGE COUNT EVEN 00342 M01S00323.kronref +++| WRITEC O,(=2L1 ) 00343 M01S00324.kronref +++| REF5 WRITER O,R
| Line S00325 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00344 M02S00325.ns22000 ---| REF6 MESSAGE (=C* KRONOS REFERENCE COMPLETE.*) 00345 M01S00018.ns22000 +++| MESSAGE (=C* KRONREF COMPLETE.*) 00346 M01S00326.kronref +++| ENDRUN 00347 M01S00019.ns22000 +++| 00348 M01S00020.ns22000 +++| REF6 MESSAGE (=C* NO REFERENCES LISTED.*) 00349 M01S00021.ns22000 +++| ENDRUN 00350 M01S00327.kronref +++| TITLE DECK SCANNING. 00351 M01S00328.kronref +++| LOC SPACE 4,10 00352 M01S00329.kronref +++|** LOC - PROCESS LOCATION FIELD. 00353 M01S00330.kronref +++|* 00354 M01S00331.kronref +++|* EXIT (X6) = NEXT CHARACTER OR 0 IF NO NEXT CHARACTER. 00355 M01S00332.kronref +++|* 00356 M01S00333.kronref +++|* USES X - 1, 2, 5, 6, 7. 00357 M01S00334.kronref +++|* A - 1, 2, 6. 00358 M01S00335.kronref +++|* 00359 M01S00336.kronref +++|* CALLS ASN, ESR, SNC. 00360 M01S00337.kronref +++| 00361 M01S00338.kronref +++| 00362 M01S00339.kronref +++| LOC4 SA1 COMNT COUNT * TYPE COMMENT STATEMENTS 00363 M01S00340.kronref +++| SX6 B1 00364 M01S00341.kronref +++| IX6 X6+X1 00365 M01S00342.kronref +++| SA6 A1+ 00366 M01S00343.kronref +++| SX6 B0+ CLEAR NEXT CHARACTER 00367 M01S00344.kronref +++|* EQ LOCX RETURN 00368 M01S00345.kronref +++| 00369 M01S00346.kronref +++| LOC SUBR ENTRY/EXIT 00370 M01S00347.kronref +++| SX1 B0 SET CHARACTER POINTER 00371 M01S00348.kronref +++| PX6 X1,B0 00372 M01S00349.kronref +++| SA6 CP 00373 M01S00350.kronref +++| RJ SNC SET NEXT CHARACTER 00374 M01S00351.kronref +++| SA2 CDTX 00375 M01S00352.kronref +++| AX2 54 00376 M01S00353.kronref +++| ZR X2,LOC1 IF NO LOCATION FIELD 00377 M01S00354.kronref +++| SX7 X6-1R* 00378 M01S00355.kronref +++| ZR X7,LOC2 IF FIRST CHARACTER = (*) 00379 M01S00356.kronref +++| RJ SNC SET NEXT CHARACTER 00380 M01S00357.kronref +++| RJ ASN ASSEMBLE NAME 00381 M01S00358.kronref +++| LOC1 RJ SNC SET NEXT CHARACTER 00382 M01S00359.kronref +++| SA1 CODE COUNT LINE OF CODE 00383 M01S00360.kronref +++| SX6 B1 00384 M01S00361.kronref +++| IX6 X6+X1 00385 M01S00362.kronref +++| SA6 A1 00386 M01S00363.kronref +++| EQ LOCX RETURN 00387 M01S00364.kronref +++| 00388 M01S00365.kronref +++| LOC2 RJ SNC SET NEXT CHARACTER 00389 M01S00366.kronref +++| RJ ASN ASSEMBLE NAME 00390 M01S00367.kronref +++| SA1 =4RCALL 00391 M01S00368.kronref +++| BX2 X1-X6
| Line S00369 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00392 M02S00369.242l642 ---| SX6 B0
| Line S00370 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00393 M02S00370.242l642 ---| NZ X2,LOC4 IF NOT *CALL
| Line S00371 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00394 M02S00371.242l642 ---| SA1 CALL COUNT *CALL STATEMENT 00395 M01S00001.242l642 +++| ZR X2,LOC2.1 IF CALL FOUND 00396 M01S00002.242l642 +++| SA1 =5RCALLC 00397 M01S00003.242l642 +++| BX2 X1-X6 CHECK CALLC
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2403 |
Seq # *Modification Id* Act ----------------------------+ 00398 M02S00004.ns2403 ---| NZ X2,LOC4 IF NOT *CALLC
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2403 |
Seq # *Modification Id* Act ----------------------------+ 00399 M02S00005.ns2403 ---| LOC2.1 SA1 CALL COUNT AS *CALL 00400 M01S00001.ns2403 +++| ZR X2,LOC2.1 IF *CALLC 00401 M01S00002.ns2403 +++| SA1 =6RIFCALL 00402 M01S00003.ns2403 +++| BX2 X1-X6 CHECK IFCALL 00403 M01S00004.ns2403 +++| ZR X2,LOC2.0 IF *IFCALL 00404 M01S00005.ns2403 +++| SA1 =7RNIFCALL 00405 M01S00006.ns2403 +++| BX2 X1-X6 CHECK IFCALL 00406 M01S00007.ns2403 +++| NZ X2,LOC4 IF NOT *IFCALL 00407 M01S00008.ns2403 +++| LOC2.0 RJ SNC SET NEXT CHARACTER 00408 M01S00009.ns2403 +++| RJ ASN ASSEMBLE NAME 00409 M01S00010.ns2403 +++| LOC2.1 SA1 CALL COUNT *CALL, *CALLC, *IF/NIFCALL 00410 M01S00372.kronref +++| SX6 B1 00411 M01S00373.kronref +++| IX6 X6+X1 00412 M01S00374.kronref +++| SA6 A1 00413 M01S00375.kronref +++| RJ SNC SET NEXT CHARACTER 00414 M01S00376.kronref +++| SX2 X6-1R 00415 M01S00377.kronref +++| NG X2,LOC3 IF NEXT " SEPARATOR 00416 M01S00378.kronref +++| RJ SNC SET NEXT CHARACTER 00417 M01S00379.kronref +++| LOC3 RJ ASN ASSEMBLE NAME 00418 M01S00380.kronref +++| SX5 B0 ENTER COMMON DECK REFERENCE 00419 M01S00381.kronref +++| RJ ESR ENTER SPECIAL REFERENCE 00420 M01S00382.kronref +++| SX6 B0 00421 M01S00383.kronref +++| EQ LOCX RETURN 00422 M01S00384.kronref +++| OPC SPACE 4,10 00423 M01S00385.kronref +++|** OPC - CHECK OP CODE. 00424 M01S00386.kronref +++|* 00425 M01S00387.kronref +++|* ENTRY (CP) = CHARACTER POINTER, 00426 M01S00388.kronref +++|* (X0) = SEPARATOR MASK. 00427 M01S00389.kronref +++|* 00428 M01S00390.kronref +++|* EXIT (X1) = 0 IF ADDRESS FIELD TO BE PROCESSED. 00429 M01S00391.kronref +++|* 00430 M01S00392.kronref +++|* USES X - 1, 2, 6. 00431 M01S00393.kronref +++|* A - 1, 2, 6. 00432 M01S00394.kronref +++|* B - 2. 00433 M01S00395.kronref +++|* 00434 M01S00396.kronref +++|* CALLS ASN. 00435 M01S00397.kronref +++| 00436 M01S00398.kronref +++| 00437 M01S00399.kronref +++| OPC4 SA6 RF 00438 M01S00400.kronref +++| SX1 B1 00439 M01S00401.kronref +++| 00440 M01S00402.kronref +++| OPC SUBR ENTRY/EXIT 00441 M01S00403.kronref +++| RJ ASN ASSEMBLE NAME 00442 M01S00404.kronref +++| SA1 TOPC CHECK OPCODE TABLE 00443 M01S00405.kronref +++| SB2 B1+B1 00444 M01S00406.kronref +++| OPC1 ZR X1,OPCX IF END OF TABLE - RETURN 00445 M01S00407.kronref +++| BX2 X6-X1 00446 M01S00408.kronref +++| SA1 A1+B2 00447 M01S00409.kronref +++| NZ X2,OPC1 LOOP IF NO MATCH FOUND 00448 M01S00410.kronref +++| SA2 A1-B1 EXIT TO PROCESSOR 00449 M01S00411.kronref +++| SB2 X2 00450 M01S00412.kronref +++| JP B2 GO TO PROCESSOR 00451 M01S00413.kronref +++| 00452 M01S00414.kronref +++| OPC2 SX6 1 00453 M01S00415.kronref +++| EQ OPC4 SET REFERENCE FLAG 00454 M01S00416.kronref +++| 00455 M01S00417.kronref +++| OPC3 SX6 0 CLEAR REFERENCE FLAG 00456 M01S00418.kronref +++| SA6 PP CLEAR PP CODE 00457 M01S00419.kronref +++| EQ OPC4 SET REFERENCE FLAG 00458 M01S00420.kronref +++| TOPC SPACE 4,10 00459 M01S00421.kronref +++|** TOPC - TABLE OF OPCODES. 00460 M01S00422.kronref +++|* 00461 M01S00423.kronref +++|* ALL THOSE WITHOUT A SECOND ARGUMENT WILL NOT HAVE THE 00462 M01S00424.kronref +++|* ADDRESS FIELD EVALUATED. 00463 M01S00425.kronref +++| 00464 M01S00426.kronref +++| 00465 M01S00427.kronref +++| TOPC BSS 0 00466 M01S00428.kronref +++| OPC IDENT 00467 M01S00429.kronref +++| OPC SST,OPC2 00468 M01S00430.kronref +++| OPC END,OPC3 00469 M01S00431.kronref +++| OPC TITLE 00470 M01S00432.kronref +++| OPC EJECT 00471 M01S00433.kronref +++| OPC SPACE 00472 M01S00434.kronref +++| OPC PERIPH,PERIPH 00473 M01S00435.kronref +++| OPC EXECUTE,EXECUTE 00474 M01S00436.kronref +++| OPC SYSTEM,SYSTEM 00475 M01S00437.kronref +++| OPC ABS 00476 M01S00438.kronref +++| OPC STEXT 00477 M01S00439.kronref +++| OPC BASE 00478 M01S00440.kronref +++| OPC LIST 00479 M01S00441.kronref +++| OPC ENDM 00480 M01S00442.kronref +++| OPC ENDIF 00481 M01S00443.kronref +++| OPC ENDD 00482 M01S00444.kronref +++| OPC ENTRY,ENTRY 00483 M01S00445.kronref +++| OPC DIS 00484 M01S00446.kronref +++| OPC MICRO 00485 M01S00447.kronref +++| OPC IFC 00486 M01S00448.kronref +++| OPC XTEXT 00487 M01S00449.kronref +++| OPC NOLABEL 00488 M01S00450.kronref +++| OPC LIT 00489 M01S00451.kronref +++| OPC ERR 00490 M01S00452.kronref +++| OPC DATA 00491 M01S00453.kronref +++| OPC STEXT 00492 M01S00454.kronref +++| OPC COMMENT 00493 M01S00455.kronref +++| OPC MACRO 00494 M01S00456.kronref +++| OPC OPDEF 00495 M01S00457.kronref +++| OPC USE 00496 M01S00458.kronref +++| DATA 0 00497 M01S00459.kronref +++| TITLE DECK SCANNING. 00498 M01S00460.kronref +++| ENTRY SPACE 4,10 00499 M01S00461.kronref +++|** ENTRY - PROCESS ENTRY FOR SPECIAL ENTRY POINTS. 00500 M01S00462.kronref +++|* 00501 M01S00463.kronref +++|* ENTRY (CP) = CHARACTER POINTER. 00502 M01S00464.kronref +++|* 00503 M01S00465.kronref +++|* EXIT (X1) = 0, IF ADDRESS FIELD TO BE PROCESSED. 00504 M01S00466.kronref +++|* 00505 M01S00467.kronref +++|* USES X - 1, 5. 00506 M01S00468.kronref +++|* A - 1. 00507 M01S00469.kronref +++|* 00508 M01S00470.kronref +++|* CALLS ASN, ESR, SNC. 00509 M01S00471.kronref +++| 00510 M01S00472.kronref +++| 00511 M01S00473.kronref +++| ENTRY BSS 0 ENTRY 00512 M01S00474.kronref +++| SA1 PP 00513 M01S00475.kronref +++| NZ X1,OPCX IF PP CODE 00514 M01S00476.kronref +++| RJ SNC SET NEXT CHARACTER 00515 M01S00477.kronref +++| RJ ASN ASSEMBLE NAME 00516 M01S00478.kronref +++| SA1 ETRA-1 CHECK FOR SPECIAL ENTRY POINTS 00517 M01S00479.kronref +++| ETR1 SA1 A1+B1 00518 M01S00480.kronref +++| ZR X1,OPCX IF END OF TABLE - SET NOT INTERESTING 00519 M01S00481.kronref +++| BX1 X6-X1 00520 M01S00482.kronref +++| NZ X1,ETR1 IF NO MATCH 00521 M01S00483.kronref +++| SX5 B1+B1 00522 M01S00484.kronref +++| RJ ESR ENTER SPECIAL REFERENCE 00523 M01S00485.kronref +++| SX1 B1 00524 M01S00486.kronref +++| EQ OPCX RETURN 00525 M01S00487.kronref +++| 00526 M01S00488.kronref +++|* TABLE OF SPECIAL ENTRY POINTS. 00527 M01S00489.kronref +++| 00528 M01S00490.kronref +++| ETRA BSS 0
| Line S00491 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | kronr2 |
Seq # *Modification Id* Act ----------------------------+ 00529 M02S00491.kronr2 ---| CON 4RARG=
| Line S00492 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | kronr2 |
Seq # *Modification Id* Act ----------------------------+ 00530 M02S00492.kronr2 ---| CON 4RDMP=
| Line S00493 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | kronr2 |
Seq # *Modification Id* Act ----------------------------+ 00531 M02S00493.kronr2 ---| CON 4RMFL=
| Line S00494 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | kronr2 |
Seq # *Modification Id* Act ----------------------------+ 00532 M02S00494.kronr2 ---| CON 4RRFL=
| Line S00495 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | kronr2 |
Seq # *Modification Id* Act ----------------------------+ 00533 M02S00495.kronr2 ---| CON 4RSDM=
| Line S00496 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | kronr2 |
Seq # *Modification Id* Act ----------------------------+ 00534 M02S00496.kronr2 ---| CON 4RSSJ=
| Line S00497 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | kronr2 |
Seq # *Modification Id* Act ----------------------------+ 00535 M02S00497.kronr2 ---| CON 4RSSM=
| Line S00498 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | kronr2 |
Seq # *Modification Id* Act ----------------------------+ 00536 M02S00498.kronr2 ---| CON 4RVAL= 00537 M01S00001.kronr2 +++| CON 4RARG= SUPPRESS ARGUMENT CRACKING 00538 M01S00002.kronr2 +++| CON 4RCLB= COMMAND LINE BUFFER FET 00539 M01S00003.kronr2 +++| CON 4RDMP= DUMP CONTROL 00540 M01S00004.kronr2 +++| CON 4RDPA= *DMP=* PROGRAM WITH ARGUMENTS 00541 M01S00005.kronr2 +++| CON 4RLDR= ALLOW EXECUTE-ONLY READ (LOADER) 00542 M01S00006.kronr2 +++| CON 4RLIB= ALLOW EXECUTE-ONLY READ (OTHER) 00543 M01S00007.kronr2 +++| CON 4RMFL= SET MINIMUM FIELD LENGTH 00544 M01S00008.kronr2 +++| CON 4RNPC= NOS PARAMETER CRACKING FORMAT FLAG 00545 M01S00009.kronr2 +++| CON 4RRFL= SET FIELD LENGTH 00546 M01S00010.kronr2 +++| CON 4RSDM= SUPPRESS DAYFILE MESSAGE 00547 M01S00011.kronr2 +++| CON 4RSSJ= SPECIAL SYSTEM JOB 00548 M01S00012.kronr2 +++| CON 4RSSM= SECURE SYSTEM MEMORY 00549 M01S00013.kronr2 +++| CON 4RUTL= PF UTILITY 00550 M01S00014.kronr2 +++| CON 4RVAL= VALIDATION JOB 00551 M01S00499.kronref +++| CON 0 00552 M01S00500.kronref +++| EXECUTE SPACE 4,10 00553 M01S00501.kronref +++|** EXECUTE - PROCESS EXECUTE MACRO. 00554 M01S00502.kronref +++|* 00555 M01S00503.kronref +++|* ENTRY (CP) = CHARACTER POINTER. 00556 M01S00504.kronref +++|* 00557 M01S00505.kronref +++|* EXIT (X1) = 0, IF ADDRESS FIELD TO BE PROCESSED. 00558 M01S00506.kronref +++|* 00559 M01S00507.kronref +++|* USES X - 1. 00560 M01S00508.kronref +++|* A - 1. 00561 M01S00509.kronref +++|* 00562 M01S00510.kronref +++|* CALLS ASN, ESR, SNC. 00563 M01S00511.kronref +++| 00564 M01S00512.kronref +++| 00565 M01S00513.kronref +++| EXECUTE BSS 0 ENTRY 00566 M01S00514.kronref +++| SA1 PP 00567 M01S00515.kronref +++| ZR X1,OPC IF NOT PP CODE 00568 M01S00516.kronref +++| RJ SNC ASSEMBLE CALLED PACKAGE 00569 M01S00517.kronref +++| RJ ASN ASSEMBLE NAME 00570 M01S00518.kronref +++| SX5 B1 ENTER PP CALL 00571 M01S00519.kronref +++| RJ ESR 00572 M01S00520.kronref +++| SX1 B1 ADDRESS FIELD NOT TO BE PROCESSED 00573 M01S00521.kronref +++| EQ OPCX EXIT 00574 M01S00522.kronref +++| PERIPH SPACE 4,10 00575 M01S00523.kronref +++|** PERIPH - PROCESS PERIPH. 00576 M01S00524.kronref +++|* 00577 M01S00525.kronref +++|* ENTRY (CP) = CHARACTER POINTER. 00578 M01S00526.kronref +++|* 00579 M01S00527.kronref +++|* EXIT (X1) = 0, IF ADDRESS FIELD TO BE PROCESSED. 00580 M01S00528.kronref +++|* 00581 M01S00529.kronref +++|* USES X - 1, 5. 00582 M01S00530.kronref +++|* A - 1. 00583 M01S00531.kronref +++|* 00584 M01S00532.kronref +++|* CALLS ASN, ESR, SNC. 00585 M01S00533.kronref +++| 00586 M01S00534.kronref +++| 00587 M01S00535.kronref +++| PERIPH BSS 0 ENTRY 00588 M01S00536.kronref +++| SX6 B1 SET PP FLAG 00589 M01S00537.kronref +++| SA6 PP 00590 M01S00538.kronref +++| SX5 B1 00591 M01S00539.kronref +++| RJ ENT ENTER PP NAME 00592 M01S00540.kronref +++| EQ OPCX EXIT 00593 M01S00541.kronref +++| SYSTEM SPACE 4,10 00594 M01S00542.kronref +++|** SYSTEM - PROCESS SYSTEM. 00595 M01S00543.kronref +++|* 00596 M01S00544.kronref +++|* ENTRY (CP) = CHARACTER POINTER. 00597 M01S00545.kronref +++|* 00598 M01S00546.kronref +++|* EXIT (X1) = 0, IF ADDRESS FIELD TO BE PROCESSED. 00599 M01S00547.kronref +++|* 00600 M01S00548.kronref +++|* USES X - 1, 5. 00601 M01S00549.kronref +++|* A - 1. 00602 M01S00550.kronref +++|* 00603 M01S00551.kronref +++|* CALLS ASN, ESR, SNC. 00604 M01S00552.kronref +++| 00605 M01S00553.kronref +++| 00606 M01S00554.kronref +++| SYSTEM BSS 0 ENTRY 00607 M01S00555.kronref +++| SA1 PP 00608 M01S00556.kronref +++| NZ X1,OPCX IF PP CODE 00609 M01S00557.kronref +++| RJ SNC SET NEXT CHARACTER 00610 M01S00558.kronref +++| RJ ASN ASSEMBLE NAME 00611 M01S00559.kronref +++| MX5 42 ONLY ENTER 3 CHARACTER NAME 00612 M01S00560.kronref +++| BX5 X5*X6 00613 M01S00561.kronref +++| NZ X5,SYS1 IF MORE THAN 3 CHARACTERS IN NAME 00614 M01S00562.kronref +++| SX5 3 00615 M01S00563.kronref +++| RJ ESR ENTER SPECIAL REFERENCE 00616 M01S00564.kronref +++| SX1 B1 SET INTERESTING FLAG 00617 M01S00565.kronref +++| EQ OPCX RETURN 00618 M01S00566.kronref +++| 00619 M01S00567.kronref +++| SYS1 SX1 B0+ SET NOT INTERESTING FLAG 00620 M01S00568.kronref +++| EQ OPCX RETURN 00621 M01S00569.kronref +++| SCA SPACE 4,10 00622 M01S00570.kronref +++|** SCA - SCAN ADDRESS. 00623 M01S00571.kronref +++|* 00624 M01S00572.kronref +++|* ENTRY (X0) = SEPARATOR MASK. 00625 M01S00573.kronref +++|* 00626 M01S00574.kronref +++|* USES X - 1, 2, 6, 7. 00627 M01S00575.kronref +++|* A - 1, 2, 6. 00628 M01S00576.kronref +++|* B - 2, 3, 4. 00629 M01S00577.kronref +++|* 00630 M01S00578.kronref +++|* CALLS ADW, ASN, SNC. 00631 M01S00579.kronref +++|* 00632 M01S00580.kronref +++|* MACRO ADDWRD. 00633 M01S00581.kronref +++| 00634 M01S00582.kronref +++| 00635 M01S00583.kronref +++| SCA SUBR ENTRY/EXIT 00636 M01S00584.kronref +++| SCA1 RJ SNC SET NEXT CHARACTER 00637 M01S00585.kronref +++| SCA2 SB2 X6-1R 00638 M01S00586.kronref +++| ZR B2,SCAX IF END OF FIELD - RETURN 00639 M01S00587.kronref +++| SB3 X6 00640 M01S00588.kronref +++| LX7 X0,B3 00641 M01S00589.kronref +++| NG X7,SCA1 SKIP SEPARATOR 00642 M01S00590.kronref +++| SB2 X6-1R0 00643 M01S00591.kronref +++| NG B2,SCA4 IF ALPHA 00644 M01S00592.kronref +++| SB3 X6-1R+ 00645 M01S00593.kronref +++| NG B3,SCA3 IF NUMERIC 00646 M01S00594.kronref +++| SB2 X6-1R$ 00647 M01S00595.kronref +++| ZR B2,SCA IF *$* - RETURN 00648 M01S00596.kronref +++| EQ B2,B1,SCAX IF *$* - RETURN 00649 M01S00597.kronref +++| EQ SCA4 OTHER THAN *$* 00650 M01S00598.kronref +++| 00651 M01S00599.kronref +++| SCA3 RJ SNC NEXT CHARACTER 00652 M01S00600.kronref +++| SB3 X6 00653 M01S00601.kronref +++| LX7 X0,B3 00654 M01S00602.kronref +++| PL X7,SCA3 IF END OF ELEMENT 00655 M01S00603.kronref +++| EQ SCA2 PROCESS CHARACTER 00656 M01S00604.kronref +++| 00657 M01S00605.kronref +++| SCA4 RJ ASN ASSEMBLE NAME 00658 M01S00606.kronref +++| SA1 SL 00659 M01S00607.kronref +++| SA2 F.TNME 00660 M01S00608.kronref +++| SB2 B1+B1 00661 M01S00609.kronref +++| SB3 X1 00662 M01S00610.kronref +++| SA1 X2 00663 M01S00611.kronref +++| SB4 X2 00664 M01S00612.kronref +++| SCA5 BX7 X1-X6 00665 M01S00613.kronref +++| SB3 B3-B2 00666 M01S00614.kronref +++| ZR X7,SCA6 IF FOUND 00667 M01S00615.kronref +++| SA1 A1+B2 00668 M01S00616.kronref +++| NZ B3,SCA5 LOOP TO END OF TABLE 00669 M01S00617.kronref +++| SA1 CH 00670 M01S00618.kronref +++| BX6 X1 00671 M01S00619.kronref +++| EQ SCA2 PROCESS CHARACTER 00672 M01S00620.kronref +++| 00673 M01S00621.kronref +++| SCA6 MX4 1 SET REFERENCE FLAG 00674 M01S00622.kronref +++| SA2 DN 00675 M01S00623.kronref +++| BX6 X1+X4 00676 M01S00624.kronref +++| SX3 A1-B4 00677 M01S00625.kronref +++| SA6 A1 00678 M01S00626.kronref +++| ADDWRD TREF,X2+X3 ENTER REFERENCE 00679 M01S00627.kronref +++| SA1 CH 00680 M01S00628.kronref +++| BX6 X1 00681 M01S00629.kronref +++| EQ SCA2 PROCESS CHARACTER 00682 M01S00630.kronref +++| TITLE LIST PROCESSORS. 00683 M01S00631.kronref +++| LCL SPACE 4,10 00684 M01S00632.kronref +++|** LCL - LIST SPECIAL CALLS. 00685 M01S00633.kronref +++|* 00686 M01S00634.kronref +++|* USES X - ALL. 00687 M01S00635.kronref +++|* A - ALL. 00688 M01S00636.kronref +++|* 00689 M01S00637.kronref +++|* CALLS LRC, SFN, SSR. 00690 M01S00638.kronref +++| 00691 M01S00639.kronref +++| 00692 M01S00640.kronref +++| LCL SUBR ENTRY/EXIT 00693 M01S00641.kronref +++| SA1 TX 00694 M01S00642.kronref +++| NZ X1,LCL0 IF SYSTEXT PRESENT 00695 M01S00643.kronref +++| MX6 0 ZERO TITLES 00696 M01S00644.kronref +++| SA6 LCLD 00697 M01S00645.kronref +++| SA6 A6+B1 00698 M01S00646.kronref +++| LCL0 SA1 =1H 00699 M01S00647.kronref +++| SA1 =1H 00700 M01S00648.kronref +++| SX6 LCLA SET SUBTITLE 00701 M01S00649.kronref +++| BX7 X1 00702 M01S00650.kronref +++| SA6 ST+1 00703 M01S00651.kronref +++| SA7 BUF+1 00704 M01S00652.kronref +++| RJ SSR SORT SPECIAL REFERENCES 00705 M01S00653.kronref +++| LCL1 SA1 LCLC ADVANCE POINTER 00706 M01S00654.kronref +++| SX6 X1+2 00707 M01S00655.kronref +++| SA2 X6 00708 M01S00656.kronref +++| SA6 A1 00709 M01S00657.kronref +++| ZR X2,LCLX IF END OF TABLE - RETURN 00710 M01S00658.kronref +++| SA4 A2+B1 TYPE CODE 00711 M01S00659.kronref +++| SX6 X2 SET SUBTITLE
| Line S00660 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00712 M02S00660.ns22000 ---| SX7 LINP FORCE EJECT 00713 M01S00022.ns22000 +++| SX7 LCFE FORCE EJECT 00714 M01S00661.kronref +++| SA6 ST 00715 M01S00662.kronref +++| SA7 LC 00716 M01S00663.kronref +++| SA1 F.TNME (X1) = FWA 00717 M01S00664.kronref +++| SA2 SL (X2) = LENGTH 00718 M01S00665.kronref +++| IX1 X1+X2 00719 M01S00666.kronref +++| SA3 L.TNME 00720 M01S00667.kronref +++| IX2 X3-X2 00721 M01S00668.kronref +++| LCL2 ZR X2,LCL1 IF END OF REFERENCE TABLE 00722 M01S00669.kronref +++| SA3 X1+B1 NEXT ENTRY 00723 M01S00670.kronref +++| BX6 X3-X4 00724 M01S00671.kronref +++| ZR X6,LCL4 IF REQUESTED TYPE 00725 M01S00672.kronref +++| LCL3 SX1 X1+2 ADVANCE TABLE 00726 M01S00673.kronref +++| SX2 X2-2 00727 M01S00674.kronref +++| EQ LCL2 LOOP 00728 M01S00675.kronref +++| 00729 M01S00676.kronref +++| LCL4 SX6 X1 SAVE POSITION 00730 M01S00677.kronref +++| SX7 X2 00731 M01S00678.kronref +++| SA6 T1 00732 M01S00679.kronref +++| SA7 A6+B1 00733 M01S00680.kronref +++| MX0 42 SPACE FILL NAME 00734 M01S00681.kronref +++| SA5 A3-B1 00735 M01S00682.kronref +++| BX1 X0*X5 00736 M01S00683.kronref +++| RJ SFN SPACE FILL NAME 00737 M01S00684.kronref +++| LX6 -3*6 00738 M01S00685.kronref +++| SA6 BUF 00739 M01S00686.kronref +++| RJ LRC LIST REFERENCE CHAIN 00740 M01S00687.kronref +++| SA1 T1 RESET POSITION 00741 M01S00688.kronref +++| SA2 A1+B1 00742 M01S00689.kronref +++| SA3 LCLC RESET TYPE 00743 M01S00690.kronref +++| SA4 X3+B1 00744 M01S00691.kronref +++| EQ LCL3 LOOP 00745 M01S00692.kronref +++| 00746 M01S00693.kronref +++| LCLA DATA 10H DECK 00747 M01S00694.kronref +++| DATA 10H 00748 M01S00695.kronref +++| DATA C*DECK REFERENCES.* 00749 M01S00696.kronref +++| 00750 M01S00697.kronref +++| LCLB BSS 0 00751 M01S00698.kronref +++| CON =C* COMMON DECK CALLS.* 00752 M01S00699.kronref +++| CON 0 00753 M01S00700.kronref +++| 00754 M01S00701.kronref +++| LCLD BSS 0 00755 M01S00702.kronref +++| CON =C* PP PACKAGES CALLED.* 00756 M01S00703.kronref +++| CON 1 00757 M01S00704.kronref +++| 00758 M01S00705.kronref +++| CON =C* SPECIAL ENTRY POINTS.* 00759 M01S00706.kronref +++| CON 2 00760 M01S00707.kronref +++| 00761 M01S00708.kronref +++| CON =C* SYSTEM MACRO REQUEST REFERENCES.* 00762 M01S00709.kronref +++| CON 3 00763 M01S00710.kronref +++| 00764 M01S00711.kronref +++| CON 0 00765 M01S00712.kronref +++| 00766 M01S00713.kronref +++| LCLC CON LCLB-2 00767 M01S00714.kronref +++| LNK SPACE 4,10 00768 M01S00715.kronref +++|** LNK - LINK TABLES. 00769 M01S00716.kronref +++|* 00770 M01S00717.kronref +++|* USES X - ALL. 00771 M01S00718.kronref +++|* A - 1, 2, 3, 6, 7. 00772 M01S00719.kronref +++|* B - 2, 3, 4. 00773 M01S00720.kronref +++| 00774 M01S00721.kronref +++| 00775 M01S00722.kronref +++| LNK SUBR ENTRY/EXIT 00776 M01S00723.kronref +++| SA1 L.TNME LEFT JUSTIFY NAMES 00777 M01S00724.kronref +++| SA2 F.TNME 00778 M01S00725.kronref +++| MX0 6 00779 M01S00726.kronref +++| SB2 B1+B1 00780 M01S00727.kronref +++| SB3 X1 00781 M01S00728.kronref +++| SA1 X2 00782 M01S00729.kronref +++| LNK1 LX1 6 00783 M01S00730.kronref +++| BX2 X0*X1 00784 M01S00731.kronref +++| ZR X2,LNK1 IF CHARACTER NOT LEFT JUSTIFIED 00785 M01S00732.kronref +++| BX6 X1 00786 M01S00733.kronref +++| SA6 A1 00787 M01S00734.kronref +++| SB3 B3-B2 00788 M01S00735.kronref +++| SA1 A1+B2 00789 M01S00736.kronref +++| NZ B3,LNK1 IF NOT THE LAST NAME 00790 M01S00737.kronref +++| SA1 L.TREF LINK REFERENCES 00791 M01S00738.kronref +++| SA2 F.TREF 00792 M01S00739.kronref +++| MX0 42 00793 M01S00740.kronref +++| SB2 X1 00794 M01S00741.kronref +++| SA3 F.TNME 00795 M01S00742.kronref +++| SB2 B2-B1 00796 M01S00743.kronref +++| SA2 X2+B2 00797 M01S00744.kronref +++| SB4 X3 00798 M01S00745.kronref +++| BX5 X0*X2 00799 M01S00746.kronref +++| LNK2 SA1 B4+X2 00800 M01S00747.kronref +++| SX3 A2 00801 M01S00748.kronref +++| BX4 X0*X1 00802 M01S00749.kronref +++| SB2 B2-B1 00803 M01S00750.kronref +++| SA2 A2-B1 00804 M01S00751.kronref +++| BX7 -X0*X1 00805 M01S00752.kronref +++| IX6 X4+X3 00806 M01S00753.kronref +++| BX7 X5+X7 00807 M01S00754.kronref +++| SA6 A1 00808 M01S00755.kronref +++| SA7 A2+B1 00809 M01S00756.kronref +++| BX5 X0*X2 00810 M01S00757.kronref +++| PL B2,LNK2 IF MORE REFERENCES 00811 M01S00758.kronref +++| EQ LNKX RETURN 00812 M01S00759.kronref +++| LRC SPACE 4,10 00813 M01S00760.kronref +++|** LRC - LIST REFERENCE CHAIN. 00814 M01S00761.kronref +++|* 00815 M01S00762.kronref +++|* ENTRY (X5) = FIRST CHAIN ENTRY. 00816 M01S00763.kronref +++|* 00817 M01S00764.kronref +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 00818 M01S00765.kronref +++|* A - 1, 2, 3, 6, 7. 00819 M01S00766.kronref +++|* B - 2, 6. 00820 M01S00767.kronref +++|* 00821 M01S00768.kronref +++|* CALLS SFN, WOF. 00822 M01S00769.kronref +++| 00823 M01S00770.kronref +++| 00824 M01S00771.kronref +++| LRC6 MX6 0 00825 M01S00772.kronref +++| SA6 A6+B1 00826 M01S00773.kronref +++| SX1 BUF 00827 M01S00774.kronref +++| RJ WOF WRITE LINE TO OUTPUT 00828 M01S00775.kronref +++| 00829 M01S00776.kronref +++| LRC SUBR ENTRY/EXIT 00830 M01S00777.kronref +++| SA1 LC CHECK LINE COUNT
| Line S00778 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00831 M02S00778.ns22000 ---| SX6 X1+3
| Line S00779 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00832 M02S00779.ns22000 ---| SB2 X6-LINP
| Line S00780 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00833 M02S00780.ns22000 ---| PL B2,LRC2 IF NOT ROOM FOR FIRST LINE 00834 M01S00023.ns22000 +++| SA2 LL GET LINE LIMIT 00835 M01S00024.ns22000 +++| SX6 X1+B1 00836 M01S00025.ns22000 +++| IX2 X6-X2 00837 M01S00026.ns22000 +++| PL X2,LRC2 IF NOT ROOM FOR FIRST LINE 00838 M01S00781.kronref +++| SA3 BUF+1 COMPARE CURRENT VALUE WITH LAST 00839 M01S00782.kronref +++| SA2 =10H 00840 M01S00783.kronref +++| BX7 X2-X3 00841 M01S00784.kronref +++| ZR X7,LRC1 IF NO VALUE 00842 M01S00785.kronref +++| SA2 LRCB 00843 M01S00786.kronref +++| BX7 X3 00844 M01S00787.kronref +++| SA7 A2 00845 M01S00788.kronref +++| BX2 X3-X2 00846 M01S00789.kronref +++| BX6 X1 RESTORE *LC* 00847 M01S00790.kronref +++| ZR X2,LRC2 IF NO VALUE CHANGE 00848 M01S00791.kronref +++| LRC1 SX1 =C* * 00849 M01S00792.kronref +++| RJ WOF WRITE LINE TO OUTPUT 00850 M01S00793.kronref +++| SA1 LC 00851 M01S00794.kronref +++| BX6 X1 00852 M01S00795.kronref +++| LRC2 SA6 A1 00853 M01S00796.kronref +++| SX5 X5 00854 M01S00797.kronref +++| NZ X5,LRC3 IF ANY REFERENCES 00855 M01S00798.kronref +++| SA1 =10H **NONE** 00856 M01S00799.kronref +++| MX6 0 00857 M01S00800.kronref +++| BX7 X1 00858 M01S00801.kronref +++| SA7 BUF+2 00859 M01S00802.kronref +++| SA6 A7+B1 00860 M01S00803.kronref +++| SX1 BUF 00861 M01S00804.kronref +++| RJ WOF WRITE LINE TO OUTPUT 00862 M01S00805.kronref +++| EQ LRCX RETURN 00863 M01S00806.kronref +++| 00864 M01S00807.kronref +++| LRC3 SA1 BUF SAVE FIRST 2 WORDS OF BUFFER 00865 M01S00808.kronref +++| SA2 A1+B1 00866 M01S00809.kronref +++| BX6 X1 00867 M01S00810.kronref +++| LX7 X2 00868 M01S00811.kronref +++| MX0 42 00869 M01S00812.kronref +++| SA6 LRCA 00870 M01S00813.kronref +++| SA7 A6+B1 00871 M01S00814.kronref +++| LRC4 SB6 -11 00872 M01S00815.kronref +++| ZR X5,LRCX IF END OF LIST - RETURN 00873 M01S00816.kronref +++| LRC5 ZR X5,LRC6 IF END OF LIST 00874 M01S00817.kronref +++| SA2 X5 NEXT ENTRY 00875 M01S00818.kronref +++| BX1 X0*X2 SPACE FILL NAME 00876 M01S00819.kronref +++| SX5 X2 SET NEXT ADDRESS 00877 M01S00820.kronref +++| RJ SFN SPACE FILL NAME 00878 M01S00821.kronref +++| LX6 60-6 00879 M01S00822.kronref +++| SA6 BUF+13+B6 00880 M01S00823.kronref +++| SB6 B6+B1 00881 M01S00824.kronref +++| NG B6,LRC5 IF NOT END OF LINE 00882 M01S00825.kronref +++| MX6 0 00883 M01S00826.kronref +++| SA6 A6+B1 00884 M01S00827.kronref +++| SX1 BUF 00885 M01S00828.kronref +++| RJ WOF WRITE LINE TO OUTPUT
| Line S00829 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00886 M02S00829.ns22000 ---| SA2 LC CHECK LINE COUNT 00887 M01S00830.kronref +++| SA1 =1H CLEAR BUFFER 00888 M01S00831.kronref +++| BX6 X1 00889 M01S00832.kronref +++| LX7 X1 00890 M01S00833.kronref +++| SA6 BUF 00891 M01S00834.kronref +++| SA7 A6+B1 00892 M01S00835.kronref +++| EQ LRC4 LOOP 00893 M01S00836.kronref +++| 00894 M01S00837.kronref +++| LRCA DATA 0,0 00895 M01S00838.kronref +++| LRCB DATA 0 LAST VALUE 00896 M01S00839.kronref +++| LSR SPACE 4,10 00897 M01S00840.kronref +++|** LSR - LIST SYSTEM SYMBOL REFERENCES. 00898 M01S00841.kronref +++|* 00899 M01S00842.kronref +++|* USES X - ALL. 00900 M01S00843.kronref +++|* A - 1, 2, 3, 4, 5, 6, 7. 00901 M01S00844.kronref +++|* 00902 M01S00845.kronref +++|* CALLS COD, LRC, SFN, WOF. 00903 M01S00846.kronref +++| 00904 M01S00847.kronref +++| 00905 M01S00848.kronref +++| LSR SUBR ENTRY/EXIT 00906 M01S00849.kronref +++| SX3 B1+ SET NOT END OF REFERENCES 00907 M01S00850.kronref +++| LSR1 SA1 LSRC ADVANCE SYMBOL CHECK 00908 M01S00851.kronref +++| SX6 X1+3 00909 M01S00852.kronref +++| SA2 X6 SUBTITLE LINE ADDRESS 00910 M01S00853.kronref +++| SA6 A1 00911 M01S00854.kronref +++| ZR X3,LSRX IF END OF SYMBOL LIST 00912 M01S00855.kronref +++| ZR X2,LSR2 IF NO SUBTITLE 00913 M01S00856.kronref +++| SX7 X2 SET SUBTITLE
| Line S00857 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00914 M02S00857.ns22000 ---| SX6 LINP FORCE EJECT 00915 M01S00027.ns22000 +++| SX6 LCFE FORCE EJECT 00916 M01S00858.kronref +++| SA7 ST 00917 M01S00859.kronref +++| SA6 LC 00918 M01S00860.kronref +++| EQ LSR3 SKIP LINE CHECK 00919 M01S00861.kronref +++| 00920 M01S00862.kronref +++| LSR2 SA1 LC CHECK LINE COUNT
| Line S00863 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00921 M02S00863.ns22000 ---| SX7 X1-LINP+5 00922 M01S00028.ns22000 +++| SA3 LL GET LINE LIMIT 00923 M01S00029.ns22000 +++| SX1 X1+2 00924 M01S00030.ns22000 +++| IX7 X1-X3 00925 M01S00864.kronref +++| PL X7,LSR3 IF NO ROOM FOR LINE 00926 M01S00865.kronref +++| SX1 =C* * LIST BLANK LINE 00927 M01S00866.kronref +++| RJ WOF WRITE LINE TO OUTPUT 00928 M01S00867.kronref +++| LSR3 SA1 LSRC SET MASK 00929 M01S00868.kronref +++| SA3 X1+B1 MASK 00930 M01S00869.kronref +++| SA4 A3+B1 CHARACTER MATCH 00931 M01S00870.kronref +++| SA1 F.TNME (X1) = FWA 00932 M01S00871.kronref +++| SA2 SL (X2) = LENGTH 00933 M01S00872.kronref +++| LSR4 SA5 X1 NEXT ENTRY 00934 M01S00873.kronref +++| BX6 X5*X3 00935 M01S00874.kronref +++| IX7 X6-X4 00936 M01S00875.kronref +++| ZR X7,LSR6 IF MATCH FOUND 00937 M01S00876.kronref +++| SX1 X1+2 ADVANCE TABLE 00938 M01S00877.kronref +++| LSR5 SX2 X2-2 00939 M01S00878.kronref +++| NZ X2,LSR4 IF NOT END OF TABLE 00940 M01S00879.kronref +++| EQ LSR1 PROCESS NEXT SYMBOL TYPE 00941 M01S00880.kronref +++| 00942 M01S00881.kronref +++| LSR6 SX6 X1 SAVE POSITION 00943 M01S00882.kronref +++| SX7 X2 00944 M01S00883.kronref +++| SA6 T1 00945 M01S00884.kronref +++| SA7 A6+B1 00946 M01S00885.kronref +++| MX0 42 SPACE FILL NAME 00947 M01S00886.kronref +++| BX1 X0*X5 00948 M01S00887.kronref +++| RJ SFN 00949 M01S00888.kronref +++| LX6 -3*6 00950 M01S00889.kronref +++| SA6 BUF 00951 M01S00890.kronref +++| SA1 A5+B1 CONVERT VALUE 00952 M01S00891.kronref +++| RJ COD 00953 M01S00892.kronref +++| LX6 3*6 00954 M01S00893.kronref +++| SA6 A6+B1 00955 M01S00894.kronref +++| MX7 -0 CLEAR ENTRY 00956 M01S00895.kronref +++| SA7 A5 00957 M01S00896.kronref +++| RJ LRC LIST REFERENCE CHAIN 00958 M01S00897.kronref +++| SA1 T1 ADVANCE SYMBOL CHAIN 00959 M01S00898.kronref +++| SA2 A1+B1 00960 M01S00899.kronref +++| SX1 X1+2 00961 M01S00900.kronref +++| SA3 LSRC RESET MASK AND CHARACTER 00962 M01S00901.kronref +++| SA3 X3+B1 00963 M01S00902.kronref +++| SA4 A3+B1 00964 M01S00903.kronref +++| EQ LSR5 LOOP TO NEXT REFERENCE 00965 M01S00904.kronref +++| 00966 M01S00905.kronref +++| LSRA DATA 10H SYMBOL 00967 M01S00906.kronref +++| DATA 10H VALUE 00968 M01S00907.kronref +++| DATA C*DECK REFERENCES.* 00969 M01S00908.kronref +++| 00970 M01S00909.kronref +++| LSRB BSS 0 00971 M01S00910.kronref +++| 00972 M01S00911.kronref +++| CON =C* DIRECT LOCATIONS.* 00973 M01S00912.kronref +++| VFD 12/0,30/7777777777B,18/0 00974 M01S00913.kronref +++| CON 0 00975 M01S00914.kronref +++| 00976 M01S00915.kronref +++| CON =C* PP RESIDENT ENTRY POINTS.* 00977 M01S00916.kronref +++| VFD 18/0,24/77777777B,18/0 00978 M01S00917.kronref +++| CON 0 00979 M01S00031.ns22000 +++| 00980 M01S00032.ns22000 +++| CON 0 00981 M01S00033.ns22000 +++| VFD 6/77B,18/0,18/777777B,18/0 00982 M01S00034.ns22000 +++| VFD 6/1L.,54/0 00983 M01S00918.kronref +++| 00984 M01S00919.kronref +++| CON 0 00985 M01S00920.kronref +++| VFD 42/77777777777777B,18/0 00986 M01S00921.kronref +++| CON 0LPPFW 00987 M01S00922.kronref +++| 00988 M01S00923.kronref +++| CON =C* MONITOR FUNCTIONS.* 00989 M01S00924.kronref +++| VFD 18/0,6/77B,36/0 00990 M01S00925.kronref +++| VFD 18/0,6/1RM,36/0 00991 M01S00035.ns22000 +++| 00992 M01S00036.ns22000 +++| CON =C* MASS STORAGE TABLE WORDS.* 00993 M01S00037.ns22000 +++| VFD 12/0,18/777777B,30/0 00994 M01S00038.ns22000 +++| VFD 12/0,18/2LGL,30/0 00995 M01S00039.ns22000 +++| 00996 M01S00040.ns22000 +++| CON 0 00997 M01S00041.ns22000 +++| VFD 12/0,18/777777B,30/0 00998 M01S00042.ns22000 +++| VFD 12/0,18/2LLL,30/0 00999 M01S00043.ns22000 +++| 01000 M01S00044.ns22000 +++| CON =C* GLOBAL/LOCAL FNT WORDS, ORDINALS.* 01001 M01S00045.ns22000 +++| VFD 12/0,18/777777B,30/0 01002 M01S00046.ns22000 +++| VFD 12/0,18/2LTG,30/0 01003 M01S00047.ns22000 +++| 01004 M01S00048.ns22000 +++| CON 0 01005 M01S00049.ns22000 +++| VFD 12/0,18/777777B,30/0 01006 M01S00050.ns22000 +++| VFD 12/0,18/2LTL,30/0 01007 M01S00051.ns22000 +++| 01008 M01S00052.ns22000 +++| CON 0 01009 M01S00053.ns22000 +++| VFD 12/0,18/777777B,30/0 01010 M01S00054.ns22000 +++| VFD 12/0,18/2LFO,30/0 01011 M01S00926.kronref +++| 01012 M01S00927.kronref +++| CON =C* CENTRAL MEMORY POINTERS.*
| Line S00928 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01013 M02S00928.ns22000 ---| VFD 18/0,6/77B,36/0 01014 M01S00055.ns22000 +++| VFD 18/0,12/7777B,30/0 01015 M01S00929.kronref +++| VFD 18/0,6/1RP,36/0 01016 M01S00930.kronref +++| 01017 M01S00931.kronref +++| CON =C* CENTRAL MEMORY LOCATIONS.* 01018 M01S00932.kronref +++| VFD 18/0,12/7777B,30/0 01019 M01S00933.kronref +++| VFD 18/0,12/1LL,30/0 01020 M01S00934.kronref +++| 01021 M01S00935.kronref +++| CON 0 01022 M01S00936.kronref +++| VFD 18/0,12/7777B,30/0 01023 M01S00937.kronref +++| VFD 18/0,12/2RLL,30/0 01024 M01S00938.kronref +++| 01025 M01S00939.kronref +++| CON =C* CONTROL POINT AREA WORDS.* 01026 M01S00940.kronref +++| VFD 18/0,12/7777B,30/0 01027 M01S00941.kronref +++| VFD 18/0,12/1LW,30/0 01028 M01S00942.kronref +++| 01029 M01S00943.kronref +++| CON 0 01030 M01S00944.kronref +++| VFD 18/0,12/7777B,30/0 01031 M01S00945.kronref +++| VFD 18/0,12/2RWE,30/0 01032 M01S00946.kronref +++| 01033 M01S00947.kronref +++| CON 0 01034 M01S00948.kronref +++| VFD 18/0,12/7777B,30/0 01035 M01S00949.kronref +++| VFD 18/0,12/2RWL,30/0 01036 M01S00056.ns22000 +++| 01037 M01S00057.ns22000 +++| CON =C* EJT, EST, QFT RELATED.* 01038 M01S00058.ns22000 +++| VFD 18/0,12/7777B,30/0 01039 M01S00059.ns22000 +++| VFD 18/0,12/1LE,30/0 01040 M01S00060.ns22000 +++| 01041 M01S00061.ns22000 +++| CON 0 01042 M01S00062.ns22000 +++| VFD 18/0,12/7777B,30/0 01043 M01S00063.ns22000 +++| VFD 18/0,12/1LQ,30/0 01044 M01S00950.kronref +++|
| Line S00951 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01045 M02S00951.ns22000 ---| CON =C* DAYFILE MESSAGE OPTIONS.* 01046 M01S00064.ns22000 +++| CON =C* NFL SYMBOLS, AND DAYFILE MESSAGE OPTIONS.* 01047 M01S00952.kronref +++| VFD 18/0,6/77B,36/0 01048 M01S00953.kronref +++| VFD 18/0,6/1RN,36/0 01049 M01S00954.kronref +++| 01050 M01S00955.kronref +++| CON =C* FILE TYPES, AND MASS STORAGE CONSTANTS.* 01051 M01S00956.kronref +++| VFD 12/0,12/7777B,36/0 01052 M01S00957.kronref +++| VFD 12/0,12/2RFT,36/0 01053 M01S00958.kronref +++| 01054 M01S00959.kronref +++| CON 0 01055 M01S00960.kronref +++| VFD 12/0,12/7777B,36/0 01056 M01S00961.kronref +++| VFD 12/0,12/2RMS,36/0 01057 M01S00065.ns22000 +++| 01058 M01S00066.ns22000 +++| CON 0 01059 M01S00067.ns22000 +++| VFD 12/0,18/777777B,30/0 01060 M01S00068.ns22000 +++| VFD 12/0,18/2LSF,30/0 01061 M01S00962.kronref +++| 01062 M01S00963.kronref +++| CON 0 01063 M01S00964.kronref +++| VFD 12/0,12/7777B,36/0 01064 M01S00965.kronref +++| VFD 12/0,12/2RSS,36/0 01065 M01S00966.kronref +++| 01066 M01S00967.kronref +++| CON 0 01067 M01S00968.kronref +++| VFD 12/0,12/7777B,36/0 01068 M01S00969.kronref +++| VFD 12/0,12/2RTS,36/0 01069 M01S00970.kronref +++|
| Line S00971 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01070 M02S00971.ns22000 ---|
| Line S00972 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01071 M02S00972.ns22000 ---| CON =C* JOB ORIGIN TYPES, QUEUE TYPES, AND PRIORITIES.* 01072 M01S00069.ns22000 +++| CON =C* ORIGIN TYPES AND QUEUE TYPES.* 01073 M01S00973.kronref +++| VFD 12/0,12/7777B,36/0 01074 M01S00974.kronref +++| VFD 12/0,12/2ROT,36/0 01075 M01S00070.ns22000 +++| 01076 M01S00975.kronref +++| CON 0 01077 M01S00976.kronref +++| VFD 12/0,12/7777B,36/0 01078 M01S00977.kronref +++| VFD 12/0,12/2RQT,36/0
| Line S00978 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01079 M02S00978.ns22000 ---|
| Line S00979 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01080 M02S00979.ns22000 ---| CON 0
| Line S00980 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01081 M02S00980.ns22000 ---| VFD 12/0,12/7777B,36/0
| Line S00981 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01082 M02S00981.ns22000 ---| VFD 12/0,12/2RPS,36/0 01083 M01S00982.kronref +++| 01084 M01S00983.kronref +++| CON =C* ERROR FLAGS.* 01085 M01S00984.kronref +++| VFD 12/0,12/7777B,36/0 01086 M01S00985.kronref +++| VFD 12/0,12/2RET,36/0 01087 M01S00986.kronref +++| 01088 M01S00987.kronref +++| CON =C* MISCELLANEOUS.* 01089 M01S00988.kronref +++| VFD 36/0,6/77B,18/0 01090 M01S00989.kronref +++| CON 0 01091 M01S00990.kronref +++| 01092 M01S00991.kronref +++| CON 0,0 01093 M01S00992.kronref +++| 01094 M01S00993.kronref +++| LSRC CON LSRB-3 01095 M01S00994.kronref +++| TITLE SUBROUTINES. 01096 M01S00995.kronref +++| ABT SPACE 4,10 01097 M01S00996.kronref +++|** ABT - ABORT JOB. 01098 M01S00071.ns22000 +++|* 01099 M01S00997.kronref +++|* ENTRY (A0) = FWA OF MESSAGE. 01100 M01S00998.kronref +++|* 01101 M01S00999.kronref +++|* MACROS ABORT, MESSAGE. 01102 M01S01000.kronref +++| 01103 M01S01001.kronref +++| 01104 M01S01002.kronref +++| ABT MESSAGE A0,,R OUTPUT MESSAGE 01105 M01S01003.kronref +++| ABORT 01106 M01S01004.kronref +++| ADW SPACE 4,10 01107 M01S01005.kronref +++|** ADW - ADD ENTRY TO A TABLE. 01108 M01S01006.kronref +++|* 01109 M01S01007.kronref +++|* ENTRY (A0) = TABLE POINTER ADDRESS. 01110 M01S01008.kronref +++|* (X1) = ENTRY. 01111 M01S01009.kronref +++|* 01112 M01S01010.kronref +++|* EXIT (X6) = ENTRY. 01113 M01S01011.kronref +++|* (A6) = ADDRESS OF ENTRY. 01114 M01S01012.kronref +++|* (X3) = INDEX OF ENTRY. 01115 M01S01013.kronref +++|* 01116 M01S01014.kronref +++|* USES X - 1, 2, 3, 4, 6, 7. 01117 M01S01015.kronref +++|* A - 1, 2, 3, 4, 6, 7. 01118 M01S01016.kronref +++|* B - 2. 01119 M01S01017.kronref +++|* 01120 M01S01018.kronref +++|* CALLS ATS. 01121 M01S01019.kronref +++|* 01122 M01S01020.kronref +++|* MACROS ALLOC. 01123 M01S01021.kronref +++| 01124 M01S01022.kronref +++| 01125 M01S01023.kronref +++| ADW1 BX6 X1 ENTER WORD 01126 M01S01024.kronref +++| SX7 X3+B1 ADVANCE LENGTH 01127 M01S01025.kronref +++| SA6 X2+B2 01128 M01S01026.kronref +++| SA7 A3 01129 M01S01027.kronref +++| 01130 M01S01028.kronref +++| ADW SUBR ENTRY/EXIT 01131 M01S01029.kronref +++| SA2 FTAB+A0 CHECK TABLE ROOM 01132 M01S01030.kronref +++| SA3 LTAB+A0 01133 M01S01031.kronref +++| SA4 A2+B1 01134 M01S01032.kronref +++| IX6 X2+X3 01135 M01S01033.kronref +++| SB2 X3 01136 M01S01034.kronref +++| IX7 X4-X6 01137 M01S01035.kronref +++| NZ X7,ADW1 IF ROOM FOR WORD 01138 M01S01036.kronref +++| SA2 NTAB+A0 ALLOCATE TABLE 01139 M01S01037.kronref +++| BX6 X1 SAVE WORD 01140 M01S01038.kronref +++| SA6 ADWA 01141 M01S01039.kronref +++| ALLOC A0,X2 01142 M01S01040.kronref +++| SA4 NTAB+A0 RESET LAST LENGTH 01143 M01S01041.kronref +++| SA1 ADWA RESTORE WORD 01144 M01S01042.kronref +++| IX3 X3-X4 01145 M01S01043.kronref +++| SB2 X3 01146 M01S01044.kronref +++| EQ ADW1 ENTER WORD 01147 M01S01045.kronref +++| 01148 M01S01046.kronref +++| ADWA DATA 0 01149 M01S01047.kronref +++| ASN SPACE 4,10 01150 M01S01048.kronref +++|** ASN - ASSEMBLE NAME. 01151 M01S01049.kronref +++|* 01152 M01S01050.kronref +++|* ENTRY (CP) = CHARACTER POINTER. 01153 M01S01051.kronref +++|* (X0) = SEPARATOR MASK. 01154 M01S01052.kronref +++|* 01155 M01S01053.kronref +++|* EXIT (X6) = NAME RIGHT JUSTIFIED, ZERO FILLED. 01156 M01S01054.kronref +++|* (X6) = 0 IF FIRST CHARACTER = * *, OR MORE THAN 01157 M01S01055.kronref +++|* 7 CHARACTERS ASSEMBLED. 01158 M01S01056.kronref +++|* 01159 M01S01057.kronref +++|* USES X - 1, 2, 5, 6. 01160 M01S01058.kronref +++|* A - 1. 01161 M01S01059.kronref +++|* B - 2. 01162 M01S01060.kronref +++|* 01163 M01S01061.kronref +++|* CALLS SNC. 01164 M01S01062.kronref +++| 01165 M01S01063.kronref +++| 01166 M01S01064.kronref +++| ASN SUBR ENTRY/EXIT 01167 M01S01065.kronref +++| SA1 CH FIRST CHARACTER 01168 M01S01066.kronref +++| SB2 X1 01169 M01S01067.kronref +++| LX6 X0,B2 01170 M01S01068.kronref +++| MI X6,ASNX IF SEPARATOR - RETURN 01171 M01S01069.kronref +++| SX5 B0 CLEAR ASSEMBLY 01172 M01S01070.kronref +++| BX6 X1 01173 M01S01071.kronref +++| ASN1 LX5 6 SHIFT ASSEMBLY 01174 M01S01072.kronref +++| BX5 X6+X5 MERGE NEW CHARACTER 01175 M01S01073.kronref +++| RJ SNC SET NEXT CHARACTER 01176 M01S01074.kronref +++| SB2 X6 01177 M01S01075.kronref +++| LX2 X0,B2 01178 M01S01076.kronref +++| PL X2,ASN1 IF NOT A SEPARATOR 01179 M01S01077.kronref +++| BX6 X5 01180 M01S01078.kronref +++| EQ ASNX RETURN 01181 M01S01079.kronref +++| ATS SPACE 4,10 01182 M01S01080.kronref +++|** ATS - ALLOCATE TABLE SPACE. 01183 M01S01081.kronref +++|* 01184 M01S01082.kronref +++|* ENTRY (A0) = TABLE NUMBER. 01185 M01S00002.kronr1 +++|* (X1) = NUMBER OF WORDS. 01186 M01S01083.kronref +++|* 01187 M01S01084.kronref +++|* EXIT (X2) = TABLE FWA. 01188 M01S01085.kronref +++|* (X3) = TABLE LENGTH. 01189 M01S01086.kronref +++|* 01190 M01S01087.kronref +++|* USES X - 1, 2, 3, 4, 6, 7. 01191 M01S01088.kronref +++|* A - 1, 2, 3, 4, 6, 7. 01192 M01S01089.kronref +++|* B - 2, 3. 01193 M01S00003.kronr1 +++|* 01194 M01S00004.kronr1 +++|* CALLS TOV. 01195 M01S01090.kronref +++| 01196 M01S01091.kronref +++| 01197 M01S01092.kronref +++| ATS5 SA2 FTAB+A0 SET RESPONSE 01198 M01S01093.kronref +++| SA3 LTAB+A0 01199 M01S01094.kronref +++| 01200 M01S01095.kronref +++| ATS SUBR ENTRY/EXIT 01201 M01S01096.kronref +++| SA2 FTAB+A0 CHECK TABLE SPACE 01202 M01S01097.kronref +++| SA3 LTAB+A0 01203 M01S01098.kronref +++| IX7 X3+X1 ADVANCE LENGTH 01204 M01S01099.kronref +++| SA4 A2+B1 01205 M01S01100.kronref +++| IX6 X2+X7 01206 M01S01101.kronref +++| SA7 A3 01207 M01S01102.kronref +++| IX4 X4-X6 01208 M01S01103.kronref +++| NG X4,ATS1 IF NO ROOM FOR CHANGE 01209 M01S01104.kronref +++| BX3 X7 01210 M01S01105.kronref +++| EQ ATSX RETURN 01211 M01S01106.kronref +++| 01212 M01S01107.kronref +++|* CHECK AVAILABLE STORAGE. 01213 M01S01108.kronref +++| 01214 M01S01109.kronref +++| ATS1 SA2 FTAB+FTABL CHECK STORAGE 01215 M01S01110.kronref +++| SA3 FL 01216 M01S01111.kronref +++| IX6 X2+X1 01217 M01S01112.kronref +++| IX7 X3-X6 01218 M01S01113.kronref +++| NG X7,ATS4 IF NO ROOM FOR INCREASE 01219 M01S01114.kronref +++| SA6 A2 UPDATE LWA+1 OF ALL TABLES 01220 M01S01115.kronref +++| SB2 A0+B1 01221 M01S01116.kronref +++| SB3 FTABL 01222 M01S01117.kronref +++| BX4 X2 01223 M01S01118.kronref +++| EQ B2,B3,ATS5 IF LAST TABLE - RETURN 01224 M01S01119.kronref +++| 01225 M01S01120.kronref +++|* MOVE HIGHER TABLE UP. 01226 M01S01121.kronref +++| 01227 M01S01122.kronref +++| ATS2 SA2 A2-B1 ADVANCE FWA OF HIGHER TABLES 01228 M01S01123.kronref +++| IX6 X2+X1 01229 M01S01124.kronref +++| SA6 A2 01230 M01S01125.kronref +++| SB2 B2+B1 01231 M01S01126.kronref +++| NE B2,B3,ATS2 01232 M01S01127.kronref +++| IX3 X4-X2 (B2) = WORD COUNT 01233 M01S01128.kronref +++| SB3 X1 (B3) = MOVE INCREMENT 01234 M01S01129.kronref +++| ZR X3,ATS5 IF NO MOVE NEEDED 01235 M01S01130.kronref +++| SB2 X3 01236 M01S01131.kronref +++| SA1 X4-1 BEGIN AT LWA 01237 M01S01132.kronref +++| ATS3 BX6 X1 MOVE TABLE UP 01238 M01S01133.kronref +++| SA6 A1+B3 01239 M01S01134.kronref +++| SB2 B2-B1 01240 M01S01135.kronref +++| SA1 A1-B1 01241 M01S01136.kronref +++| NZ B2,ATS3 IF END OF MOVE 01242 M01S01137.kronref +++| EQ ATS5 RETURN 01243 M01S01138.kronref +++|
| Line S01139 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | kronr1 |
Seq # *Modification Id* Act ----------------------------+ 01244 M02S01139.kronr1 ---|* MEMORY OVERFLOW ERROR. 01245 M01S00005.kronr1 +++|* TABLE OVERFLOW. 01246 M01S01140.kronref +++|
| Line S01141 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | kronr1 |
Seq # *Modification Id* Act ----------------------------+ 01247 M02S01141.kronr1 ---| ATS4 SA0 =C* MEMORY OVERFLOW.*
| Line S01142 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | kronr1 |
Seq # *Modification Id* Act ----------------------------+ 01248 M02S01142.kronr1 ---| EQ ABT 01249 M01S00006.kronr1 +++| ATS4 SX6 A0 SAVE (A0) 01250 M01S00007.kronr1 +++| SA6 ATSA 01251 M01S00008.kronr1 +++| BX6 X1 SAVE (X1) 01252 M01S00009.kronr1 +++| SA6 ATSA+1 01253 M01S00010.kronr1 +++| RJ TOV PROCESS TABLE OVERFLOW 01254 M01S00011.kronr1 +++| SA1 ATSA RESTORE (A0) 01255 M01S00012.kronr1 +++| SA0 X1 01256 M01S00013.kronr1 +++| SA1 A1+B1 RESTORE (X1) 01257 M01S00014.kronr1 +++| EQ ATS1 RE-COMPUTE WITH NEW MEMORY 01258 M01S00015.kronr1 +++| 01259 M01S00016.kronr1 +++| 01260 M01S00017.kronr1 +++| ATSA BSSZ 2 (A0) AND (X1) STORAGE 01261 M01S01143.kronref +++| ENT SPACE 4,10 01262 M01S01144.kronref +++|** ENT - ENTER NAME TABLE. 01263 M01S01145.kronref +++|* 01264 M01S01146.kronref +++|* ENTRY (X5) = REFERENCE TYPE. 01265 M01S01147.kronref +++|* 01266 M01S01148.kronref +++|* USES X - 1, 2, 3, 6, 7. 01267 M01S01149.kronref +++|* A - 1, 2. 01268 M01S01150.kronref +++|* B - 2, 3. 01269 M01S01151.kronref +++|* 01270 M01S01152.kronref +++|* CALLS ADW. 01271 M01S01153.kronref +++|* 01272 M01S01154.kronref +++|* MACROS ADDWRD. 01273 M01S01155.kronref +++| 01274 M01S01156.kronref +++| 01275 M01S01157.kronref +++| ENT SUBR ENTRY/EXIT 01276 M01S01158.kronref +++| SA1 DN RIGHT JUSTIFY DECK NAME 01277 M01S01159.kronref +++| MX2 -6 01278 M01S01160.kronref +++| BX6 X1 01279 M01S01161.kronref +++| ENT1 LX6 -6 01280 M01S01162.kronref +++| BX7 -X2*X6 01281 M01S01163.kronref +++| ZR X7,ENT1 IF NOT A CHARACTER 01282 M01S01164.kronref +++| SA1 L.TNME 01283 M01S01165.kronref +++| SA2 F.TNME 01284 M01S01166.kronref +++| SB2 B1+B1 01285 M01S01167.kronref +++| SB3 X1 01286 M01S01168.kronref +++| SA1 X2 01287 M01S01169.kronref +++| MX2 1 01288 M01S01170.kronref +++| ZR B3,ENT3 IF EMPTY TABLE 01289 M01S01171.kronref +++| ENT2 BX3 -X2*X1 SCAN NAME TABLE 01290 M01S01172.kronref +++| IX7 X3-X6 01291 M01S01173.kronref +++| SB3 B3-B2 01292 M01S01174.kronref +++| ZR X7,ENTX IF FOUND - RETURN 01293 M01S01175.kronref +++| SA1 A1+B2 01294 M01S01176.kronref +++| NZ B3,ENT2 IF NOT THE END OF THE TABLE 01295 M01S01177.kronref +++| ENT3 ADDWRD TNME,X6 01296 M01S01178.kronref +++| ADDWRD A0,X5 01297 M01S01179.kronref +++| EQ ENTX RETURN 01298 M01S01180.kronref +++| ESR SPACE 4,10 01299 M01S01181.kronref +++|** ESR - ENTER SPECIAL REFERENCE. 01300 M01S01182.kronref +++|* 01301 M01S01183.kronref +++|* ENTRY (X5) = REFERENCE TYPE. 01302 M01S01184.kronref +++|* (X6) = NAME RIGHT JUSTIFIED. 01303 M01S01185.kronref +++|* 01304 M01S01186.kronref +++|* USES X - 1, 2, 3, 6, 7. 01305 M01S01187.kronref +++|* A - 1, 2, 6. 01306 M01S01188.kronref +++|* B - 2, 3, 4. 01307 M01S01189.kronref +++|* 01308 M01S01190.kronref +++|* CALLS ADW. 01309 M01S01191.kronref +++|* 01310 M01S01192.kronref +++|* MACROS ADDWRD. 01311 M01S01193.kronref +++| 01312 M01S01194.kronref +++| 01313 M01S01195.kronref +++| ESR SUBR ENTRY/EXIT 01314 M01S01196.kronref +++| MX1 6*3 TRUNCATE NAME TO 7 CHARACTERS 01315 M01S01197.kronref +++| BX6 -X1*X6 01316 M01S01198.kronref +++| SA1 L.TNME 01317 M01S01199.kronref +++| SA2 F.TNME 01318 M01S01200.kronref +++| SB2 B1+B1 01319 M01S01201.kronref +++| SB3 X1 01320 M01S01202.kronref +++| SA1 X2 01321 M01S01203.kronref +++| SB4 X2 01322 M01S01204.kronref +++| MX2 1 01323 M01S01205.kronref +++| ZR B3,ESR1.1 IF EMPTY TABLE 01324 M01S01206.kronref +++| ESR1 BX3 -X2*X1 SCAN NAME TABLE 01325 M01S01207.kronref +++| IX7 X3-X6 01326 M01S01208.kronref +++| SB3 B3-B2 01327 M01S01209.kronref +++| ZR X7,ESR2 IF FOUND 01328 M01S01210.kronref +++| SA1 A1+B2 01329 M01S01211.kronref +++| NZ B3,ESR1 IF THE END OF THE TABLE 01330 M01S01212.kronref +++| ESR1.1 ADDWRD TNME,X6 01331 M01S01213.kronref +++| ADDWRD A0,X5 01332 M01S01214.kronref +++| SA1 A6-B1 01333 M01S01215.kronref +++| MX2 1 01334 M01S01216.kronref +++| ESR2 MI X1,ESRX IF SYMBOL REFERENCED - EXIT 01335 M01S01217.kronref +++| BX6 X1+X2 INDICATE REFERENCE 01336 M01S01218.kronref +++| SA6 A1 01337 M01S01219.kronref +++| SX3 A1-B4 01338 M01S01220.kronref +++| SA2 DN 01339 M01S01221.kronref +++| ADDWRD TREF,X2+X3 ENTER REFERENCE 01340 M01S01222.kronref +++| EQ ESRX RETURN 01341 M01S01223.kronref +++| PLE SPACE 4,10 01342 M01S01224.kronref +++|** PLE - PROCESS LIBRARY ERROR. 01343 M01S01225.kronref +++|* 01344 M01S01226.kronref +++|* ISSUE DAYFILE MESSAGE *PL ERROR IN DECK*. 01345 M01S01227.kronref +++|* ABORT JOB. 01346 M01S01228.kronref +++|* 01347 M01S01229.kronref +++|* USES X - 1, 6. 01348 M01S01230.kronref +++|* A - 0, 1, 6. 01349 M01S01231.kronref +++|* 01350 M01S01232.kronref +++|* CALLS ABT. 01351 M01S01233.kronref +++| 01352 M01S01234.kronref +++| 01353 M01S01235.kronref +++| PLE SA1 DN SET DECK NAME IN MESSAGE 01354 M01S01236.kronref +++| BX6 X1 01355 M01S01237.kronref +++| SA6 PLEB 01356 M01S01238.kronref +++| SA0 PLEA 01357 M01S01239.kronref +++| EQ ABT ABORT JOB 01358 M01S01240.kronref +++| 01359 M01S01241.kronref +++| PLEA DATA 20H PL ERROR IN DECK 01360 M01S01242.kronref +++| PLEB DATA 0 01361 M01S01243.kronref +++| PLS SPACE 4,20 01362 M01S01244.kronref +++|** PLS - ISSUE PROGRAM LIBRARY STATISTICS MESSAGES. 01363 M01S01245.kronref +++|* 01364 M01S01246.kronref +++|* ENTRY (BLANK) = ACTIVE BLANK STATEMENTS. 01365 M01S01247.kronref +++|* (CALL) = ACTIVE *CALL STATEMENTS. 01366 M01S01248.kronref +++|* (CODE) = ACTIVE NON-COMMENT, NON-BLANK STATEMENTS. 01367 M01S01249.kronref +++|* (COMNT) = ACTIVE * TYPE COMMENT STATEMENTS. 01368 M01S01250.kronref +++|* (INACT) = INACTIVE STATEMENTS. 01369 M01S01251.kronref +++|* 01370 M01S01252.kronref +++|* EXIT ALL DAYFILE MESSAGES ISSUED. 01371 M01S01253.kronref +++|* 01372 M01S01254.kronref +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 01373 M01S01255.kronref +++|* A - 1, 2, 3, 4, 6. 01374 M01S01256.kronref +++|* 01375 M01S01257.kronref +++|* CALLS CDD, WOF. 01376 M01S01258.kronref +++| 01377 M01S01259.kronref +++| 01378 M01S01260.kronref +++| PLS SUBR ENTRY/EXIT 01379 M01S01261.kronref +++| SA1 BLANK CONVERT NUMBER OF BLANK STATEMENTS 01380 M01S01262.kronref +++| RJ CDD 01381 M01S01263.kronref +++| SA6 PLSB+1 01382 M01S01264.kronref +++| SA1 CALL CONVERT NUMBER OF *CALL STATEMENTS 01383 M01S01265.kronref +++| RJ CDD 01384 M01S01266.kronref +++| SA6 PLSC+1 01385 M01S01267.kronref +++| SA1 CODE CONVERT NUMBER OF LINES OF CODE 01386 M01S01268.kronref +++| RJ CDD 01387 M01S01269.kronref +++| SA6 PLSD+1 01388 M01S01270.kronref +++| SA1 COMNT CONVERT NUMBER OF COMMENT STATEMENTS 01389 M01S01271.kronref +++| RJ CDD 01390 M01S01272.kronref +++| SA6 PLSE+1 01391 M01S01273.kronref +++| SA1 INACT CONVERT NUMBER OF INACTIVE STATEMENTS 01392 M01S01274.kronref +++| RJ CDD 01393 M01S01275.kronref +++| SA6 PLSF+1 01394 M01S01276.kronref +++| SA1 BLANK COMPUTE TOTAL NUMBER OF ACTIVE STATEMENTS 01395 M01S01277.kronref +++| SA2 CALL 01396 M01S01278.kronref +++| SA3 CODE 01397 M01S01279.kronref +++| SA4 COMNT 01398 M01S01280.kronref +++| IX5 X1+X2 01399 M01S01281.kronref +++| IX7 X3+X4 01400 M01S01282.kronref +++| IX1 X5+X7 01401 M01S01283.kronref +++| RJ CDD CONVERT TOTAL ACTIVE STATEMENTS 01402 M01S01284.kronref +++| SA6 PLSG+1
| Line S01285 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01403 M02S01285.ns22000 ---| SX7 LINP FORCE PAGE EJECT 01404 M01S00072.ns22000 +++| SX7 LCFE FORCE EJECT 01405 M01S01286.kronref +++| SX6 PLSA SET SUBTITLE LINE 01406 M01S01287.kronref +++| SA7 LC 01407 M01S01288.kronref +++| SA6 ST 01408 M01S01289.kronref +++| SX7 =C* * SET SUB-SUB TITLE LINE 01409 M01S01290.kronref +++| SX1 PLSB BLANK STATEMENTS 01410 M01S01291.kronref +++| SA7 A6+1 01411 M01S01292.kronref +++| RJ WOF WRITE OUTPUT FILE 01412 M01S01293.kronref +++| SX1 PLSC *CALL STATEMENTS 01413 M01S01294.kronref +++| RJ WOF WRITE OUTPUT FILE 01414 M01S01295.kronref +++| SX1 PLSD LINES OF CODE 01415 M01S01296.kronref +++| RJ WOF WRITE OUTPUT FILE 01416 M01S01297.kronref +++| SX1 PLSE * TYPE COMMENTS 01417 M01S01298.kronref +++| RJ WOF WRITE OUTPUT FILE 01418 M01S01299.kronref +++| SX1 PLSF INACTIVE STATEMENTS 01419 M01S01300.kronref +++| RJ WOF WRITE OUTPUT FILE 01420 M01S01301.kronref +++| SX1 PLSG ACTIVE STATEMENTS 01421 M01S01302.kronref +++| RJ WOF WRITE OUTPUT FILE 01422 M01S01303.kronref +++| EQ PLSX RETURN 01423 M01S01304.kronref +++| 01424 M01S01305.kronref +++| PLSA DATA C/ PROGRAM LIBRARY STATISTICS./ 01425 M01S01306.kronref +++| PLSB DATA 10H0 01426 M01S01307.kronref +++| DATA C/ BLANK STATEMENTS./ 01427 M01S01308.kronref +++| PLSC DATA 10H0 01428 M01S01309.kronref +++| DATA C/ *CALL STATEMENTS./ 01429 M01S01310.kronref +++| PLSD DATA 10H0 01430 M01S01311.kronref +++| DATA C/ LINES OF CODE./ 01431 M01S01312.kronref +++| PLSE DATA 10H0 01432 M01S01313.kronref +++| DATA C/ * TYPE COMMENT STATEMENTS./ 01433 M01S01314.kronref +++| PLSF DATA 10H0 01434 M01S01315.kronref +++| DATA C/ TOTAL INACTIVE STATEMENTS./ 01435 M01S01316.kronref +++| PLSG DATA 10H0 01436 M01S01317.kronref +++| DATA C/ TOTAL ACTIVE STATEMENTS./ 01437 M01S01318.kronref +++| RMT SPACE 4,10 01438 M01S01319.kronref +++|** RMT - READ MODIFIER TABLE. 01439 M01S01320.kronref +++|* 01440 M01S01321.kronref +++|* ENTRY (DN) = DECK NAME. 01441 M01S01322.kronref +++|* (MA) = MODIFICATION TABLE ADDRESS. 01442 M01S01323.kronref +++|* 01443 M01S01324.kronref +++|* EXIT (X0) = TERMINATOR CHARACTOR MASK. 01444 M01S01325.kronref +++|* 01445 M01S01326.kronref +++|* USES X - ALL. 01446 M01S01327.kronref +++|* A - 1, 2, 3, 6. 01447 M01S01328.kronref +++|* B - 2, 3. 01448 M01S01329.kronref +++|* 01449 M01S01330.kronref +++|* CALLS ENT. 01450 M01S01331.kronref +++|* 01451 M01S01332.kronref +++|* MACROS MESSAGE, READ, READW. 01452 M01S01333.kronref +++| 01453 M01S01334.kronref +++| 01454 M01S01335.kronref +++| RMT SUBR ENTRY/EXIT 01455 M01S01336.kronref +++| SA1 L.TNME CLEAR REFERENCE INDICATORS 01456 M01S01337.kronref +++| SA2 F.TNME 01457 M01S01338.kronref +++| MX4 1 01458 M01S01339.kronref +++| SB3 X1 01459 M01S01340.kronref +++| SA1 X2 01460 M01S01341.kronref +++| SB2 B1+B1 01461 M01S01342.kronref +++| ZR B3,RMT2 IF EMPTY TABLE 01462 M01S01343.kronref +++| RMT1 BX6 -X4*X1 01463 M01S01344.kronref +++| SA6 A1 01464 M01S01345.kronref +++| SB3 B3-B2 01465 M01S01346.kronref +++| SA1 A1+B2 01466 M01S01347.kronref +++| NZ B3,RMT1 IF MORE REFERENCES 01467 M01S01348.kronref +++| RMT2 READ P 01468 M01S01349.kronref +++| READW P,BUF,17B READ IDENT TABLE 01469 M01S01350.kronref +++| MI X1,RMTX IF EOF - RETURN 01470 M01S01351.kronref +++| SA1 BUF 01471 M01S01352.kronref +++| LX1 12 01472 M01S01353.kronref +++| SB2 X1-7700B 01473 M01S01354.kronref +++| NZ B2,RMT7 IF NO IDENT TABLE 01474 M01S01355.kronref +++| SA1 BUF+1 SET DECK NAME 01475 M01S01356.kronref +++| BX6 X1 01476 M01S01357.kronref +++| SA6 DN 01477 M01S01358.kronref +++| SA6 RMTA+1 01478 M01S01359.kronref +++| READW P,T1,1 READ MODIFIER TABLE LENGTH 01479 M01S01360.kronref +++| NZ X1,PLE IF EOR 01480 M01S01361.kronref +++| SA1 T1 CHECK TABLE 01481 M01S01362.kronref +++| LX1 18 01482 M01S01363.kronref +++| SX6 B0 01483 M01S01364.kronref +++| SB2 X1-700100B 01484 M01S01365.kronref +++| SB3 X1-700200B 01485 M01S01366.kronref +++| NZ B2,RMT3 IF NOT NORMAL DECK 01486 M01S01367.kronref +++| SA3 =0LCMDFILE CHECK FOR *CMDFILE* - *HELP* TEXT 01487 M01S01368.kronref +++| BX7 X3-X2 01488 M01S01369.kronref +++| ZR X7,RMT7 IF *CMDFILE* SKIP ENTIRE DECK 01489 M01S01370.kronref +++| EQ RMT4 PROCESS NORMAL DECK 01490 M01S01371.kronref +++| 01491 M01S01372.kronref +++|* CHECK FOR A COMMON DECK. 01492 M01S01373.kronref +++| 01493 M01S01374.kronref +++| RMT3 NZ B3,RMT7 IF NOT A COMMON DECK 01494 M01S01375.kronref +++| SX5 B0 ENTER NAME TABLE 01495 M01S01376.kronref +++| RJ ENT 01496 M01S01377.kronref +++| SA1 T1 01497 M01S01378.kronref +++| LX1 18 01498 M01S01379.kronref +++| SX6 B1 SET REFERENCE FLAG 01499 M01S01380.kronref +++| MX4 4*6 01500 M01S01381.kronref +++| SA6 RF 01501 M01S01382.kronref +++| SA6 PP SET PP 01502 M01S01383.kronref +++| SA2 DN GET DECK NAME 01503 M01S01384.kronref +++| SA3 =0LCOMP 01504 M01S01385.kronref +++| BX2 X4*X2 01505 M01S01386.kronref +++| IX7 X2-X3 01506 M01S01387.kronref +++| ZR X7,RMT4 IF -COMPXXX- 01507 M01S01388.kronref +++| SA3 =0LCOMD 01508 M01S01389.kronref +++| IX7 X2-X3 01509 M01S01390.kronref +++| SX6 B0 01510 M01S01391.kronref +++| ZR X7,RMT4 IF -COMDXXX- 01511 M01S01392.kronref +++| SA6 PP 01512 M01S01393.kronref +++| RMT4 LX1 60-18 01513 M01S01394.kronref +++| SX5 X1 01514 M01S01395.kronref +++| ZR X5,RMT6 IF NO MODIFIERS 01515 M01S01396.kronref +++| RMT5 READW P,T1,1 READ OUT MODIFIERS 01516 M01S01397.kronref +++| SX5 X5-1 01517 M01S01398.kronref +++| NZ X5,RMT5 IF NOT THE LAST WORD 01518 M01S01399.kronref +++| RMT6 MESSAGE RMTA,1 01519 M01S01400.kronref +++| SA2 =36060020B MASK FOR BL , + - * / 01520 M01S01401.kronref +++| SX1 B0 RETURN WITH NO EOR 01521 M01S01402.kronref +++| BX0 X2 01522 M01S01403.kronref +++| EQ RMTX RETURN 01523 M01S01404.kronref +++| 01524 M01S01405.kronref +++| RMT7 READW P,BUF,BUFL READ TO EOR 01525 M01S01406.kronref +++| ZR X1,RMT7 IF NOT AN EOR 01526 M01S01407.kronref +++| EQ RMT2 BEGIN NEXT RECORD 01527 M01S01408.kronref +++| 01528 M01S01409.kronref +++| RMTA DATA 10H SCANNING 01529 M01S01410.kronref +++| DATA 0 01530 M01S01411.kronref +++| RPF SPACE 4,10 01531 M01S01412.kronref +++|** RPF - READ CARD FROM PROGRAM LIBRARY. 01532 M01S01413.kronref +++|* 01533 M01S01414.kronref +++|* ENTRY (A0) = ADDRESS OF BUFFER. 01534 M01S01415.kronref +++|* 01535 M01S01416.kronref +++|* EXIT (X1) .NE. 0 IF EOR READ. 01536 M01S01417.kronref +++|* (CDTX) = TEXT OF COMPRESSED CARD. 01537 M01S01418.kronref +++|* 01538 M01S01419.kronref +++|* USES X - 1, 6. 01539 M01S01420.kronref +++|* A - 1, 6. 01540 M01S01421.kronref +++|* 01541 M01S01422.kronref +++|* MACROS READC. 01542 M01S01423.kronref +++| 01543 M01S01424.kronref +++| 01544 M01S01425.kronref +++| RPF SUBR ENTRY/EXIT 01545 M01S01426.kronref +++| RPF1 READC P,BUF,BUFL READ CARD HISTORY 01546 M01S01427.kronref +++| NZ X1,RPF IF EOR - RETURN 01547 M01S01428.kronref +++| READC P,CDTX,MXCCL READ COMPRESSED CARD 01548 M01S01429.kronref +++| NZ X1,RPF IF EOR - RETURN 01549 M01S01430.kronref +++| EQ B6,B7,PLE IF OVERFLOW 01550 M01S01431.kronref +++| SA1 BUF 01551 M01S01432.kronref +++| MI X1,RPF2 IF CARD ACTIVE 01552 M01S01433.kronref +++| SA1 INACT COUNT INACTIVE CARD 01553 M01S01434.kronref +++| SX6 B1 01554 M01S01435.kronref +++| IX6 X6+X1 01555 M01S01436.kronref +++| SA6 A1 01556 M01S01437.kronref +++| EQ RPF1 LOOP FOR NEXT CARD 01557 M01S01438.kronref +++| 01558 M01S01439.kronref +++| RPF2 BX1 X1-X1 SET NOT EOR FLAG 01559 M01S01440.kronref +++| EQ RPFX RETURN 01560 M01S01441.kronref +++| SNC SPACE 4,10 01561 M01S01442.kronref +++|** SNC - SET NEXT CHARACTER. 01562 M01S01443.kronref +++|* 01563 M01S01444.kronref +++|* ENTRY (CP) = CHARACTER POINTER. 01564 M01S01445.kronref +++|* 01565 M01S01446.kronref +++|* EXIT (X6) = (CH) = CHARACTER. 01566 M01S01447.kronref +++|* (CP) UPDATED. 01567 M01S01448.kronref +++|* CHARACTER = * * IF END OF CARD REACHED. 01568 M01S01449.kronref +++|* 01569 M01S01450.kronref +++|* USES X - 1, 2, 3, 4, 6, 7. 01570 M01S01451.kronref +++|* A - 1, 2, 6, 7. 01571 M01S01452.kronref +++|* B - 2, 3, 4, 5. 01572 M01S01453.kronref +++| 01573 M01S01454.kronref +++| 01574 M01S01455.kronref +++| SNC3 SX4 X1+ SET POSITION 01575 M01S01456.kronref +++| MI B4,SNC4 IF NOT SPACE COUNT 01576 M01S01457.kronref +++| SX6 1R SUPPLY * * 01577 M01S01458.kronref +++| EQ SNC6 SPACE FILL 01578 M01S01459.kronref +++| 01579 M01S01460.kronref +++| SNC4 SX7 X6-1R CHECK FOR CURRENT CHARACTER BLANK
| Line S01461 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01580 M02S01461.242l642 ---| NZ X7,SNC6 IF NOT BLANK
| Line S01462 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01581 M02S01462.242l642 ---| SB5 B2+6 ADVANCE TO NEXT CHARACTER 01582 M01S00006.242l642 +++| ZR X7,SNC4.1 IF BLANK 01583 M01S00007.242l642 +++| SX7 X6-76B CHECK ESCAPE CODE 01584 M01S00008.242l642 +++| NZ X7,SNC6 IF NOT ESCAPE CODE 01585 M01S00009.242l642 +++| SNC4.1 SB5 B2+6 01586 M01S01463.kronref +++| NE B5,B3,SNC5 IF NOT AT END OF WORD 01587 M01S01464.kronref +++| SB5 6 RESET POSITION 01588 M01S01465.kronref +++| SX4 X4+B1 ADVANCE TO NEXT WORD 01589 M01S01466.kronref +++| SA2 A2+B1 GET NEXT WORD OF CARD 01590 M01S01467.kronref +++| SNC5 LX7 X2,B5 POSITION CHARACTER 01591 M01S01468.kronref +++| BX7 -X3*X7 CHECK FOR SECOND CONSECUTIVE BLANK
| Line S01469 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01592 M02S01469.242l642 ---| SX7 X7-1R
| Line S01470 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01593 M02S01470.242l642 ---| NZ X7,SNC6 IF NOT A BLANK
| Line S01471 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01594 M02S01471.242l642 ---| SB2 B5 ADVANCE 01595 M01S00010.242l642 +++| SX2 X7-1R 01596 M01S00011.242l642 +++| ZR X2,SNC5.1 IF BLANK 01597 M01S00012.242l642 +++| ZR X7,SNC6 IF *00* FOLLOWS 76B 01598 M01S00013.242l642 +++| SX2 X6-76B 01599 M01S00014.242l642 +++| NZ X2,SNC6 IF NOT CONVERTING TO UPPER CASE 01600 M01S00015.242l642 +++| SX2 X7-33B 01601 M01S00016.242l642 +++| PL X2,SNC6 IF NOT LOWER CASE ALPHABETIC CHARACTER 01602 M01S00017.242l642 +++| BX6 X7 01603 M01S00018.242l642 +++| SNC5.1 SB2 B5 01604 M01S01472.kronref +++| SX1 X4 01605 M01S01473.kronref +++| SNC6 PX7 X1,B2 PACK POSITION 01606 M01S01474.kronref +++| SA6 CH SET CHARACTER 01607 M01S01475.kronref +++| SA7 A1 01608 M01S01476.kronref +++| 01609 M01S01477.kronref +++| SNC SUBR ENTRY/EXIT 01610 M01S01478.kronref +++| SA1 CP UNPACK POINTER 01611 M01S01479.kronref +++| SA2 X1+CDTX LOAD WORD FROM CARD 01612 M01S01480.kronref +++| MX3 54 01613 M01S01481.kronref +++| SB3 66 01614 M01S01482.kronref +++| UX1,B2 X1 01615 M01S01483.kronref +++| SB4 -B1 01616 M01S01484.kronref +++| SX4 1R PRESET * * 01617 M01S01485.kronref +++| SNC1 SB2 B2+6 ADVANCE CHARACTER INDEX 01618 M01S01486.kronref +++| NE B2,B3,SNC2 IF NOT LAST CHARACTER OF WORD 01619 M01S01487.kronref +++| SB2 6 RESET CHARACTER 01620 M01S01488.kronref +++| SX1 X1+B1 ADVANCE WORD 01621 M01S01489.kronref +++| SA2 A2+B1 01622 M01S01490.kronref +++| SNC2 LX7 X2,B2 SHIFT TO CHARACTER 01623 M01S01491.kronref +++| BX6 -X3*X7 01624 M01S01492.kronref +++| NZ X6,SNC3 IF NOT 00 CHARACTER 01625 M01S01493.kronref +++| SB4 B4+B1 01626 M01S01494.kronref +++| NE B4,B1,SNC1 IF NOT THE LAST SPACE 01627 M01S01495.kronref +++| BX6 X4 01628 M01S01496.kronref +++| SA6 CH 01629 M01S01497.kronref +++| EQ SNCX RETURN 01630 M01S01498.kronref +++| SSR SPACE 4,10 01631 M01S01499.kronref +++|** SSR - SORT SPECIAL REFERENCES. 01632 M01S01500.kronref +++|* 01633 M01S01501.kronref +++|* USES X - 1, 2, 3, 4, 6, 7. 01634 M01S01502.kronref +++|* A - 0, 1, 2, 3, 4, 5, 6, 7. 01635 M01S01503.kronref +++|* B - 2, 3, 4, 5, 6, 7. 01636 M01S01504.kronref +++| 01637 M01S01505.kronref +++| 01638 M01S01506.kronref +++| SSR SUBR ENTRY/EXIT 01639 M01S01507.kronref +++| SA1 F.TNME (A0) = FWA - 2 01640 M01S01508.kronref +++| SA2 SL 01641 M01S01509.kronref +++| IX6 X1+X2 01642 M01S01510.kronref +++| SA3 L.TNME 01643 M01S01511.kronref +++| IX7 X3-X2 01644 M01S01512.kronref +++| SA0 X6-2 01645 M01S01513.kronref +++| SB7 X7 N = LENGTH 01646 M01S01514.kronref +++| SB6 B7 M = N 01647 M01S01515.kronref +++| SSR1 SX6 B6 M = M/2 01648 M01S01516.kronref +++| AX6 2 01649 M01S01517.kronref +++| LX6 1 01650 M01S01518.kronref +++| SB6 X6 01651 M01S01519.kronref +++| SB3 B1+B1 J = 1 01652 M01S01520.kronref +++| ZR B6,SSRX IF M = 0 - RETURN 01653 M01S01521.kronref +++| SB4 B7-B6 K = N-M 01654 M01S01522.kronref +++| SB2 B3 01655 M01S01523.kronref +++| SSR2 SB5 B2+B6 L = I+M 01656 M01S01524.kronref +++| SA1 A0+B2 A(I) 01657 M01S01525.kronref +++| SA2 A0+B5 A(L) 01658 M01S01526.kronref +++| IX6 X2-X1 01659 M01S01527.kronref +++| PL X6,SSR3 IF A(L) .GE. A(I) 01660 M01S01528.kronref +++| SA3 A1+B1 INTERCHANGE A(L) AND A(I) 01661 M01S01529.kronref +++| SA4 A2+B1 01662 M01S01530.kronref +++| BX6 X1 01663 M01S01531.kronref +++| LX7 X2 01664 M01S01532.kronref +++| SA6 A2 01665 M01S01533.kronref +++| SA7 A1 01666 M01S01534.kronref +++| BX6 X3 01667 M01S01535.kronref +++| BX7 X4 01668 M01S01536.kronref +++| SA6 A4 01669 M01S01537.kronref +++| SA7 A3 01670 M01S01538.kronref +++| SB2 B2-B6 I = I-M 01671 M01S01539.kronref +++| GT B2,SSR2 IF I .GT. 0 01672 M01S01540.kronref +++| SSR3 SB3 B3+2 J = J+1 01673 M01S01541.kronref +++| SB2 B3 01674 M01S01542.kronref +++| LE B3,B4,SSR2 IF J .LE. K 01675 M01S01543.kronref +++| EQ SSR1 LOOP 01676 M01S00018.kronr1 +++| TOV SPACE 4,10 01677 M01S00019.kronr1 +++|** TOV - TABLE OVERFLOW PROCESSOR. 01678 M01S00020.kronr1 +++|* 01679 M01S00021.kronr1 +++|* ENTRY (FL) = CURRENT FIELD LENGTH. 01680 M01S00022.kronr1 +++|* 01681 M01S00023.kronr1 +++|* EXIT (FL) = NEW FIELD LENGTH. 01682 M01S00024.kronr1 +++|* 01683 M01S00025.kronr1 +++|* USES A - 1, 6. 01684 M01S00026.kronr1 +++|* X - 1, 6. 01685 M01S00027.kronr1 +++|* 01686 M01S00028.kronr1 +++|* CALLS ABT. 01687 M01S00029.kronr1 +++|* 01688 M01S00030.kronr1 +++|* MACROS MEMORY. 01689 M01S00031.kronr1 +++| 01690 M01S00032.kronr1 +++| 01691 M01S00033.kronr1 +++| TOV SUBR ENTRY/EXIT 01692 M01S00034.kronr1 +++| SA1 FL INCREMENT FIELD LENGTH 01693 M01S00035.kronr1 +++| SX6 X1+MINC 01694 M01S00036.kronr1 +++| SA6 A1 01695 M01S00037.kronr1 +++| LX6 30 POSITION FOR *MEM* CALL 01696 M01S00038.kronr1 +++| SA6 TOVA 01697 M01S00039.kronr1 +++| SA1 A6+B1 CHECK MEMORY LIMIT 01698 M01S00040.kronr1 +++| IX1 X1-X6 01699 M01S00041.kronr1 +++| NG X1,TOV1 IF LIMIT REACHED. 01700 M01S00042.kronr1 +++| MEMORY CM,TOVA,R 01701 M01S00043.kronr1 +++| EQ TOVX RETURN 01702 M01S00044.kronr1 +++| 01703 M01S00045.kronr1 +++| 01704 M01S00046.kronr1 +++| TOV1 SA0 =C* MEMORY OVERFLOW.* 01705 M01S00047.kronr1 +++| EQ ABT ABORT 01706 M01S00048.kronr1 +++| 01707 M01S00049.kronr1 +++| 01708 M01S00050.kronr1 +++| TOVA CON 0 MEMORY CALL WORD 01709 M01S00051.kronr1 +++| TOVB VFD 30/-0,30/0 MAXIMUM MEMORY LIMIT 01710 M01S01544.kronref +++| WOF SPACE 4,10 01711 M01S01545.kronref +++|** WOF - WRITE LINE TO OUTPUT. 01712 M01S01546.kronref +++|* 01713 M01S01547.kronref +++|* ENTRY (X1) = FWA LINE. 01714 M01S01548.kronref +++|* 01715 M01S01549.kronref +++|* USES X - 1, 2, 3, 6, 7. 01716 M01S01550.kronref +++|* A - 1, 2, 3, 6, 7. 01717 M01S01551.kronref +++|* 01718 M01S01552.kronref +++|* CALLS CDD. 01719 M01S01553.kronref +++|* 01720 M01S01554.kronref +++|* MACROS WRITEC, WRITEW. 01721 M01S01555.kronref +++| 01722 M01S01556.kronref +++| 01723 M01S01557.kronref +++| WOF SUBR ENTRY/EXIT 01724 M01S01558.kronref +++| SA3 LC ADVANCE LINE COUNT 01725 M01S01559.kronref +++| SX6 X3+B1 01726 M01S01560.kronref +++| SA6 A3
| Line S01561 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01727 M02S01561.ns22000 ---| SX7 X6-LINP+4
| Line S01562 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01728 M02S01562.ns22000 ---| NG X7,WOF1 IF BOTTOM OF PAGE NOT REACHED 01729 M01S00073.ns22000 +++| SA2 LL 01730 M01S00074.ns22000 +++| IX2 X6-X2 01731 M01S00075.ns22000 +++| NG X2,WOF1 IF BOTTOM OF PAGE NOT REACHED 01732 M01S01563.kronref +++| BX6 X1 SAVE REQUEST 01733 M01S01564.kronref +++| SA6 WOFA 01734 M01S01565.kronref +++| SA1 PN ADVANCE PAGE NUMBER
| Line S01566 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01735 M02S01566.ns22000 ---| SX6 B0 RESET LINE COUNT 01736 M01S00076.ns22000 +++| SX6 4 RESET LINE COUNT 01737 M01S01567.kronref +++| SX7 X1+B1 01738 M01S01568.kronref +++| SA6 A3 01739 M01S01569.kronref +++| SA7 A1 01740 M01S01570.kronref +++| RJ CDD CONVERT PAGE NUMBER 01741 M01S01571.kronref +++| MX1 60-12 01742 M01S01572.kronref +++| LX6 4*6 STORE PAGE NUMBER 01743 M01S01573.kronref +++| BX6 X1*X6 01744 M01S01574.kronref +++| SA6 PAGE
| Line S01575 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01745 M02S01575.ns22000 ---| WRITEW O,TITL,TITLL 01746 M01S00077.ns22000 +++| SA1 PD 01747 M01S00078.ns22000 +++| ZR X1,WOF0 IF NO FORMAT EFFECTOR 01748 M01S00079.ns22000 +++| WRITEW O,A1,1 WRITE FORMAT EFFECTOR 01749 M01S00080.ns22000 +++| BX6 X6-X6 01750 M01S00081.ns22000 +++| SA6 PD 01751 M01S00082.ns22000 +++| WOF0 WRITEW O,TITL,TITLL 01752 M01S01576.kronref +++| SA1 ST 01753 M01S01577.kronref +++| WRITEC X2,X1 01754 M01S01578.kronref +++| SA1 ST+1 01755 M01S01579.kronref +++| WRITEC X2,X1 01756 M01S01580.kronref +++| WRITEC X2,(=C* *) 01757 M01S01581.kronref +++| SA1 WOFA RESTORE REQUEST
| Line S01582 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01758 M02S01582.ns22000 ---| SA2 A1+B1 01759 M01S01583.kronref +++| WOF1 WRITEC O,X1 01760 M01S01584.kronref +++| EQ WOFX RETURN 01761 M01S01585.kronref +++| 01762 M01S01586.kronref +++| WOFA DATA 0 01763 M01S01587.kronref +++| SPACE 4,10
| Line S01588 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01764 M02S01588.ns22000 ---|* COMMON DECKS. 01765 M01S00083.ns22000 +++|** COMMON DECKS. 01766 M01S01589.kronref +++| 01767 M01S01590.kronref +++| 01768 M01S01591.kronref +++|*CALL COMCRDC 01769 M01S01592.kronref +++|*CALL COMCRDW 01770 M01S01593.kronref +++|*CALL COMCWTC 01771 M01S01594.kronref +++|*CALL COMCWTW 01772 M01S01595.kronref +++|*CALL COMCCIO 01773 M01S01596.kronref +++|*CALL COMCSYS 01774 M01S01597.kronref +++|*CALL COMCCDD 01775 M01S01598.kronref +++|*CALL COMCCOD 01776 M01S01599.kronref +++|*CALL COMCSFN 01777 M01S01600.kronref +++| SPACE 4,10 01778 M01S01601.kronref +++| IDENT FORCE LITERALS 01779 M01S01602.kronref +++| PRESET TITLE KRONREF PRESET. 01780 M01S01603.kronref +++| PRS SPACE 4,10 01781 M01S01604.kronref +++|** PRS - PRESET KRONREF. 01782 M01S01605.kronref +++|* 01783 M01S01606.kronref +++|* ENTRY (A0) = FL. 01784 M01S01607.kronref +++|* 01785 M01S01608.kronref +++|* EXIT (FL) = FL - 10B. 01786 M01S01609.kronref +++|*
| Line S01610 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01787 M02S01610.ns22000 ---|* USES X - 1, 2, 3, 4, 6. 01788 M01S00084.ns22000 +++|* USES X - 1, 3, 4, 6. 01789 M01S01611.kronref +++|* A - 0, 1, 4, 6. 01790 M01S01612.kronref +++|* B - 4, 5. 01791 M01S01613.kronref +++|* 01792 M01S01614.kronref +++|* CALLS ARG, SFN. 01793 M01S01615.kronref +++|*
| Line S01616 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01794 M02S01616.ns22000 ---|* MACROS ASSIGN, CLOCK, DATE, REWIND. 01795 M01S00085.ns22000 +++|* MACROS CLOCK, DATE, REWIND. 01796 M01S01617.kronref +++| 01797 M01S01618.kronref +++| 01798 M01S01619.kronref +++| PRS SUBR ENTRY/EXIT 01799 M01S01620.kronref +++| SX6 A0-10B 01800 M01S01621.kronref +++| SA6 FL 01801 M01S00052.kronr1 +++| MEMORY CM,TOVB,R GET CURRENT FL/MAXIMUM FL 01802 M01S01622.kronref +++| CLOCK TIME REQUEST TIME 01803 M01S01623.kronref +++| DATE DATE REQUEST DATE 01804 M01S01624.kronref +++| SA1 ACTR SET ARGUMENT COUNT 01805 M01S01625.kronref +++| SB4 X1 01806 M01S01626.kronref +++| ZR B4,PRS1 IF NO ARGUMENTS 01807 M01S01627.kronref +++| SB5 PRSA 01808 M01S01628.kronref +++| SA4 ARGR 01809 M01S01629.kronref +++| RJ ARG PROCESS ARGUMENTS 01810 M01S01630.kronref +++| SA0 =C* ERROR IN KRONREF ARGUMENTS.* 01811 M01S01631.kronref +++| NZ X1,ABT IF ARGUMENT ERRORS 01812 M01S01632.kronref +++| PRS1 REWIND P,R
| Line S01633 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01813 M02S01633.ns22000 ---| SA1 P+6
| Line S01634 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01814 M02S01634.ns22000 ---| NZ X1,PRS2 IF FILE AVAILIABLE
| Line S01635 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01815 M02S01635.ns22000 ---| ASSIGN P
| Line S01636 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01816 M02S01636.ns22000 ---| SA1 P CHECK STATUS
| Line S01637 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01817 M02S01637.ns22000 ---| SX2 X1
| Line S01638 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01818 M02S01638.ns22000 ---| AX2 10
| Line S01639 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01819 M02S01639.ns22000 ---| SA0 =C* PROGRAM LIBRARY NOT AVAILABLE.*
| Line S01640 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01820 M02S01640.ns22000 ---| NZ X2,ABT IF FILE NOT ASSIGNED
| Line S01641 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01821 M02S01641.ns22000 ---| REWIND P
| Line S01642 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01822 M02S01642.ns22000 ---| PRS2 SA1 P 01823 M01S00086.ns22000 +++| SA1 P 01824 M01S01643.kronref +++| MX3 42 01825 M01S01644.kronref +++| BX1 X3*X1 01826 M01S01645.kronref +++| RJ SFN SPACE FILL FILE NAME 01827 M01S01646.kronref +++| SA6 PLNM 01828 M01S00087.ns22000 +++| RJ IPP INITALIZE PAGE PARAMETERS 01829 M01S01647.kronref +++| EQ PRSX RETURN 01830 M01S01648.kronref +++| PRSA SPACE 4,10 01831 M01S01649.kronref +++|** PRSA - CONTROL CARD ARGUMENT VALUES. 01832 M01S01650.kronref +++| 01833 M01S01651.kronref +++| 01834 M01S01652.kronref +++| PRSA BSS 0 01835 M01S01653.kronref +++| L ARG O,O OUTPUT FILE 01836 M01S01654.kronref +++| P ARG P,P OPL FILE NAME 01837 M01S01655.kronref +++| S ARG =0LNOSTEXT,LSSA 01838 M01S01656.kronref +++| G ARG =0LTEXT,LSSB USER SUPPLIED TEXT FILE 01839 M01S01657.kronref +++| ARG END OF THE TABLE 01840 M01S00088.ns22000 +++| IPP SPACE 4,15 01841 M01S00089.ns22000 +++|** IPP - INITIALIZE PAGE PARAMETERS. 01842 M01S00090.ns22000 +++|* 01843 M01S00091.ns22000 +++|* EXIT (LL) = LINE LIMIT. 01844 M01S00092.ns22000 +++|* (PD) = PRINT DENSITY IF NOT TERMINAL OUTPUT FILE. 01845 M01S00093.ns22000 +++|* = 0 IF TERMINAL OUTPUT FILE. 01846 M01S00094.ns22000 +++|* 01847 M01S00095.ns22000 +++|* USES X - 2, 6. 01848 M01S00096.ns22000 +++|* A - 6. 01849 M01S00097.ns22000 +++|* 01850 M01S00098.ns22000 +++|* CALLS STF. 01851 M01S00099.ns22000 +++|* 01852 M01S00100.ns22000 +++|* MACROS GETPP. 01853 M01S00101.ns22000 +++| 01854 M01S00102.ns22000 +++| 01855 M01S00103.ns22000 +++| IPP SUBR ENTRY/EXIT 01856 M01S00104.ns22000 +++| GETPP IPPA,LL,PD 01857 M01S00105.ns22000 +++| SX2 O OUTPUT FILE FET ADDRESS 01858 M01S00106.ns22000 +++| RJ STF SET TERMINAL FILE 01859 M01S00107.ns22000 +++| NZ X6,IPPX IF NOT TERMINAL FILE 01860 M01S00108.ns22000 +++| SA6 PD 01861 M01S00109.ns22000 +++| EQ IPPX RETURN 01862 M01S00110.ns22000 +++| 01863 M01S00111.ns22000 +++| IPPA BSS 2 *GETPP* RESPONSE BLOCK 01864 M01S01658.kronref +++| LSS SPACE 4,10 01865 M01S01659.kronref +++|** LSS - LOAD SYSTEMS SYMBOLS. 01866 M01S01660.kronref +++|* 01867 M01S01661.kronref +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 01868 M01S01662.kronref +++|* A - 0, 1, 2, 3, 4, 6, 7. 01869 M01S01663.kronref +++|* B - 2, 3, 4, 5, 6, 7. 01870 M01S01664.kronref +++|* 01871 M01S01665.kronref +++|* CALLS ATS, SFN. 01872 M01S01666.kronref +++|* 01873 M01S01667.kronref +++|* MACROS ALLOC, OVERLAY, VERSION. 01874 M01S01668.kronref +++| 01875 M01S01669.kronref +++| 01876 M01S01670.kronref +++| LSS SUBR ENTRY/EXIT 01877 M01S01671.kronref +++| SA1 LSSB CHECK TEXT FROM LOCAL FILE 01878 M01S01672.kronref +++| ZR X1,LSS1 IF TEXT FROM SYSTEM 01879 M01S01673.kronref +++| RJ SFN SET TEXT NAME 01880 M01S01674.kronref +++| SA6 TX SET SYSTEXT PRESENT 01881 M01S01675.kronref +++| SA6 TXNM 01882 M01S01676.kronref +++| OVERLAY LSSB,101B,,MTBS LOAD TEXT 01883 M01S01677.kronref +++| JP LSS2 NO SYSTEM TEXT 01884 M01S01678.kronref +++| 01885 M01S01679.kronref +++| LSS1 SA1 LSSA SET TEXT NAME 01886 M01S01680.kronref +++| ZR X1,LSSX IF S=0 01887 M01S01681.kronref +++| RJ SFN 01888 M01S01682.kronref +++| SA6 TX SET SYSTEXT PRESENT 01889 M01S01683.kronref +++| SA6 TXNM 01890 M01S01684.kronref +++| VERSION LSSC 01891 M01S01685.kronref +++| OVERLAY LSSA,101B,SYSTEM,MTBS LOAD TEXT
| Line S01686 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01892 M02S01686.ns22000 ---| LSS2 SA0 =C* NO SYSTEM TEXT FOUND.*
| Line S01687 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01893 M02S01687.ns22000 ---| LX1 59-36
| Line S01688 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01894 M02S01688.ns22000 ---| MX0 42
| Line S01689 Modification History | |
|---|---|
M01 (Added by) | kronref |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01895 M02S01689.ns22000 ---| NG X1,ABT 01896 M01S00112.ns22000 +++| LSS2 MX0 42 01897 M01S01690.kronref +++| SA0 =C* ERROR IN SYSTEM TEXT.* 01898 M01S01691.kronref +++| SA1 MTBS+1 CHECK FIRST WORD OF TEXT
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/kronref.txt · Last modified: by 127.0.0.1