TITLE 'IECVDERP - DIRECT ACCESS ERROR RECOVERY PROCEEDURES *00001000 ' 00002000 IECVDERP CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 USING IECVDERP,BASERG,BASEREG2 @ZA15984 00005000 LR BASERG,@15 SET UP BASE REG 00006000 LR @06,@14 SAVE R14 FOR RETURN @ZA15984 00007000 STM @02,@06,0(@13) SAVE REGS @ZA15984 00008000 L BASEREG2,NEWBASE SET UP SECOND BASE @ZA15984 00009000 B FIRST @ZA15056 00010000 NEWBASE DC A(IECVDERP+4096) @ZA15056 00011000 *FIRST: 0160 00012000 * EWARG=IOSERP; /* INIT EWA BASE */ 00013000 FIRST L EWARG,IOSERP(,IOSBRG) 0160 00014000 * IOSERR='1'B; /* INDICATE ERP IN CTL */ 00015000 * IOSEX='1'B; /* INDICATE EXCEP COND */ 00016000 OI IOSERR(IOSBRG),B'00100100' 0162 00017000 * IF IOSBYP='1'B /* BYPASS IOS SEEK @ZA17978*/ 00018000 * THEN /* YES @ZA17978*/ 00019000 TM IOSBYP(IOSBRG),B'10000000' 0163 00020000 BNO @RF00163 0163 00021000 * IF ERPRDLOG='0'B&ERPRECAL='0'B/* ERP PGM @ZA17978*/ 00022000 * THEN 0164 00023000 TM ERPRDLOG+6(EWAPTR),B'11000000' 0164 00024000 BZ @RT00164 0164 00025000 * GOTO CCNOT0; /* NO, DONT RESTORE REAL @ZA17978*/ 00026000 * ELSE 0166 00027000 * ; /* YES, TEST CC @ZA15059*/ 00028000 @RF00164 DS 0H 0167 00029000 * ELSE 0167 00030000 * ; /* NO, TEST CC @ZA15059*/ 00031000 * 0167 00032000 @RF00163 DS 0H 0168 00033000 * /*****************************************************************/ 00034000 * /* */ 00035000 * /* RESTORE THE ORIGINAL START ADDRESS INTO THE IOSRST FIELD UNDER*/ 00036000 * /* THE FOLLOWING CONDITIONS.......... 1.CC=0-NOT VIRTUAL DEV */ 00037000 * /* 2.CC=0-VIRTUALDEV-NO UNIT CHECK 3.CC=0-VIRTUAL DEV-UNIT */ 00038000 * /* CHECK-NO ENV DATA @ZA15998*/ 00039000 * /* */ 00040000 * /*****************************************************************/ 00041000 * 0168 00042000 * IF ECC1OR3='0'B THEN /* TEST FOR SIO=0 @ZA15695*/ 00043000 TM ECC1OR3+20(IOSBRG),B'00010000' 0168 00044000 BNZ @RF00168 0168 00045000 * DO; 0169 00046000 * IF UCBRVDEV='1'B THEN /* VIRTUAL DEV @ZA15998*/ 00047000 TM UCBRVDEV(UCBRG),B'00001000' 0170 00048000 BNO @RF00170 0170 00049000 * IF IUNITCK='1'B THEN /* UNIT CHECK @ZA15998*/ 00050000 TM IUNITCK+24(IOSBRG),B'00000010' 0171 00051000 BNO @RF00171 0171 00052000 * IF EWDEDAT='1'B THEN /* ENV DATA @ZA15998*/ 00053000 TM EWDEDAT(EWAPTR),B'00010000' 0172 00054000 BO @RT00172 0172 00055000 * GO TO CCNOT0; /* @ZA15998*/ 00056000 * ELSE 0174 00057000 * ; /* @ZA15998*/ 00058000 * ELSE 0175 00059000 * ; /* @ZA15998*/ 00060000 @RF00171 DS 0H 0176 00061000 * ELSE 0176 00062000 * ; /* @ZA15998*/ 00063000 * 0176 00064000 @RF00170 DS 0H 0177 00065000 * /*************************************************************/ 00066000 * /* */ 00067000 * /* SUBROUTINE TO RESTORE IOSRST @ZA04222*/ 00068000 * /* */ 00069000 * /*************************************************************/ 00070000 * 0177 00071000 * RFY 0177 00072000 * (WKRG1) RSTD; /* @ZA04222*/ 00073000 * WKRG1=IOSVST; /* VIRT START ADDR @ZA04222*/ 00074000 L WKRG1,IOSVST(,IOSBRG) 0178 00075000 * GEN; 0179 00076000 * /* @ZA04222 */ 00077000 LRA WKRG1,0(WKRG1) CONVERT TO REAL @ZA04222 00078000 * IOSRST=WKRG1; /* RESTORE REAL START ADDR 0180 00079000 * @ZA04222*/ 00080000 ST WKRG1,IOSRST(,IOSBRG) 0180 00081000 * RFY 0181 00082000 * (WKRG1) UNRSTD; /* @ZA04222*/ 00083000 * END; /* @ZA15998*/ 00084000 *CCNOT0: /* @ZA17978*/ 00085000 * IF ERPREV='0'B /* FIRST ENTRY? */ 00086000 * THEN 0183 00087000 @RF00168 DS 0H 0183 00088000 CCNOT0 TM ERPREV+6(EWAPTR),B'00000010' 0183 00089000 BNZ @RF00183 0183 00090000 * DO; /* YES, */ 00091000 * EWDSAVKY=IOSCKEY; /* SAVE CP PROT KEY */ 00092000 MVC EWDSAVKY(1,EWAPTR),IOSCKEY(IOSBRG) 0185 00093000 * EWDSAVOP=IOSOPT; /* SAVE USER'S OPTS BYTE */ 00094000 MVC EWDSAVOP(1,EWAPTR),IOSOPT(IOSBRG) 0186 00095000 * IOSLOG='0'B; /* INITIAL NO LOGOUT */ 00096000 * IOSMSG='0'B; /* INITIAL NO MESSAGE */ 00097000 NI IOSLOG(IOSBRG),B'11111010' 0188 00098000 * END; 0189 00099000 * ELSE 0190 00100000 * ; /* NO */ 00101000 @RF00183 DS 0H 0191 00102000 * IF IUNITCK='0'B /* UNIT CHECK? */ 00103000 * THEN 0191 00104000 TM IUNITCK+24(IOSBRG),B'00000010' 0191 00105000 BNZ @RF00191 0191 00106000 * DO; /* NO, CLEAR SNS */ 00107000 * IOSSNS=IOSSNS&&IOSSNS; 0193 00108000 XC IOSSNS(2,IOSBRG),IOSSNS(IOSBRG) 0193 00109000 * GOTO INTCK; /* GO CHECK FOR INTERCEPT */ 00110000 B INTCK 0194 00111000 * END; 0195 00112000 * ELSE 0196 00113000 * ; /* YES */ 00114000 @RF00191 DS 0H 0197 00115000 * IF EWABDSNS='1'B /* SENSE FAIL? */ 00116000 * THEN 0197 00117000 TM EWABDSNS(EWAPTR),B'00000001' 0197 00118000 BO @RT00197 0197 00119000 * GOTO SNSERR; /* YES, TREAT AS SEEK CK */ 00120000 * ELSE 0199 00121000 * ; /* NO */ 00122000 * IF UCBTBYT4='08'X /* 2314? */ 00123000 * THEN 0200 00124000 CLI UCBTBYT4(UCBRG),X'08' 0200 00125000 BE @RT00200 0200 00126000 * GOTO STATCK; /* YES, CHK RHA STATUS */ 00127000 * ELSE 0202 00128000 * ; /* NO */ 00129000 * IF EWDEDAT='1'B /* LOG FULL? */ 00130000 * THEN 0203 00131000 TM EWDEDAT(EWAPTR),B'00010000' 0203 00132000 BNO @RF00203 0203 00133000 * DO; /* YES, LOG & RTY */ 00134000 * GEN; 0205 00135000 * /* 00136000 BAL @14,LOGSAVE SAVE LOG INFO 00137000 * GOTO RETRY; /* RETRY ORIG REQ */ 00138000 B RETRY 0206 00139000 * END; 0207 00140000 * ELSE 0208 00141000 * ; /* NO */ 00142000 @RF00203 DS 0H 0209 00143000 * IF UCBTBYT4='0A'X|UCBRVDEV='1'B /* 3340 OR MSS? @ZA05468*/ 00144000 * THEN 0209 00145000 CLI UCBTBYT4(UCBRG),X'0A' 0209 00146000 BE @RT00209 0209 00147000 TM UCBRVDEV(UCBRG),B'00001000' 0209 00148000 BO @RT00209 0209 00149000 * GOTO INTCK; /* YES, SKIP ZLOG CHK */ 00150000 * ELSE 0211 00151000 * ; /* NO */ 00152000 * IF EWDZLOG='0'B /* ZEUS LOG FULL? */ 00153000 * THEN 0212 00154000 TM EWDZLOG(EWAPTR),B'10000000' 0212 00155000 BZ @RT00212 0212 00156000 * GOTO INTCK; /* NO */ 00157000 * ELSE 0214 00158000 * ; /* YES */ 00159000 * ERPRDLOG='1'B; /* SET RD LOG IND */ 00160000 OI ERPRDLOG+6(EWAPTR),B'10000000' 0215 00161000 * GEN; 0216 00162000 * /* 00163000 BAL @14,LOGSAVE SAVE LOG INFO 00164000 * IOSBYP='1'B; /* IND NO SEEK/SFM */ 00165000 OI IOSBYP(IOSBRG),B'10000000' 0217 00166000 * IOSCKEY=0; /* SET KEY TO X'00' @ZA13517*/ 00167000 MVI IOSCKEY(IOSBRG),X'00' 0218 00168000 * RFY 0219 00169000 * (WKRG1, 0219 00170000 * CCWRG1, 0219 00171000 * WKRG2) RSTD; 0219 00172000 * CCWRG1=ADDR(DACP7); /* READ LOG */ 00173000 LA CCWRG1,DACP7 0220 00174000 * GEN; 0221 00175000 * /* 00176000 BAL @14,CPBLD BLD CHAN PGM 00177000 * WKRG2=ADDR(MDRZLOG); /* RD LOG ADDR @VS30022*/ 00178000 L WKRG2,EWADDISP-1(,EWAPTR) 0222 00179000 LA WKRG2,0(,WKRG2) 0222 00180000 LA WKRG2,MDRZLOG(,WKRG2) 0222 00181000 * GEN; 0223 00182000 LRA WKRG2,0(WKRG2) REAL ADDRESS @VS30022 00183000 * WKRG1->CCWDATA=WKRG2; /* INSERT DATE ADDR @VS30022*/ 00184000 STCM WKRG2,7,CCWDATA(WKRG1) 0224 00185000 * GOTO RESTART; /* GO START ERP CP */ 00186000 B RESTART 0225 00187000 * RFY 0226 00188000 * (WKRG1, 0226 00189000 * CCWRG1, 0226 00190000 * WKRG2) UNRSTD; 0226 00191000 * 0226 00192000 * /*****************************************************************/ 00193000 * /* */ 00194000 * /* CHECK SNS STATUS TO VERIFY SUCCESSFUL RHA/RR0 IGNORE */ 00195000 * /* UNSUCCESSFUL RHA/RR0 FOR INTERVENTION REQUIRED */ 00196000 * /* */ 00197000 * /*****************************************************************/ 00198000 * 0227 00199000 *STATCK: 0227 00200000 * IF EUNITCK='1'B /* UNIT CHECK? */ 00201000 * THEN 0227 00202000 STATCK TM EUNITCK+8(EWAPTR),B'00000010' 0227 00203000 BNO @RF00227 0227 00204000 * IF EWDINT='1'B /* YES, IS INT REQUIRED ALSO */ 00205000 * THEN 0228 00206000 TM EWDINT(EWAPTR),B'01000000' 0228 00207000 BO @RT00228 0228 00208000 * GOTO SETBADHA; /* YES, IGNORE */ 00209000 * ELSE 0230 00210000 * GOTO SNSRTY; /* NO, RETRY SENSE */ 00211000 B SNSRTY 0230 00212000 * ELSE 0231 00213000 * ; /* NO, CHK FOR OTHER BAD STATUS */ 00214000 @RF00227 DS 0H 0232 00215000 * IF EPCI='1'B|EINCLGTH='1'B|EPGMCK='1'B|EPROTCK='1'B|ECDATACK='1'B| 00216000 * EINTCCK='1'B|ECHCK='1'B THEN 0232 00217000 TM EPCI+8(EWAPTR),B'11111011' 0232 00218000 BZ @RF00232 0232 00219000 * ; /* UNSUCCESSFUL, RETRY */ 00220000 * ELSE 0234 00221000 * GOTO INTCK; /* SUCCESSFUL, SKIP RETRY */ 00222000 *SNSRTY: 0235 00223000 * IF EWACNTR3=EWACNT01 /* RETRY CNT MAX? @ZA05546*/ 00224000 * THEN 0235 00225000 SNSRTY CLI EWACNTR3(EWAPTR),1 0235 00226000 BE @RT00235 0235 00227000 * GOTO SETBADHA; /* YES,PROCEED WITHOUT HA 0236 00228000 * @ZA05546*/ 00229000 * ELSE 0237 00230000 * ; /* NO,RETRY @ZA05546*/ 00231000 * 0237 00232000 * /*****************************************************************/ 00233000 * /* */ 00234000 * /* A RHA/RR0 FAILURE HAS OCCURRED, OVERLAY IOSB STATUS WITH SENSE*/ 00235000 * /* STATUS FROM ERWA */ 00236000 * /* */ 00237000 * /*****************************************************************/ 00238000 * 0238 00239000 *STATSAV: /* @ZA05546*/ 00240000 * IOSTATUS=EWASSTAT; /* @ZA05546*/ 00241000 STATSAV MVC IOSTATUS(2,IOSBRG),EWASSTAT(EWAPTR) 0238 00242000 * EWACNTR3=EWACNTR3+EWACNT01; /* INCREMENT CNTR @ZA05546*/ 00243000 LA @12,1 0239 00244000 SLR @11,@11 0239 00245000 IC @11,EWACNTR3(,EWAPTR) 0239 00246000 ALR @12,@11 0239 00247000 STC @12,EWACNTR3(,EWAPTR) 0239 00248000 * GOTO RETRY; /* RETRY @ZA05546*/ 00249000 B RETRY 0240 00250000 *SETBADHA: 0241 00251000 * ERPBADHA='1'B; /* IND NO HA */ 00252000 SETBADHA OI ERPBADHA+6(EWAPTR),B'00001000' 0241 00253000 * EWDCCHH=IOSCCHH; /* SAVE SEEK ADDR FOR MSG */ 00254000 * 0242 00255000 MVC EWDCCHH(4,EWAPTR),IOSCCHH(IOSBRG) 0242 00256000 * /*****************************************************************/ 00257000 * /* */ 00258000 * /* FOR INTERCEPT CONDITIONS, LOG THE ERROR, RESET IOSCOD TO */ 00259000 * /* NORMAL, AND RESTART USER CH PGM */ 00260000 * /* */ 00261000 * /*****************************************************************/ 00262000 * 0243 00263000 *INTCK: 0243 00264000 * IF IOSCOD=IOSFINTC /* INTERCEPT? */ 00265000 * THEN 0243 00266000 INTCK CLI IOSCOD(IOSBRG),X'7E' 0243 00267000 BNE @RF00243 0243 00268000 * DO; /* YES, */ 00269000 * IOSCOD=IOSNRMC; /* RESET CODE TO NORMAL */ 00270000 MVI IOSCOD(IOSBRG),X'7F' 0245 00271000 * GEN; 0246 00272000 * /* 00273000 BAL @14,LOGSAVE SAVE LOG INFO 00274000 * GOTO RETRY; /* RESTART USER CP */ 00275000 B RETRY 0247 00276000 * END; 0248 00277000 * ELSE 0249 00278000 * ; /* NO */ 00279000 @RF00243 DS 0H 0250 00280000 * CCWRG=IOSCSWCA-CCWLNGTH; /* POINT TO ERR CCW */ 00281000 * 0250 00282000 L CCWRG,IOSCSWCA-1(,IOSBRG) 0250 00283000 LA CCWRG,0(,CCWRG) 0250 00284000 SL CCWRG,@CF00073 0250 00285000 * /*****************************************************************/ 00286000 * /* */ 00287000 * /* SET UP TO CALL RESIDENT ERROR INTERPRETER */ 00288000 * /* */ 00289000 * /*****************************************************************/ 00290000 * 0251 00291000 * CALLRG=CVTXITP; /* ADDR OF ERR INTERP */ 00292000 L @12,CVTPTR 0251 00293000 L CALLRG,CVTXITP(,@12) 0251 00294000 * GEN; 0252 00295000 * 0252 00296000 BALR @14,CALLRG GOT TO ERR INTERP 00297000 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00298000 * ERROR INTERPRETER VECTOR TABLE 00299000 * 00300000 DC X'1D',AL1(CCC-*+1) CHAN CTRL CHK 00301000 * 00302000 DC X'1E',AL1(ICC-*+1) INTERFACE CTRL CHK 00303000 * 00304000 DC X'1C',AL1(CDC-*+1) CHAN DATA CHK 00305000 * 00306000 DC X'1F',AL1(CCHN-*+1) CHAINING CHK 00307000 * 00308000 DC X'05',AL1(OVRN-*+1) OVERRUN @ZA25317 00309000 * 00310000 DC X'08',AL1(PERM-*+1) PERM ERR 00311000 * 00312000 DC X'03',AL1(EQUP-*+1) EQUIP CHK 00313000 * 00314000 DC X'00',AL1(CREJ-*+1) COMMAND REJECT 00315000 * 00316000 DC X'02',AL1(BUSO-*+1) BUSOUT 00317000 * 00318000 DC X'01',AL1(INT-*+1) INT REQ'D 00319000 * 00320000 DC X'07',AL1(SEEK-*+1) SEEK CHK 00321000 * 00322000 DC X'0E',AL1(MAM-*+1) MISS ADDR MARK 00323000 * 00324000 DC X'09',AL1(TVRN-*+1) TRK OVRN / INVALID TRK FMT 00325000 * 00326000 DC X'0C',AL1(NRF-*+1) NO RECORD FOUND 00327000 * 00328000 DC X'06',AL1(TCC-*+1) TRK COND CHK 00329000 * 00330000 DC X'04',AL1(DCHK-*+1) DATA CHK 00331000 * 00332000 DC X'0A',AL1(EOC-*+1) END OF CYLINDER 00333000 * 00334000 DC X'0D',AL1(FPRT-*+1) FILE PROT 00335000 * 00336000 DC X'0F',AL1(OFLO-*+1) OP INCOMPLETE 00337000 * 00338000 DC X'1A',AL1(CPCK-*+1) CHAN PGM CHK 00339000 * 00340000 DC X'1B',AL1(CPRT-*+1) CHAN PROT CHK 00341000 * 00342000 DC X'17',AL1(UNEX-*+1) UNIT EXCEPTION 00343000 * 00344000 DC X'19',AL1(LGTH-*+1) INCORRECT LENGTH 00345000 * 00346000 DC X'16',AL1(UCHK-*+1) UNIT CHK - NO SNS 00347000 * 00348000 DC X'2F',AL1(ENDI-*+1) END OF TEST 00349000 * 00350000 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00351000 * 00352000 * BRANCH TABLE FOR RETURN VECTORS FROM ERR INTERP 00353000 * 00354000 CCC DS 0H CHAN CTRL CHK 00355000 ICC DS 0H INTERFACE CTRL CHK 00356000 B ERCHAN 00357000 * 00358000 CDC DS 0H CHAN DATA CHK 00359000 CCHN DS 0H CHAINING CHK 00360000 B RTY10D RETRY 10, NO LOG @ZA00137 00361000 EQUP B SAFCHK CHECK FOR MSS 'SAF' @G24LSFS 00362000 BUSO DS 0H BUSOUT 00363000 MAM DS 0H MISS ADDR MK 00364000 UCHK DS 0H UNIT CHECK - NO SNS 00365000 B RTY10 RETRY 10 00366000 * 00367000 TVRN DS 0H TRK OVERRUN 00368000 CPCK DS 0H CH PGM CHK 00369000 CPRT DS 0H CH PROT CHK 00370000 B ERHARD HARD ERRS 00371000 * 00372000 PERM B PERMCK PERM ERR 00373000 * 00374000 SEEK B ERSEK SEEK CHK 00375000 * 00376000 INT B ERINT INT REQ'D 00377000 * 00378000 CREJ B ERMSG CMD REJECT 00379000 * 00380000 OVRN B RTY10A OVERRUN 00381000 * 00382000 NRF B NRFCK NO RECORD OUUND 00383000 * 00384000 TCC B ERTCC TRK COND CHK 00385000 * 00386000 DCHK B ERDATA DATA CHK 00387000 * 00388000 EOC B EREOC END OF CYLINDER 00389000 * 00390000 FPRT B ERFP FILE PROTECT 00391000 * 00392000 OFLO B EROFLO OP INCOMPLETE 00393000 * 00394000 UNEX B EREOF UNIT EXECPTION 00395000 * 00396000 LGTH B ERLEN INCORRECT LENGTH 00397000 * 00398000 ENDI B ERNOER NO ABNORMAL STATUS OR SENSE 00399000 * 00400000 * /*****************************************************************/ 00401000 * /* */ 00402000 * /* IF EQUIPMENT CHECK ON VIRTUAL 3330, CHECK FOR STAGING ADAPTER */ 00403000 * /* FAILURE (SAF).IF SO SET FOR WTO MSG,LOG AND RETRY */ 00404000 * /* */ 00405000 * /*****************************************************************/ 00406000 * 0253 00407000 *SAFCHK: 0253 00408000 * IF UCBRVDEV='1'B /* VIRTUAL 3330 @G24LSFS*/ 00409000 * &MSSERMSG='25'X THEN /* SAF CONDITION @G24LSFS*/ 00410000 SAFCHK TM UCBRVDEV(UCBRG),B'00001000' 0253 00411000 BNO @RF00253 0253 00412000 CLI MSSERMSG+32(EWAPTR),X'25' 0253 00413000 BNE @RF00253 0253 00414000 * DO; /* WTO MSG AND LOG BITS @G24LSFS*/ 00415000 * GEN; 0255 00416000 * /* 00417000 BAL @14,LOGSAVE SAVE LOG INFO @G24LSFS 00418000 * IOSMSG='1'B; /* IND. I/O ERROR MSG @G24LSFS*/ 00419000 OI IOSMSG(IOSBRG),B'00000100' 0256 00420000 * EWAFLG3=0; /* CLR ERP FLAGS @G24LSFS*/ 00421000 MVI EWAFLG3(EWAPTR),X'00' 0257 00422000 * ERPREV='1'B; /* IND. PREVIOUS ENTRY @G24LSFS*/ 00423000 OI ERPREV+6(EWAPTR),B'00000010' 0258 00424000 * EWADDMSG='1'B; /* INDICATE CCHH AVAIL. @G24LSFS*/ 00425000 OI EWADDMSG(EWAPTR),B'00000010' 0259 00426000 * GOTO XCTLWTO; /* GO TO WTO EXIT @G24LSFS*/ 00427000 B XCTLWTO 0260 00428000 * END; /* END SETUP FOR WTO,LOG @G24LSFS*/ 00429000 * ELSE 0262 00430000 * GOTO RTY10; /* REAL EQUIPMENT CHECK @G24LSFS*/ 00431000 * 0262 00432000 * /*****************************************************************/ 00433000 * /* */ 00434000 * /* RETRY 10, LOG AFTER FINAL RETRY (HARDLOG) */ 00435000 * /* */ 00436000 * /*****************************************************************/ 00437000 * 0263 00438000 *RTY10B: 0263 00439000 * IF EWACNTR1TICBITS='1000'B THEN 0493 01305000 @RT00486 TM TICBITS(CCWRG1),B'00001000' 0493 01306000 BNO @RF00493 0493 01307000 TM TICBITS(CCWRG1),B'00000111' 0493 01308000 BNZ @RF00493 0493 01309000 * DO; /* YES */ 01310000 * WKRG3=CCWRG1->CCWDATA; /* FETCH TIC ARG */ 01311000 L WKRG3,CCWDATA-1(,CCWRG1) 0495 01312000 LA WKRG3,0(,WKRG3) 0495 01313000 * IF WKRG3=CCWRG /* IS IT *-8? */ 01314000 * THEN 0496 01315000 CR WKRG3,CCWRG 0496 01316000 BNE @RF00496 0496 01317000 * DO; /* YES PT AT NXT AND - */ 01318000 * WKRG1=WKRG1+CCWLNGTH; /* INCR TIC BLD ADDR */ 01319000 LA @12,8 0498 01320000 ALR WKRG1,@12 0498 01321000 * CCWRG1=CCWRG1+CCWLNGTH; /* PT AT NXT */ 01322000 ALR CCWRG1,@12 0499 01323000 * END; 0500 01324000 * ELSE 0501 01325000 * ; /* NO */ 01326000 @RF00496 DS 0H 0502 01327000 * END; 0502 01328000 * ELSE 0503 01329000 * ; /* NO */ 01330000 @RF00493 DS 0H 0504 01331000 * GEN; 0504 01332000 * /* 01333000 BAL @14,TICBLD BLD TIC TO USER 01334000 * RFY 0505 01335000 * (CCWRG1, 0505 01336000 * WKRG1) UNRSTD; 0505 01337000 *CMDSET: 0506 01338000 * DOFLOCCW=DACCW; /* COPY USER CCW, THEN MOD */ 01339000 CMDSET LA @12,104 0506 01340000 ALR @12,EWAPTR 0506 01341000 MVC DOFLOCCW(8,@12),DACCW(CCWRG) 0506 01342000 * OFLOOP=EWDSNS3; /* ASSUME EXTSNS DEV */ 01343000 MVC OFLOOP(1,@12),EWDSNS3(EWAPTR) 0507 01344000 * IF UCBENVRD='0'B /* EXTSNS DEV? */ 01345000 * THEN 0508 01346000 TM UCBENVRD(UCBRG),B'00001000' 0508 01347000 BNZ @RF00508 0508 01348000 * OFLOOP=EWDSNS5; /* NO, SET FROM BYTE 5 */ 01349000 MVC OFLOOP(1,@12),EWDSNS5(EWAPTR) 0509 01350000 * ELSE 0510 01351000 * ; /* YES, ALREADY SET */ 01352000 @RF00508 DS 0H 0511 01353000 * OFLOPCI='0'B; /* CLEAR PCI BIT */ 01354000 * 0511 01355000 NI OFLOPCI+104(EWAPTR),B'11110111' 0511 01356000 * /*****************************************************************/ 01357000 * /* */ 01358000 * /* IF ERROR CCW IS USING INDIRECT DATA ADDRESSING, OBTAIN CORE */ 01359000 * /* FOR ERP IDAL AND COPY ERRCCW IDAL. */ 01360000 * /* */ 01361000 * /*****************************************************************/ 01362000 * 0512 01363000 *IDALCK: 0512 01364000 * IF IDABIT='1'B /* INDIRECT ADDRESSING? */ 01365000 * THEN 0512 01366000 IDALCK TM IDABIT(CCWRG),B'00000100' 0512 01367000 BNO @RF00512 0512 01368000 * DO; /* YES */ 01369000 * RFY 0514 01370000 * (WKRG1, 0514 01371000 * WKRG3, 0514 01372000 * CALLRG) RSTD; 0514 01373000 * GEN; 0515 01374000 * /* 01375000 BAL @14,GETBLOK GET A 160 BYTE BLOCK OF CORE 01376000 * WKRG1=CCWDATA; /* POINT AT USER IDAL */ 01377000 L WKRG1,CCWDATA-1(,CCWRG) 0516 01378000 LA WKRG1,0(,WKRG1) 0516 01379000 * GEN; 0517 01380000 LRA WKRG3,0(WKRG3) REAL ADDR OF ERP IDAL 01381000 STNSM MASKBYTE,X'FB' DAT OFF 01382000 * ERPIDAL=USERIDAL; /* COPY USER IDAL */ 01383000 MVC ERPIDAL+4(156,WKRG3),USERIDAL(WKRG1) 0518 01384000 * GEN; 0519 01385000 STOSM MASKBYTE,X'04' DAT ON 01386000 * OFLOARG=WKRG3+WORDSIZE; /* PLACE IN CCW */ 01387000 LA @14,4 0520 01388000 ALR @14,WKRG3 0520 01389000 STCM @14,7,OFLOARG+104(EWAPTR) 0520 01390000 * END; 0521 01391000 * ELSE 0522 01392000 * ; /* NO, SKIP IDAL PROCESS */ 01393000 @RF00512 DS 0H 0523 01394000 *OFLOCALC: 0523 01395000 * FDISP=CCWCNT-IOSCSWRC; /* CALC OFLO DISP */ 01396000 OFLOCALC LH @14,CCWCNT(,CCWRG) 0523 01397000 N @14,@CF00055 0523 01398000 LH @12,IOSCSWRC(,IOSBRG) 0523 01399000 N @12,@CF00055 0523 01400000 SLR @14,@12 0523 01401000 STH @14,FDISP+152(,EWAPTR) 0523 01402000 * WKRG1=ADDR(DOFLOCCW); /* POINT AT ERP OFLO CCW */ 01403000 LA WKRG1,104 0524 01404000 ALR WKRG1,EWAPTR 0524 01405000 * IF IDABIT='1'B /* INDIRECT ADDRESSING? */ 01406000 * THEN 0525 01407000 TM IDABIT(CCWRG),B'00000100' 0525 01408000 BNO @RF00525 0525 01409000 * DO; /* YES, LOCATE IDAW & DISP */ 01410000 * GEN; 0527 01411000 BAL @14,ADRCALC CALC IDAW ADDR & DISP 01412000 * OFLOARG=WKRG1; /* POINT TO IDAW */ 01413000 STCM WKRG1,7,OFLOARG+104(EWAPTR) 0528 01414000 * CALLRG=ADDR(IEAPTRV); /* REAL/VIRT XLATE RTN */ 01415000 L CALLRG,@CV00033 0529 01416000 * GEN; 0530 01417000 LR @12,@01 SAVE IOSB REG ACROSS XLATE 01418000 LR @01,WKRG1 REAL ADDR 01419000 BALR @14,@15 GOTO XLATE RTN 01420000 LR WKRG1,@01 VIRTUAL ADDR 01421000 LR @01,@12 RESTORE IOSB REG 01422000 L BASEREG2,NEWBASE RESTORE SECOND BASE REG @ZA15984 01423000 * END; 0531 01424000 * ELSE 0532 01425000 * ; /* NO */ 01426000 * 0532 01427000 @RF00525 DS 0H 0533 01428000 * /*****************************************************************/ 01429000 * /* */ 01430000 * /* UPDATE ADDR POINTED TO BY WKRG1 BY FDISP. WKRG1 MAY POINT TO */ 01431000 * /* EITHER A CCW OR AN IDAW. */ 01432000 * /* */ 01433000 * /*****************************************************************/ 01434000 * 0533 01435000 * WKRG1->CCWDATA=WKRG1->CCWDATA+FDISP; 0533 01436000 L @14,CCWDATA-1(,WKRG1) 0533 01437000 LA @14,0(,@14) 0533 01438000 LH @12,FDISP+152(,EWAPTR) 0533 01439000 N @12,@CF00055 0533 01440000 ALR @14,@12 0533 01441000 STCM @14,7,CCWDATA(WKRG1) 0533 01442000 * IF SCHOPA='1'B&SCHOPB='1'B /* SEARCH OP? @ZA17964- */ 01443000 * THEN 0534 01444000 TM SCHOPA(CCWRG),B'00100001' 0534 01445000 BO @RT00534 0534 01446000 * GOTO SCHOP; /* YES, SET CNT SKIP SILI 0535 01447000 * @ZA17964- */ 01448000 * ELSE 0536 01449000 * ; /* @ZA17964- */ 01450000 * IF IOSCSWRC=0 /* RESID CNT =0? */ 01451000 * THEN 0537 01452000 LH @14,IOSCSWRC(,IOSBRG) 0537 01453000 N @14,@CF00055 0537 01454000 LTR @14,@14 0537 01455000 BNZ @RF00537 0537 01456000 * DO; /* YES, FORCE CNT=1, SKIP, SILI */ 01457000 *SCHOP: /* CCW IS A SEARCH TYPE OP 0539 01458000 * @ZA17964- */ 01459000 * OFLOCNT=1; /* CNT = 1 */ 01460000 SCHOP LA @14,104 0539 01461000 ALR @14,EWAPTR 0539 01462000 MVC OFLOCNT(2,@14),@CH00081 0539 01463000 * OFLOSKIP='1'B; /* SKIP = 1 */ 01464000 * OFLOSLI='1'B; /* SILI = 1 @ZA07730*/ 01465000 OI OFLOSKIP(@14),B'00110000' 0541 01466000 * END; 0542 01467000 * ELSE 0543 01468000 * OFLOCNT=IOSCSWRC; /* NO, USE RESID AS CNT */ 01469000 B @RC00537 0543 01470000 @RF00537 LH @14,IOSCSWRC(,IOSBRG) 0543 01471000 N @14,@CF00055 0543 01472000 STH @14,OFLOCNT+104(,EWAPTR) 0543 01473000 * IF UCBRPS='1'B /* RPS DEV? */ 01474000 * THEN 0544 01475000 @RC00537 TM UCBRPS(UCBRG),B'00010000' 0544 01476000 BNO @RF00544 0544 01477000 * WKRG1=ADDR(EWDCCW1); /* YES */ 01478000 LA WKRG1,EWDCCW1(,EWAPTR) 0545 01479000 * ELSE 0546 01480000 * WKRG1=ADDR(EWDCCW2); /* NO */ 01481000 B @RC00544 0546 01482000 @RF00544 LA WKRG1,EWDCCW2(,EWAPTR) 0546 01483000 * GEN; 0547 01484000 @RC00544 DS 0H 0547 01485000 LRA WKRG1,0(WKRG1) REAL ADDR 01486000 * IOSRST=WKRG1; /* POINT AT CP */ 01487000 ST WKRG1,IOSRST(,IOSBRG) 0548 01488000 * GEN; 0549 01489000 * /* @ZA07730 01490000 CLI EWDCCW5(EWAPTR),X'08' TIC CMD? @ZA07730 01491000 BNE RESTART NO, RESTART @ZA07730 01492000 L CALLRG,@CV00033 GET XLATE RTN @ZA07730 01493000 LR @12,@01 SAVE IOB PTR @ZA07730 01494000 L @01,EWDCCW5(EWAPTR) GET CCW ADDRS @ZA07730 01495000 LA @01,0(@01) CLEAR HI BYTE @ZA07730 01496000 BALR @14,@15 REAL/VIRTUAL RTN @ZA07730 01497000 L BASEREG2,NEWBASE RESTORE BASE REG2 @ZA15984 01498000 CLI 0(@01),X'9A' MT RHA? @ZA07730 01499000 BNE RHATST NO, TEST RHA @ZA07730 01500000 NI 0(@01),X'7F' TURN OFF MT @ZA07730 01501000 RHAYES MVC EWDCCW2(8,EWAPTR),EWDCCW5(EWAPTR) BYPASS SEARCH @ZA07730 01502000 RHANO LR @01,@12 RESTORE IOB @ZA07730 01503000 B RESTART GO START CH PGM @ZA07730 01504000 RHATST CLI 0(@01),X'1A' RHA? @ZA07730 01505000 BNE RHANO NO @ZA07730 01506000 B RHAYES YES @ZA07730 01507000 * RFY 0550 01508000 * (WKRG1, 0550 01509000 * CALLRG) UNRSTD; 0550 01510000 * 0550 01511000 * /*****************************************************************/ 01512000 * /* */ 01513000 * /* DATA CHECK */ 01514000 * /* */ 01515000 * /*****************************************************************/ 01516000 * 0551 01517000 *ERDATA: 0551 01518000 * ; 0551 01519000 ERDATA DS 0H 0552 01520000 * GEN; 0552 01521000 * /* 01522000 BAL @14,MERCK MERLIN FAMILY? 01523000 BNE WINCK1 NO, BRANCH 01524000 * IF EWDCORR='1'B /* CORRECTABLE? */ 01525000 * THEN 0553 01526000 TM EWDCORR(EWAPTR),B'01000000' 0553 01527000 BNO @RF00553 0553 01528000 * DO; /* YES, TEST FOR LOGGING @ZA09637*/ 01529000 * 0554 01530000 * /*************************************************************/ 01531000 * /* */ 01532000 * /* LOG CORRECTABLE DATA CHECKS FOR 3350 AND EMULATED 3330 */ 01533000 * /* (MOD 1 & 11) DEVICES. @ZA09637*/ 01534000 * /* */ 01535000 * /*************************************************************/ 01536000 * 0555 01537000 * IF UCBTBYT4='0B'X|EEMU='1'B /* 3350 OR EMULATION? @ZA09637*/ 01538000 * THEN 0555 01539000 CLI UCBTBYT4(UCBRG),X'0B' 0555 01540000 BE @RT00555 0555 01541000 TM EEMU+34(EWAPTR),B'00001000' 0555 01542000 BNO @RF00555 0555 01543000 @RT00555 DS 0H 0556 01544000 * DO; /* YES, SAVE LOG DATA @ZA09637*/ 01545000 * GEN; 0557 01546000 * /* 01547000 BAL @14,LOGSAVE SAVE LOG INFO 01548000 * END; /* @ZA09637*/ 01549000 * ELSE 0559 01550000 * ; /* NOT 3350 OR EMULATION @ZA09637*/ 01551000 @RF00555 DS 0H 0560 01552000 * GOTO ECCENTRY; /* GO TO ECC ROUTINE @ZA09637*/ 01553000 B ECCENTRY 0560 01554000 * END; /* @ZA09637*/ 01555000 * ELSE 0562 01556000 * ; /* NO */ 01557000 @RF00553 DS 0H 0563 01558000 * IF EWDOFLO='0'B /* OVERFLOW? */ 01559000 * THEN 0563 01560000 TM EWDOFLO(EWAPTR),B'00000001' 0563 01561000 BZ @RT00563 0563 01562000 * GOTO RTY10; /* NO, LOG THEN RETRY @ZA26139*/ 01563000 * ELSE 0565 01564000 * ; /* YES, SET TO USE ECC */ 01565000 * 0565 01566000 * /*****************************************************************/ 01567000 * /* */ 01568000 * /* CCW SEARCH CODE */ 01569000 * /* */ 01570000 * /*****************************************************************/ 01571000 * 0566 01572000 * RFY 0566 01573000 * (WKRG3) RSTD; 0566 01574000 * GEN; 0567 01575000 * /* 01576000 BAL @14,LOGSAVE SAVE LOG INFO 01577000 * WKRG3=0; /* LOOP CNT = 0 */ 01578000 SLR WKRG3,WKRG3 0568 01579000 * RSTRTDSP=RSTDISP; /* MOVE TO SAVE AREA */ 01580000 MVC RSTRTDSP+152(3,EWAPTR),RSTDISP+32(EWAPTR) 0569 01581000 * GOTO CHAINCK; /* GOTO CCW SCH CODE */ 01582000 B CHAINCK 0570 01583000 * RFY 0571 01584000 * (WKRG3) UNRSTD; 0571 01585000 * 0571 01586000 * /*****************************************************************/ 01587000 * /* */ 01588000 * /* ALL DATA CHECKS LOGGED FOR 3340 DEVICES. */ 01589000 * /* */ 01590000 * /*****************************************************************/ 01591000 * 0572 01592000 *WINCK1: 0572 01593000 * IF UCBTBYT4='0A'X|UCBTBYT4='08'X/* 3340 OR 2314? */ 01594000 * THEN 0572 01595000 WINCK1 CLI UCBTBYT4(UCBRG),X'0A' 0572 01596000 BE @RT00572 0572 01597000 CLI UCBTBYT4(UCBRG),X'08' 0572 01598000 BNE @RF00572 0572 01599000 @RT00572 DS 0H 0573 01600000 * DO; /* YES, LOG */ 01601000 * GEN; 0574 01602000 * /* 01603000 BAL @14,LOGSAVE SAVE LOG INFO 01604000 * END; 0575 01605000 * ELSE 0576 01606000 * ; /* NO, SKIP LOG */ 01607000 @RF00572 DS 0H 0577 01608000 * IF EWDCORR='0'B /* CORRECTABLE? */ 01609000 * THEN 0577 01610000 TM EWDCORR(EWAPTR),B'01000000' 0577 01611000 BZ @RT00577 0577 01612000 * GOTO RTY10C; /* NO, RETRY */ 01613000 * ELSE 0579 01614000 * ; /* YES, PERFORM ECF */ 01615000 *MERWCK1: 0580 01616000 * ; /* TEST FOR 3330 FAMILY */ 01617000 MERWCK1 DS 0H 0581 01618000 * GEN; 0581 01619000 * /* 01620000 BAL @14,MERWCK MERLIN FMLY OR 3340? 01621000 BNE ZEUSDISP NO, SET FOR ZEUS 01622000 *ECCENTRY: /* 3350/EMULATION ENTRY @ZA09637*/ 01623000 * RSTRTDSP=RSTDISP; /* SAVE RSTRT DISP */ 01624000 ECCENTRY LA @12,152 0582 01625000 ALR @12,EWAPTR 0582 01626000 LA @11,32 0582 01627000 ALR @11,EWAPTR 0582 01628000 SLR @05,@05 0582 01629000 ICM @05,7,RSTDISP(@11) 0582 01630000 STCM @05,7,RSTRTDSP(@12) 0582 01631000 * FDISP=RSTDISP-BKDISP; /* CALC FWD DISP */ 01632000 LH @11,BKDISP(,@11) 0583 01633000 N @11,@CF00055 0583 01634000 SLR @05,@11 0583 01635000 STH @05,FDISP(,@12) 0583 01636000 * GOTO LOOPSET; /* SKIP ZEUS CODE */ 01637000 B LOOPSET 0584 01638000 *ZEUSDISP: 0585 01639000 * FDISP=CCWCNT-BKDISP-IOSCSWRC; /* CALC FWD DISP */ 01640000 ZEUSDISP LH @12,CCWCNT(,CCWRG) 0585 01641000 N @12,@CF00055 0585 01642000 LH @11,BKDISP+32(,EWAPTR) 0585 01643000 N @11,@CF00055 0585 01644000 SLR @12,@11 0585 01645000 LH @11,IOSCSWRC(,IOSBRG) 0585 01646000 N @11,@CF00055 0585 01647000 SLR @12,@11 0585 01648000 STH @12,FDISP+152(,EWAPTR) 0585 01649000 * IF FDISP<0 /* NEG DISP? */ 01650000 * THEN 0586 01651000 * GOTO RTY10C; /* YES, RETRY CH PGM */ 01652000 * ELSE 0588 01653000 * ; /* NO, CONTINUE */ 01654000 * 0588 01655000 @RF00586 DS 0H 0589 01656000 * /*****************************************************************/ 01657000 * /* */ 01658000 * /* SET UP LOOP TO APPLY ECC BYTE TO CORE */ 01659000 * /* */ 01660000 * /*****************************************************************/ 01661000 * 0589 01662000 * RFY 0589 01663000 * (WKRG1, 0589 01664000 * WKRG2, 0589 01665000 * WKRG3, 0589 01666000 * CALLRG, 0589 01667000 * CCWRG1) RSTD; 0589 01668000 *LOOPSET: 0590 01669000 * WKRG3=3; /* SET LOOP CNT */ 01670000 LOOPSET LA WKRG3,3 0590 01671000 * WKRG2=ADDR(ECCSYN); /* POINT AT CORR BYTE */ 01672000 LA WKRG2,ECCSYN+32(,EWAPTR) 0591 01673000 *ECFLOOP1: 0592 01674000 * IF FDISPCCWDATA=WKRG1->CCWDATA+FDISP;/* ADD FORWARD DISPLACEMENT 02131000 * @ZA19708*/ 02132000 L @12,CCWDATA-1(,WKRG1) 0735 02133000 LA @12,0(,@12) 0735 02134000 LH @11,FDISP+152(,EWAPTR) 0735 02135000 N @11,@CF00055 0735 02136000 ALR @12,@11 0735 02137000 STCM @12,7,CCWDATA(WKRG1) 0735 02138000 * IF IOSCSWRC=0 /* RESIDUAL COUNT = 0? @ZA19708*/ 02139000 * THEN 0736 02140000 LH @12,IOSCSWRC(,IOSBRG) 0736 02141000 N @12,@CF00055 0736 02142000 LTR @12,@12 0736 02143000 BNZ @RF00736 0736 02144000 * DO; /* YES, FORCE CNT = 1 @ZA19708*/ 02145000 * FTRCNT=1; /* @ZA19708*/ 02146000 LA @12,104 0738 02147000 ALR @12,EWAPTR 0738 02148000 MVC FTRCNT(2,@12),@CH00081 0738 02149000 * FTRSKP='1'B; /* @ZA19708*/ 02150000 OI FTRSKP(@12),B'00010000' 0739 02151000 * END; /* @ZA19708*/ 02152000 * ELSE /* RESIDUAL COUNT NOT 0 @ZA19708*/ 02153000 * FTRCNT=IOSCSWRC; /* USID RESID CNT AS IS @ZA19708*/ 02154000 B @RC00736 0741 02155000 @RF00736 LH @12,IOSCSWRC(,IOSBRG) 0741 02156000 N @12,@CF00055 0741 02157000 STH @12,FTRCNT+104(,EWAPTR) 0741 02158000 * GOTO RESTART; /* RESTART DATA XFER @ZM41657*/ 02159000 B RESTART 0742 02160000 * RFY 0743 02161000 * (WKRG1, 0743 02162000 * CCWRG1) UNRSTD; 0743 02163000 *NOFTR: /* @ZM41657*/ 02164000 * IF CCHNBIT='0'B /* CMD CHAINING? */ 02165000 * THEN 0744 02166000 NOFTR TM CCHNBIT(CCWRG),B'01000000' 0744 02167000 BNZ @RF00744 0744 02168000 * DO; /* NO, SET CMPLET CD & XIT */ 02169000 * IOSTSA='0C'X; /* SET CE, DE IN CSW */ 02170000 MVI IOSTSA(IOSBRG),X'0C' 0746 02171000 * GOTO CSWINCR; /* SET FOR EXIT */ 02172000 B CSWINCR 0747 02173000 * END; 0748 02174000 * ELSE 0749 02175000 * ; /* YES, SET UP RESTART */ 02176000 @RF00744 DS 0H 0750 02177000 * CCWRG=CCWRG+CCWLNGTH; /* POINT AT NXT CCW */ 02178000 AL CCWRG,@CF00073 0750 02179000 * IF TICBITS^='1000'B /* IS IT A TIC? */ 02180000 * THEN 0751 02181000 TM TICBITS(CCWRG),B'00001000' 0751 02182000 BNO @RT00751 0751 02183000 TM TICBITS(CCWRG),B'00000111' 0751 02184000 BNZ @RT00751 0751 02185000 * ; /* NO, SKIP ARG LOAD */ 02186000 * ELSE 0753 02187000 * DO; /* YES, PICK UP ITS ARG */ 02188000 * CCWRG=CCWDATA; /* PICK UP ARG */ 02189000 L @12,CCWDATA-1(,CCWRG) 0754 02190000 LA @12,0(,@12) 0754 02191000 LR CCWRG,@12 0754 02192000 * CALLRG=ADDR(IEAPTRV); /* REAL/VIRT XLATE RTN */ 02193000 L CALLRG,@CV00033 0755 02194000 * GEN; 0756 02195000 LR @12,@01 SAVE IOSB REG ACROSS XLATE 02196000 LR @01,CCWRG REAL ADDR 02197000 BALR @14,@15 GOTO XLATE RTN 02198000 LR CCWRG,@01 VIRTUAL ADDR 02199000 LR @01,@12 RESTORE IOSB REG 02200000 L BASEREG2,NEWBASE RESTORE BASE REG 2 @ZA15984 02201000 * END; 0757 02202000 * RFY 0758 02203000 * (WKRG1, 0758 02204000 * CCWRG1) RSTD; 0758 02205000 @RT00751 DS 0H 0759 02206000 * CCWRG1=ADDR(DACP5); /* PT AT PROTOTYPE CH PGM */ 02207000 LA CCWRG1,DACP5 0759 02208000 * EWDCCW6(1:5)=EWDASNS(9:13); /* SAVE CCHHR IN EWD @ZA10564*/ 02209000 MVC EWDCCW6(5,EWAPTR),EWDASNS+8(EWAPTR) 0760 02210000 * GEN; 0761 02211000 * /* 02212000 BAL @14,CPBLD BLD CHAN PGM 02213000 * IF MTOP='1'B THEN /* TEST IF USER DOING MT @ZA15056*/ 02214000 TM MTOP(CCWRG),B'10000000' 0762 02215000 BNO @RF00762 0762 02216000 * GEN; 0763 02217000 OI 0(WKRG1),X'80' OR ON MT BIT @ZA15056 02218000 * ELSE 0764 02219000 * ; 0764 02220000 * 0764 02221000 @RF00762 DS 0H 0765 02222000 * /*****************************************************************/ 02223000 * /* */ 02224000 * /* TEST FOR COUNT, RD SECTOR, NO-OP @ZA14702*/ 02225000 * /* @ZA14703*/ 02226000 * /* AND SEEK OPS @ZA27345*/ 02227000 * /* */ 02228000 * /*****************************************************************/ 02229000 * 0765 02230000 * IF CNTOP='1'B|SCHOPA='1'B|SEEKOP='11'B/* @ZA27345*/ 02231000 * THEN 0765 02232000 TM CNTOP(CCWRG),B'00110000' 0765 02233000 BNZ @RT00765 0765 02234000 TM SEEKOP(CCWRG),B'00000011' 0765 02235000 BNO @RF00765 0765 02236000 @RT00765 DS 0H 0766 02237000 * WKRG1=WKRG1-CCWLNGTH; /* YES, BK UP OVER RD CNT */ 02238000 SL WKRG1,@CF00073 0766 02239000 * ELSE 0767 02240000 * ; /* NO, LEAVE RD CNT IN CP */ 02241000 @RF00765 DS 0H 0768 02242000 * CCWRG1=CCWRG; /* CCW PTR */ 02243000 LR CCWRG1,CCWRG 0768 02244000 * GEN; 0769 02245000 * /* 02246000 BAL @14,TICBLD BLD TIC TO USER 02247000 * GOTO RESTART; /* GO START CP */ 02248000 B RESTART 0770 02249000 * RFY 0771 02250000 * (CCWRG1, 0771 02251000 * WKRG1) UNRSTD; 0771 02252000 * 0771 02253000 * /*****************************************************************/ 02254000 * /* */ 02255000 * /* CHANNEL PROGRAM BUILD SUBROUTINE INPUT - CCWRG1 POINTS TO A */ 02256000 * /* PROTOTYPE CCW STRING OUTPUT - CCW STRING BEGINNING AT DACCW1 +*/ 02257000 * /* THE POSITION OFFSET SPECIFIED IN THE FIRST CCW. THE LENGTH OF */ 02258000 * /* THE STRING IS DETER- MINED BY THE LENGTH OF THE INPUT STRING. */ 02259000 * /* WKRG1 POINTS TO THE LAST CCW BUILT. CCWRG1 IS LOADED FROM */ 02260000 * /* CCWRG */ 02261000 * /* */ 02262000 * /*****************************************************************/ 02263000 * 0772 02264000 * RFY 0772 02265000 * (WKRG1, 0772 02266000 * WKRG2, 0772 02267000 * WKRG3, 0772 02268000 * CCWRG1) RSTD; 0772 02269000 *CPBLD: 0773 02270000 * IF IOSBYP='1'B /* BYPASS IOS SEEK @ZA15059*/ 02271000 * THEN /* YES */ 02272000 CPBLD TM IOSBYP(IOSBRG),B'10000000' 0773 02273000 BNO @RF00773 0773 02274000 * IF ERPRDLOG='0'B&ERPRECAL='0'B/* ERP RECAL OR RDLOG */ 02275000 * THEN 0774 02276000 TM ERPRDLOG+6(EWAPTR),B'11000000' 0774 02277000 BZ @RT00774 0774 02278000 * GOTO RESTART; /* NO, DONT BUILD ERP PGM 0775 02279000 * @ZA15059*/ 02280000 * ELSE 0776 02281000 * ; /* YES, BUILD ERP PGM @ZA15059*/ 02282000 @RF00774 DS 0H 0777 02283000 * ELSE 0777 02284000 * ; 0777 02285000 @RF00773 DS 0H 0778 02286000 * ERPCP='1'B; /* IND ERP CH PGM */ 02287000 OI ERPCP+6(EWAPTR),B'00010000' 0778 02288000 * EWDSAVS=IOSSNS; /* SAVE SNS & - */ 02289000 MVC EWDSAVS(2,EWAPTR),IOSSNS(IOSBRG) 0779 02290000 * EWDSAVC=IOSCSW; /* CSW */ 02291000 MVC EWDSAVC(7,EWAPTR),IOSCSW(IOSBRG) 0780 02292000 * WKRG1=ADDR(EWDCCW1)+CCWRG1->CPBLDPOS;/* FIRST CCW */ 02293000 LA WKRG1,EWDCCW1(,EWAPTR) 0781 02294000 SLR @12,@12 0781 02295000 IC @12,CPBLDPOS(,CCWRG1) 0781 02296000 ALR WKRG1,@12 0781 02297000 * GEN; 0782 02298000 LRA WKRG3,0(WKRG1) REAL ADDRESS 02299000 * IOSRST=WKRG3; /* POINT TO CH PGM START */ 02300000 ST WKRG3,IOSRST(,IOSBRG) 0783 02301000 *EXREGLD: 0784 02302000 * WKRG3=CCWRG1->CPBLDFLG; /* PICK UP RELOCATE REG */ 02303000 EXREGLD SLR WKRG3,WKRG3 0784 02304000 IC WKRG3,CPBLDFLG(,CCWRG1) 0784 02305000 * GEN; 0785 02306000 EX WKRG3,LDREG LOAD BASE REG 02307000 LRA WKRG2,0(WKRG2) REAL ADDRESS 02308000 * WKRG1->COPARG= /* SET OP AND CALC DATA- */ 02309000 * CCWRG1->COPARG+WKRG2; /* ADDR */ 02310000 LR @12,WKRG2 0786 02311000 AL @12,COPARG(,CCWRG1) 0786 02312000 ST @12,COPARG(,WKRG1) 0786 02313000 * WKRG1->CFLGLEN= /* SET FLGS AND LENGTH - */ 02314000 * CCWRG1->CFLGLEN; /* FROM PROTOTYPE */ 02315000 L @12,CFLGLEN(,CCWRG1) 0787 02316000 ST @12,CFLGLEN(,WKRG1) 0787 02317000 * WKRG1->CPBLDPOS=0; /* CLEAR HIGH LENGTH BYTE */ 02318000 MVI CPBLDPOS(WKRG1),X'00' 0788 02319000 * IF WKRG3<16 /* END FLAG? */ 02320000 * THEN 0789 02321000 C WKRG3,@CF00052 0789 02322000 BNL @RF00789 0789 02323000 * DO; /* NO, CONTINUE */ 02324000 * CCWRG1=CCWRG1+CCWLNGTH; /* INCR FROM & - */ 02325000 LA @12,8 0791 02326000 ALR CCWRG1,@12 0791 02327000 * WKRG1=WKRG1+CCWLNGTH; /* TO REGS */ 02328000 ALR WKRG1,@12 0792 02329000 * GOTO EXREGLD; /* NEXT CCW */ 02330000 B EXREGLD 0793 02331000 * END; 0794 02332000 * ELSE 0795 02333000 * ; /* YES, EXIT */ 02334000 @RF00789 DS 0H 0796 02335000 * CCWRG1=CCWRG; /* LOAD REG FOR TICBLD */ 02336000 LR CCWRG1,CCWRG 0796 02337000 * GEN; 0797 02338000 BR @14 RETURN TO CALLER 02339000 * 02340000 LDREG LR WKRG2,0 LOAD RELOCATE REG 02341000 * RFY 0798 02342000 * (WKRG2, 0798 02343000 * WKRG3) UNRSTD; 0798 02344000 * 0798 02345000 * /*****************************************************************/ 02346000 * /* */ 02347000 * /* END OF CYLINDER - UPDATE SEEK ADDR CYL & BLD CP TO RESTART */ 02348000 * /* USER CHAIN */ 02349000 * /* */ 02350000 * /*****************************************************************/ 02351000 * 0799 02352000 *EREOC: 0799 02353000 * IOSSKH2='7F'X; /* FORCE HD HIGH */ 02354000 EREOC MVI IOSSKH2(IOSBRG),X'7F' 0799 02355000 *UPDATSKA: 0800 02356000 * ; 0800 02357000 UPDATSKA DS 0H 0801 02358000 * GEN; 0801 02359000 BAL @14,SKUPDAT UPDATE SEEK ADDR 02360000 * IF EWDOFLO='1'B /* OVERFLOW? */ 02361000 * THEN 0802 02362000 TM EWDOFLO(EWAPTR),B'00000001' 0802 02363000 BO @RT00802 0802 02364000 * GOTO EROFLOA; /* YES, TOO OFLO CODE */ 02365000 * ELSE 0804 02366000 * ; /* NO */ 02367000 * RFY 0805 02368000 * (CCWRG1) RSTD; 0805 02369000 *OFLOCK2: 0806 02370000 * IF UCBENVRD='1'B /* EXP SENSE DEV? */ 02371000 * THEN 0806 02372000 OFLOCK2 TM UCBENVRD(UCBRG),B'00001000' 0806 02373000 BNO @RF00806 0806 02374000 * DO; /* YES, */ 02375000 * CCWRG1=ADDR(DACP1); /* POINT AT CP */ 02376000 LA CCWRG1,DACP1 0808 02377000 * GOTO BLDCP2; /* GO BLD CP */ 02378000 B BLDCP2 0809 02379000 * END; 0810 02380000 * ELSE 0811 02381000 * ; /* NO */ 02382000 @RF00806 DS 0H 0812 02383000 * IF ERPCYLSW='1'B /* CYL SWITCH FLG? */ 02384000 * THEN 0812 02385000 TM ERPCYLSW+6(EWAPTR),B'00000001' 0812 02386000 BNO @RF00812 0812 02387000 * CCWRG1=ADDR(DACP9); /* SHA-TIC-RHA-TIC */ 02388000 LA CCWRG1,DACP9 0813 02389000 * ELSE 0814 02390000 * CCWRG1=ADDR(DACP2); /* RHA-TIC */ 02391000 B @RC00812 0814 02392000 @RF00812 LA CCWRG1,DACP2 0814 02393000 *BLDCP2: 0815 02394000 * ; /* BUILD CCW2 */ 02395000 @RC00812 DS 0H 0815 02396000 BLDCP2 DS 0H 0816 02397000 * GEN; 0816 02398000 * /* 02399000 BAL @14,CPBLD BLD CHAN PGM 02400000 * CCWRG1=CCWRG; /* CCW PTR FOR TICBLD */ 02401000 LR CCWRG1,CCWRG 0817 02402000 * GEN; 0818 02403000 * /* 02404000 BAL @14,TICBLD BLD TIC TO USER 02405000 * GOTO RESTART; /* START CP */ 02406000 B RESTART 0819 02407000 * RFY 0820 02408000 * (CCWRG1) UNRSTD; 0820 02409000 * 0820 02410000 * /*****************************************************************/ 02411000 * /* */ 02412000 * /* FILE PROTECT - UPDATE SEEK ADDR & BLD CP TO RESTART USER */ 02413000 * /* CHAIN. */ 02414000 * /* */ 02415000 * /*****************************************************************/ 02416000 * 0821 02417000 *ERFP: 0821 02418000 * IF CCWOP='07'X /* FULL SEEK? */ 02419000 * THEN 0821 02420000 ERFP CLI CCWOP(CCWRG),X'07' 0821 02421000 BE @RT00821 0821 02422000 * GOTO ERHARD; /* YES, PERM ERR */ 02423000 * ELSE 0823 02424000 * ; /* NO */ 02425000 * IF CCWOP='0B'X /* CYL SEEK? */ 02426000 * THEN 0824 02427000 CLI CCWOP(CCWRG),X'0B' 0824 02428000 BNE @RF00824 0824 02429000 * ERPCYLSW='1'B; /* YES, IND CYL MVMNT */ 02430000 OI ERPCYLSW+6(EWAPTR),B'00000001' 0825 02431000 * ELSE 0826 02432000 * IF CCWOP='1B'X /* NO, CHK FOR HD SEEK */ 02433000 * THEN 0826 02434000 B @RC00824 0826 02435000 @RF00824 CLI CCWOP(CCWRG),X'1B' 0826 02436000 BNE @RF00826 0826 02437000 * ; /* YES, FALL THRU */ 02438000 * ELSE 0828 02439000 * GOTO UPDATSKA; /* NO, UPDATE SKA */ 02440000 * RFY 0829 02441000 * (CCWRG1) RSTD; 0829 02442000 @RC00824 DS 0H 0830 02443000 * CCWRG1=CCWDATA; /* POINT TO USER SEEK ARG */ 02444000 L CCWRG1,CCWDATA-1(,CCWRG) 0830 02445000 LA CCWRG1,0(,CCWRG1) 0830 02446000 * GEN REFS(MASKBYTE); 0831 02447000 LRA WKRG1,0(IOSBRG) REAL ADDRESS 02448000 STNSM MASKBYTE,X'FB' DOWN WITH DAT 02449000 * WKRG1->IOSCCHH=DASKARG; /* MOVE TO SEEK FIELD */ 02450000 MVC IOSCCHH(4,WKRG1),DASKARG+2(CCWRG1) 0832 02451000 * GEN REFS(MASKBYTE); 0833 02452000 STOSM MASKBYTE,X'04' DAT ON 02453000 BAL @14,XTNTCK CHECK EXTENTS 02454000 * RFY 0834 02455000 * (CCWRG1) UNRSTD; 0834 02456000 * CCWRG=CCWRG+CCWLNGTH; /* PT BEYOND SK CYL/HD CCW */ 02457000 AL CCWRG,@CF00073 0835 02458000 * GOTO OFLOCK2; /* CHECK FOR OVERFLOW @ZA08316*/ 02459000 * 0836 02460000 B OFLOCK2 0836 02461000 * /*****************************************************************/ 02462000 * /* */ 02463000 * /* UNIT EXCEPTION - IF DURING ERP RHA, IGNORE. IF NOT FIRST */ 02464000 * /* ENTRY, EXIT TO CE APP. OTHERWISE, PERM ERR. */ 02465000 * /* */ 02466000 * /*****************************************************************/ 02467000 * 0837 02468000 *EREOF: 0837 02469000 * IF ERPRHA='1'B /* ERP RHA? */ 02470000 * THEN 0837 02471000 EREOF TM ERPRHA+6(EWAPTR),B'00100000' 0837 02472000 BO @RT00837 0837 02473000 * GOTO ERNOER; /* YES, IGNORE */ 02474000 * ELSE 0839 02475000 * ; 0839 02476000 * 0839 02477000 * /*****************************************************************/ 02478000 * /* */ 02479000 * /* INCORRECT LENGTH - IF NOT FIRST ENTRY, EXIT TO CE APP. */ 02480000 * /* OTHERWISE, PERM ERR. */ 02481000 * /* */ 02482000 * /*****************************************************************/ 02483000 * 0840 02484000 *ERLEN: 0840 02485000 * IF ERPREV='1'B /* PREVIOUS ENTRY? */ 02486000 * THEN 0840 02487000 ERLEN TM ERPREV+6(EWAPTR),B'00000010' 0840 02488000 BO @RT00840 0840 02489000 * GOTO ERSOFT; /* YES, EXIT TO CE APP */ 02490000 * ELSE 0842 02491000 * GOTO ERHARD; /* NO, PERM ERR */ 02492000 * 0842 02493000 B ERHARD 0842 02494000 * /*****************************************************************/ 02495000 * /* */ 02496000 * /* DEVICE TYPE CHECKING SUBROUTINE - TWO ENTRY PTS MERCK - CHECK */ 02497000 * /* FOR MERLIN FAMILY DEVICES. MERWCK - CHECK FOR MERLIN FAMILY OR*/ 02498000 * /* 3340 DEVICES */ 02499000 * /* */ 02500000 * /*****************************************************************/ 02501000 * 0843 02502000 *MERWCK: 0843 02503000 * IF UCBTBYT4='0A'X /* 3340? */ 02504000 * THEN 0843 02505000 MERWCK CLI UCBTBYT4(UCBRG),X'0A' 0843 02506000 BE @RT00843 0843 02507000 * GOTO CKEXIT; /* YES, EXIT */ 02508000 * ELSE 0845 02509000 * ; 0845 02510000 *MERCK: 0846 02511000 * IF UCBTBYT4='09'X /* 3330? */ 02512000 * THEN 0846 02513000 MERCK CLI UCBTBYT4(UCBRG),X'09' 0846 02514000 BE @RT00846 0846 02515000 * GOTO CKEXIT; /* YES, EXIT */ 02516000 * ELSE 0848 02517000 * ; 0848 02518000 * IF UCBTBYT4='0D'X /* 3330C? */ 02519000 * THEN 0849 02520000 CLI UCBTBYT4(UCBRG),X'0D' 0849 02521000 BE @RT00849 0849 02522000 * GOTO CKEXIT; /* YES - EXIT */ 02523000 * ELSE 0851 02524000 * ; 0851 02525000 * IF UCBTBYT4='0B'X /* 3350 ? @Z30RSAG*/ 02526000 * THEN 0852 02527000 CLI UCBTBYT4(UCBRG),X'0B' 0852 02528000 BE @RT00852 0852 02529000 * GOTO CKEXIT; /* YES - EXIT @Z30RSAG*/ 02530000 * ELSE 0854 02531000 * ; 0854 02532000 *CKEXIT: 0855 02533000 * ; 0855 02534000 CKEXIT DS 0H 0856 02535000 * GEN; 0856 02536000 * 0856 02537000 BR @14 RETURN TO CALLER 02538000 * /*****************************************************************/ 02539000 * /* */ 02540000 * /* INDIRECT ADDRESS WORD LOCATION SUBROUTINE - INPUT - WKRG1 = */ 02541000 * /* CCW ADDR FDISP = FWD DISP INTO IDAL OUTPUT - WKRG1 = IDAW ADDR*/ 02542000 * /* (REAL) FDISP = FWD DISP INTO IDAW */ 02543000 * /* */ 02544000 * /*****************************************************************/ 02545000 * 0857 02546000 * RFY 0857 02547000 * (WKRG1, 0857 02548000 * WKRG3, 0857 02549000 * CCWRG1, 0857 02550000 * CALLRG, 0857 02551000 * RTRNRG, 0857 02552000 * WKRG2) RSTD; 0857 02553000 *ADRCALC: 0858 02554000 * WKRG1=WKRG1->CCWDATA; /* POINT AT IDAW */ 02555000 ADRCALC L @12,CCWDATA-1(,WKRG1) 0858 02556000 LA @12,0(,@12) 0858 02557000 LR WKRG1,@12 0858 02558000 * GEN REFS(IDAWLEN); 0859 02559000 SR @12,@12 CLEAR 02560000 STNSM MASKBYTE,X'FB' DAT OFF 02561000 ICM @12,3,IDAWLEN(WKRG1) IDAW LENGTH 02562000 STOSM MASKBYTE,X'04' DAT ON 02563000 LA CALLRG,2047 MASK 02564000 NR @12,CALLRG CLEAR ALL BUT LGTH BITS 02565000 LA CALLRG,2048 MAX LENGTH 02566000 SR CALLRG,@12 EFECTIVE LENGTH OF IDAW 02567000 * ECNT=CALLRG; 0860 02568000 LA @12,152 0860 02569000 ALR @12,EWAPTR 0860 02570000 STH CALLRG,ECNT(,@12) 0860 02571000 * CALLRG=FDISP; /* SAVE ORIGINAL FDISP @ZA03158*/ 02572000 LH CALLRG,FDISP(,@12) 0861 02573000 N CALLRG,@CF00055 0861 02574000 *DISPCK: 0862 02575000 * IF FDISPTICBITS='1000'B /* USER CCW A TIC? */ 02633000 * THEN /* YES USE TIC ARG */ 02634000 TM TICBITS(CCWRG1),B'00001000' 0874 02635000 BNO @RF00874 0874 02636000 TM TICBITS(CCWRG1),B'00000111' 0874 02637000 BNZ @RF00874 0874 02638000 * WKRG3=CCWRG1->CCWDATA; 0875 02639000 L WKRG3,CCWDATA-1(,CCWRG1) 0875 02640000 LA WKRG3,0(,WKRG3) 0875 02641000 * ELSE 0876 02642000 * DO; /* NO */ 02643000 B @RC00874 0876 02644000 @RF00874 DS 0H 0877 02645000 * GEN; 0877 02646000 LRA WKRG3,0(CCWRG1) REAL ADDRESS 02647000 * END; 0878 02648000 * WKRG1->COPARG=WKRG3; /* SET TIC TO ADDR */ 02649000 @RC00874 ST WKRG3,COPARG(,WKRG1) 0879 02650000 * WKRG1->CCWOP='08'X; /* SET TIC OP CODE */ 02651000 MVI CCWOP(WKRG1),X'08' 0880 02652000 * GEN; 0881 02653000 * /* 02654000 BR @14 RETURN TO CALLER 02655000 * RFY 0882 02656000 * (CCWRG1, 0882 02657000 * WKRG1, 0882 02658000 * WKRG3, 0882 02659000 * CALLRG) UNRSTD; 0882 02660000 * 0882 02661000 * /*****************************************************************/ 02662000 * /* */ 02663000 * /* SEEK ADDRESS UPDATE AND EXTENT CHECK SUBROUTINE - UPDATE */ 02664000 * /* IOSEEKA TO NEXT SEQUENTIAL TRACK AND CALL DRIVER EXTENT CHECK */ 02665000 * /* ROUTINE. */ 02666000 * /* */ 02667000 * /*****************************************************************/ 02668000 * 0883 02669000 * RFY 0883 02670000 * (WKRG1) RSTD; 0883 02671000 *SKUPDAT: 0884 02672000 * WKRG1=CVTZDTAB; /* POINT AT DEV TBL */ 02673000 SKUPDAT L @15,CVTPTR 0884 02674000 L WKRG1,CVTZDTAB(,@15) 0884 02675000 * WKRG1=WKRG1+DTABNDX(UCBTBYT4+1);/* PT AT DEV ENTRY */ 02676000 SLR @15,@15 0885 02677000 IC @15,UCBTBYT4(,UCBRG) 0885 02678000 SLR @12,@12 0885 02679000 IC @12,DTABNDX(@15,WKRG1) 0885 02680000 ALR WKRG1,@12 0885 02681000 * IOSSKHH=IOSSKHH+1; /* INCR HD */ 02682000 LA @15,1 0886 02683000 SLR @12,@12 0886 02684000 ICM @12,3,IOSSKHH(IOSBRG) 0886 02685000 ALR @12,@15 0886 02686000 STCM @12,3,IOSSKHH(IOSBRG) 0886 02687000 * IF IOSSKHHEWAEXT=0 /* THIS ONLY 1 BLOCK? */ 02759000 * THEN 0901 02760000 L @15,EWAEXT(,WKRG3) 0901 02761000 LTR @15,@15 0901 02762000 BNZ @RF00901 0901 02763000 * ; /* YES-FALL THRU @VS30640*/ 02764000 * ELSE 0903 02765000 * GOTO NOCHAIN; /* NO-DONT CHAIN IT @VS30640*/ 02766000 * RFY 0904 02767000 * (WKRG1) RSTD; 0904 02768000 * WKRG1=EWARG; /* CHAIN BASE */ 02769000 LR WKRG1,EWARG 0905 02770000 *ENDLOOP: 0906 02771000 * IF WKRG1->EWAEXT=0 /* END OF CHAIN? */ 02772000 * THEN 0906 02773000 ENDLOOP L @15,EWAEXT(,WKRG1) 0906 02774000 LTR @15,@15 0906 02775000 BNZ @RF00906 0906 02776000 * WKRG1->EWAEXT=WKRG3; /* YES, CHAIN NEW BLK */ 02777000 ST WKRG3,EWAEXT(,WKRG1) 0907 02778000 * ELSE 0908 02779000 * DO; /* NO, LOOP */ 02780000 B @RC00906 0908 02781000 @RF00906 DS 0H 0909 02782000 * WKRG1=WKRG1->EWAEXT; /* POINT TO NEXT */ 02783000 L WKRG1,EWAEXT(,WKRG1) 0909 02784000 * GOTO ENDLOOP; /* LOOP TILL END OF CHAIN */ 02785000 B ENDLOOP 0910 02786000 * END; 0911 02787000 *NOCHAIN: 0912 02788000 * ; 0912 02789000 @RC00906 DS 0H 0912 02790000 NOCHAIN DS 0H 0913 02791000 * GEN; 0913 02792000 BR @14 RETURN TO CALLER 02793000 * RFY 0914 02794000 * (WKRG1, 0914 02795000 * WKRG3) UNRSTD; 0914 02796000 * 0914 02797000 * /*****************************************************************/ 02798000 * /* */ 02799000 * /* SUBROUTINE TO RESTORE IOSCKEY, IOSOPTS, & IOSRST */ 02800000 * /* */ 02801000 * /*****************************************************************/ 02802000 * 0915 02803000 *RESTORE: 0915 02804000 * IOSCKEY=EWDSAVKY; /* RESTORE KEY */ 02805000 RESTORE MVC IOSCKEY(1,IOSBRG),EWDSAVKY(EWAPTR) 0915 02806000 * IOSOPT=EWDSAVOP; /* RESTORE OPTS */ 02807000 MVC IOSOPT(1,IOSBRG),EWDSAVOP(EWAPTR) 0916 02808000 * GEN; 0917 02809000 TM IOSBYP(IOSBRG),B'10000000' /* BYPASS BIT ? @ZA17978 */ 02810000 BOR @14 /* DONT RESTORE START @ZA17978 */ 02811000 * RFY 0918 02812000 * (WKRG1) RSTD; 0918 02813000 * WKRG1=IOSVST; /* VIRT START ADDR */ 02814000 L WKRG1,IOSVST(,IOSBRG) 0919 02815000 * GEN; 0920 02816000 LRA WKRG1,0(WKRG1) CONVERT TO REAL 02817000 * IOSRST=WKRG1; /* RESTORE REAL START ADDR */ 02818000 ST WKRG1,IOSRST(,IOSBRG) 0921 02819000 * RFY 0922 02820000 * (WKRG1) UNRSTD; 0922 02821000 * GEN; 0923 02822000 BR @14 RETURN TO CALLER 02823000 * GEN; 0924 02824000 * /* @ZA30284 */ 02825000 *********************************************************************** 02826000 * ENTRY - LOGSAVE - SAVE LOG INFO IF NONE PREVIOUSLY SAVED. * 02827000 * IF A PREVIOUS LOG EXIST TEST IT AGAINST THE NEW DATA TO SEE IF IT * 02828000 * SHOULD BE OVERLAID. * 02829000 *********************************************************************** 02830000 * | PREVIOUS DATA SAVED | * 02831000 * |***************************************| * 02832000 * | FMT | FMT | UNIT | ENV | CORR | * 02833000 * | 3 | 6 | CHECK | LOG | DATA | * 02834000 ***************************************************** * 02835000 * | FMT 3 | NOLOG | LOG | LOG | LOG | LOG | * 02836000 * |************************************************ * 02837000 * N | FMT 6 | NOLOG | NOLOG | LOG | LOG | LOG | * 02838000 * |************************************************ * 02839000 * E |UNIT CK| NOLOG | NOLOG | NOLOG | LOG | LOG | * 02840000 * |************************************************ * 02841000 * W |ENV LOG| NOLOG | NOLOG | NOLOG | NOLOG | LOG | * 02842000 * |************************************************ * 02843000 * |CORR DC| NOLOG | NOLOG | NOLOG | NOLOG | NOLOG | * 02844000 *********************************************************************** 02845000 * 02846000 *LOGSAVE: 0925 02847000 * IF IOSLOG='1'B|INTLOG='1'B /* PREV DATA SAVED? @ZA17988*/ 02848000 * THEN 0925 02849000 LOGSAVE TM IOSLOG(IOSBRG),B'00000001' 0925 02850000 BO @RT00925 0925 02851000 TM INTLOG+136(EWAPTR),B'00000001' 0925 02852000 BNO @RF00925 0925 02853000 @RT00925 DS 0H 0926 02854000 * DO; /* YES TEST NEW-OLD FOR OVERLAY 02855000 * @ZA30284*/ 02856000 * GEN; 0927 02857000 * /* @ZA30284 */ 02858000 L @15,EWADDISP-1(,EWAPTR) /* GET LOG SAVE PTR @ZA30284 */ 02859000 TM EWAMDR(@10),X'10' /*PREV RECORD MDR? @ZA30284 */ 02860000 BNO NOPRVMDR /*NO, BRANCH @ZA30284 */ 02861000 TM EWDASNS+7(@10),X'30' /*NEW FORMAT 3? @ZA30284 */ 02862000 BO OBRSAVE /*YES, GO SAVE IT @ZA30284 */ 02863000 BR @14 /*NO, RETURN TO CALLER @ZA30284 */ 02864000 NOPRVMDR TM OBRSNS+7(@15),X'30' /*PREV FMT 3? @ZA30284 */ 02865000 BOR @14 /*YES, DONT OVERLAY @ZA30284 */ 02866000 TM EWDASNS+7(@10),X'60' /*NEW FMT 6? @ZA30284 */ 02867000 BO MDRCHK /*YES, LOG IT @ZA30284 */ 02868000 TM OBRSNS+2(@15),X'10' /*PREV ENVIRONMENTAL? @ZA30284 */ 02869000 BO PREVENV /*YES, TEST AGAIN @ZA30284 */ 02870000 TM EWDSNS2(@10),EWDEDAT /*NEW ENV DATA? @ZA30284 */ 02871000 BO NEWENV /*YES, TEST FMT 5 @ZA30284 */ 02872000 TM OBRSNS+7(@15),X'50' /*PREV FMT 5? @ZA30284 */ 02873000 BO PREV5 /*YES, TEST NEW 5 @ZA30284 */ 02874000 BR @14 /*NO, RETURN @ZA30284 */ 02875000 PREV5 TM EWDASNS+7(@10),X'50' /*NEW FMT 5? @ZA30284 */ 02876000 BNO OBRSAVE /*NO, GO SAVE IT @ZA30284 */ 02877000 BR @14 /*YES, RETURN @ZA30284 */ 02878000 NEWENV TM OBRSNS+7(@15),X'50' /*PREV FMT 5? @ZA30284 */ 02879000 BO OBRSAVE /*YES, SAVE IT @ZA30284 */ 02880000 BR @14 /*NO, RETURN @ZA30284 */ 02881000 PREVENV TM EWDSNS2(@10),EWDEDAT /*NEW ENV? @ZA30284 */ 02882000 BOR @14 /*YES, RETURN @ZA30284 */ 02883000 B PREV5 /*NO, TEST NEW 5 @ZA30284 */ 02884000 * END; /* @ZA30284*/ 02885000 * ELSE 0929 02886000 * ; /* GET STORAGE */ 02887000 @RF00925 DS 0H 0930 02888000 *GETLOGBK: 0930 02889000 * ; /* GET CORE FOR LOG INFO */ 02890000 GETLOGBK DS 0H 0931 02891000 * GEN; 0931 02892000 LR @00,@14 SAVE RTRN REG 02893000 BAL @14,GETBLOK GOTO GET CORE RTN 02894000 LR @14,@00 RESTORE RTRN REG 02895000 * EWADDISP=WKRG3+LINK; /* SET OBR PTR @ZA02273*/ 02896000 LA @15,4 0932 02897000 ALR @15,WKRG3 0932 02898000 STCM @15,7,EWADDISP(EWAPTR) 0932 02899000 * IOSLOG='1'B; /* SET LOG IND */ 02900000 OI IOSLOG(IOSBRG),B'00000001' 0933 02901000 *MDRCHK: 0934 02902000 * DAMDR=DAMDR&&DAMDR; /* CLEAR RECORD AREA */ 02903000 MDRCHK L @15,EWADDISP-1(,EWAPTR) 0934 02904000 XC DAMDR(154,@15),DAMDR(@15) 0934 02905000 * IF ERPRDLOG='1'B|FMTBITS='110'B /* MDR RECORD ? @ZA03181*/ 02906000 * THEN 0935 02907000 TM ERPRDLOG+6(EWAPTR),B'10000000' 0935 02908000 BO @RT00935 0935 02909000 TM FMTBITS+32(EWAPTR),B'01100000' 0935 02910000 BNO @RF00935 0935 02911000 TM FMTBITS+32(EWAPTR),B'00010000' 0935 02912000 BNZ @RF00935 0935 02913000 @RT00935 DS 0H 0936 02914000 * ; /* YES CONT */ 02915000 * ELSE 0937 02916000 * GOTO OBRSAVE; /* NO, TOO OBR SETUP */ 02917000 *MDRSAVE: /* @ZA30284*/ 02918000 * EWAMDR='1'B; /* IND MDR RECORD */ 02919000 MDRSAVE OI EWAMDR(EWAPTR),B'10000000' 0938 02920000 * IF ERPRDLOG='1'B /* ZEUS LOG? */ 02921000 * THEN 0939 02922000 TM ERPRDLOG+6(EWAPTR),B'10000000' 0939 02923000 BNO @RF00939 0939 02924000 * ; /* YES */ 02925000 * ELSE 0941 02926000 * GOTO SNSMDR; /* NO */ 02927000 * MDRCDSIZ=RCD154; /* IND 154 BYTE RCD */ 02928000 L @15,EWADDISP-1(,EWAPTR) 0942 02929000 LA @15,0(,@15) 0942 02930000 MVC MDRCDSIZ(2,@15),@CH00093 0942 02931000 * IF UCBTBYT4='06'X /* 2305A ? */ 02932000 * THEN 0943 02933000 CLI UCBTBYT4(UCBRG),X'06' 0943 02934000 BNE @RF00943 0943 02935000 * MDRID='12'X; /* YES */ 02936000 MVI MDRID(@15),X'12' 0944 02937000 * ELSE 0945 02938000 * MDRID='02'X; /* NO */ 02939000 B @RC00943 0945 02940000 @RF00943 L @15,EWADDISP-1(,EWAPTR) 0945 02941000 MVI MDRID(@15),X'02' 0945 02942000 * GOTO SETCUA; /* GO SET CUA ADDR */ 02943000 B SETCUA 0946 02944000 *SNSMDR: 0947 02945000 * MDRCDSIZ=56; /* IND 56 BYTE RCD */ 02946000 SNSMDR L @15,EWADDISP-1(,EWAPTR) 0947 02947000 LA @15,0(,@15) 0947 02948000 MVC MDRCDSIZ(2,@15),@CH00095 0947 02949000 * IF UCBTBYT4='09'X /* CHK DEV TYPE @Z30RSAG*/ 02950000 * THEN 0948 02951000 CLI UCBTBYT4(UCBRG),X'09' 0948 02952000 BNE @RF00948 0948 02953000 * MDRID='01'X; /* 3330 MERLIN */ 02954000 MVI MDRID(@15),X'01' 0949 02955000 * ELSE 0950 02956000 * IF UCBTBYT4='0D'X THEN 0950 02957000 B @RC00948 0950 02958000 @RF00948 CLI UCBTBYT4(UCBRG),X'0D' 0950 02959000 BNE @RF00950 0950 02960000 * MDRID='0A'X; /* 3330 ICEBERG */ 02961000 L @15,EWADDISP-1(,EWAPTR) 0951 02962000 MVI MDRID(@15),X'0A' 0951 02963000 * ELSE 0952 02964000 * IF UCBTBYT4='0A'X /* 3340 @Z30RSAG*/ 02965000 * THEN 0952 02966000 B @RC00950 0952 02967000 @RF00950 CLI UCBTBYT4(UCBRG),X'0A' 0952 02968000 BNE @RF00952 0952 02969000 * MDRID='09'X; /* 3340 */ 02970000 L @15,EWADDISP-1(,EWAPTR) 0953 02971000 MVI MDRID(@15),X'09' 0953 02972000 * ELSE 0954 02973000 * IF UCBTBYT4='0B'X /* 3350 @Z30RSAG*/ 02974000 * THEN 0954 02975000 B @RC00952 0954 02976000 @RF00952 CLI UCBTBYT4(UCBRG),X'0B' 0954 02977000 BNE @RF00954 0954 02978000 * MDRID='11'X; /* 3350 */ 02979000 L @15,EWADDISP-1(,EWAPTR) 0955 02980000 MVI MDRID(@15),X'11' 0955 02981000 * ELSE 0956 02982000 * ; /* CONTINUE @Z30RSAG*/ 02983000 @RF00954 DS 0H 0957 02984000 * MDRVOL=UCBVOLI; /* VOLUME SERIAL */ 02985000 @RC00952 DS 0H 0957 02986000 @RC00950 DS 0H 0957 02987000 @RC00948 L @15,EWADDISP-1(,EWAPTR) 0957 02988000 LA @15,0(,@15) 0957 02989000 MVC MDRVOL(6,@15),UCBVOLI(UCBRG) 0957 02990000 * MDRSNS(1:UCBSNSCT)=EWDASNS(1:UCBSNSCT);/* SENSE @ZA05468*/ 02991000 L @12,UCBEXTPT(,UCBRG) 0958 02992000 SLR @11,@11 0958 02993000 IC @11,UCBSNSCT(,@12) 0958 02994000 BCTR @11,0 0958 02995000 EX @11,@SM02066 0958 02996000 *SETCUA: 0959 02997000 * ; /* SET CHAN UNIT ADDR */ 02998000 SETCUA DS 0H 0960 02999000 * GEN; 0960 03000000 *********************************************************************** 03001000 * THIS ROUTINE IS RESPONSIBLE FOR INSERTING THE PROPER * 03002000 * PHYSICAL ADDRESS INTO THE MDR WORK AREA. THE FOLLOWING * 03003000 * TABLE DESCRIBES THE VARIOUS DATA USED TO ASSEMBLE THIS * 03004000 * ADDRESS DEPENDING ON THE PHYSICAL DEVICE. * 03005000 *********************************************************************** 03006000 * @ZA09638 * 3 * 3 M * 3 * 3 E M E M * 3 E * 03007000 * * 3 * 3 O * 3 * 3 * 3 O * 3 O * 3 3 * 03008000 * * 3 * 3 D * 4 * 5 * 3 D * 3 D * 4 3 * 03009000 * * 0 * 0 I * 0 * 0 * 3 1 * 3 I * 4 4 * 03010000 * * * I * * * 0 * 0 I * 0 * 03011000 *---------------------------------------------------------------------* 03012000 * MODIFY CHANNEL ADDRESS * * * * * * * * 03013000 * TO EQUAL UCB+D * X * X * X * X * X * X * X * 03014000 *---------------------------------*---*-----*---*---*-----*-----*-----* 03015000 * SET BIT 2 OF UNIT * * * * * * * * 03016000 * ADDRESS TO '0' * * * * * X * * X * 03017000 *---------------------------------*---*-----*---*---*-----*-----*-----* 03018000 * USE SENSE BYTE 4 BITS 0+1 * * * * * * * * 03019000 * TO CONTROL BITS 3+4 OF THE CUA * * * * * * * X * 03020000 *---------------------------------*---*-----*---*---*-----*-----*-----* 03021000 * CONVERT 1 OF 8 CODE TO 3 OF 6 * * * * * * * * 03022000 * FOR SENSE BYTE 4 * * * * * X * X * * 03023000 *---------------------------------*---*-----*---*---*-----*-----*-----* 03024000 * USE SENSE BYTE 4 BITS 5-7 * * * * * * * * 03025000 * IN BITS 5-7 OF CUA * X * X * * * X * X * X * 03026000 *---------------------------------------------------------------------* 03027000 * WKACUA=EWACHA; /* GET ADDRESS FROM EWA @ZA09638*/ 03028000 L @15,EWADDISP-1(,EWAPTR) 0961 03029000 LA @15,0(,@15) 0961 03030000 MVC WKACUA(2,@15),EWACHA(EWAPTR) 0961 03031000 * WKACHA=UCBNAME; /* MOVE CHA ADR TO WORK AREA 0962 03032000 * @ZA09638*/ 03033000 MVC WKACHA(1,@15),UCBNAME(UCBRG) 0962 03034000 * WKACHA=WKACHA&'0F'X; /* CLEAR HI DIGIT @ZA09638*/ 03035000 NI WKACHA(@15),X'0F' 0963 03036000 * IF UCBTBYT4='0B'X /* TEST IF 3350 NATIVE @ZA09638*/ 03037000 * THEN 0964 03038000 CLI UCBTBYT4(UCBRG),X'0B' 0964 03039000 BE @RT00964 0964 03040000 * GO TO NORMAL; /* @ZA09638*/ 03041000 * IF UCBTBYT4='0A'X /* TEST IF 3340 @ZA09638*/ 03042000 * THEN /* @ZA09638*/ 03043000 CLI UCBTBYT4(UCBRG),X'0A' 0966 03044000 BNE @RF00966 0966 03045000 * IF EEMU='1'B /* IF EMULATED THEN DO @ZA09638*/ 03046000 * THEN /* @ZA09638*/ 03047000 TM EEMU+34(EWAPTR),B'00001000' 0967 03048000 BNO @RF00967 0967 03049000 * DO; /* @ZA09638*/ 03050000 * WKASNS4=EWDSNS4; /* GET SENSE BYTE 4 @ZA09638*/ 03051000 MVC WKASNS4(1,@15),EWDSNS4(EWAPTR) 0969 03052000 * WKABIT2='0'B; /* CLEAR BIT 2 OF UA @ZA09638*/ 03053000 NI WKABIT2(@15),B'11011111' 0970 03054000 * WKASTRG='0'B; /* CLEAR BITS 3&4 OF UA @ZA09638*/ 03055000 NI WKASTRG(@15),B'11100111' 0971 03056000 * IF EST0='1'B /* IF BIT 0 ON @ZA09638*/ 03057000 * THEN 0972 03058000 TM EST0+36(EWAPTR),B'10000000' 0972 03059000 BNO @RF00972 0972 03060000 * WKASTRG0='1'B; /* THEN BIT 3=ON @ZA09638*/ 03061000 OI WKASTRG0(@15),B'00010000' 0973 03062000 * IF EST1='1'B /* IF BIT 1 ON @ZA09638*/ 03063000 * THEN 0974 03064000 @RF00972 TM EST1+36(EWAPTR),B'01000000' 0974 03065000 BNO @RF00974 0974 03066000 * WKASTRG1='1'B; /* THEN BIT 4=ON @ZA09638*/ 03067000 L @15,EWADDISP-1(,EWAPTR) 0975 03068000 OI WKASTRG1(@15),B'00001000' 0975 03069000 * GO TO PUA; /* GO TO FINISH CUA @ZA09638*/ 03070000 B PUA 0976 03071000 * END; /* @ZA09638*/ 03072000 * ELSE 0978 03073000 * GO TO NORMAL; /* IF NATIVE 3340 @ZA09638*/ 03074000 * IF UCBTBYT4='09'X|UCBTBYT4='0D'X/* 3330 1 OR II @ZA09638*/ 03075000 * THEN /* @ZA09638*/ 03076000 @RF00966 CLI UCBTBYT4(UCBRG),X'09' 0979 03077000 BE @RT00979 0979 03078000 CLI UCBTBYT4(UCBRG),X'0D' 0979 03079000 BNE @RF00979 0979 03080000 @RT00979 DS 0H 0980 03081000 * DO; /* @ZA09638*/ 03082000 * IF EEMU='1'B /* EMULATED DEVICE? @ZA09638*/ 03083000 * THEN /* @ZA09638*/ 03084000 TM EEMU+34(EWAPTR),B'00001000' 0981 03085000 BNO @RF00981 0981 03086000 * DO; /* @ZA09638*/ 03087000 * 0982 03088000 * /*********************************************************/ 03089000 * /* */ 03090000 * /* THIS CODE WILL CONVERT SENSE BYTE 4 FROM 1 OF 8 CODE */ 03091000 * /* TO 3 OF 6 */ 03092000 * /* */ 03093000 * /*********************************************************/ 03094000 * 0983 03095000 * RFY 0983 03096000 * (WKRG2, 0983 03097000 * FRRRG) RSTD; /* @ZA09638*/ 03098000 * GEN; 0984 03099000 * /*@ZA09638*/ 03100000 LA @04,1 /* PUT 1 INTO REG @ZA09638*/ 03101000 SR @05,@05 /* CLEAR REG @ZA09638*/ 03102000 IC @05,EWDSNS4(EWAPTR) /* GET SENSE BYTE @ZA09638*/ 03103000 SHIFT SRA @05,1 /* SHIFT RIGHT 1 POSITION @ZA09638*/ 03104000 BZ GOTIT /* IS REG = 0 @ZA09638*/ 03105000 LA @04,1(@04) /* INCREMENT REG BY 1 @ZA09638*/ 03106000 B SHIFT /* LOOP AGAIN @ZA09638*/ 03107000 GOTIT LA @05,7 /* LOAD 7 INTO REG @ZA09638*/ 03108000 MR @04,@04 /* MULT 7 TIMES # OF SHIFTS @ZA09638*/ 03109000 L @15,EWADDISP-1(EWAPTR) /*GET MDR ADR @ZA09638*/ 03110000 STC @05,WKASNS4(@15) /* STORE 3 OF 6 CODE @ZA09638*/ 03111000 * RFY 0985 03112000 * (WKRG2, 0985 03113000 * FRRRG) UNRSTD; /* @ZA09638*/ 03114000 * IF UCBTBYT4='09'X /* IF MERLIN THEN RESET BIT 2 OF 03115000 * CONTROL UNIT ADDRESS @ZA09638*/ 03116000 * THEN 0986 03117000 CLI UCBTBYT4(UCBRG),X'09' 0986 03118000 BNE @RF00986 0986 03119000 * WKABIT2='0'B; /* @ZA09638*/ 03120000 L @15,EWADDISP-1(,EWAPTR) 0987 03121000 NI WKABIT2(@15),B'11011111' 0987 03122000 * ELSE 0988 03123000 * ; /* @ZA09638*/ 03124000 @RF00986 DS 0H 0989 03125000 * GO TO PUA; /* COMPLETE CUA @ZA09638*/ 03126000 B PUA 0989 03127000 * END; /* @ZA09638*/ 03128000 * ELSE /* @ZA09638*/ 03129000 * WKASNS4=EWDSNS4; /* REAL 3330 - GET SENSE 4 0991 03130000 * @ZA09638*/ 03131000 @RF00981 L @15,EWADDISP-1(,EWAPTR) 0991 03132000 MVC WKASNS4(1,@15),EWDSNS4(EWAPTR) 0991 03133000 * END; /* @ZA09638*/ 03134000 *PUA: 0993 03135000 * WKAUA=WKAUA&'F8'X; /* SAVE BITS 0-4 @ZA27761*/ 03136000 @RF00979 DS 0H 0993 03137000 PUA L @15,EWADDISP-1(,EWAPTR) 0993 03138000 LA @15,0(,@15) 0993 03139000 NI WKAUA(@15),X'F8' 0993 03140000 * WKASNS4=WKASNS4&'07'X; /* SAVE BITS 5-7 @ZA27761*/ 03141000 NI WKASNS4(@15),X'07' 0994 03142000 * WKAUA=WKAUA|WKASNS4; /* MERGE INTO ONE BYTE @ZA27761*/ 03143000 OC WKAUA(1,@15),WKASNS4(@15) 0995 03144000 *NORMAL: /* @ZA27761*/ 03145000 * IF UCBNAME(1:1)<'F0'X /* NON-NUMERIC ADDR? @ZA27761*/ 03146000 * THEN 0996 03147000 NORMAL CLI UCBNAME(UCBRG),X'F0' 0996 03148000 BNL @RF00996 0996 03149000 * WKACUA=WKACUA+'900'X; /* MAKE IT ALPHA @ZA27761*/ 03150000 L @15,EWADDISP-1(,EWAPTR) 0997 03151000 LA @15,0(,@15) 0997 03152000 LA @12,2304 0997 03153000 LH @11,WKACUA(,@15) 0997 03154000 N @11,@CF00055 0997 03155000 ALR @12,@11 0997 03156000 STH @12,WKACUA(,@15) 0997 03157000 * ELSE 0998 03158000 * ; /* NUMERIC OK @ZA27761*/ 03159000 @RF00996 DS 0H 0999 03160000 * MDRCUA=WKACUA; /* PUT PHYSICAL ADDR INTO MDR 0999 03161000 * @ZA27761*/ 03162000 L @15,EWADDISP-1(,EWAPTR) 0999 03163000 LA @15,0(,@15) 0999 03164000 MVC MDRCUA(2,@15),WKACUA(@15) 0999 03165000 * WKA=0; /* CLEAR WORKAREA BYTES 2-4 1000 03166000 * @ZA27761*/ 03167000 SLR @12,@12 1000 03168000 STCM @12,7,WKA(@15) 1000 03169000 * GOTO LOGRTRN; /* RETURN TO CALLER */ 03170000 B LOGRTRN 1001 03171000 *OBRSAVE: 1002 03172000 * ; /* FORMAT OBR */ 03173000 OBRSAVE DS 0H 1003 03174000 * EWAMDR='0'B; /* IND OBR RECORD */ 03175000 NI EWAMDR(EWAPTR),B'01111111' 1003 03176000 * EWADCNT=DEVNO; /* NO. OF DEVICE DEP BYTES */ 03177000 MVI EWADCNT(EWAPTR),X'18' 1004 03178000 * OBRVOL=UCBVOLI; /* VOLUME SERIAL */ 03179000 L @15,EWADDISP-1(,EWAPTR) 1005 03180000 LA @15,0(,@15) 1005 03181000 MVC OBRVOL(6,@15),UCBVOLI(UCBRG) 1005 03182000 * OBRSKA=IOSEEKA(2:8); /* SEEK ADDR */ 03183000 MVC OBRSKA(7,@15),IOSEEKA+1(IOSBRG) 1006 03184000 * OBRHOMAD=EWDCCHH; /* HOME ADDR/PHY ADDR */ 03185000 MVC OBRHOMAD(4,@15),EWDCCHH(EWAPTR) 1007 03186000 * OBRCSW=IOSCSW; /* CSW */ 03187000 MVC OBRCSW(7,@15),IOSCSW(IOSBRG) 1008 03188000 * IF CCWRG>0 /* VALID CCW ? */ 03189000 * THEN 1009 03190000 LTR CCWRG,CCWRG 1009 03191000 BNP @RF01009 1009 03192000 * OBRCCW=CCWRG->DACCW; /* SAVE FAILING CCW @ZA05463*/ 03193000 MVC OBRCCW(8,@15),DACCW(CCWRG) 1010 03194000 * ELSE 1011 03195000 * ; /* NO CCW */ 03196000 @RF01009 DS 0H 1012 03197000 * OBRSNS(1:UCBSNSCT)=EWDASNS(1:UCBSNSCT);/* SENSE @ZA05468*/ 03198000 L @15,EWADDISP-1(,EWAPTR) 1012 03199000 L @12,UCBEXTPT(,UCBRG) 1012 03200000 SLR @11,@11 1012 03201000 IC @11,UCBSNSCT(,@12) 1012 03202000 BCTR @11,0 1012 03203000 EX @11,@SM02069 1012 03204000 *LOGRTRN: 1013 03205000 * ; /* RETURN TO CALLER */ 03206000 LOGRTRN DS 0H 1014 03207000 * GEN; 1014 03208000 BR @14 RETURN TO CALLER 03209000 * RFY 1015 03210000 * (RTRNRG) UNRSTD; 1015 03211000 * GEN REFS(EWDCCW1,EWDCCW2,EWDCCW3,EWDCCW4,EWDHOMAD,EWDSNS8); 1016 03212000 * /* 03213000 EJECT 03214000 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 03215000 * PROTOTYPE CCWS FOR USE BY 'CPBLD' IN CONSTRUCTING 03216000 * ERP CHANNEL PROGRAMS 03217000 * 03218000 DACP1 DS 0F 03219000 *CCW1 SET SECTOR EWDCCW1+6,CC+SLI,1 03220000 DC X'23' OP 03221000 DC AL3(EWDCCW1+6) ARG 03222000 DC X'60' CC+SLI 03223000 DC AL1(EWARG) RELOCATE 03224000 DC AL1(0*8) POSITION 03225000 DC AL1(1) LGTH 03226000 DACP2 DS 0F 03227000 *CCW2,1 RHA EWDCCW1,CC+SLI+SKIP,5 03228000 DC X'1A' OP 03229000 DC AL3(EWDCCW1) ARG 03230000 DC X'70' CC+SLI+SKIP 03231000 DC AL1(WKRG2*16+EWARG) RELOCATE + END FLG 03232000 DC AL1(0*8) POSITION 03233000 DC AL1(5) LGTH 03234000 * 03235000 DACP3 DS 0F 03236000 *CCW1 SET SECTOR EWDCCW1+6,CC+SLI,1 03237000 DC X'23' OP 03238000 DC AL3(EWDCCW1+6) ARG 03239000 DC X'60' CC+SLI 03240000 DC AL1(EWARG) RELOCATE 03241000 DC AL1(0*8) POSITION 03242000 DC AL1(1) LGTH 03243000 DACP4 DS 0F 03244000 *CCW2,1 SID EWDCCHH,CC+SLI,5 03245000 DC X'31' OP 03246000 DC AL3(EWDCCHH) ARG 03247000 DC X'60' CC+SLI 03248000 DC AL1(EWARG) RELOCATE 03249000 DC AL1(1*8) POSITION 03250000 DC AL1(5) LGTH 03251000 *CCW3,2 TIC *-8,CC+SLI,0 03252000 DC X'08' OP 03253000 DC AL3(EWDCCW2) ARG 03254000 DC X'60' CC+SLI 03255000 DC AL1(EWARG) RELOCATE 03256000 DC AL1(0*8) POSITION 03257000 DC AL1(0) LGTH 03258000 *CCW4,3 X (ERCCW DATA+ # BYTES READ),ERCCW FLGS,RESID CNT 03259000 DC X'00' OP SET FROM SENSE 03260000 DC AL3(0) ARG CALC'D BY ERP 03261000 DC X'00' FLGS FROM ERCCW 03262000 DC AL1(EWARG) RELOCATE 03263000 DC AL1(0*8) POSITION 03264000 DC AL1(0) LENTH SET FROM RESID 03265000 *CCW5,4 TIC *-8,CC+SLI,0 03266000 DC X'08' OP 03267000 DC AL3(EWDCCW4) ARG 03268000 DC X'60' CC+SLI 03269000 DC AL1(WKRG2*16+EWARG) RELOCATE + END FLG 03270000 DC AL1(0*8) POSITION 03271000 DC AL1(0) LGTH 03272000 * 03273000 DACP5 DS 0F 03274000 *CCW1 RHA EWDCCW1,CC+SLI+SKIP,5 03275000 DC X'1A' OP 03276000 DC AL3(EWDCCW1) ARG 03277000 DC X'70' CC+SLI 03278000 DC AL1(EWARG) RELOCATE 03279000 DC AL1(0*8) POSITION 03280000 DC AL1(5) LGTH 03281000 *CCW2 SID EWDSNS8,CC+SLI,5 03282000 DC X'31' OP 03283000 DC AL3(EWDCCW6) ARG @ZA10564 03284000 DC X'60' CC+SLI 03285000 DC AL1(EWARG) RELOCATE 03286000 DC AL1(0*8) POSITION 03287000 DC AL1(5) LGTH 03288000 *CCW3 TIC *-8,CC+SLI,0 03289000 DC X'08' OP 03290000 DC AL3(EWDCCW2) ARG 03291000 DC X'60' CC+SLI 03292000 DC AL1(EWARG) RELOCATE 03293000 DC AL1(0*8) POSITION 03294000 DC AL1(0) LGTH 03295000 *CCW4 RD-CNT EWDCCW1,CC+SLI+SKIP,1 03296000 DC X'12' OP 03297000 DC AL3(EWDCCW1) ARG 03298000 DC X'70' CC+SLI+SKIP 03299000 DC AL1(WKRG2*16+EWARG) RELOCATE + END FLG 03300000 DC AL1(0*8) POSITION 03301000 DC AL1(1) LGTH 03302000 * 03303000 DACP6 DS 0F 03304000 *CCW1 RECAL EWDCCW1,SLI,1 03305000 DC X'13' OP 03306000 DC AL3(EWDCCW1) ARG 03307000 DC X'20' SLI 03308000 DC AL1(WKRG2*16+EWARG) RELOCATE + END FLG 03309000 DC AL1(6*8) POSITION 03310000 DC AL1(1) LGTH 03311000 * 03312000 DACP7 DS 0F 03313000 *CCW1 RD-LOG 0,SLI,1 03314000 DC X'24' OP 03315000 DC AL3(0) ADDR SET BY ERP 03316000 DC X'20' SLI 03317000 DC AL1(WKRG2*16+EWARG) RELOCATE + END FLG 03318000 DC AL1(6*8) POSITION 03319000 DC AL1(128) LGTH 03320000 * 03321000 DACP8 DS 0F 03322000 *CCW1 RHA EWDHOMAD,CC+SLI,5 03323000 DC X'1A' OP 03324000 DC AL3(EWDHOMAD) ARG 03325000 DC X'60' CC+SLI 03326000 DC AL1(EWARG) RELOCATE 03327000 DC AL1(5*8) POSITION 03328000 DC AL1(5) LGTH 03329000 *CCW2 RR0 EWDRZRO,SLI,4 03330000 DC X'16' OP 03331000 DC AL3(EWDRZRO) ARG 03332000 DC X'20' SLI 03333000 DC AL1(WKRG2*16+EWARG) RELOCATE + END FLG 03334000 DC AL1(0*8) POSITION 03335000 DC AL1(4) LGTH 03336000 * 03337000 DACP9 DS 0F 03338000 *CCW1 SHA IOSCCHH,CC+SLI,4 03339000 DC X'39' OP 03340000 DC AL3(IOSCCHH) ARG 03341000 DC X'60' CC+SLI 03342000 DC AL1(IOSBRG) RELOCATE 03343000 DC AL1(0*8) POSITION 03344000 DC AL1(4) LGTH 03345000 *CCW2 TIC *-8,CC+SLI,0 03346000 DC X'08' OP 03347000 DC AL3(EWDCCW1) ARG 03348000 DC X'60' CC+SLI 03349000 DC AL1(EWARG) RELOCATE 03350000 DC AL1(0*8) POSITION 03351000 DC AL1(0) LGTH 03352000 *CCW3 RHA EWDCCW1,CC+SLI+SKIP 03353000 DC X'1A' OP 03354000 DC AL3(EWDCCW1) ARG 03355000 DC X'70' CC+SLI+SKIP 03356000 DC AL1(WKRG2*16+EWARG) RELOCATE + END FLG 03357000 DC AL1(0*8) POSITION 03358000 DC AL1(5) LGTH 03359000 * */ 03360000 * END; /* THE END... */ 03361000 @EL00001 DS 0H 1017 03362000 @EF00001 DS 0H 1017 03363000 @ER00001 BR @14 1017 03364000 */*MVMDAERP: CHART (SEQ) L R PERRY ZA17988 */ 03365000 */*IECVDERP: E ENTER ERP */ 03366000 */* P SET ADDRESSIBILITY */ 03367000 */* P SAVE REGS 2-6, IOSERR=1 */ 03368000 */* P RESTORE IOSRST */ 03369000 */* D (YES,,NO,%A001) ERPREV=0? */ 03370000 */* P SAVE IOSCKEY AND IOSOPTS. ERPREV=1 */ 03371000 */*%A001: D (YES,,NO,%A004) UNIT CHK? */ 03372000 */* D (NO,,YES,STATSAV) SENSE FAIL? (EWABDSNS) */ 03373000 */* D (NO,,YES,STATCK) 2314 DEV? */ 03374000 */* D (NO,,YES,%A002) ENV DATA? */ 03375000 */* D (NO,%A003,YES,INTCK) 3340 OR MSS? */ 03376000 */*%A002: S (,RETRY)LOGSAVE :SET TO SAVE LOG */ 03377000 */*%A003: D (YES,,NO,INTCK) ZEUS LOG? */ 03378000 */* P ERPRDLOG = 1 */ 03379000 */* S LOGSAVE:SAVE LOG INFO */ 03380000 */* P IOSBYP=1 SET FOR RDLOG CP (DACP7) */ 03381000 */* S (,RESTART) CPBLD:BLD RDLOG CP */ 03382000 */*%A004: P IOSSNS=0 */ 03383000 */*INTCK: D (NO,,YES,%A005) INTERCEPT? (IOSCOD=7E) */ 03384000 */* S CCWSUB:POINT AT ERRCCW */ 03385000 */* P CALLRG=CVTXITP */ 03386000 */* S ERINTERP:BALR-14 CALLRG TO ERR INTERP */ 03387000 */* D (CCC,ERCHAN,ICC,ERCHAN,CDC,RTY10D,CCHN,RTY10D,PERM, */ 03388000 */*PERMCK,EQUP,RTY10,CREJ,ERMSG,BUSO,RTY10,INT,ERINT,SEEK, */ 03389000 */*ERSEK,MAM,RTY10,OVRN,RTY10A,TVRN,ERHARD,NRF,NRFCK,TCC,ERTCC, */ 03390000 */*DCHK,ERDATA,EOC,EREOC,FPRT,ERFP,OFLO,EROFLO,CPCK,ERHARD, */ 03391000 */*CPRT,ERHARD,UNEX,EREOF,LGTH,ERLEN,UCHK,RTY10,ENDI,ERNOER) */ 03392000 */*RETURN VECTORS FROM ERR INTERP */ 03393000 */*%A005: P IOSCOD=7F */ 03394000 */* S (,RETRY) LOGSAVE:SAVE LOG INFO */ 03395000 */*STATSAV: P IOSTATUS = EWASSTAT */ 03396000 */* P (,RETRY) INCREMENT EWACNTR3 */ 03397000 */*STATCK: D (YES,,NO,INTCK) ABNORMAL SENSE STATUS? */ 03398000 */* D (NO,,YES,SETBADHA) INTERVENTION REQUIRED? */ 03399000 */*SNSRTY: D (YES,,NO,STATSAV) EWACNTR3 = 1? */ 03400000 */*SETBADHA: P (,INTCK) ERPBADHA=1. MOVE SKA CCHH TO RHA CCHH */ 03401000 */*RTY10D: D (NO,,YES,CNTINCR1) EWACNTR<10? */ 03402000 */* P (,ERMSG) SET LOG BIT FOR DDR */ 03403000 */*RTY10: E RTY10 */ 03404000 */* S LOGSAVE:SAVE LOG INFO */ 03405000 */*RTY10C: D (YES,,NO,ERMSG) EWACNTR1 < 10? */ 03406000 */*CNTINCR1: M (,RETRY) INCR EWACNTR1 */ 03407000 */*RTY10A: E RTY10A */ 03408000 */* D (YES,,NO,RTY10) 3340 DEV? */ 03409000 */*RTY10B: D (YES,CNTINCR1,NO,RTY10) EWACNTR1 < 10? */ 03410000 */*ERCHAN: E ERCHAN */ 03411000 */* S LOGSAVE:SAVE LOG INFO */ 03412000 */* D (YES,ERMSG,NO,RTY10C) ERPIB IBNORTY=1? */ 03413000 */*PERMCK: E PERMCK */ 03414000 */* D (NO,,YES,BYPOBR) VIRT. DASD MEDIA ERROR? */ 03415000 */* S LOGSAVE:SAVE LOG INFO */ 03416000 */*BYPOBR: D (NO,,YES,RTY10C) 2314? */ 03417000 */* D (NO,,YES,ERMSG) EQUIP CHK ? */ 03418000 */* D (NO,ERMSG,YES,RTY10C) RD-M-CKD CMD ? */ 03419000 */*EREOF: E EREOF */ 03420000 */* D (NO,,YES,ERNOER) ERPRHA=1? */ 03421000 */*ERLEN: E ERLEN */ 03422000 */* D (YES,,NO,ERHARD) ERPREV=1? */ 03423000 */*ERSOFT: P IOSEX=0 */ 03424000 */* D (YES,,NO,ERHARD) ERPOCSW =1 ? */ 03425000 */* P (,ERHARD) RESTORE USER CSW */ 03426000 */*ERMSG: P IOSMSG=1 */ 03427000 */*XCTLWTO: P SET FOR XCTL TO WTO (IOSPROC = '14'X) */ 03428000 */*ERHARD: P IOSERR=0 */ 03429000 */* D (YES,,NO,%A006) ERPOFLO=1? */ 03430000 */* P SET OFLO IN IOSSNS */ 03431000 */*%A006: P CLEAR ERP FLGS */ 03432000 */* S RESTORE:RESTORE IOSCKEY, OPTS, & RST */ 03433000 */*DIRCHK: D (YES,,NO,%H001) INTERNAL LOG ON? */ 03434000 */* P SET IOSLOG BIT */ 03435000 */*%H001: D (YES,,NO,%A007) TRANS NEEDED? (MSG OR LOG) */ 03436000 */*IDRCHK: D (YES,DIRBLD,NO,%A008) DIR NEEDED? (IOSIDR = 1) */ 03437000 */*CALTRANS: E RESTORE REGS */ 03438000 */* R RETURN TO IOS REG 6 +8 */ 03439000 */*DIRBLD: S GETBLOCK3:GET 3 BLOCKS FOR DIR */ 03440000 */* P COPY SRB TO FIRST BLOCK */ 03441000 */* P COPY IOSB TO FIRST BLOCK */ 03442000 */* P POINT COPIED SRB TO COPIED IOSB */ 03443000 */* P POINT COMPIED IOSB TO COPIED SRB */ 03444000 */* P POINT COPIED IOSB TO SECOND BLOCK (EWA) */ 03445000 */* P SET IOSIOSB = 1 IN COPIED IOSB */ 03446000 */* P CLEAR IOSOPT BYTE IN COPIED IOSB */ 03447000 */* P IOSPROC = X'14' (WTO) IN COPIED IOSB */ 03448000 */* P COPY EWA INTO SECOND BLOCK */ 03449000 */* P POINT COPIED EWA TO 3RD BLOCK (OBR INFO) */ 03450000 */* P COPY OBR INFORMATION TO 3RD BLOCK */ 03451000 */* P CLEAR LINK FIELDS IN 1ST AND 2ND BLOCKS */ 03452000 */* P POINT COPIED SRB TO ASCB */ 03453000 */* P SCHEDULE SRB ON LSMQ */ 03454000 */*PERMSOFT: P RESTORE REGS */ 03455000 */* R R06+4 PERM/SOFT */ 03456000 */*%A007: D (NO,PERMSOFT,YES,IDRCHK) INT REQ'D? */ 03457000 */*%A008: R R06+8 CALL TRANS */ 03458000 */*NRFCK: E NRFCK */ 03459000 */* D (YES,,NO,ERHARD) 2314? */ 03460000 */* D (NO,,YES,ERHARD) SEEK ADDR CCHH = HOME ADDR CCHH? 03461000 */* */ 03462000 */* P (,ERSEK) 'OR' SEEK CHK INTO SENSE */ 03463000 */*ERSEK: E ERSEK */ 03464000 */* S LOGSAVE:SAVE LOG INFO */ 03465000 */* P ERPRECAL=1 IOSBYP=1 IOSDEP=1 SET FOR RECAL */ 03466000 */* S (,RESTART) CPBLD:BLD RECAL CP */ 03467000 */*ERINT: E ERINT */ 03468000 */* D (YES,,NO,%H002) 3340,3350,EMULATED? */ 03469000 */* D (YES,,NO,%H002) STATE=11? */ 03470000 */* P SET INTERNAL LOG BIT */ 03471000 */* S LOGSAVE:SAVE LOG INFO */ 03472000 */*%H002: D (NO,,YES,ERINT1) 3340? */ 03473000 */*%A009: D (NO,,YES,ERINT1) EWACNTR2 = 1? */ 03474000 */* P (,RETRY) INCR EWACNTR2 */ 03475000 */*ERINT1: P RESET IOSLOG */ 03476000 */* P (,CALTRANS) IOSPROC=X'14' SETUP XCTL TO WTO */ 03477000 */*ERTCC: E ERTCC */ 03478000 */* D (NO,,YES,%A010) 3340? */ 03479000 */* P (,ERNOER) ERPRHA=1 */ 03480000 */*%A010: P SET SKA HD FROM SNS */ 03481000 */* P IOSCKEY=0 ERPRHA=1 SET FOR RHA/RR0 */ 03482000 */* S (,RESTART) CPBLD:BLD RHA/RR0 CP */ 03483000 */*RETRY: D (YES,,NO,RESTART) ERPCP=0? */ 03484000 */* P CLEAR FLGS EXCPT OFLO */ 03485000 */*RESTART: P RESTORE REGS */ 03486000 */* R R14+0 RETRY RESTART */ 03487000 */*ERNOER: E ERNOER */ 03488000 */* P RESTORE IOSCKEY, IOSOPTS, & IOSRST. ERPCP=0 */ 03489000 */* D (NO,,YES,RTY10C) ERPRECAL=1? */ 03490000 */* D (NO,,YES,RETRY) ERPRDLOG=1? */ 03491000 */* D (NO,,YES,ERSOFT) ERPRHA=0? */ 03492000 */* P RESTORE ORIG SNS & CSW */ 03493000 */* P MOVE R0 CCHH TO SKA */ 03494000 */* D (NO,,YES,OFLOCK1) DEF TRK? */ 03495000 */* S SKUPDAT:UPDATE SEEK ADDR & CHK XTNTS */ 03496000 */*OFLOCK1: D (NO,,YES,EROFLOA) OFLO? */ 03497000 */* P SET FOR SS- RHA- TIC */ 03498000 */* D (NO,,YES,%A011) EXTSNS? */ 03499000 */* P SET FOR SHA- TIC- RHA- TIC */ 03500000 */*%A011: S (,RESTART) CPBLD:BLD CHAN PGM */ 03501000 */*EREOC: E EREOC */ 03502000 */* P FORCE HD HIGH (7F) */ 03503000 */*UPDATSKA: S SKUPDAT:UPDATE SEEK ADDR & CHK XTNTS */ 03504000 */*OFLOCK2: D (NO,,YES,EROFLOA) OFLO? */ 03505000 */* D (NO,,YES,%A013) EXP SENSE DEV? */ 03506000 */* D (NO,,YES,%A012) CYL SWITCH FLG SET? */ 03507000 */* P (,BLDCP2) SET FOR RHA- TIC (DACP2) */ 03508000 */*%A012: P (,BLDCP2) SET FOR SHA- TIC- RHA- TIC (DACP9) */ 03509000 */*%A013: P SET FOR SS- RHA- TIC (DACP1) */ 03510000 */*BLDCP2: S CPBLD:BLD CHAN PGM */ 03511000 */* P CCWRG1=CCWRG */ 03512000 */* S (,RESTART) TICBLD:BLD TIC TO USER CP */ 03513000 */*ERFP: E ERFP */ 03514000 */* D (NO,,YES,ERHARD) FULL (07) SEEK? */ 03515000 */* D (NO,,YES,%A015) CYL SEEK? */ 03516000 */* D (YES,,NO,UPDATSKA) HD SEEK? */ 03517000 */*%A014: P DAT=OFF (MODESET). FETCH USER SEEK ARG. 1018 03518000 */*DAT=ON (MODESET). */ 03519000 */* S XTNTCK:CHECK XTNTS */ 03520000 */* P (,OFLOCK2) CCWRG = *+8 */ 03521000 */*%A015: P (,%A014) ERPCYLSW=1 */ 03522000 */*ERDATA: E ERDATA */ 03523000 */* D (YES,,NO,WINCK1) MERLIN? */ 03524000 */* D (NO,,YES,MERWCK1) CORRECTABLE? */ 03525000 */* D (YES,,NO,RTY10B) OP INC? */ 03526000 */* P (,CHAINCK) LOOP CNT = 0. RSTRTDSP = RSTDISP */ 03527000 */*WINCK1: D (NO,,YES,%A016) 3340? */ 03528000 */*%A019: D (YES,,NO,RTY10C) CORRECTABLE? */ 03529000 */*MERWCK1: D (YES,,NO,ZEUSDISP) MERLIN OR WIN? */ 03530000 */* P FDISP = RSTDISP - BKDISP */ 03531000 */* P RSTRTDSP = RSTDSP. FDISP = RSTDISP-BKDISP */ 03532000 */*LOOPSET: P LOOP CNT =3. POINT AT FIRST ECC BYTE */ 03533000 */*ECFLOOP1: D (YES,,NO,MERWCK2) ERR IN THIS SEG? FDISP < CCW CNT 03534000 */* */ 03535000 */* P WKRG1=CCWRG */ 03536000 */* D (YES,,NO,%A018) IDAW? */ 03537000 */* S ADDRCALC:POINT TO IDAW */ 03538000 */*%A018: P ERR ADDR = DATA ADDR + FDISP */ 03539000 */* D (NO,,YES,ECCINCR) ECC BYTE = 0 OR SKIP FLG =1 */ 03540000 */* P DAT BIT = OFF. EXCL OR ECC BYTE TO CORE. DAT BIT = 03541000 */*ON. */ 03542000 */*ECCINCR: P INCR ECC PTR. DECR LOOP CNT. INCR FDISP. */ 03543000 */* D (YES,,NO,%A017) ZEUS A? */ 03544000 */* P INCR FDISP AGAIN */ 03545000 */*%A017: D (YES,MERWCK2,NO,ECFLOOP1) LOOP CNT = 0? */ 03546000 */*%A016: S (,%A019) LOGSAVE:SAVE LOG INFO */ 03547000 */*ZEUSDISP: P FDISP = CCW CNT - BKDISP - RESID CNT */ 03548000 */* D (YES,RTY10C,NO,LOOPSET) FDISP NEGATIVE? */ 03549000 */*MERWCK2: D (YES,,NO,MASKCK) MERLIN OR WIN? */ 03550000 */*CHAINCK: D (NO,,YES,%A020) DATA CHAINING? */ 03551000 */*LENCK1: D (YES,,NO,%A022) CU DET'D INC LGTH? */ 03552000 */* D (YES,,NO,%A022) RSTRTDSP = CCW CNT? */ 03553000 */* P (,RTY10) SET EQUIP CHK IN SNS */ 03554000 */*%A020: P DECR DISP'S BY CCW CNT. POINT TO NEXT CCW */ 03555000 */* D (YES,,NO,%A021) IS IT A TIC? */ 03556000 */* P POINT AT TIC ARG */ 03557000 */*%A021: D (NO,ECFLOOP1,YES,MERWCK2) LOOP CNT = 0? */ 03558000 */*%A022: P CLEAR RESID CNT IN CSW */ 03559000 */* D (NO,,YES,MASKCK) RSTRTDSP = CCW CNT? */ 03560000 */* P RESID = CCW CNT = RSTRT */ 03561000 */* D (YES,,NO,SETCNT) NEG RESID? */ 03562000 */*SLICK: D (NO,,YES,MASKCK) SLI BIT ON? */ 03563000 */* P SET CE, DE, INC LGTH IN CSW. */ 03564000 */*CSWINCR: P (,ERSOFT) POINT TO ERR CCW */ 03565000 */*SETCNT: P STORE CALC'D RESID IN CSW */ 03566000 */* D (YES,MASKCK,NO,SLICK) OFLO? */ 03567000 */*MASKCK: D (NO,,YES,PCIBIT) FILE MASK INHIBIT RETRY? */ 03568000 */*%A023: P SET SKA HD FROM SNS */ 03569000 */* D (YES,,NO,%A024) OFLO? */ 03570000 */* D (YES,,NO,EROFLOA) CORRECTOBLE? */ 03571000 */* S (,EROFLOA) SKUPDAT:UPDATE SEEK ADDR & CHK XTNTS */ 03572000 */*%A024: D (YES,,NO,NOFTR) RD-M-CKD CMD? */ 03573000 */* P UPDATE FTRCCW D.A.D. */ 03574000 */* D (YES,,NO,PTFTR) IDA BIT ON? 1018 03575000 */* S GETBLK: GET CORE ADDR */ 03576000 */*PTFTR: P WKRG1 = ADDR(FTRCCW) */ 03577000 */* D (YES,,NO,UPFTR) IDA BIT ON? */ 03578000 */* S ADRCALC: CALCULATE IDAW+FRWD DISPL */ 03579000 */* P UPDATE FTRCCW D.A.D. */ 03580000 */* S IEAPTRV: XLATE TO VIRT ADDR */ 03581000 */*UPFTR: S BLDCP: BUILD CCW(DACP5) */ 03582000 */* P MOVE IN FTRCCW */ 03583000 */* S (,RESTART) BLDTIC: BUILD TIC */ 03584000 */*NOFTR: D (NO,,YES,%A025) CMD CHAIN? */ 03585000 */* P (,CSWINCR) SET CE, DE IN CSW */ 03586000 */*%A025: D (YES,,NO,%A026) NEXT CCW A TIC? */ 03587000 */* P POINT TO TIC ARG */ 03588000 */*%A026: P SET FOR SS SID TIC RDCNT TIC (DACP5) */ 03589000 */* S CPBLD:BLD CH PGM */ 03590000 */* D (YES,,NO,%A027) CNT OP? */ 03591000 */* P BACK UP WKRG1 TP OVERLAY RDCNT */ 03592000 */*%A027: P CCWRG1 = CCWRG */ 03593000 */* S (,RESTART) TICBLD:BLD TIC */ 03594000 */*PCIBIT: D (YES,,NO,%A023)IOSMDB=1? PCI STOP */ 03595000 */* P SET PCI COMPLETE (71) IN IOSCOD */ 03596000 */* P CLEAR ALL ERP FLGS */ 03597000 */* P IOSERR=0 IOSLOG=0 IOSEX=0 */ 03598000 */* S RESTORE:RESTORE IOSCKEY,OPTS & RST */ 03599000 */* P RESTORE REGS */ 03600000 */* R R14+12 POST PER IOSCOD */ 03601000 */*EROFLO: E EROFLO */ 03602000 */* P SET HEAD FROM SENSE */ 03603000 */*EROFLOA: P ERPOFLO=1. SET RECORD = 1 */ 03604000 */* D (NO,,YES,OFLOCALC) ERR IN ERP CH PGM? */ 03605000 */* P SET FOR RPS CP */ 03606000 */* D (NO,,YES,%A028) RPS? */ 03607000 */* P SET FOR NON-RPS CP (DACP4) */ 03608000 */*%A028: S CPBLD:BLD CP */ 03609000 */* D (NO,,YES,%A0281) CMD OR DATA CHAIN? */ 03610000 */* P (,CMDSET) SAVE USER CSW IN EWDCCW5. ERPOCSW = 1. */ 03611000 */*%A0281: P POINT TO NEXT CCW */ 03612000 */* D (YES,,NO,%A030) IS IT A TIC? */ 03613000 */* D (NO,,YES,%A029) *-8? */ 03614000 */* P (,%A030) BACK UP TICBLD REG */ 03615000 */*%A029: P POINT TO NEXT CCW */ 03616000 */*%A030: S (,CMDSET) TICBLD:BLD TIC TO USER */ 03617000 */*CMDSET: P COPY USER CCW */ 03618000 */* P SET CMD CODE FROM SENSE BYTE 3 */ 03619000 */* D (NO,,YES,%A031) EXTSNS? */ 03620000 */* P SET CMD CODE FROM SENSE BYTE 5 */ 03621000 */*%A031: P COPY FLGS XCPT PCI FROM ERRCCW */ 03622000 */*IDALCK: D (YES,,MO,OFLOCALC) IDAL (ERCCW) */ 03623000 */* S GETBLOK:GET CORE FOR IDAL */ 03624000 */* P COPY IDAL TO GOTTEN CORE */ 03625000 */* P POINT OFLO CCW TO IDAL */ 03626000 */*OFLOCALC: P FDISP = ERCCW CNT - CSW RESID */ 03627000 */* P WKRG1 = ADDR(DOFLOCCW) */ 03628000 */* D (YES,,NO,%A032) IDAW? */ 03629000 */* S ADDRCALC:RESOLVE TO IDAW + DISP */ 03630000 */* P OFLOARG = WKRG1 (POINT TO IDAW) */ 03631000 */*%A032: P UPDATE DATA ADDR + FDISP */ 03632000 */* D (YES,,NO,%A033) RESID = 0? */ 03633000 */* P (,RESTART) CNT=1. SKIP FLG = 1. */ 03634000 */*%A033: P (,RESTART) CNT = RESID */ 03635000 */*SKUPDAT: E SKUPDAT */ 03636000 */* P POINT TO DEV CHAR TBL */ 03637000 */* P INCR HD */ 03638000 */* D (YES,,NO,XTNTCK) HD BEYOND LIMIT? */ 03639000 */* P HD = 0 */ 03640000 */* P INCR CYL */ 03641000 */*XTNTCK: E XTNTCK */ 03642000 */* S XTNT-DVR:CALL XTNT DVR PER DVR ID IN IOSB */ 03643000 */* D (YES,,NO,EXIT12) XTNT OK? */ 03644000 */* R RETURN TO CALLER */ 03645000 */*EXIT12: P CLEAR ALL ERP FLGS */ 03646000 */* P IOSERR=0 IOSLOG=0 */ 03647000 */* S RESTORE:RESTORE IOSCKEY,OPTS & RST */ 03648000 */* P RESTORE REGS */ 03649000 */* R R14+12 POST PER IOSCOD */ 03650000 */*LOGSAVE: E LOGSAVE */ 03651000 */* D (NO,,YES,LOGSAVE) ZEUS LOG? */ 03652000 */* D (NO,LOGSAVE,YES,%A034) FORMAT 6? */ 03653000 */*%A034: D (NO,GETLOGBK,YES,MDRCK) IOSLOG = 1? */ 03654000 */*LOGSAVE: E LOGSAVE */ 03655000 */* D (NO,GETLOGBK,YES,LOGRTRN) IOSLOG = 1? */ 03656000 */*GETLOGBK: S GETBLOCK:GET EXTENSION FOR LOG INFO */ 03657000 */* P EWADDISP = ADDR RCD AREA */ 03658000 */* P IOSLOG = 1. */ 03659000 */*MDRCK: P CLEAR RCD AREA */ 03660000 */* D (YES,,NO,OBRSAVE) ERPRDLOG OR FORMAT 6 ? */ 03661000 */* P EWAMDR = 1. */ 03662000 */* D (YES,,NO,SNSMDR) ZEUS LOG ? */ 03663000 */* P SET RCD SIZE = 154 */ 03664000 */* P (,SETCUA) SET RCDID */ 03665000 */*SNSMDR: P SET RCD SIZE = 56 */ 03666000 */* P SET UNIT TYPE, VOL SER & SENSE. */ 03667000 */*SETCUA: P (,LOGRTRN) SET CHAN UNIT ADDR. */ 03668000 */*OBRSAVE: P SAVE OBR INFO. IOSLOG=1. */ 03669000 */*LOGRTRN: R RETURN TO CALLER */ 03670000 */*MERWCK: E MERWCK */ 03671000 */* D (NO,,YES,%A035) WINCHESTER? */ 03672000 */*MERCK: E MERCK */ 03673000 */* D (N0,,YES,%A035) MERLIN? */ 03674000 */* D (NO,,YES,%A035) ICEBERG? */ 03675000 */*%A035: R RETURN W COND CD */ 03676000 */*CPBLD: E CPBLD */ 03677000 */* P ERPCP=1 */ 03678000 */* P SET 'TOO' ADDR & START ADDR (IOSRST) */ 03679000 */*EXREGLD: P LOAD RELOCATE REG */ 03680000 */* P SET OP CD & DATA ADDR */ 03681000 */* P SET FLGS & LGTH */ 03682000 */* P ZERO HI-ORDER LGTH BYTE */ 03683000 */* D (YES,,NO,%A036) END FLG? */ 03684000 */* R RETURN TO CALLER */ 03685000 */*%A036: P CPFRG = *+8 */ 03686000 */* P (,EXREGLD) WORKRG1 = *+8 */ 03687000 */*TICBLD: E TICBLD */ 03688000 */* P WORKRG1 = *+8 */ 03689000 */* D (YES,,NO,%A037) CCW A TIC? */ 03690000 */* P POINT TO TIC ARG */ 03691000 */*%A037: P BLD TIC */ 03692000 */* R RETURN TO CALLER */ 03693000 */*IECVDERP: END */ 03694000 @DATA DS 0H 03695000 @CH00081 DC H'1' 03696000 @CH02026 DC H'12' 03697000 @CH00095 DC H'56' 03698000 @CH00093 DC H'154' 03699000 @CH00090 DC H'2048' 03700000 @SM02066 MVC MDRSNS(0,@15),EWDASNS(EWAPTR) 03701000 @SM02069 MVC OBRSNS(0,@15),EWDASNS(EWAPTR) 03702000 @DATD DSECT 03703000 DS 0F 03704000 IECVDERP CSECT 03705000 DS 0F 03706000 @CF00088 DC F'4' 03707000 @CF00073 DC F'8' 03708000 @CF00052 DC F'16' 03709000 @CF00055 DC XL4'0000FFFF' 03710000 @CF01989 DC XL4'30000020' 03711000 @CF01993 DC XL4'10000020' 03712000 @DATD DSECT 03713000 DS 0D 03714000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 03715000 @ENDDATD EQU * 03716000 IECVDERP CSECT 03717000 DS 0F 03718000 @SIZDATD DC AL1(0) 03719000 DC AL3(@ENDDATD-@DATD) 03720000 @CV00032 DC V(IECVSMGR) 03721000 @CV00033 DC V(IEAPTRV) 03722000 @CA00034 DC A(IEAMASCB) 03723000 DS 0D 03724000 @CB01943 DC X'0C40' 03725000 @CB00242 DC X'00' 03726000 DS CL1 03727000 FOXFOX DC X'0000FFFF' 03728000 VDERPID DC CL90'IECVDERP SU24 04/28/78 UZ18162 ' 03729000 DS CL2 03730000 IECVDIRQ DS CL8 03731000 ORG IECVDIRQ 03732000 WTODIRQ DC A(0) 03733000 OBRDIRQ DC A(0) 03734000 ORG IECVDIRQ+8 03735000 MASKBYTE DS CL1 03736000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 03737000 @01 EQU 01 03738000 @02 EQU 02 03739000 @03 EQU 03 03740000 @04 EQU 04 03741000 @05 EQU 05 03742000 @06 EQU 06 03743000 @07 EQU 07 03744000 @08 EQU 08 03745000 @09 EQU 09 03746000 @10 EQU 10 03747000 @11 EQU 11 03748000 @12 EQU 12 03749000 @13 EQU 13 03750000 @14 EQU 14 03751000 @15 EQU 15 03752000 IOSBRG EQU @01 03753000 CCWRG1 EQU @02 03754000 WKRG1 EQU @03 03755000 FRRRG EQU @04 03756000 WKRG2 EQU @05 03757000 BASEREG2 EQU @06 03758000 UCBRG EQU @07 03759000 CCWRG EQU @08 03760000 BASERG EQU @09 03761000 EWAPTR EQU @10 03762000 EWARG EQU @10 03763000 WKRG3 EQU @11 03764000 WKRG12 EQU @12 03765000 CALLRG EQU @15 03766000 RTRNRG EQU @14 03767000 ENTRY IECVDIRQ 03768000 EXTRN IEAMASCB 03769000 CVTPTR EQU 16 03770000 DIRCHNPT EQU 0 03771000 IOSB EQU 0 03772000 IOSFLA EQU IOSB 03773000 IOSACHN EQU IOSFLA 03774000 IOSERR EQU IOSFLA 03775000 IOSSMDB EQU IOSFLA 03776000 IOSEX EQU IOSFLA 03777000 IOSFLB EQU IOSB+1 03778000 IOSMSG EQU IOSFLB 03779000 IOSLOG EQU IOSFLB 03780000 IOSFLC EQU IOSB+2 03781000 IOSDVALT EQU IOSFLC 03782000 IOSPROC EQU IOSB+3 03783000 IOSDVRID EQU IOSB+4 03784000 IOSASID EQU IOSB+6 03785000 IOSPKEY EQU IOSB+12 03786000 IOSIDR EQU IOSPKEY 03787000 IOSCOD EQU IOSB+13 03788000 IOSOPT EQU IOSB+14 03789000 IOSBYP EQU IOSOPT 03790000 IOSDEP EQU IOSOPT 03791000 IOSOPT2 EQU IOSB+15 03792000 @NM00002 EQU IOSB+20 03793000 IOSCC EQU @NM00002 03794000 IOSCSW EQU @NM00002+1 03795000 IOSCSWCA EQU IOSCSW 03796000 IOSTATUS EQU IOSCSW+3 03797000 IOSTSA EQU IOSTATUS 03798000 IOSCSWRC EQU IOSCSW+5 03799000 IOSSRB EQU IOSB+28 03800000 IOSSNS EQU IOSB+42 03801000 IOSIPIB EQU IOSB+44 03802000 IOSERP EQU IOSB+52 03803000 IOSRST EQU IOSB+72 03804000 IOSVST EQU IOSB+76 03805000 IOSPATH EQU IOSB+86 03806000 IOSCHN EQU IOSPATH 03807000 IOSFMSK EQU IOSB+88 03808000 IOSCKEY EQU IOSB+89 03809000 IOSEEK EQU IOSB+92 03810000 IOSEEKA EQU IOSB+100 03811000 IOSCCHH EQU IOSEEKA+3 03812000 IOSSKCC EQU IOSCCHH 03813000 IOSSKHH EQU IOSCCHH+2 03814000 IOSSKH2 EQU IOSSKHH+1 03815000 IOSEND EQU IOSB+108 03816000 EWA EQU 0 03817000 EWAHDR EQU EWA 03818000 EWAEXT EQU EWAHDR 03819000 EWAFLAGS EQU EWA+4 03820000 EWAFLG1 EQU EWAFLAGS 03821000 EWASCCD EQU EWAFLG1 03822000 EWASCC3 EQU EWASCCD 03823000 EWADDMSG EQU EWAFLG1 03824000 EWABDSNS EQU EWAFLG1 03825000 EWAFLG2 EQU EWAFLAGS+1 03826000 EWAMDR EQU EWAFLG2 03827000 EWAFLG3 EQU EWAFLAGS+2 03828000 EWASNSCT EQU EWAFLAGS+3 03829000 EWASSTAT EQU EWA+8 03830000 EWACNTRS EQU EWA+10 03831000 EWACNTR1 EQU EWACNTRS 03832000 EWACNTR2 EQU EWACNTRS+1 03833000 EWACNTR3 EQU EWACNTRS+2 03834000 EWAERPIB EQU EWA+16 03835000 EWARGFG1 EQU EWAERPIB+4 03836000 EWANORTY EQU EWARGFG1 03837000 EWARGFG2 EQU EWAERPIB+5 03838000 EWAXCSW1 EQU EWAERPIB+6 03839000 EWAXCSW2 EQU EWAERPIB+7 03840000 EWACHA EQU EWA+24 03841000 EWADCNT EQU EWA+28 03842000 EWADDISP EQU EWA+29 03843000 EWAIERP EQU EWA+32 03844000 DAIDAW EQU 0 03845000 IDAWLEN EQU DAIDAW+2 03846000 DASKARG EQU 0 03847000 DAXSNS EQU 0 03848000 RSTHD EQU DAXSNS+6 03849000 MSSERMSG EQU DAXSNS+7 03850000 FMTSNS EQU MSSERMSG 03851000 FMTBITS EQU FMTSNS 03852000 FMT6BITS EQU FMTBITS 03853000 RSTCCHHR EQU DAXSNS+8 03854000 RSTCCHH EQU RSTCCHHR 03855000 RSTDISP EQU DAXSNS+15 03856000 BKDISP EQU DAXSNS+18 03857000 MSSERRCD EQU BKDISP 03858000 ECCSYN EQU DAXSNS+20 03859000 ERSYM EQU DAXSNS+23 03860000 CULGTH EQU ERSYM 03861000 DTABNDX EQU 0 03862000 DTABNTRY EQU 0 03863000 DNOTKCYL EQU DTABNTRY+2 03864000 DISPSAV EQU 0 03865000 FDISP EQU DISPSAV 03866000 ECNT EQU DISPSAV+2 03867000 RSTRTDSP EQU DISPSAV+5 03868000 ECCBYTE EQU 0 03869000 DAFLG1 EQU 0 03870000 ERPOCSW EQU DAFLG1 03871000 DAFLG2 EQU 0 03872000 ERPRDLOG EQU DAFLG2 03873000 ERPRECAL EQU DAFLG2 03874000 ERPRHA EQU DAFLG2 03875000 ERPCP EQU DAFLG2 03876000 ERPBADHA EQU DAFLG2 03877000 ERPOFLO EQU DAFLG2 03878000 ERPREV EQU DAFLG2 03879000 ERPCYLSW EQU DAFLG2 03880000 ISNS EQU 0 03881000 ISNEQPCK EQU ISNS 03882000 ISNSSKCK EQU ISNS 03883000 ISNSOFLO EQU ISNS+1 03884000 DACCW EQU 0 03885000 COPARG EQU DACCW 03886000 CCWOP EQU COPARG 03887000 MTOP EQU CCWOP 03888000 SCHOPA EQU CCWOP 03889000 CNTOP EQU CCWOP 03890000 TICBITS EQU CCWOP 03891000 SEEKOP EQU TICBITS 03892000 SCHOPB EQU SEEKOP 03893000 CCWDATA EQU COPARG+1 03894000 CFLGLEN EQU DACCW+4 03895000 CCWFLG EQU CFLGLEN 03896000 DCHNBIT EQU CCWFLG 03897000 CCHNBIT EQU CCWFLG 03898000 SLIBIT EQU CCWFLG 03899000 SKIPBIT EQU CCWFLG 03900000 IDABIT EQU CCWFLG 03901000 CPBLDFLG EQU CFLGLEN+1 03902000 CCWCNT EQU CFLGLEN+2 03903000 CPBLDPOS EQU CCWCNT 03904000 FTRCCW EQU 0 03905000 FTROP EQU FTRCCW 03906000 FTRDATA EQU FTRCCW+1 03907000 FTRFLG EQU FTRCCW+4 03908000 FTRSKP EQU FTRFLG 03909000 FTRCNT EQU FTRCCW+6 03910000 DOFLOCCW EQU 0 03911000 OFLOOP EQU DOFLOCCW 03912000 OFLOARG EQU DOFLOCCW+1 03913000 OFLOFLG EQU DOFLOCCW+4 03914000 OFLOSLI EQU OFLOFLG 03915000 OFLOSKIP EQU OFLOFLG 03916000 OFLOPCI EQU OFLOFLG 03917000 OFLOCNT EQU DOFLOCCW+6 03918000 ERPIDAL EQU 0 03919000 USERIDAL EQU 0 03920000 DAFMSK EQU 0 03921000 MSKNORST EQU DAFMSK 03922000 ICSWSTAT EQU 0 03923000 IUNITCK EQU ICSWSTAT 03924000 ICCCK EQU ICSWSTAT+1 03925000 IINTCCK EQU ICSWSTAT+1 03926000 ECSWSTAT EQU 0 03927000 EUNITCK EQU ECSWSTAT 03928000 EPCI EQU ECSWSTAT+1 03929000 EINCLGTH EQU ECSWSTAT+1 03930000 EPGMCK EQU ECSWSTAT+1 03931000 EPROTCK EQU ECSWSTAT+1 03932000 ECDATACK EQU ECSWSTAT+1 03933000 EINTCCK EQU ECSWSTAT+1 03934000 ECHCK EQU ECSWSTAT+1 03935000 EIOSCC EQU 0 03936000 ECC1OR3 EQU EIOSCC 03937000 ESNS2 EQU 0 03938000 EEMU EQU ESNS2 03939000 ESNS4 EQU 0 03940000 ESTRG EQU ESNS4 03941000 EST0 EQU ESTRG 03942000 EST1 EQU ESTRG 03943000 ESNS10 EQU 0 03944000 DMCHECK EQU ESNS10 03945000 INTERFLG EQU 0 03946000 INTFLG1 EQU INTERFLG+7 03947000 INTLOG EQU INTFLG1 03948000 DAMDR EQU 0 03949000 MDRCDSIZ EQU DAMDR 03950000 WKA EQU DAMDR+2 03951000 WKACUA EQU WKA 03952000 WKACHA EQU WKACUA 03953000 WKAUA EQU WKACUA+1 03954000 WKABIT2 EQU WKAUA 03955000 WKASTRG EQU WKAUA 03956000 WKASTRG0 EQU WKASTRG 03957000 WKASTRG1 EQU WKASTRG 03958000 WKASNS4 EQU WKA+2 03959000 MDRID EQU DAMDR+5 03960000 MDRCUA EQU DAMDR+24 03961000 MDRZLOG EQU DAMDR+26 03962000 MDRVOL EQU MDRZLOG 03963000 MDRSNS EQU MDRZLOG+6 03964000 DAOBR EQU 0 03965000 OBRVOL EQU DAOBR 03966000 OBRSKA EQU DAOBR+9 03967000 OBRHOMAD EQU DAOBR+18 03968000 OBRCSW EQU DAOBR+25 03969000 OBRCCW EQU DAOBR+32 03970000 OBRSNS EQU DAOBR+40 03971000 OBRSNS2 EQU OBRSNS+2 03972000 UCB EQU 0 03973000 UCBOB EQU 0 03974000 UCBJBNR EQU UCBOB 03975000 UCBFL5 EQU UCBOB+1 03976000 UCBAF EQU UCBFL5 03977000 UCBENVRD EQU UCBFL5 03978000 UCBSTAT EQU UCBOB+3 03979000 UCBCHAN EQU UCBOB+4 03980000 UCBSFLS EQU UCBOB+6 03981000 UCBFLA EQU UCBSFLS 03982000 UCBFL1 EQU UCBFLA 03983000 UCBBSY EQU UCBFL1 03984000 UCBNRY EQU UCBFL1 03985000 UCBPST EQU UCBFL1 03986000 UCBCUB EQU UCBFL1 03987000 UCBFLB EQU UCBSFLS+1 03988000 UCBCHM EQU UCBOB+8 03989000 UCBCHM1 EQU UCBCHM 03990000 UCBPTH0 EQU UCBCHM1 03991000 UCBPTH1 EQU UCBCHM1 03992000 UCBWGT EQU UCBOB+12 03993000 UCBNAME EQU UCBOB+13 03994000 UCBTYP EQU UCBOB+16 03995000 UCBTBYT1 EQU UCBTYP 03996000 UCB1FEA5 EQU UCBTBYT1 03997000 UCB1FEA6 EQU UCBTBYT1 03998000 UCBTBYT2 EQU UCBTYP+1 03999000 UCB2OPT2 EQU UCBTBYT2 04000000 UCBDUDN1 EQU UCB2OPT2 04001000 UCB2OPT3 EQU UCBTBYT2 04002000 UCBDUDN2 EQU UCB2OPT3 04003000 UCBRPS EQU UCBDUDN2 04004000 UCB2OPT4 EQU UCBTBYT2 04005000 UCBRWTAU EQU UCB2OPT4 04006000 UCBRVDEV EQU UCBRWTAU 04007000 UCB2OPT6 EQU UCBTBYT2 04008000 UCB2OPT7 EQU UCBTBYT2 04009000 UCBTBYT3 EQU UCBTYP+2 04010000 UCBDVCLS EQU UCBTBYT3 04011000 UCBTBYT4 EQU UCBTYP+3 04012000 UCBEXTPT EQU UCBOB+20 04013000 UCBFLC EQU UCBEXTPT 04014000 UCBDEV EQU UCBOB+24 04015000 UCBCMEXT EQU 0 04016000 UCBATI EQU UCBCMEXT+3 04017000 @NM00055 EQU UCBATI 04018000 UCBSNSCT EQU UCBCMEXT+4 04019000 UCBFLP1 EQU UCBCMEXT+5 04020000 UCBMT EQU 0 04021000 UCBOCR EQU 0 04022000 UCB3540X EQU 0 04023000 UCBDKBYT EQU UCB3540X+6 04024000 UCB3800X EQU 0 04025000 UCBOPTNS EQU UCB3800X 04026000 UCBACTIV EQU UCB3800X+3 04027000 UCBMDRBF EQU UCB3800X+36 04028000 UCBUCS EQU 0 04029000 UCBUCSOP EQU UCBUCS+4 04030000 UCBFCBOP EQU UCBUCS+5 04031000 CVTMAP EQU 0 04032000 CVTZDTAB EQU CVTMAP+64 04033000 CVTXITP EQU CVTMAP+68 04034000 CVTDAR EQU CVTMAP+72 04035000 CVTFLGS1 EQU CVTDAR 04036000 CVTDCB EQU CVTMAP+116 04037000 CVTIOQET EQU CVTMAP+120 04038000 CVTIXAVL EQU CVTMAP+124 04039000 CVTIERLC EQU CVTMAP+144 04040000 CVTHEAD EQU CVTMAP+160 04041000 CVTSV76C EQU CVTHEAD 04042000 CVTOPTA EQU CVTMAP+182 04043000 CVTOPTB EQU CVTMAP+183 04044000 CVTGTF EQU CVTMAP+236 04045000 CVTGTFST EQU CVTGTF 04046000 CVTGTFS EQU CVTGTFST 04047000 CVTSTATE EQU CVTGTFST 04048000 CVTTMODE EQU CVTGTFST 04049000 CVTFORM EQU CVTGTFST 04050000 CVTAQAVT EQU CVTMAP+240 04051000 CVTTCMFG EQU CVTAQAVT 04052000 CVTVOLM2 EQU CVTMAP+244 04053000 CVTTATA EQU CVTVOLM2 04054000 CVTTSKS EQU CVTTATA 04055000 CVTVOLF2 EQU CVTTSKS 04056000 CVTTAT EQU CVTTATA+1 04057000 CVTATER EQU CVTMAP+248 04058000 CVTEXT1 EQU CVTMAP+252 04059000 CVTPURG EQU CVTMAP+260 04060000 CVTQMSG EQU CVTMAP+268 04061000 CVTDMSR EQU CVTMAP+272 04062000 CVTRSV37 EQU CVTDMSR 04063000 CVTDMSRF EQU CVTRSV37 04064000 CVTERPV EQU CVTMAP+316 04065000 CVTINTLA EQU CVTMAP+320 04066000 CVTAPF EQU CVTMAP+324 04067000 CVTEXT2 EQU CVTMAP+328 04068000 CVTHJES EQU CVTMAP+332 04069000 CVTPGSIA EQU CVTMAP+348 04070000 CVTA1F1 EQU CVTMAP+356 04071000 CVTSYSK EQU CVTMAP+357 04072000 CVTVOLM1 EQU CVTMAP+380 04073000 CVTVOLF1 EQU CVTVOLM1 04074000 CVTATMCT EQU CVTMAP+388 04075000 CVTXTNT1 EQU 0 04076000 CVTXTNT2 EQU 0 04077000 CVTDSSV EQU CVTXTNT2 04078000 CVTFLGBT EQU CVTXTNT2+5 04079000 CVTQID EQU CVTXTNT2+24 04080000 CVTRV400 EQU CVTXTNT2+52 04081000 CVTRV409 EQU CVTXTNT2+53 04082000 CVTATCVT EQU CVTXTNT2+64 04083000 CVTRV429 EQU CVTXTNT2+84 04084000 CVTRV438 EQU CVTXTNT2+85 04085000 CVTRV457 EQU CVTXTNT2+112 04086000 CVTRV466 EQU CVTXTNT2+113 04087000 CVTFIX EQU 0 04088000 CVTRELNO EQU CVTFIX+252 04089000 IOCOM EQU 0 04090000 IOCVOID EQU IOCOM+32 04091000 VOID EQU 0 04092000 VOIENTRY EQU VOID 04093000 VOIEXTNT EQU VOID+8 04094000 SRBSECT EQU 0 04095000 SRB EQU SRBSECT 04096000 SRBFLNK EQU SRB+4 04097000 SRBASCB EQU SRB+8 04098000 SRBFLC EQU SRB+12 04099000 SRBPASID EQU SRBFLC+2 04100000 SRBPARM EQU SRB+28 04101000 UCBBGN EQU 0 04102000 IOSATTSC EQU IOSIPIB 04103000 IOSWTOWA EQU IOSIPIB 04104000 IOSPCISC EQU IOSIPIB 04105000 EWADDIOS EQU EWAIERP 04106000 EWADAREA EQU EWAIERP 04107000 EWDASNS EQU EWADAREA 04108000 EWDSNS0 EQU EWDASNS 04109000 EWDINT EQU EWDSNS0 04110000 EWDEQU EQU EWDSNS0 04111000 EWDTCC EQU EWDSNS0 04112000 EWDSKCK EQU EWDSNS0 04113000 EWDSNS1 EQU EWDASNS+1 04114000 EWDMAM EQU EWDSNS1 04115000 EWDOFLO EQU EWDSNS1 04116000 EWDSNS2 EQU EWDASNS+2 04117000 EWDZLOG EQU EWDSNS2 04118000 EWDWRPS EQU EWDZLOG 04119000 EWDMDA1 EQU EWDWRPS 04120000 EWDCORR EQU EWDSNS2 04121000 EWD22 EQU EWDSNS2 04122000 EWDMDA2 EQU EWD22 04123000 EWDEDAT EQU EWDSNS2 04124000 EWDSNS3 EQU EWDASNS+3 04125000 EWDSNS4 EQU EWDASNS+4 04126000 EWDSNS5 EQU EWDASNS+5 04127000 EWDSNS8 EQU EWDASNS+8 04128000 EWDSNS10 EQU EWDASNS+10 04129000 EWDSNS24 EQU EWDASNS+24 04130000 EWDRZRO EQU EWDSNS24 04131000 EWDSAVKY EQU EWADAREA+28 04132000 EWDSAVOP EQU EWADAREA+29 04133000 EWDSAVS EQU EWADAREA+30 04134000 EWDSAVC EQU EWADAREA+32 04135000 EWDHOMAD EQU EWADAREA+39 04136000 EWDHAFLG EQU EWDHOMAD 04137000 EWDHADEF EQU EWDHAFLG 04138000 EWDCCHH EQU EWDHOMAD+1 04139000 EWDHARNO EQU EWDHOMAD+5 04140000 EWDCCW1 EQU EWADAREA+48 04141000 EWDCCW2 EQU EWADAREA+56 04142000 EWDCCW3 EQU EWADAREA+64 04143000 EWDCCW4 EQU EWADAREA+72 04144000 EWDCCW5 EQU EWADAREA+80 04145000 EWDCCW6 EQU EWADAREA+88 04146000 EWDCCW8 EQU EWADAREA+104 04147000 EWDCCW9 EQU EWADAREA+112 04148000 EWDCCWA EQU EWADAREA+120 04149000 UCBOBS01 EQU UCBDEV 04150000 UCBVOLI EQU UCBOBS01+4 04151000 UCBSTAB EQU UCBOBS01+10 04152000 UCBBSVL EQU UCBSTAB 04153000 UCBPRSRS EQU UCBSTAB 04154000 UCBDMCT EQU UCBOBS01+11 04155000 UCBFL4 EQU UCBOBS01+13 04156000 UCBOBS02 EQU UCBDEV 04157000 UCBTFL1 EQU UCBOBS02+19 04158000 UCBXTN EQU UCBOBS02+20 04159000 UCBVOPT EQU UCBXTN 04160000 UCBOBS03 EQU UCBDEV 04161000 UCBXTADR EQU UCBOBS03 04162000 UCBOBS04 EQU UCBDEV 04163000 UCBBTA EQU UCBOBS04+12 04164000 UCBOBS06 EQU UCBDEV 04165000 UCBAOF EQU UCBOBS06 04166000 UCBAOF1 EQU UCBAOF 04167000 UCBAOF2 EQU UCBAOF+1 04168000 @NM00054 EQU UCBOBS06+3 04169000 UCBIRB EQU UCBOBS06+4 04170000 UCBGRAF EQU UCBIRB 04171000 UCBLDNCA EQU UCBOBS06+8 04172000 UCBRDYQ EQU UCBLDNCA 04173000 UCBIRLN EQU UCBRDYQ 04174000 UCBLDNCB EQU UCBRDYQ+1 04175000 UCBCTLNK EQU UCBOBS06+12 04176000 UCBOBS07 EQU UCBDEV 04177000 UCBOBS08 EQU UCBDEV 04178000 UCBCTCAD EQU UCBOBS08 04179000 UCBCTCF1 EQU UCBOBS08+4 04180000 UCBOBS09 EQU UCBDEV 04181000 CVTS01 EQU CVTPGSIA 04182000 CVTLPDIA EQU CVTS01+12 04183000 CVTDIRST EQU CVTLPDIA 04184000 CVTSLIDA EQU CVTS01+24 04185000 CVTCTLFG EQU CVTS01+50 04186000 CVTLSMQ EQU CVTS01+268 04187000 CVTRV210 EQU CVTS01+424 04188000 CVTRV219 EQU CVTS01+425 04189000 CVTRV228 EQU CVTS01+426 04190000 CVTRV237 EQU CVTS01+427 04191000 CVTMFRTR EQU CVTS01+452 04192000 CVTRV262 EQU CVTS01+468 04193000 CVTRV271 EQU CVTS01+469 04194000 CVTRV280 EQU CVTS01+470 04195000 CVTRV289 EQU CVTS01+471 04196000 CVTGSDA EQU CVTS01+600 04197000 AGO .@UNREFD START UNREFERENCED COMPONENTS 04198000 CVTRV628 EQU CVTS01+728 04199000 CVTRV627 EQU CVTS01+724 04200000 CVTRV626 EQU CVTS01+720 04201000 CVTRV625 EQU CVTS01+716 04202000 CVTRV624 EQU CVTS01+712 04203000 CVTRV623 EQU CVTS01+708 04204000 CVTRV622 EQU CVTS01+704 04205000 CVTRV621 EQU CVTS01+700 04206000 CVTIHASU EQU CVTS01+696 04207000 CVTSUSP EQU CVTS01+692 04208000 CVTT6SVC EQU CVTS01+688 04209000 CVTCDAL EQU CVTS01+684 04210000 CVTTCTL EQU CVTS01+680 04211000 CVTRSUME EQU CVTS01+676 04212000 CVTJTERM EQU CVTS01+672 04213000 CVTASMRM EQU CVTS01+668 04214000 CVTTCASP EQU CVTS01+664 04215000 CVT0PT03 EQU CVTS01+660 04216000 CVT0PT0E EQU CVTS01+656 04217000 CVTRV609 EQU CVTS01+652 04218000 CVTCGK EQU CVTS01+648 04219000 CVTRAC EQU CVTS01+644 04220000 CVTHSM EQU CVTS01+640 04221000 CVTRV605 EQU CVTS01+636 04222000 CVTRV604 EQU CVTS01+632 04223000 CVTEFF02 EQU CVTS01+628 04224000 CVTCBBR EQU CVTS01+624 04225000 CVTSSCR EQU CVTS01+620 04226000 CVTEVENT EQU CVTS01+616 04227000 CVTCRCA EQU CVTS01+612 04228000 CVTTPIO EQU CVTS01+608 04229000 CVTADV EQU CVTS01+604 04230000 CVTGSDAB EQU CVTGSDA 04231000 CVTQV3 EQU CVTS01+596 04232000 CVTQV2 EQU CVTS01+592 04233000 CVTQV1 EQU CVTS01+588 04234000 CVTRPT EQU CVTS01+584 04235000 CVTSSRB EQU CVTS01+580 04236000 CVTCSDRL EQU CVTS01+576 04237000 CVTEXP1 EQU CVTS01+572 04238000 CVTRMPMT EQU CVTS01+568 04239000 CVTRMPTT EQU CVTS01+564 04240000 CVTVPSA EQU CVTS01+560 04241000 CVTVSTOP EQU CVTS01+556 04242000 CVTGTFR8 EQU CVTS01+552 04243000 CVTQUIT EQU CVTS01+548 04244000 CVTVACR EQU CVTS01+544 04245000 CVTWTCB EQU CVTS01+540 04246000 CVTSTPRS EQU CVTS01+536 04247000 CVT0PT02 EQU CVTS01+532 04248000 CVTDARCM EQU CVTS01+528 04249000 CVTIRECM EQU CVTS01+524 04250000 CVTJRECM EQU CVTS01+520 04251000 CVTVEMS0 EQU CVTS01+516 04252000 CVTSPFRR EQU CVTS01+512 04253000 CVTRLSTG EQU CVTS01+508 04254000 CVT0TC0A EQU CVTS01+504 04255000 CVTGMBR EQU CVTS01+500 04256000 CVTLFRM EQU CVTS01+496 04257000 CVTRMBR EQU CVTS01+492 04258000 CVTVIOP EQU CVTS01+488 04259000 CVTRV307 EQU CVTS01+486 04260000 CVTRV306 EQU CVTS01+484 04261000 CVTRV305 EQU CVTS01+482 04262000 CVTRV304 EQU CVTS01+480 04263000 CVTRV303 EQU CVTS01+478 04264000 CVTRV302 EQU CVTS01+476 04265000 CVTTRCA EQU CVTS01+472 04266000 CVTRV297 EQU CVTRV289 04267000 CVTRV296 EQU CVTRV289 04268000 CVTRV295 EQU CVTRV289 04269000 CVTRV294 EQU CVTRV289 04270000 CVTRV293 EQU CVTRV289 04271000 CVTRV292 EQU CVTRV289 04272000 CVTRV291 EQU CVTRV289 04273000 CVTRV290 EQU CVTRV289 04274000 CVTRV288 EQU CVTRV280 04275000 CVTRV287 EQU CVTRV280 04276000 CVTRV286 EQU CVTRV280 04277000 CVTRV285 EQU CVTRV280 04278000 CVTRV284 EQU CVTRV280 04279000 CVTRV283 EQU CVTRV280 04280000 CVTRV282 EQU CVTRV280 04281000 CVTRV281 EQU CVTRV280 04282000 CVTRV279 EQU CVTRV271 04283000 CVTRV278 EQU CVTRV271 04284000 CVTRV277 EQU CVTRV271 04285000 CVTRV276 EQU CVTRV271 04286000 CVTRV275 EQU CVTRV271 04287000 CVTRV274 EQU CVTRV271 04288000 CVTRV273 EQU CVTRV271 04289000 CVTRV272 EQU CVTRV271 04290000 CVTRV270 EQU CVTRV262 04291000 CVTRV269 EQU CVTRV262 04292000 CVTRV268 EQU CVTRV262 04293000 CVTRV267 EQU CVTRV262 04294000 CVTRV266 EQU CVTRV262 04295000 CVTRV265 EQU CVTRV262 04296000 CVTRV264 EQU CVTRV262 04297000 CVTRV263 EQU CVTRV262 04298000 CVTVFP EQU CVTS01+464 04299000 CVTVSI EQU CVTS01+460 04300000 CVTVPSIB EQU CVTS01+456 04301000 CVTMFACT EQU CVTMFRTR 04302000 CVTMFCTL EQU CVTS01+448 04303000 CVTPVBP EQU CVTS01+444 04304000 CVTPWI EQU CVTS01+440 04305000 CVTRV254 EQU CVTS01+438 04306000 CVTRV253 EQU CVTS01+436 04307000 CVTRV252 EQU CVTS01+434 04308000 CVTRV251 EQU CVTS01+433 04309000 CVTRV250 EQU CVTS01+432 04310000 CVTRV249 EQU CVTS01+431 04311000 CVTRV248 EQU CVTS01+430 04312000 CVTRV247 EQU CVTS01+429 04313000 CVTRV246 EQU CVTS01+428 04314000 CVTRV245 EQU CVTRV237 04315000 CVTRV244 EQU CVTRV237 04316000 CVTRV243 EQU CVTRV237 04317000 CVTRV242 EQU CVTRV237 04318000 CVTRV241 EQU CVTRV237 04319000 CVTRV240 EQU CVTRV237 04320000 CVTRV239 EQU CVTRV237 04321000 CVTRV238 EQU CVTRV237 04322000 CVTRV236 EQU CVTRV228 04323000 CVTRV235 EQU CVTRV228 04324000 CVTRV234 EQU CVTRV228 04325000 CVTRV233 EQU CVTRV228 04326000 CVTRV232 EQU CVTRV228 04327000 CVTRV231 EQU CVTRV228 04328000 CVTRV230 EQU CVTRV228 04329000 CVTRV229 EQU CVTRV228 04330000 CVTRV227 EQU CVTRV219 04331000 CVTRV226 EQU CVTRV219 04332000 CVTRV225 EQU CVTRV219 04333000 CVTRV224 EQU CVTRV219 04334000 CVTRV223 EQU CVTRV219 04335000 CVTRV222 EQU CVTRV219 04336000 CVTRV221 EQU CVTRV219 04337000 CVTRV220 EQU CVTRV219 04338000 CVTRV218 EQU CVTRV210 04339000 CVTRV217 EQU CVTRV210 04340000 CVTRV216 EQU CVTRV210 04341000 CVTRV215 EQU CVTRV210 04342000 CVTRV214 EQU CVTRV210 04343000 CVTRV213 EQU CVTRV210 04344000 CVTRV212 EQU CVTRV210 04345000 CVTRV211 EQU CVTRV210 04346000 CVTLCCAT EQU CVTS01+420 04347000 CVTPCCAT EQU CVTS01+416 04348000 CVTIPCRP EQU CVTS01+412 04349000 CVTIPCRI EQU CVTS01+408 04350000 CVTIPCDS EQU CVTS01+404 04351000 CVTAIDVT EQU CVTS01+400 04352000 CVTSSAP EQU CVTS01+396 04353000 CVTEHCIR EQU CVTS01+392 04354000 CVTEHDEF EQU CVTS01+388 04355000 CVTDAIR EQU CVTS01+384 04356000 CVTPERFM EQU CVTS01+380 04357000 CVT044R2 EQU CVTS01+376 04358000 CVTFETCH EQU CVTS01+372 04359000 CVTRSTWD EQU CVTS01+368 04360000 CVTSPOST EQU CVTS01+364 04361000 CVTIOBP EQU CVTS01+360 04362000 CVTASMVT EQU CVTS01+356 04363000 CVTRECRQ EQU CVTS01+352 04364000 CVTWSAC EQU CVTS01+348 04365000 CVTRV149 EQU CVTS01+344 04366000 CVTWSAL EQU CVTS01+340 04367000 CVTSPSA EQU CVTS01+336 04368000 CVTGLMN EQU CVTS01+332 04369000 CVTVEAC0 EQU CVTS01+328 04370000 CVT062R1 EQU CVTS01+324 04371000 CVTRPOST EQU CVTS01+320 04372000 CVTDQIQE EQU CVTS01+316 04373000 CVTCSD EQU CVTS01+312 04374000 CVTLKRMA EQU CVTS01+308 04375000 CVTRSPIE EQU CVTS01+304 04376000 CVTRENQ EQU CVTS01+300 04377000 CVTLQCB EQU CVTS01+296 04378000 CVTFQCB EQU CVTS01+292 04379000 CVTQCS01 EQU CVTS01+288 04380000 CVTAPFT EQU CVTS01+284 04381000 CVTPARRL EQU CVTS01+280 04382000 CVTVWAIT EQU CVTS01+276 04383000 CVTGSPL EQU CVTS01+272 04384000 CVTGSMQ EQU CVTS01+264 04385000 CVTEXPRO EQU CVTS01+260 04386000 CVTOPCTP EQU CVTS01+256 04387000 CVTSIC EQU CVTS01+252 04388000 CVTTPIOS EQU CVTS01+248 04389000 CVTRTMS EQU CVTS01+244 04390000 CVTSDBF EQU CVTS01+240 04391000 CVTSCBP EQU CVTS01+236 04392000 CVTSDMP EQU CVTS01+232 04393000 CVTSV60 EQU CVTS01+228 04394000 CVTRTMCT EQU CVTS01+224 04395000 CVTASCBL EQU CVTS01+220 04396000 CVTASCBH EQU CVTS01+216 04397000 CVTGDA EQU CVTS01+212 04398000 CVTASVT EQU CVTS01+208 04399000 CVTVVMDI EQU CVTS01+204 04400000 CVTAQTOP EQU CVTS01+200 04401000 CVTIOSCS EQU CVTS01+196 04402000 CVTSDRM EQU CVTS01+192 04403000 CVTOPTE EQU CVTS01+188 04404000 CVTSTXU EQU CVTS01+184 04405000 CVTQUIS EQU CVTS01+180 04406000 CVTPARS EQU CVTS01+176 04407000 CVTS1EE EQU CVTS01+172 04408000 CVTFRAS EQU CVTS01+168 04409000 CVTQSAS EQU CVTS01+164 04410000 CVTCRAS EQU CVTS01+160 04411000 CVTCRMN EQU CVTS01+156 04412000 CVTDELCP EQU CVTS01+152 04413000 CVTFRECL EQU CVTS01+148 04414000 CVTGETCL EQU CVTS01+144 04415000 CVTBLDCP EQU CVTS01+140 04416000 CVTAUTHL EQU CVTS01+136 04417000 CVTSCAN EQU CVTS01+132 04418000 CVTRV144 EQU CVTS01+130 04419000 CVTMAXMP EQU CVTS01+128 04420000 CVTSTCK EQU CVTS01+124 04421000 CVTRV139 EQU CVTS01+123 04422000 CVTDSSAC EQU CVTS01+122 04423000 CVTRV513 EQU CVTS01+121 04424000 CVTIOSPL EQU CVTS01+120 04425000 CVTPTGT EQU CVTS01+116 04426000 CVTCSPIE EQU CVTS01+112 04427000 CVTSMFEX EQU CVTS01+108 04428000 CVTOLT0A EQU CVTS01+104 04429000 CVTSRBRT EQU CVTS01+100 04430000 CVTPUTL EQU CVTS01+96 04431000 CVTASCRL EQU CVTS01+92 04432000 CVTASCRF EQU CVTS01+88 04433000 CVTRV326 EQU CVTS01+84 04434000 CVTRV325 EQU CVTS01+80 04435000 CVTRV324 EQU CVTS01+76 04436000 CVT0VL01 EQU CVTS01+72 04437000 CVTSHRVM EQU CVTS01+68 04438000 CVTRV332 EQU CVTS01+64 04439000 CVTTAS EQU CVTS01+60 04440000 CVTRSCN EQU CVTS01+56 04441000 CVTTRAC2 EQU CVTS01+54 04442000 CVTTRACE EQU CVTS01+52 04443000 CVTAPG EQU CVTS01+51 04444000 CVTSDTRC EQU CVTCTLFG 04445000 CVTGTRCE EQU CVTCTLFG 04446000 CVTNOMP EQU CVTCTLFG 04447000 CVTRSV79 EQU CVTCTLFG 04448000 CVTDSTAT EQU CVTCTLFG 04449000 CVTRSV78 EQU CVTCTLFG 04450000 CVTRV333 EQU CVTCTLFG 04451000 CVTRV323 EQU CVTCTLFG 04452000 CVTSPVLK EQU CVTS01+49 04453000 CVTRSV77 EQU CVTS01+48 04454000 CVTRV331 EQU CVTS01+44 04455000 CVTRV330 EQU CVTS01+40 04456000 CVTRV329 EQU CVTS01+36 04457000 CVTRV328 EQU CVTS01+32 04458000 CVTRV322 EQU CVTS01+28 04459000 CVTSLID EQU CVTSLIDA+1 04460000 CVTSYLK EQU CVTSLIDA 04461000 CVTRV321 EQU CVTS01+20 04462000 CVTRV320 EQU CVTS01+16 04463000 CVTLPDIR EQU CVTLPDIA+1 04464000 CVTRSV69 EQU CVTDIRST 04465000 CVTRSV68 EQU CVTDIRST 04466000 CVTRSV67 EQU CVTDIRST 04467000 CVTRSV66 EQU CVTDIRST 04468000 CVTRSV65 EQU CVTDIRST 04469000 CVTRSV64 EQU CVTDIRST 04470000 CVTRSV63 EQU CVTDIRST 04471000 CVTDICOM EQU CVTDIRST 04472000 CVTPVTP EQU CVTS01+8 04473000 CVTLPDSR EQU CVTS01+4 04474000 CVTGETL EQU CVTS01 04475000 UCBRV066 EQU UCBOBS09+4 04476000 UCBIOSBA EQU UCBOBS09 04477000 UCBRV042 EQU UCBOBS08+5 04478000 UCBRV082 EQU UCBCTCF1 04479000 UCBRV081 EQU UCBCTCF1 04480000 UCBRV080 EQU UCBCTCF1 04481000 UCBRV079 EQU UCBCTCF1 04482000 UCBRV078 EQU UCBCTCF1 04483000 UCBRV077 EQU UCBCTCF1 04484000 UCBRV076 EQU UCBCTCF1 04485000 UCBCTC80 EQU UCBCTCF1 04486000 UCBCTCAL EQU UCBCTCAD 04487000 UCBICNCB EQU UCBOBS07+4 04488000 UCBRV040 EQU UCBOBS07 04489000 UCBCTLNA EQU UCBCTLNK+1 04490000 UCBRLN EQU UCBCTLNK 04491000 UCBRDYQA EQU UCBLDNCB 04492000 UCBINRLN EQU UCBIRLN 04493000 UCBIRBA EQU UCBIRB+1 04494000 UCBRV039 EQU UCBGRAF 04495000 UCBDWNR EQU UCBGRAF 04496000 UCBRPND EQU UCBGRAF 04497000 UCBUPM EQU UCBGRAF 04498000 UCBBTAM EQU UCBGRAF 04499000 UCBDRNO EQU UCBGRAF 04500000 UCBDRO EQU UCBGRAF 04501000 UCBOIP EQU UCBGRAF 04502000 UCBATRCD EQU @NM00054 04503000 UCBSKPFG EQU @NM00054 04504000 UCBRIPND EQU @NM00054 04505000 UCBRTIAC EQU @NM00054 04506000 UCBRSV79 EQU @NM00054 04507000 UCBRSV78 EQU @NM00054 04508000 UCBRSV77 EQU @NM00054 04509000 UCBOLTEP EQU @NM00054 04510000 UCBATNCT EQU UCBOBS06+2 04511000 UCBRSV76 EQU UCBAOF2 04512000 UCBRSV75 EQU UCBAOF2 04513000 UCBRSV74 EQU UCBAOF2 04514000 UCBRSV73 EQU UCBAOF2 04515000 UCBRSV72 EQU UCBAOF2 04516000 UCBRSV71 EQU UCBAOF2 04517000 UCBRSV70 EQU UCBAOF2 04518000 UCBRSV69 EQU UCBAOF2 04519000 UCBRSV68 EQU UCBAOF1 04520000 UCBRSV67 EQU UCBAOF1 04521000 UCBRSV66 EQU UCBAOF1 04522000 UCBRSV65 EQU UCBAOF1 04523000 UCBRSV64 EQU UCBAOF1 04524000 UCBOFNL EQU UCBAOF1 04525000 UCBOFSP EQU UCBAOF1 04526000 UCBOFMCR EQU UCBAOF1 04527000 UCBBTB EQU UCBBTA+1 04528000 UCBDI EQU UCBBTA 04529000 UCBSNS EQU UCBOBS04+8 04530000 UCBTEB EQU UCBOBS04+4 04531000 UCBGCB EQU UCBOBS04+3 04532000 UCBOPEN EQU UCBOBS04+2 04533000 UCBSTART EQU UCBOBS04 04534000 UCBXTNB EQU UCBXTN+1 04535000 UCBRSV22 EQU UCBVOPT 04536000 UCBRSV21 EQU UCBVOPT 04537000 UCBRSV20 EQU UCBVOPT 04538000 UCBESVE EQU UCBVOPT 04539000 UCBERPC EQU UCBVOPT 04540000 UCBESVC EQU UCBVOPT 04541000 UCBEVA EQU UCBVOPT 04542000 UCBESV EQU UCBVOPT 04543000 UCBRV009 EQU UCBTFL1 04544000 UCBRV008 EQU UCBTFL1 04545000 UCBRV007 EQU UCBTFL1 04546000 UCBRV006 EQU UCBTFL1 04547000 UCBRV005 EQU UCBTFL1 04548000 UCBDQDSP EQU UCBTFL1 04549000 UCBNSLTP EQU UCBTFL1 04550000 UCBNLTP EQU UCBTFL1 04551000 UCBRES1B EQU UCBOBS02+18 04552000 UCBFSER EQU UCBOBS02+12 04553000 @NM00053 EQU UCBOBS02+4 04554000 UCBFSEQ EQU UCBOBS02+2 04555000 UCBFSCT EQU UCBOBS02 04556000 UCBNEXP EQU UCBOBS01+20 04557000 UCBBASE EQU UCBOBS01+16 04558000 UCBRES1A EQU UCBOBS01+15 04559000 UCBUSER EQU UCBOBS01+14 04560000 UCBFL47 EQU UCBFL4 04561000 UCBMAT EQU UCBFL4 04562000 UCBHOLD EQU UCBFL4 04563000 UCBATTN EQU UCBFL4 04564000 UCBDSS EQU UCBFL4 04565000 UCBRESVP EQU UCBFL4 04566000 UCBWDAV EQU UCBFL4 04567000 UCBDAVV EQU UCBFL4 04568000 UCBSQC EQU UCBOBS01+12 04569000 UCBDATP EQU UCBOBS01+12 04570000 UCBDMC EQU UCBDMCT 04571000 UCBMOUNT EQU UCBDMCT 04572000 UCBBNUL EQU UCBSTAB 04573000 UCBSHAR EQU UCBSTAB 04574000 UCBBSTR EQU UCBSTAB 04575000 UCBBPUB EQU UCBSTAB 04576000 UCBBPRV EQU UCBSTAB 04577000 UCBBALB EQU UCBPRSRS 04578000 UCBPGFL EQU UCBSTAB 04579000 UCBDVSHR EQU UCBBSVL 04580000 UCBVTOC EQU UCBOBS01 04581000 EWDEND EQU EWADAREA+128 04582000 EWDCCW7 EQU EWADAREA+96 04583000 EWDDISP EQU EWADAREA+45 04584000 EWDHAALT EQU EWDHAFLG 04585000 EWDHA5 EQU EWDHAFLG 04586000 EWDHA4 EQU EWDHAFLG 04587000 EWDHA3 EQU EWDHAFLG 04588000 EWDHA2 EQU EWDHAFLG 04589000 EWDHA1 EQU EWDHAFLG 04590000 EWDHA0 EQU EWDHAFLG 04591000 EWDSNS27 EQU EWDASNS+27 04592000 EWDSNS26 EQU EWDASNS+26 04593000 EWDSNS25 EQU EWDASNS+25 04594000 EWDSNS23 EQU EWDASNS+23 04595000 EWDSNS22 EQU EWDASNS+22 04596000 EWDSNS21 EQU EWDASNS+21 04597000 EWDSNS20 EQU EWDASNS+20 04598000 EWDSNS19 EQU EWDASNS+19 04599000 EWDSNS18 EQU EWDASNS+18 04600000 EWDSNS17 EQU EWDASNS+17 04601000 EWDSNS16 EQU EWDASNS+16 04602000 EWDSNS15 EQU EWDASNS+15 04603000 EWDSNS14 EQU EWDASNS+14 04604000 EWDSNS13 EQU EWDASNS+13 04605000 EWDSNS12 EQU EWDASNS+12 04606000 EWDSNS11 EQU EWDASNS+11 04607000 EWD107 EQU EWDSNS10 04608000 EWD106 EQU EWDSNS10 04609000 EWD105 EQU EWDSNS10 04610000 EWD104 EQU EWDSNS10 04611000 EWDSTAT EQU EWDSNS10 04612000 EWD100 EQU EWDSNS10 04613000 EWDSNS9 EQU EWDASNS+9 04614000 EWDSNS7 EQU EWDASNS+7 04615000 EWDSNS6 EQU EWDASNS+6 04616000 EWD27 EQU EWDSNS2 04617000 EWD26 EQU EWDSNS2 04618000 EWD25 EQU EWDSNS2 04619000 EWD24 EQU EWDSNS2 04620000 EWDINHI EQU EWDMAM 04621000 EWDFP EQU EWDSNS1 04622000 EWDNRF EQU EWDSNS1 04623000 EWD13 EQU EWDSNS1 04624000 EWDEOC EQU EWDSNS1 04625000 EWDTVRN EQU EWDSNS1 04626000 EWDPERM EQU EWDSNS1 04627000 EWDOVRN EQU EWDSNS0 04628000 EWDDATA EQU EWDSNS0 04629000 EWDBUSO EQU EWDSNS0 04630000 EWDCREJ EQU EWDSNS0 04631000 EWAEND EQU EWADDIOS+71 04632000 EWASCSW EQU EWADDIOS+64 04633000 EWASNS EQU EWADDIOS 04634000 IOSPCIWA EQU IOSPCISC+44 04635000 IOSPCIRS EQU IOSPCISC+8 04636000 @NM00007 EQU IOSPCISC+4 04637000 @NM00006 EQU IOSPCISC 04638000 IOSWRNDR EQU IOSWTOWA+4 04639000 IOSWTOPT EQU IOSWTOWA+3 04640000 IOSWTOCP EQU IOSWTOWA+2 04641000 IOSWTOCH EQU IOSWTOWA 04642000 IOSATTWA EQU IOSATTSC+40 04643000 @NM00005 EQU IOSATTSC+24 04644000 IOSATTSN EQU IOSATTSC 04645000 @NM00061 EQU SRB+40 04646000 @NM00060 EQU SRB+38 04647000 SRBPRIOR EQU SRB+37 04648000 SRBPKF EQU SRB+36 04649000 SRBSAVE EQU SRB+32 04650000 SRBRMTR EQU SRB+24 04651000 SRBEP EQU SRB+20 04652000 SRBPTCB EQU SRBFLC+4 04653000 SRBCPAFF EQU SRBFLC 04654000 SRBID EQU SRB 04655000 VOIEND EQU VOID+12 04656000 VOIRSTR EQU VOID+4 04657000 VOIPRG EQU VOIENTRY 04658000 IOCOEND EQU IOCOM+128 04659000 IOCPATCH EQU IOCOM+124 04660000 IOCUCBBM EQU IOCOM+120 04661000 IOCQCNT EQU IOCOM+116 04662000 IOCIOSDQ EQU IOCOM+112 04663000 IOCIOSEQ EQU IOCOM+108 04664000 IOCSVCF EQU IOCOM+104 04665000 IOCTCCW EQU IOCOM+100 04666000 IOCRSVTB EQU IOCOM+96 04667000 IOCMFCNT EQU IOCOM+92 04668000 IOCMFHK EQU IOCOM+88 04669000 IOCGENA EQU IOCOM+84 04670000 IOCCCH EQU IOCOM+80 04671000 IOCASYNQ EQU IOCOM+76 04672000 IOCLCHTB EQU IOCOM+72 04673000 IOCATTBL EQU IOCOM+68 04674000 IOCOMEX EQU IOCOM+64 04675000 IOCSYNCH EQU IOCOM+56 04676000 IOCCATLK EQU IOCOM+48 04677000 IOCPRGID EQU IOCOM+44 04678000 IOCIOSCP EQU IOCOM+40 04679000 IOCORMGT EQU IOCOM+36 04680000 IOCSTIO EQU IOCOM+28 04681000 @NM00059 EQU IOCOM+24 04682000 @NM00058 EQU IOCOM+20 04683000 IOCINT EQU IOCOM+16 04684000 IOCCTBL EQU IOCOM+12 04685000 IOCHIO EQU IOCOM+8 04686000 IOCPST EQU IOCOM+4 04687000 IOCPGCT EQU IOCOM+2 04688000 IOCVOICT EQU IOCOM 04689000 CVTLEVL EQU CVTRELNO+2 04690000 CVTNUMB EQU CVTRELNO 04691000 CVTMDL EQU CVTFIX+250 04692000 @NM00057 EQU CVTFIX+248 04693000 @NM00056 EQU CVTFIX 04694000 CVTRV482 EQU CVTXTNT2+128 04695000 CVTRV481 EQU CVTXTNT2+124 04696000 CVTRV480 EQU CVTXTNT2+120 04697000 CVTRV479 EQU CVTXTNT2+118 04698000 CVTRV478 EQU CVTXTNT2+117 04699000 CVTRV477 EQU CVTXTNT2+116 04700000 CVTRV476 EQU CVTXTNT2+115 04701000 CVTRV475 EQU CVTXTNT2+114 04702000 CVTRV474 EQU CVTRV466 04703000 CVTRV473 EQU CVTRV466 04704000 CVTRV472 EQU CVTRV466 04705000 CVTRV471 EQU CVTRV466 04706000 CVTRV470 EQU CVTRV466 04707000 CVTRV469 EQU CVTRV466 04708000 CVTRV468 EQU CVTRV466 04709000 CVTRV467 EQU CVTRV466 04710000 CVTRV465 EQU CVTRV457 04711000 CVTRV464 EQU CVTRV457 04712000 CVTRV463 EQU CVTRV457 04713000 CVTRV462 EQU CVTRV457 04714000 CVTRV461 EQU CVTRV457 04715000 CVTRV460 EQU CVTRV457 04716000 CVTRV459 EQU CVTRV457 04717000 CVTRV458 EQU CVTRV457 04718000 CVTRV456 EQU CVTXTNT2+108 04719000 CVTRV455 EQU CVTXTNT2+104 04720000 CVTRV454 EQU CVTXTNT2+100 04721000 CVTRV453 EQU CVTXTNT2+96 04722000 CVTRV452 EQU CVTXTNT2+94 04723000 CVTRV451 EQU CVTXTNT2+92 04724000 CVTRV450 EQU CVTXTNT2+90 04725000 CVTRV449 EQU CVTXTNT2+88 04726000 CVTRV448 EQU CVTXTNT2+87 04727000 CVTRV447 EQU CVTXTNT2+86 04728000 CVTRV446 EQU CVTRV438 04729000 CVTRV445 EQU CVTRV438 04730000 CVTRV444 EQU CVTRV438 04731000 CVTRV443 EQU CVTRV438 04732000 CVTRV442 EQU CVTRV438 04733000 CVTRV441 EQU CVTRV438 04734000 CVTRV440 EQU CVTRV438 04735000 CVTRV439 EQU CVTRV438 04736000 CVTRV437 EQU CVTRV429 04737000 CVTRV436 EQU CVTRV429 04738000 CVTRV435 EQU CVTRV429 04739000 CVTRV434 EQU CVTRV429 04740000 CVTRV433 EQU CVTRV429 04741000 CVTRV432 EQU CVTRV429 04742000 CVTRV431 EQU CVTRV429 04743000 CVTRV430 EQU CVTRV429 04744000 CVTRV428 EQU CVTXTNT2+80 04745000 CVTRV427 EQU CVTXTNT2+76 04746000 CVTRV426 EQU CVTXTNT2+72 04747000 CVTRV425 EQU CVTXTNT2+68 04748000 CVTATACT EQU CVTATCVT 04749000 CVTRV423 EQU CVTXTNT2+62 04750000 CVTRV422 EQU CVTXTNT2+60 04751000 CVTRV421 EQU CVTXTNT2+58 04752000 CVTRV420 EQU CVTXTNT2+56 04753000 CVTRV419 EQU CVTXTNT2+55 04754000 CVTRV418 EQU CVTXTNT2+54 04755000 CVTRV417 EQU CVTRV409 04756000 CVTRV416 EQU CVTRV409 04757000 CVTRV415 EQU CVTRV409 04758000 CVTRV414 EQU CVTRV409 04759000 CVTRV413 EQU CVTRV409 04760000 CVTRV412 EQU CVTRV409 04761000 CVTRV411 EQU CVTRV409 04762000 CVTRV410 EQU CVTRV409 04763000 CVTRV408 EQU CVTRV400 04764000 CVTRV407 EQU CVTRV400 04765000 CVTRV406 EQU CVTRV400 04766000 CVTRV405 EQU CVTRV400 04767000 CVTRV404 EQU CVTRV400 04768000 CVTRV403 EQU CVTRV400 04769000 CVTRV402 EQU CVTRV400 04770000 CVTRV401 EQU CVTRV400 04771000 CVTICB EQU CVTXTNT2+48 04772000 CVTSKTA EQU CVTXTNT2+44 04773000 CVTCCVT EQU CVTXTNT2+40 04774000 CVTRSV98 EQU CVTXTNT2+36 04775000 CVTRSV97 EQU CVTXTNT2+34 04776000 CVTRSV96 EQU CVTXTNT2+32 04777000 CVTOLTEP EQU CVTXTNT2+28 04778000 CVTQIDA EQU CVTQID+1 04779000 CVTRSV95 EQU CVTQID 04780000 CVTRSV94 EQU CVTXTNT2+20 04781000 CVTRSV93 EQU CVTXTNT2+16 04782000 CVTRSV92 EQU CVTXTNT2+12 04783000 CVTDEBVR EQU CVTXTNT2+8 04784000 CVTRSV91 EQU CVTXTNT2+6 04785000 CVTRSV9H EQU CVTFLGBT 04786000 CVTRSV9G EQU CVTFLGBT 04787000 CVTRSV9F EQU CVTFLGBT 04788000 CVTRSV9E EQU CVTFLGBT 04789000 CVTRSV9D EQU CVTFLGBT 04790000 CVTRSV9C EQU CVTFLGBT 04791000 CVTVME EQU CVTFLGBT 04792000 CVTNPE EQU CVTFLGBT 04793000 CVTNUCLS EQU CVTXTNT2+4 04794000 CVTDSSVA EQU CVTDSSV+1 04795000 CVTRSV89 EQU CVTDSSV 04796000 CVTRSV88 EQU CVTXTNT1+8 04797000 CVTRSV87 EQU CVTXTNT1+4 04798000 CVTFACHN EQU CVTXTNT1 04799000 CVTRV488 EQU CVTMAP+412 04800000 CVTRV487 EQU CVTMAP+408 04801000 CVTRV486 EQU CVTMAP+404 04802000 CVTRV485 EQU CVTMAP+400 04803000 CVTACTAP EQU CVTMAP+396 04804000 CVTAUTH EQU CVTMAP+392 04805000 CVTATMCA EQU CVTATMCT+1 04806000 CVTATMST EQU CVTATMCT 04807000 CVTRSV61 EQU CVTMAP+384 04808000 CVTVOLT1 EQU CVTVOLM1+1 04809000 CVTVOLI1 EQU CVTVOLF1 04810000 CVTSTOA EQU CVTMAP+376 04811000 CVTRSV58 EQU CVTMAP+374 04812000 CVTRSV57 EQU CVTMAP+372 04813000 CVTDDCE EQU CVTMAP+368 04814000 CVTPNWFR EQU CVTMAP+364 04815000 CVTSMF EQU CVTMAP+360 04816000 CVTSULK EQU CVTMAP+358 04817000 CVTSLKO EQU CVTSYSK 04818000 CVTSLKP EQU CVTSYSK 04819000 CVTSLKQ EQU CVTSYSK 04820000 CVTSLKR EQU CVTSYSK 04821000 CVTRSV56 EQU CVTSYSK 04822000 CVTRSV55 EQU CVTSYSK 04823000 CVTRSV54 EQU CVTSYSK 04824000 CVTRSV53 EQU CVTSYSK 04825000 CVTRSV52 EQU CVTA1F1 04826000 CVTRSV51 EQU CVTA1F1 04827000 CVTRSV50 EQU CVTA1F1 04828000 CVTRSV49 EQU CVTA1F1 04829000 CVTRSV48 EQU CVTA1F1 04830000 CVTRSV47 EQU CVTA1F1 04831000 CVTSRSW EQU CVTA1F1 04832000 CVTPFSW EQU CVTA1F1 04833000 CVTPCVT EQU CVTMAP+352 04834000 CVTRSV46 EQU CVTMAP+344 04835000 CVTRSV45 EQU CVTMAP+340 04836000 CVTRSV44 EQU CVTMAP+338 04837000 CVTRSV43 EQU CVTMAP+336 04838000 CVTHJESA EQU CVTHJES+1 04839000 CVTRSV42 EQU CVTHJES 04840000 CVTEXT2A EQU CVTEXT2+1 04841000 CVTRSV41 EQU CVTEXT2 04842000 CVTAPFA EQU CVTAPF+1 04843000 CVTRSV40 EQU CVTAPF 04844000 CVTRV518 EQU CVTINTLA 04845000 CVTRV517 EQU CVTERPV 04846000 CVTEORM EQU CVTMAP+312 04847000 CVTMCHPR EQU CVTMAP+308 04848000 CVTTZ EQU CVTMAP+304 04849000 CVTJEPS EQU CVTMAP+300 04850000 CVTJESCT EQU CVTMAP+296 04851000 CVTMODE EQU CVTMAP+292 04852000 CVTPTRV EQU CVTMAP+288 04853000 CVTREAL EQU CVTMAP+284 04854000 CVTRSV39 EQU CVTMAP+280 04855000 CVTRSV38 EQU CVTMAP+276 04856000 CVTDMSRA EQU CVTDMSR+1 04857000 CVTRV634 EQU CVTDMSRF 04858000 CVTRV633 EQU CVTDMSRF 04859000 CVTRV632 EQU CVTDMSRF 04860000 CVTRV631 EQU CVTDMSRF 04861000 CVTRV630 EQU CVTDMSRF 04862000 CVTRV629 EQU CVTDMSRF 04863000 CVTUDUMP EQU CVTDMSRF 04864000 CVTSDUMP EQU CVTDMSRF 04865000 CVTQMSGA EQU CVTQMSG+1 04866000 CVTRSV36 EQU CVTQMSG 04867000 CVTAMFF EQU CVTMAP+264 04868000 CVTPURGA EQU CVTPURG+1 04869000 CVTRSV35 EQU CVTPURG 04870000 CVTCBSP EQU CVTMAP+256 04871000 CVTATERA EQU CVTATER+1 04872000 CVTSYST EQU CVTATER 04873000 CVTVOLT2 EQU CVTTAT 04874000 CVTVOLI2 EQU CVTVOLF2 04875000 CVTAQAVB EQU CVTAQAVT+1 04876000 CVTRSV34 EQU CVTTCMFG 04877000 CVTRSV33 EQU CVTTCMFG 04878000 CVTRSV32 EQU CVTTCMFG 04879000 CVTRSV31 EQU CVTTCMFG 04880000 CVTRSV30 EQU CVTTCMFG 04881000 CVTRSV29 EQU CVTTCMFG 04882000 CVTLDEV EQU CVTTCMFG 04883000 CVTTCRDY EQU CVTTCMFG 04884000 CVTGTFA EQU CVTGTF+1 04885000 CVTRSV27 EQU CVTGTFST 04886000 CVTRNIO EQU CVTGTFST 04887000 CVTUSR EQU CVTGTFST 04888000 CVTRV318 EQU CVTFORM 04889000 CVTRV317 EQU CVTTMODE 04890000 CVTRV316 EQU CVTSTATE 04891000 CVTRV315 EQU CVTGTFS 04892000 CVTGTFAV EQU CVTGTFS 04893000 CVT0SCR1 EQU CVTMAP+232 04894000 CVTRV515 EQU CVTMAP+228 04895000 CVTRMS EQU CVTMAP+224 04896000 CVTPATCH EQU CVTMAP+220 04897000 CVTTSCE EQU CVTMAP+216 04898000 CVTLNKSC EQU CVTMAP+214 04899000 CVTQABST EQU CVTMAP+212 04900000 CVTMDLDS EQU CVTMAP+208 04901000 CVTUSER EQU CVTMAP+204 04902000 CVTABEND EQU CVTMAP+200 04903000 CVTSMCA EQU CVTMAP+196 04904000 CVTRSV18 EQU CVTMAP+192 04905000 CVTQLPAQ EQU CVTMAP+188 04906000 CVTQCDSR EQU CVTMAP+184 04907000 CVTRSV17 EQU CVTOPTB 04908000 CVTRSV16 EQU CVTOPTB 04909000 CVTFP EQU CVTOPTB 04910000 CVTAPTHR EQU CVTOPTB 04911000 CVTNLOG EQU CVTOPTB 04912000 CVTTOD EQU CVTOPTB 04913000 CVTCTIMS EQU CVTOPTB 04914000 CVTPROT EQU CVTOPTB 04915000 CVTXPFP EQU CVTOPTA 04916000 CVTASCII EQU CVTOPTA 04917000 CVTRSV13 EQU CVTOPTA 04918000 CVTRSV12 EQU CVTOPTA 04919000 CVTNIP EQU CVTOPTA 04920000 CVTDDR EQU CVTOPTA 04921000 CVTAPR EQU CVTOPTA 04922000 CVTCCH EQU CVTOPTA 04923000 CVTSNCTR EQU CVTMAP+180 04924000 CVTQMWR EQU CVTMAP+176 04925000 CVTQOCR EQU CVTMAP+172 04926000 CVT1EF00 EQU CVTMAP+168 04927000 CVTMZ00 EQU CVTMAP+164 04928000 CVTSV76Q EQU CVTSV76C 04929000 CVTRSV11 EQU CVTMAP+156 04930000 CVT0PT01 EQU CVTMAP+152 04931000 CVTMSER EQU CVTMAP+148 04932000 CVTRV516 EQU CVTIERLC 04933000 CVTILCH EQU CVTMAP+140 04934000 CVT0DS EQU CVTMAP+136 04935000 CVTFBOSV EQU CVTMAP+132 04936000 CVTNUCB EQU CVTMAP+128 04937000 CVTSV76M EQU CVTIOQET 04938000 CVTDCBA EQU CVTMAP+117 04939000 CVTMVS2 EQU CVTDCB 04940000 CVT6DAT EQU CVTDCB 04941000 CVT4MPS EQU CVTDCB 04942000 CVTRSV09 EQU CVTDCB 04943000 CVT4MS1 EQU CVTDCB 04944000 CVT2SPS EQU CVTDCB 04945000 CVT1SSS EQU CVTDCB 04946000 CVTRSV08 EQU CVTDCB 04947000 CVTSTB EQU CVTMAP+112 04948000 CVTQTD00 EQU CVTMAP+108 04949000 CVTQTE00 EQU CVTMAP+104 04950000 CVTCUCB EQU CVTMAP+100 04951000 CVTSJQ EQU CVTMAP+96 04952000 CVTPBLDL EQU CVTMAP+92 04953000 CVTTPC EQU CVTMAP+88 04954000 CVTSVDCB EQU CVTMAP+84 04955000 CVTBRET EQU CVTMAP+82 04956000 CVTEXIT EQU CVTMAP+80 04957000 CVT0FN00 EQU CVTMAP+76 04958000 CVTDARA EQU CVTDAR+1 04959000 CVTRSV07 EQU CVTFLGS1 04960000 CVTRSV06 EQU CVTFLGS1 04961000 CVTRSV05 EQU CVTFLGS1 04962000 CVTRSV04 EQU CVTFLGS1 04963000 CVTRSV03 EQU CVTFLGS1 04964000 CVTRSV02 EQU CVTFLGS1 04965000 CVTRSV01 EQU CVTFLGS1 04966000 CVTDMPLK EQU CVTFLGS1 04967000 CVTMSLT EQU CVTMAP+60 04968000 CVTDATE EQU CVTMAP+56 04969000 CVTBTERM EQU CVTMAP+52 04970000 CVTSYSAD EQU CVTMAP+48 04971000 CVTXTLER EQU CVTMAP+44 04972000 CVTILK2 EQU CVTMAP+40 04973000 CVTILK1 EQU CVTMAP+36 04974000 CVTPRLTV EQU CVTMAP+32 04975000 CVTPCNVT EQU CVTMAP+28 04976000 CVT0VL00 EQU CVTMAP+24 04977000 CVTXAPG EQU CVTMAP+20 04978000 CVTBUF EQU CVTMAP+16 04979000 CVTJOB EQU CVTMAP+12 04980000 CVTLINK EQU CVTMAP+8 04981000 CVT0EF00 EQU CVTMAP+4 04982000 CVTTCBP EQU CVTMAP 04983000 CVT EQU CVTMAP 04984000 UCBERADR EQU UCBUCS+12 04985000 UCBFCBID EQU UCBUCS+8 04986000 UCBERCNT EQU UCBUCS+7 04987000 UCBRSV51 EQU UCBUCS+6 04988000 UCBFCBPE EQU UCBFCBOP 04989000 UCBRSV49 EQU UCBFCBOP 04990000 UCBRSV48 EQU UCBFCBOP 04991000 UCBRSV47 EQU UCBFCBOP 04992000 UCBRSV46 EQU UCBFCBOP 04993000 UCBRSV45 EQU UCBFCBOP 04994000 UCBRSV44 EQU UCBFCBOP 04995000 UCBFCBO1 EQU UCBFCBOP 04996000 UCBUCSPE EQU UCBUCSOP 04997000 UCBRSV43 EQU UCBUCSOP 04998000 UCBRSV42 EQU UCBUCSOP 04999000 UCBRSV41 EQU UCBUCSOP 05000000 UCBRSV40 EQU UCBUCSOP 05001000 UCBRSV39 EQU UCBUCSOP 05002000 UCBUCSO2 EQU UCBUCSOP 05003000 UCBUCSO1 EQU UCBUCSOP 05004000 UCBUCSID EQU UCBUCS 05005000 UCBMDRBA EQU UCBMDRBF+1 05006000 UCBRV075 EQU UCBMDRBF 05007000 UCBRV074 EQU UCB3800X+32 05008000 UCBIMAGE EQU UCB3800X+28 05009000 UCBFCBNM EQU UCB3800X+24 05010000 UCBCHAR4 EQU UCB3800X+20 05011000 UCBCHAR3 EQU UCB3800X+16 05012000 UCBCHAR2 EQU UCB3800X+12 05013000 UCBCHAR1 EQU UCB3800X+8 05014000 UCBCGMID EQU UCB3800X+4 05015000 UCBBRSTA EQU UCBACTIV 05016000 UCBRV063 EQU UCBACTIV 05017000 UCBRV062 EQU UCBACTIV 05018000 UCBRV061 EQU UCBACTIV 05019000 UCBRV060 EQU UCBACTIV 05020000 UCBRV059 EQU UCBACTIV 05021000 UCBRV058 EQU UCBACTIV 05022000 UCBRV057 EQU UCBACTIV 05023000 UCBRV050 EQU UCB3800X+2 05024000 UCBCGMNO EQU UCB3800X+1 05025000 UCBRV083 EQU UCBOPTNS 05026000 UCBBRSTR EQU UCBOPTNS 05027000 UCBRV056 EQU UCBOPTNS 05028000 UCBRV055 EQU UCBOPTNS 05029000 UCBRV054 EQU UCBOPTNS 05030000 UCBRV053 EQU UCBOPTNS 05031000 UCBRV052 EQU UCBOPTNS 05032000 UCBRV051 EQU UCBOPTNS 05033000 UCBRV073 EQU UCB3540X+7 05034000 UCBRV072 EQU UCBDKBYT 05035000 UCBRV071 EQU UCBDKBYT 05036000 UCBRV070 EQU UCBDKBYT 05037000 UCBRV069 EQU UCBDKBYT 05038000 UCBRV068 EQU UCBDKBYT 05039000 UCBRV067 EQU UCBDKBYT 05040000 UCBVLVER EQU UCBDKBYT 05041000 UCBDKAMX EQU UCBDKBYT 05042000 UCBVLSER EQU UCB3540X 05043000 UCBRDATA EQU UCBOCR+4 05044000 UCBFRID EQU UCBOCR 05045000 UCBCLN EQU UCBMT+14 05046000 UCBERG EQU UCBMT+12 05047000 UCBMS EQU UCBMT+11 05048000 UCBNB EQU UCBMT+10 05049000 UCBPW EQU UCBMT+9 05050000 UCBPR EQU UCBMT+8 05051000 UCBSIO EQU UCBMT+6 05052000 UCBTW EQU UCBMT+5 05053000 UCBTR EQU UCBMT+4 05054000 UCBTWT EQU UCBMT+3 05055000 UCBTRT EQU UCBMT+2 05056000 UCBCTD EQU UCBMT 05057000 UCBWTOID EQU UCBCMEXT+17 05058000 UCBMIHTI EQU UCBCMEXT+16 05059000 UCBASID EQU UCBCMEXT+14 05060000 UCBMFCNT EQU UCBCMEXT+12 05061000 UCBPMSK EQU UCBCMEXT+10 05062000 UCBCCWOF EQU UCBCMEXT+8 05063000 UCBRV041 EQU UCBCMEXT+6 05064000 UCBRV036 EQU UCBFLP1 05065000 UCBRV035 EQU UCBFLP1 05066000 UCBERLOG EQU UCBFLP1 05067000 UCBRV033 EQU UCBFLP1 05068000 UCBINHIO EQU UCBFLP1 05069000 UCBNSWAP EQU UCBFLP1 05070000 UCBSHRUP EQU UCBFLP1 05071000 UCBNSRCH EQU UCBFLP1 05072000 UCBHPDV EQU @NM00055 05073000 UCBHALI EQU @NM00055 05074000 UCBRSV09 EQU @NM00055 05075000 UCBRSV08 EQU @NM00055 05076000 UCBRSV07 EQU @NM00055 05077000 UCBRSV06 EQU @NM00055 05078000 UCBRSV05 EQU @NM00055 05079000 UCBRSV04 EQU @NM00055 05080000 UCBDTI EQU UCBCMEXT+2 05081000 UCBSTI EQU UCBCMEXT+1 05082000 UCBETI EQU UCBCMEXT 05083000 UCBEXTP EQU UCBEXTPT+1 05084000 UCBDDRSW EQU UCBFLC 05085000 UCBTICBT EQU UCBFLC 05086000 UCBIVRR EQU UCBFLC 05087000 UCBIVRS EQU UCBFLC 05088000 UCBITF EQU UCBFLC 05089000 UCBUDE EQU UCBFLC 05090000 UCBWAA EQU UCBFLC 05091000 UCBATTP EQU UCBFLC 05092000 UCBUNTYP EQU UCBTBYT4 05093000 UCBRSV11 EQU UCBDVCLS 05094000 UCBRSV10 EQU UCBDVCLS 05095000 UCB3CHAR EQU UCBDVCLS 05096000 UCB3UREC EQU UCBDVCLS 05097000 UCB3DISP EQU UCBDVCLS 05098000 UCB3DACC EQU UCBDVCLS 05099000 UCB3COMM EQU UCBDVCLS 05100000 UCB3TAPE EQU UCBDVCLS 05101000 UCBDVPWR EQU UCB2OPT7 05102000 UCBVLPWR EQU UCB2OPT6 05103000 UCB2OPT5 EQU UCBTBYT2 05104000 UCBRR EQU UCBDUDN1 05105000 UCB2OPT1 EQU UCBTBYT2 05106000 UCB2OPT0 EQU UCBTBYT2 05107000 UCB1FEA7 EQU UCBTBYT1 05108000 UCBD6250 EQU UCB1FEA6 05109000 UCBD1600 EQU UCB1FEA5 05110000 UCB1FEA4 EQU UCBTBYT1 05111000 UCB1FEA3 EQU UCBTBYT1 05112000 UCB1FEA2 EQU UCBTBYT1 05113000 UCB1FEA1 EQU UCBTBYT1 05114000 UCB1FEA0 EQU UCBTBYT1 05115000 UCBRV029 EQU UCBWGT 05116000 UCBVHRSN EQU UCBWGT 05117000 UCBVORSN EQU UCBWGT 05118000 UCBMTPXP EQU UCBWGT 05119000 UCBREW EQU UCBWGT 05120000 UCBPUB EQU UCBWGT 05121000 UCBOUT EQU UCBWGT 05122000 UCBIN EQU UCBWGT 05123000 UCBCPU EQU UCBOB+11 05124000 UCBLCI EQU UCBOB+10 05125000 UCBCNT EQU UCBOB+9 05126000 UCBRV017 EQU UCBCHM1 05127000 UCBRV016 EQU UCBCHM1 05128000 UCBRV015 EQU UCBCHM1 05129000 UCBRV014 EQU UCBCHM1 05130000 UCBSPB EQU UCBPTH1 05131000 UCBPPB EQU UCBPTH1 05132000 UCBSPA EQU UCBPTH0 05133000 UCBPPA EQU UCBPTH0 05134000 UCBSIGP EQU UCBFLB 05135000 UCBVALPH EQU UCBFLB 05136000 UCBCRHSN EQU UCBFLB 05137000 UCBCRHRV EQU UCBFLB 05138000 UCBRESVH EQU UCBFLB 05139000 UCBSPST EQU UCBFLB 05140000 UCBASNS EQU UCBFLB 05141000 UCBIORST EQU UCBFLB 05142000 UCBQISCE EQU UCBFL1 05143000 UCBACTV EQU UCBFL1 05144000 UCBSAP EQU UCBFL1 05145000 UCBNOTRC EQU UCBCUB 05146000 UCBPSNS EQU UCBFL1 05147000 UCBUSING EQU UCBPST 05148000 UCBNOTRD EQU UCBNRY 05149000 UCBBUSYD EQU UCBBSY 05150000 UCBUA EQU UCBCHAN+1 05151000 UCBCHA EQU UCBCHAN 05152000 UCBDADI EQU UCBSTAT 05153000 UCBSYSR EQU UCBSTAT 05154000 UCBPRES EQU UCBSTAT 05155000 UCBALOC EQU UCBSTAT 05156000 UCBUNLD EQU UCBSTAT 05157000 UCBRESV EQU UCBSTAT 05158000 UCBCHGS EQU UCBSTAT 05159000 UCBONLI EQU UCBSTAT 05160000 UCBID EQU UCBOB+2 05161000 UCBALTPH EQU UCBFL5 05162000 UCBALTCU EQU UCBFL5 05163000 UCBNALOC EQU UCBFL5 05164000 UCBVSDR EQU UCBFL5 05165000 UCBSASK EQU UCBFL5 05166000 UCBAMV EQU UCBAF 05167000 UCBDCC EQU UCBFL5 05168000 UCBMONT EQU UCBJBNR 05169000 UCBRV011 EQU UCBJBNR 05170000 UCBMMSGP EQU UCBJBNR 05171000 UCBOLDSM EQU UCBJBNR 05172000 UCBRV003 EQU UCBJBNR 05173000 UCBDUC EQU UCBJBNR 05174000 UCBJES3 EQU UCBJBNR 05175000 UCBVRDEV EQU UCBJBNR 05176000 UCBCMSEG EQU UCBOB 05177000 UCBPFXND EQU UCB+512 05178000 UCBIOQ EQU UCB+508 05179000 UCBLOCK EQU UCB+504 05180000 UCBPXST EQU UCB+504 05181000 @NM00052 EQU UCB 05182000 OBRSNS7 EQU OBRSNS+7 05183000 @NM00051 EQU OBRSNS+3 05184000 @NM00050 EQU OBRSNS2 05185000 PRVLOG EQU OBRSNS2 05186000 @NM00049 EQU OBRSNS2 05187000 OBRSNS1 EQU OBRSNS+1 05188000 OBRSNS0 EQU OBRSNS 05189000 @NM00048 EQU DAOBR+22 05190000 @NM00047 EQU DAOBR+16 05191000 @NM00046 EQU DAOBR+6 05192000 @NM00045 EQU DAMDR+6 05193000 WKAPUA EQU WKAUA 05194000 @NM00044 EQU WKAUA 05195000 @NM00043 EQU INTFLG1 05196000 @NM00042 EQU INTERFLG 05197000 ODDTRK EQU ESNS10 05198000 BIASSW EQU ESNS10 05199000 LATCH124 EQU ESNS10 05200000 DMSIZE EQU ESNS10 05201000 EPUA EQU ESNS4 05202000 @NM00041 EQU ESNS4 05203000 @NM00040 EQU ESNS2 05204000 @NM00039 EQU ESNS2 05205000 @NM00038 EQU EIOSCC 05206000 ECC2OR3 EQU EIOSCC 05207000 EILC EQU EIOSCC 05208000 ECCCK EQU ECSWSTAT+1 05209000 EUNITEX EQU ECSWSTAT 05210000 EDEVEND EQU ECSWSTAT 05211000 ECHEND EQU ECSWSTAT 05212000 @NM00037 EQU ECSWSTAT 05213000 ICHCK EQU ICSWSTAT+1 05214000 ICDATACK EQU ICSWSTAT+1 05215000 IPROTCK EQU ICSWSTAT+1 05216000 IPGMCK EQU ICSWSTAT+1 05217000 IINCLGTH EQU ICSWSTAT+1 05218000 IPCI EQU ICSWSTAT+1 05219000 IUNITEX EQU ICSWSTAT 05220000 IDEVEND EQU ICSWSTAT 05221000 ICHEND EQU ICSWSTAT 05222000 @NM00036 EQU ICSWSTAT 05223000 @NM00035 EQU DAFMSK 05224000 @NM00034 EQU DOFLOCCW+5 05225000 @NM00033 EQU OFLOFLG 05226000 @NM00032 EQU FTRCCW+5 05227000 FTRIDA EQU FTRFLG 05228000 FTRPCI EQU FTRFLG 05229000 FTRSLI EQU FTRFLG 05230000 FTRCC EQU FTRFLG 05231000 FTRDC EQU FTRFLG 05232000 CPBLDLEN EQU CCWCNT+1 05233000 PCIBIT EQU CCWFLG 05234000 @NM00031 EQU SEEKOP 05235000 @NM00030 EQU TICBITS 05236000 @NM00029 EQU CCWOP 05237000 @NM00028 EQU ISNS+1 05238000 @NM00027 EQU ISNS 05239000 @NM00026 EQU ISNS 05240000 @NM00025 EQU DAFLG1 05241000 @NM00024 EQU DISPSAV+4 05242000 DNOCYL EQU DTABNTRY 05243000 @NM00023 EQU ERSYM 05244000 @NM00022 EQU BKDISP+1 05245000 @NM00021 EQU DAXSNS+14 05246000 RSTSCTR EQU DAXSNS+13 05247000 RSTRECNO EQU RSTCCHHR+4 05248000 FMT4BIT EQU FMT6BITS 05249000 @NM00020 EQU FMTSNS 05250000 RSTCMD2 EQU DAXSNS+5 05251000 @NM00019 EQU DAXSNS+4 05252000 RSTCMD1 EQU DAXSNS+3 05253000 @NM00018 EQU DAXSNS 05254000 @NM00017 EQU DAIDAW 05255000 EWACPU EQU EWA+27 05256000 @NM00016 EQU EWA+26 05257000 EWACSEQ EQU EWAXCSW2 05258000 EWACDIN EQU EWAXCSW2 05259000 @NM00015 EQU EWAXCSW2 05260000 EWACTEC EQU EWAXCSW2 05261000 EWACDAV EQU EWAXCSW1 05262000 EWACCHV EQU EWAXCSW1 05263000 EWACCMD EQU EWAXCSW1 05264000 EWACUNS EQU EWAXCSW1 05265000 EWACSQV EQU EWAXCSW1 05266000 @NM00014 EQU EWAXCSW1 05267000 EWACITF EQU EWAXCSW1 05268000 @NM00013 EQU EWARGFG2 05269000 EWACCUE EQU EWARGFG2 05270000 EWACSTG EQU EWARGFG2 05271000 EWACSCU EQU EWARGFG2 05272000 EWACCHA EQU EWARGFG2 05273000 EWACCPU EQU EWARGFG2 05274000 EWACCNT EQU EWARGFG1 05275000 EWACSNS EQU EWARGFG1 05276000 @NM00012 EQU EWARGFG1 05277000 EWACHIO EQU EWARGFG1 05278000 EWACTIO EQU EWARGFG1 05279000 EWACINT EQU EWARGFG1 05280000 EWACSIO EQU EWARGFG1 05281000 EWAUCB EQU EWAERPIB+1 05282000 @NM00011 EQU EWAERPIB 05283000 EWASTUP EQU EWA+14 05284000 EWACNTR4 EQU EWACNTRS+3 05285000 EWASCTMX EQU EWASNSCT 05286000 @NM00010 EQU EWASNSCT 05287000 EWAJAM EQU EWAFLG3 05288000 @NM00009 EQU EWAFLG2 05289000 EWADIR EQU EWAFLG2 05290000 EWACOVF EQU EWAFLG2 05291000 EWAWTEMP EQU EWAFLG2 05292000 EWASCC1 EQU EWASCC3 05293000 EWASCC2 EQU EWASCC3 05294000 @NM00008 EQU EWAFLG1 05295000 EWASLIS EQU EWAFLG1 05296000 IOSSKR EQU IOSEEKA+7 05297000 IOSSKH1 EQU IOSSKHH 05298000 IOSSKBB EQU IOSEEKA+1 05299000 IOSSKM EQU IOSEEKA 05300000 IOSMDM EQU IOSB+91 05301000 IOSMDB EQU IOSB+90 05302000 IOSCKEY7 EQU IOSCKEY 05303000 IOSCKEY6 EQU IOSCKEY 05304000 IOSCKEY5 EQU IOSCKEY 05305000 IOSCKEY4 EQU IOSCKEY 05306000 @NM00004 EQU IOSCKEY 05307000 IOSCUDEV EQU IOSPATH+1 05308000 @NM00003 EQU IOSCHN 05309000 IOSPATH3 EQU IOSCHN 05310000 IOSPATH2 EQU IOSCHN 05311000 IOSEXP EQU IOSCHN 05312000 IOSGDP EQU IOSCHN 05313000 IOSAFF EQU IOSB+85 05314000 IOSRSS1B EQU IOSB+84 05315000 IOSDSID EQU IOSB+80 05316000 IOSDIE EQU IOSB+68 05317000 IOSABN EQU IOSB+64 05318000 IOSNRM EQU IOSB+60 05319000 IOSPCI EQU IOSB+56 05320000 IOSPCHN EQU IOSB+48 05321000 IOSAPMSK EQU IOSB+40 05322000 IOSRES4A EQU IOSB+36 05323000 IOSUSE EQU IOSB+32 05324000 IOSTSB EQU IOSTATUS+1 05325000 IOSUCB EQU IOSB+16 05326000 IOSOPT2X EQU IOSOPT2 05327000 IOSIGP EQU IOSOPT2 05328000 IOSHTP EQU IOSOPT2 05329000 IOSRELSE EQU IOSOPT 05330000 IOSAPR EQU IOSOPT 05331000 IOSTSLL EQU IOSOPT 05332000 IOSNERP EQU IOSOPT 05333000 IOSPSLL EQU IOSOPT 05334000 IOSQISCE EQU IOSOPT 05335000 IOSPKY7 EQU IOSPKEY 05336000 IOSPGDPX EQU IOSPKEY 05337000 IOSLCL EQU IOSPKEY 05338000 @NM00001 EQU IOSPKEY 05339000 IOSPGAD EQU IOSB+8 05340000 IOSPRLVL EQU IOSB+5 05341000 IOSFLC7 EQU IOSFLC 05342000 IOSCTCNR EQU IOSFLC 05343000 IOSRWAIT EQU IOSFLC 05344000 IOSTP EQU IOSFLC 05345000 IOSCC3WE EQU IOSFLC 05346000 IOSVERIF EQU IOSDVALT 05347000 IOSDVMNT EQU IOSFLC 05348000 IOSBDCST EQU IOSFLB 05349000 IOSFLB4 EQU IOSFLB 05350000 IOSFLB3 EQU IOSFLB 05351000 IOSNOTRS EQU IOSFLB 05352000 IOSSDR EQU IOSFLB 05353000 IOSDIESE EQU IOSFLB 05354000 IOSIOSB EQU IOSFLA 05355000 IOSDOM EQU IOSFLA 05356000 IOSSMDA EQU IOSFLA 05357000 IOSCCHN EQU IOSACHN 05358000 IOSDCHN EQU IOSACHN 05359000 DIRCHN2 EQU DIRCHNPT+4 05360000 DIRCHN1 EQU DIRCHNPT 05361000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05362000 @RT00164 EQU CCNOT0 05363000 @RT00172 EQU CCNOT0 05364000 @RT00197 EQU SNSERR 05365000 @RT00200 EQU STATCK 05366000 @RT00209 EQU INTCK 05367000 @RT00212 EQU INTCK 05368000 @RT00228 EQU SETBADHA 05369000 @RF00228 EQU SNSRTY 05370000 @RF00232 EQU INTCK 05371000 @RT00235 EQU SETBADHA 05372000 @RF00253 EQU RTY10 05373000 @RT00263 EQU CNTINCR1 05374000 @RT00268 EQU CNTINCR1 05375000 @RT00271 EQU ERFP 05376000 @RC00280 EQU @RC00279 05377000 @RT00285 EQU CALTRANS 05378000 @RT00304 EQU PERMSOFT 05379000 @RT00307 EQU DIRBLD 05380000 @RT00334 EQU ERMSG 05381000 @RT00338 EQU CNTINCR1 05382000 @RF00338 EQU ERMSG 05383000 @RT00342 EQU CNTINCR1 05384000 @RT00347 EQU BYPOBR 05385000 @RT00352 EQU RTY10C 05386000 @RT00355 EQU ERMSG 05387000 @RT00358 EQU RTY10C 05388000 @RF00358 EQU ERMSG 05389000 @RF00362 EQU ERMSG 05390000 @RT00380 EQU ERINT1 05391000 @RT00382 EQU ERINT1 05392000 @RT00391 EQU RTY10B 05393000 @RF00391 EQU RTY10 05394000 @RF00394 EQU ERHARD 05395000 @RT00397 EQU ERHARD 05396000 @RT00426 EQU RTY10C 05397000 @RT00428 EQU RETRY 05398000 @RT00431 EQU ERSOFT 05399000 @RT00435 EQU SKIPRSTR 05400000 @RF00445 EQU OFLOCK1 05401000 @RT00457 EQU EROFLOA 05402000 @RT00475 EQU OFLOCALC 05403000 @RT00534 EQU SCHOP 05404000 @RT00563 EQU RTY10 05405000 @RT00577 EQU RTY10C 05406000 @RT00586 EQU RTY10C 05407000 @RF00592 EQU MERWCK2 05408000 @RT00621 EQU LENCK1 05409000 @RT00634 EQU MERWCK2 05410000 @RF00634 EQU ECFLOOP1 05411000 @RT00645 EQU MASKCK 05412000 @RT00648 EQU SLICK 05413000 @RT00652 EQU MASKCK 05414000 @RT00655 EQU MASKCK 05415000 @RT00674 EQU ERTCC 05416000 @RF00678 EQU EROFLOA 05417000 @RT00686 EQU NOFTR 05418000 @RC00736 EQU RESTART 05419000 @RT00774 EQU RESTART 05420000 @RT00802 EQU EROFLOA 05421000 @RT00821 EQU ERHARD 05422000 @RF00826 EQU UPDATSKA 05423000 @RT00837 EQU ERNOER 05424000 @RT00840 EQU ERSOFT 05425000 @RF00840 EQU ERHARD 05426000 @RT00843 EQU CKEXIT 05427000 @RT00846 EQU CKEXIT 05428000 @RT00849 EQU CKEXIT 05429000 @RT00852 EQU CKEXIT 05430000 @RT00887 EQU XTNTCK 05431000 @RF00901 EQU NOCHAIN 05432000 @RF00935 EQU OBRSAVE 05433000 @RF00939 EQU SNSMDR 05434000 @RC00943 EQU SETCUA 05435000 @RT00964 EQU NORMAL 05436000 @RF00974 EQU PUA 05437000 @RF00967 EQU NORMAL 05438000 @ENDDATA EQU * 05439000 END IECVDERP,(C'PLS0829',0701,78115) 05440000