TITLE 'IGE0001F,SHARK ERROR RECOVERY PROCEDURE *00001000 ' 00002000 ER3886A CSECT , 0001 00003000 @PROLOG BALR @06,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@06 0001 00006000 * 0081 00007000 * /*****************************************************************/ 00008000 * /* */ 00009000 * /* MAIN FLOW */ 00010000 * /* */ 00011000 * /*****************************************************************/ 00012000 * 0081 00013000 * EWAPTR=IOSERP; /* PTR FOR ERP WORK AREAY02870 */ 00014000 L EWAPTR,IOSERP(,IOSBPTR) 0081 00015000 * UCBPTR=IOSUCB; /* INIT PTR TO UCB Y02870 */ 00016000 L UCBPTR,IOSUCB(,IOSBPTR) 0082 00017000 * IOSERR=ON; /* INDICATE ERP IN CONTROLY02870 */ 00018000 * IOSEX=ON; /* IND EXCEPTIONAL COND Y02870 */ 00019000 OI IOSERR(IOSBPTR),B'00100100' 0084 00020000 * IOBLD2=BOF; /* INIT LOAD 2 IND OFF */ 00021000 NI IOBLD2(EWAPTR),B'11011111' 0085 00022000 *CHNTYPE: /* DETERMINE CHAINING TYPE */ 00023000 * IF(IOSDCHN=ON&IOSCCHN=ON)| /* MIXED CHAINING Y02870 */ 00024000 * (CMDADR=CCWADR0&IOBS0B1=BOF)/* NORETRY INTRCPT YM2516 */ 00025000 * THEN /* YES, */ 00026000 CHNTYPE TM IOSDCHN(IOSBPTR),B'11000000' 0086 00027000 BO @RT00086 0086 00028000 ICM @15,7,CMDADR(IOSBPTR) 0086 00029000 BNZ @RF00086 0086 00030000 TM IOBS0B1(IOSBPTR),B'01000000' 0086 00031000 BNZ @RF00086 0086 00032000 @RT00086 DS 0H 0087 00033000 *MXDCHAIN: /* ACTION FOR MXD CHAINING */ 00034000 * DO; 0087 00035000 MXDCHAIN DS 0H 0088 00036000 * IOBPMS=ON; /* PRRM ERR MSG */ 00037000 OI IOBPMS(IOSBPTR),B'00000100' 0088 00038000 * IF STBYT2B5=ON| /* CCC OR */ 00039000 * STBYT2B6=ON /* ICC */ 00040000 * THEN /* ZERO OUT ERPIB ENTRY */ 00041000 TM STBYT2B5(IOSBPTR),B'00000110' 0089 00042000 BZ @RF00089 0089 00043000 * ERPIB=ERPIB&&ERPIB; /* ZERO OUT ENTRY Y02870 */ 00044000 XC ERPIB(8,EWAPTR),ERPIB(EWAPTR) 0090 00045000 * ELSE 0091 00046000 * ; 0091 00047000 @RF00089 DS 0H 0092 00048000 * END; 0092 00049000 * ELSE /* NO,NOT MIXED CHAINING */ 00050000 * DO; 0093 00051000 B @RC00086 0093 00052000 @RF00086 DS 0H 0094 00053000 *FAILGCCW: /* POINT TO FAILING CCW */ 00054000 * CCWREG=CMDADR-CCWLEN; /* POINT TO FAILING CCW */ 00055000 FAILGCCW SR CCWREG,CCWREG 0094 00056000 ICM CCWREG,7,CMDADR(IOSBPTR) 0094 00057000 SH CCWREG,@CH00052 0094 00058000 * IF IOSCCHN=ON& /* COMMAND CHAINING Y02870 */ 00059000 * IOSDCHN=BOF /* Y02870 */ 00060000 * THEN /* YES, */ 00061000 TM IOSCCHN(IOSBPTR),B'01000000' 0095 00062000 BNO @RF00095 0095 00063000 TM IOSDCHN(IOSBPTR),B'10000000' 0095 00064000 BNZ @RF00095 0095 00065000 * DO; 0096 00066000 * IF IOBERE=ON /* ERP ENTERED PREVIOUS */ 00067000 * THEN /* YES, */ 00068000 TM IOBERE(EWAPTR),B'00010000' 0097 00069000 BNO @RF00097 0097 00070000 * IF CCWREG^=IOSVST /* DID SAME CMND FAIL Y02870 */ 00071000 * THEN /* NO, */ 00072000 C CCWREG,IOSVST(,IOSBPTR) 0098 00073000 BE @RF00098 0098 00074000 * DO; /* ZERO OUT */ 00075000 * IOSFLB=HEX0; /* IOSB FLAG2 AND Y02870 */ 00076000 MVI IOSFLB(IOSBPTR),X'00' 0100 00077000 * IOBCNT=HEX0; /* ERROR COUNTERS */ 00078000 MVI IOBCNT(EWAPTR),X'00' 0101 00079000 * END; 0102 00080000 * ELSE /* NULL ELSE */ 00081000 * ; /* SAME CMD FAILED-NO ACTN */ 00082000 @RF00098 DS 0H 0104 00083000 * ELSE /* NO,ERP NOT ENTERED IND IT IS */ 00084000 * IOBERE=ON; /* IND ERP ENTERED */ 00085000 B @RC00097 0104 00086000 @RF00097 OI IOBERE(EWAPTR),B'00010000' 0104 00087000 * WK1PTR=CCWREG; /* POINT TO LAST CCW Y02870 */ 00088000 @RC00097 LR WK1PTR,CCWREG 0105 00089000 * GEN(LRA WK1PTR,0(WK1PTR));/* POINT TO REAL CCW ADDR 0106 00090000 * Y02870 */ 00091000 LRA WK1PTR,0(WK1PTR) 00092000 * IOSRST=WK1PTR; /* STORE RESTART ADDRESS Y02870 */ 00093000 ST WK1PTR,IOSRST(,IOSBPTR) 0107 00094000 * IOBRSTRT=ON; /* SET ON RESTART FLAG */ 00095000 OI IOBRSTRT(EWAPTR),B'00000010' 0108 00096000 * IOSVST=CCWREG; /* SET VIRTUAL RESTART ADDRESS 0109 00097000 * YM2521 */ 00098000 ST CCWREG,IOSVST(,IOSBPTR) 0109 00099000 * END; 0110 00100000 * 0110 00101000 */* */ 00102000 */* STSNCHCK SEGMENT-PRIORITY CHECK FOR STATUS BYTES UP TO UNIT */ 00103000 */* CHECK */ 00104000 */* */ 00105000 * 0111 00106000 *STATUSCK: /* START STATUS CHECK WITH CCC */ 00107000 * IF STBYT2B5=ON| /* CCC OR */ 00108000 * STBYT2B6=ON /* ICC */ 00109000 * THEN /* YES, */ 00110000 @RF00095 DS 0H 0111 00111000 STATUSCK TM STBYT2B5(IOSBPTR),B'00000110' 0111 00112000 BZ @RF00111 0111 00113000 * DO; /* ATTEMPT RECOVERY */ 00114000 * 0112 00115000 */* */ 00116000 */* CCCICC SEGMENT- SETS UP ACTION TO BE TAKEN FOR CHANNEL CONTROL */ 00117000 */* CHECK AND INTERFACE CONTROL CHECK STATUS ERRORS */ 00118000 */* */ 00119000 * 0113 00120000 *CCCICC: /* ACTION FOR CCC OR ICC */ 00121000 * IOBPMS=ON; /* */ 00122000 CCCICC OI IOBPMS(IOSBPTR),B'00000100' 0113 00123000 * IF IOSCOD^=INTRCPT /* INTERCEPT CONDITIONY02870 */ 00124000 * THEN /* NO,DO RECOVERY ACTION */ 00125000 CLI IOSCOD(IOSBPTR),X'7E' 0114 00126000 BE @RF00114 0114 00127000 * DO; 0115 00128000 * IF(IBSEQ=SQC001& /* FIND ALL RETRY CONDITN */ 00129000 * COMMAND^=TIO)| /* OR SYMBOL '|' */ 00130000 * (IBSEQ=SQC100& /* DELIMITES RETRY */ 00131000 * COMMAND^=TIO)| /* CONDITIONS */ 00132000 * (IBSEQ=SQC010& /* */ 00133000 * COMMAND=EJECT)| /* */ 00134000 * (IBSEQ^=SQC000& /* 4TH CONDITION */ 00135000 * IBSEQ^=SQC110& /* */ 00136000 * COMMAND^=READ& /* */ 00137000 * COMMAND^=EJECT& /* */ 00138000 * COMMAND^=TIO) /* */ 00139000 * THEN /* ONE OF ABOVE TESTS */ 00140000 TM IBSEQ(EWAPTR),B'00000001' 0116 00141000 BNO @GL00005 0116 00142000 TM IBSEQ(EWAPTR),B'00000110' 0116 00143000 BNZ @GL00005 0116 00144000 CLI COMMAND(CCWREG),X'00' 0116 00145000 BNE @RT00116 0116 00146000 @GL00005 TM IBSEQ(EWAPTR),B'00000100' 0116 00147000 BNO @GL00004 0116 00148000 TM IBSEQ(EWAPTR),B'00000011' 0116 00149000 BNZ @GL00004 0116 00150000 CLI COMMAND(CCWREG),X'00' 0116 00151000 BNE @RT00116 0116 00152000 @GL00004 TM IBSEQ(EWAPTR),B'00000010' 0116 00153000 BNO @GL00003 0116 00154000 TM IBSEQ(EWAPTR),B'00000101' 0116 00155000 BNZ @GL00003 0116 00156000 CLI COMMAND(CCWREG),X'63' 0116 00157000 BE @RT00116 0116 00158000 @GL00003 TM IBSEQ(EWAPTR),B'00000111' 0116 00159000 BZ @RF00116 0116 00160000 TM IBSEQ(EWAPTR),B'00000110' 0116 00161000 BNO @GL00011 0116 00162000 TM IBSEQ(EWAPTR),B'00000001' 0116 00163000 BZ @RF00116 0116 00164000 @GL00011 CLI COMMAND(CCWREG),X'02' 0116 00165000 BE @RF00116 0116 00166000 CLI COMMAND(CCWREG),X'63' 0116 00167000 BE @RF00116 0116 00168000 CLI COMMAND(CCWREG),X'00' 0116 00169000 BE @RF00116 0116 00170000 @RT00116 DS 0H 0117 00171000 * IOBPMS=BOF; /* LET RETRY OCCUR */ 00172000 NI IOBPMS(IOSBPTR),B'11111011' 0117 00173000 * ELSE 0118 00174000 * ; /* NULL ELSE */ 00175000 @RF00116 DS 0H 0119 00176000 * IF STBYT2B6=ON /* ICC */ 00177000 * THEN /* YES, */ 00178000 TM STBYT2B6(IOSBPTR),B'00000010' 0119 00179000 BNO @RF00119 0119 00180000 * IF IOBICCE=ON /* ICC BEEN RETRIED */ 00181000 * THEN /* YES, */ 00182000 TM IOBICCE(EWAPTR),B'00001000' 0120 00183000 BNO @RF00120 0120 00184000 * IOBPMS=ON; /* PERM MSG */ 00185000 OI IOBPMS(IOSBPTR),B'00000100' 0121 00186000 * ELSE /* NO, */ 00187000 * IOBICCE=ON; /* ALLOW 1 RETRY */ 00188000 B @RC00120 0122 00189000 @RF00120 OI IOBICCE(EWAPTR),B'00001000' 0122 00190000 * ELSE /* NO, */ 00191000 * IF IOBCCCE=ON /* CCC BEEN RETRIED */ 00192000 * THEN /* YES, */ 00193000 B @RC00119 0123 00194000 @RF00119 TM IOBCCCE(EWAPTR),B'00000100' 0123 00195000 BNO @RF00123 0123 00196000 * IOBPMS=ON; /* PERM MSG, NO RETRY */ 00197000 OI IOBPMS(IOSBPTR),B'00000100' 0124 00198000 * ELSE /* NO, */ 00199000 * IOBCCCE=ON; /* ALLOW 1 RETRY */ 00200000 B @RC00123 0125 00201000 @RF00123 OI IOBCCCE(EWAPTR),B'00000100' 0125 00202000 * END; 0126 00203000 * ELSE 0127 00204000 * ; /* NULL ELSE */ 00205000 @RF00114 DS 0H 0128 00206000 * ERPIB=ERPIB&&ERPIB; /* CLEAR OUT ERPIB */ 00207000 @RC00114 XC ERPIB(8,EWAPTR),ERPIB(EWAPTR) 0128 00208000 * END; 0129 00209000 * ELSE /* NEITHER CCC OR ICC */ 00210000 *CDCCHECK: /* CHECK FOR CDC ERROR */ 00211000 * IF STBYT2B4=ON /* CDC */ 00212000 * THEN /* YES, */ 00213000 B @RC00111 0130 00214000 @RF00111 DS 0H 0130 00215000 CDCCHECK TM STBYT2B4(IOSBPTR),B'00001000' 0130 00216000 BNO @RF00130 0130 00217000 * IF IOBCDCE=ON /* CDC BEEN RETRIED */ 00218000 * THEN /* YES, */ 00219000 TM IOBCDCE(EWAPTR),B'10000000' 0131 00220000 BNO @RF00131 0131 00221000 * IOBPMS=ON; /* IND PERN ERR MSG */ 00222000 OI IOBPMS(IOSBPTR),B'00000100' 0132 00223000 * ELSE /* NO, */ 00224000 * IOBCDCE=ON; /* IND RETRY ATTEMPT */ 00225000 B @RC00131 0133 00226000 @RF00131 OI IOBCDCE(EWAPTR),B'10000000' 0133 00227000 * ELSE /* NOT CCC,ICC, OR CDC */ 00228000 *NOTOCCUR: /* SHOULD NOT OCCUR STATUS */ 00229000 * IF STBYT1B0=ON| /* IS A SHOULD NOT OCCUR */ 00230000 * STBYT1B1=ON| /* STATUS BIT ON */ 00231000 * STBYT1B2=ON /* */ 00232000 * THEN /* YES,SHOULD NOT OCCUR IS ON */ 00233000 B @RC00130 0134 00234000 @RF00130 DS 0H 0134 00235000 NOTOCCUR TM STBYT1B0(IOSBPTR),B'11100000' 0134 00236000 BZ @RF00134 0134 00237000 * IOBPMS=ON; /* PERM ERR MSG */ 00238000 OI IOBPMS(IOSBPTR),B'00000100' 0135 00239000 * ELSE /* NOT CHAN ERR OR SHLD NT OC */ 00240000 *UNITCHCK: /* UNIT CHECK OCCUR */ 00241000 * IF STBYT1B6=ON /* UNIT CHECK */ 00242000 * THEN /* YES,CHECK SENSE BIT SETTNG*/ 00243000 B @RC00134 0136 00244000 @RF00134 DS 0H 0136 00245000 UNITCHCK TM STBYT1B6(IOSBPTR),B'00000010' 0136 00246000 BNO @RF00136 0136 00247000 * IOBLD2=ON; 0137 00248000 OI IOBLD2(EWAPTR),B'00100000' 0137 00249000 * ELSE /* NONE OF ABOVE CHKD STATUS */ 00250000 * DO; /* CHK REMAINING STATUS */ 00251000 * 0138 00252000 B @RC00136 0138 00253000 @RF00136 DS 0H 0139 00254000 */* */ 00255000 */*STATUSCK SEGMENT- COMPLETES THE PRIORITY CHECK BY TESTING FOR THE */ 00256000 */* STATUS ERRORS CHAINING CHECK,PROGRAM CHECK,PROTECTION CHECK, */ 00257000 */* AND INCORRECT LENGTH. IF NONE ON THEN ERROR IS CORRECTED. */ 00258000 */* */ 00259000 * 0139 00260000 *PROGERRS: /* STATUS ERRS CAUSED BY PROG */ 00261000 * IF STBYT2B7=ON| /* CHAINING CHECK OR */ 00262000 * STBYT2B2=ON| /* PROGRAM CHECK OR */ 00263000 * STBYT2B3=ON| /* PROTECTION CHECK OR */ 00264000 * STBYT2B1=ON /* INCORRECT LENGTH */ 00265000 * THEN /* YES, */ 00266000 PROGERRS TM STBYT2B7(IOSBPTR),B'01110001' 0139 00267000 BZ @RF00139 0139 00268000 * IOBPMS=ON; /* PERM ERR MSG */ 00269000 OI IOBPMS(IOSBPTR),B'00000100' 0140 00270000 * ELSE /* ERROR CORRECTED */ 00271000 * IF STBYT1B7=ON /* UNIT EXCEPTION */ 00272000 * THEN /* YES, */ 00273000 B @RC00139 0141 00274000 @RF00139 TM STBYT1B7(IOSBPTR),B'00000001' 0141 00275000 BNO @RF00141 0141 00276000 * IOSERR=BOF; /* TURN OFF ERP IN CONTROL Y02870*/ 00277000 NI IOSERR(IOSBPTR),B'11011111' 0142 00278000 * ELSE /* NO,CONTINUE */ 00279000 * DO; /* */ 00280000 B @RC00141 0143 00281000 @RF00141 DS 0H 0144 00282000 * IOSERR=BOF; /* ERR RTN NOT IN CONTROL Y02870 */ 00283000 * IOSEX=BOF; /* ERROR CORRECTED Y02870 */ 00284000 NI IOSERR(IOSBPTR),B'11011011' 0145 00285000 * IOBRSTRT=BOF;/* RESET RESTART FLAG Y02870 */ 00286000 NI IOBRSTRT(EWAPTR),B'11111101' 0146 00287000 * IOSFLB=HEX0;/* ZERO OUT FLAG2 Y02870 */ 00288000 MVI IOSFLB(IOSBPTR),X'00' 0147 00289000 * IOBCNT=HEX0;/* ZERO OUT RETRY FLAGS Y02870 */ 00290000 MVI IOBCNT(EWAPTR),X'00' 0148 00291000 * EWACNTR1=ZERO;/* ZERO SDR TABLE INDEX Y02870 */ 00292000 MVI EWACNTR1(EWAPTR),X'00' 0149 00293000 * END; 0150 00294000 * END; 0151 00295000 @RC00141 DS 0H 0151 00296000 @RC00139 DS 0H 0152 00297000 * END; 0152 00298000 * 0152 00299000 @RC00136 DS 0H 0152 00300000 @RC00134 DS 0H 0152 00301000 @RC00130 DS 0H 0152 00302000 @RC00111 DS 0H 0153 00303000 */* */ 00304000 */* EXITCODE SEGMENT- */ 00305000 */* ONE OF THE FOLLOWING EXITS MAY BE TAKEN */ 00306000 */* A) WTO MODULE FOR MSG AND POSSIBLE LOGOUT */ 00307000 */* B) OBR MODULE FOR LOGOUT AND POSSIBLE RETRY */ 00308000 */* C) IOS FOR RETRY OR ERROR CORRECTED */ 00309000 */* */ 00310000 * 0153 00311000 *EXITHERE: /* CODE TO TAKE RIGHT EXIT */ 00312000 * IF IOBPMS=ON /* WTO ROUTINE NEEDED */ 00313000 * THEN /* YES, */ 00314000 @RC00086 DS 0H 0153 00315000 EXITHERE TM IOBPMS(IOSBPTR),B'00000100' 0153 00316000 BNO @RF00153 0153 00317000 * DO; /* */ 00318000 * IOSERR=BOF; /* ERP NO LONGER IN CONTROL 0155 00319000 * YM2514 */ 00320000 NI IOSERR(IOSBPTR),B'11011111' 0155 00321000 * XCTLPR=WTORTN; /* LOAD RTN NUMBER FOR XCTL */ 00322000 LA XCTLPR,253 0156 00323000 * XCTLRG=CVTXTLER; /* LOAD XCTL ADDR FOR XCTL */ 00324000 L @12,CVTPTR 0157 00325000 L @12,CVTXTLER(,@12) 0157 00326000 LR XCTLRG,@12 0157 00327000 * GO TO XCTL; /* BRANCH TO XCTL ROUTINE */ 00328000 BR @12 0158 00329000 * END; /* */ 00330000 * ELSE 0160 00331000 * ; /* NULL ELSE */ 00332000 @RF00153 DS 0H 0161 00333000 * IF IOBLD2=ON /* 2ND LOAD NEEDED */ 00334000 * THEN /* YES,XCTL TO NEXT LOAD */ 00335000 TM IOBLD2(EWAPTR),B'00100000' 0161 00336000 BNO @RF00161 0161 00337000 * DO; 0162 00338000 * XCTLPR=LOAD2; /* 2ND ERP ID */ 00339000 LA XCTLPR,1016 0163 00340000 * XCTLRG=CVTXTLER; /* XCTL ADDR */ 00341000 L @12,CVTPTR 0164 00342000 L @12,CVTXTLER(,@12) 0164 00343000 LR XCTLRG,@12 0164 00344000 * GO TO XCTL; /* XCTL */ 00345000 BR @12 0165 00346000 * END; 0166 00347000 * ELSE 0167 00348000 * ; 0167 00349000 @RF00161 DS 0H 0168 00350000 * GENERATE; 0168 00351000 ERREXCP EQU 15 ERROR EXCP 00352000 RETURN EQU 3 RETURN 00353000 SVC ERREXCP ERROR EXCP 00354000 SVC RETURN RETURN 00355000 * END ER3886A 0169 00356000 * 0169 00357000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00358000 */*%INCLUDE SYSUT5 (TOPSEGMT) */ 00359000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00360000 */*%INCLUDE SYSUT5 (DECLARES) */ 00361000 */*%INCLUDE SYSUT5 (DCLREG ) */ 00362000 */*%INCLUDE SYSUT5 (DCLCONST) */ 00363000 */*%INCLUDE SYSLIB (CVT ) */ 00364000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00365000 */*%INCLUDE SYSLIB (EWAMAP ) */ 00366000 */*%INCLUDE SYSUT5 (IOBUCBOL) */ 00367000 */*%INCLUDE SYSUT5 (STSNCHCK) */ 00368000 */*%INCLUDE SYSUT5 (CCCICC ) */ 00369000 */*%INCLUDE SYSUT5 (STATUSCK) */ 00370000 */*%INCLUDE SYSUT5 (EXITCODE) */ 00371000 * 0169 00372000 * ; 0169 00373000 @EL00001 DS 0H 0169 00374000 @EF00001 DS 0H 0169 00375000 @ER00001 BR @14 0169 00376000 @DATA DS 0H 00377000 @CH00052 DC H'8' 00378000 DS 0F 00379000 DS 0F 00380000 DS 0D 00381000 MTAREA DS CL100 00382000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00383000 @01 EQU 01 00384000 @02 EQU 02 00385000 @03 EQU 03 00386000 @04 EQU 04 00387000 @05 EQU 05 00388000 @06 EQU 06 00389000 @07 EQU 07 00390000 @08 EQU 08 00391000 @09 EQU 09 00392000 @10 EQU 10 00393000 @11 EQU 11 00394000 @12 EQU 12 00395000 @13 EQU 13 00396000 @14 EQU 14 00397000 @15 EQU 15 00398000 IOSBPTR EQU @01 00399000 WK1PTR EQU @02 00400000 STTPTR EQU @03 00401000 WK2PTR EQU @04 00402000 CCWREG EQU @05 00403000 ERPBRG EQU @07 00404000 UCBPTR EQU @08 00405000 EWAPTR EQU @10 00406000 XCTLPR EQU @13 00407000 XCTLRG EQU @14 00408000 BASREG EQU @06 00409000 CVTPTR EQU 16 00410000 CVTMAP EQU 0 00411000 CVTXTLER EQU CVTMAP+44 00412000 CVTDAR EQU CVTMAP+72 00413000 CVTFLGS1 EQU CVTDAR 00414000 CVTDCB EQU CVTMAP+116 00415000 CVTOPTA EQU CVTMAP+182 00416000 CVTOPTB EQU CVTMAP+183 00417000 CVTTSCVT EQU CVTMAP+228 00418000 CVTTSFLG EQU CVTTSCVT 00419000 CVTGTF EQU CVTMAP+236 00420000 CVTGTFST EQU CVTGTF 00421000 CVTGTFS EQU CVTGTFST 00422000 CVTSTATE EQU CVTGTFST 00423000 CVTTMODE EQU CVTGTFST 00424000 CVTFORM EQU CVTGTFST 00425000 CVTUSR EQU CVTGTFST 00426000 CVTAQAVT EQU CVTMAP+240 00427000 CVTTCMFG EQU CVTAQAVT 00428000 CVTVOLM2 EQU CVTMAP+244 00429000 CVTTATA EQU CVTVOLM2 00430000 CVTTSKS EQU CVTTATA 00431000 CVTVOLF2 EQU CVTTSKS 00432000 CVTTAT EQU CVTTATA+1 00433000 CVTATER EQU CVTMAP+248 00434000 CVTEXT1 EQU CVTMAP+252 00435000 CVTPURG EQU CVTMAP+260 00436000 CVTQMSG EQU CVTMAP+268 00437000 CVTDMSR EQU CVTMAP+272 00438000 CVTAPF EQU CVTMAP+324 00439000 CVTEXT2 EQU CVTMAP+328 00440000 CVTHJES EQU CVTMAP+332 00441000 CVTPGSIA EQU CVTMAP+348 00442000 CVTA1F1 EQU CVTMAP+356 00443000 CVTSYSK EQU CVTMAP+357 00444000 CVTVOLM1 EQU CVTMAP+380 00445000 CVTVOLF1 EQU CVTVOLM1 00446000 CVTATMCT EQU CVTMAP+388 00447000 CVTXTNT1 EQU 0 00448000 CVTXTNT2 EQU 0 00449000 CVTDSSV EQU CVTXTNT2 00450000 CVTRSV90 EQU CVTXTNT2+5 00451000 CVTQID EQU CVTXTNT2+24 00452000 CVTRV400 EQU CVTXTNT2+52 00453000 CVTRV409 EQU CVTXTNT2+53 00454000 CVTATCVT EQU CVTXTNT2+64 00455000 CVTRV429 EQU CVTXTNT2+84 00456000 CVTRV438 EQU CVTXTNT2+85 00457000 CVTRV457 EQU CVTXTNT2+112 00458000 CVTRV466 EQU CVTXTNT2+113 00459000 CVTFIX EQU 0 00460000 CVTRELNO EQU CVTFIX+252 00461000 IOSB EQU 0 00462000 IOSFLA EQU IOSB 00463000 IOSACHN EQU IOSFLA 00464000 IOSDCHN EQU IOSACHN 00465000 IOSCCHN EQU IOSACHN 00466000 IOSERR EQU IOSFLA 00467000 IOSEX EQU IOSFLA 00468000 IOSFLB EQU IOSB+1 00469000 IOSFLC EQU IOSB+2 00470000 IOSDVALT EQU IOSFLC 00471000 IOSPKEY EQU IOSB+12 00472000 IOSCOD EQU IOSB+13 00473000 IOSOPT EQU IOSB+14 00474000 IOSUCB EQU IOSB+16 00475000 @NM00004 EQU IOSB+20 00476000 IOSCC EQU @NM00004 00477000 IOSCSW EQU @NM00004+1 00478000 IOSTATUS EQU IOSCSW+3 00479000 IOSSNS EQU IOSB+42 00480000 IOSIPIB EQU IOSB+44 00481000 IOSERP EQU IOSB+52 00482000 IOSRST EQU IOSB+72 00483000 IOSVST EQU IOSB+76 00484000 IOSPATH EQU IOSB+86 00485000 IOSCHN EQU IOSPATH 00486000 IOSCKEY EQU IOSB+89 00487000 IOSEEKA EQU IOSB+100 00488000 IOSCCHH EQU IOSEEKA+3 00489000 IOSSKHH EQU IOSCCHH+2 00490000 EWA EQU 0 00491000 EWAHDR EQU EWA 00492000 EWAFLAGS EQU EWA+4 00493000 EWAFLG1 EQU EWAFLAGS 00494000 EWASCCD EQU EWAFLG1 00495000 EWASCC3 EQU EWASCCD 00496000 EWAFLG2 EQU EWAFLAGS+1 00497000 EWAFLG3 EQU EWAFLAGS+2 00498000 EWASNSCT EQU EWAFLAGS+3 00499000 EWACNTRS EQU EWA+10 00500000 EWACNTR1 EQU EWACNTRS 00501000 EWACNTR3 EQU EWACNTRS+2 00502000 EWAERPIB EQU EWA+16 00503000 EWARGFG1 EQU EWAERPIB+4 00504000 EWARGFG2 EQU EWAERPIB+5 00505000 EWAXCSW1 EQU EWAERPIB+6 00506000 EWAXCSW2 EQU EWAERPIB+7 00507000 EWAIERP EQU EWA+32 00508000 FAILCCW EQU 0 00509000 COMMAND EQU FAILCCW 00510000 XCTL EQU 0 00511000 CVTS01 EQU CVTPGSIA 00512000 CVTLPDIA EQU CVTS01+12 00513000 CVTDIRST EQU CVTLPDIA 00514000 CVTSLIDA EQU CVTS01+24 00515000 CVTCTLFG EQU CVTS01+50 00516000 CVTRV100 EQU CVTS01+116 00517000 CVTRV109 EQU CVTS01+117 00518000 CVTRV118 EQU CVTS01+118 00519000 CVTRV127 EQU CVTS01+119 00520000 CVTRV210 EQU CVTS01+424 00521000 CVTRV219 EQU CVTS01+425 00522000 CVTRV228 EQU CVTS01+426 00523000 CVTRV237 EQU CVTS01+427 00524000 CVTMFRTR EQU CVTS01+452 00525000 CVTRV262 EQU CVTS01+468 00526000 CVTRV271 EQU CVTS01+469 00527000 CVTRV280 EQU CVTS01+470 00528000 CVTRV289 EQU CVTS01+471 00529000 CVTGSDA EQU CVTS01+600 00530000 IOSATTSC EQU IOSIPIB 00531000 IOSWTOWA EQU IOSIPIB 00532000 IOSPCISC EQU IOSIPIB 00533000 EWADDIOS EQU EWAIERP 00534000 ERPIB EQU EWAERPIB 00535000 IBEXCSW2 EQU ERPIB+7 00536000 IBSEQ EQU IBEXCSW2 00537000 IOBDDFLG EQU IOSFLB 00538000 IOBPMS EQU IOBDDFLG 00539000 IOBCSWXX EQU IOSCSW 00540000 CMDADR EQU IOBCSWXX 00541000 STBYT1 EQU IOBCSWXX+3 00542000 STBYT1B0 EQU STBYT1 00543000 STBYT1B1 EQU STBYT1 00544000 STBYT1B2 EQU STBYT1 00545000 STBYT1B6 EQU STBYT1 00546000 STBYT1B7 EQU STBYT1 00547000 STBYT2 EQU IOBCSWXX+4 00548000 STBYT2B1 EQU STBYT2 00549000 STBYT2B2 EQU STBYT2 00550000 STBYT2B3 EQU STBYT2 00551000 STBYT2B4 EQU STBYT2 00552000 STBYT2B5 EQU STBYT2 00553000 STBYT2B6 EQU STBYT2 00554000 STBYT2B7 EQU STBYT2 00555000 IOBCNT EQU EWACNTR3 00556000 IOBCDCE EQU IOBCNT 00557000 IOBICCE EQU IOBCNT 00558000 IOBCCCE EQU IOBCNT 00559000 SIOC3886 EQU IOSCC 00560000 IOBSENS0 EQU IOSSNS 00561000 IOBS0B1 EQU IOBSENS0 00562000 EWAFLG EQU EWAFLG3 00563000 IOBLD2 EQU EWAFLG 00564000 IOBERE EQU EWAFLG 00565000 IOBRSTRT EQU EWAFLG 00566000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00567000 @NM00038 EQU EWAFLG 00568000 @NM00037 EQU EWAFLG 00569000 IOBIRM EQU EWAFLG 00570000 @NM00036 EQU EWAFLG 00571000 IOBS0B7 EQU IOBSENS0 00572000 @NM00035 EQU IOBSENS0 00573000 @NM00034 EQU IOBSENS0 00574000 @NM00033 EQU SIOC3886 00575000 IOCC3886 EQU SIOC3886 00576000 @NM00032 EQU SIOC3886 00577000 @NM00031 EQU IOBCNT 00578000 IOBICS EQU IOBCNT 00579000 IOBBOC EQU IOBCNT 00580000 @NM00030 EQU IOBCNT 00581000 @NM00029 EQU STBYT2 00582000 STBYT1B5 EQU STBYT1 00583000 @NM00028 EQU STBYT1 00584000 @NM00027 EQU STBYT1 00585000 @NM00026 EQU IOBDDFLG 00586000 @NM00025 EQU IOBDDFLG 00587000 @NM00024 EQU IOBDDFLG 00588000 @NM00023 EQU IOBDDFLG 00589000 @NM00020 EQU IBEXCSW2 00590000 IBTERM EQU IBEXCSW2 00591000 @NM00019 EQU ERPIB+4 00592000 IBUCB EQU ERPIB+1 00593000 IBEND EQU ERPIB 00594000 EWAEND EQU EWADDIOS+71 00595000 EWASCSW EQU EWADDIOS+64 00596000 EWASNS EQU EWADDIOS 00597000 IOSPCIWA EQU IOSPCISC+44 00598000 IOSPCIRS EQU IOSPCISC+8 00599000 @NM00009 EQU IOSPCISC+4 00600000 @NM00008 EQU IOSPCISC 00601000 IOSWRNDR EQU IOSWTOWA+4 00602000 IOSWTOPT EQU IOSWTOWA+3 00603000 IOSWTOCP EQU IOSWTOWA+2 00604000 IOSWTOCH EQU IOSWTOWA 00605000 IOSATTWA EQU IOSATTSC+40 00606000 @NM00007 EQU IOSATTSC+24 00607000 IOSATTSN EQU IOSATTSC 00608000 CVTTPIO EQU CVTS01+608 00609000 CVTADV EQU CVTS01+604 00610000 CVTGSDAB EQU CVTGSDA 00611000 CVTQV3 EQU CVTS01+596 00612000 CVTQV2 EQU CVTS01+592 00613000 CVTQV1 EQU CVTS01+588 00614000 CVTRPT EQU CVTS01+584 00615000 CVTSSRB EQU CVTS01+580 00616000 CVTCSDRL EQU CVTS01+576 00617000 CVTEXP1 EQU CVTS01+572 00618000 CVTRMPMT EQU CVTS01+568 00619000 CVTRMPTT EQU CVTS01+564 00620000 CVTVPSA EQU CVTS01+560 00621000 CVTVSTOP EQU CVTS01+556 00622000 CVTGTFR8 EQU CVTS01+552 00623000 CVTQUIT EQU CVTS01+548 00624000 CVTVACR EQU CVTS01+544 00625000 CVTWTCB EQU CVTS01+540 00626000 CVTSTPRS EQU CVTS01+536 00627000 CVT0PT02 EQU CVTS01+532 00628000 CVTDARCM EQU CVTS01+528 00629000 CVTIRECM EQU CVTS01+524 00630000 CVTJRECM EQU CVTS01+520 00631000 CVTVEMS0 EQU CVTS01+516 00632000 CVTSPFRR EQU CVTS01+512 00633000 CVTRLSTG EQU CVTS01+508 00634000 CVT0TC0A EQU CVTS01+504 00635000 CVTGMBR EQU CVTS01+500 00636000 CVTLFRM EQU CVTS01+496 00637000 CVTRMBR EQU CVTS01+492 00638000 CVTVIOP EQU CVTS01+488 00639000 CVTRV307 EQU CVTS01+486 00640000 CVTRV306 EQU CVTS01+484 00641000 CVTRV305 EQU CVTS01+482 00642000 CVTRV304 EQU CVTS01+480 00643000 CVTRV303 EQU CVTS01+478 00644000 CVTRV302 EQU CVTS01+476 00645000 CVTRV301 EQU CVTS01+475 00646000 CVTRV300 EQU CVTS01+474 00647000 CVTRV299 EQU CVTS01+473 00648000 CVTRV298 EQU CVTS01+472 00649000 CVTRV297 EQU CVTRV289 00650000 CVTRV296 EQU CVTRV289 00651000 CVTRV295 EQU CVTRV289 00652000 CVTRV294 EQU CVTRV289 00653000 CVTRV293 EQU CVTRV289 00654000 CVTRV292 EQU CVTRV289 00655000 CVTRV291 EQU CVTRV289 00656000 CVTRV290 EQU CVTRV289 00657000 CVTRV288 EQU CVTRV280 00658000 CVTRV287 EQU CVTRV280 00659000 CVTRV286 EQU CVTRV280 00660000 CVTRV285 EQU CVTRV280 00661000 CVTRV284 EQU CVTRV280 00662000 CVTRV283 EQU CVTRV280 00663000 CVTRV282 EQU CVTRV280 00664000 CVTRV281 EQU CVTRV280 00665000 CVTRV279 EQU CVTRV271 00666000 CVTRV278 EQU CVTRV271 00667000 CVTRV277 EQU CVTRV271 00668000 CVTRV276 EQU CVTRV271 00669000 CVTRV275 EQU CVTRV271 00670000 CVTRV274 EQU CVTRV271 00671000 CVTRV273 EQU CVTRV271 00672000 CVTRV272 EQU CVTRV271 00673000 CVTRV270 EQU CVTRV262 00674000 CVTRV269 EQU CVTRV262 00675000 CVTRV268 EQU CVTRV262 00676000 CVTRV267 EQU CVTRV262 00677000 CVTRV266 EQU CVTRV262 00678000 CVTRV265 EQU CVTRV262 00679000 CVTRV264 EQU CVTRV262 00680000 CVTRV263 EQU CVTRV262 00681000 CVTVFP EQU CVTS01+464 00682000 CVTVSI EQU CVTS01+460 00683000 CVTVPSIB EQU CVTS01+456 00684000 CVTMFACT EQU CVTMFRTR 00685000 CVTMFCTL EQU CVTS01+448 00686000 CVTPVBP EQU CVTS01+444 00687000 CVTPWI EQU CVTS01+440 00688000 CVTRV254 EQU CVTS01+438 00689000 CVTRV253 EQU CVTS01+436 00690000 CVTRV252 EQU CVTS01+434 00691000 CVTRV251 EQU CVTS01+433 00692000 CVTRV250 EQU CVTS01+432 00693000 CVTRV249 EQU CVTS01+431 00694000 CVTRV248 EQU CVTS01+430 00695000 CVTRV247 EQU CVTS01+429 00696000 CVTRV246 EQU CVTS01+428 00697000 CVTRV245 EQU CVTRV237 00698000 CVTRV244 EQU CVTRV237 00699000 CVTRV243 EQU CVTRV237 00700000 CVTRV242 EQU CVTRV237 00701000 CVTRV241 EQU CVTRV237 00702000 CVTRV240 EQU CVTRV237 00703000 CVTRV239 EQU CVTRV237 00704000 CVTRV238 EQU CVTRV237 00705000 CVTRV236 EQU CVTRV228 00706000 CVTRV235 EQU CVTRV228 00707000 CVTRV234 EQU CVTRV228 00708000 CVTRV233 EQU CVTRV228 00709000 CVTRV232 EQU CVTRV228 00710000 CVTRV231 EQU CVTRV228 00711000 CVTRV230 EQU CVTRV228 00712000 CVTRV229 EQU CVTRV228 00713000 CVTRV227 EQU CVTRV219 00714000 CVTRV226 EQU CVTRV219 00715000 CVTRV225 EQU CVTRV219 00716000 CVTRV224 EQU CVTRV219 00717000 CVTRV223 EQU CVTRV219 00718000 CVTRV222 EQU CVTRV219 00719000 CVTRV221 EQU CVTRV219 00720000 CVTRV220 EQU CVTRV219 00721000 CVTRV218 EQU CVTRV210 00722000 CVTRV217 EQU CVTRV210 00723000 CVTRV216 EQU CVTRV210 00724000 CVTRV215 EQU CVTRV210 00725000 CVTRV214 EQU CVTRV210 00726000 CVTRV213 EQU CVTRV210 00727000 CVTRV212 EQU CVTRV210 00728000 CVTRV211 EQU CVTRV210 00729000 CVTLCCAT EQU CVTS01+420 00730000 CVTPCCAT EQU CVTS01+416 00731000 CVTIPCRP EQU CVTS01+412 00732000 CVTIPCRI EQU CVTS01+408 00733000 CVTIPCDS EQU CVTS01+404 00734000 CVTAIDVT EQU CVTS01+400 00735000 CVTSSAP EQU CVTS01+396 00736000 CVTRV202 EQU CVTS01+394 00737000 CVTRV201 EQU CVTS01+392 00738000 CVTRV200 EQU CVTS01+390 00739000 CVTRV199 EQU CVTS01+388 00740000 CVTRV198 EQU CVTS01+386 00741000 CVTRV197 EQU CVTS01+384 00742000 CVTRV196 EQU CVTS01+383 00743000 CVTRV195 EQU CVTS01+382 00744000 CVTRV194 EQU CVTS01+381 00745000 CVTRV193 EQU CVTS01+380 00746000 CVT044R2 EQU CVTS01+376 00747000 CVTFETCH EQU CVTS01+372 00748000 CVTRSTWD EQU CVTS01+368 00749000 CVTSPOST EQU CVTS01+364 00750000 CVTIOBP EQU CVTS01+360 00751000 CVTASMVT EQU CVTS01+356 00752000 CVTRECRQ EQU CVTS01+352 00753000 CVTWSAC EQU CVTS01+348 00754000 CVTWSAG EQU CVTS01+344 00755000 CVTWSAL EQU CVTS01+340 00756000 CVTSPSA EQU CVTS01+336 00757000 CVTGLMN EQU CVTS01+332 00758000 CVTVEAC0 EQU CVTS01+328 00759000 CVT062R1 EQU CVTS01+324 00760000 CVTRPOST EQU CVTS01+320 00761000 CVTDQIQE EQU CVTS01+316 00762000 CVTCSD EQU CVTS01+312 00763000 CVTLKRMA EQU CVTS01+308 00764000 CVTRSPIE EQU CVTS01+304 00765000 CVTRENQ EQU CVTS01+300 00766000 CVTLQCB EQU CVTS01+296 00767000 CVTFQCB EQU CVTS01+292 00768000 CVTQCS01 EQU CVTS01+288 00769000 CVTAPFT EQU CVTS01+284 00770000 CVTPARRL EQU CVTS01+280 00771000 CVTVWAIT EQU CVTS01+276 00772000 CVTGSPL EQU CVTS01+272 00773000 CVTLSMQ EQU CVTS01+268 00774000 CVTGSMQ EQU CVTS01+264 00775000 CVTEXPRO EQU CVTS01+260 00776000 CVTOPCTP EQU CVTS01+256 00777000 CVTSIC EQU CVTS01+252 00778000 CVTTPIOS EQU CVTS01+248 00779000 CVTRTMS EQU CVTS01+244 00780000 CVTSDBF EQU CVTS01+240 00781000 CVTSCBP EQU CVTS01+236 00782000 CVTSDMP EQU CVTS01+232 00783000 CVTSV60 EQU CVTS01+228 00784000 CVTRTMCT EQU CVTS01+224 00785000 CVTASCBL EQU CVTS01+220 00786000 CVTASCBH EQU CVTS01+216 00787000 CVTGDA EQU CVTS01+212 00788000 CVTASVT EQU CVTS01+208 00789000 CVTVVMDI EQU CVTS01+204 00790000 CVTAQTOP EQU CVTS01+200 00791000 CVTIOSCS EQU CVTS01+196 00792000 CVTSDRM EQU CVTS01+192 00793000 CVTOPTE EQU CVTS01+188 00794000 CVTSTXU EQU CVTS01+184 00795000 CVTQUIS EQU CVTS01+180 00796000 CVTRV514 EQU CVTS01+176 00797000 CVTS1EE EQU CVTS01+172 00798000 CVTFRAS EQU CVTS01+168 00799000 CVTQSAS EQU CVTS01+164 00800000 CVTCRAS EQU CVTS01+160 00801000 CVTCRMN EQU CVTS01+156 00802000 CVTDELCP EQU CVTS01+152 00803000 CVTFRECL EQU CVTS01+148 00804000 CVTGETCL EQU CVTS01+144 00805000 CVTBLDCP EQU CVTS01+140 00806000 CVTAUTHL EQU CVTS01+136 00807000 CVTRV146 EQU CVTS01+134 00808000 CVTRV145 EQU CVTS01+132 00809000 CVTRV144 EQU CVTS01+130 00810000 CVTMAXMP EQU CVTS01+128 00811000 CVTRV142 EQU CVTS01+126 00812000 CVTRV141 EQU CVTS01+125 00813000 CVTRV140 EQU CVTS01+124 00814000 CVTRV139 EQU CVTS01+123 00815000 CVTDSSAC EQU CVTS01+122 00816000 CVTRV513 EQU CVTS01+121 00817000 CVTIOSPL EQU CVTS01+120 00818000 CVTRV135 EQU CVTRV127 00819000 CVTRV134 EQU CVTRV127 00820000 CVTRV133 EQU CVTRV127 00821000 CVTRV132 EQU CVTRV127 00822000 CVTRV131 EQU CVTRV127 00823000 CVTRV130 EQU CVTRV127 00824000 CVTRV129 EQU CVTRV127 00825000 CVTRV128 EQU CVTRV127 00826000 CVTRV126 EQU CVTRV118 00827000 CVTRV125 EQU CVTRV118 00828000 CVTRV124 EQU CVTRV118 00829000 CVTRV123 EQU CVTRV118 00830000 CVTRV122 EQU CVTRV118 00831000 CVTRV121 EQU CVTRV118 00832000 CVTRV120 EQU CVTRV118 00833000 CVTRV119 EQU CVTRV118 00834000 CVTRV117 EQU CVTRV109 00835000 CVTRV116 EQU CVTRV109 00836000 CVTRV115 EQU CVTRV109 00837000 CVTRV114 EQU CVTRV109 00838000 CVTRV113 EQU CVTRV109 00839000 CVTRV112 EQU CVTRV109 00840000 CVTRV111 EQU CVTRV109 00841000 CVTRV110 EQU CVTRV109 00842000 CVTRV108 EQU CVTRV100 00843000 CVTRV107 EQU CVTRV100 00844000 CVTRV106 EQU CVTRV100 00845000 CVTRV105 EQU CVTRV100 00846000 CVTRV104 EQU CVTRV100 00847000 CVTRV103 EQU CVTRV100 00848000 CVTRV102 EQU CVTRV100 00849000 CVTRV101 EQU CVTRV100 00850000 CVTCSPIE EQU CVTS01+112 00851000 CVTSMFEX EQU CVTS01+108 00852000 CVTOLT0A EQU CVTS01+104 00853000 CVTSRBRT EQU CVTS01+100 00854000 CVTRSV82 EQU CVTS01+98 00855000 CVTRSV81 EQU CVTS01+96 00856000 CVTSYSWT EQU CVTS01+92 00857000 CVTRV327 EQU CVTS01+88 00858000 CVTRV326 EQU CVTS01+84 00859000 CVTRV325 EQU CVTS01+80 00860000 CVTRV324 EQU CVTS01+76 00861000 CVT0VL01 EQU CVTS01+72 00862000 CVTSHRVM EQU CVTS01+68 00863000 CVTRV332 EQU CVTS01+64 00864000 CVTTAS EQU CVTS01+60 00865000 CVTRSCN EQU CVTS01+56 00866000 CVTTRAC2 EQU CVTS01+54 00867000 CVTTRACE EQU CVTS01+52 00868000 CVTAPG EQU CVTS01+51 00869000 CVTSDTRC EQU CVTCTLFG 00870000 CVTGTRCE EQU CVTCTLFG 00871000 CVTNOMP EQU CVTCTLFG 00872000 CVTRSV79 EQU CVTCTLFG 00873000 CVTDSTAT EQU CVTCTLFG 00874000 CVTRSV78 EQU CVTCTLFG 00875000 CVTRV333 EQU CVTCTLFG 00876000 CVTRV323 EQU CVTCTLFG 00877000 CVTSPVLK EQU CVTS01+49 00878000 CVTRSV77 EQU CVTS01+48 00879000 CVTRV331 EQU CVTS01+44 00880000 CVTRV330 EQU CVTS01+40 00881000 CVTRV329 EQU CVTS01+36 00882000 CVTRV328 EQU CVTS01+32 00883000 CVTRV322 EQU CVTS01+28 00884000 CVTSLID EQU CVTSLIDA+1 00885000 CVTSYLK EQU CVTSLIDA 00886000 CVTRV321 EQU CVTS01+20 00887000 CVTRV320 EQU CVTS01+16 00888000 CVTLPDIR EQU CVTLPDIA+1 00889000 CVTRSV69 EQU CVTDIRST 00890000 CVTRSV68 EQU CVTDIRST 00891000 CVTRSV67 EQU CVTDIRST 00892000 CVTRSV66 EQU CVTDIRST 00893000 CVTRSV65 EQU CVTDIRST 00894000 CVTRSV64 EQU CVTDIRST 00895000 CVTRSV63 EQU CVTDIRST 00896000 CVTDICOM EQU CVTDIRST 00897000 CVTPVTP EQU CVTS01+8 00898000 CVTLPDSR EQU CVTS01+4 00899000 CVTRSVA2 EQU CVTS01 00900000 @NM00022 EQU FAILCCW+6 00901000 @NM00021 EQU FAILCCW+4 00902000 DATADDR EQU FAILCCW+1 00903000 EWADDISP EQU EWA+29 00904000 EWADCNT EQU EWA+28 00905000 EWACPU EQU EWA+27 00906000 @NM00018 EQU EWA+26 00907000 EWACHA EQU EWA+24 00908000 EWACSEQ EQU EWAXCSW2 00909000 EWACDIN EQU EWAXCSW2 00910000 @NM00017 EQU EWAXCSW2 00911000 EWACTEC EQU EWAXCSW2 00912000 EWACDAV EQU EWAXCSW1 00913000 EWACCHV EQU EWAXCSW1 00914000 EWACCMD EQU EWAXCSW1 00915000 EWACUNS EQU EWAXCSW1 00916000 EWACSQV EQU EWAXCSW1 00917000 @NM00016 EQU EWAXCSW1 00918000 EWACITF EQU EWAXCSW1 00919000 @NM00015 EQU EWARGFG2 00920000 EWACCUE EQU EWARGFG2 00921000 EWACSTG EQU EWARGFG2 00922000 EWACSCU EQU EWARGFG2 00923000 EWACCHA EQU EWARGFG2 00924000 EWACCPU EQU EWARGFG2 00925000 EWANORTY EQU EWARGFG1 00926000 EWACCNT EQU EWARGFG1 00927000 EWACSNS EQU EWARGFG1 00928000 @NM00014 EQU EWARGFG1 00929000 EWACHIO EQU EWARGFG1 00930000 EWACTIO EQU EWARGFG1 00931000 EWACINT EQU EWARGFG1 00932000 EWACSIO EQU EWARGFG1 00933000 EWAUCB EQU EWAERPIB+1 00934000 @NM00013 EQU EWAERPIB 00935000 EWASTUP EQU EWA+14 00936000 EWACNTR4 EQU EWACNTRS+3 00937000 EWACNTR2 EQU EWACNTRS+1 00938000 EWASSTAT EQU EWA+8 00939000 EWASCTMX EQU EWASNSCT 00940000 @NM00012 EQU EWASNSCT 00941000 @NM00011 EQU EWAFLG2 00942000 EWADIR EQU EWAFLG2 00943000 EWACOVF EQU EWAFLG2 00944000 EWAWTEMP EQU EWAFLG2 00945000 EWAMDR EQU EWAFLG2 00946000 EWABDSNS EQU EWAFLG1 00947000 EWADDMSG EQU EWAFLG1 00948000 EWASCC1 EQU EWASCC3 00949000 EWASCC2 EQU EWASCC3 00950000 @NM00010 EQU EWAFLG1 00951000 EWASLIS EQU EWAFLG1 00952000 EWAEXT EQU EWAHDR 00953000 IOSEND EQU IOSB+108 00954000 IOSSKR EQU IOSEEKA+7 00955000 IOSSKH2 EQU IOSSKHH+1 00956000 IOSSKH1 EQU IOSSKHH 00957000 IOSSKCC EQU IOSCCHH 00958000 IOSSKBB EQU IOSEEKA+1 00959000 IOSSKM EQU IOSEEKA 00960000 IOSEEK EQU IOSB+92 00961000 IOSMDM EQU IOSB+91 00962000 IOSMDB EQU IOSB+90 00963000 IOSCKEY7 EQU IOSCKEY 00964000 IOSCKEY6 EQU IOSCKEY 00965000 IOSCKEY5 EQU IOSCKEY 00966000 IOSCKEY4 EQU IOSCKEY 00967000 @NM00006 EQU IOSCKEY 00968000 IOSFMSK EQU IOSB+88 00969000 IOSCUDEV EQU IOSPATH+1 00970000 @NM00005 EQU IOSCHN 00971000 IOSPATH3 EQU IOSCHN 00972000 IOSPATH2 EQU IOSCHN 00973000 IOSEXP EQU IOSCHN 00974000 IOSGDP EQU IOSCHN 00975000 IOSAFF EQU IOSB+85 00976000 IOSRSS1B EQU IOSB+84 00977000 IOSDSID EQU IOSB+80 00978000 IOSDIE EQU IOSB+68 00979000 IOSABN EQU IOSB+64 00980000 IOSNRM EQU IOSB+60 00981000 IOSPCI EQU IOSB+56 00982000 IOSPCHN EQU IOSB+48 00983000 IOSAPMSK EQU IOSB+40 00984000 IOSRES4A EQU IOSB+36 00985000 IOSUSE EQU IOSB+32 00986000 IOSSRB EQU IOSB+28 00987000 IOSCSWRC EQU IOSCSW+5 00988000 IOSTSB EQU IOSTATUS+1 00989000 IOSTSA EQU IOSTATUS 00990000 IOSCSWCA EQU IOSCSW 00991000 IOSRSS2A EQU IOSB+15 00992000 IOSRELSE EQU IOSOPT 00993000 IOSAPR EQU IOSOPT 00994000 IOSHTP EQU IOSOPT 00995000 IOSNERP EQU IOSOPT 00996000 IOSPSLL EQU IOSOPT 00997000 IOSQISCE EQU IOSOPT 00998000 IOSDEP EQU IOSOPT 00999000 IOSBYP EQU IOSOPT 01000000 IOSPKY7 EQU IOSPKEY 01001000 IOSPGDPX EQU IOSPKEY 01002000 IOSIDR EQU IOSPKEY 01003000 IOSLCL EQU IOSPKEY 01004000 @NM00003 EQU IOSPKEY 01005000 IOSPGAD EQU IOSB+8 01006000 IOSASID EQU IOSB+6 01007000 IOSPRLVL EQU IOSB+5 01008000 IOSDVRID EQU IOSB+4 01009000 IOSPROC EQU IOSB+3 01010000 IOSFLC7 EQU IOSFLC 01011000 IOSFLC6 EQU IOSFLC 01012000 IOSGLC5 EQU IOSFLC 01013000 IOSFLC4 EQU IOSFLC 01014000 IOSFLC3 EQU IOSFLC 01015000 IOSFLC2 EQU IOSFLC 01016000 IOSVERIF EQU IOSDVALT 01017000 IOSDVMNT EQU IOSFLC 01018000 IOSLOG EQU IOSFLB 01019000 IOSBDCST EQU IOSFLB 01020000 IOSMSG EQU IOSFLB 01021000 IOSFLB4 EQU IOSFLB 01022000 IOSFLB3 EQU IOSFLB 01023000 IOSFLB2 EQU IOSFLB 01024000 IOSFLB1 EQU IOSFLB 01025000 IOSDIESE EQU IOSFLB 01026000 IOSIOSB EQU IOSFLA 01027000 IOSFLA6 EQU IOSFLA 01028000 IOSSMDB EQU IOSFLA 01029000 IOSSMDA EQU IOSFLA 01030000 CVTLEVL EQU CVTRELNO+2 01031000 CVTNUMB EQU CVTRELNO 01032000 CVTMDL EQU CVTFIX+250 01033000 @NM00002 EQU CVTFIX+248 01034000 @NM00001 EQU CVTFIX 01035000 CVTRV482 EQU CVTXTNT2+128 01036000 CVTRV481 EQU CVTXTNT2+124 01037000 CVTRV480 EQU CVTXTNT2+120 01038000 CVTRV479 EQU CVTXTNT2+118 01039000 CVTRV478 EQU CVTXTNT2+117 01040000 CVTRV477 EQU CVTXTNT2+116 01041000 CVTRV476 EQU CVTXTNT2+115 01042000 CVTRV475 EQU CVTXTNT2+114 01043000 CVTRV474 EQU CVTRV466 01044000 CVTRV473 EQU CVTRV466 01045000 CVTRV472 EQU CVTRV466 01046000 CVTRV471 EQU CVTRV466 01047000 CVTRV470 EQU CVTRV466 01048000 CVTRV469 EQU CVTRV466 01049000 CVTRV468 EQU CVTRV466 01050000 CVTRV467 EQU CVTRV466 01051000 CVTRV465 EQU CVTRV457 01052000 CVTRV464 EQU CVTRV457 01053000 CVTRV463 EQU CVTRV457 01054000 CVTRV462 EQU CVTRV457 01055000 CVTRV461 EQU CVTRV457 01056000 CVTRV460 EQU CVTRV457 01057000 CVTRV459 EQU CVTRV457 01058000 CVTRV458 EQU CVTRV457 01059000 CVTRV456 EQU CVTXTNT2+108 01060000 CVTRV455 EQU CVTXTNT2+104 01061000 CVTRV454 EQU CVTXTNT2+100 01062000 CVTRV453 EQU CVTXTNT2+96 01063000 CVTRV452 EQU CVTXTNT2+94 01064000 CVTRV451 EQU CVTXTNT2+92 01065000 CVTRV450 EQU CVTXTNT2+90 01066000 CVTRV449 EQU CVTXTNT2+88 01067000 CVTRV448 EQU CVTXTNT2+87 01068000 CVTRV447 EQU CVTXTNT2+86 01069000 CVTRV446 EQU CVTRV438 01070000 CVTRV445 EQU CVTRV438 01071000 CVTRV444 EQU CVTRV438 01072000 CVTRV443 EQU CVTRV438 01073000 CVTRV442 EQU CVTRV438 01074000 CVTRV441 EQU CVTRV438 01075000 CVTRV440 EQU CVTRV438 01076000 CVTRV439 EQU CVTRV438 01077000 CVTRV437 EQU CVTRV429 01078000 CVTRV436 EQU CVTRV429 01079000 CVTRV435 EQU CVTRV429 01080000 CVTRV434 EQU CVTRV429 01081000 CVTRV433 EQU CVTRV429 01082000 CVTRV432 EQU CVTRV429 01083000 CVTRV431 EQU CVTRV429 01084000 CVTRV430 EQU CVTRV429 01085000 CVTRV428 EQU CVTXTNT2+80 01086000 CVTRV427 EQU CVTXTNT2+76 01087000 CVTRV426 EQU CVTXTNT2+72 01088000 CVTRV425 EQU CVTXTNT2+68 01089000 CVTATACT EQU CVTATCVT 01090000 CVTRV423 EQU CVTXTNT2+62 01091000 CVTRV422 EQU CVTXTNT2+60 01092000 CVTRV421 EQU CVTXTNT2+58 01093000 CVTRV420 EQU CVTXTNT2+56 01094000 CVTRV419 EQU CVTXTNT2+55 01095000 CVTRV418 EQU CVTXTNT2+54 01096000 CVTRV417 EQU CVTRV409 01097000 CVTRV416 EQU CVTRV409 01098000 CVTRV415 EQU CVTRV409 01099000 CVTRV414 EQU CVTRV409 01100000 CVTRV413 EQU CVTRV409 01101000 CVTRV412 EQU CVTRV409 01102000 CVTRV411 EQU CVTRV409 01103000 CVTRV410 EQU CVTRV409 01104000 CVTRV408 EQU CVTRV400 01105000 CVTRV407 EQU CVTRV400 01106000 CVTRV406 EQU CVTRV400 01107000 CVTRV405 EQU CVTRV400 01108000 CVTRV404 EQU CVTRV400 01109000 CVTRV403 EQU CVTRV400 01110000 CVTRV402 EQU CVTRV400 01111000 CVTRV401 EQU CVTRV400 01112000 CVTRSVA1 EQU CVTXTNT2+48 01113000 CVTRSVA0 EQU CVTXTNT2+44 01114000 CVTRSV99 EQU CVTXTNT2+40 01115000 CVTRSV98 EQU CVTXTNT2+36 01116000 CVTRSV97 EQU CVTXTNT2+34 01117000 CVTRSV96 EQU CVTXTNT2+32 01118000 CVTOLTEP EQU CVTXTNT2+28 01119000 CVTQIDA EQU CVTQID+1 01120000 CVTRSV95 EQU CVTQID 01121000 CVTRSV94 EQU CVTXTNT2+20 01122000 CVTRSV93 EQU CVTXTNT2+16 01123000 CVTRSV92 EQU CVTXTNT2+12 01124000 CVTDEBVR EQU CVTXTNT2+8 01125000 CVTRSV91 EQU CVTXTNT2+6 01126000 CVTRSV9H EQU CVTRSV90 01127000 CVTRSV9G EQU CVTRSV90 01128000 CVTRSV9F EQU CVTRSV90 01129000 CVTRSV9E EQU CVTRSV90 01130000 CVTRSV9D EQU CVTRSV90 01131000 CVTRSV9C EQU CVTRSV90 01132000 CVTRSV9B EQU CVTRSV90 01133000 CVTRSV9A EQU CVTRSV90 01134000 CVTNUCLS EQU CVTXTNT2+4 01135000 CVTDSSVA EQU CVTDSSV+1 01136000 CVTRSV89 EQU CVTDSSV 01137000 CVTRSV88 EQU CVTXTNT1+8 01138000 CVTRSV87 EQU CVTXTNT1+4 01139000 CVTFACHN EQU CVTXTNT1 01140000 CVTRV488 EQU CVTMAP+412 01141000 CVTRV487 EQU CVTMAP+408 01142000 CVTRV486 EQU CVTMAP+404 01143000 CVTRV485 EQU CVTMAP+400 01144000 CVTRV484 EQU CVTMAP+396 01145000 CVTAUTH EQU CVTMAP+392 01146000 CVTATMCA EQU CVTATMCT+1 01147000 CVTATMST EQU CVTATMCT 01148000 CVTRSV61 EQU CVTMAP+384 01149000 CVTVOLT1 EQU CVTVOLM1+1 01150000 CVTVOLI1 EQU CVTVOLF1 01151000 CVTSTOA EQU CVTMAP+376 01152000 CVTRSV58 EQU CVTMAP+374 01153000 CVTRSV57 EQU CVTMAP+372 01154000 CVTDDCE EQU CVTMAP+368 01155000 CVTPNWFR EQU CVTMAP+364 01156000 CVTSMF EQU CVTMAP+360 01157000 CVTSULK EQU CVTMAP+358 01158000 CVTSLKO EQU CVTSYSK 01159000 CVTSLKP EQU CVTSYSK 01160000 CVTSLKQ EQU CVTSYSK 01161000 CVTSLKR EQU CVTSYSK 01162000 CVTRSV56 EQU CVTSYSK 01163000 CVTRSV55 EQU CVTSYSK 01164000 CVTRSV54 EQU CVTSYSK 01165000 CVTRSV53 EQU CVTSYSK 01166000 CVTRSV52 EQU CVTA1F1 01167000 CVTRSV51 EQU CVTA1F1 01168000 CVTRSV50 EQU CVTA1F1 01169000 CVTRSV49 EQU CVTA1F1 01170000 CVTRSV48 EQU CVTA1F1 01171000 CVTRSV47 EQU CVTA1F1 01172000 CVTSRSW EQU CVTA1F1 01173000 CVTPFSW EQU CVTA1F1 01174000 CVTPCVT EQU CVTMAP+352 01175000 CVTRSV46 EQU CVTMAP+344 01176000 CVTRSV45 EQU CVTMAP+340 01177000 CVTRSV44 EQU CVTMAP+338 01178000 CVTRSV43 EQU CVTMAP+336 01179000 CVTHJESA EQU CVTHJES+1 01180000 CVTRSV42 EQU CVTHJES 01181000 CVTEXT2A EQU CVTEXT2+1 01182000 CVTRSV41 EQU CVTEXT2 01183000 CVTAPFA EQU CVTAPF+1 01184000 CVTRSV40 EQU CVTAPF 01185000 CVTINTLA EQU CVTMAP+320 01186000 CVTERPV EQU CVTMAP+316 01187000 CVTEORM EQU CVTMAP+312 01188000 CVTMCHPR EQU CVTMAP+308 01189000 CVTTZ EQU CVTMAP+304 01190000 CVTJEPS EQU CVTMAP+300 01191000 CVTJESCT EQU CVTMAP+296 01192000 CVTMODE EQU CVTMAP+292 01193000 CVTPTRV EQU CVTMAP+288 01194000 CVTREAL EQU CVTMAP+284 01195000 CVTRSV39 EQU CVTMAP+280 01196000 CVTRSV38 EQU CVTMAP+276 01197000 CVTDMSRA EQU CVTDMSR+1 01198000 CVTRSV37 EQU CVTDMSR 01199000 CVTQMSGA EQU CVTQMSG+1 01200000 CVTRSV36 EQU CVTQMSG 01201000 CVTAMFF EQU CVTMAP+264 01202000 CVTPURGA EQU CVTPURG+1 01203000 CVTRSV35 EQU CVTPURG 01204000 CVTCBSP EQU CVTMAP+256 01205000 CVTATERA EQU CVTATER+1 01206000 CVTSYST EQU CVTATER 01207000 CVTVOLT2 EQU CVTTAT 01208000 CVTVOLI2 EQU CVTVOLF2 01209000 CVTAQAVB EQU CVTAQAVT+1 01210000 CVTRSV34 EQU CVTTCMFG 01211000 CVTRSV33 EQU CVTTCMFG 01212000 CVTRSV32 EQU CVTTCMFG 01213000 CVTRSV31 EQU CVTTCMFG 01214000 CVTRSV30 EQU CVTTCMFG 01215000 CVTRSV29 EQU CVTTCMFG 01216000 CVTRSV28 EQU CVTTCMFG 01217000 CVTTCRDY EQU CVTTCMFG 01218000 CVTGTFA EQU CVTGTF+1 01219000 CVTRSV27 EQU CVTGTFST 01220000 CVTRNIO EQU CVTGTFST 01221000 CVTRV319 EQU CVTUSR 01222000 CVTRV318 EQU CVTFORM 01223000 CVTRV317 EQU CVTTMODE 01224000 CVTRV316 EQU CVTSTATE 01225000 CVTRV315 EQU CVTGTFS 01226000 CVTGTFAV EQU CVTGTFS 01227000 CVT0SCR1 EQU CVTMAP+232 01228000 CVTTSCVB EQU CVTTSCVT+1 01229000 CVTRSV25 EQU CVTTSFLG 01230000 CVTRSV24 EQU CVTTSFLG 01231000 CVTRSV23 EQU CVTTSFLG 01232000 CVTRSV22 EQU CVTTSFLG 01233000 CVTRSV21 EQU CVTTSFLG 01234000 CVTRSV20 EQU CVTTSFLG 01235000 CVTRSV19 EQU CVTTSFLG 01236000 CVTTSRDY EQU CVTTSFLG 01237000 CVTRMS EQU CVTMAP+224 01238000 CVTPATCH EQU CVTMAP+220 01239000 CVTTSCE EQU CVTMAP+216 01240000 CVTLNKSC EQU CVTMAP+214 01241000 CVTQABST EQU CVTMAP+212 01242000 CVTMDLDS EQU CVTMAP+208 01243000 CVTUSER EQU CVTMAP+204 01244000 CVTABEND EQU CVTMAP+200 01245000 CVTSMCA EQU CVTMAP+196 01246000 CVTRSV18 EQU CVTMAP+192 01247000 CVTQLPAQ EQU CVTMAP+188 01248000 CVTQCDSR EQU CVTMAP+184 01249000 CVTRSV17 EQU CVTOPTB 01250000 CVTRSV16 EQU CVTOPTB 01251000 CVTFP EQU CVTOPTB 01252000 CVTAPTHR EQU CVTOPTB 01253000 CVTNLOG EQU CVTOPTB 01254000 CVTTOD EQU CVTOPTB 01255000 CVTCTIMS EQU CVTOPTB 01256000 CVTPROT EQU CVTOPTB 01257000 CVTXPFP EQU CVTOPTA 01258000 CVTASCII EQU CVTOPTA 01259000 CVTRSV13 EQU CVTOPTA 01260000 CVTRSV12 EQU CVTOPTA 01261000 CVTNIP EQU CVTOPTA 01262000 CVTDDR EQU CVTOPTA 01263000 CVTAPR EQU CVTOPTA 01264000 CVTCCH EQU CVTOPTA 01265000 CVTSNCTR EQU CVTMAP+180 01266000 CVTQMWR EQU CVTMAP+176 01267000 CVTQOCR EQU CVTMAP+172 01268000 CVT1EF00 EQU CVTMAP+168 01269000 CVTMZ00 EQU CVTMAP+164 01270000 CVTHEAD EQU CVTMAP+160 01271000 CVTRSV11 EQU CVTMAP+156 01272000 CVT0PT01 EQU CVTMAP+152 01273000 CVTMSER EQU CVTMAP+148 01274000 CVTIERLC EQU CVTMAP+144 01275000 CVTILCH EQU CVTMAP+140 01276000 CVT0DS EQU CVTMAP+136 01277000 CVTFBOSV EQU CVTMAP+132 01278000 CVTNUCB EQU CVTMAP+128 01279000 CVTIXAVL EQU CVTMAP+124 01280000 CVTIOQET EQU CVTMAP+120 01281000 CVTDCBA EQU CVTMAP+117 01282000 CVTMVS2 EQU CVTDCB 01283000 CVT6DAT EQU CVTDCB 01284000 CVT4MPS EQU CVTDCB 01285000 CVTRSV09 EQU CVTDCB 01286000 CVT4MS1 EQU CVTDCB 01287000 CVT2SPS EQU CVTDCB 01288000 CVT1SSS EQU CVTDCB 01289000 CVTRSV08 EQU CVTDCB 01290000 CVTSTB EQU CVTMAP+112 01291000 CVTQTD00 EQU CVTMAP+108 01292000 CVTQTE00 EQU CVTMAP+104 01293000 CVTCUCB EQU CVTMAP+100 01294000 CVTSJQ EQU CVTMAP+96 01295000 CVTPBLDL EQU CVTMAP+92 01296000 CVTTPC EQU CVTMAP+88 01297000 CVTSVDCB EQU CVTMAP+84 01298000 CVTBRET EQU CVTMAP+82 01299000 CVTEXIT EQU CVTMAP+80 01300000 CVT0FN00 EQU CVTMAP+76 01301000 CVTDARA EQU CVTDAR+1 01302000 CVTRSV07 EQU CVTFLGS1 01303000 CVTRSV06 EQU CVTFLGS1 01304000 CVTRSV05 EQU CVTFLGS1 01305000 CVTRSV04 EQU CVTFLGS1 01306000 CVTRSV03 EQU CVTFLGS1 01307000 CVTRSV02 EQU CVTFLGS1 01308000 CVTRSV01 EQU CVTFLGS1 01309000 CVTDMPLK EQU CVTFLGS1 01310000 CVTXITP EQU CVTMAP+68 01311000 CVTZDTAB EQU CVTMAP+64 01312000 CVTMSLT EQU CVTMAP+60 01313000 CVTDATE EQU CVTMAP+56 01314000 CVTBTERM EQU CVTMAP+52 01315000 CVTSYSAD EQU CVTMAP+48 01316000 CVTILK2 EQU CVTMAP+40 01317000 CVTILK1 EQU CVTMAP+36 01318000 CVTPRLTV EQU CVTMAP+32 01319000 CVTPCNVT EQU CVTMAP+28 01320000 CVT0VL00 EQU CVTMAP+24 01321000 CVTXAPG EQU CVTMAP+20 01322000 CVTBUF EQU CVTMAP+16 01323000 CVTJOB EQU CVTMAP+12 01324000 CVTLINK EQU CVTMAP+8 01325000 CVT0EF00 EQU CVTMAP+4 01326000 CVTTCBP EQU CVTMAP 01327000 CVT EQU CVTMAP 01328000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01329000 @RC00123 EQU @RC00114 01330000 @RC00119 EQU @RC00114 01331000 @RC00131 EQU @RC00130 01332000 @RC00120 EQU @RC00119 01333000 @ENDDATA EQU * 01334000 END ER3886A,(C'PL/S-II',0502,73309) 01335000