TITLE '3505/3525 ERROR RECOVERY PROCEDURE *00001000 ' 00002000 IEC3505A CSECT 00003000 USING IEC3505A,BASREG ESTABLISH ADDRESSABILITY 00004000 USING @DATD,DATDREG 00005000 BC 15,ER3505A 00006000 DC CL8'IGE0001A' 00007000 DC CL8' 030 ' 00008000 DC CL8'10/29/74' 00009000 * 0079 00010000 * /*****************************************************************/ 00011000 * /* */ 00012000 * /* 3505/3525 ERROR RECOVERY PROCEDURE */ 00013000 * /* */ 00014000 * /*****************************************************************/ 00015000 * 0079 00016000 *ER3505A: 0079 00017000 * EWAPTR=IOSERP; /* INIT PTR TO ERP WORK AREA */ 00018000 ER3505A L EWAPTR,IOSERP(,IOSBPTR) 0079 00019000 * DATDREG=ADDR(EWUWORK); /* DATA ADDR FOR COMIPLER TEMPS */ 00020000 LA DATDREG,EWUWORK(,EWAPTR) 0080 00021000 * CVTPTR=CVTAD; 0081 00022000 L CVTPTR,CVTAD 0081 00023000 * IOSEX=ON; /* SET IOSEX AND IOSERR TO 0082 00024000 * INDICATE ERP IN CONTROL */ 00025000 * IOSERR=ON; 0083 00026000 OI IOSEX(IOSBPTR),B'00100100' 0083 00027000 * IF IOSDCHN=ON& /* MIXED CHAINING, PERM ERR */ 00028000 * IOSCCHN=ON THEN 0084 00029000 TM IOSDCHN(IOSBPTR),B'11000000' 0084 00030000 BO @RT00084 0084 00031000 * GO TO ERRWTO; 0085 00032000 * ELSE 0086 00033000 * CCWRST=IOSCSWCA-CCWLEN; /* CALCULATE CCW RESTART ADDR */ 00034000 L CCWRST,IOSCSWCA-1(,IOSBPTR) 0086 00035000 LA CCWRST,0(,CCWRST) 0086 00036000 SH CCWRST,CCWLEN 0086 00037000 * IF IOSCCHN=OFF THEN /* IF NOT CMD CHAINING, TEST CSW 00038000 * STATUS */ 00039000 TM IOSCCHN(IOSBPTR),B'01000000' 0087 00040000 BZ @RT00087 0087 00041000 * GO TO STATUS; 0088 00042000 * IF IOENTRY=OFF THEN /* FIRST ENTRY, SET FLAG */ 00043000 TM IOENTRY(EWAPTR),B'01000000' 0089 00044000 BNZ @RF00089 0089 00045000 * DO; 0090 00046000 * IOENTRY=ON; /* SET FIRST ENTRY FLAG */ 00047000 OI IOENTRY(EWAPTR),B'01000000' 0091 00048000 * GO TO RSTART; /* TO SET RESTART FLAG */ 00049000 B RSTART 0092 00050000 * END; 0093 00051000 * RFY 0094 00052000 * IDREG RSTD; 0094 00053000 @RF00089 DS 0H 0095 00054000 * IDREG=CCWRST; 0095 00055000 LR IDREG,CCWRST 0095 00056000 * GEN(LRA IDREG,0(IDREG)); 0096 00057000 LRA IDREG,0(IDREG) 00058000 * IF IDREG=IOSRST THEN /* IF ERROR ON SAME CCW, TEST CSW 00059000 * STATUS */ 00060000 C IDREG,IOSRST(,IOSBPTR) 0097 00061000 BE @RT00097 0097 00062000 * GO TO STATUS; 0098 00063000 * RFY 0099 00064000 * IDREG UNRSTD; 0099 00065000 * IOARTRY=OFF; /* CLEAR PREVIOUS ERROR FLAGS */ 00066000 * IOCCC=OFF; 0101 00067000 * IOICC=OFF; 0102 00068000 NI IOARTRY(EWAPTR),B'11000111' 0102 00069000 *RSTART: 0103 00070000 * IORSTRT=ON; /* SET RESTART FLAG IN EWA */ 00071000 RSTART OI IORSTRT(EWAPTR),B'10000000' 0103 00072000 * GEN(EJECT); 0104 00073000 EJECT 00074000 *STATUS: 0105 00075000 * 0105 00076000 * /*****************************************************************/ 00077000 * /* */ 00078000 * /* LINK TO THE RESIDENT ERROR INTERPRETER ROUTINE TO INTERROGATE */ 00079000 * /* THE CSW STATUS BYTES. */ 00080000 * /* */ 00081000 * /*****************************************************************/ 00082000 * 0105 00083000 * GEN REFS(CVTXITP,CVTPTR) SETS(SAVREG,XCTLREG) FLOWS(CCCERR,ICCERR, 00084000 * CHANDCK,LOGOUT,SENSE0,ERRWTO,PGMERR,ERRCORR); 0105 00085000 STATUS DS 0H 0105 00086000 LR SAVREG,BASREG SAVE REG 15 00087000 L BASREG,CVTXITP(,CVTPTR) ADDR OF ERR INTERPRETER RTN 00088000 STATBAS BALR XCTLREG,BASREG TO INTERPRET STATUS BYTES 00089000 DC X'1D' IF CHANNEL CONTROL CHECK, 00090000 DC AL1(ERSTAT1-STATBAS-2) THEN GO TO CCCERR 00091000 DC X'1E' IF INTERFACE CONTROL CHECK, 00092000 DC AL1(ERSTAT2-STATBAS-4) THEN GO TO ICCERR 00093000 DC X'1C' IF CHANNEL DATA CHECK, 00094000 DC AL1(ERSTAT3-STATBAS-6) THEN GO TO CHANDCK 00095000 DC X'10' IF 'SHOULD NOT OCCUR', 00096000 DC AL1(ERSTAT4-STATBAS-8) THEN GO TO LOGOUT 00097000 DC X'11' IF 'SHOULD NOT OCCUR', 00098000 DC AL1(ERSTAT4-STATBAS-10) THEN GO TO LOGOUT 00099000 DC X'12' IF 'SHOULD NOT OCCUR', 00100000 DC AL1(ERSTAT4-STATBAS-12) THEN GO TO LOGOUT 00101000 DC X'16' IF UNIT CHECK, 00102000 DC AL1(SENSE0-STATBAS-14) THEN GO TO SENSE0 00103000 DC X'1F' IF CHANNEL CHAINING CHECK, 00104000 DC AL1(ERSTAT5-STATBAS-16) THEN GO TO ERRWTO 00105000 DC X'1A' IF PROGRAM CHECK, 00106000 DC AL1(ERSTAT6-STATBAS-18) THEN GO TO PGMERR 00107000 DC X'1B' IF PROTECTION CHECK, 00108000 DC AL1(ERSTAT6-STATBAS-20) THEN GO TO PGMERR 00109000 DC X'17' IF UNIT EXCEPTION, 00110000 DC AL1(ERSTAT6-STATBAS-22) THEN GO TO PGMERR 00111000 DC X'19' IF INCORRECT LENGTH, 00112000 DC AL1(ERSTAT6-STATBAS-24) THEN GO TO PGMERR 00113000 DC X'2F' END OF TEST, 00114000 DC AL1(ERSTAT7-STATBAS-26) THEN GO TO ERRCORR 00115000 EJECT 00116000 *SENSE0: 0106 00117000 * 0106 00118000 * /*****************************************************************/ 00119000 * /* */ 00120000 * /* LINK TO THE RESIDENT ERROR INTERPRETER ROUTINE TO INTERROGATE */ 00121000 * /* SENSE BYTE 0. */ 00122000 * /* */ 00123000 * /*****************************************************************/ 00124000 * 0106 00125000 * GEN REFS(CVTXITP,CVTPTR) SETS(SAVREG,XCTLREG) FLOWS(LOGOUT,ERRWTO, 00126000 * EQUIPCK,SENSE1,INTREQ); 0106 00127000 SENSE0 DS 0H 0106 00128000 LR SAVREG,BASREG SAVE REG 15 00129000 L BASREG,CVTXITP(,CVTPTR) ADDR OF ERR INTERPRETER RTN 00130000 SNSBAS BALR XCTLREG,BASREG TO INTERPRET SENSE BYTE 0 00131000 DC X'05' IF 'SHOULD NOT OCCUR', 00132000 DC AL1(ERSTAT4-SNSBAS-2) THEN GO TO LOGOUT 00133000 DC X'07' IF PERMANENT ERROR, 00134000 DC AL1(ERSTAT8-SNSBAS-4) THEN GO TO ERRWTO 00135000 DC X'03' IF EQUIPMENT CHECK, 00136000 DC AL1(ERSTAT9-SNSBAS-6) THEN GO TO EQUIPCK 00137000 DC X'06' IF ABNORMAL FORMAT RESET, 00138000 DC AL1(SENSE1-SNSBAS-8) THEN GO TO SENSE1 00139000 DC X'01' IF INTERVENTION REQUIRED, 00140000 DC AL1(ERSTATA-SNSBAS-10) THEN GO TO INTREQ 00141000 DC X'02' IF BUSOUT CHECK, 00142000 DC AL1(SENSE1-SNSBAS-12) THEN GO TO SENSE1 00143000 DC X'04' IF DATA CHECK, 00144000 DC AL1(SENSE1-SNSBAS-14) THEN GO TO SENSE1 00145000 DC X'00' IF COMMAND REJECT, 00146000 DC AL1(SENSE1-SNSBAS-16) THEN GO TO SENSE1 00147000 DC X'2F' END OF TEST, 00148000 DC AL1(ERSTAT4-SNSBAS-18) GO TO LOGOUT 00149000 EJECT 00150000 *SENSE1: 0107 00151000 * 0107 00152000 * /*****************************************************************/ 00153000 * /* */ 00154000 * /* LINK TO THE RESIDENT ERROR INTERPRETER ROUTINE TO INTERROGATE */ 00155000 * /* SENSE BYTE 1. */ 00156000 * /* */ 00157000 * /*****************************************************************/ 00158000 * 0107 00159000 * GEN REFS(CVTXITP,CVTPTR) SETS(SAVREG,XCTLREG) FLOWS(LOGOUT,ERRWTO, 00160000 * INTRETRY,AUTORTRY); 0107 00161000 SENSE1 DS 0H 0107 00162000 LR SAVREG,BASREG SAVE REG 15 00163000 L BASREG,CVTXITP(,CVTPTR) ADDR OF ERR INTERPRETER RTN 00164000 SNSBAS1 BALR XCTLREG,BASREG TO INTERPRET SENSE BYTE 1 00165000 DC X'0C' IF 'SHOULD NOT OCCUR', 00166000 DC AL1(ERSTAT4-SNSBAS1-2) THEN GO TO LOGOUT 00167000 DC X'0D' IF 'SHOULD NOT OCCUR', 00168000 DC AL1(ERSTAT4-SNSBAS1-4) THEN GO TO LOGOUT 00169000 DC X'0E' IF 'SHOULD NOT OCCUR', 00170000 DC AL1(ERSTAT4-SNSBAS1-6) THEN GO TO LOGOUT 00171000 DC X'0F' IF 'SHOULD NOT OCCUR', 00172000 DC AL1(ERSTAT4-SNSBAS1-8) THEN GO TO LOGOUT 00173000 DC X'08' IF PERMANENT ERROR, 00174000 DC AL1(ERSTAT8-SNSBAS1-10) THEN GO TO ERRWTO 00175000 DC X'0B' IF RETRY AFTER INTERVENTION, 00176000 DC AL1(ERSTATB-SNSBAS1-12) THEN GO TO INTRETRY 00177000 DC X'09' IF AUTOMATIC RETRY, 00178000 DC AL1(ERSTATC-SNSBAS1-14) THEN GO TO AUTORTRY 00179000 DC X'2F' END OF TEST, 00180000 DC AL1(ERSTAT4-SNSBAS1-16) GO TO LOGOUT 00181000 SPACE 2 00182000 * ERROR BRANCH TABLE 00183000 SPACE 00184000 ERSTAT1 B CCCERR CHANNEL CONTROL CHECK 00185000 ERSTAT2 B ICCERR INTERFACE CONTROL CHECK 00186000 ERSTAT3 B CHANDCK CHANNEL DATA CHECK 00187000 ERSTAT4 B LOGOUT 'SHOULD NOT OCCUR' ERRORS 00188000 ERSTAT5 B ERRWTO CHANNEL CHAINING CHECK 00189000 ERSTAT6 B PGMERR PROGRAM CHECK, PROTECTION CHECK, 00190000 * UNIT EXCEPTION, INCORRECT LENGTH 00191000 ERSTAT7 B ERRCORR STATUS END OF TEST 00192000 ERSTAT8 B ERRWTO PERMANENT ERROR 00193000 ERSTAT9 B EQUIPCK EQUIPMENT CHECK 00194000 ERSTATA B INTREQ INTERVENTION REQUIRED 00195000 ERSTATB B INTRETRY RETRY AFTER INTERVENTION REQUIRED 00196000 ERSTATC B AUTORTRY AUTOMATIC RETRY 00197000 EJECT 00198000 * 0108 00199000 * /*****************************************************************/ 00200000 * /* */ 00201000 * /* CHANNEL OR INTERFACE CONTROL CHECK */ 00202000 * /* */ 00203000 * /*****************************************************************/ 00204000 * 0108 00205000 *CCCERR: 0108 00206000 * IF IOCCC=ON THEN /* IF SECOND OCCURRENCE, ISSUE 0108 00207000 * 'I/O ERR' MSG */ 00208000 CCCERR TM IOCCC(EWAPTR),B'00010000' 0108 00209000 BO @RT00108 0108 00210000 * GO TO ERRWTO; 0109 00211000 * ELSE 0110 00212000 * IOCCC=ON; /* SET CHAN CONTROL CHECK FLAG */ 00213000 OI IOCCC(EWAPTR),B'00010000' 0110 00214000 * GO TO CNTRLCK; /* TO INTERROGATE ERPIB */ 00215000 B CNTRLCK 0111 00216000 *ICCERR: 0112 00217000 * IF IOICC=ON THEN /* IF SECOND OCCURRENCE, ISSUE 0112 00218000 * 'I/O ERR' MSG */ 00219000 ICCERR TM IOICC(EWAPTR),B'00001000' 0112 00220000 BO @RT00112 0112 00221000 * GO TO ERRWTO; 0113 00222000 * ELSE 0114 00223000 * IOICC=ON; /* SET INTF CONTROL CHECK FLAG */ 00224000 OI IOICC(EWAPTR),B'00001000' 0114 00225000 *CNTRLCK: 0115 00226000 * IF IOSCOD=IOSFINTC THEN /* INTERCEPTED, PERM ERR */ 00227000 CNTRLCK CLI IOSCOD(IOSBPTR),X'7E' 0115 00228000 BE @RT00115 0115 00229000 * GO TO ERRWTO; 0116 00230000 * 0116 00231000 * /*****************************************************************/ 00232000 * /* */ 00233000 * /* INTERROGATE ERPIB */ 00234000 * /* */ 00235000 * /*****************************************************************/ 00236000 * 0117 00237000 * IF RTRYCD=ZERO THEN /* RETRY CODE 0, PERM ERR */ 00238000 TM RTRYCD(EWAPTR),B'00000111' 0117 00239000 BZ @RT00117 0117 00240000 * GO TO ERRWTO; 0118 00241000 * IF RTRYCD=ONE THEN /* RETRY CODE 1, CHECK CCW ADDR */ 00242000 TM RTRYCD(EWAPTR),B'00000001' 0119 00243000 BNO @RF00119 0119 00244000 TM RTRYCD(EWAPTR),B'00000110' 0119 00245000 BZ @RT00119 0119 00246000 * GO TO CNTRLCK2; 0120 00247000 * IF RTRYCD=TWO THEN /* RETRY CODE 2, CHECK FSS CMD */ 00248000 @RF00119 TM RTRYCD(EWAPTR),B'00000010' 0121 00249000 BNO @RF00121 0121 00250000 TM RTRYCD(EWAPTR),B'00000101' 0121 00251000 BZ @RT00121 0121 00252000 * GO TO CNTRLCK1; 0122 00253000 * IF RTRYCD=FOUR THEN /* RETRY CODE 4, CHECK CCW ADDR */ 00254000 @RF00121 TM RTRYCD(EWAPTR),B'00000100' 0123 00255000 BNO @RF00123 0123 00256000 TM RTRYCD(EWAPTR),B'00000011' 0123 00257000 BZ @RT00123 0123 00258000 * GO TO CNTRLCK2; 0124 00259000 * IF RTRYCD=SIX THEN /* RETRY CODE 6, PERM ERR */ 00260000 @RF00123 TM RTRYCD(EWAPTR),B'00000110' 0125 00261000 BNO @RF00125 0125 00262000 TM RTRYCD(EWAPTR),B'00000001' 0125 00263000 BZ @RT00125 0125 00264000 * GO TO ERRWTO; 0126 00265000 * IF RTRYCD=SEVEN THEN /* RETRY CODE 7, CHECK FSS CMD */ 00266000 @RF00125 TM RTRYCD(EWAPTR),B'00000111' 0127 00267000 BO @RT00127 0127 00268000 * GO TO CNTRLCK1; 0128 00269000 * 0128 00270000 * /*****************************************************************/ 00271000 * /* */ 00272000 * /* INTERROGATE LAST COMMAND ISSUED */ 00273000 * /* */ 00274000 * /*****************************************************************/ 00275000 * 0129 00276000 * IF CMDB5=ON& /* PRINT LINE CMD, PERM ERR */ 00277000 * CMDB7=ON THEN 0129 00278000 TM CMDB5(CCWRST),B'00000101' 0129 00279000 BO @RT00129 0129 00280000 * GO TO ERRWTO; 0130 00281000 * 0130 00282000 */* IF THE COMMAND IS A READ/FEED/SELECT STACKER OR */ 00283000 */* WRITE/FEED/SELECT STACKER, THE ERROR IS PERMANENT. */ 00284000 * 0131 00285000 * IF CMDB0=ON&CMDB1=ON THEN 0131 00286000 TM CMDB0(CCWRST),B'11000000' 0131 00287000 BO @RT00131 0131 00288000 * GO TO CNTRLCK1; 0132 00289000 * IF CMDB3=ON THEN 0133 00290000 TM CMDB3(CCWRST),B'00010000' 0133 00291000 BO @RT00133 0133 00292000 * GO TO CNTRLCK1; 0134 00293000 * IF CMDB6=ON|CMDB7=ON THEN 0135 00294000 TM CMDB6(CCWRST),B'00000011' 0135 00295000 BNZ @RT00135 0135 00296000 * GO TO ERRWTO; 0136 00297000 *CNTRLCK1: 0137 00298000 * IF CMDB2=ON& /* FEED/SELECT STACKER, PERMERR */ 00299000 * CMDB6=ON&CMDB7=ON THEN 0137 00300000 CNTRLCK1 TM CMDB2(CCWRST),B'00100011' 0137 00301000 BO @RT00137 0137 00302000 * GO TO ERRWTO; 0138 00303000 *CNTRLCK2: 0139 00304000 * IF CCWRST>0 THEN /* VALID CCW ADDR, GO RETRY */ 00305000 CNTRLCK2 LTR CCWRST,CCWRST 0139 00306000 BP @RT00139 0139 00307000 * GO TO RTRYEXIT; 0140 00308000 * ELSE 0141 00309000 * GO TO ERRWTO; /* PERMANENT ERROR */ 00310000 B ERRWTO 0141 00311000 * GEN(EJECT); 0142 00312000 * 0142 00313000 EJECT 00314000 * /*****************************************************************/ 00315000 * /* */ 00316000 * /* CHANNEL DATA CHECK OR EQUIPMENT CHECK */ 00317000 * /* */ 00318000 * /*****************************************************************/ 00319000 * 0143 00320000 *EQUIPCK: 0143 00321000 * IOSLOG=ON; /* SET LOGOUT FLAG */ 00322000 EQUIPCK OI IOSLOG(IOSBPTR),B'00000001' 0143 00323000 * GO TO EQUIP1; /* TEST FOR INTERCEPT */ 00324000 B EQUIP1 0144 00325000 *CHANDCK: 0145 00326000 * IF CMDB6=OFF& /* WRITE CMD, ERROR CORRECTED */ 00327000 * CMDB7=ON THEN 0145 00328000 CHANDCK TM CMDB7(CCWRST),B'00000001' 0145 00329000 BNO @RF00145 0145 00330000 TM CMDB6(CCWRST),B'00000010' 0145 00331000 BZ @RT00145 0145 00332000 * GO TO ERRCORR; 0146 00333000 *EQUIP1: 0147 00334000 * IF IOSCOD=IOSFINTC THEN /* INTERCEPTED, TEST SENSE BYTE1 */ 00335000 @RF00145 DS 0H 0147 00336000 EQUIP1 CLI IOSCOD(IOSBPTR),X'7E' 0147 00337000 BE @RT00147 0147 00338000 * GO TO EQUIP2; 0148 00339000 * IF CCWRST^>0 THEN /* INVALID CCW ADDR, PERM ERR */ 00340000 LTR CCWRST,CCWRST 0149 00341000 BNP @RT00149 0149 00342000 * GO TO ERRWTO; 0150 00343000 * IF CMDB6=ON& /* READ CMD, TEST SENSE BYTE 1 */ 00344000 * CMDB7=OFF THEN 0151 00345000 TM CMDB6(CCWRST),B'00000010' 0151 00346000 BNO @RF00151 0151 00347000 TM CMDB7(CCWRST),B'00000001' 0151 00348000 BZ @RT00151 0151 00349000 * GO TO SENSE1; 0152 00350000 *EQUIP2: 0153 00351000 * IOSCOD=IOSNRMC; /* CHANGE COMP CODE TO '7F' */ 00352000 @RF00151 DS 0H 0153 00353000 EQUIP2 MVI IOSCOD(IOSBPTR),X'7F' 0153 00354000 * GO TO SENSE1; /* TEST SENSE BYTE 1 */ 00355000 B SENSE1 0154 00356000 * GEN(EJECT); 0155 00357000 * 0155 00358000 EJECT 00359000 * /*****************************************************************/ 00360000 * /* */ 00361000 * /* INTERVENTION REQUIRED */ 00362000 * /* */ 00363000 * /*****************************************************************/ 00364000 * 0156 00365000 *INTREQ: 0156 00366000 * IF EWUMOT=ON THEN /* MOTION MALFUNCTION, SET LOGOUT 00367000 * FLAG */ 00368000 INTREQ TM EWUMOT(EWAPTR),B'00100000' 0156 00369000 BNO @RF00156 0156 00370000 * IOSLOG=ON; 0157 00371000 OI IOSLOG(IOSBPTR),B'00000001' 0157 00372000 * GO TO SENSE1; /* TEST SENSE BYTE 1 */ 00373000 * 0158 00374000 B SENSE1 0158 00375000 * /*****************************************************************/ 00376000 * /* */ 00377000 * /* RETRY AFTER INTERVENTION REQUIRED */ 00378000 * /* */ 00379000 * /*****************************************************************/ 00380000 * 0159 00381000 *INTRETRY: 0159 00382000 * IF IOSCOD=IOSFINTC THEN /* INTERCEPTED ERR, ISSUE MSG */ 00383000 INTRETRY CLI IOSCOD(IOSBPTR),X'7E' 0159 00384000 BE @RT00159 0159 00385000 * GO TO INTRCPT; 0160 00386000 * IF CCWRST^>0 THEN /* INVALID CCW ADDR, PERM ERR */ 00387000 LTR CCWRST,CCWRST 0161 00388000 BNP @RT00161 0161 00389000 * GO TO ERRWTO; 0162 00390000 * ELSE 0163 00391000 * GO TO XCTLWTO; /* ISSUE 'INT REQ' MSG */ 00392000 B XCTLWTO 0163 00393000 *INTRCPT: 0164 00394000 * IOSCOD=IOSNRMC; /* CHANGE COMP CODE TO '7F' */ 00395000 INTRCPT MVI IOSCOD(IOSBPTR),X'7F' 0164 00396000 * IORSTRT=OFF; /* CLEAR RESTART FLAG */ 00397000 NI IORSTRT(EWAPTR),B'01111111' 0165 00398000 * GO TO XCTLWTO; /* ISSUE 'INT REQ' MSG */ 00399000 * 0166 00400000 B XCTLWTO 0166 00401000 * /*****************************************************************/ 00402000 * /* */ 00403000 * /* AUTOMATIC RETRY */ 00404000 * /* */ 00405000 * /*****************************************************************/ 00406000 * 0167 00407000 *AUTORTRY: 0167 00408000 * IF IOARTRY=ON THEN /* IF SECOND OCCURRENCE, ISSUE 0167 00409000 * 'I/O ERR' MSG */ 00410000 AUTORTRY TM IOARTRY(EWAPTR),B'00100000' 0167 00411000 BO @RT00167 0167 00412000 * GO TO ERRWTO; 0168 00413000 * ELSE 0169 00414000 * IOARTRY=ON; /* SET AUTO RETRY FLAG */ 00415000 OI IOARTRY(EWAPTR),B'00100000' 0169 00416000 * IF IOSLOG=OFF THEN /* IF NO LOGOUT, RETRY */ 00417000 TM IOSLOG(IOSBPTR),B'00000001' 0170 00418000 BZ @RT00170 0170 00419000 * GO TO RTRYEXIT; 0171 00420000 * GEN(EJECT); 0172 00421000 * 0172 00422000 EJECT 00423000 * /*****************************************************************/ 00424000 * /* */ 00425000 * /* XCTL TO OUTBOARD RECORDING ROUTINE */ 00426000 * /* */ 00427000 * /*****************************************************************/ 00428000 * 0173 00429000 *XCTLOBR: 0173 00430000 * GEN REFS(CVTXTLER,CVTPTR,OBRID) SETS(IDREG,XCTLREG) EXIT NOSEQFLOW; 00431000 * 0173 00432000 XCTLOBR DS 0H 0173 00433000 LH IDREG,OBRID ID OF OBR ROUTINE 00434000 L XCTLREG,CVTXTLER(,CVTPTR) ADDR OF RESIDENT XCTL RTN 00435000 BR XCTLREG TO OUTBOARD RECORDING ROUTINE 00436000 * /*****************************************************************/ 00437000 * /* */ 00438000 * /* PROGRAMMING ERROR */ 00439000 * /* */ 00440000 * /*****************************************************************/ 00441000 * 0174 00442000 *PGMERR: 0174 00443000 * IORSTRT=OFF; /* CLEAR RESTART FLAG */ 00444000 PGMERR NI IORSTRT(EWAPTR),B'01111111' 0174 00445000 * IOSERR=OFF; /* CLEAR IOSERR TO IND PERM ERR */ 00446000 NI IOSERR(IOSBPTR),B'11011111' 0175 00447000 * SVC(15); /* TO POST PERMANENT ERROR */ 00448000 SVC 15 0176 00449000 * SVC(3); /* ISSUE SVC 3 TO EXIT */ 00450000 * 0177 00451000 SVC 3 0177 00452000 * /*****************************************************************/ 00453000 * /* */ 00454000 * /* ERROR CORRECTED */ 00455000 * /* */ 00456000 * /*****************************************************************/ 00457000 * 0178 00458000 *ERRCORR: 0178 00459000 * IOSTATUS=IOSTATUS&&IOSTATUS; /* CLEAR STATUS IN IOSB */ 00460000 ERRCORR XC IOSTATUS(2,IOSBPTR),IOSTATUS(IOSBPTR) 0178 00461000 * IOSEX=OFF; /* CLEAR FLAGS TO INDICATE ERROR 00462000 * IS CORRECTED */ 00463000 * IOSERR=OFF; 0180 00464000 * 0180 00465000 NI IOSEX(IOSBPTR),B'11011011' 0180 00466000 * /*****************************************************************/ 00467000 * /* */ 00468000 * /* ISSUE SVC 15 TO RETRY. */ 00469000 * /* */ 00470000 * /*****************************************************************/ 00471000 * 0181 00472000 *RTRYEXIT: 0181 00473000 * GEN(LRA CCWRST,0(CCWRST)); 0181 00474000 RTRYEXIT LRA CCWRST,0(CCWRST) 00475000 * IF IORSTRT=ON THEN 0182 00476000 TM IORSTRT(EWAPTR),B'10000000' 0182 00477000 BNO @RF00182 0182 00478000 * IOSRST=CCWRST; 0183 00479000 ST CCWRST,IOSRST(,IOSBPTR) 0183 00480000 * SVC(15); 0184 00481000 @RF00182 SVC 15 0184 00482000 * SVC(3); 0185 00483000 SVC 3 0185 00484000 * GEN(EJECT); 0186 00485000 EJECT 00486000 * 0187 00487000 * /*****************************************************************/ 00488000 * /* */ 00489000 * /* XCTL TO WRITE-TO-OPERATOR ROUTINE */ 00490000 * /* */ 00491000 * /*****************************************************************/ 00492000 * 0187 00493000 *LOGOUT: 0187 00494000 * IOSLOG=ON; /* TO INDICATE LOGOUT REQUIRED */ 00495000 LOGOUT OI IOSLOG(IOSBPTR),B'00000001' 0187 00496000 *ERRWTO: 0188 00497000 * IOSERR=OFF; 0188 00498000 ERRWTO NI IOSERR(IOSBPTR),B'11011111' 0188 00499000 * IOSMSG=ON; /* TO INDICATE 'I/O ERR' MSG */ 00500000 OI IOSMSG(IOSBPTR),B'00000100' 0189 00501000 * IORSTRT=OFF; 0190 00502000 NI IORSTRT(EWAPTR),B'01111111' 0190 00503000 *XCTLWTO: 0191 00504000 * GEN(LRA CCWRST,0(CCWRST)); 0191 00505000 XCTLWTO LRA CCWRST,0(CCWRST) 00506000 * IF IORSTRT=ON THEN 0192 00507000 TM IORSTRT(EWAPTR),B'10000000' 0192 00508000 BNO @RF00192 0192 00509000 * IOSRST=CCWRST; 0193 00510000 ST CCWRST,IOSRST(,IOSBPTR) 0193 00511000 * GEN REFS(CVTXTLER,CVTPTR,WTOID) SETS(IDREG,XCTLREG) EXIT NOSEQFLOW; 00512000 @RF00192 DS 0H 0194 00513000 LH IDREG,WTOID IF OF WTO RTN 00514000 L XCTLREG,CVTXTLER(,CVTPTR) ADDR OF RESIDENT XCTL RTN 00515000 BR XCTLREG TO XCTL TO WTO ROUTINE 00516000 EJECT 00517000 * 0195 00518000 */*IEC3505: CHART */ 00519000 */* HEADER 0195 00520000 */* IGE0001A - 3505/3525 ERR 00521000 */*OR RECOVERY PROCEDURE PAGE #1 */ 00522000 */* E IEC3505A */ 00523000 */* P SET IOSEX AND IOSERR TO INDICATE ERP IN CONTROL */ 00524000 */* D (NO,,YES,ERRWTO) MIXED CHAINING CHAN PGM */ 00525000 */* P CALCULATE CCW RESTART ADDR */ 00526000 */* D (YES,,NO,STATUS) COMMAND CHAINING */ 00527000 */* D (NO,,YES,%LAB1) PREVIOUS ENTRY */ 00528000 */* P (,RSTART) SET ENTRY FLAG IN EWA */ 00529000 */*%LAB1: D (NO,,YES,STATUS) ERROR ON SAME CCW */ 00530000 */* P RESET ERROR FLAGS */ 00531000 */*RSTART: P SET RESTART FLAG IN EWA */ 00532000 */*STATUS: S (,%LAB4:RRT) CVTXITP:INTERPRET CSW STATUS BYTES */ 00533000 */*%LAB4: D (CTK,CCCERR,ICC,ICCERR,CDK,CHANDCK,IERR,LOGOUT,IERR,LOGOUT, 00534000 */*IERR,LOGOUT,UCK,SENSE0,CCC,ERRWTO,PGC,PGMERR,PCK,PGMERR,UEX, 0195 00535000 */*PGMERR,IL,PGMERR,EOT,ERRCORR) TEST CSW STATUS BYTES */ 00536000 */*SENSE0: S CVTXITP:INTERPRET SENSE BYTE 0 */ 00537000 */* D (IERR,LOGOUT,PER,ERRWTO,EQCK,EQUIPCK,ABFR,SENSE1,INTR,INTREQ, 00538000 */*BUSO,SENSE1,DCK,SENSE1,CREJ,SENSE1,EOT,LOGOUT) TEST SENSE BYTE 0195 00539000 */*0 */ 00540000 */*SENSE1: S CVTXITP:INTERPRET SENSE BYTE 1 */ 00541000 */* D (IERR,LOGOUT,IERR,LOGOUT,IERR,LOGOUT,IERR,LOGOUT,PER,ERRWTO, 0195 00542000 */*RTRY,INTRETRY,ARTY,AUTORTRY,EOT,LOGOUT) TEST SENSE BYTE 1 */ 00543000 */*CCCERR: D (YES,ERRWTO,NO,) SECOND CHAN CHAINING CK */ 00544000 */* P (,CNTRLCK) SET CHAN CHAINING CK FLAG */ 00545000 */*ICCERR: D (YES,ERRWTO,NO,) SECOND INTF CONTROL CK */ 00546000 */* P SET INTF CONTROL CHECK FLAG */ 00547000 */*CNTRLCK: D (NO,,YES,ERRWTO) INTERCEPTED ERROR */ 00548000 */* D (NO,,YES,ERRWTO) ERPIB SEQ CODE = 0 */ 00549000 */* D (NO,,YES,CNTRLCK2) ERPIB SEQ CODE = 1 */ 00550000 */* D (NO,,YES,CNTRLCK1) ERPIB SEQ CODE = 2 */ 00551000 */* D (NO,,YES,CNTRLCK2) ERPIB SEQ CODE = 4 */ 00552000 */* D (NO,,YES,ERRWTO) ERPIB SEQ CODE = 6 */ 00553000 */* D (NO,,YES,CNTRLCK1) ERPIB SEQ CODE = 7 */ 00554000 */* D (NO,,YES,ERRWTO:RLT) PRINT LINE COMMAND */ 00555000 */* D (NO,,YES,ERRWTO) RFSS OR WFSS COMMAND */ 00556000 */*CNTRLCK1: D (NO,,YES,ERRWTO) FSS COMMAND */ 00557000 */*CNTRLCK2: D (NO,ERRWTO,YES,RTRYEXIT) VALID CCW ADDR */ 00558000 */*EQUIPCK: P (,EQUIP1) SET LOGOUT FLAG IN IOSB */ 00559000 */*CHANDCK: D (YES,,NO,ERRCORR) READ COMMAND */ 00560000 */*EQUIP1: D (NO,,YES,EQUIP2) INTERCEPTED ERROR */ 00561000 */* D (YES,,NO,ERRWTO) VALID CCW ADDR */ 00562000 */* D (NO,,YES,SENSE1) READ COMMAND */ 00563000 */*EQUIP2: P (,SENSE1) SET NORMAL COMPLETION CODE */ 00564000 */*INTREQ: D (YES,,NO,SENSE1) MOTION MALFUNCTION */ 00565000 */* P (,SENSE1) SET LOGOUT FLAG */ 00566000 */*INTRETRY: D (NO,,YES,INTRCPT) INTERCEPTED ERROR */ 00567000 */* D (NO,ERRWTO,YES,XCTLWTO) VALID CCW ADDR */ 00568000 */*INTRCPT: P SET NORMAL COMPLETION CODE */ 00569000 */* P (,XCTLWTO) CLEAR RESTART FLAG IN EWA */ 00570000 */*AUTORTRY: D (NO,,YES,ERRWTO) PREVIOUS AUTO RETRY */ 00571000 */* P SET AUTO RETRY FLAG */ 00572000 */* D (NO,RTRYEXIT,YES,) LOGOUT FLAG SET */ 00573000 */*XCTLOBR: R XCTL TO OBR RTN */ 00574000 */*PGMERR: P CLEAR IOSERR TO INDICATE PERM ERR */ 00575000 */* R SVC 15 - PERM ERR */ 00576000 */*ERRCORR: P CLEAR CSW STATUS IN IOSB */ 00577000 */* P CLEAR IOSEX AND IOSERR FLAGS */ 00578000 */* P CLEAR RESTART FLAG IN EWA */ 00579000 */*RTRYEXIT: D (YES,,NO,%LAB2) RESTART FLAG SET */ 00580000 */* P STORE RESTART ADDR IN IOSRST */ 00581000 */*%LAB2: R SVC 15 */ 00582000 */*LOGOUT: P SET LOGOUT FLAG */ 00583000 */*ERRWTO: P SET IOSMSG TO IND 'I/O ERR' MSG */ 00584000 */*XCTLWTO: D (NO,,YES,%LAB3) RESTART FLAG SET */ 00585000 */* P STORE RESTART ADDR IN IOSRST */ 00586000 */*%LAB3: R XCTL TO WTO RTN */ 00587000 */* END */ 00588000 * 0195 00589000 * END IEC3505A 0195 00590000 * 0195 00591000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00592000 */*%INCLUDE SYSLIB (CVT ) */ 00593000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00594000 * 0195 00595000 * ; 0195 00596000 @DATA DS 0H 00597000 @DATD DSECT 00598000 DS 0F 00599000 IEC3505A CSECT 00600000 DS 0F 00601000 @DATD DSECT 00602000 DS 0D 00603000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00604000 @ENDDATD EQU * 00605000 IEC3505A CSECT 00606000 DS 0F 00607000 @SIZDATD DC AL1(0) 00608000 DC AL3(@ENDDATD-@DATD) 00609000 DS 0D 00610000 CCWLEN DC H'8' 00611000 WTOID DC XL2'FD' 00612000 OBRID DC XL2'FF' 00613000 PATCH DC CL50' ' 00614000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00615000 @01 EQU 01 00616000 @02 EQU 02 00617000 @03 EQU 03 00618000 @04 EQU 04 00619000 @05 EQU 05 00620000 @06 EQU 06 00621000 @07 EQU 07 00622000 @08 EQU 08 00623000 @09 EQU 09 00624000 @10 EQU 10 00625000 @11 EQU 11 00626000 @12 EQU 12 00627000 @13 EQU 13 00628000 @14 EQU 14 00629000 @15 EQU 15 00630000 CVTPTR EQU @04 00631000 IOSBPTR EQU @01 00632000 EWAPTR EQU @02 00633000 CCWRST EQU @03 00634000 DATDREG EQU @05 00635000 SAVREG EQU @09 00636000 IDREG EQU @13 00637000 XCTLREG EQU @14 00638000 BASREG EQU @15 00639000 CVTAD EQU 16 00640000 CVTMAP EQU 0 00641000 CVTXTLER EQU CVTMAP+44 00642000 CVTXITP EQU CVTMAP+68 00643000 CVTDAR EQU CVTMAP+72 00644000 CVTFLGS1 EQU CVTDAR 00645000 CVTDCB EQU CVTMAP+116 00646000 CVTIERLC EQU CVTMAP+144 00647000 CVTOPTA EQU CVTMAP+182 00648000 CVTOPTB EQU CVTMAP+183 00649000 CVTGTF EQU CVTMAP+236 00650000 CVTGTFST EQU CVTGTF 00651000 CVTGTFS EQU CVTGTFST 00652000 CVTSTATE EQU CVTGTFST 00653000 CVTTMODE EQU CVTGTFST 00654000 CVTFORM EQU CVTGTFST 00655000 CVTUSR EQU CVTGTFST 00656000 CVTAQAVT EQU CVTMAP+240 00657000 CVTTCMFG EQU CVTAQAVT 00658000 CVTVOLM2 EQU CVTMAP+244 00659000 CVTTATA EQU CVTVOLM2 00660000 CVTTSKS EQU CVTTATA 00661000 CVTVOLF2 EQU CVTTSKS 00662000 CVTTAT EQU CVTTATA+1 00663000 CVTATER EQU CVTMAP+248 00664000 CVTEXT1 EQU CVTMAP+252 00665000 CVTPURG EQU CVTMAP+260 00666000 CVTQMSG EQU CVTMAP+268 00667000 CVTDMSR EQU CVTMAP+272 00668000 CVTERPV EQU CVTMAP+316 00669000 CVTINTLA EQU CVTMAP+320 00670000 CVTAPF EQU CVTMAP+324 00671000 CVTEXT2 EQU CVTMAP+328 00672000 CVTHJES EQU CVTMAP+332 00673000 CVTPGSIA EQU CVTMAP+348 00674000 CVTA1F1 EQU CVTMAP+356 00675000 CVTSYSK EQU CVTMAP+357 00676000 CVTVOLM1 EQU CVTMAP+380 00677000 CVTVOLF1 EQU CVTVOLM1 00678000 CVTATMCT EQU CVTMAP+388 00679000 CVTXTNT1 EQU 0 00680000 CVTXTNT2 EQU 0 00681000 CVTDSSV EQU CVTXTNT2 00682000 CVTRSV90 EQU CVTXTNT2+5 00683000 CVTQID EQU CVTXTNT2+24 00684000 CVTRV400 EQU CVTXTNT2+52 00685000 CVTRV409 EQU CVTXTNT2+53 00686000 CVTATCVT EQU CVTXTNT2+64 00687000 CVTRV429 EQU CVTXTNT2+84 00688000 CVTRV438 EQU CVTXTNT2+85 00689000 CVTRV457 EQU CVTXTNT2+112 00690000 CVTRV466 EQU CVTXTNT2+113 00691000 CVTFIX EQU 0 00692000 CVTRELNO EQU CVTFIX+252 00693000 IOSB EQU 0 00694000 IOSFLA EQU IOSB 00695000 IOSACHN EQU IOSFLA 00696000 IOSDCHN EQU IOSACHN 00697000 IOSCCHN EQU IOSACHN 00698000 IOSERR EQU IOSFLA 00699000 IOSEX EQU IOSFLA 00700000 IOSFLB EQU IOSB+1 00701000 IOSMSG EQU IOSFLB 00702000 IOSLOG EQU IOSFLB 00703000 IOSFLC EQU IOSB+2 00704000 IOSDVALT EQU IOSFLC 00705000 IOSPKEY EQU IOSB+12 00706000 IOSCOD EQU IOSB+13 00707000 IOSOPT EQU IOSB+14 00708000 IOSOPT2 EQU IOSB+15 00709000 @NM00004 EQU IOSB+20 00710000 IOSCSW EQU @NM00004+1 00711000 IOSCSWCA EQU IOSCSW 00712000 IOSTATUS EQU IOSCSW+3 00713000 IOSIPIB EQU IOSB+44 00714000 IOSERP EQU IOSB+52 00715000 IOSRST EQU IOSB+72 00716000 IOSPATH EQU IOSB+86 00717000 IOSCHN EQU IOSPATH 00718000 IOSCKEY EQU IOSB+89 00719000 IOSEEKA EQU IOSB+100 00720000 IOSCCHH EQU IOSEEKA+3 00721000 IOSSKHH EQU IOSCCHH+2 00722000 EWA EQU 0 00723000 EWAHDR EQU EWA 00724000 EWAFLAGS EQU EWA+4 00725000 EWAFLG1 EQU EWAFLAGS 00726000 EWASCCD EQU EWAFLG1 00727000 EWASCC3 EQU EWASCCD 00728000 EWAFLG2 EQU EWAFLAGS+1 00729000 EWASNSCT EQU EWAFLAGS+3 00730000 EWACNTRS EQU EWA+10 00731000 EWACNTR1 EQU EWACNTRS 00732000 EWACNTR2 EQU EWACNTRS+1 00733000 EWAERPIB EQU EWA+16 00734000 EWARGFG1 EQU EWAERPIB+4 00735000 EWARGFG2 EQU EWAERPIB+5 00736000 EWAXCSW1 EQU EWAERPIB+6 00737000 EWAXCSW2 EQU EWAERPIB+7 00738000 EWAIERP EQU EWA+32 00739000 CCW EQU 0 00740000 CMDCODE EQU CCW 00741000 CMDB0 EQU CMDCODE 00742000 CMDB1 EQU CMDCODE 00743000 CMDB2 EQU CMDCODE 00744000 CMDB3 EQU CMDCODE 00745000 CMDB5 EQU CMDCODE 00746000 CMDB6 EQU CMDCODE 00747000 CMDB7 EQU CMDCODE 00748000 CVTS01 EQU CVTPGSIA 00749000 CVTLPDIA EQU CVTS01+12 00750000 CVTDIRST EQU CVTLPDIA 00751000 CVTSLIDA EQU CVTS01+24 00752000 CVTCTLFG EQU CVTS01+50 00753000 CVTRV210 EQU CVTS01+424 00754000 CVTRV219 EQU CVTS01+425 00755000 CVTRV228 EQU CVTS01+426 00756000 CVTRV237 EQU CVTS01+427 00757000 CVTMFRTR EQU CVTS01+452 00758000 CVTRV262 EQU CVTS01+468 00759000 CVTRV271 EQU CVTS01+469 00760000 CVTRV280 EQU CVTS01+470 00761000 CVTRV289 EQU CVTS01+471 00762000 CVTGSDA EQU CVTS01+600 00763000 IOSATTSC EQU IOSIPIB 00764000 IOSWTOWA EQU IOSIPIB 00765000 IOSPCISC EQU IOSIPIB 00766000 EWADDIOS EQU EWAIERP 00767000 EWUMAP EQU EWAIERP 00768000 EWUSN0 EQU EWUMAP 00769000 EWUBUFP EQU EWUSN0 00770000 EWULDCK EQU EWUSN0 00771000 EWUUSEQ EQU EWULDCK 00772000 EWUCH9 EQU EWUSN0 00773000 EWUSN1 EQU EWUMAP+1 00774000 EWUCRTRY EQU EWUSN1 00775000 EWUPCK EQU EWUSN1 00776000 EWUPQ EQU EWUSN1 00777000 EWUMOT EQU EWUPQ 00778000 EWULNPOS EQU EWUSN1 00779000 EWUSN2 EQU EWUMAP+2 00780000 EWUWORK EQU EWUMAP+8 00781000 ERRCNTS EQU EWACNTR2 00782000 IORSTRT EQU ERRCNTS 00783000 IOENTRY EQU ERRCNTS 00784000 IOARTRY EQU ERRCNTS 00785000 IOCCC EQU ERRCNTS 00786000 IOICC EQU ERRCNTS 00787000 @NM00022 EQU EWAXCSW2 00788000 RTRYCD EQU @NM00022 00789000 RETRYCNT EQU EWACNTR1 00790000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00791000 @NM00023 EQU @NM00022 00792000 @NM00021 EQU ERRCNTS 00793000 @NM00020 EQU EWUMAP+6 00794000 EWUSN5 EQU EWUMAP+5 00795000 EWUSN4 EQU EWUMAP+4 00796000 EWUSN3 EQU EWUMAP+3 00797000 EWUFCBP EQU EWUSN2 00798000 EWUPLBP EQU EWUSN2 00799000 EWUUCSBP EQU EWUSN2 00800000 @NM00019 EQU EWUSN1 00801000 EWUMECMO EQU EWUSN1 00802000 EWUSUPR EQU EWUSN1 00803000 EWUFORM EQU EWUSN1 00804000 EWUIRTRY EQU EWULNPOS 00805000 EWUARTRY EQU EWUPCK 00806000 EWUPERM EQU EWUCRTRY 00807000 EWUPEK EQU EWUCH9 00808000 EWUABFR EQU EWUUSEQ 00809000 EWUOVRN EQU EWUBUFP 00810000 EWUDTCK EQU EWUSN0 00811000 EWUEQCK EQU EWUSN0 00812000 EWUBUSO EQU EWUSN0 00813000 EWUINT EQU EWUSN0 00814000 EWUCREJ EQU EWUSN0 00815000 EWAEND EQU EWADDIOS+71 00816000 EWASCSW EQU EWADDIOS+64 00817000 EWASNS EQU EWADDIOS 00818000 IOSPCIWA EQU IOSPCISC+44 00819000 IOSPCIRS EQU IOSPCISC+8 00820000 @NM00009 EQU IOSPCISC+4 00821000 @NM00008 EQU IOSPCISC 00822000 IOSWRNDR EQU IOSWTOWA+4 00823000 IOSWTOPT EQU IOSWTOWA+3 00824000 IOSWTOCP EQU IOSWTOWA+2 00825000 IOSWTOCH EQU IOSWTOWA 00826000 IOSATTWA EQU IOSATTSC+40 00827000 @NM00007 EQU IOSATTSC+24 00828000 IOSATTSN EQU IOSATTSC 00829000 CVTTPIO EQU CVTS01+608 00830000 CVTADV EQU CVTS01+604 00831000 CVTGSDAB EQU CVTGSDA 00832000 CVTQV3 EQU CVTS01+596 00833000 CVTQV2 EQU CVTS01+592 00834000 CVTQV1 EQU CVTS01+588 00835000 CVTRPT EQU CVTS01+584 00836000 CVTSSRB EQU CVTS01+580 00837000 CVTCSDRL EQU CVTS01+576 00838000 CVTEXP1 EQU CVTS01+572 00839000 CVTRMPMT EQU CVTS01+568 00840000 CVTRMPTT EQU CVTS01+564 00841000 CVTVPSA EQU CVTS01+560 00842000 CVTVSTOP EQU CVTS01+556 00843000 CVTGTFR8 EQU CVTS01+552 00844000 CVTQUIT EQU CVTS01+548 00845000 CVTVACR EQU CVTS01+544 00846000 CVTWTCB EQU CVTS01+540 00847000 CVTSTPRS EQU CVTS01+536 00848000 CVT0PT02 EQU CVTS01+532 00849000 CVTDARCM EQU CVTS01+528 00850000 CVTIRECM EQU CVTS01+524 00851000 CVTJRECM EQU CVTS01+520 00852000 CVTVEMS0 EQU CVTS01+516 00853000 CVTSPFRR EQU CVTS01+512 00854000 CVTRLSTG EQU CVTS01+508 00855000 CVT0TC0A EQU CVTS01+504 00856000 CVTGMBR EQU CVTS01+500 00857000 CVTLFRM EQU CVTS01+496 00858000 CVTRMBR EQU CVTS01+492 00859000 CVTVIOP EQU CVTS01+488 00860000 CVTRV307 EQU CVTS01+486 00861000 CVTRV306 EQU CVTS01+484 00862000 CVTRV305 EQU CVTS01+482 00863000 CVTRV304 EQU CVTS01+480 00864000 CVTRV303 EQU CVTS01+478 00865000 CVTRV302 EQU CVTS01+476 00866000 CVTRV301 EQU CVTS01+475 00867000 CVTRV300 EQU CVTS01+474 00868000 CVTRV299 EQU CVTS01+473 00869000 CVTRV298 EQU CVTS01+472 00870000 CVTRV297 EQU CVTRV289 00871000 CVTRV296 EQU CVTRV289 00872000 CVTRV295 EQU CVTRV289 00873000 CVTRV294 EQU CVTRV289 00874000 CVTRV293 EQU CVTRV289 00875000 CVTRV292 EQU CVTRV289 00876000 CVTRV291 EQU CVTRV289 00877000 CVTRV290 EQU CVTRV289 00878000 CVTRV288 EQU CVTRV280 00879000 CVTRV287 EQU CVTRV280 00880000 CVTRV286 EQU CVTRV280 00881000 CVTRV285 EQU CVTRV280 00882000 CVTRV284 EQU CVTRV280 00883000 CVTRV283 EQU CVTRV280 00884000 CVTRV282 EQU CVTRV280 00885000 CVTRV281 EQU CVTRV280 00886000 CVTRV279 EQU CVTRV271 00887000 CVTRV278 EQU CVTRV271 00888000 CVTRV277 EQU CVTRV271 00889000 CVTRV276 EQU CVTRV271 00890000 CVTRV275 EQU CVTRV271 00891000 CVTRV274 EQU CVTRV271 00892000 CVTRV273 EQU CVTRV271 00893000 CVTRV272 EQU CVTRV271 00894000 CVTRV270 EQU CVTRV262 00895000 CVTRV269 EQU CVTRV262 00896000 CVTRV268 EQU CVTRV262 00897000 CVTRV267 EQU CVTRV262 00898000 CVTRV266 EQU CVTRV262 00899000 CVTRV265 EQU CVTRV262 00900000 CVTRV264 EQU CVTRV262 00901000 CVTRV263 EQU CVTRV262 00902000 CVTVFP EQU CVTS01+464 00903000 CVTVSI EQU CVTS01+460 00904000 CVTVPSIB EQU CVTS01+456 00905000 CVTMFACT EQU CVTMFRTR 00906000 CVTMFCTL EQU CVTS01+448 00907000 CVTPVBP EQU CVTS01+444 00908000 CVTPWI EQU CVTS01+440 00909000 CVTRV254 EQU CVTS01+438 00910000 CVTRV253 EQU CVTS01+436 00911000 CVTRV252 EQU CVTS01+434 00912000 CVTRV251 EQU CVTS01+433 00913000 CVTRV250 EQU CVTS01+432 00914000 CVTRV249 EQU CVTS01+431 00915000 CVTRV248 EQU CVTS01+430 00916000 CVTRV247 EQU CVTS01+429 00917000 CVTRV246 EQU CVTS01+428 00918000 CVTRV245 EQU CVTRV237 00919000 CVTRV244 EQU CVTRV237 00920000 CVTRV243 EQU CVTRV237 00921000 CVTRV242 EQU CVTRV237 00922000 CVTRV241 EQU CVTRV237 00923000 CVTRV240 EQU CVTRV237 00924000 CVTRV239 EQU CVTRV237 00925000 CVTRV238 EQU CVTRV237 00926000 CVTRV236 EQU CVTRV228 00927000 CVTRV235 EQU CVTRV228 00928000 CVTRV234 EQU CVTRV228 00929000 CVTRV233 EQU CVTRV228 00930000 CVTRV232 EQU CVTRV228 00931000 CVTRV231 EQU CVTRV228 00932000 CVTRV230 EQU CVTRV228 00933000 CVTRV229 EQU CVTRV228 00934000 CVTRV227 EQU CVTRV219 00935000 CVTRV226 EQU CVTRV219 00936000 CVTRV225 EQU CVTRV219 00937000 CVTRV224 EQU CVTRV219 00938000 CVTRV223 EQU CVTRV219 00939000 CVTRV222 EQU CVTRV219 00940000 CVTRV221 EQU CVTRV219 00941000 CVTRV220 EQU CVTRV219 00942000 CVTRV218 EQU CVTRV210 00943000 CVTRV217 EQU CVTRV210 00944000 CVTRV216 EQU CVTRV210 00945000 CVTRV215 EQU CVTRV210 00946000 CVTRV214 EQU CVTRV210 00947000 CVTRV213 EQU CVTRV210 00948000 CVTRV212 EQU CVTRV210 00949000 CVTRV211 EQU CVTRV210 00950000 CVTLCCAT EQU CVTS01+420 00951000 CVTPCCAT EQU CVTS01+416 00952000 CVTIPCRP EQU CVTS01+412 00953000 CVTIPCRI EQU CVTS01+408 00954000 CVTIPCDS EQU CVTS01+404 00955000 CVTAIDVT EQU CVTS01+400 00956000 CVTSSAP EQU CVTS01+396 00957000 CVTEHCIR EQU CVTS01+392 00958000 CVTEHDEF EQU CVTS01+388 00959000 CVTDAIR EQU CVTS01+384 00960000 CVTPERFM EQU CVTS01+380 00961000 CVT044R2 EQU CVTS01+376 00962000 CVTFETCH EQU CVTS01+372 00963000 CVTRSTWD EQU CVTS01+368 00964000 CVTSPOST EQU CVTS01+364 00965000 CVTIOBP EQU CVTS01+360 00966000 CVTASMVT EQU CVTS01+356 00967000 CVTRECRQ EQU CVTS01+352 00968000 CVTWSAC EQU CVTS01+348 00969000 CVTRV149 EQU CVTS01+344 00970000 CVTWSAL EQU CVTS01+340 00971000 CVTSPSA EQU CVTS01+336 00972000 CVTGLMN EQU CVTS01+332 00973000 CVTVEAC0 EQU CVTS01+328 00974000 CVT062R1 EQU CVTS01+324 00975000 CVTRPOST EQU CVTS01+320 00976000 CVTDQIQE EQU CVTS01+316 00977000 CVTCSD EQU CVTS01+312 00978000 CVTLKRMA EQU CVTS01+308 00979000 CVTRSPIE EQU CVTS01+304 00980000 CVTRENQ EQU CVTS01+300 00981000 CVTLQCB EQU CVTS01+296 00982000 CVTFQCB EQU CVTS01+292 00983000 CVTQCS01 EQU CVTS01+288 00984000 CVTAPFT EQU CVTS01+284 00985000 CVTPARRL EQU CVTS01+280 00986000 CVTVWAIT EQU CVTS01+276 00987000 CVTGSPL EQU CVTS01+272 00988000 CVTLSMQ EQU CVTS01+268 00989000 CVTGSMQ EQU CVTS01+264 00990000 CVTEXPRO EQU CVTS01+260 00991000 CVTOPCTP EQU CVTS01+256 00992000 CVTSIC EQU CVTS01+252 00993000 CVTTPIOS EQU CVTS01+248 00994000 CVTRTMS EQU CVTS01+244 00995000 CVTSDBF EQU CVTS01+240 00996000 CVTSCBP EQU CVTS01+236 00997000 CVTSDMP EQU CVTS01+232 00998000 CVTSV60 EQU CVTS01+228 00999000 CVTRTMCT EQU CVTS01+224 01000000 CVTASCBL EQU CVTS01+220 01001000 CVTASCBH EQU CVTS01+216 01002000 CVTGDA EQU CVTS01+212 01003000 CVTASVT EQU CVTS01+208 01004000 CVTVVMDI EQU CVTS01+204 01005000 CVTAQTOP EQU CVTS01+200 01006000 CVTIOSCS EQU CVTS01+196 01007000 CVTSDRM EQU CVTS01+192 01008000 CVTOPTE EQU CVTS01+188 01009000 CVTSTXU EQU CVTS01+184 01010000 CVTQUIS EQU CVTS01+180 01011000 CVTPARS EQU CVTS01+176 01012000 CVTS1EE EQU CVTS01+172 01013000 CVTFRAS EQU CVTS01+168 01014000 CVTQSAS EQU CVTS01+164 01015000 CVTCRAS EQU CVTS01+160 01016000 CVTCRMN EQU CVTS01+156 01017000 CVTDELCP EQU CVTS01+152 01018000 CVTFRECL EQU CVTS01+148 01019000 CVTGETCL EQU CVTS01+144 01020000 CVTBLDCP EQU CVTS01+140 01021000 CVTAUTHL EQU CVTS01+136 01022000 CVTSCAN EQU CVTS01+132 01023000 CVTRV144 EQU CVTS01+130 01024000 CVTMAXMP EQU CVTS01+128 01025000 CVTSTCK EQU CVTS01+124 01026000 CVTRV139 EQU CVTS01+123 01027000 CVTDSSAC EQU CVTS01+122 01028000 CVTRV513 EQU CVTS01+121 01029000 CVTIOSPL EQU CVTS01+120 01030000 CVTPTGT EQU CVTS01+116 01031000 CVTCSPIE EQU CVTS01+112 01032000 CVTSMFEX EQU CVTS01+108 01033000 CVTOLT0A EQU CVTS01+104 01034000 CVTSRBRT EQU CVTS01+100 01035000 CVTPUTL EQU CVTS01+96 01036000 CVTRV519 EQU CVTS01+92 01037000 CVTRV327 EQU CVTS01+88 01038000 CVTRV326 EQU CVTS01+84 01039000 CVTRV325 EQU CVTS01+80 01040000 CVTRV324 EQU CVTS01+76 01041000 CVT0VL01 EQU CVTS01+72 01042000 CVTSHRVM EQU CVTS01+68 01043000 CVTRV332 EQU CVTS01+64 01044000 CVTTAS EQU CVTS01+60 01045000 CVTRSCN EQU CVTS01+56 01046000 CVTTRAC2 EQU CVTS01+54 01047000 CVTTRACE EQU CVTS01+52 01048000 CVTAPG EQU CVTS01+51 01049000 CVTSDTRC EQU CVTCTLFG 01050000 CVTGTRCE EQU CVTCTLFG 01051000 CVTNOMP EQU CVTCTLFG 01052000 CVTRSV79 EQU CVTCTLFG 01053000 CVTDSTAT EQU CVTCTLFG 01054000 CVTRSV78 EQU CVTCTLFG 01055000 CVTRV333 EQU CVTCTLFG 01056000 CVTRV323 EQU CVTCTLFG 01057000 CVTSPVLK EQU CVTS01+49 01058000 CVTRSV77 EQU CVTS01+48 01059000 CVTRV331 EQU CVTS01+44 01060000 CVTRV330 EQU CVTS01+40 01061000 CVTRV329 EQU CVTS01+36 01062000 CVTRV328 EQU CVTS01+32 01063000 CVTRV322 EQU CVTS01+28 01064000 CVTSLID EQU CVTSLIDA+1 01065000 CVTSYLK EQU CVTSLIDA 01066000 CVTRV321 EQU CVTS01+20 01067000 CVTRV320 EQU CVTS01+16 01068000 CVTLPDIR EQU CVTLPDIA+1 01069000 CVTRSV69 EQU CVTDIRST 01070000 CVTRSV68 EQU CVTDIRST 01071000 CVTRSV67 EQU CVTDIRST 01072000 CVTRSV66 EQU CVTDIRST 01073000 CVTRSV65 EQU CVTDIRST 01074000 CVTRSV64 EQU CVTDIRST 01075000 CVTRSV63 EQU CVTDIRST 01076000 CVTDICOM EQU CVTDIRST 01077000 CVTPVTP EQU CVTS01+8 01078000 CVTLPDSR EQU CVTS01+4 01079000 CVTGETL EQU CVTS01 01080000 @NM00024 EQU CCW+1 01081000 CMDB4 EQU CMDCODE 01082000 EWADDISP EQU EWA+29 01083000 EWADCNT EQU EWA+28 01084000 EWACPU EQU EWA+27 01085000 @NM00018 EQU EWA+26 01086000 EWACHA EQU EWA+24 01087000 EWACSEQ EQU EWAXCSW2 01088000 EWACDIN EQU EWAXCSW2 01089000 @NM00017 EQU EWAXCSW2 01090000 EWACTEC EQU EWAXCSW2 01091000 EWACDAV EQU EWAXCSW1 01092000 EWACCHV EQU EWAXCSW1 01093000 EWACCMD EQU EWAXCSW1 01094000 EWACUNS EQU EWAXCSW1 01095000 EWACSQV EQU EWAXCSW1 01096000 @NM00016 EQU EWAXCSW1 01097000 EWACITF EQU EWAXCSW1 01098000 @NM00015 EQU EWARGFG2 01099000 EWACCUE EQU EWARGFG2 01100000 EWACSTG EQU EWARGFG2 01101000 EWACSCU EQU EWARGFG2 01102000 EWACCHA EQU EWARGFG2 01103000 EWACCPU EQU EWARGFG2 01104000 EWANORTY EQU EWARGFG1 01105000 EWACCNT EQU EWARGFG1 01106000 EWACSNS EQU EWARGFG1 01107000 @NM00014 EQU EWARGFG1 01108000 EWACHIO EQU EWARGFG1 01109000 EWACTIO EQU EWARGFG1 01110000 EWACINT EQU EWARGFG1 01111000 EWACSIO EQU EWARGFG1 01112000 EWAUCB EQU EWAERPIB+1 01113000 @NM00013 EQU EWAERPIB 01114000 EWASTUP EQU EWA+14 01115000 EWACNTR4 EQU EWACNTRS+3 01116000 EWACNTR3 EQU EWACNTRS+2 01117000 EWASSTAT EQU EWA+8 01118000 EWASCTMX EQU EWASNSCT 01119000 @NM00012 EQU EWASNSCT 01120000 EWAFLG3 EQU EWAFLAGS+2 01121000 @NM00011 EQU EWAFLG2 01122000 EWADIR EQU EWAFLG2 01123000 EWACOVF EQU EWAFLG2 01124000 EWAWTEMP EQU EWAFLG2 01125000 EWAMDR EQU EWAFLG2 01126000 EWABDSNS EQU EWAFLG1 01127000 EWADDMSG EQU EWAFLG1 01128000 EWASCC1 EQU EWASCC3 01129000 EWASCC2 EQU EWASCC3 01130000 @NM00010 EQU EWAFLG1 01131000 EWASLIS EQU EWAFLG1 01132000 EWAEXT EQU EWAHDR 01133000 IOSEND EQU IOSB+108 01134000 IOSSKR EQU IOSEEKA+7 01135000 IOSSKH2 EQU IOSSKHH+1 01136000 IOSSKH1 EQU IOSSKHH 01137000 IOSSKCC EQU IOSCCHH 01138000 IOSSKBB EQU IOSEEKA+1 01139000 IOSSKM EQU IOSEEKA 01140000 IOSEEK EQU IOSB+92 01141000 IOSMDM EQU IOSB+91 01142000 IOSMDB EQU IOSB+90 01143000 IOSCKEY7 EQU IOSCKEY 01144000 IOSCKEY6 EQU IOSCKEY 01145000 IOSCKEY5 EQU IOSCKEY 01146000 IOSCKEY4 EQU IOSCKEY 01147000 @NM00006 EQU IOSCKEY 01148000 IOSFMSK EQU IOSB+88 01149000 IOSCUDEV EQU IOSPATH+1 01150000 @NM00005 EQU IOSCHN 01151000 IOSPATH3 EQU IOSCHN 01152000 IOSPATH2 EQU IOSCHN 01153000 IOSEXP EQU IOSCHN 01154000 IOSGDP EQU IOSCHN 01155000 IOSAFF EQU IOSB+85 01156000 IOSRSS1B EQU IOSB+84 01157000 IOSDSID EQU IOSB+80 01158000 IOSVST EQU IOSB+76 01159000 IOSDIE EQU IOSB+68 01160000 IOSABN EQU IOSB+64 01161000 IOSNRM EQU IOSB+60 01162000 IOSPCI EQU IOSB+56 01163000 IOSPCHN EQU IOSB+48 01164000 IOSSNS EQU IOSB+42 01165000 IOSAPMSK EQU IOSB+40 01166000 IOSRES4A EQU IOSB+36 01167000 IOSUSE EQU IOSB+32 01168000 IOSSRB EQU IOSB+28 01169000 IOSCSWRC EQU IOSCSW+5 01170000 IOSTSB EQU IOSTATUS+1 01171000 IOSTSA EQU IOSTATUS 01172000 IOSCC EQU @NM00004 01173000 IOSUCB EQU IOSB+16 01174000 IOSOPT2X EQU IOSOPT2 01175000 IOSHTP EQU IOSOPT2 01176000 IOSRELSE EQU IOSOPT 01177000 IOSAPR EQU IOSOPT 01178000 IOSTSLL EQU IOSOPT 01179000 IOSNERP EQU IOSOPT 01180000 IOSPSLL EQU IOSOPT 01181000 IOSQISCE EQU IOSOPT 01182000 IOSDEP EQU IOSOPT 01183000 IOSBYP EQU IOSOPT 01184000 IOSPKY7 EQU IOSPKEY 01185000 IOSPGDPX EQU IOSPKEY 01186000 IOSIDR EQU IOSPKEY 01187000 IOSLCL EQU IOSPKEY 01188000 @NM00003 EQU IOSPKEY 01189000 IOSPGAD EQU IOSB+8 01190000 IOSASID EQU IOSB+6 01191000 IOSPRLVL EQU IOSB+5 01192000 IOSDVRID EQU IOSB+4 01193000 IOSPROC EQU IOSB+3 01194000 IOSFLC7 EQU IOSFLC 01195000 IOSFLC6 EQU IOSFLC 01196000 IOSGLC5 EQU IOSFLC 01197000 IOSFLC4 EQU IOSFLC 01198000 IOSFLC3 EQU IOSFLC 01199000 IOSFLC2 EQU IOSFLC 01200000 IOSVERIF EQU IOSDVALT 01201000 IOSDVMNT EQU IOSFLC 01202000 IOSBDCST EQU IOSFLB 01203000 IOSFLB4 EQU IOSFLB 01204000 IOSFLB3 EQU IOSFLB 01205000 IOSFLB2 EQU IOSFLB 01206000 IOSFLB1 EQU IOSFLB 01207000 IOSDIESE EQU IOSFLB 01208000 IOSIOSB EQU IOSFLA 01209000 IOSFLA6 EQU IOSFLA 01210000 IOSSMDB EQU IOSFLA 01211000 IOSSMDA EQU IOSFLA 01212000 CVTLEVL EQU CVTRELNO+2 01213000 CVTNUMB EQU CVTRELNO 01214000 CVTMDL EQU CVTFIX+250 01215000 @NM00002 EQU CVTFIX+248 01216000 @NM00001 EQU CVTFIX 01217000 CVTRV482 EQU CVTXTNT2+128 01218000 CVTRV481 EQU CVTXTNT2+124 01219000 CVTRV480 EQU CVTXTNT2+120 01220000 CVTRV479 EQU CVTXTNT2+118 01221000 CVTRV478 EQU CVTXTNT2+117 01222000 CVTRV477 EQU CVTXTNT2+116 01223000 CVTRV476 EQU CVTXTNT2+115 01224000 CVTRV475 EQU CVTXTNT2+114 01225000 CVTRV474 EQU CVTRV466 01226000 CVTRV473 EQU CVTRV466 01227000 CVTRV472 EQU CVTRV466 01228000 CVTRV471 EQU CVTRV466 01229000 CVTRV470 EQU CVTRV466 01230000 CVTRV469 EQU CVTRV466 01231000 CVTRV468 EQU CVTRV466 01232000 CVTRV467 EQU CVTRV466 01233000 CVTRV465 EQU CVTRV457 01234000 CVTRV464 EQU CVTRV457 01235000 CVTRV463 EQU CVTRV457 01236000 CVTRV462 EQU CVTRV457 01237000 CVTRV461 EQU CVTRV457 01238000 CVTRV460 EQU CVTRV457 01239000 CVTRV459 EQU CVTRV457 01240000 CVTRV458 EQU CVTRV457 01241000 CVTRV456 EQU CVTXTNT2+108 01242000 CVTRV455 EQU CVTXTNT2+104 01243000 CVTRV454 EQU CVTXTNT2+100 01244000 CVTRV453 EQU CVTXTNT2+96 01245000 CVTRV452 EQU CVTXTNT2+94 01246000 CVTRV451 EQU CVTXTNT2+92 01247000 CVTRV450 EQU CVTXTNT2+90 01248000 CVTRV449 EQU CVTXTNT2+88 01249000 CVTRV448 EQU CVTXTNT2+87 01250000 CVTRV447 EQU CVTXTNT2+86 01251000 CVTRV446 EQU CVTRV438 01252000 CVTRV445 EQU CVTRV438 01253000 CVTRV444 EQU CVTRV438 01254000 CVTRV443 EQU CVTRV438 01255000 CVTRV442 EQU CVTRV438 01256000 CVTRV441 EQU CVTRV438 01257000 CVTRV440 EQU CVTRV438 01258000 CVTRV439 EQU CVTRV438 01259000 CVTRV437 EQU CVTRV429 01260000 CVTRV436 EQU CVTRV429 01261000 CVTRV435 EQU CVTRV429 01262000 CVTRV434 EQU CVTRV429 01263000 CVTRV433 EQU CVTRV429 01264000 CVTRV432 EQU CVTRV429 01265000 CVTRV431 EQU CVTRV429 01266000 CVTRV430 EQU CVTRV429 01267000 CVTRV428 EQU CVTXTNT2+80 01268000 CVTRV427 EQU CVTXTNT2+76 01269000 CVTRV426 EQU CVTXTNT2+72 01270000 CVTRV425 EQU CVTXTNT2+68 01271000 CVTATACT EQU CVTATCVT 01272000 CVTRV423 EQU CVTXTNT2+62 01273000 CVTRV422 EQU CVTXTNT2+60 01274000 CVTRV421 EQU CVTXTNT2+58 01275000 CVTRV420 EQU CVTXTNT2+56 01276000 CVTRV419 EQU CVTXTNT2+55 01277000 CVTRV418 EQU CVTXTNT2+54 01278000 CVTRV417 EQU CVTRV409 01279000 CVTRV416 EQU CVTRV409 01280000 CVTRV415 EQU CVTRV409 01281000 CVTRV414 EQU CVTRV409 01282000 CVTRV413 EQU CVTRV409 01283000 CVTRV412 EQU CVTRV409 01284000 CVTRV411 EQU CVTRV409 01285000 CVTRV410 EQU CVTRV409 01286000 CVTRV408 EQU CVTRV400 01287000 CVTRV407 EQU CVTRV400 01288000 CVTRV406 EQU CVTRV400 01289000 CVTRV405 EQU CVTRV400 01290000 CVTRV404 EQU CVTRV400 01291000 CVTRV403 EQU CVTRV400 01292000 CVTRV402 EQU CVTRV400 01293000 CVTRV401 EQU CVTRV400 01294000 CVTRSVA1 EQU CVTXTNT2+48 01295000 CVTRSVA0 EQU CVTXTNT2+44 01296000 CVTRSV99 EQU CVTXTNT2+40 01297000 CVTRSV98 EQU CVTXTNT2+36 01298000 CVTRSV97 EQU CVTXTNT2+34 01299000 CVTRSV96 EQU CVTXTNT2+32 01300000 CVTOLTEP EQU CVTXTNT2+28 01301000 CVTQIDA EQU CVTQID+1 01302000 CVTRSV95 EQU CVTQID 01303000 CVTRSV94 EQU CVTXTNT2+20 01304000 CVTRSV93 EQU CVTXTNT2+16 01305000 CVTRSV92 EQU CVTXTNT2+12 01306000 CVTDEBVR EQU CVTXTNT2+8 01307000 CVTRSV91 EQU CVTXTNT2+6 01308000 CVTRSV9H EQU CVTRSV90 01309000 CVTRSV9G EQU CVTRSV90 01310000 CVTRSV9F EQU CVTRSV90 01311000 CVTRSV9E EQU CVTRSV90 01312000 CVTRSV9D EQU CVTRSV90 01313000 CVTRSV9C EQU CVTRSV90 01314000 CVTRSV9B EQU CVTRSV90 01315000 CVTRSV9A EQU CVTRSV90 01316000 CVTNUCLS EQU CVTXTNT2+4 01317000 CVTDSSVA EQU CVTDSSV+1 01318000 CVTRSV89 EQU CVTDSSV 01319000 CVTRSV88 EQU CVTXTNT1+8 01320000 CVTRSV87 EQU CVTXTNT1+4 01321000 CVTFACHN EQU CVTXTNT1 01322000 CVTRV488 EQU CVTMAP+412 01323000 CVTRV487 EQU CVTMAP+408 01324000 CVTRV486 EQU CVTMAP+404 01325000 CVTRV485 EQU CVTMAP+400 01326000 CVTRV484 EQU CVTMAP+396 01327000 CVTAUTH EQU CVTMAP+392 01328000 CVTATMCA EQU CVTATMCT+1 01329000 CVTATMST EQU CVTATMCT 01330000 CVTRSV61 EQU CVTMAP+384 01331000 CVTVOLT1 EQU CVTVOLM1+1 01332000 CVTVOLI1 EQU CVTVOLF1 01333000 CVTSTOA EQU CVTMAP+376 01334000 CVTRSV58 EQU CVTMAP+374 01335000 CVTRSV57 EQU CVTMAP+372 01336000 CVTDDCE EQU CVTMAP+368 01337000 CVTPNWFR EQU CVTMAP+364 01338000 CVTSMF EQU CVTMAP+360 01339000 CVTSULK EQU CVTMAP+358 01340000 CVTSLKO EQU CVTSYSK 01341000 CVTSLKP EQU CVTSYSK 01342000 CVTSLKQ EQU CVTSYSK 01343000 CVTSLKR EQU CVTSYSK 01344000 CVTRSV56 EQU CVTSYSK 01345000 CVTRSV55 EQU CVTSYSK 01346000 CVTRSV54 EQU CVTSYSK 01347000 CVTRSV53 EQU CVTSYSK 01348000 CVTRSV52 EQU CVTA1F1 01349000 CVTRSV51 EQU CVTA1F1 01350000 CVTRSV50 EQU CVTA1F1 01351000 CVTRSV49 EQU CVTA1F1 01352000 CVTRSV48 EQU CVTA1F1 01353000 CVTRSV47 EQU CVTA1F1 01354000 CVTSRSW EQU CVTA1F1 01355000 CVTPFSW EQU CVTA1F1 01356000 CVTPCVT EQU CVTMAP+352 01357000 CVTRSV46 EQU CVTMAP+344 01358000 CVTRSV45 EQU CVTMAP+340 01359000 CVTRSV44 EQU CVTMAP+338 01360000 CVTRSV43 EQU CVTMAP+336 01361000 CVTHJESA EQU CVTHJES+1 01362000 CVTRSV42 EQU CVTHJES 01363000 CVTEXT2A EQU CVTEXT2+1 01364000 CVTRSV41 EQU CVTEXT2 01365000 CVTAPFA EQU CVTAPF+1 01366000 CVTRSV40 EQU CVTAPF 01367000 CVTRV518 EQU CVTINTLA 01368000 CVTRV517 EQU CVTERPV 01369000 CVTEORM EQU CVTMAP+312 01370000 CVTMCHPR EQU CVTMAP+308 01371000 CVTTZ EQU CVTMAP+304 01372000 CVTJEPS EQU CVTMAP+300 01373000 CVTJESCT EQU CVTMAP+296 01374000 CVTMODE EQU CVTMAP+292 01375000 CVTPTRV EQU CVTMAP+288 01376000 CVTREAL EQU CVTMAP+284 01377000 CVTRSV39 EQU CVTMAP+280 01378000 CVTRSV38 EQU CVTMAP+276 01379000 CVTDMSRA EQU CVTDMSR+1 01380000 CVTRSV37 EQU CVTDMSR 01381000 CVTQMSGA EQU CVTQMSG+1 01382000 CVTRSV36 EQU CVTQMSG 01383000 CVTAMFF EQU CVTMAP+264 01384000 CVTPURGA EQU CVTPURG+1 01385000 CVTRSV35 EQU CVTPURG 01386000 CVTCBSP EQU CVTMAP+256 01387000 CVTATERA EQU CVTATER+1 01388000 CVTSYST EQU CVTATER 01389000 CVTVOLT2 EQU CVTTAT 01390000 CVTVOLI2 EQU CVTVOLF2 01391000 CVTAQAVB EQU CVTAQAVT+1 01392000 CVTRSV34 EQU CVTTCMFG 01393000 CVTRSV33 EQU CVTTCMFG 01394000 CVTRSV32 EQU CVTTCMFG 01395000 CVTRSV31 EQU CVTTCMFG 01396000 CVTRSV30 EQU CVTTCMFG 01397000 CVTRSV29 EQU CVTTCMFG 01398000 CVTRSV28 EQU CVTTCMFG 01399000 CVTTCRDY EQU CVTTCMFG 01400000 CVTGTFA EQU CVTGTF+1 01401000 CVTRSV27 EQU CVTGTFST 01402000 CVTRNIO EQU CVTGTFST 01403000 CVTRV319 EQU CVTUSR 01404000 CVTRV318 EQU CVTFORM 01405000 CVTRV317 EQU CVTTMODE 01406000 CVTRV316 EQU CVTSTATE 01407000 CVTRV315 EQU CVTGTFS 01408000 CVTGTFAV EQU CVTGTFS 01409000 CVT0SCR1 EQU CVTMAP+232 01410000 CVTRV515 EQU CVTMAP+228 01411000 CVTRMS EQU CVTMAP+224 01412000 CVTPATCH EQU CVTMAP+220 01413000 CVTTSCE EQU CVTMAP+216 01414000 CVTLNKSC EQU CVTMAP+214 01415000 CVTQABST EQU CVTMAP+212 01416000 CVTMDLDS EQU CVTMAP+208 01417000 CVTUSER EQU CVTMAP+204 01418000 CVTABEND EQU CVTMAP+200 01419000 CVTSMCA EQU CVTMAP+196 01420000 CVTRSV18 EQU CVTMAP+192 01421000 CVTQLPAQ EQU CVTMAP+188 01422000 CVTQCDSR EQU CVTMAP+184 01423000 CVTRSV17 EQU CVTOPTB 01424000 CVTRSV16 EQU CVTOPTB 01425000 CVTFP EQU CVTOPTB 01426000 CVTAPTHR EQU CVTOPTB 01427000 CVTNLOG EQU CVTOPTB 01428000 CVTTOD EQU CVTOPTB 01429000 CVTCTIMS EQU CVTOPTB 01430000 CVTPROT EQU CVTOPTB 01431000 CVTXPFP EQU CVTOPTA 01432000 CVTASCII EQU CVTOPTA 01433000 CVTRSV13 EQU CVTOPTA 01434000 CVTRSV12 EQU CVTOPTA 01435000 CVTNIP EQU CVTOPTA 01436000 CVTDDR EQU CVTOPTA 01437000 CVTAPR EQU CVTOPTA 01438000 CVTCCH EQU CVTOPTA 01439000 CVTSNCTR EQU CVTMAP+180 01440000 CVTQMWR EQU CVTMAP+176 01441000 CVTQOCR EQU CVTMAP+172 01442000 CVT1EF00 EQU CVTMAP+168 01443000 CVTMZ00 EQU CVTMAP+164 01444000 CVTHEAD EQU CVTMAP+160 01445000 CVTRSV11 EQU CVTMAP+156 01446000 CVT0PT01 EQU CVTMAP+152 01447000 CVTMSER EQU CVTMAP+148 01448000 CVTRV516 EQU CVTIERLC 01449000 CVTILCH EQU CVTMAP+140 01450000 CVT0DS EQU CVTMAP+136 01451000 CVTFBOSV EQU CVTMAP+132 01452000 CVTNUCB EQU CVTMAP+128 01453000 CVTIXAVL EQU CVTMAP+124 01454000 CVTIOQET EQU CVTMAP+120 01455000 CVTDCBA EQU CVTMAP+117 01456000 CVTMVS2 EQU CVTDCB 01457000 CVT6DAT EQU CVTDCB 01458000 CVT4MPS EQU CVTDCB 01459000 CVTRSV09 EQU CVTDCB 01460000 CVT4MS1 EQU CVTDCB 01461000 CVT2SPS EQU CVTDCB 01462000 CVT1SSS EQU CVTDCB 01463000 CVTRSV08 EQU CVTDCB 01464000 CVTSTB EQU CVTMAP+112 01465000 CVTQTD00 EQU CVTMAP+108 01466000 CVTQTE00 EQU CVTMAP+104 01467000 CVTCUCB EQU CVTMAP+100 01468000 CVTSJQ EQU CVTMAP+96 01469000 CVTPBLDL EQU CVTMAP+92 01470000 CVTTPC EQU CVTMAP+88 01471000 CVTSVDCB EQU CVTMAP+84 01472000 CVTBRET EQU CVTMAP+82 01473000 CVTEXIT EQU CVTMAP+80 01474000 CVT0FN00 EQU CVTMAP+76 01475000 CVTDARA EQU CVTDAR+1 01476000 CVTRSV07 EQU CVTFLGS1 01477000 CVTRSV06 EQU CVTFLGS1 01478000 CVTRSV05 EQU CVTFLGS1 01479000 CVTRSV04 EQU CVTFLGS1 01480000 CVTRSV03 EQU CVTFLGS1 01481000 CVTRSV02 EQU CVTFLGS1 01482000 CVTRSV01 EQU CVTFLGS1 01483000 CVTDMPLK EQU CVTFLGS1 01484000 CVTZDTAB EQU CVTMAP+64 01485000 CVTMSLT EQU CVTMAP+60 01486000 CVTDATE EQU CVTMAP+56 01487000 CVTBTERM EQU CVTMAP+52 01488000 CVTSYSAD EQU CVTMAP+48 01489000 CVTILK2 EQU CVTMAP+40 01490000 CVTILK1 EQU CVTMAP+36 01491000 CVTPRLTV EQU CVTMAP+32 01492000 CVTPCNVT EQU CVTMAP+28 01493000 CVT0VL00 EQU CVTMAP+24 01494000 CVTXAPG EQU CVTMAP+20 01495000 CVTBUF EQU CVTMAP+16 01496000 CVTJOB EQU CVTMAP+12 01497000 CVTLINK EQU CVTMAP+8 01498000 CVT0EF00 EQU CVTMAP+4 01499000 CVTTCBP EQU CVTMAP 01500000 CVT EQU CVTMAP 01501000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01502000 @RT00084 EQU ERRWTO 01503000 @RT00087 EQU STATUS 01504000 @RT00097 EQU STATUS 01505000 @RT00108 EQU ERRWTO 01506000 @RT00112 EQU ERRWTO 01507000 @RT00115 EQU ERRWTO 01508000 @RT00117 EQU ERRWTO 01509000 @RT00119 EQU CNTRLCK2 01510000 @RT00121 EQU CNTRLCK1 01511000 @RT00123 EQU CNTRLCK2 01512000 @RT00125 EQU ERRWTO 01513000 @RT00127 EQU CNTRLCK1 01514000 @RT00129 EQU ERRWTO 01515000 @RT00131 EQU CNTRLCK1 01516000 @RT00133 EQU CNTRLCK1 01517000 @RT00135 EQU ERRWTO 01518000 @RT00137 EQU ERRWTO 01519000 @RT00139 EQU RTRYEXIT 01520000 @RF00139 EQU ERRWTO 01521000 @RT00145 EQU ERRCORR 01522000 @RT00147 EQU EQUIP2 01523000 @RT00149 EQU ERRWTO 01524000 @RT00151 EQU SENSE1 01525000 @RF00156 EQU SENSE1 01526000 @RT00159 EQU INTRCPT 01527000 @RT00161 EQU ERRWTO 01528000 @RF00161 EQU XCTLWTO 01529000 @RT00167 EQU ERRWTO 01530000 @RT00170 EQU RTRYEXIT 01531000 @ENDDATA EQU * 01532000 END IEC3505A,(C'PLS1802',0700,74308) 01533000