TITLE '2540/2501/2520 ERROR RECOVERY PROCEDURE ' 00001000 IEC2540A CSECT 00002000 USING IEC2540A,BASREG ESTABLISH ADDRESSABILITY 00003000 USING @DATD,DATDREG 00004000 BC 15,ER2540A 00005000 DC CL8'IGE0001C' 00006000 DC CL8'R02000 ' 00007000 DC CL8'05/22/73' 00008000 * 0080 00009000 * /*****************************************************************/ 00010000 * /* */ 00011000 * /* 2540/2501/2520 ERROR RECOVERY PROCEDURE */ 00012000 * /* */ 00013000 * /*****************************************************************/ 00014000 * 0080 00015000 *ER2540A: 0080 00016000 * CVTPTR=CVTAD; 0080 00017000 ER2540A L CVTPTR,CVTAD 0080 00018000 * EWAPTR=IOSERP; /* INIT PTR TO ERP WORK AREA */ 00019000 L EWAPTR,IOSERP(,IOSBPTR) 0081 00020000 * DATDREG=ADDR(EWUWORK); /* DATA ADDR FOR COMPILER TEMPS */ 00021000 LA DATDREG,EWUWORK(,EWAPTR) 0082 00022000 * UCBPTR=IOSUCB; 0083 00023000 L UCBPTR,IOSUCB(,IOSBPTR) 0083 00024000 * IOSEX=ON; /* SET IOSEX AND IOSERR TO 0084 00025000 * INDICATE ERP IN CONTROL */ 00026000 * IOSERR=ON; 0085 00027000 OI IOSEX(IOSBPTR),B'00100100' 0085 00028000 * IF IOSDCHN=ON& /* IF DATA CHAINING AND COMMAND 00029000 * CHAINING, XCTL TO WTO TO ISSUE 00030000 * 'I/O ERROR' MSG */ 00031000 * IOSCCHN=ON THEN 0086 00032000 TM IOSDCHN(IOSBPTR),B'11000000' 0086 00033000 BO @RT00086 0086 00034000 * GO TO ERRWTO; 0087 00035000 * ELSE 0088 00036000 * CCWRST=IOSCSWCA-CCWLEN; /* CALC CCW ADDR TO RESTART */ 00037000 SR CCWRST,CCWRST 0088 00038000 ICM CCWRST,7,IOSCSWCA(IOSBPTR) 0088 00039000 SH CCWRST,CCWLEN 0088 00040000 * IF IOSCCHN=OFF THEN /* IF CHAN PGM IS NOT CMD 0089 00041000 * CHAINED, TEST FOR CHAN CK */ 00042000 TM IOSCCHN(IOSBPTR),B'01000000' 0089 00043000 BZ @RT00089 0089 00044000 * GO TO CNTRLCK; 0090 00045000 * IF IOENTRY=OFF THEN /* IF FIRST ENTRY, SET FLAGS */ 00046000 TM IOENTRY(EWAPTR),B'01000000' 0091 00047000 BZ @RT00091 0091 00048000 * GO TO SETENTRY; 0092 00049000 * RFY 0093 00050000 * IDREG RSTD; 0093 00051000 * IDREG=CCWRST; 0094 00052000 LR IDREG,CCWRST 0094 00053000 * GEN(LRA IDREG,0(IDREG)); 0095 00054000 LRA IDREG,0(IDREG) 00055000 * IF IDREG=IOSRST THEN /* IF ERROR ON SAME CCW, DON'T 0096 00056000 * RESET ERR COUNTS */ 00057000 C IDREG,IOSRST(,IOSBPTR) 0096 00058000 BE @RT00096 0096 00059000 * GO TO CNTRLCK; 0097 00060000 * ELSE 0098 00061000 * IOBOERR=OFF; /* CLEAR PREVIOUS ERROR CNT */ 00062000 NI IOBOERR(EWAPTR),B'11011111' 0098 00063000 * IOOVRN=OFF; 0099 00064000 * CHCNTRL=OFF; 0100 00065000 NI IOOVRN(EWAPTR),B'11110011' 0100 00066000 * RETRYCNT=0; 0101 00067000 MVI RETRYCNT(EWAPTR),X'00' 0101 00068000 * RFY 0102 00069000 * IDREG UNRSTD; 0102 00070000 *SETENTRY: 0103 00071000 * IOENTRY=ON; /* SET FIRST ENTRY FLAG */ 00072000 SETENTRY DS 0H 0104 00073000 * IORSTRT=ON; /* SET RESTART FLAG IN EWA */ 00074000 OI IOENTRY(EWAPTR),B'11000000' 0104 00075000 *CNTRLCK: 0105 00076000 * IF CSWCTK=ON| /* IF CHAN CONTROL CHECK OR 0105 00077000 * INTERFACE CONTROL CHECK, GO 0105 00078000 * TEST ERPIB */ 00079000 * CSWICK=ON THEN 0105 00080000 CNTRLCK TM CSWCTK(IOSBPTR),B'00000110' 0105 00081000 BNZ @RT00105 0105 00082000 * GO TO CHANERR; 0106 00083000 * IF UCBTBYT4=RD2501| /* IF 2501 OR 2520, TEST UCK */ 00084000 * UCBTBYT4=RDP2520 THEN 0107 00085000 CLI UCBTBYT4(UCBPTR),X'04' 0107 00086000 BE @RT00107 0107 00087000 CLI UCBTBYT4(UCBPTR),X'05' 0107 00088000 BE @RT00107 0107 00089000 * GO TO TSTUCK2; 0108 00090000 * IF CSWCCK=ON THEN /* IF CHAN CHAIN CHECK, LOGOUT 0109 00091000 * AND ISSUE 'I/O ERROR' MSG */ 00092000 TM CSWCCK(IOSBPTR),B'00000001' 0109 00093000 BO @RT00109 0109 00094000 * GO TO LOGOUT; 0110 00095000 * IF CSWCDK=ON THEN /* IF CHAN DATA CK, SET INDICATOR 00096000 * IN EWASTUP */ 00097000 TM CSWCDK(IOSBPTR),B'00001000' 0111 00098000 BNO @RF00111 0111 00099000 * CDKSTAT=ON; 0112 00100000 OI CDKSTAT(EWAPTR),B'00000001' 0112 00101000 *TSTUCK: 0113 00102000 * IF CSWUCK=OFF THEN 0113 00103000 @RF00111 DS 0H 0113 00104000 TSTUCK TM CSWUCK(IOSBPTR),B'00000010' 0113 00105000 BZ @RT00113 0113 00106000 * GO TO CHANDCK; 0114 00107000 * 0114 00108000 */* 'OR' SENSE BYTE INTO STAT ENTRY AND CLEAR UNWANTED BITS. */ 00109000 * 0115 00110000 * ELSE 0115 00111000 * EWASTUP=EWASTUP|IOSSNS; 0115 00112000 OC EWASTUP(2,EWAPTR),IOSSNS(IOSBPTR) 0115 00113000 * EWASTUP(1:1)=EWASTUP(1:1)&SNSMSK; 0116 00114000 NI EWASTUP(EWAPTR),X'78' 0116 00115000 * IF EWUOVRN=ON| /* IF 'SHOULD NOT OCCUR' SENSE, 00116000 * LOGOUT AND ISSUE I/O ERR MSG */ 00117000 * EWUPEK=ON THEN 0117 00118000 TM EWUOVRN(EWAPTR),B'00000101' 0117 00119000 BNZ @RT00117 0117 00120000 * GO TO LOGOUT; 0118 00121000 * IF EWUEQCK=ON THEN /* IF EQUIP CK SENSE, CHECK FOR 00122000 * READ COMMAND */ 00123000 TM EWUEQCK(EWAPTR),B'00010000' 0119 00124000 BO @RT00119 0119 00125000 * GO TO READERR; 0120 00126000 * GEN(EJECT); 0121 00127000 EJECT 00128000 *TSTSNS: 0122 00129000 * IF CSWUCK=OFF THEN /* IF NOT UNIT CHECK GO TO TEST 00130000 * CSW STATUS BYTES */ 00131000 TSTSNS TM CSWUCK(IOSBPTR),B'00000010' 0122 00132000 BZ @RT00122 0122 00133000 * GO TO TSTSTAT; 0123 00134000 * 0123 00135000 * /*****************************************************************/ 00136000 * /* */ 00137000 * /* LINK TO THE RESIDENT ERROR INTERPRETER ROUTINE TO INTERROGATE */ 00138000 * /* THE SENSE BYTE FOR THE 2540. */ 00139000 * /* */ 00140000 * /*****************************************************************/ 00141000 * 0124 00142000 * GEN REFS(CVTPTR,CVTXITP)FLOWS(INTREQ,BUSOUT,DATACK,ERRWTO,UCMDSEQ, 00143000 * LOGOUT)SETS(SAVREG,XCTLREG); 0124 00144000 LR SAVREG,BASREG SAVE REG 15 00145000 L BASREG,CVTXITP(,CVTPTR) ADDR OF ERR INTERPRETER RTN 00146000 SNSBASE BALR XCTLREG,BASREG TO INTERPRET 2540 SENSE BYTE 00147000 DC X'01' IF INTERVENTION REQUIRED, 00148000 DC AL1(ERSNS1-SNSBASE-2) THEN GO TO INTREQ 00149000 DC X'02' IF BUSOUT CHECK, 00150000 DC AL1(ERSNS2-SNSBASE-4) THEN GO TO BUSOUT 00151000 DC X'04' IF DATA CHECK, 00152000 DC AL1(ERSNS3-SNSBASE-6) THEN GO TO DATACK 00153000 DC X'00' IF COMMAND REJECT, 00154000 DC AL1(ERSNS4-SNSBASE-8) THEN GO TO ERRWTO 00155000 DC X'06' IF UNUSUAL COMMAND SEQUENCE, 00156000 DC AL1(ERSNS5-SNSBASE-10) THEN GO TO UCMDSEQ 00157000 DC X'2F' END OF TEST, 00158000 DC AL1(ERSNS6-SNSBASE-12) GO TO LOGOUT 00159000 EJECT 00160000 *TSTUCK2: 0125 00161000 * IF CSWUCK=OFF THEN /* IF NOT UCK, TEST CSW STATUS */ 00162000 TSTUCK2 TM CSWUCK(IOSBPTR),B'00000010' 0125 00163000 BZ @RT00125 0125 00164000 * GO TO TSTSTAT2; 0126 00165000 * ELSE 0127 00166000 * EWASTUP=EWASTUP|IOSSNS; 0127 00167000 OC EWASTUP(2,EWAPTR),IOSSNS(IOSBPTR) 0127 00168000 * EWASTUP(1:1)=EWASTUP(1:1)&SNSMSK2; 0128 00169000 * 0128 00170000 NI EWASTUP(EWAPTR),X'70' 0128 00171000 * /*****************************************************************/ 00172000 * /* */ 00173000 * /* LINK TO THE RESIDENT ERROR INTERPRETER ROUTINE TO INTERROGATE */ 00174000 * /* THE SENSE BYTE FOR THE 2501 OR 2520. */ 00175000 * /* */ 00176000 * /*****************************************************************/ 00177000 * 0129 00178000 * GEN REFS(CVTPTR,CVTXITP)FLOWS(INTREQ,BUSOUT,DATACK,ERRWTO,UCMDSEQ, 00179000 * LOGOUT,READERR,OVERRUN)SETS(SAVREG,XCTLREG); 0129 00180000 LR SAVREG,BASREG SAVE REG 15 00181000 L BASREG,CVTXITP(,CVTPTR) ADDR OF ERR INTERPRETER RTN 00182000 SNSBAS2 BALR XCTLREG,BASREG TO INTERPRET 2501/2520 SENSE BYTE 00183000 DC X'06' IF SHOULD NOT OCCUR, 00184000 DC AL1(ERSNS6-SNSBAS2-2) THEN GO TO LOGOUT 00185000 DC X'03' IF EQUIPMENT CHECK, 00186000 DC AL1(ERSNS7-SNSBAS2-4) THEN GO TO READERR 00187000 DC X'07' IF SHOULD NOT OCCUR, 00188000 DC AL1(ERSNS6-SNSBAS2-6) THEN GO TO LOGOUT 00189000 DC X'01' IF INTERVENTION REQUIRED, 00190000 DC AL1(ERSNS1-SNSBAS2-8) THEN GO TO INTREQ 00191000 DC X'02' IF BUSOUT CHECK, 00192000 DC AL1(ERSNS2-SNSBAS2-10) THEN GO TO BUSOUT 00193000 DC X'04' IF DATA CHECK, 00194000 DC AL1(ERSNS3-SNSBAS2-12) THEN GO TO DATACK 00195000 DC X'05' IF OVERRUN, 00196000 DC AL1(ERSNS8-SNSBAS2-14) THEN GO TO OVERRUN 00197000 DC X'00' IF COMMAND REJECT, 00198000 DC AL1(ERSNS4-SNSBAS2-16) THEN GO TO ERRWTO 00199000 DC X'2F' END OF TEST, 00200000 DC AL1(ERSNS6-SNSBAS2-18) GO TO LOGOUT 00201000 SPACE 2 00202000 * ERROR BRANCH TABLE 00203000 SPACE 00204000 ERSNS1 B INTREQ 00205000 ERSNS2 B BUSOUT 00206000 ERSNS3 B DATACK 00207000 ERSNS4 B ERRWTO 00208000 ERSNS5 B UCMDSEQ 00209000 ERSNS6 B LOGOUT 00210000 ERSNS7 B READERR 00211000 ERSNS8 B OVERRUN 00212000 EJECT 00213000 * 0130 00214000 * /*****************************************************************/ 00215000 * /* */ 00216000 * /* INTERVENTION REQUIRED */ 00217000 * /* */ 00218000 * /*****************************************************************/ 00219000 * 0130 00220000 *INTREQ: 0130 00221000 * IF EWUUSEQ=OFF THEN /* IF NOT UNUSUAL CMD SEQ, CHECK 00222000 * IF INTERCEPTED ERROR */ 00223000 INTREQ TM EWUUSEQ(EWAPTR),B'00000010' 0130 00224000 BZ @RT00130 0130 00225000 * GO TO CKINTCPT; 0131 00226000 * ELSE 0132 00227000 * IOSERR=OFF; /* CLEAR IOSERR FLAG */ 00228000 NI IOSERR(IOSBPTR),B'11011111' 0132 00229000 * GO TO XCTLWTO; /* TO ISSUE 'INT REQ' MSG */ 00230000 B XCTLWTO 0133 00231000 *CKINTCPT: 0134 00232000 * IF IOSCOD=IOSFINTC THEN 0134 00233000 CKINTCPT CLI IOSCOD(IOSBPTR),X'7E' 0134 00234000 BNE @RF00134 0134 00235000 * DO; /* IF INTERCEPTED ERROR, */ 00236000 * IOSCOD=IOSNRMC; /* CHANGE COMP CODE TO '7F' */ 00237000 MVI IOSCOD(IOSBPTR),X'7F' 0136 00238000 * IORSTRT=OFF; /* CLEAR RESTART FLAG IN EWA */ 00239000 NI IORSTRT(EWAPTR),B'01111111' 0137 00240000 * END; 0138 00241000 * GO TO XCTLWTO; /* TO ISSUE 'INT REQ' MSG */ 00242000 B XCTLWTO 0139 00243000 * GEN(EJECT); 0140 00244000 * 0140 00245000 EJECT 00246000 * /*****************************************************************/ 00247000 * /* */ 00248000 * /* BUSOUT CHECK */ 00249000 * /* */ 00250000 * /*****************************************************************/ 00251000 * 0141 00252000 *BUSOUT: 0141 00253000 * IF UCBTBYT4^=RD2501 THEN /* IF NOT 2501, TEST BUSOUT CNT */ 00254000 BUSOUT CLI UCBTBYT4(UCBPTR),X'04' 0141 00255000 BNE @RT00141 0141 00256000 * GO TO BUSCNT; 0142 00257000 * IF CSWCHE=ON THEN /* IF CHAN END OCCURRED, LOGOUT */ 00258000 TM CSWCHE(IOSBPTR),B'00001000' 0143 00259000 BO @RT00143 0143 00260000 * GO TO LOGOUT; 0144 00261000 *BUSCNT: 0145 00262000 * IF IOBOERR=ON THEN /* IF SECOND OCCURRENCE OF 0145 00263000 * BUSOUT, LOGOUT AND ISSUE 'I/O 00264000 * ERROR' MSG */ 00265000 BUSCNT TM IOBOERR(EWAPTR),B'00100000' 0145 00266000 BO @RT00145 0145 00267000 * GO TO LOGOUT; 0146 00268000 * ELSE 0147 00269000 * IOBOERR=ON; /* SET BUSOUT CHECK FLAG */ 00270000 OI IOBOERR(EWAPTR),B'00100000' 0147 00271000 * GEN(LRA CCWRST,0(CCWRST)); 0148 00272000 LRA CCWRST,0(CCWRST) 00273000 * IF IORSTRT=ON THEN /* IF RESTART FLAG IS ON, */ 00274000 TM IORSTRT(EWAPTR),B'10000000' 0149 00275000 BNO @RF00149 0149 00276000 * IOSRST=CCWRST; /* CHANGE TO RESTART CCW ADDR */ 00277000 ST CCWRST,IOSRST(,IOSBPTR) 0150 00278000 * SVC(15); /* ISSUE SVC 15 TO RETRY */ 00279000 @RF00149 SVC 15 0151 00280000 * SVC(3); /* ISSUE SVC 3 TO EXIT */ 00281000 SVC 3 0152 00282000 * GEN(EJECT); 0153 00283000 EJECT 00284000 * 0154 00285000 * /*****************************************************************/ 00286000 * /* */ 00287000 * /* DATA CHECK */ 00288000 * /* */ 00289000 * /*****************************************************************/ 00290000 * 0154 00291000 *DATACK: 0154 00292000 * IF CCWRST^>0 THEN /* IF INVALID CCW ADDR, LOGOUT 0154 00293000 * AND ISSUE 'I/O ERROR' MSG */ 00294000 DATACK LTR CCWRST,CCWRST 0154 00295000 BNP @RT00154 0154 00296000 * GO TO LOGOUT; 0155 00297000 * IF CMDB2=ON THEN /* IF BINARY MODE, LOGOUT AND 0156 00298000 * ISSUE 'I/O ERROR' MSG */ 00299000 TM CMDB2(CCWRST),B'00100000' 0156 00300000 BO @RT00156 0156 00301000 * GO TO LOGOUT; 0157 00302000 * IF RETRYCNT=FVRTRY THEN /* IF FIVE RETRIES, LOGOUT AND 0158 00303000 * ISSUE 'I/O ERROR' MSG */ 00304000 CLI RETRYCNT(EWAPTR),X'05' 0158 00305000 BE @RT00158 0158 00306000 * GO TO LOGOUT; 0159 00307000 * ELSE 0160 00308000 * RETRYCNT=RETRYCNT+1; /* INCREMENT RETRY COUNTER */ 00309000 LA @14,1 0160 00310000 SR @10,@10 0160 00311000 IC @10,RETRYCNT(,EWAPTR) 0160 00312000 AR @14,@10 0160 00313000 STC @14,RETRYCNT(,EWAPTR) 0160 00314000 * GO TO XCTLWTO; 0161 00315000 B XCTLWTO 0161 00316000 * GEN(EJECT); 0162 00317000 * 0162 00318000 EJECT 00319000 * /*****************************************************************/ 00320000 * /* */ 00321000 * /* OVERRUN */ 00322000 * /* */ 00323000 * /*****************************************************************/ 00324000 * 0163 00325000 *OVERRUN: 0163 00326000 * IF IOOVRN=ON THEN /* IF SECOND OCCURRENCE, LOGOUT 00327000 * AND ISSUE 'I/O ERROR' MSG */ 00328000 OVERRUN TM IOOVRN(EWAPTR),B'00000100' 0163 00329000 BO @RT00163 0163 00330000 * GO TO LOGOUT; 0164 00331000 * ELSE 0165 00332000 * IOOVRN=ON; /* SET OVERRUN FLAG */ 00333000 OI IOOVRN(EWAPTR),B'00000100' 0165 00334000 * GO TO XCTLWTO; 0166 00335000 B XCTLWTO 0166 00336000 * GEN(EJECT); 0167 00337000 * 0167 00338000 EJECT 00339000 * /*****************************************************************/ 00340000 * /* */ 00341000 * /* UNUSUAL COMMAND SEQUENCE */ 00342000 * /* */ 00343000 * /*****************************************************************/ 00344000 * 0168 00345000 *UCMDSEQ: 0168 00346000 * IF ACPTUCS=OFF THEN /* IF NOT USEQ AFTER CHAN ERR, */ 00347000 UCMDSEQ TM ACPTUCS(EWAPTR),B'00010000' 0168 00348000 BZ @RT00168 0168 00349000 * GO TO ERRWTO; /* ISSUE 'I/O ERROR' MSG */ 00350000 * ELSE 0170 00351000 * DO; 0170 00352000 * IORSTRT=OFF; /* CLEAR RESTART FLAG IN EWA */ 00353000 NI IORSTRT(EWAPTR),B'01111111' 0171 00354000 * IOSTATUS=IOSTATUS&&IOSTATUS;/* CLEAR CSW STATUS IN IOSB */ 00355000 XC IOSTATUS(2,IOSBPTR),IOSTATUS(IOSBPTR) 0172 00356000 * END; 0173 00357000 * GEN(EJECT); 0174 00358000 * 0174 00359000 EJECT 00360000 * /*****************************************************************/ 00361000 * /* */ 00362000 * /* ERROR CORRECTED */ 00363000 * /* */ 00364000 * /*****************************************************************/ 00365000 * 0175 00366000 *ERCORR: 0175 00367000 * IOSEX=OFF; /* CLEAR IOSEX AND IOSERR TO 0175 00368000 * INDICATE ERROR CORRECTED */ 00369000 ERCORR DS 0H 0176 00370000 * IOSERR=OFF; 0176 00371000 * 0176 00372000 NI IOSEX(IOSBPTR),B'11011011' 0176 00373000 * /*****************************************************************/ 00374000 * /* */ 00375000 * /* XCTL TO STATISTICS UPDATE ROUTINE */ 00376000 * /* */ 00377000 * /*****************************************************************/ 00378000 * 0177 00379000 * GEN REFS(CVTPTR,CVTXTLER,STATID)SETS(IDREG,XCTLREG)EXIT NOSEQFLOW; 00380000 LH IDREG,STATID ID OF STAT UPDATE ROUTINE 00381000 L XCTLREG,CVTXTLER(,CVTPTR) ADDR OF XCTL ROUTINE 00382000 BR XCTLREG TO XCTL TO STAT UPDATE RTN 00383000 * GEN(EJECT); 0178 00384000 EJECT 00385000 *TSTSTAT: 0179 00386000 * IF UCBTBYT4=RD2501| /* IF 2501 OR 2520, USE SECOND 0179 00387000 * STATUS TABLE */ 00388000 * UCBTBYT4=RDP2520 THEN 0179 00389000 TSTSTAT CLI UCBTBYT4(UCBPTR),X'04' 0179 00390000 BE @RT00179 0179 00391000 CLI UCBTBYT4(UCBPTR),X'05' 0179 00392000 BE @RT00179 0179 00393000 * GO TO TSTSTAT2; 0180 00394000 * 0180 00395000 * /*****************************************************************/ 00396000 * /* */ 00397000 * /* LINK TO THE RESIDENT ERROR INTERPRETER ROUTINE TO INTERROGATE */ 00398000 * /* THE CSW STATUS BYTES FOR THE 2540. */ 00399000 * /* */ 00400000 * /*****************************************************************/ 00401000 * 0181 00402000 * GEN REFS(CVTPTR,CVTXITP)FLOWS(PERMERR,ERCORR)SETS(SAVREG,XCTLREG); 00403000 LR SAVREG,BASREG SAVE REG 15 00404000 L BASREG,CVTXITP(,CVTPTR) ADDR OF ERR INTERPRETER RTN 00405000 STATBASE BALR XCTLREG,BASREG TO INTERPRET 2540 STATUS BYTESS 00406000 DC X'1A' IF PROGRAM CHECK, 00407000 DC AL1(ERSTAT1-STATBASE-2) THEN GO TO PERMERR 00408000 DC X'1B' IF PROTECTION CHECK, 00409000 DC AL1(ERSTAT1-STATBASE-4) THEN GO TO PERMERR 00410000 DC X'17' IF UNIT EXCEPTION, 00411000 DC AL1(ERSTAT1-STATBASE-6) THEN GO TO PERMERR 00412000 DC X'19' IF INCORRECT LENGTH, 00413000 DC AL1(ERSTAT1-STATBASE-8) THEN GO TO PERMERR 00414000 DC X'2F' END OF TEST, 00415000 DC AL1(ERSTAT2-STATBASE-10) GO TO ERCORR 00416000 EJECT 00417000 *TSTSTAT2: 0182 00418000 * 0182 00419000 * /*****************************************************************/ 00420000 * /* */ 00421000 * /* LINK TO THE RESIDENT ERROR INTERPRETER ROUTINE TO INTERROGATE */ 00422000 * /* THE CSW STATUS BYTES FOR THE 2501 OR 2520. */ 00423000 * /* */ 00424000 * /*****************************************************************/ 00425000 * 0182 00426000 * GEN REFS(CVTPTR,CVTXITP)FLOWS(READERR,PERMERR,ERCORR)SETS(SAVREG, 00427000 * XCTLREG); 0182 00428000 TSTSTAT2 DS 0H 0182 00429000 LR SAVREG,BASREG SAVE REG 15 00430000 L BASREG,CVTXITP(,CVTPTR) ADDR OF ERR INTERPRETER RTN 00431000 STATBAS2 BALR XCTLREG,BASREG TO INTERPRET 2501/2520 STATUS BYTES 00432000 DC X'1C' IF CHANNEL DATA CHECK, 00433000 DC AL1(ERSTAT3-STATBAS2-2) THEN GO TO READERR 00434000 DC X'1F' IF CHAINING CHECK, 00435000 DC AL1(ERSTAT1-STATBAS2-4) THEN GO TO PERMERR 00436000 DC X'1A' IF PROGRAM CHECK, 00437000 DC AL1(ERSTAT1-STATBAS2-6) THEN GO TO PERMERR 00438000 DC X'1B' IF PROTECTION CHECK, 00439000 DC AL1(ERSTAT1-STATBAS2-8) THEN GO TO PERMERR 00440000 DC X'17' IF UNIT EXCEPTION, 00441000 DC AL1(ERSTAT1-STATBAS2-10) THEN GO TO PERMERR 00442000 DC X'19' IF INCORRECT LENGTH, 00443000 DC AL1(ERSTAT1-STATBAS2-12) THEN GO TO PERMERR 00444000 DC X'2F' END OF TEST, 00445000 DC AL1(ERSTAT2-STATBAS2-14) GO TO ERCORR 00446000 SPACE 2 00447000 * ERROR BRANCH TABLE 00448000 SPACE 00449000 ERSTAT1 B PERMERR 00450000 ERSTAT2 B ERCORR 00451000 ERSTAT3 B READERR 00452000 EJECT 00453000 * 0183 00454000 * /*****************************************************************/ 00455000 * /* */ 00456000 * /* PERMANENT ERROR */ 00457000 * /* */ 00458000 * /*****************************************************************/ 00459000 * 0183 00460000 *PERMERR: 0183 00461000 * IOSERR=OFF; /* CLEAR IOSERR - PERM ERROR */ 00462000 PERMERR NI IOSERR(IOSBPTR),B'11011111' 0183 00463000 * SVC(15); /* TO POST PERMANENT ERROR */ 00464000 SVC 15 0184 00465000 * SVC(3); /* ISSUE SVC 3 TO EXIT */ 00466000 * 0185 00467000 SVC 3 0185 00468000 * /*****************************************************************/ 00469000 * /* */ 00470000 * /* XCTL TO WRITE-TO-OPERATOR ROUTINE */ 00471000 * /* */ 00472000 * /*****************************************************************/ 00473000 * 0186 00474000 *LOGOUT: 0186 00475000 * IOSLOG=ON; /* TO INDICATE LOGOUT */ 00476000 LOGOUT OI IOSLOG(IOSBPTR),B'00000001' 0186 00477000 *ERRWTO: 0187 00478000 * IOSERR=OFF; 0187 00479000 ERRWTO NI IOSERR(IOSBPTR),B'11011111' 0187 00480000 * IOSMSG=ON; /* TO INDICATE 'I/O ERR' MSG */ 00481000 OI IOSMSG(IOSBPTR),B'00000100' 0188 00482000 * IORSTRT=OFF; 0189 00483000 NI IORSTRT(EWAPTR),B'01111111' 0189 00484000 *XCTLWTO: 0190 00485000 * GEN(LRA CCWRST,0(CCWRST)); 0190 00486000 XCTLWTO LRA CCWRST,0(CCWRST) 00487000 * IF IORSTRT=ON THEN /* IF RESTART FLAG SET, CHANGE TO 00488000 * CCW RESTART ADDR */ 00489000 TM IORSTRT(EWAPTR),B'10000000' 0191 00490000 BNO @RF00191 0191 00491000 * IOSRST=CCWRST; 0192 00492000 ST CCWRST,IOSRST(,IOSBPTR) 0192 00493000 * GEN REFS(CVTPTR,CVTXTLER,WTOID)SETS(IDREG,XCTLREG)EXIT NOSEQFLOW; 00494000 @RF00191 DS 0H 0193 00495000 LH IDREG,WTOID ID OF WTO ROUTINE 00496000 L XCTLREG,CVTXTLER(,CVTPTR) ADDR OF XCTL ROUTINE 00497000 BR XCTLREG TO XCTL TO WTO ROUTINE 00498000 EJECT 00499000 * 0194 00500000 * /*****************************************************************/ 00501000 * /* */ 00502000 * /* CHANNEL DATA CHECK */ 00503000 * /* */ 00504000 * /*****************************************************************/ 00505000 * 0194 00506000 *CHANDCK: 0194 00507000 * IF CSWCDK=OFF THEN /* IF NOT CHAN DATA CK, TEST FOR 00508000 * ABNORMAL STATUS */ 00509000 CHANDCK TM CSWCDK(IOSBPTR),B'00001000' 0194 00510000 BZ @RT00194 0194 00511000 * GO TO TSTSTAT; 0195 00512000 * IF CMDB6=OFF THEN /* IF NOT READ COMMAND, */ 00513000 TM CMDB6(CCWRST),B'00000010' 0196 00514000 BNZ @RF00196 0196 00515000 * DO; 0197 00516000 * IOSTATUS=IOSTATUS&&IOSTATUS;/* CLEAR CSW STATUS IN IOSB */ 00517000 XC IOSTATUS(2,IOSBPTR),IOSTATUS(IOSBPTR) 0198 00518000 * GO TO ERCORR; /* TO XCTL TO STAT UPDATE */ 00519000 B ERCORR 0199 00520000 * END; 0200 00521000 * GO TO READERR; 0201 00522000 * 0201 00523000 B READERR 0201 00524000 * /*****************************************************************/ 00525000 * /* */ 00526000 * /* CHANNEL OR INTERFACE CONTROL CHECK */ 00527000 * /* */ 00528000 * /*****************************************************************/ 00529000 * 0202 00530000 *CHANERR: 0202 00531000 * IF UCBTBYT4=RD2501| /* IF 2501 OR 2520, LOGOUT */ 00532000 * UCBTBYT4=RDP2520 THEN 0202 00533000 CHANERR CLI UCBTBYT4(UCBPTR),X'04' 0202 00534000 BE @RT00202 0202 00535000 CLI UCBTBYT4(UCBPTR),X'05' 0202 00536000 BE @RT00202 0202 00537000 * GO TO LOGOUT; 0203 00538000 * IF IOSCOD=IOSFINTC THEN /* IF INTERCEPTED ERROR, LOGOUT 00539000 * AND ISSUE 'I/O ERR' MSG */ 00540000 CLI IOSCOD(IOSBPTR),X'7E' 0204 00541000 BE @RT00204 0204 00542000 * GO TO LOGOUT; 0205 00543000 * IF EWANORTY=ON THEN /* IF ERPIB INDICATES NO RETRY, 00544000 * LOGOUT AND ISSUE 'I/O ERR' MSG*/ 00545000 TM EWANORTY(EWAPTR),B'00000001' 0206 00546000 BO @RT00206 0206 00547000 * GO TO LOGOUT; 0207 00548000 * IF CCWRST^>0 THEN /* IF INVALID CCW ADDR, LOGOUT 0208 00549000 * AND ISSUE 'I/O ERR' MSG */ 00550000 LTR CCWRST,CCWRST 0208 00551000 BNP @RT00208 0208 00552000 * GO TO LOGOUT; 0209 00553000 * IF CMDB0=OFF| /* IF NOT READ W/O CONTROL, TEST 00554000 * IF CSW STORED ON SIO */ 00555000 * CMDB1=OFF THEN 0210 00556000 TM CMDB0(CCWRST),B'11000000' 0210 00557000 BNO @RT00210 0210 00558000 * GO TO CCHTEST; 0211 00559000 * IF CMDB3=ON THEN /* IF READ/FEED COMMAND, TEST IF 00560000 * CSW STORED ON SIO */ 00561000 TM CMDB3(CCWRST),B'00010000' 0212 00562000 BO @RT00212 0212 00563000 * GO TO CCHTEST; 0213 00564000 * IF CHCNTRL=ON THEN /* IF SECOND OCCURRENCE, LOGOUT 00565000 * AND ISSUE 'I/O ERR' MSG */ 00566000 TM CHCNTRL(EWAPTR),B'00001000' 0214 00567000 BO @RT00214 0214 00568000 * GO TO LOGOUT; 0215 00569000 * ELSE 0216 00570000 * ACPTUCS=ON; /* SET TO ACCEPT USEQ ON RETRY */ 00571000 OI ACPTUCS(EWAPTR),B'00010000' 0216 00572000 * GO TO CCHTEST3; /* TO SET ERR COUNT AND RETRY */ 00573000 B CCHTEST3 0217 00574000 *CCHTEST: 0218 00575000 * IF EWARGFG1=CSWSSIO THEN /* IF CSW STORED ON SIO, TEST 0218 00576000 * ERROR COUNT */ 00577000 CCHTEST CLI EWARGFG1(EWAPTR),X'80' 0218 00578000 BE @RT00218 0218 00579000 * GO TO CCHTEST2; 0219 00580000 * IF CMDCODE=NOP THEN /* IF ERROR ON NOP CMD, TEST 0220 00581000 * ERROR COUNT */ 00582000 CLI CMDCODE(CCWRST),X'03' 0220 00583000 BE @RT00220 0220 00584000 * GO TO CCHTEST2; 0221 00585000 * IF RTRYCD4=OFF THEN /* IF RETRY CODE NOT 4, TEST 0222 00586000 * RETRY CODE OF THREE */ 00587000 TM RTRYCD4(EWAPTR),B'00000100' 0222 00588000 BZ @RT00222 0222 00589000 * GO TO CCHTEST4; 0223 00590000 * IF RTRYCD1=ON| /* IF RETRY CODE NOT 4 ALONE, 0224 00591000 * LOGOUT AND ISSUE 'I/O ERR' MSG*/ 00592000 * RTRYCD2=ON THEN 0224 00593000 TM RTRYCD1(EWAPTR),B'00000011' 0224 00594000 BNZ @RT00224 0224 00595000 * GO TO LOGOUT; 0225 00596000 *CCHTEST2: 0226 00597000 * IF CHCNTRL=ON THEN /* IF SECOND OCCURRENCE, LOGOUT, 00598000 * AND ISSUE 'I/O ERR' MSG */ 00599000 CCHTEST2 TM CHCNTRL(EWAPTR),B'00001000' 0226 00600000 BO @RT00226 0226 00601000 * GO TO LOGOUT; 0227 00602000 * ELSE 0228 00603000 *CCHTEST3: 0228 00604000 * CHCNTRL=ON; /* SET ERROR COUNT AND RETRY */ 00605000 CCHTEST3 OI CHCNTRL(EWAPTR),B'00001000' 0228 00606000 * GEN(LRA CCWRST,0(CCWRST)); 0229 00607000 LRA CCWRST,0(CCWRST) 00608000 * IF IORSTRT=ON THEN /* IF RESTART FLAG SET, CHANGE TO 00609000 * CCW RESTART ADDR */ 00610000 TM IORSTRT(EWAPTR),B'10000000' 0230 00611000 BNO @RF00230 0230 00612000 * IOSRST=CCWRST; 0231 00613000 ST CCWRST,IOSRST(,IOSBPTR) 0231 00614000 * SVC(15); /* ISSUE SVC 15 TO RETRY */ 00615000 @RF00230 SVC 15 0232 00616000 * SVC(3); /* ISSUE SVC 3 TO EXIT */ 00617000 SVC 3 0233 00618000 *CCHTEST4: 0234 00619000 * IF RTRYCD=ZERO| /* RETRY CODE=0 OR 2, LOGOUT */ 00620000 * RTRYCD=TWO THEN 0234 00621000 CCHTEST4 TM RTRYCD(EWAPTR),B'00000111' 0234 00622000 BZ @RT00234 0234 00623000 TM RTRYCD(EWAPTR),B'00000010' 0234 00624000 BNO @RF00234 0234 00625000 TM RTRYCD(EWAPTR),B'00000101' 0234 00626000 BZ @RT00234 0234 00627000 * GO TO LOGOUT; 0235 00628000 * IF RTRYCD^=THREE THEN /* IF RETRY CODE=1, TEST ERR CNT */ 00629000 @RF00234 TM RTRYCD(EWAPTR),B'00000011' 0236 00630000 BNO @RT00236 0236 00631000 TM RTRYCD(EWAPTR),B'00000100' 0236 00632000 BNZ @RT00236 0236 00633000 * GO TO CCHTEST2; 0237 00634000 *CCHTEST5: 0238 00635000 * IF CHCNTRL=ON THEN /* IF SECOND OCCURRENCE, LOGOUT 00636000 * AND ISSUE 'I/O ERR' MSG */ 00637000 CCHTEST5 TM CHCNTRL(EWAPTR),B'00001000' 0238 00638000 BO @RT00238 0238 00639000 * GO TO LOGOUT; 0239 00640000 * ELSE 0240 00641000 * CHCNTRL=ON; /* SET ERROR COUNT FOR RETRY */ 00642000 OI CHCNTRL(EWAPTR),B'00001000' 0240 00643000 * GO TO XCTLWTO; 0241 00644000 B XCTLWTO 0241 00645000 * GEN(EJECT); 0242 00646000 * 0242 00647000 EJECT 00648000 * /*****************************************************************/ 00649000 * /* */ 00650000 * /* EQUIPMENT CHECK OR CHANNEL DATA CHECK ON READ COMMAND */ 00651000 * /* */ 00652000 * /*****************************************************************/ 00653000 * 0243 00654000 *READERR: 0243 00655000 * IF IOSCOD=IOSFINTC THEN /* IF INTERCEPTED ERROR, BYPASS 00656000 * COMMAND TESTS */ 00657000 READERR CLI IOSCOD(IOSBPTR),X'7E' 0243 00658000 BE @RT00243 0243 00659000 * GO TO NOCMDTST; 0244 00660000 * IF CCWRST^>0 THEN /* IF INVALID CCW ADDR, LOGOUT 0245 00661000 * AND ISSUE 'I/O ERR' MSG */ 00662000 LTR CCWRST,CCWRST 0245 00663000 BNP @RT00245 0245 00664000 * GO TO LOGOUT; 0246 00665000 * IF CMDB6=ON THEN /* IF READ CMD, TEST ERR CNT */ 00666000 TM CMDB6(CCWRST),B'00000010' 0247 00667000 BO @RT00247 0247 00668000 * GO TO CKCOUNT; 0248 00669000 *NOCMDTST: 0249 00670000 * IOSCOD=IOSNRMC; /* RESET COMP CODE TO '7F' */ 00671000 NOCMDTST MVI IOSCOD(IOSBPTR),X'7F' 0249 00672000 *CKINTREQ: 0250 00673000 * IF EWUINT=ON THEN /* IF INTERVENTION REQUIRED, XCTL 00674000 * TO WTO TO ISSUE MSG */ 00675000 CKINTREQ TM EWUINT(EWAPTR),B'01000000' 0250 00676000 BO @RT00250 0250 00677000 * GO TO XCTLWTO; 0251 00678000 * ELSE 0252 00679000 * GO TO LOGOUT; /* TO LOGOUT AND ISSUE 'I/O ERR' 00680000 * MSG */ 00681000 B LOGOUT 0252 00682000 *CKCOUNT: 0253 00683000 * IF RETRYCNT=FVRTRY THEN /* IF FIVE RETRIES, LOGOUT AND 0253 00684000 * ISSUE 'I/O ERR' MSG */ 00685000 CKCOUNT CLI RETRYCNT(EWAPTR),X'05' 0253 00686000 BE @RT00253 0253 00687000 * GO TO LOGOUT; 0254 00688000 * ELSE 0255 00689000 * RETRYCNT=RETRYCNT+1; /* INCREMENT RETRY COUNTER */ 00690000 LA @14,1 0255 00691000 SR @10,@10 0255 00692000 IC @10,RETRYCNT(,EWAPTR) 0255 00693000 AR @14,@10 0255 00694000 STC @14,RETRYCNT(,EWAPTR) 0255 00695000 * GO TO XCTLWTO; 0256 00696000 B XCTLWTO 0256 00697000 * GEN(EJECT); 0257 00698000 * 0257 00699000 EJECT 00700000 */*IEC2540: CHART */ 00701000 */* HEADER 0258 00702000 */* IGE0001C - 2540/2501/2520 E 00703000 */*RROR RECOVERY PROCEDURE PAGE #1 */ 00704000 */* E IEC2540A */ 00705000 */* P SET IOSEX AND IOSERR FLAGS */ 00706000 */* D (NO,,YES,ERRWTO) MIXED CHAINING CHAN PGM */ 00707000 */* P CALCULATE CCW RESTART ADDRESS */ 00708000 */* D (YES,,NO,CNTRLCK) CHAN PGM CMD CHAINED */ 00709000 */*%LAB1: D (NO,,YES,SETENTRY) FIRST ENTRY */ 00710000 */* D (NO,,YES,CNTRLCK) ERROR ON SAME CCW */ 00711000 */*SETENTRY: P CLEAR ERR COUNTS, SET ENTRY FLAG */ 00712000 */* P SET RESTART FLAG IN EWA */ 00713000 */*CNTRLCK: D (NO,,YES,CHANERR) CHAN/INTF CNTRL CK */ 00714000 */* D (NO,,YES,TSTUCK2) 2501 OR 2520 */ 00715000 */* D (NO,,YES,LOGOUT:RRT) CHAN CHAINING CHECK */ 00716000 */* D (YES,,NO,TSTUCK) CHAN DATA CHECK */ 00717000 */* P INDICATE CHAN DATA CK IN STATUP */ 00718000 */*TSTUCK: D (YES,,NO,CHANDCK) UNIT CHECK STATUS */ 00719000 */* P 'OR' SENSE BYTE INTO STATUP */ 00720000 */* D (NO,,YES,LOGOUT) 'SHOULD NOT OCCUR' SENSE */ 00721000 */* D (NO,,YES,READERR) EQUIPMENT CHECK */ 00722000 */*TSTSNS: D (YES,,NO,TSTSTAT:RLT) UNIT CHECK STATUS */ 00723000 */* S CVTXITP:INTERPRET SENSE BYTE */ 00724000 */* D (INTR,INTREQ,BUSO,BUSOUT,DTCK,DATACK,CREJ,ERRWTO,USEQ, 0258 00725000 */*UCMDSEQ,EOT,LOGOUT) TEST SENSE BYTE */ 00726000 */*TSTUCK2: S CVTXITP:INTERPRET SENSE BYTE */ 00727000 */* D (IERR,LOGOUT,EQCK,READERR,IERR,LOGOUT,INTR,INTREQ,BUSO, 0258 00728000 */*BUSOUT,DTCK,DATACK,OVRN,OVERRUN,CREJ,ERRWTO,EOT,LOGOUT) 0258 00729000 */*TEST SENSE BYTE */ 00730000 */*INTREQ: D (YES,,NO,CKINTCPT) UNUSUAL CMD SEQ */ 00731000 */* P (,XCTLWTO) CLEAR IOSERR FLAG */ 00732000 */*CKINTCPT: D (YES,,NO,XCTLWTO) INTERCEPTED ERROR */ 00733000 */* P CLEAR RESTART FLAG IN EWA */ 00734000 */* P (,XCTLWTO) SET NORMAL COMPLETION CODE */ 00735000 */*BUSOUT: D (YES,,NO,BUSCNT) 2501 */ 00736000 */* D (NO,,YES,LOGOUT) CHAN END OCCUR */ 00737000 */*BUSCNT: D (NO,,YES,LOGOUT) SECOND OCCURRENCE */ 00738000 */* P SET BUSOUT ERROR COUNT TO 1 */ 00739000 */* D (YES,,NO,%LAB2) RESTART FLAG ON */ 00740000 */* P STORE RESTART ADDR IN IOSRST */ 00741000 */*%LAB2: R SVC 15 TO RETRY */ 00742000 */*DATACK: D (YES,,NO,LOGOUT) VALID CCW ADDR */ 00743000 */* D (NO,,YES,LOGOUT) BINARY MODE */ 00744000 */* D (NO,,YES,LOGOUT) RETRY COUNT = 5 */ 00745000 */* P (,XCTLWTO) INCREMENT RETRY COUNT */ 00746000 */*OVERRUN: D (NO,,YES,LOGOUT) SECOND OCCURRENCE */ 00747000 */* P (,XCTLWTO) SET OVERRUN ERROR COUNT TO 1 */ 00748000 */*UCMDSEQ: D (YES,,NO,ERRWTO) USEQ AFTER CHAN ERROR */ 00749000 */* P CLEAR CSW STATUS IN IOSB */ 00750000 */*ERCORR: P CLEAR IOSEX AND IOSERR FLAGS */ 00751000 */* P CLEAR RESTART FLAG IN EWA */ 00752000 */* R XCTL TO STAT UPDATE */ 00753000 */*TSTSTAT: D (NO,,YES,TSTSTAT2) 2501 OR 2520 */ 00754000 */* S CVTXITP:INTERPRET STATUS BYTES */ 00755000 */* D (PGC,PERMERR,PCK,PERMERR,UEX,PERMERR,IL,PERMERR,EOT,ERCORR) 0258 00756000 */*TEST STATUS BYTES */ 00757000 */*TSTSTAT2: S CVTXITP:INTERPRET STATUS BYTES */ 00758000 */* D (CDCK,READERR,CCK,PERMERR,PGC,PERMERR,PCK,PERMERR,UEX, 0258 00759000 */*PERMERR,IL,PERMERR,EOT,ERCORR) TEST STATUS BYTES */ 00760000 */*PERMERR: P CLEAR IOSERR FLAG TO IND PERM ERR */ 00761000 */* R SVC 15 - PERM ERR */ 00762000 */*LOGOUT: P SET IOSLOG FLAG IN IOSB */ 00763000 */*ERRWTO: P SET IOSMSG TO INDICATE I/O ERR MSG */ 00764000 */*XCTLWTO: R XCTL TO WTO RTN */ 00765000 */*CHANDCK: D (YES,,NO,TSTSTAT) CHAN DATA CHECK */ 00766000 */* D (NO,,YES,READERR) READ COMMAND */ 00767000 */* P (,TSTSTAT) CLEAR CSW STATUS IN IOSB */ 00768000 */*CHANERR: D (NO,,YES,LOGOUT) 2501 OR 2520 */ 00769000 */* D (NO,,YES,LOGOUT) INTERCEPTED ERROR */ 00770000 */* D (NO,,YES,LOGOUT) ERPIB IND NO RETRY */ 00771000 */* D (YES,,NO,LOGOUT) VALID CCW ADDR */ 00772000 */* D (NO,,YES,%LAB6) READ W/O CONTROL */ 00773000 */*CCHTEST: D (NO,,YES,CCHTEST2) CSW STORED ON SIO */ 00774000 */* D (NO,,YES,CCHTEST2) NOP COMMAND */ 00775000 */* D (YES,,NO,CCHTEST4) RETRY CODE = 4 */ 00776000 */* D (NO,LOGOUT,YES,) RETRY CODE = 4 ONLY */ 00777000 */*CCHTEST2: D (NO,CCHTEST3:RRT,YES,LOGOUT) SECOND OCCURRENCE */ 00778000 */*CCHTEST3: P SET ERROR COUNT TO 1 */ 00779000 */* D (YES,,NO,%LAB8) RESTART FLAG SET */ 00780000 */* P STORE RESTART ADDR IN IOSRST */ 00781000 */*%LAB8: R SVC 15 TO RETRY */ 00782000 */*CCHTEST4: D (ZERO,LOGOUT,THRE,CCHTEST5,MIXD,) RETRY CODE = 3 */ 00783000 */* D (YES,CCHTEST2,NO,LOGOUT) RETRY CODE = 1 */ 00784000 */*CCHTEST5: D (NO,,YES,LOGOUT) ERROR COUNT = 1 */ 00785000 */* P (,XCTLWTO) SET ERROR COUNT TO 1 */ 00786000 */*%LAB6: D (NO,,YES,CCHTEST) READ/FEED CMD */ 00787000 */* D (NO,,YES,LOGOUT) SECOND OCCURRENCE */ 00788000 */* P (,CCHTEST3:RRT) SET FLAG TO ACCEPT USEQ ON RETRY */ 00789000 */*READERR: D (NO,,YES,NOCMDTST) INTERCEPTED ERROR */ 00790000 */* D (YES,,NO,LOGOUT) VALID CCW ADDR */ 00791000 */* D (NO,,YES,CKCOUNT) ERROR ON READ CMD */ 00792000 */*NOCMDTST: P SET NORMAL COMPLETION CODE */ 00793000 */*CKINTREQ: D (NO,LOGOUT,YES,XCTLWTO) INTERVENTION REQUIRED */ 00794000 */*CKCOUNT: D (YES,,NO,%LAB4) RETRY COUNT = 5 */ 00795000 */* P (,LOGOUT) CLEAR ERROR COUNTS */ 00796000 */*%LAB4: P (,XCTLWTO) INCREMENT ERROR COUNT */ 00797000 */* END */ 00798000 * 0258 00799000 * END IEC2540A 0258 00800000 * 0258 00801000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00802000 */*%INCLUDE SYSLIB (CVT ) */ 00803000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00804000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00805000 * 0258 00806000 * ; 0258 00807000 @DATA DS 0H 00808000 @DATD DSECT 00809000 DS 0F 00810000 IEC2540A CSECT 00811000 DS 0F 00812000 @DATD DSECT 00813000 DS 0D 00814000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00815000 @ENDDATD EQU * 00816000 IEC2540A CSECT 00817000 DS 0F 00818000 @SIZDATD DC AL1(0) 00819000 DC AL3(@ENDDATD-@DATD) 00820000 DS 0D 00821000 CCWLEN DC H'8' 00822000 WTOID DC XL2'FD' 00823000 STATID DC XL2'FE' 00824000 PATCH DC CL50' ' 00825000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00826000 @01 EQU 01 00827000 @02 EQU 02 00828000 @03 EQU 03 00829000 @04 EQU 04 00830000 @05 EQU 05 00831000 @06 EQU 06 00832000 @07 EQU 07 00833000 @08 EQU 08 00834000 @09 EQU 09 00835000 @10 EQU 10 00836000 @11 EQU 11 00837000 @12 EQU 12 00838000 @13 EQU 13 00839000 @14 EQU 14 00840000 @15 EQU 15 00841000 CVTPTR EQU @04 00842000 UCBPTR EQU @06 00843000 IOSBPTR EQU @01 00844000 EWAPTR EQU @02 00845000 CCWRST EQU @03 00846000 DATDREG EQU @05 00847000 SAVREG EQU @09 00848000 IDREG EQU @13 00849000 XCTLREG EQU @14 00850000 BASREG EQU @15 00851000 CVTAD EQU 16 00852000 CVTMAP EQU 0 00853000 CVTXTLER EQU CVTMAP+44 00854000 CVTXITP EQU CVTMAP+68 00855000 CVTDAR EQU CVTMAP+72 00856000 CVTFLGS1 EQU CVTDAR 00857000 CVTDCB EQU CVTMAP+116 00858000 CVTOPTA EQU CVTMAP+182 00859000 CVTOPTB EQU CVTMAP+183 00860000 CVTTSCVT EQU CVTMAP+228 00861000 CVTTSFLG EQU CVTTSCVT 00862000 CVTGTF EQU CVTMAP+236 00863000 CVTGTFST EQU CVTGTF 00864000 CVTGTFS EQU CVTGTFST 00865000 CVTSTATE EQU CVTGTFST 00866000 CVTTMODE EQU CVTGTFST 00867000 CVTFORM EQU CVTGTFST 00868000 CVTUSR EQU CVTGTFST 00869000 CVTAQAVT EQU CVTMAP+240 00870000 CVTTCMFG EQU CVTAQAVT 00871000 CVTTATA EQU CVTMAP+244 00872000 CVTATER EQU CVTMAP+248 00873000 CVTEXT1 EQU CVTMAP+252 00874000 CVTPURG EQU CVTMAP+260 00875000 CVTQMSG EQU CVTMAP+268 00876000 CVTDMSR EQU CVTMAP+272 00877000 CVTAPF EQU CVTMAP+324 00878000 CVTEXT2 EQU CVTMAP+328 00879000 CVTHJES EQU CVTMAP+332 00880000 CVTPGSIA EQU CVTMAP+348 00881000 CVTA1F1 EQU CVTMAP+356 00882000 CVTSYSK EQU CVTMAP+357 00883000 CVTATMCT EQU CVTMAP+388 00884000 CVTXTNT1 EQU 0 00885000 CVTXTNT2 EQU 0 00886000 CVTDSSV EQU CVTXTNT2 00887000 CVTRSV90 EQU CVTXTNT2+5 00888000 CVTQID EQU CVTXTNT2+24 00889000 CVTRV400 EQU CVTXTNT2+52 00890000 CVTRV409 EQU CVTXTNT2+53 00891000 CVTATCVT EQU CVTXTNT2+64 00892000 CVTRV429 EQU CVTXTNT2+84 00893000 CVTRV438 EQU CVTXTNT2+85 00894000 CVTRV457 EQU CVTXTNT2+112 00895000 CVTRV466 EQU CVTXTNT2+113 00896000 CVTFIX EQU 0 00897000 CVTRELNO EQU CVTFIX+252 00898000 UCBOB EQU 0 00899000 UCBJBNR EQU UCBOB 00900000 UCBFL5 EQU UCBOB+1 00901000 UCBAF EQU UCBFL5 00902000 UCBSTAT EQU UCBOB+3 00903000 UCBCHAN EQU UCBOB+4 00904000 UCBSFLS EQU UCBOB+6 00905000 UCBFLA EQU UCBSFLS 00906000 UCBFL1 EQU UCBFLA 00907000 UCBBSY EQU UCBFL1 00908000 UCBNRY EQU UCBFL1 00909000 UCBPST EQU UCBFL1 00910000 UCBCUB EQU UCBFL1 00911000 UCBFLB EQU UCBSFLS+1 00912000 UCBATI EQU UCBOB+11 00913000 @NM00003 EQU UCBATI 00914000 UCBWGT EQU UCBOB+12 00915000 UCBTYP EQU UCBOB+16 00916000 UCBTBYT1 EQU UCBTYP 00917000 UCB1FEA5 EQU UCBTBYT1 00918000 UCB1FEA6 EQU UCBTBYT1 00919000 UCBTBYT2 EQU UCBTYP+1 00920000 UCB2OPT2 EQU UCBTBYT2 00921000 UCBDUDN1 EQU UCB2OPT2 00922000 UCB2OPT3 EQU UCBTBYT2 00923000 UCBDUDN2 EQU UCB2OPT3 00924000 UCB2OPT4 EQU UCBTBYT2 00925000 UCBTBYT3 EQU UCBTYP+2 00926000 UCBDVCLS EQU UCBTBYT3 00927000 UCBTBYT4 EQU UCBTYP+3 00928000 UCBCHM EQU UCBOB+20 00929000 UCBCHM1 EQU UCBCHM 00930000 UCBPTH0 EQU UCBCHM1 00931000 UCBPTH1 EQU UCBCHM1 00932000 UCBCHM2 EQU UCBCHM+1 00933000 UCBDEV EQU UCBOB+24 00934000 UCBMT EQU 0 00935000 UCBOCR EQU 0 00936000 UCBUCS EQU 0 00937000 UCBUCSOP EQU UCBUCS+4 00938000 UCBFCBOP EQU UCBUCS+5 00939000 IOSB EQU 0 00940000 IOSFLA EQU IOSB 00941000 IOSACHN EQU IOSFLA 00942000 IOSDCHN EQU IOSACHN 00943000 IOSCCHN EQU IOSACHN 00944000 IOSERR EQU IOSFLA 00945000 IOSEX EQU IOSFLA 00946000 IOSFLB EQU IOSB+1 00947000 IOSMSG EQU IOSFLB 00948000 IOSLOG EQU IOSFLB 00949000 IOSFLC EQU IOSB+2 00950000 IOSDVALT EQU IOSFLC 00951000 IOSPKEY EQU IOSB+12 00952000 IOSCOD EQU IOSB+13 00953000 IOSOPT EQU IOSB+14 00954000 IOSUCB EQU IOSB+16 00955000 @NM00007 EQU IOSB+20 00956000 IOSCSW EQU @NM00007+1 00957000 IOSCSWCA EQU IOSCSW 00958000 IOSTATUS EQU IOSCSW+3 00959000 IOSSNS EQU IOSB+42 00960000 IOSIPIB EQU IOSB+44 00961000 IOSERP EQU IOSB+52 00962000 IOSRST EQU IOSB+72 00963000 IOSPATH EQU IOSB+86 00964000 IOSCHN EQU IOSPATH 00965000 IOSCKEY EQU IOSB+89 00966000 IOSEEKA EQU IOSB+100 00967000 IOSCCHH EQU IOSEEKA+3 00968000 IOSSKHH EQU IOSCCHH+2 00969000 EWA EQU 0 00970000 EWAHDR EQU EWA 00971000 EWAFLAGS EQU EWA+4 00972000 EWAFLG1 EQU EWAFLAGS 00973000 EWASCCD EQU EWAFLG1 00974000 EWASCC3 EQU EWASCCD 00975000 EWAFLG2 EQU EWAFLAGS+1 00976000 EWASNSCT EQU EWAFLAGS+3 00977000 EWACNTRS EQU EWA+10 00978000 EWACNTR1 EQU EWACNTRS 00979000 EWACNTR2 EQU EWACNTRS+1 00980000 EWASTUP EQU EWA+14 00981000 EWAERPIB EQU EWA+16 00982000 EWARGFG1 EQU EWAERPIB+4 00983000 EWANORTY EQU EWARGFG1 00984000 EWAXCSW2 EQU EWAERPIB+7 00985000 EWAIERP EQU EWA+32 00986000 CCW EQU 0 00987000 CMDCODE EQU CCW 00988000 CMDB0 EQU CMDCODE 00989000 CMDB1 EQU CMDCODE 00990000 CMDB2 EQU CMDCODE 00991000 CMDB3 EQU CMDCODE 00992000 CMDB6 EQU CMDCODE 00993000 UCBBGN EQU 0 00994000 CVTS01 EQU CVTPGSIA 00995000 CVTLPDIA EQU CVTS01+12 00996000 CVTDIRST EQU CVTLPDIA 00997000 CVTSLIDA EQU CVTS01+24 00998000 CVTCTLFG EQU CVTS01+50 00999000 CVTRV100 EQU CVTS01+116 01000000 CVTRV109 EQU CVTS01+117 01001000 CVTRV118 EQU CVTS01+118 01002000 CVTRV127 EQU CVTS01+119 01003000 CVTRV157 EQU CVTS01+376 01004000 CVTRV166 EQU CVTS01+377 01005000 CVTRV175 EQU CVTS01+378 01006000 CVTRV184 EQU CVTS01+379 01007000 CVTRV210 EQU CVTS01+424 01008000 CVTRV219 EQU CVTS01+425 01009000 CVTRV228 EQU CVTS01+426 01010000 CVTRV237 EQU CVTS01+427 01011000 CVTMFRTR EQU CVTS01+452 01012000 CVTRV262 EQU CVTS01+468 01013000 CVTRV271 EQU CVTS01+469 01014000 CVTRV280 EQU CVTS01+470 01015000 CVTRV289 EQU CVTS01+471 01016000 CVTGSDA EQU CVTS01+600 01017000 UCBOBS01 EQU UCBDEV 01018000 UCBSTAB EQU UCBOBS01+10 01019000 UCBBSVL EQU UCBSTAB 01020000 UCBPRSRS EQU UCBSTAB 01021000 UCBDMCT EQU UCBOBS01+11 01022000 UCBFL4 EQU UCBOBS01+13 01023000 UCBOBS02 EQU UCBDEV 01024000 UCBTFL1 EQU UCBOBS02+19 01025000 UCBXTN EQU UCBOBS02+20 01026000 UCBVOPT EQU UCBXTN 01027000 UCBOBS03 EQU UCBDEV 01028000 UCBXTADR EQU UCBOBS03 01029000 UCBOBS04 EQU UCBDEV 01030000 UCBBTA EQU UCBOBS04+12 01031000 UCBOBS06 EQU UCBDEV 01032000 UCBAOF EQU UCBOBS06 01033000 UCBAOF1 EQU UCBAOF 01034000 UCBAOF2 EQU UCBAOF+1 01035000 @NM00005 EQU UCBOBS06+3 01036000 UCBIRB EQU UCBOBS06+4 01037000 UCBGRAF EQU UCBIRB 01038000 UCBLDNCA EQU UCBOBS06+8 01039000 UCBRDYQ EQU UCBLDNCA 01040000 UCBIRLN EQU UCBRDYQ 01041000 UCBLDNCB EQU UCBRDYQ+1 01042000 UCBCTLNK EQU UCBOBS06+12 01043000 UCBOBS07 EQU UCBDEV 01044000 IOSATTSC EQU IOSIPIB 01045000 IOSWTOWA EQU IOSIPIB 01046000 IOSPCISC EQU IOSIPIB 01047000 EWADDIOS EQU EWAIERP 01048000 EWUMAP EQU EWAIERP 01049000 EWUSN0 EQU EWUMAP 01050000 EWUINT EQU EWUSN0 01051000 EWUEQCK EQU EWUSN0 01052000 EWUBUFP EQU EWUSN0 01053000 EWUOVRN EQU EWUBUFP 01054000 EWULDCK EQU EWUSN0 01055000 EWUUSEQ EQU EWULDCK 01056000 EWUCH9 EQU EWUSN0 01057000 EWUPEK EQU EWUCH9 01058000 EWUSN1 EQU EWUMAP+1 01059000 EWUCRTRY EQU EWUSN1 01060000 EWUPCK EQU EWUSN1 01061000 EWUPQ EQU EWUSN1 01062000 EWULNPOS EQU EWUSN1 01063000 EWUSN2 EQU EWUMAP+2 01064000 EWUWORK EQU EWUMAP+8 01065000 @NM00022 EQU EWAXCSW2 01066000 RTRYCD EQU @NM00022 01067000 RTRYCD4 EQU RTRYCD 01068000 RTRYCD2 EQU RTRYCD 01069000 RTRYCD1 EQU RTRYCD 01070000 RETRYCNT EQU EWACNTR1 01071000 ERRCNTS EQU EWACNTR2 01072000 IORSTRT EQU ERRCNTS 01073000 IOENTRY EQU ERRCNTS 01074000 IOBOERR EQU ERRCNTS 01075000 ACPTUCS EQU ERRCNTS 01076000 CHCNTRL EQU ERRCNTS 01077000 IOOVRN EQU ERRCNTS 01078000 @NM00025 EQU EWASTUP 01079000 CDKSTAT EQU @NM00025+1 01080000 @NM00027 EQU IOSTATUS 01081000 CSWCHE EQU @NM00027 01082000 CSWUCK EQU @NM00027 01083000 CSWCDK EQU @NM00027+1 01084000 CSWCTK EQU @NM00027+1 01085000 CSWICK EQU @NM00027+1 01086000 CSWCCK EQU @NM00027+1 01087000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01088000 CSWPCK EQU @NM00027+1 01089000 CSWPC EQU @NM00027+1 01090000 CSWIL EQU @NM00027+1 01091000 CSWPCI EQU @NM00027+1 01092000 CSWUEX EQU @NM00027 01093000 CSWDVE EQU @NM00027 01094000 CSWBSY EQU @NM00027 01095000 CSWCUE EQU @NM00027 01096000 CSWSMD EQU @NM00027 01097000 CSWATN EQU @NM00027 01098000 @NM00026 EQU @NM00025 01099000 @NM00024 EQU ERRCNTS 01100000 @NM00023 EQU @NM00022 01101000 @NM00020 EQU EWUMAP+6 01102000 EWUSN5 EQU EWUMAP+5 01103000 EWUSN4 EQU EWUMAP+4 01104000 EWUSN3 EQU EWUMAP+3 01105000 EWUFCBP EQU EWUSN2 01106000 EWUPLBP EQU EWUSN2 01107000 EWUUCSBP EQU EWUSN2 01108000 @NM00019 EQU EWUSN1 01109000 EWUMECMO EQU EWUSN1 01110000 EWUSUPR EQU EWUSN1 01111000 EWUFORM EQU EWUSN1 01112000 EWUIRTRY EQU EWULNPOS 01113000 EWUMOT EQU EWUPQ 01114000 EWUARTRY EQU EWUPCK 01115000 EWUPERM EQU EWUCRTRY 01116000 EWUABFR EQU EWUUSEQ 01117000 EWUDTCK EQU EWUSN0 01118000 EWUBUSO EQU EWUSN0 01119000 EWUCREJ EQU EWUSN0 01120000 EWAEND EQU EWADDIOS+71 01121000 EWASCSW EQU EWADDIOS+64 01122000 EWASNS EQU EWADDIOS 01123000 IOSPCIWA EQU IOSPCISC+44 01124000 IOSPCIRS EQU IOSPCISC+8 01125000 @NM00012 EQU IOSPCISC+4 01126000 @NM00011 EQU IOSPCISC 01127000 IOSWRNDR EQU IOSWTOWA+4 01128000 IOSWTOPT EQU IOSWTOWA+3 01129000 IOSWTOCP EQU IOSWTOWA+2 01130000 IOSWTOCH EQU IOSWTOWA 01131000 IOSATTWA EQU IOSATTSC+40 01132000 @NM00010 EQU IOSATTSC+24 01133000 IOSATTSN EQU IOSATTSC 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 UCBSTART EQU UCBOBS04+8 01177000 UCBTEB EQU UCBOBS04+4 01178000 UCBGCB EQU UCBOBS04+3 01179000 UCBOPEN EQU UCBOBS04+2 01180000 UCBRES1C 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 UCBFL44 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 CVTRV512 EQU CVTS01+608 01230000 CVTADV EQU CVTS01+604 01231000 CVTGSDAB EQU CVTGSDA 01232000 CVTQV3 EQU CVTS01+596 01233000 CVTQV2 EQU CVTS01+592 01234000 CVTQV1 EQU CVTS01+588 01235000 CVTRPT EQU CVTS01+584 01236000 CVTSSRB EQU CVTS01+580 01237000 CVTCSDRL EQU CVTS01+576 01238000 CVTEXP1 EQU CVTS01+572 01239000 CVTRMPMT EQU CVTS01+568 01240000 CVTRMPTT EQU CVTS01+564 01241000 CVTVPSA EQU CVTS01+560 01242000 CVTVSTOP EQU CVTS01+556 01243000 CVTGTFR8 EQU CVTS01+552 01244000 CVTQUIT EQU CVTS01+548 01245000 CVTVACR EQU CVTS01+544 01246000 CVTWTCB EQU CVTS01+540 01247000 CVTSTPRS EQU CVTS01+536 01248000 CVT0PT02 EQU CVTS01+532 01249000 CVTDARCM EQU CVTS01+528 01250000 CVTIRECM EQU CVTS01+524 01251000 CVTJRECM EQU CVTS01+520 01252000 CVTVEMS0 EQU CVTS01+516 01253000 CVTSPFRR EQU CVTS01+512 01254000 CVTRLSTG EQU CVTS01+508 01255000 CVT0TC0A EQU CVTS01+504 01256000 CVTGMBR EQU CVTS01+500 01257000 CVTLFRM EQU CVTS01+496 01258000 CVTRMBR EQU CVTS01+492 01259000 CVTVIOP EQU CVTS01+488 01260000 CVTRV307 EQU CVTS01+486 01261000 CVTRV306 EQU CVTS01+484 01262000 CVTRV305 EQU CVTS01+482 01263000 CVTRV304 EQU CVTS01+480 01264000 CVTRV303 EQU CVTS01+478 01265000 CVTRV302 EQU CVTS01+476 01266000 CVTRV301 EQU CVTS01+475 01267000 CVTRV300 EQU CVTS01+474 01268000 CVTRV299 EQU CVTS01+473 01269000 CVTRV298 EQU CVTS01+472 01270000 CVTRV297 EQU CVTRV289 01271000 CVTRV296 EQU CVTRV289 01272000 CVTRV295 EQU CVTRV289 01273000 CVTRV294 EQU CVTRV289 01274000 CVTRV293 EQU CVTRV289 01275000 CVTRV292 EQU CVTRV289 01276000 CVTRV291 EQU CVTRV289 01277000 CVTRV290 EQU CVTRV289 01278000 CVTRV288 EQU CVTRV280 01279000 CVTRV287 EQU CVTRV280 01280000 CVTRV286 EQU CVTRV280 01281000 CVTRV285 EQU CVTRV280 01282000 CVTRV284 EQU CVTRV280 01283000 CVTRV283 EQU CVTRV280 01284000 CVTRV282 EQU CVTRV280 01285000 CVTRV281 EQU CVTRV280 01286000 CVTRV279 EQU CVTRV271 01287000 CVTRV278 EQU CVTRV271 01288000 CVTRV277 EQU CVTRV271 01289000 CVTRV276 EQU CVTRV271 01290000 CVTRV275 EQU CVTRV271 01291000 CVTRV274 EQU CVTRV271 01292000 CVTRV273 EQU CVTRV271 01293000 CVTRV272 EQU CVTRV271 01294000 CVTRV270 EQU CVTRV262 01295000 CVTRV269 EQU CVTRV262 01296000 CVTRV268 EQU CVTRV262 01297000 CVTRV267 EQU CVTRV262 01298000 CVTRV266 EQU CVTRV262 01299000 CVTRV265 EQU CVTRV262 01300000 CVTRV264 EQU CVTRV262 01301000 CVTRV263 EQU CVTRV262 01302000 CVTVFP EQU CVTS01+464 01303000 CVTVSI EQU CVTS01+460 01304000 CVTVPSIB EQU CVTS01+456 01305000 CVTMFACT EQU CVTMFRTR 01306000 CVTMFCTL EQU CVTS01+448 01307000 CVTPVBP EQU CVTS01+444 01308000 CVTPWI EQU CVTS01+440 01309000 CVTRV254 EQU CVTS01+438 01310000 CVTRV253 EQU CVTS01+436 01311000 CVTRV252 EQU CVTS01+434 01312000 CVTRV251 EQU CVTS01+433 01313000 CVTRV250 EQU CVTS01+432 01314000 CVTRV249 EQU CVTS01+431 01315000 CVTRV248 EQU CVTS01+430 01316000 CVTRV247 EQU CVTS01+429 01317000 CVTRV246 EQU CVTS01+428 01318000 CVTRV245 EQU CVTRV237 01319000 CVTRV244 EQU CVTRV237 01320000 CVTRV243 EQU CVTRV237 01321000 CVTRV242 EQU CVTRV237 01322000 CVTRV241 EQU CVTRV237 01323000 CVTRV240 EQU CVTRV237 01324000 CVTRV239 EQU CVTRV237 01325000 CVTRV238 EQU CVTRV237 01326000 CVTRV236 EQU CVTRV228 01327000 CVTRV235 EQU CVTRV228 01328000 CVTRV234 EQU CVTRV228 01329000 CVTRV233 EQU CVTRV228 01330000 CVTRV232 EQU CVTRV228 01331000 CVTRV231 EQU CVTRV228 01332000 CVTRV230 EQU CVTRV228 01333000 CVTRV229 EQU CVTRV228 01334000 CVTRV227 EQU CVTRV219 01335000 CVTRV226 EQU CVTRV219 01336000 CVTRV225 EQU CVTRV219 01337000 CVTRV224 EQU CVTRV219 01338000 CVTRV223 EQU CVTRV219 01339000 CVTRV222 EQU CVTRV219 01340000 CVTRV221 EQU CVTRV219 01341000 CVTRV220 EQU CVTRV219 01342000 CVTRV218 EQU CVTRV210 01343000 CVTRV217 EQU CVTRV210 01344000 CVTRV216 EQU CVTRV210 01345000 CVTRV215 EQU CVTRV210 01346000 CVTRV214 EQU CVTRV210 01347000 CVTRV213 EQU CVTRV210 01348000 CVTRV212 EQU CVTRV210 01349000 CVTRV211 EQU CVTRV210 01350000 CVTLCCAT EQU CVTS01+420 01351000 CVTPCCAT EQU CVTS01+416 01352000 CVTIPCRP EQU CVTS01+412 01353000 CVTIPCRI EQU CVTS01+408 01354000 CVTIPCDS EQU CVTS01+404 01355000 CVTAIDVT EQU CVTS01+400 01356000 CVTSSAP EQU CVTS01+396 01357000 CVTRV202 EQU CVTS01+394 01358000 CVTRV201 EQU CVTS01+392 01359000 CVTRV200 EQU CVTS01+390 01360000 CVTRV199 EQU CVTS01+388 01361000 CVTRV198 EQU CVTS01+386 01362000 CVTRV197 EQU CVTS01+384 01363000 CVTRV196 EQU CVTS01+383 01364000 CVTRV195 EQU CVTS01+382 01365000 CVTRV194 EQU CVTS01+381 01366000 CVTRV193 EQU CVTS01+380 01367000 CVTRV192 EQU CVTRV184 01368000 CVTRV191 EQU CVTRV184 01369000 CVTRV190 EQU CVTRV184 01370000 CVTRV189 EQU CVTRV184 01371000 CVTRV188 EQU CVTRV184 01372000 CVTRV187 EQU CVTRV184 01373000 CVTRV186 EQU CVTRV184 01374000 CVTRV185 EQU CVTRV184 01375000 CVTRV183 EQU CVTRV175 01376000 CVTRV182 EQU CVTRV175 01377000 CVTRV181 EQU CVTRV175 01378000 CVTRV180 EQU CVTRV175 01379000 CVTRV179 EQU CVTRV175 01380000 CVTRV178 EQU CVTRV175 01381000 CVTRV177 EQU CVTRV175 01382000 CVTRV176 EQU CVTRV175 01383000 CVTRV174 EQU CVTRV166 01384000 CVTRV173 EQU CVTRV166 01385000 CVTRV172 EQU CVTRV166 01386000 CVTRV171 EQU CVTRV166 01387000 CVTRV170 EQU CVTRV166 01388000 CVTRV169 EQU CVTRV166 01389000 CVTRV168 EQU CVTRV166 01390000 CVTRV167 EQU CVTRV166 01391000 CVTRV165 EQU CVTRV157 01392000 CVTRV164 EQU CVTRV157 01393000 CVTRV163 EQU CVTRV157 01394000 CVTRV162 EQU CVTRV157 01395000 CVTRV161 EQU CVTRV157 01396000 CVTRV160 EQU CVTRV157 01397000 CVTRV159 EQU CVTRV157 01398000 CVTRV158 EQU CVTRV157 01399000 CVTRV156 EQU CVTS01+372 01400000 CVTRSTWD EQU CVTS01+368 01401000 CVTSPOST EQU CVTS01+364 01402000 CVTIOBP EQU CVTS01+360 01403000 CVTASMVT EQU CVTS01+356 01404000 CVTRECRQ EQU CVTS01+352 01405000 CVTWSAC EQU CVTS01+348 01406000 CVTWSAG EQU CVTS01+344 01407000 CVTWSAL EQU CVTS01+340 01408000 CVTSPSA EQU CVTS01+336 01409000 CVTGLMN EQU CVTS01+332 01410000 CVTVEAC0 EQU CVTS01+328 01411000 CVT062R1 EQU CVTS01+324 01412000 CVTRPOST EQU CVTS01+320 01413000 CVTDQIQE EQU CVTS01+316 01414000 CVTCSD EQU CVTS01+312 01415000 CVTLKRMA EQU CVTS01+308 01416000 CVTRSPIE EQU CVTS01+304 01417000 CVTRENQ EQU CVTS01+300 01418000 CVTLQCB EQU CVTS01+296 01419000 CVTFQCB EQU CVTS01+292 01420000 CVTQCS01 EQU CVTS01+288 01421000 CVTAPFT EQU CVTS01+284 01422000 CVTPARRL EQU CVTS01+280 01423000 CVTVWAIT EQU CVTS01+276 01424000 CVTGSPL EQU CVTS01+272 01425000 CVTLSMQ EQU CVTS01+268 01426000 CVTGSMQ EQU CVTS01+264 01427000 CVTEXPRO EQU CVTS01+260 01428000 CVTOPCTP EQU CVTS01+256 01429000 CVTSIC EQU CVTS01+252 01430000 CVTTPIOS EQU CVTS01+248 01431000 CVTRTMS EQU CVTS01+244 01432000 CVTSDBF EQU CVTS01+240 01433000 CVTSCBP EQU CVTS01+236 01434000 CVTSDMP EQU CVTS01+232 01435000 CVTSV60 EQU CVTS01+228 01436000 CVTRTMCT EQU CVTS01+224 01437000 CVTASCBL EQU CVTS01+220 01438000 CVTASCBH EQU CVTS01+216 01439000 CVTGDA EQU CVTS01+212 01440000 CVTASVT EQU CVTS01+208 01441000 CVTVVMDI EQU CVTS01+204 01442000 CVTAQTOP EQU CVTS01+200 01443000 CVTIOSCS EQU CVTS01+196 01444000 CVTSDRM EQU CVTS01+192 01445000 CVTOPTE EQU CVTS01+188 01446000 CVTSTXU EQU CVTS01+184 01447000 CVTQUIS EQU CVTS01+180 01448000 CVTQREC EQU CVTS01+176 01449000 CVTS1EE EQU CVTS01+172 01450000 CVTFRAS EQU CVTS01+168 01451000 CVTQSAS EQU CVTS01+164 01452000 CVTCRAS EQU CVTS01+160 01453000 CVTCRMN EQU CVTS01+156 01454000 CVTDELCP EQU CVTS01+152 01455000 CVTFRECL EQU CVTS01+148 01456000 CVTGETCL EQU CVTS01+144 01457000 CVTBLDCP EQU CVTS01+140 01458000 CVTAUTHL EQU CVTS01+136 01459000 CVTRV146 EQU CVTS01+134 01460000 CVTRV145 EQU CVTS01+132 01461000 CVTRV144 EQU CVTS01+130 01462000 CVTMAXMP EQU CVTS01+128 01463000 CVTRV142 EQU CVTS01+126 01464000 CVTRV141 EQU CVTS01+125 01465000 CVTRV140 EQU CVTS01+124 01466000 CVTRV139 EQU CVTS01+123 01467000 CVTDSSAC EQU CVTS01+122 01468000 CVTRV513 EQU CVTS01+121 01469000 CVTIOSPL EQU CVTS01+120 01470000 CVTRV135 EQU CVTRV127 01471000 CVTRV134 EQU CVTRV127 01472000 CVTRV133 EQU CVTRV127 01473000 CVTRV132 EQU CVTRV127 01474000 CVTRV131 EQU CVTRV127 01475000 CVTRV130 EQU CVTRV127 01476000 CVTRV129 EQU CVTRV127 01477000 CVTRV128 EQU CVTRV127 01478000 CVTRV126 EQU CVTRV118 01479000 CVTRV125 EQU CVTRV118 01480000 CVTRV124 EQU CVTRV118 01481000 CVTRV123 EQU CVTRV118 01482000 CVTRV122 EQU CVTRV118 01483000 CVTRV121 EQU CVTRV118 01484000 CVTRV120 EQU CVTRV118 01485000 CVTRV119 EQU CVTRV118 01486000 CVTRV117 EQU CVTRV109 01487000 CVTRV116 EQU CVTRV109 01488000 CVTRV115 EQU CVTRV109 01489000 CVTRV114 EQU CVTRV109 01490000 CVTRV113 EQU CVTRV109 01491000 CVTRV112 EQU CVTRV109 01492000 CVTRV111 EQU CVTRV109 01493000 CVTRV110 EQU CVTRV109 01494000 CVTRV108 EQU CVTRV100 01495000 CVTRV107 EQU CVTRV100 01496000 CVTRV106 EQU CVTRV100 01497000 CVTRV105 EQU CVTRV100 01498000 CVTRV104 EQU CVTRV100 01499000 CVTRV103 EQU CVTRV100 01500000 CVTRV102 EQU CVTRV100 01501000 CVTRV101 EQU CVTRV100 01502000 CVTCSPIE EQU CVTS01+112 01503000 CVTSMFEX EQU CVTS01+108 01504000 CVTOLT0A EQU CVTS01+104 01505000 CVTSRBRT EQU CVTS01+100 01506000 CVTRSV82 EQU CVTS01+98 01507000 CVTRSV81 EQU CVTS01+96 01508000 CVTSYSWT EQU CVTS01+92 01509000 CVTRV327 EQU CVTS01+88 01510000 CVTRV326 EQU CVTS01+84 01511000 CVTRV325 EQU CVTS01+80 01512000 CVTRV324 EQU CVTS01+76 01513000 CVT0VL01 EQU CVTS01+72 01514000 CVTSHRVM EQU CVTS01+68 01515000 CVTRV332 EQU CVTS01+64 01516000 CVTTAS EQU CVTS01+60 01517000 CVTRSCN EQU CVTS01+56 01518000 CVTTRAC2 EQU CVTS01+54 01519000 CVTTRACE EQU CVTS01+52 01520000 CVTAPG EQU CVTS01+51 01521000 CVTSDTRC EQU CVTCTLFG 01522000 CVTGTRCE EQU CVTCTLFG 01523000 CVTNOMP EQU CVTCTLFG 01524000 CVTRSV79 EQU CVTCTLFG 01525000 CVTDSTAT EQU CVTCTLFG 01526000 CVTRSV78 EQU CVTCTLFG 01527000 CVTRV333 EQU CVTCTLFG 01528000 CVTRV323 EQU CVTCTLFG 01529000 CVTSPVLK EQU CVTS01+49 01530000 CVTRSV77 EQU CVTS01+48 01531000 CVTRV331 EQU CVTS01+44 01532000 CVTRV330 EQU CVTS01+40 01533000 CVTRV329 EQU CVTS01+36 01534000 CVTRV328 EQU CVTS01+32 01535000 CVTRV322 EQU CVTS01+28 01536000 CVTSLID EQU CVTSLIDA+1 01537000 CVTSYLK EQU CVTSLIDA 01538000 CVTRV321 EQU CVTS01+20 01539000 CVTRV320 EQU CVTS01+16 01540000 CVTLPDIR EQU CVTLPDIA+1 01541000 CVTRSV69 EQU CVTDIRST 01542000 CVTRSV68 EQU CVTDIRST 01543000 CVTRSV67 EQU CVTDIRST 01544000 CVTRSV66 EQU CVTDIRST 01545000 CVTRSV65 EQU CVTDIRST 01546000 CVTRSV64 EQU CVTDIRST 01547000 CVTRSV63 EQU CVTDIRST 01548000 CVTDICOM EQU CVTDIRST 01549000 CVTPVTP EQU CVTS01+8 01550000 CVTLPDSR EQU CVTS01+4 01551000 CVTRSVA2 EQU CVTS01 01552000 @NM00021 EQU CCW+1 01553000 CMDB7 EQU CMDCODE 01554000 CMDB5 EQU CMDCODE 01555000 CMDB4 EQU CMDCODE 01556000 EWADDISP EQU EWA+29 01557000 EWADCNT EQU EWA+28 01558000 EWACPU EQU EWA+27 01559000 @NM00018 EQU EWA+26 01560000 EWACHA EQU EWA+24 01561000 EWAXCSW1 EQU EWAERPIB+6 01562000 EWARGFG2 EQU EWAERPIB+5 01563000 @NM00017 EQU EWARGFG1 01564000 EWAUCB EQU EWAERPIB+1 01565000 @NM00016 EQU EWAERPIB 01566000 EWACNTR4 EQU EWACNTRS+3 01567000 EWACNTR3 EQU EWACNTRS+2 01568000 EWASSTAT EQU EWA+8 01569000 EWASCTMX EQU EWASNSCT 01570000 @NM00015 EQU EWASNSCT 01571000 EWAFLG3 EQU EWAFLAGS+2 01572000 @NM00014 EQU EWAFLG2 01573000 EWACOVF EQU EWAFLG2 01574000 EWAWTEMP EQU EWAFLG2 01575000 EWAMDR EQU EWAFLG2 01576000 EWABDSNS EQU EWAFLG1 01577000 EWADDMSG EQU EWAFLG1 01578000 EWASCC1 EQU EWASCC3 01579000 EWASCC2 EQU EWASCC3 01580000 @NM00013 EQU EWAFLG1 01581000 EWASLIS EQU EWAFLG1 01582000 EWAEXT EQU EWAHDR 01583000 IOSEND EQU IOSB+108 01584000 IOSSKR EQU IOSEEKA+7 01585000 IOSSKH2 EQU IOSSKHH+1 01586000 IOSSKH1 EQU IOSSKHH 01587000 IOSSKCC EQU IOSCCHH 01588000 IOSSKBB EQU IOSEEKA+1 01589000 IOSSKM EQU IOSEEKA 01590000 IOSEEK EQU IOSB+92 01591000 IOSMDM EQU IOSB+91 01592000 IOSMDB EQU IOSB+90 01593000 IOSCKEY7 EQU IOSCKEY 01594000 IOSCKEY6 EQU IOSCKEY 01595000 IOSCKEY5 EQU IOSCKEY 01596000 IOSCKEY4 EQU IOSCKEY 01597000 @NM00009 EQU IOSCKEY 01598000 IOSFMSK EQU IOSB+88 01599000 IOSCUDEV EQU IOSPATH+1 01600000 @NM00008 EQU IOSCHN 01601000 IOSPATH3 EQU IOSCHN 01602000 IOSPATH2 EQU IOSCHN 01603000 IOSEXP EQU IOSCHN 01604000 IOSGDP EQU IOSCHN 01605000 IOSAFF EQU IOSB+85 01606000 IOSRSS1B EQU IOSB+84 01607000 IOSDSID EQU IOSB+80 01608000 IOSVST EQU IOSB+76 01609000 IOSDIE EQU IOSB+68 01610000 IOSABN EQU IOSB+64 01611000 IOSNRM EQU IOSB+60 01612000 IOSPCI EQU IOSB+56 01613000 IOSPCHN EQU IOSB+48 01614000 IOSAPMSK EQU IOSB+40 01615000 IOSRES4A EQU IOSB+36 01616000 IOSUSE EQU IOSB+32 01617000 IOSSRB EQU IOSB+28 01618000 IOSCSWRC EQU IOSCSW+5 01619000 IOSTSB EQU IOSTATUS+1 01620000 IOSTSA EQU IOSTATUS 01621000 IOSCC EQU @NM00007 01622000 IOSRSS2A EQU IOSB+15 01623000 IOSRELSE EQU IOSOPT 01624000 IOSAPR EQU IOSOPT 01625000 IOSHTP EQU IOSOPT 01626000 IOSNERP EQU IOSOPT 01627000 IOSPSLL EQU IOSOPT 01628000 IOSQISCE EQU IOSOPT 01629000 IOSDEP EQU IOSOPT 01630000 IOSBYP EQU IOSOPT 01631000 IOSPKY7 EQU IOSPKEY 01632000 IOSPGDPX EQU IOSPKEY 01633000 IOSIDR EQU IOSPKEY 01634000 IOSLCL EQU IOSPKEY 01635000 @NM00006 EQU IOSPKEY 01636000 IOSPGAD EQU IOSB+8 01637000 IOSASID EQU IOSB+6 01638000 IOSPRLVL EQU IOSB+5 01639000 IOSDVRID EQU IOSB+4 01640000 IOSPROC EQU IOSB+3 01641000 IOSFLC7 EQU IOSFLC 01642000 IOSFLC6 EQU IOSFLC 01643000 IOSGLC5 EQU IOSFLC 01644000 IOSFLC4 EQU IOSFLC 01645000 IOSFLC3 EQU IOSFLC 01646000 IOSFLC2 EQU IOSFLC 01647000 IOSVERIF EQU IOSDVALT 01648000 IOSDVMNT EQU IOSFLC 01649000 IOSBDCST EQU IOSFLB 01650000 IOSFLB4 EQU IOSFLB 01651000 IOSFLB3 EQU IOSFLB 01652000 IOSFLB2 EQU IOSFLB 01653000 IOSFLB1 EQU IOSFLB 01654000 IOSDIESE EQU IOSFLB 01655000 IOSIOSB EQU IOSFLA 01656000 IOSFLA6 EQU IOSFLA 01657000 IOSSMDB EQU IOSFLA 01658000 IOSSMDA EQU IOSFLA 01659000 UCBERADR EQU UCBUCS+12 01660000 UCBFCBID EQU UCBUCS+8 01661000 UCBERCNT EQU UCBUCS+7 01662000 UCBRSV51 EQU UCBUCS+6 01663000 UCBRSV50 EQU UCBFCBOP 01664000 UCBRSV49 EQU UCBFCBOP 01665000 UCBRSV48 EQU UCBFCBOP 01666000 UCBRSV47 EQU UCBFCBOP 01667000 UCBRSV46 EQU UCBFCBOP 01668000 UCBRSV45 EQU UCBFCBOP 01669000 UCBRSV44 EQU UCBFCBOP 01670000 UCBFCBO1 EQU UCBFCBOP 01671000 UCBUCSPE EQU UCBUCSOP 01672000 UCBRSV43 EQU UCBUCSOP 01673000 UCBRSV42 EQU UCBUCSOP 01674000 UCBRSV41 EQU UCBUCSOP 01675000 UCBRSV40 EQU UCBUCSOP 01676000 UCBRSV39 EQU UCBUCSOP 01677000 UCBUCSO2 EQU UCBUCSOP 01678000 UCBUCSO1 EQU UCBUCSOP 01679000 UCBUCSID EQU UCBUCS 01680000 UCBRDATA EQU UCBOCR+4 01681000 UCBFRID EQU UCBOCR 01682000 UCBCLN EQU UCBMT+14 01683000 UCBERG EQU UCBMT+12 01684000 UCBMS EQU UCBMT+11 01685000 UCBNB EQU UCBMT+10 01686000 UCBPW EQU UCBMT+9 01687000 UCBPR EQU UCBMT+8 01688000 UCBSIO EQU UCBMT+6 01689000 UCBTW EQU UCBMT+5 01690000 UCBTR EQU UCBMT+4 01691000 UCBTWT EQU UCBMT+3 01692000 UCBTRT EQU UCBMT+2 01693000 UCBCTD EQU UCBMT 01694000 UCBDTI EQU UCBOB+23 01695000 UCBSNSCT EQU UCBOB+22 01696000 UCBRV025 EQU UCBCHM2 01697000 UCBRV024 EQU UCBCHM2 01698000 UCBRV023 EQU UCBCHM2 01699000 UCBRV022 EQU UCBCHM2 01700000 UCBRV021 EQU UCBCHM2 01701000 UCBRV020 EQU UCBCHM2 01702000 UCBRV019 EQU UCBCHM2 01703000 UCBRV018 EQU UCBCHM2 01704000 UCBRV017 EQU UCBCHM1 01705000 UCBRV016 EQU UCBCHM1 01706000 UCBRV015 EQU UCBCHM1 01707000 UCBRV014 EQU UCBCHM1 01708000 UCBSPB EQU UCBPTH1 01709000 UCBPPB EQU UCBPTH1 01710000 UCBSPA EQU UCBPTH0 01711000 UCBPPA EQU UCBPTH0 01712000 UCBUNTYP EQU UCBTBYT4 01713000 UCBRSV11 EQU UCBDVCLS 01714000 UCBRSV10 EQU UCBDVCLS 01715000 UCB3CHAR EQU UCBDVCLS 01716000 UCB3UREC EQU UCBDVCLS 01717000 UCB3DISP EQU UCBDVCLS 01718000 UCB3DACC EQU UCBDVCLS 01719000 UCB3COMM EQU UCBDVCLS 01720000 UCB3TAPE EQU UCBDVCLS 01721000 UCB2OPT7 EQU UCBTBYT2 01722000 UCB2OPT6 EQU UCBTBYT2 01723000 UCB2OPT5 EQU UCBTBYT2 01724000 UCBRWTAU EQU UCB2OPT4 01725000 UCBRPS EQU UCBDUDN2 01726000 UCBRR EQU UCBDUDN1 01727000 UCB2OPT1 EQU UCBTBYT2 01728000 UCB2OPT0 EQU UCBTBYT2 01729000 UCB1FEA7 EQU UCBTBYT1 01730000 UCBD6250 EQU UCB1FEA6 01731000 UCBD1600 EQU UCB1FEA5 01732000 UCB1FEA4 EQU UCBTBYT1 01733000 UCB1FEA3 EQU UCBTBYT1 01734000 UCB1FEA2 EQU UCBTBYT1 01735000 UCB1FEA1 EQU UCBTBYT1 01736000 UCB1FEA0 EQU UCBTBYT1 01737000 UCBNAME EQU UCBOB+13 01738000 UCBRV029 EQU UCBWGT 01739000 UCBVHRSN EQU UCBWGT 01740000 UCBVORSN EQU UCBWGT 01741000 UCBMTPXP EQU UCBWGT 01742000 UCBREW EQU UCBWGT 01743000 UCBPUB EQU UCBWGT 01744000 UCBOUT EQU UCBWGT 01745000 UCBIN EQU UCBWGT 01746000 UCBHPDV EQU @NM00003 01747000 UCBHALI EQU @NM00003 01748000 UCBRSV09 EQU @NM00003 01749000 UCBRSV08 EQU @NM00003 01750000 UCBRSV07 EQU @NM00003 01751000 UCBRSV06 EQU @NM00003 01752000 UCBRSV05 EQU @NM00003 01753000 UCBRSV04 EQU @NM00003 01754000 UCBLCI EQU UCBOB+10 01755000 UCBSTI EQU UCBOB+9 01756000 UCBETI EQU UCBOB+8 01757000 UCBFLB7 EQU UCBFLB 01758000 UCBFLB6 EQU UCBFLB 01759000 UCBFLB5 EQU UCBFLB 01760000 UCBFLB4 EQU UCBFLB 01761000 UCBRESVH EQU UCBFLB 01762000 UCBSPST EQU UCBFLB 01763000 UCBASNS EQU UCBFLB 01764000 UCBIORST EQU UCBFLB 01765000 UCBQISCE EQU UCBFL1 01766000 UCBACTV EQU UCBFL1 01767000 UCBSAP EQU UCBFL1 01768000 UCBNOTRC EQU UCBCUB 01769000 UCBPSNS EQU UCBFL1 01770000 UCBUSING EQU UCBPST 01771000 UCBNOTRD EQU UCBNRY 01772000 UCBBUSYD EQU UCBBSY 01773000 UCBUA EQU UCBCHAN+1 01774000 UCBCHA EQU UCBCHAN 01775000 UCBDADI EQU UCBSTAT 01776000 UCBSYSR EQU UCBSTAT 01777000 UCBPRES EQU UCBSTAT 01778000 UCBALOC EQU UCBSTAT 01779000 UCBUNLD EQU UCBSTAT 01780000 UCBRESV EQU UCBSTAT 01781000 UCBCHGS EQU UCBSTAT 01782000 UCBONLI EQU UCBSTAT 01783000 UCBID EQU UCBOB+2 01784000 UCBALTPH EQU UCBFL5 01785000 UCBALTCU EQU UCBFL5 01786000 UCBNALOC EQU UCBFL5 01787000 UCBENVRD EQU UCBFL5 01788000 UCBVSDR EQU UCBFL5 01789000 UCBSASK EQU UCBFL5 01790000 UCBAMV EQU UCBAF 01791000 UCBDCC EQU UCBFL5 01792000 UCBMONT EQU UCBJBNR 01793000 UCBRV011 EQU UCBJBNR 01794000 UCBRSV02 EQU UCBJBNR 01795000 UCBRSV01 EQU UCBJBNR 01796000 UCBRV003 EQU UCBJBNR 01797000 UCBRV002 EQU UCBJBNR 01798000 UCBRV001 EQU UCBJBNR 01799000 UCBVRDEV EQU UCBJBNR 01800000 UCBCMSEG EQU UCBOB 01801000 CVTLEVL EQU CVTRELNO+2 01802000 CVTNUMB EQU CVTRELNO 01803000 CVTMDL EQU CVTFIX+250 01804000 @NM00002 EQU CVTFIX+248 01805000 @NM00001 EQU CVTFIX 01806000 CVTRV482 EQU CVTXTNT2+128 01807000 CVTRV481 EQU CVTXTNT2+124 01808000 CVTRV480 EQU CVTXTNT2+120 01809000 CVTRV479 EQU CVTXTNT2+118 01810000 CVTRV478 EQU CVTXTNT2+117 01811000 CVTRV477 EQU CVTXTNT2+116 01812000 CVTRV476 EQU CVTXTNT2+115 01813000 CVTRV475 EQU CVTXTNT2+114 01814000 CVTRV474 EQU CVTRV466 01815000 CVTRV473 EQU CVTRV466 01816000 CVTRV472 EQU CVTRV466 01817000 CVTRV471 EQU CVTRV466 01818000 CVTRV470 EQU CVTRV466 01819000 CVTRV469 EQU CVTRV466 01820000 CVTRV468 EQU CVTRV466 01821000 CVTRV467 EQU CVTRV466 01822000 CVTRV465 EQU CVTRV457 01823000 CVTRV464 EQU CVTRV457 01824000 CVTRV463 EQU CVTRV457 01825000 CVTRV462 EQU CVTRV457 01826000 CVTRV461 EQU CVTRV457 01827000 CVTRV460 EQU CVTRV457 01828000 CVTRV459 EQU CVTRV457 01829000 CVTRV458 EQU CVTRV457 01830000 CVTRV456 EQU CVTXTNT2+108 01831000 CVTRV455 EQU CVTXTNT2+104 01832000 CVTRV454 EQU CVTXTNT2+100 01833000 CVTRV453 EQU CVTXTNT2+96 01834000 CVTRV452 EQU CVTXTNT2+94 01835000 CVTRV451 EQU CVTXTNT2+92 01836000 CVTRV450 EQU CVTXTNT2+90 01837000 CVTRV449 EQU CVTXTNT2+88 01838000 CVTRV448 EQU CVTXTNT2+87 01839000 CVTRV447 EQU CVTXTNT2+86 01840000 CVTRV446 EQU CVTRV438 01841000 CVTRV445 EQU CVTRV438 01842000 CVTRV444 EQU CVTRV438 01843000 CVTRV443 EQU CVTRV438 01844000 CVTRV442 EQU CVTRV438 01845000 CVTRV441 EQU CVTRV438 01846000 CVTRV440 EQU CVTRV438 01847000 CVTRV439 EQU CVTRV438 01848000 CVTRV437 EQU CVTRV429 01849000 CVTRV436 EQU CVTRV429 01850000 CVTRV435 EQU CVTRV429 01851000 CVTRV434 EQU CVTRV429 01852000 CVTRV433 EQU CVTRV429 01853000 CVTRV432 EQU CVTRV429 01854000 CVTRV431 EQU CVTRV429 01855000 CVTRV430 EQU CVTRV429 01856000 CVTRV428 EQU CVTXTNT2+80 01857000 CVTRV427 EQU CVTXTNT2+76 01858000 CVTRV426 EQU CVTXTNT2+72 01859000 CVTRV425 EQU CVTXTNT2+68 01860000 CVTATACT EQU CVTATCVT 01861000 CVTRV423 EQU CVTXTNT2+62 01862000 CVTRV422 EQU CVTXTNT2+60 01863000 CVTRV421 EQU CVTXTNT2+58 01864000 CVTRV420 EQU CVTXTNT2+56 01865000 CVTRV419 EQU CVTXTNT2+55 01866000 CVTRV418 EQU CVTXTNT2+54 01867000 CVTRV417 EQU CVTRV409 01868000 CVTRV416 EQU CVTRV409 01869000 CVTRV415 EQU CVTRV409 01870000 CVTRV414 EQU CVTRV409 01871000 CVTRV413 EQU CVTRV409 01872000 CVTRV412 EQU CVTRV409 01873000 CVTRV411 EQU CVTRV409 01874000 CVTRV410 EQU CVTRV409 01875000 CVTRV408 EQU CVTRV400 01876000 CVTRV407 EQU CVTRV400 01877000 CVTRV406 EQU CVTRV400 01878000 CVTRV405 EQU CVTRV400 01879000 CVTRV404 EQU CVTRV400 01880000 CVTRV403 EQU CVTRV400 01881000 CVTRV402 EQU CVTRV400 01882000 CVTRV401 EQU CVTRV400 01883000 CVTRSVA1 EQU CVTXTNT2+48 01884000 CVTRSVA0 EQU CVTXTNT2+44 01885000 CVTRSV99 EQU CVTXTNT2+40 01886000 CVTRSV98 EQU CVTXTNT2+36 01887000 CVTRSV97 EQU CVTXTNT2+34 01888000 CVTRSV96 EQU CVTXTNT2+32 01889000 CVTOLTEP EQU CVTXTNT2+28 01890000 CVTQIDA EQU CVTQID+1 01891000 CVTRSV95 EQU CVTQID 01892000 CVTRSV94 EQU CVTXTNT2+20 01893000 CVTRSV93 EQU CVTXTNT2+16 01894000 CVTRAP EQU CVTXTNT2+12 01895000 CVTDEBVR EQU CVTXTNT2+8 01896000 CVTRSV91 EQU CVTXTNT2+6 01897000 CVTRSV9H EQU CVTRSV90 01898000 CVTRSV9G EQU CVTRSV90 01899000 CVTRSV9F EQU CVTRSV90 01900000 CVTRSV9E EQU CVTRSV90 01901000 CVTRSV9D EQU CVTRSV90 01902000 CVTRSV9C EQU CVTRSV90 01903000 CVTRSV9B EQU CVTRSV90 01904000 CVTRSV9A EQU CVTRSV90 01905000 CVTNUCLS EQU CVTXTNT2+4 01906000 CVTDSSVA EQU CVTDSSV+1 01907000 CVTRSV89 EQU CVTDSSV 01908000 CVTRSV88 EQU CVTXTNT1+8 01909000 CVTRSV87 EQU CVTXTNT1+4 01910000 CVTFACHN EQU CVTXTNT1 01911000 CVTRV488 EQU CVTMAP+412 01912000 CVTRV487 EQU CVTMAP+408 01913000 CVTRV486 EQU CVTMAP+404 01914000 CVTRV485 EQU CVTMAP+400 01915000 CVTRV484 EQU CVTMAP+396 01916000 CVTAUTH EQU CVTMAP+392 01917000 CVTATMCA EQU CVTATMCT+1 01918000 CVTATMST EQU CVTATMCT 01919000 CVTRSV61 EQU CVTMAP+384 01920000 CVTRSV60 EQU CVTMAP+380 01921000 CVTSTOA EQU CVTMAP+376 01922000 CVTRSV58 EQU CVTMAP+374 01923000 CVTRSV57 EQU CVTMAP+372 01924000 CVTDDCE EQU CVTMAP+368 01925000 CVTPNWFR EQU CVTMAP+364 01926000 CVTSMF EQU CVTMAP+360 01927000 CVTSULK EQU CVTMAP+358 01928000 CVTSLKO EQU CVTSYSK 01929000 CVTSLKP EQU CVTSYSK 01930000 CVTSLKQ EQU CVTSYSK 01931000 CVTSLKR EQU CVTSYSK 01932000 CVTRSV56 EQU CVTSYSK 01933000 CVTRSV55 EQU CVTSYSK 01934000 CVTRSV54 EQU CVTSYSK 01935000 CVTRSV53 EQU CVTSYSK 01936000 CVTRSV52 EQU CVTA1F1 01937000 CVTRSV51 EQU CVTA1F1 01938000 CVTRSV50 EQU CVTA1F1 01939000 CVTRSV49 EQU CVTA1F1 01940000 CVTRSV48 EQU CVTA1F1 01941000 CVTRSV47 EQU CVTA1F1 01942000 CVTSRSW EQU CVTA1F1 01943000 CVTPFSW EQU CVTA1F1 01944000 CVTPCVT EQU CVTMAP+352 01945000 CVTRSV46 EQU CVTMAP+344 01946000 CVTRSV45 EQU CVTMAP+340 01947000 CVTRSV44 EQU CVTMAP+338 01948000 CVTRSV43 EQU CVTMAP+336 01949000 CVTHJESA EQU CVTHJES+1 01950000 CVTRSV42 EQU CVTHJES 01951000 CVTEXT2A EQU CVTEXT2+1 01952000 CVTRSV41 EQU CVTEXT2 01953000 CVTAPFA EQU CVTAPF+1 01954000 CVTRSV40 EQU CVTAPF 01955000 CVTINTLA EQU CVTMAP+320 01956000 CVTERPV EQU CVTMAP+316 01957000 CVTEORM EQU CVTMAP+312 01958000 CVTMCHPR EQU CVTMAP+308 01959000 CVTTZ EQU CVTMAP+304 01960000 CVTJEPS EQU CVTMAP+300 01961000 CVTJESCT EQU CVTMAP+296 01962000 CVTMODE EQU CVTMAP+292 01963000 CVTPTRV EQU CVTMAP+288 01964000 CVTREAL EQU CVTMAP+284 01965000 CVTRSV39 EQU CVTMAP+280 01966000 CVTRSV38 EQU CVTMAP+276 01967000 CVTDMSRA EQU CVTDMSR+1 01968000 CVTRSV37 EQU CVTDMSR 01969000 CVTQMSGA EQU CVTQMSG+1 01970000 CVTRSV36 EQU CVTQMSG 01971000 CVTAMFF EQU CVTMAP+264 01972000 CVTPURGA EQU CVTPURG+1 01973000 CVTRSV35 EQU CVTPURG 01974000 CVTCBSP EQU CVTMAP+256 01975000 CVTATERA EQU CVTATER+1 01976000 CVTSYST EQU CVTATER 01977000 CVTTAT EQU CVTTATA+1 01978000 CVTTSKS EQU CVTTATA 01979000 CVTAQAVB EQU CVTAQAVT+1 01980000 CVTRSV34 EQU CVTTCMFG 01981000 CVTRSV33 EQU CVTTCMFG 01982000 CVTRSV32 EQU CVTTCMFG 01983000 CVTRSV31 EQU CVTTCMFG 01984000 CVTRSV30 EQU CVTTCMFG 01985000 CVTRSV29 EQU CVTTCMFG 01986000 CVTRSV28 EQU CVTTCMFG 01987000 CVTTCRDY EQU CVTTCMFG 01988000 CVTGTFA EQU CVTGTF+1 01989000 CVTRSV27 EQU CVTGTFST 01990000 CVTRNIO EQU CVTGTFST 01991000 CVTRV319 EQU CVTUSR 01992000 CVTRV318 EQU CVTFORM 01993000 CVTRV317 EQU CVTTMODE 01994000 CVTRV316 EQU CVTSTATE 01995000 CVTRV315 EQU CVTGTFS 01996000 CVTGTFAV EQU CVTGTFS 01997000 CVT0SCR1 EQU CVTMAP+232 01998000 CVTTSCVB EQU CVTTSCVT+1 01999000 CVTRSV25 EQU CVTTSFLG 02000000 CVTRSV24 EQU CVTTSFLG 02001000 CVTRSV23 EQU CVTTSFLG 02002000 CVTRSV22 EQU CVTTSFLG 02003000 CVTRSV21 EQU CVTTSFLG 02004000 CVTRSV20 EQU CVTTSFLG 02005000 CVTRSV19 EQU CVTTSFLG 02006000 CVTTSRDY EQU CVTTSFLG 02007000 CVTRMS EQU CVTMAP+224 02008000 CVTPATCH EQU CVTMAP+220 02009000 CVTTSCE EQU CVTMAP+216 02010000 CVTLNKSC EQU CVTMAP+214 02011000 CVTQABST EQU CVTMAP+212 02012000 CVTMDLDS EQU CVTMAP+208 02013000 CVTUSER EQU CVTMAP+204 02014000 CVTABEND EQU CVTMAP+200 02015000 CVTSMCA EQU CVTMAP+196 02016000 CVTRSV18 EQU CVTMAP+192 02017000 CVTQLPAQ EQU CVTMAP+188 02018000 CVTQCDSR EQU CVTMAP+184 02019000 CVTRSV17 EQU CVTOPTB 02020000 CVTRSV16 EQU CVTOPTB 02021000 CVTFP EQU CVTOPTB 02022000 CVTAPTHR EQU CVTOPTB 02023000 CVTNLOG EQU CVTOPTB 02024000 CVTTOD EQU CVTOPTB 02025000 CVTCTIMS EQU CVTOPTB 02026000 CVTPROT EQU CVTOPTB 02027000 CVTXPFP EQU CVTOPTA 02028000 CVTASCII EQU CVTOPTA 02029000 CVTRSV13 EQU CVTOPTA 02030000 CVTRSV12 EQU CVTOPTA 02031000 CVTNIP EQU CVTOPTA 02032000 CVTDDR EQU CVTOPTA 02033000 CVTAPR EQU CVTOPTA 02034000 CVTCCH EQU CVTOPTA 02035000 CVTSNCTR EQU CVTMAP+180 02036000 CVTQMWR EQU CVTMAP+176 02037000 CVTQOCR EQU CVTMAP+172 02038000 CVT1EF00 EQU CVTMAP+168 02039000 CVTMZ00 EQU CVTMAP+164 02040000 CVTHEAD EQU CVTMAP+160 02041000 CVTRSV11 EQU CVTMAP+156 02042000 CVT0PT01 EQU CVTMAP+152 02043000 CVTMSER EQU CVTMAP+148 02044000 CVTIERLC EQU CVTMAP+144 02045000 CVTILCH EQU CVTMAP+140 02046000 CVT0DS EQU CVTMAP+136 02047000 CVTFBOSV EQU CVTMAP+132 02048000 CVTNUCB EQU CVTMAP+128 02049000 CVTIXAVL EQU CVTMAP+124 02050000 CVTIOQET EQU CVTMAP+120 02051000 CVTDCBA EQU CVTMAP+117 02052000 CVTMVS2 EQU CVTDCB 02053000 CVT6DAT EQU CVTDCB 02054000 CVT4MPS EQU CVTDCB 02055000 CVTRSV09 EQU CVTDCB 02056000 CVT4MS1 EQU CVTDCB 02057000 CVT2SPS EQU CVTDCB 02058000 CVT1SSS EQU CVTDCB 02059000 CVTRSV08 EQU CVTDCB 02060000 CVTSTB EQU CVTMAP+112 02061000 CVTQTD00 EQU CVTMAP+108 02062000 CVTQTE00 EQU CVTMAP+104 02063000 CVTCUCB EQU CVTMAP+100 02064000 CVTSJQ EQU CVTMAP+96 02065000 CVTPBLDL EQU CVTMAP+92 02066000 CVTTPC EQU CVTMAP+88 02067000 CVTSVDCB EQU CVTMAP+84 02068000 CVTBRET EQU CVTMAP+82 02069000 CVTEXIT EQU CVTMAP+80 02070000 CVT0FN00 EQU CVTMAP+76 02071000 CVTDARA EQU CVTDAR+1 02072000 CVTRSV07 EQU CVTFLGS1 02073000 CVTRSV06 EQU CVTFLGS1 02074000 CVTRSV05 EQU CVTFLGS1 02075000 CVTRSV04 EQU CVTFLGS1 02076000 CVTRSV03 EQU CVTFLGS1 02077000 CVTRSV02 EQU CVTFLGS1 02078000 CVTRSV01 EQU CVTFLGS1 02079000 CVTDMPLK EQU CVTFLGS1 02080000 CVTZDTAB EQU CVTMAP+64 02081000 CVTMSLT EQU CVTMAP+60 02082000 CVTDATE EQU CVTMAP+56 02083000 CVTBTERM EQU CVTMAP+52 02084000 CVTSYSAD EQU CVTMAP+48 02085000 CVTILK2 EQU CVTMAP+40 02086000 CVTILK1 EQU CVTMAP+36 02087000 CVTPRLTV EQU CVTMAP+32 02088000 CVTPCNVT EQU CVTMAP+28 02089000 CVT0VL00 EQU CVTMAP+24 02090000 CVTXAPG EQU CVTMAP+20 02091000 CVTBUF EQU CVTMAP+16 02092000 CVTJOB EQU CVTMAP+12 02093000 CVTLINK EQU CVTMAP+8 02094000 CVT0EF00 EQU CVTMAP+4 02095000 CVTTCBP EQU CVTMAP 02096000 CVT EQU CVTMAP 02097000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02098000 @RT00086 EQU ERRWTO 02099000 @RT00089 EQU CNTRLCK 02100000 @RT00091 EQU SETENTRY 02101000 @RT00096 EQU CNTRLCK 02102000 @RT00105 EQU CHANERR 02103000 @RT00107 EQU TSTUCK2 02104000 @RT00109 EQU LOGOUT 02105000 @RT00113 EQU CHANDCK 02106000 @RT00117 EQU LOGOUT 02107000 @RT00119 EQU READERR 02108000 @RT00122 EQU TSTSTAT 02109000 @RT00125 EQU TSTSTAT2 02110000 @RT00130 EQU CKINTCPT 02111000 @RF00134 EQU XCTLWTO 02112000 @RT00141 EQU BUSCNT 02113000 @RT00143 EQU LOGOUT 02114000 @RT00145 EQU LOGOUT 02115000 @RT00154 EQU LOGOUT 02116000 @RT00156 EQU LOGOUT 02117000 @RT00158 EQU LOGOUT 02118000 @RT00163 EQU LOGOUT 02119000 @RT00168 EQU ERRWTO 02120000 @RT00179 EQU TSTSTAT2 02121000 @RT00194 EQU TSTSTAT 02122000 @RF00196 EQU READERR 02123000 @RT00202 EQU LOGOUT 02124000 @RT00204 EQU LOGOUT 02125000 @RT00206 EQU LOGOUT 02126000 @RT00208 EQU LOGOUT 02127000 @RT00210 EQU CCHTEST 02128000 @RT00212 EQU CCHTEST 02129000 @RT00214 EQU LOGOUT 02130000 @RT00218 EQU CCHTEST2 02131000 @RT00220 EQU CCHTEST2 02132000 @RT00222 EQU CCHTEST4 02133000 @RT00224 EQU LOGOUT 02134000 @RT00226 EQU LOGOUT 02135000 @RT00234 EQU LOGOUT 02136000 @RT00236 EQU CCHTEST2 02137000 @RT00238 EQU LOGOUT 02138000 @RT00243 EQU NOCMDTST 02139000 @RT00245 EQU LOGOUT 02140000 @RT00247 EQU CKCOUNT 02141000 @RT00250 EQU XCTLWTO 02142000 @RF00250 EQU LOGOUT 02143000 @RT00253 EQU LOGOUT 02144000 @ENDDATA EQU * 02145000 END IEC2540A 02146000