TITLE '1052/3215 ERROR RECOVERY PROCEDURE *00001000 ' 00002000 IEC1052 CSECT 00003000 USING IEC1052,BASREG ESTABLISH ADDRESSABILITY 00004000 USING @DATD,DATDREG 00005000 BC 15,ER1052A 00006000 DC CL8'IGE0000D' 00007000 DC CL8'UZ03507 ' 00008000 DC CL8'01/22/76' 00009000 * 0107 00010000 * /*****************************************************************/ 00011000 * /* */ 00012000 * /* 1052/3215 ERROR RECOVERY PROCEDURE */ 00013000 * /* */ 00014000 * /*****************************************************************/ 00015000 * 0107 00016000 *ER1052A: 0107 00017000 * CVTREG=CVTPTR; 0107 00018000 ER1052A L CVTREG,CVTPTR 0107 00019000 * EWAPTR=IOSERP; /* INIT PTR TO ERP WORK AREA */ 00020000 L EWAPTR,IOSERP(,IOSBPTR) 0108 00021000 * DATDREG=ADDR(EWUWORK); /* ADDRESSABILITY FOR TEMPS */ 00022000 LA DATDREG,EWUWORK(,EWAPTR) 0109 00023000 * UCBPTR=IOSUCB; 0110 00024000 L UCBPTR,IOSUCB(,IOSBPTR) 0110 00025000 * CCWRST=IOSCSWCA-CCWLEN; /* CALC CCW RESTART ADDR */ 00026000 SLR CCWRST,CCWRST 0111 00027000 ICM CCWRST,7,IOSCSWCA(IOSBPTR) 0111 00028000 SH CCWRST,CCWLEN 0111 00029000 * IF IOENTRY=OFF THEN /* IF FIRST ENTRY,SKIP ERR CNTS */ 00030000 TM IOENTRY(EWAPTR),B'00000001' 0112 00031000 BZ @RT00112 0112 00032000 * GO TO SETENTRY; 0113 00033000 * RFY 0114 00034000 * IDREG RSTD; 0114 00035000 * IDREG=CCWRST; 0115 00036000 LR IDREG,CCWRST 0115 00037000 * GEN(LRA IDREG,0(IDREG)); 0116 00038000 * 0116 00039000 LRA IDREG,0(IDREG) 00040000 * /*****************************************************************/ 00041000 * /* */ 00042000 * /* IF ERROR IS ON THE SAME CCW OR THE CSW ADD IS NOT POSITIVE; */ 00043000 * /* DON'T RESET THE COUNTERS @ZA12456*/ 00044000 * /* */ 00045000 * /*****************************************************************/ 00046000 * 0117 00047000 * IF IDREG=IOSRST|IDREG^>0 THEN /* ZA12456 */ 00048000 C IDREG,IOSRST(,IOSBPTR) 0117 00049000 BE @RT00117 0117 00050000 LTR IDREG,IDREG 0117 00051000 BNP @RT00117 0117 00052000 * GO TO CKCONSL; 0118 00053000 * ELSE 0119 00054000 * EWACNTR1=0; /* RESET PREVIOUS ERROR COUNTERS */ 00055000 MVI EWACNTR1(EWAPTR),X'00' 0119 00056000 * EWACNTR2=0; 0120 00057000 MVI EWACNTR2(EWAPTR),X'00' 0120 00058000 *SETENTRY: 0121 00059000 * IOENTRY=ON; /* SET FIRST ENTRY FLAG */ 00060000 SETENTRY OI IOENTRY(EWAPTR),B'00000001' 0121 00061000 * RFY 0122 00062000 * IDREG UNRSTD; 0122 00063000 *CKCONSL: 0123 00064000 * IF UCBSYSR=ON THEN /* IF DEVICE IS CONSOLE, SET FLAG*/ 00065000 CKCONSL TM UCBSYSR(UCBPTR),B'00000010' 0123 00066000 BNO @RF00123 0123 00067000 * CONSOLE=ON; 0124 00068000 OI CONSOLE(EWAPTR),B'01000000' 0124 00069000 * IOSSMDA=OFF; /* CLEAR STAT MODIFIER FLAG */ 00070000 @RF00123 DS 0H 0126 00071000 * IOSERR=ON; /* SET IOSEX AND IOSERR TO 0126 00072000 * INDICATE ERP IN CONTROL */ 00073000 * IOSEX=ON; 0127 00074000 OI IOSERR(IOSBPTR),B'00100100' 0127 00075000 NI IOSSMDA(IOSBPTR),B'11101111' 0127 00076000 * IF CNTRLB1=OFF THEN 0128 00077000 TM CNTRLB1(EWAPTR),B'00001000' 0128 00078000 BZ @RT00128 0128 00079000 * GO TO ERR500; 0129 00080000 * 0129 00081000 * /*****************************************************************/ 00082000 * /* */ 00083000 * /* CNTRLB1 IS ON IF THIS IS THE SECOND ENTRY ON AN 'INTERVENTION */ 00084000 * /* REQUIRED'. ISSUE IOSGEN TO SET UCBNRY FLAG AND RETRY REQUEST */ 00085000 * /* FROM THE TOP. (NOTE: IF UNSOLICITED DEVICE END HAS BEEN */ 00086000 * /* RECEIVED SINCE THE LAST SIO, THE UCBNRY FLAG WILL NOT BE SET.)*/ 00087000 * /* */ 00088000 * /*****************************************************************/ 00089000 * 0130 00090000 * ELSE 0130 00091000 * CNTRLB1=OFF; /* CLEAR 'INT REQ' FLAG */ 00092000 NI CNTRLB1(EWAPTR),B'11110111' 0130 00093000 * GEN REFS(IOSGENSV,CVTPTR,CVTIXAVL,IOCGENA,UCBBGN,UCBFLA,UCBFLB, 00094000 * UCBFLC,UCBCCWOF,UCB3TAPE) SETS(IDREG); 0131 00095000 LA IDREG,IOSGENSV 00096000 IOSGEN UCBFLG,UCB=(UCBPTR),VAR=ON,TABLE=UCBNRY 00097000 *RETRYINT: 0132 00098000 * IORSTRT=OFF; /* CLEAR RESTART FLAG IN EWA */ 00099000 RETRYINT NI IORSTRT(EWAPTR),B'01111111' 0132 00100000 * SVC(15); /* TO RETRY REQUEST FROM TOP */ 00101000 SVC 15 0133 00102000 * SVC(3); /* ISSUE SVC 3 TO EXIT */ 00103000 SVC 3 0134 00104000 * GEN(EJECT); 0135 00105000 EJECT 00106000 *ERR500: 0136 00107000 * IF CNTRLB0=OFF THEN 0136 00108000 ERR500 TM CNTRLB0(EWAPTR),B'00000100' 0136 00109000 BZ @RT00136 0136 00110000 * GO TO ERR500B; 0137 00111000 * ELSE 0138 00112000 * IOSCSW=EWUCSW; /* RESTORE ORIGINAL CSW */ 00113000 MVC IOSCSW(7,IOSBPTR),EWUCSW 0138 00114000 * GO TO PERMERR; /* TO XCTL TO STAT UPDATE */ 00115000 B PERMERR 0139 00116000 *ERR500B: 0140 00117000 * IF IOSCCHN=OFF THEN /* IF NO CMD CHAINING, SKIP 0140 00118000 * SETTING RESTART FLAG */ 00119000 ERR500B TM IOSCCHN(IOSBPTR),B'01000000' 0140 00120000 BZ @RT00140 0140 00121000 * GO TO ERR500A; 0141 00122000 * ELSE 0142 00123000 * IORSTRT=ON; /* SET RESTART FLAG IN EWA */ 00124000 OI IORSTRT(EWAPTR),B'10000000' 0142 00125000 *ERR500A: 0143 00126000 * IF CSWCTK=ON| /* CHAN OR INTERFACE CONTROL 0143 00127000 * CHECK, INTERROGATE ERPIB */ 00128000 * CSWICK=ON THEN 0143 00129000 ERR500A TM CSWCTK(IOSBPTR),B'00000110' 0143 00130000 BNZ @RT00143 0143 00131000 * GO TO ERPIBINT; 0144 00132000 * IF CSWCCK=ON THEN /* CHAN CHAINING CHECK, TEST IF 00133000 * CONSOLE */ 00134000 TM CSWCCK(IOSBPTR),B'00000001' 0145 00135000 BO @RT00145 0145 00136000 * GO TO ERR524A; 0146 00137000 * IF CSWUCK=OFF THEN /* IF NOT UCK, TEST STATUS */ 00138000 TM CSWUCK(IOSBPTR),B'00000010' 0147 00139000 BZ @RT00147 0147 00140000 * GO TO STATUS; 0148 00141000 * ELSE 0149 00142000 * 0149 00143000 */* 'OR' SENSE BYTE INTO STATISTICS ENTRY AND CLEAR UNWANTED BITS */ 00144000 * 0149 00145000 * EWASTUP=EWASTUP|IOSSNS; 0149 00146000 OC EWASTUP(2,EWAPTR),IOSSNS(IOSBPTR) 0149 00147000 * EWASTUP(1:1)=EWASTUP(1:1)&SNSMSK; 0150 00148000 NI EWASTUP(EWAPTR),X'70' 0150 00149000 * GEN(EJECT); 0151 00150000 * 0151 00151000 EJECT 00152000 * /*****************************************************************/ 00153000 * /* */ 00154000 * /* LINK TO THE RESIDENT ERROR INTERPRETER ROUTINE TO INTERPRET */ 00155000 * /* THE SENSE BYTE. */ 00156000 * /* */ 00157000 * /*****************************************************************/ 00158000 * 0152 00159000 *SENSE: 0152 00160000 * GEN REFS(CVTREG,CVTXITP) SETS(SAVREG,XCTLREG) FLOWS(HDWERR,EQUIPCK, 00161000 * INTREQ,BUSOUT,PGMERR); 0152 00162000 SENSE DS 0H 0152 00163000 LR SAVREG,BASREG SAVE REG 15 00164000 L BASREG,CVTXITP(,CVTREG) ADDR OF ERR INTERPRETER RTN 00165000 * YM06225 00166000 SNSBAS BALR XCTLREG,BASREG TO INTERPRET SENSE BYTE 00167000 DC X'07' SHOULD NOT OCCUR 00168000 DC AL1(ERSNS1-SNSBAS-2) 00169000 DC X'06' SHOULD NOT OCCUR 00170000 DC AL1(ERSNS1-SNSBAS-4) 00171000 DC X'05' SHOULD NOT OCCUR 00172000 DC AL1(ERSNS1-SNSBAS-6) 00173000 DC X'04' SHOULD NOT OCCUR 00174000 DC AL1(ERSNS1-SNSBAS-8) 00175000 DC X'03' EQUIPMENT CHECK 00176000 DC AL1(ERSNS2-SNSBAS-10) 00177000 DC X'01' INTERVENTION REQUIRED 00178000 DC AL1(ERSNS3-SNSBAS-12) 00179000 DC X'02' BUSOUT CHECK 00180000 DC AL1(ERSNS4-SNSBAS-14) 00181000 DC X'00' COMMAND REJECT 00182000 DC AL1(ERSNS5-SNSBAS-16) 00183000 DC X'2F' END OF TEST 00184000 DC AL1(ERSNS1-SNSBAS-18) 00185000 ERSNS1 B HDWERR 00186000 ERSNS2 B EQUIPCK 00187000 ERSNS3 B INTREQ 00188000 ERSNS4 B BUSOUT 00189000 ERSNS5 B PGMERR 00190000 EJECT 00191000 * 0153 00192000 * /*****************************************************************/ 00193000 * /* */ 00194000 * /* PERMANENT ERROR */ 00195000 * /* */ 00196000 * /*****************************************************************/ 00197000 * 0153 00198000 *HDWERR: 0153 00199000 * IF CONSOLE=ON THEN /* IF CONSOLE, GO TO RETRY */ 00200000 HDWERR TM CONSOLE(EWAPTR),B'01000000' 0153 00201000 BO @RT00153 0153 00202000 * GO TO CONRETRY; 0154 00203000 *PERMERR: 0155 00204000 * IOSLOG=ON; /* SET LOGOUT REQUIRED FLAG */ 00205000 PERMERR OI IOSLOG(IOSBPTR),B'00000001' 0155 00206000 * IOSERR=OFF; /* CLEAR ERP IN CONTROL-PERM ERR */ 00207000 NI IOSERR(IOSBPTR),B'11011111' 0156 00208000 * IORSTRT=OFF; 0157 00209000 NI IORSTRT(EWAPTR),B'01111111' 0157 00210000 * GO TO XCTLSTAT; /* TO XCTL TO STAT UPDATE */ 00211000 * 0158 00212000 B XCTLSTAT 0158 00213000 * /*****************************************************************/ 00214000 * /* */ 00215000 * /* EQUIPMENT CHECK */ 00216000 * /* */ 00217000 * /*****************************************************************/ 00218000 * 0159 00219000 *EQUIPCK: 0159 00220000 * IF CONSOLE=ON THEN /* IF CONSOLE, GO TO RETRY */ 00221000 EQUIPCK TM CONSOLE(EWAPTR),B'01000000' 0159 00222000 BO @RT00159 0159 00223000 * GO TO CONRETRY; 0160 00224000 *ERR506A: 0161 00225000 * IF CCWRST^>0 THEN /* IF INVALID CCW ADDR, POST 0161 00226000 * PERMANENT ERROR */ 00227000 ERR506A LTR CCWRST,CCWRST 0161 00228000 BNP @RT00161 0161 00229000 * GO TO PGMERR; 0162 00230000 * IF CMDCODE^=WRITECM THEN /* IF READ CMD, LOGOUT AND ISSUE 00231000 * 'I/O ERR' MSG */ 00232000 CLI CMDCODE(CCWRST),X'01' 0163 00233000 BNE @RT00163 0163 00234000 * GO TO ERRWTO; 0164 00235000 * IF WRITECT=ON THEN /* IF SECOND OCCURRENCE, RING 0165 00236000 * BELL */ 00237000 TM WRITECT(EWAPTR),B'00100000' 0165 00238000 BO @RT00165 0165 00239000 * GO TO ERR511; 0166 00240000 * ELSE 0167 00241000 * WRITECT=ON; /* SET WRITE ERROR FLAG */ 00242000 OI WRITECT(EWAPTR),B'00100000' 0167 00243000 * GO TO RETRY; 0168 00244000 B RETRY 0168 00245000 * GEN(EJECT); 0169 00246000 EJECT 00247000 * 0170 00248000 * /*****************************************************************/ 00249000 * /* */ 00250000 * /* INTERVENTION REQUIRED */ 00251000 * /* */ 00252000 * /*****************************************************************/ 00253000 * 0170 00254000 *INTREQ: 0170 00255000 * CNTRLB1=ON; /* SET 'INT REQ' FLAG */ 00256000 INTREQ OI CNTRLB1(EWAPTR),B'00001000' 0170 00257000 * IF CONSOLE=ON THEN /* IF CONSOLE, BROADCAST WTO */ 00258000 TM CONSOLE(EWAPTR),B'01000000' 0171 00259000 BNO @RF00171 0171 00260000 * DO; 0172 00261000 * IOSBDCST=ON; /* SET BROADCAST FLAG */ 00262000 OI IOSBDCST(IOSBPTR),B'00000010' 0173 00263000 * GO TO XCTLWTO; /* TO ISSUE BROADCAST 'INT REQ' */ 00264000 B XCTLWTO 0174 00265000 * END; 0175 00266000 * ELSE 0176 00267000 * GO TO ALARM; /* TO RING BELL */ 00268000 * GEN(EJECT); 0177 00269000 EJECT 00270000 * 0178 00271000 * /*****************************************************************/ 00272000 * /* */ 00273000 * /* BUSOUT CHECK */ 00274000 * /* */ 00275000 * /*****************************************************************/ 00276000 * 0178 00277000 *BUSOUT: 0178 00278000 * IF CONSOLE=ON THEN /* IF CONSOLE, GO TO RETRY */ 00279000 BUSOUT TM CONSOLE(EWAPTR),B'01000000' 0178 00280000 BO @RT00178 0178 00281000 * GO TO CONRETRY; 0179 00282000 * IF IOBOERR=OFF THEN /* IF FIRST OCCURRENCE, RETRY */ 00283000 TM IOBOERR(EWAPTR),B'00010000' 0180 00284000 BZ @RT00180 0180 00285000 * GO TO ERR514; 0181 00286000 * ELSE 0182 00287000 *ERR511: 0182 00288000 * CNTRLB0=ON; /* SET BUSOUT CHECK FLAG */ 00289000 ERR511 OI CNTRLB0(EWAPTR),B'00000100' 0182 00290000 * EWUCSW=IOSCSW; /* SAVE ORIGINAL CSW */ 00291000 MVC EWUCSW(7),IOSCSW(IOSBPTR) 0183 00292000 *ALARM: 0184 00293000 * IOSMDB=CNTLALRM; /* IMMEDIATE OP TO RING BELL */ 00294000 ALARM MVI IOSMDB(IOSBPTR),X'0B' 0184 00295000 * IOSSMDA=ON; /* SET STAT MODIFIER FLAG */ 00296000 OI IOSSMDA(IOSBPTR),B'00010000' 0185 00297000 * SVC(15); /* TO RING THE BELL */ 00298000 SVC 15 0186 00299000 * SVC(3); /* ISSUE SVC 3 TO EXIT */ 00300000 SVC 3 0187 00301000 *ERR514: 0188 00302000 * IOBOERR=ON; /* SET BUSOUT CHECK COUNT */ 00303000 ERR514 OI IOBOERR(EWAPTR),B'00010000' 0188 00304000 * IF CSWCHE=OFF THEN /* IF NO CHAN END, RETRY FROM TOP*/ 00305000 TM CSWCHE(IOSBPTR),B'00001000' 0189 00306000 BNZ @RF00189 0189 00307000 * IORSTRT=OFF; 0190 00308000 NI IORSTRT(EWAPTR),B'01111111' 0190 00309000 * GO TO RETRY; 0191 00310000 B RETRY 0191 00311000 * GEN(EJECT); 0192 00312000 EJECT 00313000 * 0193 00314000 * /*****************************************************************/ 00315000 * /* */ 00316000 * /* LINK TO THE RESIDENT ERROR INTERPRETER ROUTINE TO INTERPRET */ 00317000 * /* THE CSW STATUS BYTES. */ 00318000 * /* */ 00319000 * /*****************************************************************/ 00320000 * 0193 00321000 *STATUS: 0193 00322000 * GEN REFS(CVTREG,CVTXITP) SETS(SAVREG,XCTLREG) FLOWS(CHANDCK,PGMERR, 00323000 * UNITEX,ERRCORR); 0193 00324000 STATUS DS 0H 0193 00325000 LR SAVREG,BASREG SAVE REG 15 00326000 L BASREG,CVTXITP(,CVTREG) ADDR OF ERR INTERPRETER RTN 00327000 STATBAS BALR XCTLREG,BASREG TO INTERPRET STATUS BYTESS 00328000 DC X'1C' CHANNEL DATA CHECK 00329000 DC AL1(ERSTAT1-STATBAS-2) 00330000 DC X'1A' PROGRAM CHECK 00331000 DC AL1(ERSTAT2-STATBAS-4) 00332000 DC X'1B' PROTECTION CHECK 00333000 DC AL1(ERSTAT2-STATBAS-6) 00334000 DC X'17' UNIT EXCEPTION 00335000 DC AL1(ERSTAT3-STATBAS-8) 00336000 DC X'19' INCORRECT LENGTH 00337000 DC AL1(ERSTAT2-STATBAS-10) 00338000 DC X'2F' END OF TEST 00339000 DC AL1(ERSTAT4-STATBAS-12) 00340000 ERSTAT1 B CHANDCK 00341000 ERSTAT2 B PGMERR 00342000 ERSTAT3 B UNITEX 00343000 ERSTAT4 B ERRCORR 00344000 EJECT 00345000 * 0194 00346000 * /*****************************************************************/ 00347000 * /* */ 00348000 * /* UNIT EXCEPTION */ 00349000 * /* */ 00350000 * /*****************************************************************/ 00351000 * 0194 00352000 *UNITEX: 0194 00353000 * IF CONSOLE=OFF THEN /* IF NOT CONSOLE, PERM ERR */ 00354000 UNITEX TM CONSOLE(EWAPTR),B'01000000' 0194 00355000 BZ @RT00194 0194 00356000 * GO TO PGMERR; 0195 00357000 * IF DATACMD^=RDINQ THEN /* IF NOT READ,SKIP BLANKING 0196 00358000 * @ZA07601*/ 00359000 L @14,IOSVST(,IOSBPTR) 0196 00360000 CLI DATACMD(@14),X'0A' 0196 00361000 BNE @RT00196 0196 00362000 * GO TO RETRY; /* @ZA07601*/ 00363000 * RFY 0198 00364000 * (IDREG, 0198 00365000 * SAVREG, 0198 00366000 * REG11) RSTD; 0198 00367000 * 0198 00368000 * /*****************************************************************/ 00369000 * /* */ 00370000 * /* BLANK OUT BUFFER AND GO TO RETRY REQUEST */ 00371000 * /* */ 00372000 * /*****************************************************************/ 00373000 * 0199 00374000 * SAVREG=DATACNT; 0199 00375000 LH SAVREG,DATACNT(,@14) 0199 00376000 * IDREG=DATADDR; 0200 00377000 L IDREG,DATADDR(,@14) 0200 00378000 * REG11=BASREG; 0201 00379000 LR REG11,BASREG 0201 00380000 * GEN SETS(IDREG,SAVREG,REG0,REG11,XCTLREG) REFS(BLANKBUF,IOSGENSV, 00381000 * CVTREG,CVTPTRV) FLOWS(PGMERR); 0202 00382000 STM REG0,IOSBPTR,IOSGENSV SAVE REGS 0,1 00383000 LR IOSBPTR,IDREG ADDR TO CONVERT 00384000 LA IOSBPTR,0(IOSBPTR) 00385000 BCTR IOSBPTR,0 DECREMENT TO INSURE PAGE BNDRY 00386000 L BASREG,CVTPTRV(,CVTREG) ADDR OF CONVERT RTN 00387000 BALR XCTLREG,BASREG TO CONVERT REAL TO VIRTUAL 00388000 LR IDREG,IOSBPTR TRANSLATED BUFFER ADDRESS 00389000 LM REG0,IOSBPTR,IOSGENSV RESTORE REGS 0,1 00390000 LTR BASREG,BASREG TRANSLATION SUCCESSFUL 00391000 LR BASREG,REG11 RESTORE BASE REGISTER 00392000 BNZ PGMERR NO-PERMANENT ERROR 00393000 LA IDREG,1(IDREG) INCREMENT ADDRESS 00394000 MVI 0(IDREG),X'40' 00395000 BCTR SAVREG,0 00396000 BCTR SAVREG,0 00397000 EX SAVREG,BLANKBUF 00398000 * GO TO RETRY; 0203 00399000 B RETRY 0203 00400000 * RFY 0204 00401000 * (IDREG, 0204 00402000 * SAVREG, 0204 00403000 * REG11) UNRSTD; 0204 00404000 *BLANKBUF: 0205 00405000 * GEN(MVC 1(0,IDREG),0(IDREG)); 0205 00406000 BLANKBUF MVC 1(0,IDREG),0(IDREG) 00407000 * GEN(EJECT); 0206 00408000 EJECT 00409000 * 0207 00410000 * /*****************************************************************/ 00411000 * /* */ 00412000 * /* PROGRAMMING ERROR */ 00413000 * /* */ 00414000 * /*****************************************************************/ 00415000 * 0207 00416000 *PGMERR: 0207 00417000 * IOSERR=OFF; /* CLEAR ERP IN CONTROL-PERM ERR */ 00418000 PGMERR NI IOSERR(IOSBPTR),B'11011111' 0207 00419000 * IORSTRT=OFF; 0208 00420000 NI IORSTRT(EWAPTR),B'01111111' 0208 00421000 * SVC(15); /* TO POST PERMANENT ERROR */ 00422000 SVC 15 0209 00423000 * SVC(3); /* ISSUE SVC 3 TO EXIT */ 00424000 SVC 3 0210 00425000 * GEN(EJECT); 0211 00426000 EJECT 00427000 * 0212 00428000 * /*****************************************************************/ 00429000 * /* */ 00430000 * /* ERROR CORRECTED */ 00431000 * /* */ 00432000 * /*****************************************************************/ 00433000 * 0212 00434000 *ERRCORR: 0212 00435000 * IF IOSCOD=IOSNRMC THEN 0212 00436000 ERRCORR CLI IOSCOD(IOSBPTR),X'7F' 0212 00437000 BE @RT00212 0212 00438000 * GO TO ERR521; 0213 00439000 * ELSE 0214 00440000 * IOSCOD=IOSNRMC; /* CHANGE COMP CODE TO '7F' */ 00441000 MVI IOSCOD(IOSBPTR),X'7F' 0214 00442000 *ERR521: 0215 00443000 * IOSERR=OFF; /* CLEAR FLAGS TO INDICATE ERROR 00444000 * CORRECTED */ 00445000 ERR521 DS 0H 0216 00446000 * IOSEX=OFF; 0216 00447000 NI IOSERR(IOSBPTR),B'11011011' 0216 00448000 * IORSTRT=OFF; 0217 00449000 NI IORSTRT(EWAPTR),B'01111111' 0217 00450000 * CSWUCK=OFF; 0218 00451000 * 0218 00452000 NI CSWUCK(IOSBPTR),B'11111101' 0218 00453000 * /*****************************************************************/ 00454000 * /* */ 00455000 * /* XCTL TO STATISTICS UPDATE ROUTINE */ 00456000 * /* */ 00457000 * /*****************************************************************/ 00458000 * 0219 00459000 *XCTLSTAT: 0219 00460000 * GEN REFS(CVTREG,CVTXTLER,STATID) SETS(IDREG,XCTLREG) EXIT NOSEQFLOW 00461000 * ; 0219 00462000 * 0219 00463000 XCTLSTAT DS 0H 0219 00464000 LH IDREG,STATID ID OF STAT UPDATE RTN 00465000 L XCTLREG,CVTXTLER(,CVTREG) ADDR OF RES XCTL RTN 00466000 BR XCTLREG TO XCTL TO STAT UPDATE RTN 00467000 * /*****************************************************************/ 00468000 * /* */ 00469000 * /* XCTL TO WRITE-TO-OPERATOR ROUTINE */ 00470000 * /* */ 00471000 * /*****************************************************************/ 00472000 * 0220 00473000 *ERR524A: 0220 00474000 * IF CONSOLE=ON THEN /* IF CONSOLE, GO TO RETRY */ 00475000 ERR524A TM CONSOLE(EWAPTR),B'01000000' 0220 00476000 BO @RT00220 0220 00477000 * GO TO CONRETRY; 0221 00478000 *ERRWTO: 0222 00479000 * IOSERR=OFF; 0222 00480000 ERRWTO NI IOSERR(IOSBPTR),B'11011111' 0222 00481000 * IOSLOG=ON; /* TO INDICATE LOGOUT REQUIRED */ 00482000 * IOSMSG=ON; /* TO INDICATE 'I/O ERR' MSG */ 00483000 OI IOSLOG(IOSBPTR),B'00000101' 0224 00484000 * IORSTRT=OFF; 0225 00485000 NI IORSTRT(EWAPTR),B'01111111' 0225 00486000 *XCTLWTO: 0226 00487000 * GEN REFS(CVTREG,CVTXTLER,WTOID) SETS(IDREG,XCTLREG) EXIT NOSEQFLOW; 00488000 XCTLWTO DS 0H 0226 00489000 LH IDREG,WTOID ID OF WTO RTN 00490000 L XCTLREG,CVTXTLER(,CVTREG) ADDR OF RES XCTL RTN 00491000 BR XCTLREG TO XCTL TO WTO RTN 00492000 EJECT 00493000 * 0227 00494000 * /*****************************************************************/ 00495000 * /* */ 00496000 * /* CHANNEL DATA CHECK */ 00497000 * /* */ 00498000 * /*****************************************************************/ 00499000 * 0227 00500000 *CHANDCK: 0227 00501000 * IF CDKSTAT=OFF THEN 0227 00502000 CHANDCK TM CDKSTAT(EWAPTR),B'00000001' 0227 00503000 BNZ @RF00227 0227 00504000 * CDKSTAT=ON; /* SET DATA CHECK FLAG */ 00505000 OI CDKSTAT(EWAPTR),B'00000001' 0228 00506000 * IF CONSOLE=ON THEN /* IF CONSOLE, GO TO RETRY */ 00507000 @RF00227 TM CONSOLE(EWAPTR),B'01000000' 0229 00508000 BO @RT00229 0229 00509000 * GO TO CONRETRY; 0230 00510000 * ELSE 0231 00511000 * GO TO ERR506A; /* HANDLE LIKE EQUIP CHECK */ 00512000 B ERR506A 0231 00513000 * GEN(EJECT); 0232 00514000 EJECT 00515000 * 0233 00516000 * /*****************************************************************/ 00517000 * /* */ 00518000 * /* RETRY REQUEST */ 00519000 * /* */ 00520000 * /*****************************************************************/ 00521000 * 0233 00522000 *CONRETRY: 0233 00523000 * IF EWANORTY=ON| /* IF ERPIB INDICATES NO RETRY 0233 00524000 * @ZA05633*/ 00525000 * RETRYCNT=FVRTRY THEN /* OR IF FIVE RETRIES, LOGOUT */ 00526000 CONRETRY TM EWANORTY(EWAPTR),B'00000001' 0233 00527000 BO @RT00233 0233 00528000 CLI RETRYCNT(EWAPTR),X'05' 0233 00529000 BE @RT00233 0233 00530000 * GO TO PERMERR; 0234 00531000 * ELSE 0235 00532000 * RETRYCNT=RETRYCNT+1; /* INCREMENT RETRY COUNTER */ 00533000 LA @14,1 0235 00534000 SLR @11,@11 0235 00535000 IC @11,RETRYCNT(,EWAPTR) 0235 00536000 ALR @14,@11 0235 00537000 STC @14,RETRYCNT(,EWAPTR) 0235 00538000 *ERR538: 0236 00539000 * IF CCWRST^>0 THEN /* INVALID CCW ADDR, RESTART FROM 00540000 * THE TOP */ 00541000 ERR538 LTR CCWRST,CCWRST 0236 00542000 BP @RF00236 0236 00543000 * IORSTRT=OFF; 0237 00544000 NI IORSTRT(EWAPTR),B'01111111' 0237 00545000 *RETRY: 0238 00546000 * GEN(LRA CCWRST,0(CCWRST)); 0238 00547000 @RF00236 DS 0H 0238 00548000 RETRY LRA CCWRST,0(CCWRST) 00549000 * IF IORSTRT=ON THEN 0239 00550000 TM IORSTRT(EWAPTR),B'10000000' 0239 00551000 BNO @RF00239 0239 00552000 * IOSRST=CCWRST; 0240 00553000 ST CCWRST,IOSRST(,IOSBPTR) 0240 00554000 * SVC(15); /* RETRY REQUEST */ 00555000 @RF00239 SVC 15 0241 00556000 * SVC(3); /* ISSUE SVC 3 TO EXIT */ 00557000 SVC 3 0242 00558000 * GEN(EJECT); 0243 00559000 EJECT 00560000 * 0244 00561000 * /*****************************************************************/ 00562000 * /* */ 00563000 * /* INTERROGATE ERPIB */ 00564000 * /* */ 00565000 * /*****************************************************************/ 00566000 * 0244 00567000 *ERPIBINT: 0244 00568000 * IF CONSOLE=OFF THEN /* IF NOT CONSOLE, TEST ERPIB */ 00569000 ERPIBINT TM CONSOLE(EWAPTR),B'01000000' 0244 00570000 BZ @RT00244 0244 00571000 * GO TO ERR540; 0245 00572000 * ELSE 0246 00573000 * GO TO CONRETRY; /* TO RETRY REQUEST */ 00574000 B CONRETRY 0246 00575000 *ERR540: 0247 00576000 * IF IOSCOD=IOSFINTC THEN /* IF INTERCEPTED ERROR, LOGOUT 00577000 * AND ISSUE 'I/O ERR' MSG */ 00578000 ERR540 CLI IOSCOD(IOSBPTR),X'7E' 0247 00579000 BE @RT00247 0247 00580000 * GO TO ERRWTO; 0248 00581000 * IF EWANORTY=ON THEN /* IF ERPIB INDICATES NO RETRY, 00582000 * LOGOUT AND ISSUE 'I/O ERR' MSG*/ 00583000 TM EWANORTY(EWAPTR),B'00000001' 0249 00584000 BO @RT00249 0249 00585000 * GO TO ERRWTO; 0250 00586000 * IF EWARGFG1=CSWSSIO THEN /* IF CSW STORED ON SIO, TEST IF 00587000 * FIRST OCCURRENCE */ 00588000 CLI EWARGFG1(EWAPTR),X'80' 0251 00589000 BE @RT00251 0251 00590000 * GO TO ERR550; 0252 00591000 * IF CCWRST^>0 THEN /* INVALID CCW ADDR, LOGOUT */ 00592000 LTR CCWRST,CCWRST 0253 00593000 BNP @RT00253 0253 00594000 * GO TO ERRWTO; 0254 00595000 * IF CMDCODE=NOP THEN /* IF ERROR ON NOP, TEST IF FIRST 00596000 * OCCURRENCE */ 00597000 CLI CMDCODE(CCWRST),X'03' 0255 00598000 BE @RT00255 0255 00599000 * GO TO ERR550; 0256 00600000 * IF RTRYCD4=OFF THEN /* IF NOT RETRY CODE 4, TEST 3 */ 00601000 TM RTRYCD4(EWAPTR),B'00000100' 0257 00602000 BZ @RT00257 0257 00603000 * GO TO ERR555; 0258 00604000 * IF RTRYCD2=OFF& /* FOUR ALONE, TEST COUNT */ 00605000 * RTRYCD1=OFF THEN 0259 00606000 TM RTRYCD2(EWAPTR),B'00000011' 0259 00607000 BZ @RT00259 0259 00608000 * GO TO ERR550; 0260 00609000 * IF RTRYCD1=OFF THEN /* RETRY CODE NOT 5, LOGOUT */ 00610000 @RF00259 TM RTRYCD1(EWAPTR),B'00000001' 0261 00611000 BZ @RT00261 0261 00612000 * GO TO ERRWTO; 0262 00613000 *ERR547: 0263 00614000 * IF CHCNTRL=ON THEN /* IF SECOND OCCURRENCE, LOGOUT 00615000 * AND ISSUE 'I/O ERR' MSG */ 00616000 ERR547 TM CHCNTRL(EWAPTR),B'00000010' 0263 00617000 BO @RT00263 0263 00618000 * GO TO ERRWTO; 0264 00619000 * CHCNTRL=ON; /* SET CONTROL CHECK FLAG */ 00620000 OI CHCNTRL(EWAPTR),B'00000010' 0265 00621000 * GO TO XCTLWTO; /* TO ISSUE 'INT REQ' MSG */ 00622000 B XCTLWTO 0266 00623000 *ERR550: 0267 00624000 * IF CHCNTRL=ON THEN /* IF SECOND OCCURRENCE, LOGOUT 00625000 * AND ISSUE 'I/O ERR' MSG */ 00626000 ERR550 TM CHCNTRL(EWAPTR),B'00000010' 0267 00627000 BO @RT00267 0267 00628000 * GO TO ERRWTO; 0268 00629000 * CHCNTRL=ON; /* SET CONTROL CHECK FLAG */ 00630000 OI CHCNTRL(EWAPTR),B'00000010' 0269 00631000 * GO TO ERR538; /* TO RETRY REQUEST */ 00632000 B ERR538 0270 00633000 *ERR555: 0271 00634000 * IF RTRYCD2=ON& /* RETRY CODE=3, MSG */ 00635000 * RTRYCD1=ON THEN 0271 00636000 ERR555 TM RTRYCD2(EWAPTR),B'00000011' 0271 00637000 BO @RT00271 0271 00638000 * GO TO ERR547; 0272 00639000 * IF RTRYCD2=OFF& /* RETRY CODE=0, LOGOUT */ 00640000 * RTRYCD1=OFF THEN 0273 00641000 TM RTRYCD2(EWAPTR),B'00000011' 0273 00642000 BZ @RT00273 0273 00643000 * GO TO ERRWTO; 0274 00644000 * ELSE 0275 00645000 * GO TO ERR550; /* CHECK IF RETRYABLE */ 00646000 B ERR550 0275 00647000 * GEN(EJECT); 0276 00648000 * 0276 00649000 EJECT 00650000 */*IEC1052A: CHART */ 00651000 */* HEADER 0277 00652000 */* IGE0000D - 1052/3215 ERRO 00653000 */*R RECOVERY PROCEDURE PAGE #1 */ 00654000 */* E ER1052A */ 00655000 */* P GET UCB ADDR FROM IOSB */ 00656000 */* D (YES,,NO,%LAB1) IS DEVICE A CONSOLE */ 00657000 */* P SET MCS CONSOLE FLAG IN EWA */ 00658000 */*%LAB1: P SET IOSEX AND IOSERR FLAGS */ 00659000 */* D (YES,,NO,ERR500) CONTROL BIT 1 ON */ 00660000 */* P CLEAR CONTROL BIT 1 */ 00661000 */* S IOSGEN:SET 'UCBNRY' FLAG */ 00662000 */*RETRYINT: P CLEAR RESTART FLAG IN EWA */ 00663000 */* R SVC 15 TO RETRY */ 00664000 */*ERR500: D (YES,,NO,ERR500B) CONTROL BIT 0 ON */ 00665000 */* P (,PERMERR) RESTORE ORIGINAL CSW TO IOSB */ 00666000 */*ERR500B: P CALCULATE CCW RESTART ADDR */ 00667000 */* D (YES,,NO,ERR500A) CMD CHAINED CHAN PGM */ 00668000 */* P SET RESTART FLAG IN EWA */ 00669000 */*ERR500A: D (NO,,YES,ERPIBINT) CHAN/INTF CNTRL CK */ 00670000 */* D (NO,,YES,ERR524A) CHANNEL CHAINING CK */ 00671000 */* D (YES,,NO,STATUS) UNIT CHECK STATUS */ 00672000 */* P 'OR' SENSE BYTE INTO STAT ENTRY */ 00673000 */*SENSE: S CVTXITP:INTERPRET SENSE BYTE */ 00674000 */* D (IERR,HDWERR,IERR,HDWERR,IERR,HDWERR,IERR,HDWERR,EQCK,EQUIPCK, 00675000 */*INTR,INTREQ,BUSO,BUSOUT,CREJ,PGMERR,EOT,HDWERR) TEST SENSE BYTE */ 00676000 */*CONRETRY: D (NO,,YES,PERMERR) RETRIES=5 OR ERPIB=NO RETRY */ 00677000 */* P INCREMENT ERROR COUNT */ 00678000 */*ERR538: D (NO,,YES,RETRY) VALID CCW ADDR */ 00679000 */* P CLEAR RESTART FLAG IN EWA */ 00680000 */*RETRY: R SVC 15 TO RETRY */ 00681000 */*HDWERR: D (NO,,YES,CONRETRY) IS DEVICE A CONSOLE */ 00682000 */*PERMERR: P SET IOSLOG FLAG */ 00683000 */* P CLEAR IOSERR FLAG */ 00684000 */* P (,XCTLSTAT) CLEAR RESTART FLAG IN EWA */ 00685000 */*ERPIBINT: D (NO,,YES,CONRETRY) IS DEVICE A CONSOLE */ 00686000 */*ERR540: D (NO,,YES,ERRWTO) INTERCEPTED ERROR */ 00687000 */* D (NO,,YES,ERRWTO) ERPIB = NO RETRY */ 00688000 */* D (NO,,YES,ERR550) CSW STORED ON SIO */ 00689000 */* D (YES,,NO,ERRWTO) VALID CCW ADDR */ 00690000 */* D (NO,,YES,ERR550) NOP COMMAND */ 00691000 */* D (YES,,NO,ERR555) RETRY CODE = 4 */ 00692000 */* D (MIXD,,FOUR,ERR550,SEVN,ERR547) RETRY CODE 4 ONLY */ 00693000 */* D (YES,,NO,ERRWTO) RETRY CODE = 5 */ 00694000 */* ERR547: D (NO,,YES,ERRWTO) ERROR COUNT = 1 */ 00695000 */* P (,XCTLWTO) SET ERROR COUNT TO 1 */ 00696000 */*ERR555: D (MIXD,,ZERO,ERRWTO,THRE,ERR547) RETRY CODE = 3 */ 00697000 */*ERR550: D (NO,,YES,ERRWTO) ERROR COUNT = 1 */ 00698000 */* P (,ERR538) SET ERROR COUNT TO 1 */ 00699000 */*EQUIPCK: D (NO,,YES,CONRETRY) IS DEVICE A CONSOLE */ 00700000 */*ERR506A: D (YES,,NO,PGMERR) VALID CCW ADDR */ 00701000 */* D (YES,,NO,ERRWTO) WRITE COMMAND */ 00702000 */* D (NO,,YES,ERR511) WRITE COUNT = 1 */ 00703000 */* P (,RETRY) SET WRITE COUNT TO 1 */ 00704000 */*ERR524A: D (NO,,YES,CONRETRY) IS DEVICE A CONSOLE */ 00705000 */*ERRWTO: P SET IOSLOG FLAG */ 00706000 */* P SET IOSMSG TO INDICATE PERM ERROR */ 00707000 */* P CLEAR RESTART FLAG IN EWA */ 00708000 */*XCTLWTO: R XCTL TO WTO RTN */ 00709000 */*INTREQ: P SET CONTROL BIT 1 */ 00710000 */* D (YES,,NO,ALARM) IS DEVICE A CONSOLE */ 00711000 */* P (,XCTLWTO) SET BROADCAST FLAG IN IOSB */ 00712000 */*BUSOUT: D (NO,,YES,CONRETRY) IS DEVICE A CONSOLE */ 00713000 */* D (YES,,NO,ERR514) BUSOUT COUNT = 1 */ 00714000 */*ERR511: P SET CONTROL BIT 0 */ 00715000 */* P SAVE ORIGINAL CSW IN EWA */ 00716000 */*ALARM: P SET CNTRL ALARM CMD IN MOD BYTE */ 00717000 */* P SET IOSSMDA FOR IMMEDIATE OP */ 00718000 */* R SVC 15 TO RING BELL */ 00719000 */*ERR514: P SET BUSOUT COUNT TO 1 */ 00720000 */* D (NO,,YES,RETRY) CHAN END OCCUR */ 00721000 */* P (,RETRY) CLEAR RESTART FLAG IN EWA */ 00722000 */*PGMERR: P CLEAR IOSERR FLAG */ 00723000 */* P CLEAR RESTART FLAG IN EWA */ 00724000 */* R SVC 15 - PERM ERROR */ 00725000 */*STATUS: S CVTXITP:INTERPRET STATUS BYTES */ 00726000 */* D (CDCK,CHANDCK,PGCK,PGMERR,PCK,PGMERR,UEX,UNITEX,IL, 0277 00727000 */*PGMERR,EOT,ERRCORR) TEST STATUS BYTES */ 00728000 */*CHANDCK: D (NO,,YES,%LAB5) ERROR COUNT = 1 */ 00729000 */* P SET CHAN DATA CK IN STAT ENT */ 00730000 */* P SET ERROR COUNT TO 1 */ 00731000 */*%LAB5: D (NO,ERR506A,YES,CONRETRY) IS DEVICE A CONSOLE */ 00732000 */*UNITEX: D (YES,,NO,PGMERR) IS DEVICE A CONSOLE */ 00733000 */* D (YES,,NO,RETRY) IS IT A READ COMMAND */ 00734000 */* P (,RETRY) BLANK OUT DATA BUFFER */ 00735000 */*ERRCORR: D (NO,,YES,ERR521) COMP CODE = '7F' */ 00736000 */* P SET COMP CODE TO '7F' */ 00737000 */* D (NO,,YES,ERR521) STAT UPDATE NEEDED */ 00738000 */* R SVC 15 */ 00739000 */*ERR521: P CLEAR IOSEX AND IOSERR FLAGS */ 00740000 */* P CLEAR RESTART FLAG IN EWA */ 00741000 */* P CLEAR UCK STATUS IN CSW */ 00742000 */*XCTLSTAT: R XCTL TO STAT UPDATE */ 00743000 */* END */ 00744000 * 0277 00745000 * END IEC1052 0277 00746000 * 0277 00747000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00748000 */*%INCLUDE SYSLIB (CVT ) */ 00749000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00750000 */*%INCLUDE SYSLIB (IECDIOCM) */ 00751000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00752000 */*%INCLUDE SYSLIB (EWAMAP ) */ 00753000 */*%INCLUDE SYSLIB (EWUMAP ) */ 00754000 * 0277 00755000 * ; 0277 00756000 @DATA DS 0H 00757000 @DATD DSECT 00758000 DS 0F 00759000 IEC1052 CSECT 00760000 DS 0F 00761000 @DATD DSECT 00762000 DS 0D 00763000 IOCOMPTR DS A 00764000 EWUCSW DS CL7 00765000 DS CL1 00766000 IOSGENSV DS 16F 00767000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00768000 @ENDDATD EQU * 00769000 IEC1052 CSECT 00770000 DS 0F 00771000 @SIZDATD DC AL1(0) 00772000 DC AL3(@ENDDATD-@DATD) 00773000 DS 0D 00774000 STATID DC XL2'FE' 00775000 WTOID DC XL2'FD' 00776000 CCWLEN DC H'8' 00777000 PATCH DC CL70'IGE0000D 037 8/25/76 UZ06265' 00778000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00779000 @01 EQU 01 00780000 @02 EQU 02 00781000 @03 EQU 03 00782000 @04 EQU 04 00783000 @05 EQU 05 00784000 @06 EQU 06 00785000 @07 EQU 07 00786000 @08 EQU 08 00787000 @09 EQU 09 00788000 @10 EQU 10 00789000 @11 EQU 11 00790000 @12 EQU 12 00791000 @13 EQU 13 00792000 @14 EQU 14 00793000 @15 EQU 15 00794000 UCBPTR EQU @06 00795000 IOSBPTR EQU @01 00796000 EWAPTR EQU @02 00797000 REG0 EQU @00 00798000 CCWRST EQU @03 00799000 CVTREG EQU @04 00800000 DATDREG EQU @05 00801000 SAVREG EQU @09 00802000 REG11 EQU @11 00803000 IDREG EQU @13 00804000 XCTLREG EQU @14 00805000 BASREG EQU @15 00806000 CVTPTR EQU 16 00807000 CVTMAP EQU 0 00808000 CVTXTLER EQU CVTMAP+44 00809000 CVTXITP EQU CVTMAP+68 00810000 CVTDAR EQU CVTMAP+72 00811000 CVTFLGS1 EQU CVTDAR 00812000 CVTDCB EQU CVTMAP+116 00813000 CVTIXAVL EQU CVTMAP+124 00814000 CVTIERLC EQU CVTMAP+144 00815000 CVTOPTA EQU CVTMAP+182 00816000 CVTOPTB EQU CVTMAP+183 00817000 CVTGTF EQU CVTMAP+236 00818000 CVTGTFST EQU CVTGTF 00819000 CVTGTFS EQU CVTGTFST 00820000 CVTSTATE EQU CVTGTFST 00821000 CVTTMODE EQU CVTGTFST 00822000 CVTFORM EQU CVTGTFST 00823000 CVTAQAVT EQU CVTMAP+240 00824000 CVTTCMFG EQU CVTAQAVT 00825000 CVTVOLM2 EQU CVTMAP+244 00826000 CVTTATA EQU CVTVOLM2 00827000 CVTTSKS EQU CVTTATA 00828000 CVTVOLF2 EQU CVTTSKS 00829000 CVTTAT EQU CVTTATA+1 00830000 CVTATER EQU CVTMAP+248 00831000 CVTEXT1 EQU CVTMAP+252 00832000 CVTPURG EQU CVTMAP+260 00833000 CVTQMSG EQU CVTMAP+268 00834000 CVTDMSR EQU CVTMAP+272 00835000 CVTRSV37 EQU CVTDMSR 00836000 CVTDMSRF EQU CVTRSV37 00837000 CVTPTRV EQU CVTMAP+288 00838000 CVTERPV EQU CVTMAP+316 00839000 CVTINTLA EQU CVTMAP+320 00840000 CVTAPF EQU CVTMAP+324 00841000 CVTEXT2 EQU CVTMAP+328 00842000 CVTHJES EQU CVTMAP+332 00843000 CVTPGSIA EQU CVTMAP+348 00844000 CVTA1F1 EQU CVTMAP+356 00845000 CVTSYSK EQU CVTMAP+357 00846000 CVTVOLM1 EQU CVTMAP+380 00847000 CVTVOLF1 EQU CVTVOLM1 00848000 CVTATMCT EQU CVTMAP+388 00849000 CVTXTNT1 EQU 0 00850000 CVTXTNT2 EQU 0 00851000 CVTDSSV EQU CVTXTNT2 00852000 CVTFLGBT EQU CVTXTNT2+5 00853000 CVTQID EQU CVTXTNT2+24 00854000 CVTRV400 EQU CVTXTNT2+52 00855000 CVTRV409 EQU CVTXTNT2+53 00856000 CVTATCVT EQU CVTXTNT2+64 00857000 CVTRV429 EQU CVTXTNT2+84 00858000 CVTRV438 EQU CVTXTNT2+85 00859000 CVTRV457 EQU CVTXTNT2+112 00860000 CVTRV466 EQU CVTXTNT2+113 00861000 CVTFIX EQU 0 00862000 CVTRELNO EQU CVTFIX+252 00863000 UCB EQU 0 00864000 UCBOB EQU 0 00865000 UCBJBNR EQU UCBOB 00866000 UCBFL5 EQU UCBOB+1 00867000 UCBAF EQU UCBFL5 00868000 UCBSTAT EQU UCBOB+3 00869000 UCBSYSR EQU UCBSTAT 00870000 UCBCHAN EQU UCBOB+4 00871000 UCBSFLS EQU UCBOB+6 00872000 UCBFLA EQU UCBSFLS 00873000 UCBFL1 EQU UCBFLA 00874000 UCBBSY EQU UCBFL1 00875000 UCBNRY EQU UCBFL1 00876000 UCBPST EQU UCBFL1 00877000 UCBCUB EQU UCBFL1 00878000 UCBFLB EQU UCBSFLS+1 00879000 UCBCHM EQU UCBOB+8 00880000 UCBCHM1 EQU UCBCHM 00881000 UCBPTH0 EQU UCBCHM1 00882000 UCBPTH1 EQU UCBCHM1 00883000 UCBWGT EQU UCBOB+12 00884000 UCBTYP EQU UCBOB+16 00885000 UCBTBYT1 EQU UCBTYP 00886000 UCB1FEA5 EQU UCBTBYT1 00887000 UCB1FEA6 EQU UCBTBYT1 00888000 UCBTBYT2 EQU UCBTYP+1 00889000 UCB2OPT2 EQU UCBTBYT2 00890000 UCBDUDN1 EQU UCB2OPT2 00891000 UCB2OPT3 EQU UCBTBYT2 00892000 UCBDUDN2 EQU UCB2OPT3 00893000 UCB2OPT4 EQU UCBTBYT2 00894000 UCBRWTAU EQU UCB2OPT4 00895000 UCB2OPT6 EQU UCBTBYT2 00896000 UCB2OPT7 EQU UCBTBYT2 00897000 UCBTBYT3 EQU UCBTYP+2 00898000 UCBDVCLS EQU UCBTBYT3 00899000 UCB3TAPE EQU UCBDVCLS 00900000 UCBTBYT4 EQU UCBTYP+3 00901000 UCBEXTPT EQU UCBOB+20 00902000 UCBFLC EQU UCBEXTPT 00903000 UCBDEV EQU UCBOB+24 00904000 UCBCMEXT EQU 0 00905000 UCBATI EQU UCBCMEXT+3 00906000 @NM00006 EQU UCBATI 00907000 UCBFLP1 EQU UCBCMEXT+5 00908000 UCBCCWOF EQU UCBCMEXT+8 00909000 UCBMT EQU 0 00910000 UCBOCR EQU 0 00911000 UCB3540X EQU 0 00912000 UCBDKBYT EQU UCB3540X+6 00913000 UCB3800X EQU 0 00914000 UCBOPTNS EQU UCB3800X 00915000 UCBACTIV EQU UCB3800X+3 00916000 UCBMDRBF EQU UCB3800X+36 00917000 UCBUCS EQU 0 00918000 UCBUCSOP EQU UCBUCS+4 00919000 UCBFCBOP EQU UCBUCS+5 00920000 UCBBGN EQU 0 00921000 IOCOM EQU 0 00922000 IOCGENA EQU IOCOM+84 00923000 IOSB EQU 0 00924000 IOSFLA EQU IOSB 00925000 IOSACHN EQU IOSFLA 00926000 IOSCCHN EQU IOSACHN 00927000 IOSERR EQU IOSFLA 00928000 IOSSMDA EQU IOSFLA 00929000 IOSEX EQU IOSFLA 00930000 IOSFLB EQU IOSB+1 00931000 IOSMSG EQU IOSFLB 00932000 IOSBDCST EQU IOSFLB 00933000 IOSLOG EQU IOSFLB 00934000 IOSFLC EQU IOSB+2 00935000 IOSDVALT EQU IOSFLC 00936000 IOSPKEY EQU IOSB+12 00937000 IOSCOD EQU IOSB+13 00938000 IOSOPT EQU IOSB+14 00939000 IOSOPT2 EQU IOSB+15 00940000 IOSUCB EQU IOSB+16 00941000 @NM00010 EQU IOSB+20 00942000 IOSCSW EQU @NM00010+1 00943000 IOSCSWCA EQU IOSCSW 00944000 IOSTATUS EQU IOSCSW+3 00945000 IOSSNS EQU IOSB+42 00946000 IOSIPIB EQU IOSB+44 00947000 IOSERP EQU IOSB+52 00948000 IOSDIE EQU IOSB+68 00949000 IOSDIEFG EQU IOSDIE 00950000 IOSRST EQU IOSB+72 00951000 IOSVST EQU IOSB+76 00952000 IOSPATH EQU IOSB+86 00953000 IOSCHN EQU IOSPATH 00954000 IOSCKEY EQU IOSB+89 00955000 IOSMDB EQU IOSB+90 00956000 IOSEEKA EQU IOSB+100 00957000 IOSCCHH EQU IOSEEKA+3 00958000 IOSSKHH EQU IOSCCHH+2 00959000 EWA EQU 0 00960000 EWAHDR EQU EWA 00961000 EWAFLAGS EQU EWA+4 00962000 EWAFLG1 EQU EWAFLAGS 00963000 EWASCCD EQU EWAFLG1 00964000 EWASCC3 EQU EWASCCD 00965000 EWAFLG2 EQU EWAFLAGS+1 00966000 EWAFLG3 EQU EWAFLAGS+2 00967000 EWASNSCT EQU EWAFLAGS+3 00968000 EWACNTRS EQU EWA+10 00969000 EWACNTR1 EQU EWACNTRS 00970000 EWACNTR2 EQU EWACNTRS+1 00971000 EWASTUP EQU EWA+14 00972000 EWAERPIB EQU EWA+16 00973000 EWARGFG1 EQU EWAERPIB+4 00974000 EWANORTY EQU EWARGFG1 00975000 EWARGFG2 EQU EWAERPIB+5 00976000 EWAXCSW1 EQU EWAERPIB+6 00977000 EWAXCSW2 EQU EWAERPIB+7 00978000 EWAIERP EQU EWA+32 00979000 CCW EQU 0 00980000 CMDCODE EQU CCW 00981000 @NM00034 EQU 0 00982000 DATADDR EQU @NM00034 00983000 DATACMD EQU DATADDR 00984000 DATACNT EQU @NM00034+6 00985000 CVTS01 EQU CVTPGSIA 00986000 CVTLPDIA EQU CVTS01+12 00987000 CVTDIRST EQU CVTLPDIA 00988000 CVTSLIDA EQU CVTS01+24 00989000 CVTCTLFG EQU CVTS01+50 00990000 CVTRV210 EQU CVTS01+424 00991000 CVTRV219 EQU CVTS01+425 00992000 CVTRV228 EQU CVTS01+426 00993000 CVTRV237 EQU CVTS01+427 00994000 CVTMFRTR EQU CVTS01+452 00995000 CVTRV262 EQU CVTS01+468 00996000 CVTRV271 EQU CVTS01+469 00997000 CVTRV280 EQU CVTS01+470 00998000 CVTRV289 EQU CVTS01+471 00999000 CVTGSDA EQU CVTS01+600 01000000 UCBOBS01 EQU UCBDEV 01001000 UCBSTAB EQU UCBOBS01+10 01002000 UCBBSVL EQU UCBSTAB 01003000 UCBPRSRS EQU UCBSTAB 01004000 UCBDMCT EQU UCBOBS01+11 01005000 UCBFL4 EQU UCBOBS01+13 01006000 UCBOBS02 EQU UCBDEV 01007000 UCBTFL1 EQU UCBOBS02+19 01008000 UCBXTN EQU UCBOBS02+20 01009000 UCBVOPT EQU UCBXTN 01010000 UCBOBS03 EQU UCBDEV 01011000 UCBXTADR EQU UCBOBS03 01012000 UCBOBS04 EQU UCBDEV 01013000 UCBBTA EQU UCBOBS04+12 01014000 UCBOBS06 EQU UCBDEV 01015000 UCBAOF EQU UCBOBS06 01016000 UCBAOF1 EQU UCBAOF 01017000 UCBAOF2 EQU UCBAOF+1 01018000 @NM00005 EQU UCBOBS06+3 01019000 UCBIRB EQU UCBOBS06+4 01020000 UCBGRAF EQU UCBIRB 01021000 UCBLDNCA EQU UCBOBS06+8 01022000 UCBRDYQ EQU UCBLDNCA 01023000 UCBIRLN EQU UCBRDYQ 01024000 UCBLDNCB EQU UCBRDYQ+1 01025000 UCBCTLNK EQU UCBOBS06+12 01026000 UCBOBS07 EQU UCBDEV 01027000 UCBOBS08 EQU UCBDEV 01028000 UCBCTCAD EQU UCBOBS08 01029000 UCBCTCF1 EQU UCBOBS08+4 01030000 UCBOBS09 EQU UCBDEV 01031000 IOSATTSC EQU IOSIPIB 01032000 IOSWTOWA EQU IOSIPIB 01033000 IOSPCISC EQU IOSIPIB 01034000 EWADDIOS EQU EWAIERP 01035000 EWUMAP EQU EWAIERP 01036000 EWUSN0 EQU EWUMAP 01037000 EWUBUFP EQU EWUSN0 01038000 EWULDCK EQU EWUSN0 01039000 EWUUSEQ EQU EWULDCK 01040000 EWUCH9 EQU EWUSN0 01041000 EWUSN1 EQU EWUMAP+1 01042000 EWUCRTRY EQU EWUSN1 01043000 EWUPCK EQU EWUSN1 01044000 EWUPQ EQU EWUSN1 01045000 EWULNPOS EQU EWUSN1 01046000 EWUSN2 EQU EWUMAP+2 01047000 EWUWORK EQU EWUMAP+8 01048000 RETRYCNT EQU EWACNTR1 01049000 @NM00027 EQU EWACNTR2 01050000 IORSTRT EQU @NM00027 01051000 CONSOLE EQU @NM00027 01052000 WRITECT EQU @NM00027 01053000 IOBOERR EQU @NM00027 01054000 CNTRLB1 EQU @NM00027 01055000 CNTRLB0 EQU @NM00027 01056000 CHCNTRL EQU @NM00027 01057000 IOENTRY EQU @NM00027 01058000 @NM00028 EQU EWASTUP 01059000 CDKSTAT EQU @NM00028+1 01060000 @NM00030 EQU EWAXCSW2 01061000 RTRYCD EQU @NM00030 01062000 RTRYCD4 EQU RTRYCD 01063000 RTRYCD2 EQU RTRYCD 01064000 RTRYCD1 EQU RTRYCD 01065000 @NM00033 EQU IOSTATUS 01066000 CSWCHE EQU @NM00033 01067000 CSWUCK EQU @NM00033 01068000 CSWCTK EQU @NM00033+1 01069000 CSWICK EQU @NM00033+1 01070000 CSWCCK EQU @NM00033+1 01071000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01072000 CSWCDK EQU @NM00033+1 01073000 CSWPCK EQU @NM00033+1 01074000 CSWPC EQU @NM00033+1 01075000 CSWIL EQU @NM00033+1 01076000 CSWPCI EQU @NM00033+1 01077000 CSWUEX EQU @NM00033 01078000 CSWDVE EQU @NM00033 01079000 CSWBSY EQU @NM00033 01080000 CSWCUE EQU @NM00033 01081000 CSWSMD EQU @NM00033 01082000 CSWATN EQU @NM00033 01083000 @NM00031 EQU @NM00030 01084000 @NM00029 EQU @NM00028 01085000 @NM00026 EQU EWUMAP+6 01086000 EWUSN5 EQU EWUMAP+5 01087000 EWUSN4 EQU EWUMAP+4 01088000 EWUSN3 EQU EWUMAP+3 01089000 EWUFCBP EQU EWUSN2 01090000 EWUPLBP EQU EWUSN2 01091000 EWUUCSBP EQU EWUSN2 01092000 @NM00025 EQU EWUSN1 01093000 EWUMECMO EQU EWUSN1 01094000 EWUSUPR EQU EWUSN1 01095000 EWUFORM EQU EWUSN1 01096000 EWUIRTRY EQU EWULNPOS 01097000 EWUMOT EQU EWUPQ 01098000 EWUARTRY EQU EWUPCK 01099000 EWUPERM EQU EWUCRTRY 01100000 EWUPEK EQU EWUCH9 01101000 EWUABFR EQU EWUUSEQ 01102000 EWUOVRN EQU EWUBUFP 01103000 EWUDTCK EQU EWUSN0 01104000 EWUEQCK EQU EWUSN0 01105000 EWUBUSO EQU EWUSN0 01106000 EWUINT EQU EWUSN0 01107000 EWUCREJ EQU EWUSN0 01108000 EWAEND EQU EWADDIOS+71 01109000 EWASCSW EQU EWADDIOS+64 01110000 EWASNS EQU EWADDIOS 01111000 IOSPCIWA EQU IOSPCISC+44 01112000 IOSPCIRS EQU IOSPCISC+8 01113000 @NM00015 EQU IOSPCISC+4 01114000 @NM00014 EQU IOSPCISC 01115000 IOSWRNDR EQU IOSWTOWA+4 01116000 IOSWTOPT EQU IOSWTOWA+3 01117000 IOSWTOCP EQU IOSWTOWA+2 01118000 IOSWTOCH EQU IOSWTOWA 01119000 IOSATTWA EQU IOSATTSC+40 01120000 @NM00013 EQU IOSATTSC+24 01121000 IOSATTSN EQU IOSATTSC 01122000 UCBRV066 EQU UCBOBS09+4 01123000 UCBIOSBA EQU UCBOBS09 01124000 UCBRV042 EQU UCBOBS08+5 01125000 UCBRV082 EQU UCBCTCF1 01126000 UCBRV081 EQU UCBCTCF1 01127000 UCBRV080 EQU UCBCTCF1 01128000 UCBRV079 EQU UCBCTCF1 01129000 UCBRV078 EQU UCBCTCF1 01130000 UCBRV077 EQU UCBCTCF1 01131000 UCBRV076 EQU UCBCTCF1 01132000 UCBCTC80 EQU UCBCTCF1 01133000 UCBCTCAL EQU UCBCTCAD 01134000 UCBICNCB EQU UCBOBS07+4 01135000 UCBRV040 EQU UCBOBS07 01136000 UCBCTLNA EQU UCBCTLNK+1 01137000 UCBRLN EQU UCBCTLNK 01138000 UCBRDYQA EQU UCBLDNCB 01139000 UCBINRLN EQU UCBIRLN 01140000 UCBIRBA EQU UCBIRB+1 01141000 UCBRV039 EQU UCBGRAF 01142000 UCBDWNR EQU UCBGRAF 01143000 UCBRPND EQU UCBGRAF 01144000 UCBUPM EQU UCBGRAF 01145000 UCBBTAM EQU UCBGRAF 01146000 UCBDRNO EQU UCBGRAF 01147000 UCBDRO EQU UCBGRAF 01148000 UCBOIP EQU UCBGRAF 01149000 UCBATRCD EQU @NM00005 01150000 UCBSKPFG EQU @NM00005 01151000 UCBRIPND EQU @NM00005 01152000 UCBRTIAC EQU @NM00005 01153000 UCBRSV79 EQU @NM00005 01154000 UCBRSV78 EQU @NM00005 01155000 UCBRSV77 EQU @NM00005 01156000 UCBOLTEP EQU @NM00005 01157000 UCBATNCT EQU UCBOBS06+2 01158000 UCBRSV76 EQU UCBAOF2 01159000 UCBRSV75 EQU UCBAOF2 01160000 UCBRSV74 EQU UCBAOF2 01161000 UCBRSV73 EQU UCBAOF2 01162000 UCBRSV72 EQU UCBAOF2 01163000 UCBRSV71 EQU UCBAOF2 01164000 UCBRSV70 EQU UCBAOF2 01165000 UCBRSV69 EQU UCBAOF2 01166000 UCBRSV68 EQU UCBAOF1 01167000 UCBRSV67 EQU UCBAOF1 01168000 UCBRSV66 EQU UCBAOF1 01169000 UCBRSV65 EQU UCBAOF1 01170000 UCBRSV64 EQU UCBAOF1 01171000 UCBOFNL EQU UCBAOF1 01172000 UCBOFSP EQU UCBAOF1 01173000 UCBOFMCR EQU UCBAOF1 01174000 UCBBTB EQU UCBBTA+1 01175000 UCBDI EQU UCBBTA 01176000 UCBSNS EQU UCBOBS04+8 01177000 UCBTEB EQU UCBOBS04+4 01178000 UCBGCB EQU UCBOBS04+3 01179000 UCBOPEN EQU UCBOBS04+2 01180000 UCBSTART EQU UCBOBS04 01181000 UCBXTNB EQU UCBXTN+1 01182000 UCBRSV22 EQU UCBVOPT 01183000 UCBRSV21 EQU UCBVOPT 01184000 UCBRSV20 EQU UCBVOPT 01185000 UCBESVE EQU UCBVOPT 01186000 UCBERPC EQU UCBVOPT 01187000 UCBESVC EQU UCBVOPT 01188000 UCBEVA EQU UCBVOPT 01189000 UCBESV EQU UCBVOPT 01190000 UCBRV009 EQU UCBTFL1 01191000 UCBRV008 EQU UCBTFL1 01192000 UCBRV007 EQU UCBTFL1 01193000 UCBRV006 EQU UCBTFL1 01194000 UCBRV005 EQU UCBTFL1 01195000 UCBRV038 EQU UCBTFL1 01196000 UCBNSLTP EQU UCBTFL1 01197000 UCBNLTP EQU UCBTFL1 01198000 UCBRES1B EQU UCBOBS02+18 01199000 UCBFSER EQU UCBOBS02+12 01200000 @NM00004 EQU UCBOBS02+4 01201000 UCBFSEQ EQU UCBOBS02+2 01202000 UCBFSCT EQU UCBOBS02 01203000 UCBNEXP EQU UCBOBS01+20 01204000 UCBBASE EQU UCBOBS01+16 01205000 UCBRES1A EQU UCBOBS01+15 01206000 UCBUSER EQU UCBOBS01+14 01207000 UCBFL47 EQU UCBFL4 01208000 UCBFL46 EQU UCBFL4 01209000 UCBFL45 EQU UCBFL4 01210000 UCBRV065 EQU UCBFL4 01211000 UCBDSS EQU UCBFL4 01212000 UCBRV028 EQU UCBFL4 01213000 UCBWDAV EQU UCBFL4 01214000 UCBDAVV EQU UCBFL4 01215000 UCBSQC EQU UCBOBS01+12 01216000 UCBDATP EQU UCBOBS01+12 01217000 UCBDMC EQU UCBDMCT 01218000 UCBMOUNT EQU UCBDMCT 01219000 UCBBNUL EQU UCBSTAB 01220000 UCBSHAR EQU UCBSTAB 01221000 UCBBSTR EQU UCBSTAB 01222000 UCBBPUB EQU UCBSTAB 01223000 UCBBPRV EQU UCBSTAB 01224000 UCBBALB EQU UCBPRSRS 01225000 UCBPGFL EQU UCBSTAB 01226000 UCBDVSHR EQU UCBBSVL 01227000 UCBVOLI EQU UCBOBS01+4 01228000 UCBVTOC EQU UCBOBS01 01229000 CVTRV628 EQU CVTS01+728 01230000 CVTRV627 EQU CVTS01+724 01231000 CVTRV626 EQU CVTS01+720 01232000 CVTRV625 EQU CVTS01+716 01233000 CVTRV624 EQU CVTS01+712 01234000 CVTRV623 EQU CVTS01+708 01235000 CVTRV622 EQU CVTS01+704 01236000 CVTRV621 EQU CVTS01+700 01237000 CVTIHASU EQU CVTS01+696 01238000 CVTRV619 EQU CVTS01+692 01239000 CVTRV618 EQU CVTS01+688 01240000 CVTRV617 EQU CVTS01+684 01241000 CVTRV616 EQU CVTS01+680 01242000 CVTRV615 EQU CVTS01+676 01243000 CVTRV614 EQU CVTS01+672 01244000 CVTRV613 EQU CVTS01+668 01245000 CVTTCASP EQU CVTS01+664 01246000 CVT0PT03 EQU CVTS01+660 01247000 CVT0PT0E EQU CVTS01+656 01248000 CVTRV609 EQU CVTS01+652 01249000 CVTCGK EQU CVTS01+648 01250000 CVTRAC EQU CVTS01+644 01251000 CVTRV606 EQU CVTS01+640 01252000 CVTRV605 EQU CVTS01+636 01253000 CVTRV604 EQU CVTS01+632 01254000 CVTEFF02 EQU CVTS01+628 01255000 CVTCBBR EQU CVTS01+624 01256000 CVTSSCR EQU CVTS01+620 01257000 CVTEVENT EQU CVTS01+616 01258000 CVTCRCA EQU CVTS01+612 01259000 CVTTPIO EQU CVTS01+608 01260000 CVTADV EQU CVTS01+604 01261000 CVTGSDAB EQU CVTGSDA 01262000 CVTQV3 EQU CVTS01+596 01263000 CVTQV2 EQU CVTS01+592 01264000 CVTQV1 EQU CVTS01+588 01265000 CVTRPT EQU CVTS01+584 01266000 CVTSSRB EQU CVTS01+580 01267000 CVTCSDRL EQU CVTS01+576 01268000 CVTEXP1 EQU CVTS01+572 01269000 CVTRMPMT EQU CVTS01+568 01270000 CVTRMPTT EQU CVTS01+564 01271000 CVTVPSA EQU CVTS01+560 01272000 CVTVSTOP EQU CVTS01+556 01273000 CVTGTFR8 EQU CVTS01+552 01274000 CVTQUIT EQU CVTS01+548 01275000 CVTVACR EQU CVTS01+544 01276000 CVTWTCB EQU CVTS01+540 01277000 CVTSTPRS EQU CVTS01+536 01278000 CVT0PT02 EQU CVTS01+532 01279000 CVTDARCM EQU CVTS01+528 01280000 CVTIRECM EQU CVTS01+524 01281000 CVTJRECM EQU CVTS01+520 01282000 CVTVEMS0 EQU CVTS01+516 01283000 CVTSPFRR EQU CVTS01+512 01284000 CVTRLSTG EQU CVTS01+508 01285000 CVT0TC0A EQU CVTS01+504 01286000 CVTGMBR EQU CVTS01+500 01287000 CVTLFRM EQU CVTS01+496 01288000 CVTRMBR EQU CVTS01+492 01289000 CVTVIOP EQU CVTS01+488 01290000 CVTRV307 EQU CVTS01+486 01291000 CVTRV306 EQU CVTS01+484 01292000 CVTRV305 EQU CVTS01+482 01293000 CVTRV304 EQU CVTS01+480 01294000 CVTRV303 EQU CVTS01+478 01295000 CVTRV302 EQU CVTS01+476 01296000 CVTTRCA EQU CVTS01+472 01297000 CVTRV297 EQU CVTRV289 01298000 CVTRV296 EQU CVTRV289 01299000 CVTRV295 EQU CVTRV289 01300000 CVTRV294 EQU CVTRV289 01301000 CVTRV293 EQU CVTRV289 01302000 CVTRV292 EQU CVTRV289 01303000 CVTRV291 EQU CVTRV289 01304000 CVTRV290 EQU CVTRV289 01305000 CVTRV288 EQU CVTRV280 01306000 CVTRV287 EQU CVTRV280 01307000 CVTRV286 EQU CVTRV280 01308000 CVTRV285 EQU CVTRV280 01309000 CVTRV284 EQU CVTRV280 01310000 CVTRV283 EQU CVTRV280 01311000 CVTRV282 EQU CVTRV280 01312000 CVTRV281 EQU CVTRV280 01313000 CVTRV279 EQU CVTRV271 01314000 CVTRV278 EQU CVTRV271 01315000 CVTRV277 EQU CVTRV271 01316000 CVTRV276 EQU CVTRV271 01317000 CVTRV275 EQU CVTRV271 01318000 CVTRV274 EQU CVTRV271 01319000 CVTRV273 EQU CVTRV271 01320000 CVTRV272 EQU CVTRV271 01321000 CVTRV270 EQU CVTRV262 01322000 CVTRV269 EQU CVTRV262 01323000 CVTRV268 EQU CVTRV262 01324000 CVTRV267 EQU CVTRV262 01325000 CVTRV266 EQU CVTRV262 01326000 CVTRV265 EQU CVTRV262 01327000 CVTRV264 EQU CVTRV262 01328000 CVTRV263 EQU CVTRV262 01329000 CVTVFP EQU CVTS01+464 01330000 CVTVSI EQU CVTS01+460 01331000 CVTVPSIB EQU CVTS01+456 01332000 CVTMFACT EQU CVTMFRTR 01333000 CVTMFCTL EQU CVTS01+448 01334000 CVTPVBP EQU CVTS01+444 01335000 CVTPWI EQU CVTS01+440 01336000 CVTRV254 EQU CVTS01+438 01337000 CVTRV253 EQU CVTS01+436 01338000 CVTRV252 EQU CVTS01+434 01339000 CVTRV251 EQU CVTS01+433 01340000 CVTRV250 EQU CVTS01+432 01341000 CVTRV249 EQU CVTS01+431 01342000 CVTRV248 EQU CVTS01+430 01343000 CVTRV247 EQU CVTS01+429 01344000 CVTRV246 EQU CVTS01+428 01345000 CVTRV245 EQU CVTRV237 01346000 CVTRV244 EQU CVTRV237 01347000 CVTRV243 EQU CVTRV237 01348000 CVTRV242 EQU CVTRV237 01349000 CVTRV241 EQU CVTRV237 01350000 CVTRV240 EQU CVTRV237 01351000 CVTRV239 EQU CVTRV237 01352000 CVTRV238 EQU CVTRV237 01353000 CVTRV236 EQU CVTRV228 01354000 CVTRV235 EQU CVTRV228 01355000 CVTRV234 EQU CVTRV228 01356000 CVTRV233 EQU CVTRV228 01357000 CVTRV232 EQU CVTRV228 01358000 CVTRV231 EQU CVTRV228 01359000 CVTRV230 EQU CVTRV228 01360000 CVTRV229 EQU CVTRV228 01361000 CVTRV227 EQU CVTRV219 01362000 CVTRV226 EQU CVTRV219 01363000 CVTRV225 EQU CVTRV219 01364000 CVTRV224 EQU CVTRV219 01365000 CVTRV223 EQU CVTRV219 01366000 CVTRV222 EQU CVTRV219 01367000 CVTRV221 EQU CVTRV219 01368000 CVTRV220 EQU CVTRV219 01369000 CVTRV218 EQU CVTRV210 01370000 CVTRV217 EQU CVTRV210 01371000 CVTRV216 EQU CVTRV210 01372000 CVTRV215 EQU CVTRV210 01373000 CVTRV214 EQU CVTRV210 01374000 CVTRV213 EQU CVTRV210 01375000 CVTRV212 EQU CVTRV210 01376000 CVTRV211 EQU CVTRV210 01377000 CVTLCCAT EQU CVTS01+420 01378000 CVTPCCAT EQU CVTS01+416 01379000 CVTIPCRP EQU CVTS01+412 01380000 CVTIPCRI EQU CVTS01+408 01381000 CVTIPCDS EQU CVTS01+404 01382000 CVTAIDVT EQU CVTS01+400 01383000 CVTSSAP EQU CVTS01+396 01384000 CVTEHCIR EQU CVTS01+392 01385000 CVTEHDEF EQU CVTS01+388 01386000 CVTDAIR EQU CVTS01+384 01387000 CVTPERFM EQU CVTS01+380 01388000 CVT044R2 EQU CVTS01+376 01389000 CVTFETCH EQU CVTS01+372 01390000 CVTRSTWD EQU CVTS01+368 01391000 CVTSPOST EQU CVTS01+364 01392000 CVTIOBP EQU CVTS01+360 01393000 CVTASMVT EQU CVTS01+356 01394000 CVTRECRQ EQU CVTS01+352 01395000 CVTWSAC EQU CVTS01+348 01396000 CVTRV149 EQU CVTS01+344 01397000 CVTWSAL EQU CVTS01+340 01398000 CVTSPSA EQU CVTS01+336 01399000 CVTGLMN EQU CVTS01+332 01400000 CVTVEAC0 EQU CVTS01+328 01401000 CVT062R1 EQU CVTS01+324 01402000 CVTRPOST EQU CVTS01+320 01403000 CVTDQIQE EQU CVTS01+316 01404000 CVTCSD EQU CVTS01+312 01405000 CVTLKRMA EQU CVTS01+308 01406000 CVTRSPIE EQU CVTS01+304 01407000 CVTRENQ EQU CVTS01+300 01408000 CVTLQCB EQU CVTS01+296 01409000 CVTFQCB EQU CVTS01+292 01410000 CVTQCS01 EQU CVTS01+288 01411000 CVTAPFT EQU CVTS01+284 01412000 CVTPARRL EQU CVTS01+280 01413000 CVTVWAIT EQU CVTS01+276 01414000 CVTGSPL EQU CVTS01+272 01415000 CVTLSMQ EQU CVTS01+268 01416000 CVTGSMQ EQU CVTS01+264 01417000 CVTEXPRO EQU CVTS01+260 01418000 CVTOPCTP EQU CVTS01+256 01419000 CVTSIC EQU CVTS01+252 01420000 CVTTPIOS EQU CVTS01+248 01421000 CVTRTMS EQU CVTS01+244 01422000 CVTSDBF EQU CVTS01+240 01423000 CVTSCBP EQU CVTS01+236 01424000 CVTSDMP EQU CVTS01+232 01425000 CVTSV60 EQU CVTS01+228 01426000 CVTRTMCT EQU CVTS01+224 01427000 CVTASCBL EQU CVTS01+220 01428000 CVTASCBH EQU CVTS01+216 01429000 CVTGDA EQU CVTS01+212 01430000 CVTASVT EQU CVTS01+208 01431000 CVTVVMDI EQU CVTS01+204 01432000 CVTAQTOP EQU CVTS01+200 01433000 CVTIOSCS EQU CVTS01+196 01434000 CVTSDRM EQU CVTS01+192 01435000 CVTOPTE EQU CVTS01+188 01436000 CVTSTXU EQU CVTS01+184 01437000 CVTQUIS EQU CVTS01+180 01438000 CVTPARS EQU CVTS01+176 01439000 CVTS1EE EQU CVTS01+172 01440000 CVTFRAS EQU CVTS01+168 01441000 CVTQSAS EQU CVTS01+164 01442000 CVTCRAS EQU CVTS01+160 01443000 CVTCRMN EQU CVTS01+156 01444000 CVTDELCP EQU CVTS01+152 01445000 CVTFRECL EQU CVTS01+148 01446000 CVTGETCL EQU CVTS01+144 01447000 CVTBLDCP EQU CVTS01+140 01448000 CVTAUTHL EQU CVTS01+136 01449000 CVTSCAN EQU CVTS01+132 01450000 CVTRV144 EQU CVTS01+130 01451000 CVTMAXMP EQU CVTS01+128 01452000 CVTSTCK EQU CVTS01+124 01453000 CVTRV139 EQU CVTS01+123 01454000 CVTDSSAC EQU CVTS01+122 01455000 CVTRV513 EQU CVTS01+121 01456000 CVTIOSPL EQU CVTS01+120 01457000 CVTPTGT EQU CVTS01+116 01458000 CVTCSPIE EQU CVTS01+112 01459000 CVTSMFEX EQU CVTS01+108 01460000 CVTOLT0A EQU CVTS01+104 01461000 CVTSRBRT EQU CVTS01+100 01462000 CVTPUTL EQU CVTS01+96 01463000 CVTASCRL EQU CVTS01+92 01464000 CVTASCRF EQU CVTS01+88 01465000 CVTRV326 EQU CVTS01+84 01466000 CVTRV325 EQU CVTS01+80 01467000 CVTRV324 EQU CVTS01+76 01468000 CVT0VL01 EQU CVTS01+72 01469000 CVTSHRVM EQU CVTS01+68 01470000 CVTRV332 EQU CVTS01+64 01471000 CVTTAS EQU CVTS01+60 01472000 CVTRSCN EQU CVTS01+56 01473000 CVTTRAC2 EQU CVTS01+54 01474000 CVTTRACE EQU CVTS01+52 01475000 CVTAPG EQU CVTS01+51 01476000 CVTSDTRC EQU CVTCTLFG 01477000 CVTGTRCE EQU CVTCTLFG 01478000 CVTNOMP EQU CVTCTLFG 01479000 CVTRSV79 EQU CVTCTLFG 01480000 CVTDSTAT EQU CVTCTLFG 01481000 CVTRSV78 EQU CVTCTLFG 01482000 CVTRV333 EQU CVTCTLFG 01483000 CVTRV323 EQU CVTCTLFG 01484000 CVTSPVLK EQU CVTS01+49 01485000 CVTRSV77 EQU CVTS01+48 01486000 CVTRV331 EQU CVTS01+44 01487000 CVTRV330 EQU CVTS01+40 01488000 CVTRV329 EQU CVTS01+36 01489000 CVTRV328 EQU CVTS01+32 01490000 CVTRV322 EQU CVTS01+28 01491000 CVTSLID EQU CVTSLIDA+1 01492000 CVTSYLK EQU CVTSLIDA 01493000 CVTRV321 EQU CVTS01+20 01494000 CVTRV320 EQU CVTS01+16 01495000 CVTLPDIR EQU CVTLPDIA+1 01496000 CVTRSV69 EQU CVTDIRST 01497000 CVTRSV68 EQU CVTDIRST 01498000 CVTRSV67 EQU CVTDIRST 01499000 CVTRSV66 EQU CVTDIRST 01500000 CVTRSV65 EQU CVTDIRST 01501000 CVTRSV64 EQU CVTDIRST 01502000 CVTRSV63 EQU CVTDIRST 01503000 CVTDICOM EQU CVTDIRST 01504000 CVTPVTP EQU CVTS01+8 01505000 CVTLPDSR EQU CVTS01+4 01506000 CVTGETL EQU CVTS01 01507000 @NM00036 EQU @NM00034+4 01508000 @NM00035 EQU DATADDR+1 01509000 @NM00032 EQU CCW+1 01510000 EWADDISP EQU EWA+29 01511000 EWADCNT EQU EWA+28 01512000 EWACPU EQU EWA+27 01513000 @NM00024 EQU EWA+26 01514000 EWACHA EQU EWA+24 01515000 EWACSEQ EQU EWAXCSW2 01516000 EWACDIN EQU EWAXCSW2 01517000 @NM00023 EQU EWAXCSW2 01518000 EWACTEC EQU EWAXCSW2 01519000 EWACDAV EQU EWAXCSW1 01520000 EWACCHV EQU EWAXCSW1 01521000 EWACCMD EQU EWAXCSW1 01522000 EWACUNS EQU EWAXCSW1 01523000 EWACSQV EQU EWAXCSW1 01524000 @NM00022 EQU EWAXCSW1 01525000 EWACITF EQU EWAXCSW1 01526000 @NM00021 EQU EWARGFG2 01527000 EWACCUE EQU EWARGFG2 01528000 EWACSTG EQU EWARGFG2 01529000 EWACSCU EQU EWARGFG2 01530000 EWACCHA EQU EWARGFG2 01531000 EWACCPU EQU EWARGFG2 01532000 EWACCNT EQU EWARGFG1 01533000 EWACSNS EQU EWARGFG1 01534000 @NM00020 EQU EWARGFG1 01535000 EWACHIO EQU EWARGFG1 01536000 EWACTIO EQU EWARGFG1 01537000 EWACINT EQU EWARGFG1 01538000 EWACSIO EQU EWARGFG1 01539000 EWAUCB EQU EWAERPIB+1 01540000 @NM00019 EQU EWAERPIB 01541000 EWACNTR4 EQU EWACNTRS+3 01542000 EWACNTR3 EQU EWACNTRS+2 01543000 EWASSTAT EQU EWA+8 01544000 EWASCTMX EQU EWASNSCT 01545000 @NM00018 EQU EWASNSCT 01546000 EWAJAM EQU EWAFLG3 01547000 @NM00017 EQU EWAFLG2 01548000 EWADIR EQU EWAFLG2 01549000 EWACOVF EQU EWAFLG2 01550000 EWAWTEMP EQU EWAFLG2 01551000 EWAMDR EQU EWAFLG2 01552000 EWABDSNS EQU EWAFLG1 01553000 EWADDMSG EQU EWAFLG1 01554000 EWASCC1 EQU EWASCC3 01555000 EWASCC2 EQU EWASCC3 01556000 @NM00016 EQU EWAFLG1 01557000 EWASLIS EQU EWAFLG1 01558000 EWAEXT EQU EWAHDR 01559000 IOSEND EQU IOSB+108 01560000 IOSSKR EQU IOSEEKA+7 01561000 IOSSKH2 EQU IOSSKHH+1 01562000 IOSSKH1 EQU IOSSKHH 01563000 IOSSKCC EQU IOSCCHH 01564000 IOSSKBB EQU IOSEEKA+1 01565000 IOSSKM EQU IOSEEKA 01566000 IOSEEK EQU IOSB+92 01567000 IOSMDM EQU IOSB+91 01568000 IOSCKEY7 EQU IOSCKEY 01569000 IOSCKEY6 EQU IOSCKEY 01570000 IOSCKEY5 EQU IOSCKEY 01571000 IOSCKEY4 EQU IOSCKEY 01572000 @NM00012 EQU IOSCKEY 01573000 IOSFMSK EQU IOSB+88 01574000 IOSCUDEV EQU IOSPATH+1 01575000 @NM00011 EQU IOSCHN 01576000 IOSPATH3 EQU IOSCHN 01577000 IOSPATH2 EQU IOSCHN 01578000 IOSEXP EQU IOSCHN 01579000 IOSGDP EQU IOSCHN 01580000 IOSAFF EQU IOSB+85 01581000 IOSRSS1B EQU IOSB+84 01582000 IOSDSID EQU IOSB+80 01583000 IOSNOTRS EQU IOSDIEFG 01584000 IOSABN EQU IOSB+64 01585000 IOSNRM EQU IOSB+60 01586000 IOSPCI EQU IOSB+56 01587000 IOSPCHN EQU IOSB+48 01588000 IOSAPMSK EQU IOSB+40 01589000 IOSRES4A EQU IOSB+36 01590000 IOSUSE EQU IOSB+32 01591000 IOSSRB EQU IOSB+28 01592000 IOSCSWRC EQU IOSCSW+5 01593000 IOSTSB EQU IOSTATUS+1 01594000 IOSTSA EQU IOSTATUS 01595000 IOSCC EQU @NM00010 01596000 IOSOPT2X EQU IOSOPT2 01597000 IOSHTP EQU IOSOPT2 01598000 IOSRELSE EQU IOSOPT 01599000 IOSAPR EQU IOSOPT 01600000 IOSTSLL EQU IOSOPT 01601000 IOSNERP EQU IOSOPT 01602000 IOSPSLL EQU IOSOPT 01603000 IOSQISCE EQU IOSOPT 01604000 IOSDEP EQU IOSOPT 01605000 IOSBYP EQU IOSOPT 01606000 IOSPKY7 EQU IOSPKEY 01607000 IOSPGDPX EQU IOSPKEY 01608000 IOSIDR EQU IOSPKEY 01609000 IOSLCL EQU IOSPKEY 01610000 @NM00009 EQU IOSPKEY 01611000 IOSPGAD EQU IOSB+8 01612000 IOSASID EQU IOSB+6 01613000 IOSPRLVL EQU IOSB+5 01614000 IOSDVRID EQU IOSB+4 01615000 IOSPROC EQU IOSB+3 01616000 IOSFLC7 EQU IOSFLC 01617000 IOSFLC6 EQU IOSFLC 01618000 IOSRWAIT EQU IOSFLC 01619000 IOSTP EQU IOSFLC 01620000 IOSCC3WE EQU IOSFLC 01621000 IOSVERIF EQU IOSDVALT 01622000 IOSDVMNT EQU IOSFLC 01623000 IOSFLB4 EQU IOSFLB 01624000 IOSFLB3 EQU IOSFLB 01625000 IOSFLB2 EQU IOSFLB 01626000 IOSSDR EQU IOSFLB 01627000 IOSDIESE EQU IOSFLB 01628000 IOSIOSB EQU IOSFLA 01629000 IOSDOM EQU IOSFLA 01630000 IOSSMDB EQU IOSFLA 01631000 IOSDCHN EQU IOSACHN 01632000 IOCOEND EQU IOCOM+128 01633000 IOCPATCH EQU IOCOM+124 01634000 IOCUCBBM EQU IOCOM+120 01635000 IOCQCNT EQU IOCOM+116 01636000 IOCIOSDQ EQU IOCOM+112 01637000 IOCIOSEQ EQU IOCOM+108 01638000 IOCSVCF EQU IOCOM+104 01639000 IOCTCCW EQU IOCOM+100 01640000 IOCRSVTB EQU IOCOM+96 01641000 IOCMFCNT EQU IOCOM+92 01642000 IOCMFHK EQU IOCOM+88 01643000 IOCCCH EQU IOCOM+80 01644000 IOCASYNQ EQU IOCOM+76 01645000 IOCLCHTB EQU IOCOM+72 01646000 IOCATTBL EQU IOCOM+68 01647000 IOCOMEX EQU IOCOM+64 01648000 IOCSYNCH EQU IOCOM+56 01649000 IOCCATLK EQU IOCOM+48 01650000 IOCPRGID EQU IOCOM+44 01651000 IOCIOSCP EQU IOCOM+40 01652000 IOCORMGT EQU IOCOM+36 01653000 IOCVOID EQU IOCOM+32 01654000 IOCSTIO EQU IOCOM+28 01655000 @NM00008 EQU IOCOM+24 01656000 @NM00007 EQU IOCOM+20 01657000 IOCINT EQU IOCOM+16 01658000 IOCCTBL EQU IOCOM+12 01659000 IOCHIO EQU IOCOM+8 01660000 IOCPST EQU IOCOM+4 01661000 IOCPGCT EQU IOCOM+2 01662000 IOCVOICT EQU IOCOM 01663000 UCBERADR EQU UCBUCS+12 01664000 UCBFCBID EQU UCBUCS+8 01665000 UCBERCNT EQU UCBUCS+7 01666000 UCBRSV51 EQU UCBUCS+6 01667000 UCBRSV50 EQU UCBFCBOP 01668000 UCBRSV49 EQU UCBFCBOP 01669000 UCBRSV48 EQU UCBFCBOP 01670000 UCBRSV47 EQU UCBFCBOP 01671000 UCBRSV46 EQU UCBFCBOP 01672000 UCBRSV45 EQU UCBFCBOP 01673000 UCBRSV44 EQU UCBFCBOP 01674000 UCBFCBO1 EQU UCBFCBOP 01675000 UCBUCSPE EQU UCBUCSOP 01676000 UCBRSV43 EQU UCBUCSOP 01677000 UCBRSV42 EQU UCBUCSOP 01678000 UCBRSV41 EQU UCBUCSOP 01679000 UCBRSV40 EQU UCBUCSOP 01680000 UCBRSV39 EQU UCBUCSOP 01681000 UCBUCSO2 EQU UCBUCSOP 01682000 UCBUCSO1 EQU UCBUCSOP 01683000 UCBUCSID EQU UCBUCS 01684000 UCBMDRBA EQU UCBMDRBF+1 01685000 UCBRV075 EQU UCBMDRBF 01686000 UCBRV074 EQU UCB3800X+32 01687000 UCBIMAGE EQU UCB3800X+28 01688000 UCBFCBNM EQU UCB3800X+24 01689000 UCBCHAR4 EQU UCB3800X+20 01690000 UCBCHAR3 EQU UCB3800X+16 01691000 UCBCHAR2 EQU UCB3800X+12 01692000 UCBCHAR1 EQU UCB3800X+8 01693000 UCBCGMID EQU UCB3800X+4 01694000 UCBBRSTA EQU UCBACTIV 01695000 UCBRV063 EQU UCBACTIV 01696000 UCBRV062 EQU UCBACTIV 01697000 UCBRV061 EQU UCBACTIV 01698000 UCBRV060 EQU UCBACTIV 01699000 UCBRV059 EQU UCBACTIV 01700000 UCBRV058 EQU UCBACTIV 01701000 UCBRV057 EQU UCBACTIV 01702000 UCBRV050 EQU UCB3800X+2 01703000 UCBCGMNO EQU UCB3800X+1 01704000 UCBRV083 EQU UCBOPTNS 01705000 UCBBRSTR EQU UCBOPTNS 01706000 UCBRV056 EQU UCBOPTNS 01707000 UCBRV055 EQU UCBOPTNS 01708000 UCBRV054 EQU UCBOPTNS 01709000 UCBRV053 EQU UCBOPTNS 01710000 UCBRV052 EQU UCBOPTNS 01711000 UCBRV051 EQU UCBOPTNS 01712000 UCBRV073 EQU UCB3540X+7 01713000 UCBRV072 EQU UCBDKBYT 01714000 UCBRV071 EQU UCBDKBYT 01715000 UCBRV070 EQU UCBDKBYT 01716000 UCBRV069 EQU UCBDKBYT 01717000 UCBRV068 EQU UCBDKBYT 01718000 UCBRV067 EQU UCBDKBYT 01719000 UCBVLVER EQU UCBDKBYT 01720000 UCBDKAMX EQU UCBDKBYT 01721000 UCBVLSER EQU UCB3540X 01722000 UCBRDATA EQU UCBOCR+4 01723000 UCBFRID EQU UCBOCR 01724000 UCBCLN EQU UCBMT+14 01725000 UCBERG EQU UCBMT+12 01726000 UCBMS EQU UCBMT+11 01727000 UCBNB EQU UCBMT+10 01728000 UCBPW EQU UCBMT+9 01729000 UCBPR EQU UCBMT+8 01730000 UCBSIO EQU UCBMT+6 01731000 UCBTW EQU UCBMT+5 01732000 UCBTR EQU UCBMT+4 01733000 UCBTWT EQU UCBMT+3 01734000 UCBTRT EQU UCBMT+2 01735000 UCBCTD EQU UCBMT 01736000 UCBWTOID EQU UCBCMEXT+17 01737000 UCBRV043 EQU UCBCMEXT+16 01738000 UCBASID EQU UCBCMEXT+14 01739000 UCBMFCNT EQU UCBCMEXT+12 01740000 UCBPMSK EQU UCBCMEXT+10 01741000 UCBRV041 EQU UCBCMEXT+6 01742000 UCBRV036 EQU UCBFLP1 01743000 UCBRV035 EQU UCBFLP1 01744000 UCBERLOG EQU UCBFLP1 01745000 UCBRV033 EQU UCBFLP1 01746000 UCBRV032 EQU UCBFLP1 01747000 UCBRV031 EQU UCBFLP1 01748000 UCBSHRUP EQU UCBFLP1 01749000 UCBNSRCH EQU UCBFLP1 01750000 UCBSNSCT EQU UCBCMEXT+4 01751000 UCBHPDV EQU @NM00006 01752000 UCBHALI EQU @NM00006 01753000 UCBRSV09 EQU @NM00006 01754000 UCBRSV08 EQU @NM00006 01755000 UCBRSV07 EQU @NM00006 01756000 UCBRSV06 EQU @NM00006 01757000 UCBRSV05 EQU @NM00006 01758000 UCBRSV04 EQU @NM00006 01759000 UCBDTI EQU UCBCMEXT+2 01760000 UCBSTI EQU UCBCMEXT+1 01761000 UCBETI EQU UCBCMEXT 01762000 UCBEXTP EQU UCBEXTPT+1 01763000 UCBDDRSW EQU UCBFLC 01764000 UCBTICBT EQU UCBFLC 01765000 UCBIVRR EQU UCBFLC 01766000 UCBIVRS EQU UCBFLC 01767000 UCBITF EQU UCBFLC 01768000 UCBUDE EQU UCBFLC 01769000 UCBWAA EQU UCBFLC 01770000 UCBATTP EQU UCBFLC 01771000 UCBUNTYP EQU UCBTBYT4 01772000 UCBRSV11 EQU UCBDVCLS 01773000 UCBRSV10 EQU UCBDVCLS 01774000 UCB3CHAR EQU UCBDVCLS 01775000 UCB3UREC EQU UCBDVCLS 01776000 UCB3DISP EQU UCBDVCLS 01777000 UCB3DACC EQU UCBDVCLS 01778000 UCB3COMM EQU UCBDVCLS 01779000 UCBDVPWR EQU UCB2OPT7 01780000 UCBVLPWR EQU UCB2OPT6 01781000 UCB2OPT5 EQU UCBTBYT2 01782000 UCBRVDEV EQU UCBRWTAU 01783000 UCBRPS EQU UCBDUDN2 01784000 UCBRR EQU UCBDUDN1 01785000 UCB2OPT1 EQU UCBTBYT2 01786000 UCB2OPT0 EQU UCBTBYT2 01787000 UCB1FEA7 EQU UCBTBYT1 01788000 UCBD6250 EQU UCB1FEA6 01789000 UCBD1600 EQU UCB1FEA5 01790000 UCB1FEA4 EQU UCBTBYT1 01791000 UCB1FEA3 EQU UCBTBYT1 01792000 UCB1FEA2 EQU UCBTBYT1 01793000 UCB1FEA1 EQU UCBTBYT1 01794000 UCB1FEA0 EQU UCBTBYT1 01795000 UCBNAME EQU UCBOB+13 01796000 UCBRV029 EQU UCBWGT 01797000 UCBVHRSN EQU UCBWGT 01798000 UCBVORSN EQU UCBWGT 01799000 UCBMTPXP EQU UCBWGT 01800000 UCBREW EQU UCBWGT 01801000 UCBPUB EQU UCBWGT 01802000 UCBOUT EQU UCBWGT 01803000 UCBIN EQU UCBWGT 01804000 UCBCPU EQU UCBOB+11 01805000 UCBLCI EQU UCBOB+10 01806000 UCBCNT EQU UCBOB+9 01807000 UCBRV017 EQU UCBCHM1 01808000 UCBRV016 EQU UCBCHM1 01809000 UCBRV015 EQU UCBCHM1 01810000 UCBRV014 EQU UCBCHM1 01811000 UCBSPB EQU UCBPTH1 01812000 UCBPPB EQU UCBPTH1 01813000 UCBSPA EQU UCBPTH0 01814000 UCBPPA EQU UCBPTH0 01815000 UCBSIGP EQU UCBFLB 01816000 UCBVALPH EQU UCBFLB 01817000 UCBCRHSN EQU UCBFLB 01818000 UCBCRHRV EQU UCBFLB 01819000 UCBRESVH EQU UCBFLB 01820000 UCBSPST EQU UCBFLB 01821000 UCBASNS EQU UCBFLB 01822000 UCBIORST EQU UCBFLB 01823000 UCBQISCE EQU UCBFL1 01824000 UCBACTV EQU UCBFL1 01825000 UCBSAP EQU UCBFL1 01826000 UCBNOTRC EQU UCBCUB 01827000 UCBPSNS EQU UCBFL1 01828000 UCBUSING EQU UCBPST 01829000 UCBNOTRD EQU UCBNRY 01830000 UCBBUSYD EQU UCBBSY 01831000 UCBUA EQU UCBCHAN+1 01832000 UCBCHA EQU UCBCHAN 01833000 UCBDADI EQU UCBSTAT 01834000 UCBPRES EQU UCBSTAT 01835000 UCBALOC EQU UCBSTAT 01836000 UCBUNLD EQU UCBSTAT 01837000 UCBRESV EQU UCBSTAT 01838000 UCBCHGS EQU UCBSTAT 01839000 UCBONLI EQU UCBSTAT 01840000 UCBID EQU UCBOB+2 01841000 UCBALTPH EQU UCBFL5 01842000 UCBALTCU EQU UCBFL5 01843000 UCBNALOC EQU UCBFL5 01844000 UCBENVRD EQU UCBFL5 01845000 UCBVSDR EQU UCBFL5 01846000 UCBSASK EQU UCBFL5 01847000 UCBAMV EQU UCBAF 01848000 UCBDCC EQU UCBFL5 01849000 UCBMONT EQU UCBJBNR 01850000 UCBRV011 EQU UCBJBNR 01851000 UCBRSV02 EQU UCBJBNR 01852000 UCBOLDSM EQU UCBJBNR 01853000 UCBRV003 EQU UCBJBNR 01854000 UCBDUC EQU UCBJBNR 01855000 UCBJES3 EQU UCBJBNR 01856000 UCBVRDEV EQU UCBJBNR 01857000 UCBCMSEG EQU UCBOB 01858000 UCBPFXND EQU UCB+512 01859000 UCBIOQ EQU UCB+508 01860000 UCBLOCK EQU UCB+504 01861000 UCBPXST EQU UCB+504 01862000 @NM00003 EQU UCB 01863000 CVTLEVL EQU CVTRELNO+2 01864000 CVTNUMB EQU CVTRELNO 01865000 CVTMDL EQU CVTFIX+250 01866000 @NM00002 EQU CVTFIX+248 01867000 @NM00001 EQU CVTFIX 01868000 CVTRV482 EQU CVTXTNT2+128 01869000 CVTRV481 EQU CVTXTNT2+124 01870000 CVTRV480 EQU CVTXTNT2+120 01871000 CVTRV479 EQU CVTXTNT2+118 01872000 CVTRV478 EQU CVTXTNT2+117 01873000 CVTRV477 EQU CVTXTNT2+116 01874000 CVTRV476 EQU CVTXTNT2+115 01875000 CVTRV475 EQU CVTXTNT2+114 01876000 CVTRV474 EQU CVTRV466 01877000 CVTRV473 EQU CVTRV466 01878000 CVTRV472 EQU CVTRV466 01879000 CVTRV471 EQU CVTRV466 01880000 CVTRV470 EQU CVTRV466 01881000 CVTRV469 EQU CVTRV466 01882000 CVTRV468 EQU CVTRV466 01883000 CVTRV467 EQU CVTRV466 01884000 CVTRV465 EQU CVTRV457 01885000 CVTRV464 EQU CVTRV457 01886000 CVTRV463 EQU CVTRV457 01887000 CVTRV462 EQU CVTRV457 01888000 CVTRV461 EQU CVTRV457 01889000 CVTRV460 EQU CVTRV457 01890000 CVTRV459 EQU CVTRV457 01891000 CVTRV458 EQU CVTRV457 01892000 CVTRV456 EQU CVTXTNT2+108 01893000 CVTRV455 EQU CVTXTNT2+104 01894000 CVTRV454 EQU CVTXTNT2+100 01895000 CVTRV453 EQU CVTXTNT2+96 01896000 CVTRV452 EQU CVTXTNT2+94 01897000 CVTRV451 EQU CVTXTNT2+92 01898000 CVTRV450 EQU CVTXTNT2+90 01899000 CVTRV449 EQU CVTXTNT2+88 01900000 CVTRV448 EQU CVTXTNT2+87 01901000 CVTRV447 EQU CVTXTNT2+86 01902000 CVTRV446 EQU CVTRV438 01903000 CVTRV445 EQU CVTRV438 01904000 CVTRV444 EQU CVTRV438 01905000 CVTRV443 EQU CVTRV438 01906000 CVTRV442 EQU CVTRV438 01907000 CVTRV441 EQU CVTRV438 01908000 CVTRV440 EQU CVTRV438 01909000 CVTRV439 EQU CVTRV438 01910000 CVTRV437 EQU CVTRV429 01911000 CVTRV436 EQU CVTRV429 01912000 CVTRV435 EQU CVTRV429 01913000 CVTRV434 EQU CVTRV429 01914000 CVTRV433 EQU CVTRV429 01915000 CVTRV432 EQU CVTRV429 01916000 CVTRV431 EQU CVTRV429 01917000 CVTRV430 EQU CVTRV429 01918000 CVTRV428 EQU CVTXTNT2+80 01919000 CVTRV427 EQU CVTXTNT2+76 01920000 CVTRV426 EQU CVTXTNT2+72 01921000 CVTRV425 EQU CVTXTNT2+68 01922000 CVTATACT EQU CVTATCVT 01923000 CVTRV423 EQU CVTXTNT2+62 01924000 CVTRV422 EQU CVTXTNT2+60 01925000 CVTRV421 EQU CVTXTNT2+58 01926000 CVTRV420 EQU CVTXTNT2+56 01927000 CVTRV419 EQU CVTXTNT2+55 01928000 CVTRV418 EQU CVTXTNT2+54 01929000 CVTRV417 EQU CVTRV409 01930000 CVTRV416 EQU CVTRV409 01931000 CVTRV415 EQU CVTRV409 01932000 CVTRV414 EQU CVTRV409 01933000 CVTRV413 EQU CVTRV409 01934000 CVTRV412 EQU CVTRV409 01935000 CVTRV411 EQU CVTRV409 01936000 CVTRV410 EQU CVTRV409 01937000 CVTRV408 EQU CVTRV400 01938000 CVTRV407 EQU CVTRV400 01939000 CVTRV406 EQU CVTRV400 01940000 CVTRV405 EQU CVTRV400 01941000 CVTRV404 EQU CVTRV400 01942000 CVTRV403 EQU CVTRV400 01943000 CVTRV402 EQU CVTRV400 01944000 CVTRV401 EQU CVTRV400 01945000 CVTICB EQU CVTXTNT2+48 01946000 CVTSKTA EQU CVTXTNT2+44 01947000 CVTRSV99 EQU CVTXTNT2+40 01948000 CVTRSV98 EQU CVTXTNT2+36 01949000 CVTRSV97 EQU CVTXTNT2+34 01950000 CVTRSV96 EQU CVTXTNT2+32 01951000 CVTOLTEP EQU CVTXTNT2+28 01952000 CVTQIDA EQU CVTQID+1 01953000 CVTRSV95 EQU CVTQID 01954000 CVTRSV94 EQU CVTXTNT2+20 01955000 CVTRSV93 EQU CVTXTNT2+16 01956000 CVTRSV92 EQU CVTXTNT2+12 01957000 CVTDEBVR EQU CVTXTNT2+8 01958000 CVTRSV91 EQU CVTXTNT2+6 01959000 CVTRSV9H EQU CVTFLGBT 01960000 CVTRSV9G EQU CVTFLGBT 01961000 CVTRSV9F EQU CVTFLGBT 01962000 CVTRSV9E EQU CVTFLGBT 01963000 CVTRSV9D EQU CVTFLGBT 01964000 CVTRSV9C EQU CVTFLGBT 01965000 CVTVME EQU CVTFLGBT 01966000 CVTNPE EQU CVTFLGBT 01967000 CVTNUCLS EQU CVTXTNT2+4 01968000 CVTDSSVA EQU CVTDSSV+1 01969000 CVTRSV89 EQU CVTDSSV 01970000 CVTRSV88 EQU CVTXTNT1+8 01971000 CVTRSV87 EQU CVTXTNT1+4 01972000 CVTFACHN EQU CVTXTNT1 01973000 CVTRV488 EQU CVTMAP+412 01974000 CVTRV487 EQU CVTMAP+408 01975000 CVTRV486 EQU CVTMAP+404 01976000 CVTRV485 EQU CVTMAP+400 01977000 CVTACTAP EQU CVTMAP+396 01978000 CVTAUTH EQU CVTMAP+392 01979000 CVTATMCA EQU CVTATMCT+1 01980000 CVTATMST EQU CVTATMCT 01981000 CVTRSV61 EQU CVTMAP+384 01982000 CVTVOLT1 EQU CVTVOLM1+1 01983000 CVTVOLI1 EQU CVTVOLF1 01984000 CVTSTOA EQU CVTMAP+376 01985000 CVTRSV58 EQU CVTMAP+374 01986000 CVTRSV57 EQU CVTMAP+372 01987000 CVTDDCE EQU CVTMAP+368 01988000 CVTPNWFR EQU CVTMAP+364 01989000 CVTSMF EQU CVTMAP+360 01990000 CVTSULK EQU CVTMAP+358 01991000 CVTSLKO EQU CVTSYSK 01992000 CVTSLKP EQU CVTSYSK 01993000 CVTSLKQ EQU CVTSYSK 01994000 CVTSLKR EQU CVTSYSK 01995000 CVTRSV56 EQU CVTSYSK 01996000 CVTRSV55 EQU CVTSYSK 01997000 CVTRSV54 EQU CVTSYSK 01998000 CVTRSV53 EQU CVTSYSK 01999000 CVTRSV52 EQU CVTA1F1 02000000 CVTRSV51 EQU CVTA1F1 02001000 CVTRSV50 EQU CVTA1F1 02002000 CVTRSV49 EQU CVTA1F1 02003000 CVTRSV48 EQU CVTA1F1 02004000 CVTRSV47 EQU CVTA1F1 02005000 CVTSRSW EQU CVTA1F1 02006000 CVTPFSW EQU CVTA1F1 02007000 CVTPCVT EQU CVTMAP+352 02008000 CVTRSV46 EQU CVTMAP+344 02009000 CVTRSV45 EQU CVTMAP+340 02010000 CVTRSV44 EQU CVTMAP+338 02011000 CVTRSV43 EQU CVTMAP+336 02012000 CVTHJESA EQU CVTHJES+1 02013000 CVTRSV42 EQU CVTHJES 02014000 CVTEXT2A EQU CVTEXT2+1 02015000 CVTRSV41 EQU CVTEXT2 02016000 CVTAPFA EQU CVTAPF+1 02017000 CVTRSV40 EQU CVTAPF 02018000 CVTRV518 EQU CVTINTLA 02019000 CVTRV517 EQU CVTERPV 02020000 CVTEORM EQU CVTMAP+312 02021000 CVTMCHPR EQU CVTMAP+308 02022000 CVTTZ EQU CVTMAP+304 02023000 CVTJEPS EQU CVTMAP+300 02024000 CVTJESCT EQU CVTMAP+296 02025000 CVTMODE EQU CVTMAP+292 02026000 CVTREAL EQU CVTMAP+284 02027000 CVTRSV39 EQU CVTMAP+280 02028000 CVTRSV38 EQU CVTMAP+276 02029000 CVTDMSRA EQU CVTDMSR+1 02030000 CVTRV634 EQU CVTDMSRF 02031000 CVTRV633 EQU CVTDMSRF 02032000 CVTRV632 EQU CVTDMSRF 02033000 CVTRV631 EQU CVTDMSRF 02034000 CVTRV630 EQU CVTDMSRF 02035000 CVTRV629 EQU CVTDMSRF 02036000 CVTUDUMP EQU CVTDMSRF 02037000 CVTSDUMP EQU CVTDMSRF 02038000 CVTQMSGA EQU CVTQMSG+1 02039000 CVTRSV36 EQU CVTQMSG 02040000 CVTAMFF EQU CVTMAP+264 02041000 CVTPURGA EQU CVTPURG+1 02042000 CVTRSV35 EQU CVTPURG 02043000 CVTCBSP EQU CVTMAP+256 02044000 CVTATERA EQU CVTATER+1 02045000 CVTSYST EQU CVTATER 02046000 CVTVOLT2 EQU CVTTAT 02047000 CVTVOLI2 EQU CVTVOLF2 02048000 CVTAQAVB EQU CVTAQAVT+1 02049000 CVTRSV34 EQU CVTTCMFG 02050000 CVTRSV33 EQU CVTTCMFG 02051000 CVTRSV32 EQU CVTTCMFG 02052000 CVTRSV31 EQU CVTTCMFG 02053000 CVTRSV30 EQU CVTTCMFG 02054000 CVTRSV29 EQU CVTTCMFG 02055000 CVTRSV28 EQU CVTTCMFG 02056000 CVTTCRDY EQU CVTTCMFG 02057000 CVTGTFA EQU CVTGTF+1 02058000 CVTRSV27 EQU CVTGTFST 02059000 CVTRNIO EQU CVTGTFST 02060000 CVTUSR EQU CVTGTFST 02061000 CVTRV318 EQU CVTFORM 02062000 CVTRV317 EQU CVTTMODE 02063000 CVTRV316 EQU CVTSTATE 02064000 CVTRV315 EQU CVTGTFS 02065000 CVTGTFAV EQU CVTGTFS 02066000 CVT0SCR1 EQU CVTMAP+232 02067000 CVTRV515 EQU CVTMAP+228 02068000 CVTRMS EQU CVTMAP+224 02069000 CVTPATCH EQU CVTMAP+220 02070000 CVTTSCE EQU CVTMAP+216 02071000 CVTLNKSC EQU CVTMAP+214 02072000 CVTQABST EQU CVTMAP+212 02073000 CVTMDLDS EQU CVTMAP+208 02074000 CVTUSER EQU CVTMAP+204 02075000 CVTABEND EQU CVTMAP+200 02076000 CVTSMCA EQU CVTMAP+196 02077000 CVTRSV18 EQU CVTMAP+192 02078000 CVTQLPAQ EQU CVTMAP+188 02079000 CVTQCDSR EQU CVTMAP+184 02080000 CVTRSV17 EQU CVTOPTB 02081000 CVTRSV16 EQU CVTOPTB 02082000 CVTFP EQU CVTOPTB 02083000 CVTAPTHR EQU CVTOPTB 02084000 CVTNLOG EQU CVTOPTB 02085000 CVTTOD EQU CVTOPTB 02086000 CVTCTIMS EQU CVTOPTB 02087000 CVTPROT EQU CVTOPTB 02088000 CVTXPFP EQU CVTOPTA 02089000 CVTASCII EQU CVTOPTA 02090000 CVTRSV13 EQU CVTOPTA 02091000 CVTRSV12 EQU CVTOPTA 02092000 CVTNIP EQU CVTOPTA 02093000 CVTDDR EQU CVTOPTA 02094000 CVTAPR EQU CVTOPTA 02095000 CVTCCH EQU CVTOPTA 02096000 CVTSNCTR EQU CVTMAP+180 02097000 CVTQMWR EQU CVTMAP+176 02098000 CVTQOCR EQU CVTMAP+172 02099000 CVT1EF00 EQU CVTMAP+168 02100000 CVTMZ00 EQU CVTMAP+164 02101000 CVTHEAD EQU CVTMAP+160 02102000 CVTRSV11 EQU CVTMAP+156 02103000 CVT0PT01 EQU CVTMAP+152 02104000 CVTMSER EQU CVTMAP+148 02105000 CVTRV516 EQU CVTIERLC 02106000 CVTILCH EQU CVTMAP+140 02107000 CVT0DS EQU CVTMAP+136 02108000 CVTFBOSV EQU CVTMAP+132 02109000 CVTNUCB EQU CVTMAP+128 02110000 CVTIOQET EQU CVTMAP+120 02111000 CVTDCBA EQU CVTMAP+117 02112000 CVTMVS2 EQU CVTDCB 02113000 CVT6DAT EQU CVTDCB 02114000 CVT4MPS EQU CVTDCB 02115000 CVTRSV09 EQU CVTDCB 02116000 CVT4MS1 EQU CVTDCB 02117000 CVT2SPS EQU CVTDCB 02118000 CVT1SSS EQU CVTDCB 02119000 CVTRSV08 EQU CVTDCB 02120000 CVTSTB EQU CVTMAP+112 02121000 CVTQTD00 EQU CVTMAP+108 02122000 CVTQTE00 EQU CVTMAP+104 02123000 CVTCUCB EQU CVTMAP+100 02124000 CVTSJQ EQU CVTMAP+96 02125000 CVTPBLDL EQU CVTMAP+92 02126000 CVTTPC EQU CVTMAP+88 02127000 CVTSVDCB EQU CVTMAP+84 02128000 CVTBRET EQU CVTMAP+82 02129000 CVTEXIT EQU CVTMAP+80 02130000 CVT0FN00 EQU CVTMAP+76 02131000 CVTDARA EQU CVTDAR+1 02132000 CVTRSV07 EQU CVTFLGS1 02133000 CVTRSV06 EQU CVTFLGS1 02134000 CVTRSV05 EQU CVTFLGS1 02135000 CVTRSV04 EQU CVTFLGS1 02136000 CVTRSV03 EQU CVTFLGS1 02137000 CVTRSV02 EQU CVTFLGS1 02138000 CVTRSV01 EQU CVTFLGS1 02139000 CVTDMPLK EQU CVTFLGS1 02140000 CVTZDTAB EQU CVTMAP+64 02141000 CVTMSLT EQU CVTMAP+60 02142000 CVTDATE EQU CVTMAP+56 02143000 CVTBTERM EQU CVTMAP+52 02144000 CVTSYSAD EQU CVTMAP+48 02145000 CVTILK2 EQU CVTMAP+40 02146000 CVTILK1 EQU CVTMAP+36 02147000 CVTPRLTV EQU CVTMAP+32 02148000 CVTPCNVT EQU CVTMAP+28 02149000 CVT0VL00 EQU CVTMAP+24 02150000 CVTXAPG EQU CVTMAP+20 02151000 CVTBUF EQU CVTMAP+16 02152000 CVTJOB EQU CVTMAP+12 02153000 CVTLINK EQU CVTMAP+8 02154000 CVT0EF00 EQU CVTMAP+4 02155000 CVTTCBP EQU CVTMAP 02156000 CVT EQU CVTMAP 02157000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02158000 @RT00112 EQU SETENTRY 02159000 @RT00117 EQU CKCONSL 02160000 @RT00128 EQU ERR500 02161000 @RT00136 EQU ERR500B 02162000 @RT00140 EQU ERR500A 02163000 @RT00143 EQU ERPIBINT 02164000 @RT00145 EQU ERR524A 02165000 @RT00147 EQU STATUS 02166000 @RT00153 EQU CONRETRY 02167000 @RT00159 EQU CONRETRY 02168000 @RT00161 EQU PGMERR 02169000 @RT00163 EQU ERRWTO 02170000 @RT00165 EQU ERR511 02171000 @RF00171 EQU ALARM 02172000 @RT00178 EQU CONRETRY 02173000 @RT00180 EQU ERR514 02174000 @RF00189 EQU RETRY 02175000 @RT00194 EQU PGMERR 02176000 @RT00196 EQU RETRY 02177000 @RT00212 EQU ERR521 02178000 @RT00220 EQU CONRETRY 02179000 @RT00229 EQU CONRETRY 02180000 @RF00229 EQU ERR506A 02181000 @RT00233 EQU PERMERR 02182000 @RT00244 EQU ERR540 02183000 @RF00244 EQU CONRETRY 02184000 @RT00247 EQU ERRWTO 02185000 @RT00249 EQU ERRWTO 02186000 @RT00251 EQU ERR550 02187000 @RT00253 EQU ERRWTO 02188000 @RT00255 EQU ERR550 02189000 @RT00257 EQU ERR555 02190000 @RT00259 EQU ERR550 02191000 @RT00261 EQU ERRWTO 02192000 @RT00263 EQU ERRWTO 02193000 @RT00267 EQU ERRWTO 02194000 @RT00271 EQU ERR547 02195000 @RT00273 EQU ERRWTO 02196000 @RF00273 EQU ERR550 02197000 @ENDDATA EQU * 02198000 END IEC1052,(C'PLS2005',0701,76240) 02199000