TITLE 'IGE0025C -WTO ROUTINE FOR MVM ERPS *00001000 ' 00002000 IGE0025C CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(22) 0001 00007000 DC C'IGE0025C UZ16360 78017' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 * /* 00011000 BALR BASEREG,0 00012000 USING *,BASEREG SET UP ADDRESSABILITY 00013000 * SAVIREG='00000000'X; /* ZERO SAVE IN CASE NOTHING ON 00014000 * QUEUE ALREADY @YM06716*/ 00015000 SLR SAVIREG,SAVIREG 0187 00016000 * IF IOSDOM='1'B THEN 0188 00017000 TM IOSDOM(IOSBPTR),B'00000010' 0188 00018000 BO @RT00188 0188 00019000 * GOTO DOMRTN; /* DOM REQUIRED @YM06828*/ 00020000 * IF CVTNIP='1'B /* IF NIP IS IN CONTROL,DO */ 00021000 * THEN 0190 00022000 L @12,CVTPTR 0190 00023000 TM CVTNIP(@12),B'00010000' 0190 00024000 BO @RT00190 0190 00025000 * GOTO RET3; /* NOT ISSUE MSG, BUT DO LOG 0191 00026000 * ERROR. THEN EXIT */ 00027000 * 0191 00028000 * /*****************************************************************/ 00029000 * /* */ 00030000 * /* GET LOCAL LOCK TO PROTECT FRR STACK FOR CORE MGR REGISTERS */ 00031000 * /* 11,12,13,14 ARE DESTROYED BY SETLOCK REGISTER 13 IS ONLY ONE */ 00032000 * /* WE NEED TO PROTECT */ 00033000 * /* */ 00034000 * /*****************************************************************/ 00035000 * 0192 00036000 * RFY 0192 00037000 * (EWAPTR, 0192 00038000 * R13, 0192 00039000 * WKREG, 0192 00040000 * CALLRG) RSTD; 0192 00041000 * EWAPTR=R13; /* SAVE SAVE AREA POINTER */ 00042000 LR EWAPTR,R13 0193 00043000 * GEN REFS(PSALITA); 0194 00044000 * /* 00045000 GETLOCK SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, X00046000 RELATED=(IECVSMGR,IGE0025C(FREELOCK)) 00047000 * R13=EWAPTR; /* RESTORE POINTER */ 00048000 * 0195 00049000 LR R13,EWAPTR 0195 00050000 * /*****************************************************************/ 00051000 * /* */ 00052000 * /* SETUP FOR AND GO TO CORE MANAGER TO GET 160 BYTE BLOCK IN */ 00053000 * /* WHICH TO BUILD MESSAGE */ 00054000 * /* */ 00055000 * /*****************************************************************/ 00056000 * 0196 00057000 */* */ 00058000 * 0196 00059000 * WKREG='10000020'X; /* R11 =# BLKS,ASID */ 00060000 L WKREG,@CF02609 0196 00061000 * CALLRG=IOCORMGT; /* ADDR OF CORE MANAGER */ 00062000 L @12,CVTPTR 0197 00063000 L @12,IOCOMPTR(,@12) 0197 00064000 L CALLRG,IOCORMGT(,@12) 0197 00065000 * GEN REFS(IOSASID); 0198 00066000 ICM WKREG,6,IOSASID(IOSBPTR) GET ASID IN REG11 00067000 BALR @14,CALLRG GO GET CORE 00068000 * MSGPTR=WKREG; /* PICK UP ADDR OF CORE */ 00069000 * 0199 00070000 LR MSGPTR,WKREG 0199 00071000 * /*****************************************************************/ 00072000 * /* */ 00073000 * /* FREE LOCAL LOCK JUST GOTTEN FOR CORE MANAGER SINCE NO SVC'S */ 00074000 * /* CAN BE ISSUED WHILE IT IS HELD. REGISTER 13 AGAIN MUST BE */ 00075000 * /* SAVED. */ 00076000 * /* */ 00077000 * /*****************************************************************/ 00078000 * 0200 00079000 */* */ 00080000 * 0200 00081000 * EWAPTR=R13; /* SAVE SAVE AREA PTR */ 00082000 LR EWAPTR,R13 0200 00083000 * GEN REFS(PSALITA); 0201 00084000 * /* 00085000 FREELOCK SETLOCK RELEASE,TYPE=LOCAL, X00086000 RELATED=(IECVSMGR,IGE0025C(GETLOCK)) 00087000 * R13=EWAPTR; /* RESTORE SAV AREA ADDR */ 00088000 LR R13,EWAPTR 0202 00089000 * RFY 0203 00090000 * (EWAPTR, 0203 00091000 * R13, 0203 00092000 * WKREG, 0203 00093000 * CALLRG) UNRSTD; 0203 00094000 * RFY 0204 00095000 * UCBPTR RSTD; 0204 00096000 * 0204 00097000 * /*****************************************************************/ 00098000 * /* */ 00099000 * /* BEGIN MESSAGE DETERMINATION AND BUILD */ 00100000 * /* */ 00101000 * /*****************************************************************/ 00102000 * 0205 00103000 *STAR: 0205 00104000 * UCBPTR=IOSUCB; /* ADDR OF UCB */ 00105000 STAR L UCBPTR,IOSUCB(,IOSBPTR) 0205 00106000 */* DETERMINE WHAT MESSAGE SHOULD BE ISSUED */ 00107000 * 0206 00108000 * IF IOSMSG='1'B /* PERM I/O ERROR MSG */ 00109000 * THEN 0206 00110000 TM IOSMSG(IOSBPTR),B'00000100' 0206 00111000 BO @RT00206 0206 00112000 * GOTO MSG2; /* INDICATOR */ 00113000 * IF IOSCC3A='1'B&IOSCC4='1'B /* PATH INOPERATIVE */ 00114000 * THEN 0208 00115000 TM IOSCC3A(IOSBPTR),B'00110000' 0208 00116000 BO @RT00208 0208 00117000 * GOTO MSG3; /* CONDITION CODE */ 00118000 */* */ 00119000 * 0210 00120000 * IF UCB3DACC^='1'B THEN /* NO NEED TO CHECK UCBIVRR 0210 00121000 * @YM7472*/ 00122000 TM UCB3DACC(UCBPTR),B'00100000' 0210 00123000 BNO @RT00210 0210 00124000 * GO TO INTR; /* INTERVENTION IS REQUIRED 0211 00125000 * @YM7472*/ 00126000 * 0211 00127000 * /*****************************************************************/ 00128000 * /* */ 00129000 * /* NONE OF THE ABOVE, MUST BE INTERVENTION REQUIRED TEST TO SEE */ 00130000 * /* IF MESSAGE IS STILL NECESSARY IF UCBIVRR IS NOT ON, */ 00131000 * /* INTERVENTION IS NO NEEDED. IF UCBIVRS IS ON, WTO HAS ALREADY */ 00132000 * /* ISSUED ONE MESSAGE FOR THIS CONDITION,DO NOT ISSUE ANOTHER. */ 00133000 * /* */ 00134000 * /*****************************************************************/ 00135000 * 0212 00136000 */* USE IOSGEN TO TEST BITS- SET UP AND CALL */ 00137000 * 0212 00138000 * GEN REFS(UCBFLC,UCBBGN,RET0); 0212 00139000 * /* 00140000 IOSGEN UCBFLG,UCB=(@04),VAR=TEST,TABLE=UCBIVRR 00141000 BZ RET0 NO INTERVENTION NEEDED,GO 00142000 * CHECK FOR MORE REQUESTS 00143000 * IF UCBMTPXP='1'B THEN /* MULIPLE EXPOSURE @VS30419*/ 00144000 TM UCBMTPXP(UCBPTR),B'00001000' 0213 00145000 BNO @RF00213 0213 00146000 * DO; /* DEVICE @VS30419*/ 00147000 * GEN REFS(UCBFLC,UCBBGN,UCBBASE,PREFIX); 0215 00148000 * /*@VS30419,@ZA19320*/ 00149000 IOSGEN UCBFLG,UCB=(@04),VAR=OFF,TABLE=UCBIVRR @VS30419 00150000 * * TURN OFF INT REQ IN @VS30419 00151000 L @04,UCBBASE-UCBOB(@04) IN SPECIFIC EXP. @VS30419 00152000 A @04,PREFIX PT TO UCBOB FOR IOSGEN @ZA19320 00153000 * * TURN ON BASE EXP @VS30419 00154000 IOSGEN UCBFLG,UCB=(@04),VAR=ON,TABLE=UCBIVRR @VS30419 00155000 * END; /* @VS30419*/ 00156000 *INTR: 0217 00157000 * GEN REFS(UCBFLC,UCBBGN,RET0); 0217 00158000 * 0217 00159000 @RF00213 DS 0H 0217 00160000 INTR DS 0H 0217 00161000 IOSGEN UCBFLG,UCB=(@04),VAR=TEST,TABLE=UCBIVRS 00162000 BNZ RET0 MSG ALREADY SENT,GO CHECK 00163000 * FOR MORE REQUESTS 00164000 * /*****************************************************************/ 00165000 * /* */ 00166000 * /* STILL NEED MESSAGE,BUILD AND ISSUE */ 00167000 * /* */ 00168000 * /*****************************************************************/ 00169000 * 0218 00170000 * RFY 0218 00171000 * (EWAPTR, 0218 00172000 * WKREG) RSTD; 0218 00173000 * EWAPTR=IOSERP; /* ADDR. OF ERP. @Y30LPLC*/ 00174000 L EWAPTR,IOSERP(,IOSBPTR) 0219 00175000 * IF UCB3UREC='1'B /* @Y30LPLC*/ 00176000 * THEN 0220 00177000 TM UCB3UREC(UCBPTR),B'00001000' 0220 00178000 BNO @RF00220 0220 00179000 * DO; 0221 00180000 * IF UCBTBYT4='42'X /* @Y30LPLC*/ 00181000 * &MOINTREQ='1'B THEN /* @Y30LPLC*/ 00182000 CLI UCBTBYT4(UCBPTR),X'42' 0222 00183000 BNE @RF00222 0222 00184000 TM MOINTREQ(EWAPTR),B'01000000' 0222 00185000 BNO @RF00222 0222 00186000 * MSID=MSG2ID; /* INFORMATIONAL INTER- @Y30LPLC*/ 00187000 MVC MSID(8,MSGPTR),MSG2ID 0223 00188000 * ELSE /* VENTION REQUIRED. @Y30LPLC*/ 00189000 * MSID=MSG1ID; /* GET MESSAGE ID */ 00190000 B @RC00222 0224 00191000 @RF00222 MVC MSID(8,MSGPTR),MSG1ID 0224 00192000 * END; /* @Y30LPLC*/ 00193000 * ELSE 0226 00194000 * MSID=MSG1ID; /* ACTION MESSAGE @Y30LPLC*/ 00195000 B @RC00220 0226 00196000 @RF00220 MVC MSID(8,MSGPTR),MSG1ID 0226 00197000 * UADR=UCBNAME; /* CHANNEL AND UNIT ADDR */ 00198000 @RC00220 MVC UADR(3,MSGPTR),UCBNAME(UCBPTR) 0227 00199000 * C1='6B'X; /* COMMA DELINEATER */ 00200000 MVI C1(MSGPTR),X'6B' 0228 00201000 * TXT=IRQ; /* INTER REQ TEXT */ 00202000 MVC TXT(8,MSGPTR),IRQ 0229 00203000 * CM1='EF'X; 0230 00204000 MVI CM1(MSGPTR),X'EF' 0230 00205000 * CM2='EF'X; 0231 00206000 MVI CM2(MSGPTR),X'EF' 0231 00207000 * WKREG=IOSCSWCA-8; /* ADDR OF LAST COMMAND */ 00208000 L WKREG,IOSCSWCA-1(,IOSBPTR) 0232 00209000 LA WKREG,0(,WKREG) 0232 00210000 SL WKREG,@CF00075 0232 00211000 * GEN REFS(CM); 0233 00212000 LTR WKREG,WKREG TEST FOR MINUS,THEN NO OP 00213000 BM FIN SO LEAVE ASTERISKS 00214000 UNPK CM(3,@10),0(2,WKREG) 00215000 FIN EQU * 00216000 * C2='EE'X; /* COMMA */ 00217000 * 0234 00218000 MVI C2(MSGPTR),X'EE' 0234 00219000 * /*****************************************************************/ 00220000 * /* */ 00221000 * /* UNPACK STATUS */ 00222000 * /* */ 00223000 * /*****************************************************************/ 00224000 * 0235 00225000 * GEN REFS(STAT1)(UNPK STAT1(5,@10),IOSTATUS(3,@01)); 0235 00226000 UNPK STAT1(5,@10),IOSTATUS(3,@01) 00227000 * C3='EE'X; 0236 00228000 * 0236 00229000 MVI C3(MSGPTR),X'EE' 0236 00230000 * /*****************************************************************/ 00231000 * /* */ 00232000 * /* SETUP EWAPTR */ 00233000 * /* */ 00234000 * /*****************************************************************/ 00235000 * 0237 00236000 * RFY 0237 00237000 * WKREG RSTD; 0237 00238000 * EWAPTR=IOSERP; /* ADDR OF EWA */ 00239000 * 0238 00240000 L EWAPTR,IOSERP(,IOSBPTR) 0238 00241000 * /*****************************************************************/ 00242000 * /* */ 00243000 * /* TEST FOR 3340 WHICH REQUIRES ALL 24 BYTES OF SENSE ALSO 3800 */ 00244000 * /* (ARGONAUT) NEEDS 24 BYTES OF SENSE @Y40MPLG*/ 00245000 * /* THEREFORE NEEDING A TWO LINE MESSAGE */ 00246000 * /* */ 00247000 * /*****************************************************************/ 00248000 * 0239 00249000 * IF UCBTBYT3^='20'X /* *********************** 0239 00250000 * @YM05692*/ 00251000 * |UCBTBYT4^='0A'X /* IF NOT A 3340, GO BUILD */ 00252000 * THEN 0239 00253000 CLI UCBTBYT3(UCBPTR),X'20' 0239 00254000 BNE @RT00239 0239 00255000 CLI UCBTBYT4(UCBPTR),X'0A' 0239 00256000 BE @RF00239 0239 00257000 @RT00239 DS 0H 0240 00258000 * IF UCBTBYT3^='08'X /* @Y40MPLG*/ 00259000 * |UCBTBYT4^='0E'X /* NOT 3340, IS IT 3800? @Y40MPLG*/ 00260000 * THEN /* @ZA06055*/ 00261000 CLI UCBTBYT3(UCBPTR),X'08' 0240 00262000 BNE @RT00240 0240 00263000 CLI UCBTBYT4(UCBPTR),X'0E' 0240 00264000 BE @RF00240 0240 00265000 @RT00240 DS 0H 0241 00266000 * IF^(UCBTBYT3='80'X /* IS IT 3400? @ZA06055*/ 00267000 * &UCBTBYT4='03'X) /* @ZA06055*/ 00268000 * THEN 0241 00269000 CLI UCBTBYT3(UCBPTR),X'80' 0241 00270000 BNE @RT00241 0241 00271000 CLI UCBTBYT4(UCBPTR),X'03' 0241 00272000 BNE @RT00241 0241 00273000 * GOTO NOTWIN; /* ONE LINE MESSAGE NEEDS 24 0242 00274000 * BYTES OF SENSE, WILL BE ON 0242 00275000 * SECOND LINE @ZA06055*/ 00276000 * GEN REFS(CM)(TR CM(8,@10),TRTABLE-238); 0243 00277000 @RF00240 DS 0H 0243 00278000 @RF00239 DS 0H 0243 00279000 TR CM(8,@10),TRTABLE-238 00280000 * WSNS='6B'X; /* COMMA TO SENSE FIELD */ 00281000 * 0244 00282000 MVI WSNS(MSGPTR),X'6B' 0244 00283000 * /*****************************************************************/ 00284000 * /* */ 00285000 * /* INITIALIZE POINTER TO VOLUME SERIAL */ 00286000 * /* */ 00287000 * /*****************************************************************/ 00288000 * 0245 00289000 * CODEPTR=ADDR(WSNS)+'01'X; 0245 00290000 * 0245 00291000 LA CODEPTR,WSNS(,MSGPTR) 0245 00292000 AL CODEPTR,@CF00445 0245 00293000 * /*****************************************************************/ 00294000 * /* */ 00295000 * /* IF VOL SER FIELD IS ZERO IN THE EWA,PUT IN A COMMA */ 00296000 * /* */ 00297000 * /*****************************************************************/ 00298000 * 0246 00299000 * IF UCB3DACC='1'B THEN /* IF DASD CHECK VOL SER @Y40MPLG*/ 00300000 TM UCB3DACC(UCBPTR),B'00100000' 0246 00301000 BNO @RF00246 0246 00302000 * IF EWDCCW9^='000000000000'X THEN 0247 00303000 CLC EWDCCW9(6,EWAPTR),@CB02623 0247 00304000 BE @RF00247 0247 00305000 * DO; 0248 00306000 * SER1=EWDCCW9; /* VOL SER TO BUFFER */ 00307000 MVC SER1(6,CODEPTR),EWDCCW9(EWAPTR) 0249 00308000 * CODEPTR=CODEPTR+'06'X; /* LENG TO PTR */ 00309000 AL CODEPTR,@CF00454 0250 00310000 * END; 0251 00311000 * IF UCB3TAPE='1'B THEN /* IF TAPE VOLSER IN UCB @ZA06055*/ 00312000 @RF00247 DS 0H 0252 00313000 @RF00246 TM UCB3TAPE(UCBPTR),B'10000000' 0252 00314000 BNO @RF00252 0252 00315000 * IF UCBVOLI^='000000000000'X /* @ZA06055*/ 00316000 * THEN /* NOT ZEROS, VALID VOLSER 0253 00317000 * @ZA06055*/ 00318000 CLC UCBVOLI(6,UCBPTR),@CB02623 0253 00319000 BE @RF00253 0253 00320000 * IF UCBVOLI(1:1)^='FF'X THEN /* CHECK FOR FF-SVA-ID @ZA18804*/ 00321000 CLI UCBVOLI(UCBPTR),X'FF' 0254 00322000 BE @RF00254 0254 00323000 * DO; 0255 00324000 * SER1=UCBVOLI; /* VOLSER INTO MSG @ZA06055*/ 00325000 MVC SER1(6,CODEPTR),UCBVOLI(UCBPTR) 0256 00326000 * CODEPTR=CODEPTR+6; /* INCRMNT BY LENGTH @ZA06055*/ 00327000 AL CODEPTR,@CF00073 0257 00328000 * END; /* @ZA06055*/ 00329000 * C4='6B'X; /* COMMA AFTER OR IN PLACE OF 0259 00330000 * VOLUME SERIAL */ 00331000 * 0259 00332000 @RF00254 DS 0H 0259 00333000 @RF00253 DS 0H 0259 00334000 @RF00252 MVI C4(CODEPTR),X'6B' 0259 00335000 * /*****************************************************************/ 00336000 * /* */ 00337000 * /* JOBNAME PROCESSING IF A TCB AND A TIOT EXIST,WE SHOULD HAVE A */ 00338000 * /* VALID JOBNAME */ 00339000 * /* */ 00340000 * /*****************************************************************/ 00341000 * 0260 00342000 * IF SRBPTCB^='00000000'X /* IF THERE IS A TCB */ 00343000 * THEN 0260 00344000 SLR @12,@12 0260 00345000 L @05,IOSSRB(,IOSBPTR) 0260 00346000 L @05,SRBPTCB(,@05) 0260 00347000 CR @05,@12 0260 00348000 BE @RF00260 0260 00349000 * IF TCBTIO^='00000000'X /* AND A TIOT,PICK UP */ 00350000 * THEN 0261 00351000 L @05,TCBTIO(,@05) 0261 00352000 CR @05,@12 0261 00353000 BE @RF00261 0261 00354000 * DO; /* JOBNAME */ 00355000 * JNM=TIOCNJOB; 0263 00356000 MVC JNM(8,CODEPTR),TIOCNJOB(@05) 0263 00357000 * CODEPTR=CODEPTR+8; /* INCREMENT PTR */ 00358000 AL CODEPTR,@CF00075 0264 00359000 * END; 0265 00360000 * CODEPTR=CODEPTR+'01'X; /* INCREMENT PTR */ 00361000 * 0266 00362000 @RF00261 DS 0H 0266 00363000 @RF00260 AL CODEPTR,@CF00445 0266 00364000 * /*****************************************************************/ 00365000 * /* */ 00366000 * /* SET UP POINTER TO ROUTE AND DESCRIPTOR CODES */ 00367000 * /* */ 00368000 * /*****************************************************************/ 00369000 * 0267 00370000 * RCODE2='00'X; /* ROUTE CODE */ 00371000 MVI RCODE2(CODEPTR),X'00' 0267 00372000 * DCODE='4000'X; /* DESC CODE FOR IMMEDIATE */ 00373000 MVC DCODE(2,CODEPTR),@CB02626 0268 00374000 * MSMLWTO='1'B; /* INDICATE MLWTO @ZA10122*/ 00375000 OI MSMLWTO(MSGPTR),B'01000000' 0269 00376000 * MLCODE=DATALINE; /* INDICATE DATA ONLY ACTION 0270 00377000 * REQUIRED @ZA10122*/ 00378000 MVC MLCODE(4,CODEPTR),DATALINE 0270 00379000 * GEN(BAL CALLRG2,RDCODE); /* GO ISSUE WTO AND RETURN */ 00380000 * 0271 00381000 BAL CALLRG2,RDCODE 00382000 * /*****************************************************************/ 00383000 * /* */ 00384000 * /* AFTER ISSUING FIRST LINE SET UP AND ISSUE SECOND LINE, SENSE */ 00385000 * /* ONLY */ 00386000 * /* */ 00387000 * /*****************************************************************/ 00388000 * 0272 00389000 * MSID=MSG2ID; /* 2ND LINE INFO ONLF MSG 0272 00390000 * @YM06828*/ 00391000 MVC MSID(8,MSGPTR),MSG2ID 0272 00392000 */* D1=COMA; DELETED FOR APAR @ZA25849*/ 00393000 * 0273 00394000 * D2='6B'X; /* COMMA FOR EMPTY FIELDS */ 00395000 MVI D2(MSGPTR),X'6B' 0273 00396000 * D3='6B'X; /* COMMA FOR EMPTY FIELDS */ 00397000 MVI D3(MSGPTR),X'6B' 0274 00398000 * D4='6B'X; /* COMMA FOR EMPTY FIELDS */ 00399000 MVI D4(MSGPTR),X'6B' 0275 00400000 * GEN REFS(WSENS,WSENS1,WSENS2,WSENS3); 0276 00401000 UNPK WSENS(15,@10),EWASNS(8,@02) 00402000 UNPK WSENS1(15,@10),EWASNS+7(8,@02) 00403000 UNPK WSENS2(15,@10),EWASNS+14(8,@02) 00404000 UNPK WSENS3(7,@10),EWASNS+21(4,@02) 00405000 TR WSENS(48,MSGPTR),TRTABLE-238 00406000 * D5='6B'X; /* COMMA FOR EMPTY FIELDS */ 00407000 MVI D5(MSGPTR),X'6B' 0277 00408000 * D6='6B'X; /* COMMA FOR EMPTY FIELDS */ 00409000 * 0278 00410000 MVI D6(MSGPTR),X'6B' 0278 00411000 * /*****************************************************************/ 00412000 * /* */ 00413000 * /* SET UP REGISTERS FOR CODES */ 00414000 * /* */ 00415000 * /*****************************************************************/ 00416000 * 0279 00417000 * RFY 0279 00418000 * CALLRG2 RSTD; 0279 00419000 * CODEPTR=ADDR(D6)+'01'X; 0280 00420000 LA CODEPTR,D6(,MSGPTR) 0280 00421000 AL CODEPTR,@CF00445 0280 00422000 * RCODE2='00'X; /* ROUTE CODE */ 00423000 MVI RCODE2(CODEPTR),X'00' 0281 00424000 * DCODE='4000'X; /* DESCRIPTOR=ACTION */ 00425000 MVC DCODE(2,CODEPTR),@CB02626 0282 00426000 * CALLRG2=ADDR(SETUCB); /* RETURN ADDRESS */ 00427000 LA CALLRG2,SETUCB 0283 00428000 * MSMLWTO='1'B; /* INDICATE MLWTO @ZA10122*/ 00429000 OI MSMLWTO(MSGPTR),B'01000000' 0284 00430000 * MLCODE=ENDLINE; /* INDICATE LAST LINE OF DATA 0285 00431000 * @ZA10122*/ 00432000 MVC MLCODE(4,CODEPTR),ENDLINE 0285 00433000 * GOTO RDCODE; /* GO WRITE MSG AND RETURN */ 00434000 B RDCODE 0286 00435000 * RFY 0287 00436000 * CALLRG2 UNRSTD; 0287 00437000 * 0288 00438000 * /*****************************************************************/ 00439000 * /* */ 00440000 * /* END OF SPECIAL WINCHESTER MESSAGE SENSE FOR NORMAL */ 00441000 * /* INTERVENTION MSG GOES HERE UCBSNSCT HAS COUNT IF NOT A */ 00442000 * /* WINCHESTER, CHECK FOR DA OR TAPE, IF ONE OR THE OTHER, GET VOL*/ 00443000 * /* SER FROM EWA */ 00444000 * /* */ 00445000 * /*****************************************************************/ 00446000 * 0288 00447000 *NOTWIN: 0288 00448000 * IF UCBSNSCT<='02'X /* TWO SENSE BYTES TO CONVERT */ 00449000 * THEN 0288 00450000 NOTWIN L @12,UCBEXTPT(,UCBPTR) 0288 00451000 CLI UCBSNSCT(@12),2 0288 00452000 BH @RF00288 0288 00453000 * DO; 0289 00454000 * GEN REFS(SNS,EWASNS,CM); 0290 00455000 UNPK SNS(5,@10),EWASNS(3,@02) 00456000 TR CM(12,@10),TRTABLE-238 00457000 * SC1='6B'X; /* COMMA AFTER SENSE */ 00458000 MVI SC1(MSGPTR),X'6B' 0291 00459000 * CODEPTR=ADDR(SNS)+5; 0292 00460000 LA CODEPTR,SNS(,MSGPTR) 0292 00461000 AL CODEPTR,@CF00123 0292 00462000 * GOTO VOLSER; /* PTR SET FOR VOL SERIAL */ 00463000 B VOLSER 0293 00464000 * END; 0294 00465000 * 0294 00466000 * /*****************************************************************/ 00467000 * /* */ 00468000 * /* FIVE SENSE BYTES FOR MESSAGE */ 00469000 * /* */ 00470000 * /*****************************************************************/ 00471000 * 0295 00472000 * GEN REFS(SNS,EWASNS,CM); 0295 00473000 @RF00288 DS 0H 0295 00474000 UNPK SNS(11,MSGPTR),EWASNS(6,EWAPTR) 00475000 TR CM(18,MSGPTR),TRTABLE-238 00476000 * SC2='6B'X; 0296 00477000 MVI SC2(MSGPTR),X'6B' 0296 00478000 * CODEPTR=ADDR(SNS)+11; /* PTR TO VOL SER FIELD */ 00479000 * 0297 00480000 LA CODEPTR,SNS(,MSGPTR) 0297 00481000 AL CODEPTR,@CF00118 0297 00482000 * /*****************************************************************/ 00483000 * /* */ 00484000 * /* FOR DA OR TAPES, GET VOLUME SERIAL */ 00485000 * /* */ 00486000 * /*****************************************************************/ 00487000 * 0298 00488000 *VOLSER: 0298 00489000 * IF UCB3DACC='1'B /* IF DA, GET VOL SER FROM */ 00490000 * THEN /* EWA AND CHECK IT */ 00491000 VOLSER TM UCB3DACC(UCBPTR),B'00100000' 0298 00492000 BNO @RF00298 0298 00493000 * IF EWDCCW9^='000000000000'X THEN 0299 00494000 CLC EWDCCW9(6,EWAPTR),@CB02623 0299 00495000 BE @RF00299 0299 00496000 * DO; /* NOT ZEROS,SO VALID VOLSER */ 00497000 * SER1=EWDCCW9; /* VOL SER INTO MSG */ 00498000 MVC SER1(6,CODEPTR),EWDCCW9(EWAPTR) 0301 00499000 * CODEPTR=CODEPTR+'06'X; /* INC BY VOLSER LG */ 00500000 AL CODEPTR,@CF00454 0302 00501000 * END; 0303 00502000 * IF UCB3TAPE='1'B /* TAPE, GET VOL SER FROM */ 00503000 * THEN /* UCB AND CHECK IT */ 00504000 @RF00299 DS 0H 0304 00505000 @RF00298 TM UCB3TAPE(UCBPTR),B'10000000' 0304 00506000 BNO @RF00304 0304 00507000 * IF UCBVOLI^='000000000000'X THEN 0305 00508000 CLC UCBVOLI(6,UCBPTR),@CB02623 0305 00509000 BE @RF00305 0305 00510000 * IF UCBVOLI(1:1)^='FF'X THEN /* CHECK FOR FF-SVA-ID @ZA18804*/ 00511000 CLI UCBVOLI(UCBPTR),X'FF' 0306 00512000 BE @RF00306 0306 00513000 * DO; /* NOT ZEROS,SO VALID VOLSER */ 00514000 * SER1=UCBVOLI; /* VOL SER INTO MSG */ 00515000 MVC SER1(6,CODEPTR),UCBVOLI(UCBPTR) 0308 00516000 * CODEPTR=CODEPTR+'06'X; /* INC BY VOLSER LG */ 00517000 AL CODEPTR,@CF00454 0309 00518000 * END; 0310 00519000 * 0310 00520000 * /*****************************************************************/ 00521000 * /* */ 00522000 * /* SET UP CODES AND ISSUE MSG */ 00523000 * /* */ 00524000 * /*****************************************************************/ 00525000 * 0311 00526000 * C4='6B'X; /* COMMA AFTER OR IN PLACE OF 0311 00527000 * VOLUME SERIAL */ 00528000 * 0311 00529000 @RF00306 DS 0H 0311 00530000 @RF00305 DS 0H 0311 00531000 @RF00304 MVI C4(CODEPTR),X'6B' 0311 00532000 * /*****************************************************************/ 00533000 * /* */ 00534000 * /* JOBNAME PROCESSING IF A VALID TCB AND A VALID TIOT EXIST,PICK */ 00535000 * /* UP JOBNAME FROM THE TIOT */ 00536000 * /* */ 00537000 * /*****************************************************************/ 00538000 * 0312 00539000 * IF SRBPTCB^='00000000'X /* IF WE HAVE A TCB, THEN IF */ 00540000 * THEN 0312 00541000 SLR @12,@12 0312 00542000 L @05,IOSSRB(,IOSBPTR) 0312 00543000 L @05,SRBPTCB(,@05) 0312 00544000 CR @05,@12 0312 00545000 BE @RF00312 0312 00546000 * IF TCBTIO^='00000000'X /* WE HAVE A TIOT,PICK UP */ 00547000 * THEN 0313 00548000 L @05,TCBTIO(,@05) 0313 00549000 CR @05,@12 0313 00550000 BE @RF00313 0313 00551000 * DO; /* JOBNAME FROM THE TIOT */ 00552000 * JNM=TIOCNJOB; 0315 00553000 MVC JNM(8,CODEPTR),TIOCNJOB(@05) 0315 00554000 * CODEPTR=CODEPTR+8; 0316 00555000 AL CODEPTR,@CF00075 0316 00556000 * END; 0317 00557000 * RFY 0318 00558000 * CALLRG2 RSTD; 0318 00559000 @RF00313 DS 0H 0318 00560000 @RF00312 DS 0H 0319 00561000 * CODEPTR=CODEPTR+'01'X; /* UPDATE PTR FOR COMMA */ 00562000 AL CODEPTR,@CF00445 0319 00563000 * RCODE2='00'X; /* CODE FOR INFO */ 00564000 MVI RCODE2(CODEPTR),X'00' 0320 00565000 * DCODE='4000'X; /* IMMEDIATE ACTION */ 00566000 MVC DCODE(2,CODEPTR),@CB02626 0321 00567000 * CALLRG2=ADDR(SETUCB); /* EXIT ADDR */ 00568000 LA CALLRG2,SETUCB 0322 00569000 * GOTO RDCODE; /* GO WRITE MSG */ 00570000 B RDCODE 0323 00571000 * RFY 0324 00572000 * CALLRG2 UNRSTD; 0324 00573000 * 0325 00574000 * /*****************************************************************/ 00575000 * /* */ 00576000 * /* PERMANENT I/O ERROR MESSAGE */ 00577000 * /* */ 00578000 * /*****************************************************************/ 00579000 * 0325 00580000 *MSG2: 0325 00581000 * IOSMSG='0'B; /* TURN OFF IOSMSG BIT */ 00582000 * 0325 00583000 MSG2 NI IOSMSG(IOSBPTR),B'11111011' 0325 00584000 * /*****************************************************************/ 00585000 * /* */ 00586000 * /* SET UP EWA PTR */ 00587000 * /* */ 00588000 * /*****************************************************************/ 00589000 * 0326 00590000 * EWAPTR=IOSERP; /* ADDR OF EWA */ 00591000 L EWAPTR,IOSERP(,IOSBPTR) 0326 00592000 * MSID=MSG2ID; /* MESSAGE ID */ 00593000 MVC MSID(8,MSGPTR),MSG2ID 0327 00594000 * GEN REFS(CUA,EWACHA); 0328 00595000 UNPK CUA(5,MSGPTR),EWACHA(3,EWAPTR) 00596000 TR CUA+1(3,MSGPTR),TRTABLE-238 00597000 MVC CUA(3,MSGPTR),CUA+1(MSGPTR) MOVE INTO POSITION 00598000 * E1='6B'X; 0329 00599000 MVI E1(MSGPTR),X'6B' 0329 00600000 *STATCK: 0330 00601000 * IF IOSTSA='00'X&IOSTSB='00'X /* IF STATUS IS ZERO, */ 00602000 * THEN 0330 00603000 STATCK CLI IOSTSA(IOSBPTR),X'00' 0330 00604000 BNE @RF00330 0330 00605000 CLI IOSTSB(IOSBPTR),X'00' 0330 00606000 BNE @RF00330 0330 00607000 * DO; /* THEN GIVE A */ 00608000 * ERDESC=UNKW; /* GENERAL DESCRIPTION */ 00609000 MVC ERDESC(3,MSGPTR),UNKW 0332 00610000 * GOTO BLD1; /* GOTO BYPASS SENSE INFO */ 00611000 B BLD1 0333 00612000 * END; 0334 00613000 * IF CNLCCK='1'B /* CHANNEL CONTROL CHECK */ 00614000 * THEN 0335 00615000 * 0335 00616000 @RF00330 TM CNLCCK(IOSBPTR),B'00000100' 0335 00617000 BNO @RF00335 0335 00618000 * /***************************************************************/ 00619000 * /* */ 00620000 * /* IF THIS IS SPECIAL STATUS SET BY I/O RESTART @ZA27489*/ 00621000 * /* FOR ACR, CCH OR MIH, SET RST DESCRIPTION. IF @ZA27489*/ 00622000 * /* ONLY CCC BIT IS ON, SET CCC DESCRIPTION @ZA27489*/ 00623000 * /* */ 00624000 * /***************************************************************/ 00625000 * 0336 00626000 * IF INTCC='1'B THEN /* CCC + ICC ? @ZA27489*/ 00627000 TM INTCC(IOSBPTR),B'00000010' 0336 00628000 BNO @RF00336 0336 00629000 * DO; /* YES @ZA27489*/ 00630000 * ERDESC=RST; /* DESCR = RESTART @ZA27489*/ 00631000 MVC ERDESC(3,MSGPTR),RST 0338 00632000 * GOTO BLD1; /* GO FINISH MSG @ZA27489*/ 00633000 B BLD1 0339 00634000 * END; /* @ZA27489*/ 00635000 * ELSE /* NO, @ZA27489*/ 00636000 * DO; /* YES, SET DESCRIPTION */ 00637000 @RF00336 DS 0H 0342 00638000 * ERDESC=CCC; /* AND CONTINUE MESSAGE */ 00639000 MVC ERDESC(3,MSGPTR),CCC 0342 00640000 * GOTO BLD1; /* BUILDING */ 00641000 B BLD1 0343 00642000 * END; 0344 00643000 * IF INTCC='1'B /* INTERFACE CONTROL CHECK */ 00644000 * THEN 0345 00645000 @RF00335 TM INTCC(IOSBPTR),B'00000010' 0345 00646000 BNO @RF00345 0345 00647000 * DO; /* YES, SET DESCRIPTION */ 00648000 * ERDESC=ICC; /* AND CONTINUE MESSAGE */ 00649000 MVC ERDESC(3,MSGPTR),ICC 0347 00650000 * GOTO BLD1; /* BUILDING */ 00651000 B BLD1 0348 00652000 * END; 0349 00653000 * IF UNTCK='1'B /* UNIT CHECK? */ 00654000 * THEN 0350 00655000 @RF00345 TM UNTCK(IOSBPTR),B'00000010' 0350 00656000 BO @RT00350 0350 00657000 * GOTO SENSETST; /* YES, GO TEST SENSE */ 00658000 * IF CNLDCK='1'B /* CHANNEL DATA CHECK? */ 00659000 * THEN 0352 00660000 TM CNLDCK(IOSBPTR),B'00001000' 0352 00661000 BNO @RF00352 0352 00662000 * DO; /* YES, SET DESCRIPTION */ 00663000 * ERDESC=CDC; /* AND CONTINUE MESSAGE */ 00664000 MVC ERDESC(3,MSGPTR),CDC 0354 00665000 * GOTO BLD1; /* BUILDING */ 00666000 B BLD1 0355 00667000 * END; 0356 00668000 * IF CHAINCK='1'B /* CHAINNING CHECK? */ 00669000 * THEN 0357 00670000 @RF00352 TM CHAINCK(IOSBPTR),B'00000001' 0357 00671000 BNO @RF00357 0357 00672000 * DO; /* YES, SET DESCRIPTION */ 00673000 * ERDESC=CHC; /* AND CONTINUE MESSAGE */ 00674000 MVC ERDESC(3,MSGPTR),CHC 0359 00675000 * GOTO BLD1; /* BUILDING */ 00676000 B BLD1 0360 00677000 * END; 0361 00678000 * IF CHPROGCK='1'B /* CHNL PROGRAM CHECK */ 00679000 * THEN 0362 00680000 @RF00357 TM CHPROGCK(IOSBPTR),B'00100000' 0362 00681000 BNO @RF00362 0362 00682000 * DO; /* YES, SET DESCRIPTION */ 00683000 * ERDESC=CPC; /* AND CONTINUE MESSAGE */ 00684000 MVC ERDESC(3,MSGPTR),CPC 0364 00685000 * GOTO BLD1; /* BUILDING */ 00686000 B BLD1 0365 00687000 * END; 0366 00688000 * IF PROCK='1'B /* PROTECTION CHECK */ 00689000 * THEN 0367 00690000 @RF00362 TM PROCK(IOSBPTR),B'00010000' 0367 00691000 BNO @RF00367 0367 00692000 * DO; /* YES, SET DESCRIPTION */ 00693000 * ERDESC=PRC; /* AND CONTINUE MESSAGE */ 00694000 MVC ERDESC(3,MSGPTR),PRC 0369 00695000 * GOTO BLD1; /* BUILDING */ 00696000 B BLD1 0370 00697000 * END; 0371 00698000 * IF UNEXCP='1'B /* UNIT EXCEPTION? */ 00699000 * THEN /* YES, IF TP PUT IN UNIT */ 00700000 @RF00367 TM UNEXCP(IOSBPTR),B'00000001' 0372 00701000 BNO @RF00372 0372 00702000 * IF UCB3COMM='1'B /* EXCEPTION DESCRIPTION */ 00703000 * THEN 0373 00704000 TM UCB3COMM(UCBPTR),B'01000000' 0373 00705000 BNO @RF00373 0373 00706000 * DO; /* ZA03874 */ 00707000 * DO; /* ZA03874 */ 00708000 * ERDESC=UEX; 0376 00709000 MVC ERDESC(3,MSGPTR),UEX 0376 00710000 * GOTO BLD1; /* @ZA03874*/ 00711000 B BLD1 0377 00712000 * END; /* @ZA03874*/ 00713000 * END; /* @ZA03874*/ 00714000 * ELSE 0380 00715000 * ; 0380 00716000 @RF00373 DS 0H 0381 00717000 * ERDESC=UNKW; /* GENERAL FOR ALL OTHER */ 00718000 @RF00372 MVC ERDESC(3,MSGPTR),UNKW 0381 00719000 * GOTO BLD1; /* CONDITIONS */ 00720000 B BLD1 0382 00721000 * 0383 00722000 */* */ 00723000 */* WE HAVE A UNIT CHECK, EXAMINE SENSE FOR SPECFIC TYPE */ 00724000 */* */ 00725000 * 0383 00726000 *SENSETST: 0383 00727000 * IF S1='00'X&S2='00'X /* ZERO SENSE */ 00728000 * THEN 0383 00729000 SENSETST CLI S1(EWAPTR),X'00' 0383 00730000 BNE @RF00383 0383 00731000 CLI S2(EWAPTR),X'00' 0383 00732000 BNE @RF00383 0383 00733000 * DO; /* YES,GENERAL DESCRIPTION */ 00734000 * ERDESC=UNKW; 0385 00735000 MVC ERDESC(3,MSGPTR),UNKW 0385 00736000 * GOTO BLD1; /* NO MORE SENSE CHECKING */ 00737000 B BLD1 0386 00738000 * END; 0387 00739000 * IF SENSEB=IOSSNSBD /* DID SENSE FAIL? */ 00740000 * THEN 0388 00741000 @RF00383 CLC SENSEB(2,EWAPTR),@CB00509 0388 00742000 BNE @RF00388 0388 00743000 * DO; /* YES,SENSE MALFUNCTION */ 00744000 * ERDESC=SEN; /* NO MORE SENSE CHECK */ 00745000 MVC ERDESC(3,MSGPTR),SEN 0390 00746000 * GOTO BLD2; 0391 00747000 B BLD2 0391 00748000 * END; 0392 00749000 * IF UNITTP='1'B&UCBTBYT4='F1'X&UCBTBYT3='40'X/* 3791 @Z40KPLG*/ 00750000 * THEN 0393 00751000 @RF00388 TM UNITTP(EWAPTR),B'00000010' 0393 00752000 BNO @RF00393 0393 00753000 CLI UCBTBYT4(UCBPTR),X'F1' 0393 00754000 BNE @RF00393 0393 00755000 CLI UCBTBYT3(UCBPTR),X'40' 0393 00756000 BNE @RF00393 0393 00757000 * DO; /* DEVICE DEPENDENT SENSE 0394 00758000 * @Z40KPLG*/ 00759000 * ERDESC=NIN; /* DEVICE NOT INITIALIZED 0395 00760000 * @Z40KPLG*/ 00761000 MVC ERDESC(3,MSGPTR),NIN 0395 00762000 * GOTO BLD1; /* @Z40KPLG*/ 00763000 B BLD1 0396 00764000 * END; 0397 00765000 * IF EQUIPCK='1'B /* EQUIPMENT CHECK? */ 00766000 * THEN 0398 00767000 @RF00393 TM EQUIPCK(EWAPTR),B'00010000' 0398 00768000 BNO @RF00398 0398 00769000 * DO; /* YES,GET DESCRIPTION */ 00770000 * IF UCB3DACC='1'B&UCBRVDEV='1'B&S8='25'X 0400 00771000 * 0400 00772000 * /*************************************************************/ 00773000 * /* */ 00774000 * /* SA FAILURE ON V3330? @G24LNLC*/ 00775000 * /* */ 00776000 * /*************************************************************/ 00777000 * 0400 00778000 * THEN 0400 00779000 TM UCB3DACC(UCBPTR),B'00100000' 0400 00780000 BNO @RF00400 0400 00781000 TM UCBRVDEV(UCBPTR),B'00001000' 0400 00782000 BNO @RF00400 0400 00783000 CLI S8(EWAPTR),37 0400 00784000 BNE @RF00400 0400 00785000 * ERDESC=SAF; /* ERR DESC IS SAF @G24LNLC*/ 00786000 MVC ERDESC(3,MSGPTR),SAF 0401 00787000 * ELSE 0402 00788000 * ERDESC=EQC; /* AND GO FINISH MESSAGE @G24LNLC*/ 00789000 B @RC00400 0402 00790000 @RF00400 MVC ERDESC(3,MSGPTR),EQC 0402 00791000 * GOTO BLD1; /* BUILD */ 00792000 B BLD1 0403 00793000 * END; 0404 00794000 * IF BUS='1'B /* BUS OUT CHECK? */ 00795000 * THEN 0405 00796000 @RF00398 TM BUS(EWAPTR),B'00100000' 0405 00797000 BNO @RF00405 0405 00798000 * DO; /* YES,GET DESCRIPTION */ 00799000 * ERDESC=BOC; /* AND GO FINISH MESSAGE */ 00800000 MVC ERDESC(3,MSGPTR),BOC 0407 00801000 * GOTO BLD1; /* BUILD */ 00802000 B BLD1 0408 00803000 * END; 0409 00804000 * IF COMDREJ='1'B /* COMMAND REJECT? */ 00805000 * THEN 0410 00806000 @RF00405 TM COMDREJ(EWAPTR),B'10000000' 0410 00807000 BNO @RF00410 0410 00808000 * DO; /* YES, TEST BYTE ONE */ 00809000 * IF MISSADR='1'B /* 8002 MEANS WRITE NOT */ 00810000 * &UCB3DACC='1'B /* @ZUP1028*/ 00811000 * &UCB3DACC='1'B /* @ZUP1028*/ 00812000 * THEN 0412 00813000 TM MISSADR(EWAPTR),B'00000010' 0412 00814000 BNO @RF00412 0412 00815000 TM UCB3DACC(UCBPTR),B'00100000' 0412 00816000 BNO @RF00412 0412 00817000 * ERDESC=WRI; /* ALLOWED */ 00818000 MVC ERDESC(3,MSGPTR),WRI 0413 00819000 * ELSE 0414 00820000 * ERDESC=CMD; /* OTHERWISE,COMMAND REJECT */ 00821000 B @RC00412 0414 00822000 @RF00412 MVC ERDESC(3,MSGPTR),CMD 0414 00823000 * GOTO BLD1; /* FINISH MESSAGE */ 00824000 B BLD1 0415 00825000 * END; 0416 00826000 * IF UCB3UREC='1'B&UCBTBYT4='42'X /* @Y30LPLC*/ 00827000 * 0417 00828000 * /*****************************************************************/ 00829000 * /* */ 00830000 * /* IF DSM, BYPASS OTHER @Y30LPLC*/ 00831000 * /* */ 00832000 * /*****************************************************************/ 00833000 * 0417 00834000 * THEN 0417 00835000 @RF00410 TM UCB3UREC(UCBPTR),B'00001000' 0417 00836000 BNO @RF00417 0417 00837000 CLI UCBTBYT4(UCBPTR),X'42' 0417 00838000 BE @RT00417 0417 00839000 * GOTO IGEDSM; /* CHECKS,SINCE MSS @Y30LPLC 00840000 * BITS ARE DIFFERENT@Y30LPLC */ 00841000 * IF DATACK='1'B /* DATA CHECK */ 00842000 * THEN 0419 00843000 @RF00417 TM DATACK(EWAPTR),B'00001000' 0419 00844000 BNO @RF00419 0419 00845000 * DO; /* GENERAL DESCRIPTION */ 00846000 * ERDESC=DCK; /* FOR DATA CHECK */ 00847000 MVC ERDESC(3,MSGPTR),DCK 0421 00848000 * IF UCB3TAPE='1'B /* NOW CHECK FOR TAPE */ 00849000 * THEN /* YES, OVERRUN? */ 00850000 TM UCB3TAPE(UCBPTR),B'10000000' 0422 00851000 BNO @RF00422 0422 00852000 * IF OVERRUN='1'B /* YES, OVERRUN INSTEAD OF */ 00853000 * THEN 0423 00854000 TM OVERRUN(EWAPTR),B'00000100' 0423 00855000 BNO @RF00423 0423 00856000 * ERDESC=OVR; /* DCK DESCRIPTION */ 00857000 MVC ERDESC(3,MSGPTR),OVR 0424 00858000 * GOTO BLD1; /* FINISH MESSAGE */ 00859000 B BLD1 0425 00860000 * END; 0426 00861000 * IF LOADCK='1'B&UCB3UREC='1'B&(UCBTBYT4='0E'X|UCBTBYT4='09'X) THEN 00862000 @RF00419 TM LOADCK(EWAPTR),B'00000010' 0427 00863000 BNO @RF00427 0427 00864000 TM UCB3UREC(UCBPTR),B'00001000' 0427 00865000 BNO @RF00427 0427 00866000 CLI UCBTBYT4(UCBPTR),X'0E' 0427 00867000 BE @RT00427 0427 00868000 CLI UCBTBYT4(UCBPTR),X'09' 0427 00869000 BNE @RF00427 0427 00870000 @RT00427 DS 0H 0428 00871000 * /* LOAD CHECK FOR 3211 AND 3800 00872000 * @ZA20622*/ 00873000 * DO; /* @ZA20622*/ 00874000 * ERDESC=UNKW; /* MAKE DESCRIPTION 'IOE' 0429 00875000 * @ZA20622*/ 00876000 MVC ERDESC(3,MSGPTR),UNKW 0429 00877000 * GOTO BLD1; /* FINISH MESSAGE @ZA20622*/ 00878000 B BLD1 0430 00879000 * END; /* @ZA20622*/ 00880000 * ELSE 0432 00881000 * ; /* @ZA20622*/ 00882000 * 0432 00883000 @RF00427 DS 0H 0433 00884000 * /*****************************************************************/ 00885000 * /* */ 00886000 * /* IF NOT ERIC @ZM31771*/ 00887000 * /* */ 00888000 * /*****************************************************************/ 00889000 * 0433 00890000 * IF UCBTBYT4^='44'X /* THEN CHECK FOR @ZM31771*/ 00891000 * THEN /* OVERRUN @ZM31771*/ 00892000 CLI UCBTBYT4(UCBPTR),X'44' 0433 00893000 BE @RF00433 0433 00894000 * DO; /* @ZM31771*/ 00895000 * IF OVERRUN='1'B /* OVERRUN? */ 00896000 * THEN 0435 00897000 TM OVERRUN(EWAPTR),B'00000100' 0435 00898000 BNO @RF00435 0435 00899000 * DO; /* YES,GET DESCRIPTION */ 00900000 * ERDESC=OVR; /* AND GO FINISH MESSAGE */ 00901000 MVC ERDESC(3,MSGPTR),OVR 0437 00902000 * GOTO BLD1; 0438 00903000 B BLD1 0438 00904000 * END; 0439 00905000 * END; /* @ZM31771*/ 00906000 @RF00435 DS 0H 0441 00907000 * IF SEEKCK='1'B /* SEEK CK? */ 00908000 * THEN 0441 00909000 @RF00433 TM SEEKCK(EWAPTR),B'00000001' 0441 00910000 BNO @RF00441 0441 00911000 * DO; /* YES,GET DESCRIPTION */ 00912000 * IF UCB3TAPE='1'B /* FOR TAPE,DATA CONVERTER */ 00913000 * THEN 0443 00914000 TM UCB3TAPE(UCBPTR),B'10000000' 0443 00915000 BNO @RF00443 0443 00916000 * DO; /* CHECK MESSAGE */ 00917000 * ERDESC=DCC; 0445 00918000 MVC ERDESC(3,MSGPTR),DCC 0445 00919000 * GOTO CDCTEST; /* NOW TEST FOR CHNL DATA CK */ 00920000 B CDCTEST 0446 00921000 * END; 0447 00922000 * IF UCB3COMM='1'B /* TP? YES,TIME OUT MESSAGE */ 00923000 * THEN /* @YM8818*/ 00924000 @RF00443 TM UCB3COMM(UCBPTR),B'01000000' 0448 00925000 BNO @RF00448 0448 00926000 * DO; /* @YM8818*/ 00927000 * ERDESC=TOT; /* @YM8818*/ 00928000 MVC ERDESC(3,MSGPTR),TOT 0450 00929000 * GOTO BLD1; /* @YM8818*/ 00930000 B BLD1 0451 00931000 * END; /* @YM8818*/ 00932000 * IF UCB3DACC='0'B /* IF NOT DA, @ZA04571*/ 00933000 * THEN 0453 00934000 @RF00448 TM UCB3DACC(UCBPTR),B'00100000' 0453 00935000 BNZ @RF00453 0453 00936000 * ERDESC=UNKW; /* THEN ALL OTHER DEVICE @ZA04571 00937000 * CLASSES GET IOE @ZA04571*/ 00938000 MVC ERDESC(3,MSGPTR),UNKW 0454 00939000 * ELSE 0455 00940000 * ERDESC=SKC; /* SEEK CHECK */ 00941000 B @RC00453 0455 00942000 @RF00453 MVC ERDESC(3,MSGPTR),SKC 0455 00943000 * GOTO BLD1; /* FINSIH MESSAGE */ 00944000 B BLD1 0456 00945000 * END; 0457 00946000 * 0457 00947000 * /*****************************************************************/ 00948000 * /* */ 00949000 * /* IF NOT ERIC THEN @ZM31771*/ 00950000 * /* */ 00951000 * /*****************************************************************/ 00952000 * 0458 00953000 * IF UCBTBYT4^='44'X /* CHECK FOR NRF @ZM31771*/ 00954000 * THEN /* @ZM31771*/ 00955000 @RF00441 CLI UCBTBYT4(UCBPTR),X'44' 0458 00956000 BE @RF00458 0458 00957000 * DO; /* @ZM31771*/ 00958000 * IF NOREC='1'B /* NO RECORD FOUND? */ 00959000 * THEN 0460 00960000 TM NOREC(EWAPTR),B'00001000' 0460 00961000 BNO @RF00460 0460 00962000 * DO; /* YES,GET DESCRIPTION */ 00963000 * ERDESC=NRF; /* AND GO FINISH MESSAGE */ 00964000 MVC ERDESC(3,MSGPTR),NRF 0462 00965000 * GOTO BLD1; 0463 00966000 B BLD1 0463 00967000 * END; 0464 00968000 * END; /* @ZM31771*/ 00969000 @RF00460 DS 0H 0466 00970000 * IF MISSADR='1'B&UCB3DACC='1'B /* MISSING ADDR MARK YM2517*/ 00971000 * THEN 0466 00972000 @RF00458 TM MISSADR(EWAPTR),B'00000010' 0466 00973000 BNO @RF00466 0466 00974000 TM UCB3DACC(UCBPTR),B'00100000' 0466 00975000 BNO @RF00466 0466 00976000 * DO; /* & DA DEVICE-MAM,ELSE IOE 0467 00977000 * YM2517*/ 00978000 * ERDESC=MAM; /* DESCRIPTION */ 00979000 MVC ERDESC(3,MSGPTR),MAM 0468 00980000 * GOTO BLD1; /* GO FINISH MESSAGE */ 00981000 B BLD1 0469 00982000 * END; 0470 00983000 * IF NOTCAPBL='1'B&UCB3TAPE='1'B THEN/* TAPE AND NOT CAPABLE 0471 00984000 * @ZA29111*/ 00985000 @RF00466 TM NOTCAPBL(EWAPTR),B'00000001' 0471 00986000 BNO @RF00471 0471 00987000 TM UCB3TAPE(UCBPTR),B'10000000' 0471 00988000 BNO @RF00471 0471 00989000 * DO; /* @ZA29111*/ 00990000 * ERDESC=NCA; /* DESCRIPTION = NOT CAPABLE 0473 00991000 * @ZA29111*/ 00992000 MVC ERDESC(3,MSGPTR),NCA 0473 00993000 * GOTO BLD1; /* FINISH MSG @ZA29111*/ 00994000 B BLD1 0474 00995000 * END; /* @ZA29111*/ 00996000 *IGEDSM: 0476 00997000 * IF UCB3UREC='1'B&UCBTBYT4='42'X THEN/* DSM? @ZM31764*/ 00998000 @RF00471 DS 0H 0476 00999000 IGEDSM TM UCB3UREC(UCBPTR),B'00001000' 0476 01000000 BNO @RF00476 0476 01001000 CLI UCBTBYT4(UCBPTR),X'42' 0476 01002000 BNE @RF00476 0476 01003000 * DO; /* YES @ZM31764*/ 01004000 * IF CEMBIT='1'B /* CE MESSAGE BIT ON ? @Y30LPLC*/ 01005000 * THEN 0478 01006000 TM CEMBIT(EWAPTR),B'10000000' 0478 01007000 BNO @RF00478 0478 01008000 * DO; /* YES, GET DESCRIPTION @Y30LPLC*/ 01009000 * ERDESC=CEM; /* AND GO FINISH MESSAGE. 0480 01010000 * @Y30LPLC*/ 01011000 MVC ERDESC(3,MSGPTR),CEM 0480 01012000 * GOTO BLD1; /* @Y30LPLC*/ 01013000 B BLD1 0481 01014000 * END; /* @Y30LPLC*/ 01015000 * IF SUUBIT='1'B /* SUBSYS UNIT UNUSABLE ? 0483 01016000 * @Y30LPLC*/ 01017000 * THEN 0483 01018000 @RF00478 TM SUUBIT(EWAPTR),B'01000000' 0483 01019000 BNO @RF00483 0483 01020000 * DO; /* YES, GET DESCRIPTION @Y30LPLC*/ 01021000 * ERDESC=SUU; /* AND GO FINISH MESSAGE. 0485 01022000 * @Y30LPLC*/ 01023000 MVC ERDESC(3,MSGPTR),SUU 0485 01024000 * GOTO BLD1; /* @Y30LPLC*/ 01025000 B BLD1 0486 01026000 * END; /* @Y30LPLC*/ 01027000 * END; /* @ZM31764*/ 01028000 @RF00483 DS 0H 0489 01029000 * ERDESC=UNKW; /* ELSE,GENERAL */ 01030000 @RF00476 MVC ERDESC(3,MSGPTR),UNKW 0489 01031000 */* AT THIS POINT, WE HAVE A GENERAL ERROR DESCRIPTION */ 01032000 */* TRY TO PIN IT DOWN FURTHER, VIA DEVICE CHECKS */ 01033000 * 0490 01034000 * IF UCB3DACC='1'B /* DIRECT ACCESS? */ 01035000 * THEN 0490 01036000 TM UCB3DACC(UCBPTR),B'00100000' 0490 01037000 BO @RT00490 0490 01038000 * GOTO CDCTEST; /* YES, GO CHECK CDC SINCE ERROR 01039000 * ON UNIT CK IS LOW PRIORITY */ 01040000 * IF S1^='02'X /* INVALID FOR UR OR TP */ 01041000 * THEN 0492 01042000 CLI S1(EWAPTR),X'02' 0492 01043000 BNE @RT00492 0492 01044000 * GOTO CDCTEST; /* SO GO RIGHT TO CDC */ 01045000 * IF UCB3UREC='1'B /* UNIT RECORD? */ 01046000 * THEN 0494 01047000 TM UCB3UREC(UCBPTR),B'00001000' 0494 01048000 BNO @RF00494 0494 01049000 * DO; /* YES,CHECK FOR 2540 */ 01050000 * IF UCBTBYT4='01'X|UCBTBYT4='02'X THEN 0496 01051000 CLI UCBTBYT4(UCBPTR),X'01' 0496 01052000 BE @RT00496 0496 01053000 CLI UCBTBYT4(UCBPTR),X'02' 0496 01054000 BNE @RF00496 0496 01055000 @RT00496 DS 0H 0497 01056000 * ERDESC=UNC; /* UNIT RECORD CHECK */ 01057000 MVC ERDESC(3,MSGPTR),UNC 0497 01058000 * ELSE 0498 01059000 * ; 0498 01060000 @RF00496 DS 0H 0499 01061000 * GOTO CDCTEST; /* GO TEST CHNL CHECK */ 01062000 B CDCTEST 0499 01063000 * END; 0500 01064000 * RFY 0501 01065000 * (WKREG1, 0501 01066000 * WKREG2) RSTD; 0501 01067000 @RF00494 DS 0H 0502 01068000 * IF UCB3COMM='1'B /* TP? */ 01069000 * THEN /* YES, CHANGE GENERAL DESC */ 01070000 * 0502 01071000 TM UCB3COMM(UCBPTR),B'01000000' 0502 01072000 BNO @RF00502 0502 01073000 * /***************************************************************/ 01074000 * /* */ 01075000 * /* THE FOLLOWING CODE WAS ADDED TO ENSURE A @ZA27238*/ 01076000 * /* CORRECT TEST FOR THE 3705 DEVICE. UCBTBYT4 @ZA27238*/ 01077000 * /* MAY ALSO CONTAIN MODEL INFORMATION IN @ZA27238*/ 01078000 * /* THE HIGH ORDER NIBBLE, THEREFORE, A STRAIGHT @ZA27238*/ 01079000 * /* CLI IS NOT ADEQUATE. @ZA27238*/ 01080000 * /* */ 01081000 * /***************************************************************/ 01082000 * 0503 01083000 * WKREG1=UCBTBYT4; /* GET UCB TYPE BYTE 4 @ZA27238*/ 01084000 SLR WKREG1,WKREG1 0503 01085000 IC WKREG1,UCBTBYT4(,UCBPTR) 0503 01086000 * WKREG2=K0F; /* CONSTANT TO CLEAR @ZA27238*/ 01087000 @RF00502 LA WKREG2,15 0504 01088000 * WKREG1=WKREG1&WKREG2; /* HIGH ORDER NIBBLE @ZA27238*/ 01089000 NR WKREG1,WKREG2 0505 01090000 * WKREG2='05'X; /* CONST DEFINING 3705 @ZA27238*/ 01091000 LA WKREG2,5 0506 01092000 * IF WKREG1=WKREG2 THEN /* DEVICE IS 3705, IPL @ZA27238*/ 01093000 CR WKREG1,WKREG2 0507 01094000 BNE @RF00507 0507 01095000 * ERDESC=IPL; /* DESCRIPTION */ 01096000 MVC ERDESC(3,MSGPTR),IPL 0508 01097000 * ELSE 0509 01098000 * ERDESC=LDA; /* OTHERWISE,LOST DATA */ 01099000 B @RC00507 0509 01100000 @RF00507 MVC ERDESC(3,MSGPTR),LDA 0509 01101000 * RFY 0510 01102000 * (WKREG1, 0510 01103000 * WKREG2) UNRSTD; 0510 01104000 * 0510 01105000 @RC00507 DS 0H 0511 01106000 * /*****************************************************************/ 01107000 * /* */ 01108000 * /* CHANNEL DATA CHECK IS HIGHER PRIORITY THAN SOME TYPES OF UNIT */ 01109000 * /* CHECK- WE COME HERE IN THOSE CASES TO TEST FOR CDC AND IF SO, */ 01110000 * /* TO CHANGE THE DESCRIPTION */ 01111000 * /* */ 01112000 * /*****************************************************************/ 01113000 * 0511 01114000 *CDCTEST: 0511 01115000 * IF CNLDCK='1'B /* IF CHANNEL DATA CHECK, */ 01116000 * THEN 0511 01117000 CDCTEST TM CNLDCK(IOSBPTR),B'00001000' 0511 01118000 BNO @RF00511 0511 01119000 * ERDESC=CDC; /* CHANGE MSG DESCRIPTION */ 01120000 * 0512 01121000 MVC ERDESC(3,MSGPTR),CDC 0512 01122000 * /*****************************************************************/ 01123000 * /* */ 01124000 * /* ERROR DESCRIPTION HAS BEEN DETERMINED, NOW FINISH BUILDING THE*/ 01125000 * /* MESSAGE */ 01126000 * /* */ 01127000 * /*****************************************************************/ 01128000 * 0513 01129000 *BLD1: 0513 01130000 * RFY 0513 01131000 * (WKREG, 0513 01132000 * CALLRG2) RSTD; 0513 01133000 @RF00511 DS 0H 0513 01134000 BLD1 DS 0H 0514 01135000 * CMIO1='EF'X; /* INITIALIZE COMMAND CODE 0514 01136000 * @YM06402*/ 01137000 MVI CMIO1(MSGPTR),X'EF' 0514 01138000 * CMIO2='EF'X; /* TO ASTERISKS @YM06402*/ 01139000 MVI CMIO2(MSGPTR),X'EF' 0515 01140000 * IF IOSSMDA='1'B /* IF ORIGINAL CMD CD HAS 0516 01141000 * @YM06402*/ 01142000 * THEN 0516 01143000 TM IOSSMDA(IOSBPTR),B'00010000' 0516 01144000 BO @RT00516 0516 01145000 * GOTO BLD1A; /* BEEN OVERLAYED,USE ** @YM06402*/ 01146000 * WKREG=UCBCCWOF; /* GET CCW OFFSET @ZA27888*/ 01147000 L @12,UCBEXTPT(,UCBPTR) 0518 01148000 LH WKREG,UCBCCWOF(,@12) 0518 01149000 * WKREG=WKREG*8; /* MULTIPLY BY CCW LENGTH 0519 01150000 * @ZA27888*/ 01151000 SLL WKREG,3 0519 01152000 * WKREG=WKREG+IOCIOSCP; /* ADD TO PREFIX CHANNEL PROGRAM 01153000 * ADDRESS @ZA27888*/ 01154000 L @12,CVTPTR 0520 01155000 L @12,IOCOMPTR(,@12) 0520 01156000 AL WKREG,IOCIOSCP(,@12) 0520 01157000 * IF IOSCSWCA-8>=WKREG&IOSCSWCA-8'06'X /* MORE THAN SIX SENSE BYTES */ 01242000 * THEN 0549 01243000 CLI UCBSNSCT(@12),6 0549 01244000 BH @RT00549 0549 01245000 * GOTO TWOLIN; /* THEN WE NEED A 2 LINE MSG */ 01246000 * WKREG2=WKREG; /* INTO TWO REGS */ 01247000 LR WKREG2,WKREG 0551 01248000 * GEN REFS(IOSEN,EWASNS); 0552 01249000 * /* UNPK AND TRANSLATE SENSE */ 01250000 SLL WKREG,5 2 TIMES SENSECNT FOR UNPK 01251000 OR WKREG,WKREG2 NOW NUMBER TO BE UNPACKED AND 01252000 * NUMBER OF RESULTING BYTES ARE 01253000 EX WKREG,SENSEPK IN A REGISTER FOR THE UNPACK 01254000 SRL WKREG,4 WKREG NOW HAS NUMBER OF SENSE 01255000 * TO BE TRANSLATED. USE THIS TO SET 01256000 LA CODEPTR,IOSEN(WKREG,MSGPTR) SET UP PTR FOR NEXT AREA 01257000 LA WKREG,7(WKREG) NOW ADD 7- ADD 8 FOR OP 01258000 * CODE,SUBTRACT 1 FOR EXECUTE 01259000 EX WKREG,TRANSL TRANSLATE OP,STAT AND SENSE 01260000 * JCOMA='6B'X; /* COMMA AFTER SENSE */ 01261000 MVI JCOMA(CODEPTR),X'6B' 0553 01262000 * CODEPTR=CODEPTR+'01'X; /* UP PTR TO NEXT FIELD */ 01263000 * 0554 01264000 AL CODEPTR,@CF00445 0554 01265000 * /*****************************************************************/ 01266000 * /* */ 01267000 * /* THIS FIELD EXISTS ONLY FOR DA OR TP DEVICES- THE ERP MUST TURN*/ 01268000 * /* ON EWADDMSG TO INDICATE ITS EXISTENCE FOR DA IT IS THE CCHH */ 01269000 * /* FOR TP IT IS THE OP CODE AND TERMINAL ID FOR TAPE IT IS THE */ 01270000 * /* BLOCK COUNT @ZA08857*/ 01271000 * /* */ 01272000 * /*****************************************************************/ 01273000 * 0555 01274000 * IF EWADDMSG='1'B /* DO WE HAVE CCHH OR TP? */ 01275000 * THEN 0555 01276000 TM EWADDMSG(EWAPTR),B'00000010' 0555 01277000 BNO @RF00555 0555 01278000 * DO; /* YES,PUT IN MSG */ 01279000 * IF UCB3TAPE='1'B THEN 0557 01280000 TM UCB3TAPE(UCBPTR),B'10000000' 0557 01281000 BNO @RF00557 0557 01282000 * DO; /* @ZA08857*/ 01283000 */* IF TAPE FORMAT BLOCK COUNT IN MESSAGE @ZA08857*/ 01284000 * 0559 01285000 * GEN(UNPK CCHH(5,CODEPTR),142(3,EWAPTR));/* @ZA08857*/ 01286000 UNPK CCHH(5,CODEPTR),142(3,EWAPTR) 01287000 * GEN(TR CCHH(4,CODEPTR),TRTABLE-238);/* @ZA08857*/ 01288000 TR CCHH(4,CODEPTR),TRTABLE-238 01289000 * CODEPTR=CODEPTR+'04'X; /* @ZA08857*/ 01290000 AL CODEPTR,@CF00429 0561 01291000 * END; /* @ZA08857*/ 01292000 * ELSE 0563 01293000 * DO; /* @ZA08857*/ 01294000 B @RC00557 0563 01295000 @RF00557 DS 0H 0564 01296000 * IF UCB3COMM='1'B THEN 0564 01297000 TM UCB3COMM(UCBPTR),B'01000000' 0564 01298000 BNO @RF00564 0564 01299000 * DO; /* IF T.P. USE ITS DEVICE 0565 01300000 * @ZA02603*/ 01301000 * GEN; 0566 01302000 * /* GET T.P. OP. CODE- TERM I.D. @ZA02603 */ 01303000 UNPK CCHH(3,CODEPTR),40(2,EWAPTR) GET OP.CODE @ZA02603 01304000 MVI CCHH+2(CODEPTR),X'EF' MOVE IN * @ZA02603 01305000 MVI CCHH+3(CODEPTR),X'EF' MOVE ON * @ZA02603 01306000 UNPK CCHH+4(5,CODEPTR),34(3,EWAPTR) TERM ID @ZA02603 01307000 * END; /* @ZA02603*/ 01308000 * ELSE 0568 01309000 * GEN(UNPK CCHH(9,CODEPTR),EWDCCHH(5,EWAPTR));/* @ZA02603*/ 01310000 B @RC00564 0568 01311000 @RF00564 DS 0H 0568 01312000 UNPK CCHH(9,CODEPTR),EWDCCHH(5,EWAPTR) 01313000 * GEN(TR CCHH(8,CODEPTR),TRTABLE-238);/* @ZA02603*/ 01314000 @RC00564 DS 0H 0569 01315000 TR CCHH(8,CODEPTR),TRTABLE-238 01316000 * CODEPTR=CODEPTR+'08'X; /* INCREMENT PTR */ 01317000 AL CODEPTR,@CF00431 0570 01318000 * END; 0571 01319000 * END; 0572 01320000 @RC00557 DS 0H 0573 01321000 * JCOMA='6B'X; /* COMMA AFTER OR IN PLACE OF 0573 01322000 * CCHH FIELD */ 01323000 @RF00555 MVI JCOMA(CODEPTR),X'6B' 0573 01324000 * CODEPTR=CODEPTR+'01'X; /* INCREMENT FOR COMMA */ 01325000 AL CODEPTR,@CF00445 0574 01326000 * CALLRG2=ADDR(RET0); /* NORMAL RETURN ADDR */ 01327000 LA CALLRG2,RET0 0575 01328000 * IF UCB3UREC='1'B /* IF UNIT RECORD BUT NOT */ 01329000 * THEN 0576 01330000 TM UCB3UREC(UCBPTR),B'00001000' 0576 01331000 BNO @RF00576 0576 01332000 * IF UCBTBYT4^='09'X /* A 3211,TEST FOR */ 01333000 * THEN 0577 01334000 CLI UCBTBYT4(UCBPTR),X'09' 0577 01335000 BE @RF00577 0577 01336000 * IF INTREQ='1'B /* INTERVENTION REQ,IF SO */ 01337000 * THEN 0578 01338000 TM INTREQ(EWAPTR),B'01000000' 0578 01339000 BNO @RF00578 0578 01340000 * CALLRG2=ADDR(SETUCB1); /* TURN ON UCB NOT */ 01341000 LA CALLRG2,SETUCB1 0579 01342000 * ELSE 0580 01343000 * ; /* READY AFTER WTO */ 01344000 @RF00578 DS 0H 0581 01345000 * ELSE 0581 01346000 * ; 0581 01347000 @RF00577 DS 0H 0582 01348000 * ELSE 0582 01349000 * ; 0582 01350000 @RF00576 DS 0H 0583 01351000 * GOTO VSER; /* GO GET VOLSER */ 01352000 * 0583 01353000 B VSER 0583 01354000 * /*****************************************************************/ 01355000 * /* */ 01356000 * /* COME HERE TO FINISH BUILDING 1ST LINE OF 2 LINE MESSAGE */ 01357000 * /* */ 01358000 * /*****************************************************************/ 01359000 * 0584 01360000 *TWOLIN: 0584 01361000 * GEN REFS(CMIO)(TR CMIO(8,MSGPTR),TRTABLE-238); 0584 01362000 TWOLIN TR CMIO(8,MSGPTR),TRTABLE-238 01363000 * IO1='6B'X; /* COMMA IN PLACE OF SENSE */ 01364000 MVI IO1(MSGPTR),X'6B' 0585 01365000 * IO2='6B'X; /* AND CCHH,THEY ARE ON SECOND 0586 01366000 * LINE */ 01367000 MVI IO2(MSGPTR),X'6B' 0586 01368000 * CODEPTR=ADDR(IOSEN)+'02'X; /* PTR TO VOL SER FIELD */ 01369000 LA CODEPTR,IOSEN(,MSGPTR) 0587 01370000 AL CODEPTR,@CF00447 0587 01371000 * CALLRG2=ADDR(TWOLINE); /* RETURN HERE FROM WTO */ 01372000 LA CALLRG2,TWOLINE 0588 01373000 * GOTO VSER; /* GO GET VOLUME SERIAL */ 01374000 B VSER 0589 01375000 * RFY 0590 01376000 * CALLRG2 UNRSTD; 0590 01377000 * 0590 01378000 * /*****************************************************************/ 01379000 * /* */ 01380000 * /* SECOND LINE OF PERMANENT I/O ERROR MESSAGE FOR DEVICES WITH */ 01381000 * /* EXPANDED SENSE */ 01382000 * /* */ 01383000 * /*****************************************************************/ 01384000 * 0591 01385000 *TWOLINE: 0591 01386000 * P2='6B'X; /* COMMAS FOR EMPTY FIELDS */ 01387000 TWOLINE MVI P2(MSGPTR),X'6B' 0591 01388000 * P3='6B'X; /* COMMAS FOR EMPTY FIELDS */ 01389000 MVI P3(MSGPTR),X'6B' 0592 01390000 * P4='6B'X; /* COMMAS FOR EMPTY FIELDS */ 01391000 * 0593 01392000 MVI P4(MSGPTR),X'6B' 0593 01393000 * /*****************************************************************/ 01394000 * /* */ 01395000 * /* FOR DIRECT ACCESS, PUT OUT 8 BYTES OF SENSE FOR PROGRAM */ 01396000 * /* ERRORS, 24 FOR EQUIPMENT OR DATA CHECKS, 24 FOR SEEK CHECK ON */ 01397000 * /* 3340 ONLY */ 01398000 * /* */ 01399000 * /*****************************************************************/ 01400000 * 0594 01401000 * IF UCB3DACC='1'B /* DIRECT ACCESS DEVICE */ 01402000 * THEN 0594 01403000 TM UCB3DACC(UCBPTR),B'00100000' 0594 01404000 BNO @RF00594 0594 01405000 * DO; /* YES,CHECK FOR EQ OR DATA */ 01406000 * IF EQUIPCK='1'B|DATACK='1'B|(SEEKCK='1'B&UCBTBYT4='0A'X) THEN 01407000 TM EQUIPCK(EWAPTR),B'00011000' 0596 01408000 BNZ @RT00596 0596 01409000 TM SEEKCK(EWAPTR),B'00000001' 0596 01410000 BNO @RF00596 0596 01411000 CLI UCBTBYT4(UCBPTR),X'0A' 0596 01412000 BNE @RF00596 0596 01413000 @RT00596 DS 0H 0597 01414000 * DO; 0597 01415000 * WKREG2='18'X; /* YES, 24 BYTES */ 01416000 LA WKREG2,24 0598 01417000 * EWADDMSG='0'B; /* TURN OFF CCHH BIT */ 01418000 NI EWADDMSG(EWAPTR),B'11111101' 0599 01419000 * END; 0600 01420000 * ELSE 0601 01421000 * WKREG2='08'X; /* NO,EIGHT */ 01422000 B @RC00596 0601 01423000 @RF00596 LA WKREG2,8 0601 01424000 * GOTO GETSENSE; 0602 01425000 B GETSENSE 0602 01426000 * END; 0603 01427000 * IF UCBSNSCT>'20'X /* MORE THAN 32 BYTES @Y30LPLC*/ 01428000 * THEN 0604 01429000 @RF00594 L @12,UCBEXTPT(,UCBPTR) 0604 01430000 CLI UCBSNSCT(@12),32 0604 01431000 BNH @RF00604 0604 01432000 * WKREG2='20'X; /* YES, DO ONLY 32 @Y30LPLC*/ 01433000 LA WKREG2,32 0605 01434000 * ELSE 0606 01435000 * WKREG2=UCBSNSCT; /* NO, DO REAL COUNT */ 01436000 B @RC00604 0606 01437000 @RF00604 L @12,UCBEXTPT(,UCBPTR) 0606 01438000 SLR WKREG2,WKREG2 0606 01439000 IC WKREG2,UCBSNSCT(,@12) 0606 01440000 *GETSENSE: /* SENSE ROUTINE */ 01441000 * CODEPTR=ADDR(PSENS); /* ADDR OF BEGINNING OF SENSE IN 01442000 * MSG */ 01443000 @RC00604 DS 0H 0607 01444000 GETSENSE LA CODEPTR,PSENS(,MSGPTR) 0607 01445000 * WKREG=ADDR(EWASNS); /* ADDR OF SENSE IN EWA */ 01446000 LA WKREG,EWASNS(,EWAPTR) 0608 01447000 *SENSLOOP: 0609 01448000 * IF WKREG2^>'07'X /* IF LESS THAN 7 TO */ 01449000 * THEN 0609 01450000 SENSLOOP C WKREG2,@CF00456 0609 01451000 BNH @RT00609 0609 01452000 * GOTO ENDSNS; /* CONVERT,GOTO END OF */ 01453000 * 0610 01454000 * /*****************************************************************/ 01455000 * /* */ 01456000 * /* SENSE ROUTINE UNPACK SEVEN BYTES OF SENSE */ 01457000 * /* */ 01458000 * /*****************************************************************/ 01459000 * 0611 01460000 * GEN(UNPK 0(15,CODEPTR),0(8,WKREG)); 0611 01461000 UNPK 0(15,CODEPTR),0(8,WKREG) 01462000 * CODEPTR=CODEPTR+'0E'X; /* HAVE 14 MORE BYTES IN THE MSG 01463000 * BUFFER */ 01464000 AL CODEPTR,@CF02620 0612 01465000 * WKREG=WKREG+'07'X; /* POINT PAST THE 7 WE JUST 0613 01466000 * UNPACKED */ 01467000 LA @12,7 0613 01468000 ALR WKREG,@12 0613 01469000 * WKREG2=WKREG2-'07'X; /* DECREMENT COUNT OF NUMBER TO 01470000 * CONVERT */ 01471000 SLR WKREG2,@12 0614 01472000 * GOTO SENSLOOP; /* GO BACK THRU LOOP */ 01473000 B SENSLOOP 0615 01474000 * RFY 0616 01475000 * CALLRG2 RSTD; 0616 01476000 * 0616 01477000 * /*****************************************************************/ 01478000 * /* */ 01479000 * /* UNPACK AND TRANSLATE INSTRUCTIONS TO BE EXECUTED ON LAST PASS */ 01480000 * /* AND SAME FOR ONE LINE MESSAGE */ 01481000 * /* */ 01482000 * /*****************************************************************/ 01483000 * 0617 01484000 * GEN; 0617 01485000 SNSPACK UNPK 0(0,CODEPTR),0(0,WKREG) 01486000 TRANS TR PSENS(0,MSGPTR),TRTABLE-238 01487000 SENSEPK UNPK IOSEN(0,MSGPTR),EWASNS(0,EWAPTR) 01488000 TRANSL TR CMIO(0,MSGPTR),TRTABLE-238 01489000 *ENDSNS: 0618 01490000 * CALLRG2=WKREG2; /* BYTES REMAINING */ 01491000 ENDSNS LR CALLRG2,WKREG2 0618 01492000 * GEN; 0619 01493000 * /* 01494000 SLL CALLRG2,5 SHIFT INTO 2ND BYTE 01495000 OR WKREG2,CALLRG2 WKREG2 NOW CONTAINS THE 01496000 * 2 LENGTHS NEEDED TO EXECUTE 01497000 * THE UNPACK INSTRUCTION 01498000 EX WKREG2,SNSPACK UNPACK 01499000 SRL WKREG2,4 MOVE LENGTH FOR ADDITION 01500000 * TO THE MSG PTR 01501000 * CODEPTR=CODEPTR+WKREG2; /* INCREMENT MSG PTR */ 01502000 ALR CODEPTR,WKREG2 0620 01503000 * WKREG2=CODEPTR-ADDR(PSENS)-'01'X;/* COMPUTE NUMBER OF BYTES FOR 01504000 * TRANSLATE */ 01505000 LA WKREG2,PSENS(,MSGPTR) 0621 01506000 LCR WKREG2,WKREG2 0621 01507000 ALR WKREG2,CODEPTR 0621 01508000 BCTR WKREG2,0 0621 01509000 * GEN(EX WKREG2,TRANS); 0622 01510000 EX WKREG2,TRANS 01511000 * RESPECIFY 0623 01512000 * (WKREG, 0623 01513000 * WKREG2, 0623 01514000 * CALLRG2) UNRSTD; 0623 01515000 * IF EWADDMSG='1'B /* DO WE HAVE CCHH OR TP? */ 01516000 * THEN 0624 01517000 TM EWADDMSG(EWAPTR),B'00000010' 0624 01518000 BNO @RF00624 0624 01519000 * DO; /* YES, PUT INTO MSG */ 01520000 * JCOMA='6B'X; /* COMMA AFTER SENSE */ 01521000 MVI JCOMA(CODEPTR),X'6B' 0626 01522000 * CODEPTR=CODEPTR+'01'X; /* INCREMENT PTR */ 01523000 AL CODEPTR,@CF00445 0627 01524000 * IF UCB3TAPE='1'B THEN 0628 01525000 TM UCB3TAPE(UCBPTR),B'10000000' 0628 01526000 BNO @RF00628 0628 01527000 * DO; /* @ZA08857*/ 01528000 * 0629 01529000 * /*********************************************************/ 01530000 * /* */ 01531000 * /* IF TAPE FORMAT BLOCK COUNT FOR MESSAGE @ZA08857*/ 01532000 * /* */ 01533000 * /*********************************************************/ 01534000 * 0630 01535000 * GEN(UNPK CCHH(5,CODEPTR),142(3,EWAPTR));/* @ZA08857*/ 01536000 UNPK CCHH(5,CODEPTR),142(3,EWAPTR) 01537000 * GEN(TR CCHH(4,CODEPTR),TRTABLE-238);/* @ZA08857*/ 01538000 TR CCHH(4,CODEPTR),TRTABLE-238 01539000 * CODEPTR=CODEPTR+'04'X; /* @ZA08857*/ 01540000 AL CODEPTR,@CF00429 0632 01541000 * END; /* @ZA08857*/ 01542000 * ELSE 0634 01543000 * DO; /* @ZA08857*/ 01544000 B @RC00628 0634 01545000 @RF00628 DS 0H 0635 01546000 * IF UCB3COMM='1'B THEN 0635 01547000 TM UCB3COMM(UCBPTR),B'01000000' 0635 01548000 BNO @RF00635 0635 01549000 * DO; /* IF T.P. USE ITS EWA SECT. 0636 01550000 * @ZA02603*/ 01551000 * GEN; 0637 01552000 * /* GET OP CODE-TERM ID. @ZA02603*/ 01553000 UNPK CCHH(3,CODEPTR),40(2,EWAPTR) GET OP CODE @ZA02603 01554000 MVI CCHH+2(CODEPTR),X'EF' MOVE IN * @ZA02603 01555000 MVI CCHH+3(CODEPTR),X'EF' MOVE IN * @ZA02603 01556000 UNPK CCHH+4(5,CODEPTR),34(3,EWAPTR) TERM ID@ZA02603 01557000 * END; 0638 01558000 * ELSE /* USE D.A. SECTION @ZA02603*/ 01559000 * GEN(UNPK CCHH(9,CODEPTR),EWDCCHH(5,EWAPTR));/* @ZA02603*/ 01560000 B @RC00635 0639 01561000 @RF00635 DS 0H 0639 01562000 UNPK CCHH(9,CODEPTR),EWDCCHH(5,EWAPTR) 01563000 * GEN(TR CCHH(8,CODEPTR),TRTABLE-238);/* @ZA02603*/ 01564000 @RC00635 DS 0H 0640 01565000 TR CCHH(8,CODEPTR),TRTABLE-238 01566000 * CODEPTR=CODEPTR+'08'X; /* INCREMENT PTR */ 01567000 AL CODEPTR,@CF00431 0641 01568000 * END; 0642 01569000 * END; 0643 01570000 @RC00628 DS 0H 0644 01571000 * RFY 0644 01572000 * CALLRG2 RSTD; 0644 01573000 @RF00624 DS 0H 0645 01574000 * CALLRG2=ADDR(RET0); /* NOW EXIT */ 01575000 LA CALLRG2,RET0 0645 01576000 * IF UCB3UREC='1'B /* IF UNIT RECORD BUT NOT */ 01577000 * THEN 0646 01578000 TM UCB3UREC(UCBPTR),B'00001000' 0646 01579000 BNO @RF00646 0646 01580000 * IF UCBTBYT4^='09'X /* A 3211,TEST FOR */ 01581000 * THEN 0647 01582000 CLI UCBTBYT4(UCBPTR),X'09' 0647 01583000 BE @RF00647 0647 01584000 * IF INTREQ='1'B /* INTERVENTION REQ,IF SO */ 01585000 * THEN 0648 01586000 TM INTREQ(EWAPTR),B'01000000' 0648 01587000 BNO @RF00648 0648 01588000 * CALLRG2=ADDR(SETUCB1); /* TURN ON UCB NOT */ 01589000 LA CALLRG2,SETUCB1 0649 01590000 * ELSE 0650 01591000 * ; /* READY AFTER WTO */ 01592000 @RF00648 DS 0H 0651 01593000 * ELSE 0651 01594000 * ; 0651 01595000 @RF00647 DS 0H 0652 01596000 * ELSE 0652 01597000 * ; 0652 01598000 @RF00646 DS 0H 0653 01599000 * GOTO SETCODE; /* GO FINISH SETUP */ 01600000 B SETCODE 0653 01601000 * RFY 0654 01602000 * CALLRG2 UNRSTD; 0654 01603000 * 0654 01604000 * /*****************************************************************/ 01605000 * /* */ 01606000 * /* GET VOLUME SERIAL FOR DIRECT ACCESS AND TAPE DEVICES */ 01607000 * /* */ 01608000 * /*****************************************************************/ 01609000 * 0655 01610000 *VSER: 0655 01611000 * E2='6B'X; /* COMMA AFTER DESCRIPTION */ 01612000 VSER MVI E2(MSGPTR),X'6B' 0655 01613000 * IF UCB3DACC='1'B /* DA DEVICE?,YES GET VOL */ 01614000 * THEN /* SER FROM EWA */ 01615000 TM UCB3DACC(UCBPTR),B'00100000' 0656 01616000 BNO @RF00656 0656 01617000 * IF EWDCCW9^='000000000000'X THEN 0657 01618000 CLC EWDCCW9(6,EWAPTR),@CB02623 0657 01619000 BE @RF00657 0657 01620000 * DO; /* NOT ZEROS,SO VALID VOLSER */ 01621000 * SER1=EWDCCW9; /* VOL SER INTO MSG */ 01622000 MVC SER1(6,CODEPTR),EWDCCW9(EWAPTR) 0659 01623000 * CODEPTR=CODEPTR+'06'X; /* INC BY VOLSER LG */ 01624000 AL CODEPTR,@CF00454 0660 01625000 * END; 0661 01626000 * IF UCB3TAPE='1'B /* IF TAPE, GET VOL SER */ 01627000 * THEN /* FROM THE UCB */ 01628000 @RF00657 DS 0H 0662 01629000 @RF00656 TM UCB3TAPE(UCBPTR),B'10000000' 0662 01630000 BNO @RF00662 0662 01631000 * IF UCBVOLI^='000000000000'X THEN 0663 01632000 CLC UCBVOLI(6,UCBPTR),@CB02623 0663 01633000 BE @RF00663 0663 01634000 * IF UCBVOLI(1:1)^='FF'X THEN /* CHECK FOR FF-SVA-ID @ZA18804*/ 01635000 CLI UCBVOLI(UCBPTR),X'FF' 0664 01636000 BE @RF00664 0664 01637000 * DO; /* NOT ZEROS,SO VALID VOLSER */ 01638000 * SER1=UCBVOLI; /* VOL SER INTO MSG */ 01639000 MVC SER1(6,CODEPTR),UCBVOLI(UCBPTR) 0666 01640000 * CODEPTR=CODEPTR+'06'X; /* INC BY VOLSER LG */ 01641000 AL CODEPTR,@CF00454 0667 01642000 * END; 0668 01643000 * IF UCB3UREC='1'B&UCBTBYT4='44'X /* 3540 DISKET DEV @Y30OPLB*/ 01644000 * THEN /* @Y30OPLB*/ 01645000 @RF00664 DS 0H 0669 01646000 @RF00663 DS 0H 0669 01647000 @RF00662 TM UCB3UREC(UCBPTR),B'00001000' 0669 01648000 BNO @RF00669 0669 01649000 CLI UCBTBYT4(UCBPTR),X'44' 0669 01650000 BNE @RF00669 0669 01651000 * IF UCBVLSER^='000000000000'X /* @Y30OPLB*/ 01652000 * THEN 0670 01653000 L @12,UCBXTADR(,UCBPTR) 0670 01654000 CLC UCBVLSER(6,@12),@CB02623 0670 01655000 BE @RF00670 0670 01656000 * DO; /* VALID VOL SER @Y30OPLB*/ 01657000 * SER1=UCBVLSER; /* VOL SER INTO SMG @Y30OPLB*/ 01658000 MVC SER1(6,CODEPTR),UCBVLSER(@12) 0672 01659000 * CODEPTR=CODEPTR+'06'X; /* INC BY VOLSER LG @Y30OPLB*/ 01660000 AL CODEPTR,@CF00454 0673 01661000 * END; /* @Y30OPLB*/ 01662000 * C4='6B'X; /* COMMA AFTER OR IN PLACE OF VOL 01663000 * SER */ 01664000 @RF00670 DS 0H 0675 01665000 @RF00669 MVI C4(CODEPTR),X'6B' 0675 01666000 */* JOBNAME PROCESSING */ 01667000 */* IF WE HAVE A TCB AND A TIOT, PICK UP THE JOBNAME */ 01668000 */* FROM THE TIOT */ 01669000 */* */ 01670000 * 0676 01671000 * IF SRBPTCB^='00000000'X /* IF WE HAVE A GOOD TCB ADDR */ 01672000 * THEN 0676 01673000 SLR @12,@12 0676 01674000 L @11,IOSSRB(,IOSBPTR) 0676 01675000 L @11,SRBPTCB(,@11) 0676 01676000 CR @11,@12 0676 01677000 BE @RF00676 0676 01678000 * IF TCBTIO^='00000000'X /* THEN IF WE HAVE */ 01679000 * THEN 0677 01680000 L @11,TCBTIO(,@11) 0677 01681000 CR @11,@12 0677 01682000 BE @RF00677 0677 01683000 * DO; /* A TIOT, PICK UP THE JOB */ 01684000 * JNM=TIOCNJOB; /* NAME */ 01685000 MVC JNM(8,CODEPTR),TIOCNJOB(@11) 0679 01686000 * CODEPTR=CODEPTR+8; /* BUMP POINTER */ 01687000 AL CODEPTR,@CF00075 0680 01688000 * END; 0681 01689000 * CODEPTR=CODEPTR+'01'X; /* UPDATE PTR FOR COMMA */ 01690000 @RF00677 DS 0H 0682 01691000 @RF00676 LA @12,1 0682 01692000 ALR CODEPTR,@12 0682 01693000 * JCOMA='6B'X; /* COMMA AFTER OR IN PLACE OF 0683 01694000 * JOBNAME */ 01695000 MVI JCOMA(CODEPTR),X'6B' 0683 01696000 * CODEPTR=CODEPTR+'01'X; /* UPDATE PTR FOR COMMA */ 01697000 * 0684 01698000 ALR CODEPTR,@12 0684 01699000 * /*****************************************************************/ 01700000 * /* */ 01701000 * /* ISSUE TIME MACRO FOR MESSAGE, UNPACK AND MOVE INTO BUFFER */ 01702000 * /* */ 01703000 * /*****************************************************************/ 01704000 * 0685 01705000 * RFY 0685 01706000 * (WKREG2, 0685 01707000 * R0) RSTD; 0685 01708000 * WKREG2=IOSBPTR; /* SAVE REG1 ACROSS MACRO */ 01709000 LR WKREG2,IOSBPTR 0686 01710000 * GEN(TIME DEC); 0687 01711000 TIME DEC 01712000 * IOSBPTR=WKREG2; /* RESTORE IOSB ADDR */ 01713000 LR IOSBPTR,WKREG2 0688 01714000 * WKREG2=ADDR(EWDCCW9); /* GET WORK AREA ADDRESS @YM30401 01715000 * IN THE EWA FOR TIME @YM30401*/ 01716000 LA WKREG2,EWDCCW9(,EWAPTR) 0689 01717000 * WKAREA=R0; /* MOVE INFORMATION INTO */ 01718000 STCM R0,15,WKAREA(WKREG2) 0690 01719000 * WKAREA4=WKAREA4|'0F'X; /* AREA, ZONE LAST BYTE */ 01720000 OI WKAREA4(WKREG2),X'0F' 0691 01721000 * GEN REFS(HOURS,MINS,SECS); 0692 01722000 UNPK HOURS(3,CODEPTR),WKAREA(2,WKREG2) @YM30401 01723000 UNPK MINS(3,CODEPTR),WKAREA+1(2,WKREG2) @YM30401 01724000 UNPK SECS(3,CODEPTR),WKAREA+2(2,WKREG2) @YM30401 01725000 * PERIOD1='4B'X; /* AND PERIODS */ 01726000 MVI PERIOD1(CODEPTR),X'4B' 0693 01727000 * PERIOD2='4B'X; 0694 01728000 MVI PERIOD2(CODEPTR),X'4B' 0694 01729000 * CODEPTR=CODEPTR+'08'X; /* INCREMENT PTR */ 01730000 AL CODEPTR,@CF00431 0695 01731000 * RFY 0696 01732000 * (WKREG2, 0696 01733000 * R0) UNRSTD; 0696 01734000 * 0696 01735000 * /*****************************************************************/ 01736000 * /* */ 01737000 * /* SETUP ROUTE AND DESCRIPTOR CODES */ 01738000 * /* */ 01739000 * /*****************************************************************/ 01740000 * 0697 01741000 *SETCODE: 0697 01742000 * RCODE2='40'X; /* ROUTE CODE @OZ03943 01743000 * @ZA06058*/ 01744000 SETCODE MVI RCODE2(CODEPTR),X'40' 0697 01745000 * DCODE='1000'X; /* SYSTEM STATUS */ 01746000 MVC DCODE(2,CODEPTR),@CB02666 0698 01747000 * GOTO RDCODE; /* GO ISSUE MSG */ 01748000 B RDCODE 0699 01749000 * RFY 0700 01750000 * EWAPTR UNRSTD; 0700 01751000 * 0700 01752000 * /*****************************************************************/ 01753000 * /* */ 01754000 * /* MESSAGE FOR CONDITION CODE 3 ON SIO PATH INOPERATIVE IS ISSUED*/ 01755000 * /* IF MORE PATHS EXIST. INTERVENTION REQUIRED/CC=3 IS ISSUED IF */ 01756000 * /* NO PATHS ARE AVAILABLE. NOTE: A ZERO BIT IN THE MASK MEANS */ 01757000 * /* AVAILABLE. @YM06266*/ 01758000 * /* */ 01759000 * /*****************************************************************/ 01760000 * 0701 01761000 *MSG3: 0701 01762000 * PATH1=UCBCHM|IOSWTOPT; /* OR ALL PATHS WITH CURRENT */ 01763000 MSG3 MVC PATH1(1,IOSBPTR),UCBCHM(UCBPTR) 0701 01764000 OC PATH1(1,IOSBPTR),IOSWTOPT(IOSBPTR) 0701 01765000 * IF PATHS='1111'B THEN /* NO PATHS LEFT-- @YM06266*/ 01766000 TM PATHS(IOSBPTR),B'11110000' 0702 01767000 BO @RT00702 0702 01768000 * GOTO MSG3A; /* ISSUE-NO PATHS AVAILABLE */ 01769000 * ELSE 0704 01770000 * ; /* ELSE ISSUE PATH INOP */ 01771000 * MSID=MSG3ID; /* MOVE IN MESSAGE ID */ 01772000 MVC MSID(8,MSGPTR),MSG3ID 0705 01773000 * MSTEXT=PI; /* MOVE IN TEXT */ 01774000 * 0706 01775000 MVI MSTEXT+40(MSGPTR),C' ' 0706 01776000 MVC MSTEXT+41(19,MSGPTR),MSTEXT+40(MSGPTR) 0706 01777000 MVC MSTEXT(40,MSGPTR),PI 0706 01778000 * /*****************************************************************/ 01779000 * /* */ 01780000 * /* GET PATH AND UNIT ADDRESS AND CONVERT FOR MESSAGE */ 01781000 * /* */ 01782000 * /*****************************************************************/ 01783000 * 0707 01784000 * GEN REFS(PATADR,IOSWTOPT,IOSWTOCH,UTADR); 0707 01785000 UNPK PATADR(3,MSGPTR),IOSWTOPT(2,IOSBPTR) 01786000 TR PATADR(2,MSGPTR),TRTABLE-238 01787000 UNPK UTADR(5,MSGPTR),IOSWTOCH(3,IOSBPTR) 01788000 TR UTADR+1(3,MSGPTR),TRTABLE-238 01789000 MVC UTADR(3,MSGPTR),UTADR+1(MSGPTR) MOVE OVER 01790000 MVI UTADR+3(MSGPTR),64 BLANK OUT GARBAGE 01791000 MVI UTADR+4(MSGPTR),64 01792000 MVI PATADR+2(MSGPTR),64 01793000 * RFY 0708 01794000 * CALLRG2 RSTD; 0708 01795000 * IF IOSWTOCP='00'X /* IF CPU FIELD IS ZERO, */ 01796000 * THEN 0709 01797000 CLI IOSWTOCP(IOSBPTR),X'00' 0709 01798000 BNE @RF00709 0709 01799000 * CPUID='F0'X; /* F0 INTO MESSAGE BUFFER */ 01800000 MVI CPUID(MSGPTR),X'F0' 0710 01801000 * ELSE 0711 01802000 * CPUID='F1'X; /* ELSE, F1 FOR CPU ONE */ 01803000 B @RC00709 0711 01804000 @RF00709 MVI CPUID(MSGPTR),X'F1' 0711 01805000 * CODEPTR=ADDR(CPUID)+'01'X; /* PTR TO CODES */ 01806000 @RC00709 LA CODEPTR,CPUID(,MSGPTR) 0712 01807000 AL CODEPTR,@CF00445 0712 01808000 * DCODE='1000'X; /* SYSTEM STATUS */ 01809000 MVC DCODE(2,CODEPTR),@CB02666 0713 01810000 * RCODE2='40'X; /* ERROR DESCRIPTION */ 01811000 MVI RCODE2(CODEPTR),X'40' 0714 01812000 * CALLRG2=ADDR(RET0); 0715 01813000 LA CALLRG2,RET0 0715 01814000 * GOTO RDCODE; /* GO ISSUE MESSAGE */ 01815000 B RDCODE 0716 01816000 * RFY 0717 01817000 * CALLRG2 UNRSTD; 0717 01818000 * 0717 01819000 * /*****************************************************************/ 01820000 * /* */ 01821000 * /* INTERVENTION REQUIRED, NO MORE PATHS */ 01822000 * /* */ 01823000 * /*****************************************************************/ 01824000 * 0718 01825000 *MSG3A: 0718 01826000 * MSID=MSG1ID; /* MESSAGE ID */ 01827000 * 0718 01828000 MSG3A MVC MSID(8,MSGPTR),MSG1ID 0718 01829000 * /*****************************************************************/ 01830000 * /* */ 01831000 * /* GET UNIT ADDR AND CONVERT */ 01832000 * /* */ 01833000 * /*****************************************************************/ 01834000 * 0719 01835000 * GEN REFS(ADR,IOSWTOCH); 0719 01836000 UNPK ADR(5,MSGPTR),IOSWTOCH(3,IOSBPTR) 01837000 TR ADR+1(3,MSGPTR),TRTABLE-238 01838000 MVC ADR(3,MSGPTR),ADR+1(MSGPTR) MOVE INTO RIGHT PLACE 01839000 * CMA='6B'X; /* COMMA AFTER ADDRESS */ 01840000 MVI CMA(MSGPTR),X'6B' 0720 01841000 * TXT2=NOPATH; /* MESSAGE TEXT */ 01842000 MVC TXT2(26,MSGPTR),NOPATH 0721 01843000 * CODEPTR=ADDR(JOBN); /* CODE PTR */ 01844000 * 0722 01845000 LA CODEPTR,JOBN(,MSGPTR) 0722 01846000 * /*****************************************************************/ 01847000 * /* */ 01848000 * /* JOBNAME PROCESSING IF WE HAVE A TCB AND A TIOT, PICK UP THE */ 01849000 * /* JOBNAME FROM THE TIOT */ 01850000 * /* */ 01851000 * /*****************************************************************/ 01852000 * 0723 01853000 * IF SRBPTCB^='00000000'X /* IF WE HAVE A GOOD TCB ADDR */ 01854000 * THEN 0723 01855000 SLR @12,@12 0723 01856000 L @11,IOSSRB(,IOSBPTR) 0723 01857000 L @11,SRBPTCB(,@11) 0723 01858000 CR @11,@12 0723 01859000 BE @RF00723 0723 01860000 * IF TCBTIO^='00000000'X /* THEN IF WE HAVE */ 01861000 * THEN 0724 01862000 L @11,TCBTIO(,@11) 0724 01863000 CR @11,@12 0724 01864000 BE @RF00724 0724 01865000 * DO; /* A TIOT, PICK UP THE JOB */ 01866000 * JOBN=TIOCNJOB; /* NAME */ 01867000 MVC JOBN(8,MSGPTR),TIOCNJOB(@11) 0726 01868000 * CODEPTR=CODEPTR+8; /* BUMP POINTER */ 01869000 AL CODEPTR,@CF00075 0727 01870000 * END; 0728 01871000 * RFY 0729 01872000 * CALLRG2 RSTD; 0729 01873000 @RF00724 DS 0H 0729 01874000 @RF00723 DS 0H 0730 01875000 * RCODE2='00'X; /* SET ROUTE AND DESC CODES */ 01876000 MVI RCODE2(CODEPTR),X'00' 0730 01877000 * DCODE='4000'X; 0731 01878000 MVC DCODE(2,CODEPTR),@CB02626 0731 01879000 * CALLRG2=ADDR(RET0); 0732 01880000 LA CALLRG2,RET0 0732 01881000 * RFY 0733 01882000 * CALLRG2 UNRSTD; 0733 01883000 * 0733 01884000 * /*****************************************************************/ 01885000 * /* */ 01886000 * /* SET UP LENGTH FIELD AND DEVICE DEPENDENT ROUTE CODE */ 01887000 * /* */ 01888000 * /*****************************************************************/ 01889000 * 0734 01890000 *RDCODE: 0734 01891000 * GEN REFS(MSCNT); 0734 01892000 * 0734 01893000 RDCODE DS 0H 0734 01894000 * /* SET COUNT FIELD */ 01895000 LR WKREG,CODEPTR GET ADDR OF CODES FIELD 01896000 SR WKREG,MSGPTR GET LENGTH OF MESSAGE 01897000 STH WKREG,MSCNT(MSGPTR) STORE IN LENGTH FIELD 01898000 * /*****************************************************************/ 01899000 * /* */ 01900000 * /* DETERMINE ROUTING CODE- BASED ON DEVICE TYPE */ 01901000 * /* */ 01902000 * /*****************************************************************/ 01903000 * 0735 01904000 * IF UCB3DACC='1'B /* DIRECT ACCESS ROUTING */ 01905000 * THEN 0735 01906000 TM UCB3DACC(UCBPTR),B'00100000' 0735 01907000 BNO @RF00735 0735 01908000 * RCODE='10'X; /* CODE= 4 */ 01909000 MVI RCODE(CODEPTR),X'10' 0736 01910000 * ELSE /* ************************@YM055 01911000 * 08 */ 01912000 * IF UCB3TAPE='1'B /* TAPE ROUTING CODE=3 */ 01913000 * THEN 0737 01914000 B @RC00735 0737 01915000 @RF00735 TM UCB3TAPE(UCBPTR),B'10000000' 0737 01916000 BNO @RF00737 0737 01917000 * RCODE='20'X; 0738 01918000 MVI RCODE(CODEPTR),X'20' 0738 01919000 * ELSE /* ************************@YM055 01920000 * 08 */ 01921000 * IF UCB3COMM='1'B /* TP ROUTING CODE=8 */ 01922000 * THEN 0739 01923000 B @RC00737 0739 01924000 @RF00737 TM UCB3COMM(UCBPTR),B'01000000' 0739 01925000 BNO @RF00739 0739 01926000 * RCODE='01'X; 0740 01927000 MVI RCODE(CODEPTR),X'01' 0740 01928000 * ELSE /* ************************@YM055 01929000 * 08 */ 01930000 * IF UCB3UREC='1'B /* UNIT RECORD ROUTING CODE */ 01931000 * THEN 0741 01932000 B @RC00739 0741 01933000 @RF00739 TM UCB3UREC(UCBPTR),B'00001000' 0741 01934000 BNO @RF00741 0741 01935000 * RCODE='02'X; /* CODE = 7 */ 01936000 MVI RCODE(CODEPTR),X'02' 0742 01937000 * ELSE 0743 01938000 * RCODE='40'X; /* ANY OTHER=2,MASTER * CONSOLE 01939000 * INFORMATIONAL */ 01940000 B @RC00741 0743 01941000 @RF00741 MVI RCODE(CODEPTR),X'40' 0743 01942000 * HIGH='1'B; /* MCS BIT ON */ 01943000 @RC00741 DS 0H 0744 01944000 @RC00739 DS 0H 0744 01945000 @RC00737 DS 0H 0744 01946000 @RC00735 OI HIGH(MSGPTR),B'10000000' 0744 01947000 * IF IOSBDCST='1'B /* SHALL WE BROADCAST TO ALL */ 01948000 * THEN 0745 01949000 TM IOSBDCST(IOSBPTR),B'00000010' 0745 01950000 BNO @RF00745 0745 01951000 * MBDCT='1'B; /* YES,TURN ON BIT */ 01952000 OI MBDCT(MSGPTR),B'00000100' 0746 01953000 * CODEPTR=IOSBPTR; /* SAVE IOSB ADDRESS */ 01954000 * 0747 01955000 @RF00745 LR CODEPTR,IOSBPTR 0747 01956000 * /*****************************************************************/ 01957000 * /* */ 01958000 * /* ISSUE MESSAGE */ 01959000 * /* */ 01960000 * /*****************************************************************/ 01961000 * 0748 01962000 * RFY 0748 01963000 * (R0) RSTD; /* @ZA10122*/ 01964000 * R0=UCBWTOID; /* GET MESSAGE ID @ZA10122*/ 01965000 L @12,UCBEXTPT(,UCBPTR) 0749 01966000 L R0,UCBWTOID-1(,@12) 0749 01967000 ICM R0,8,@CB00443 0749 01968000 * GEN(SLL R0,8); /* PUT IN HIGH ORDER BYTES 0750 01969000 * @ZA10122*/ 01970000 SLL R0,8 01971000 * GEN(WTO MF=(E,(MSGPTR))); /* REG1 HAS WTO MSG ID @YM06828*/ 01972000 WTO MF=(E,(MSGPTR)) 01973000 * RFY 0752 01974000 * (R0) UNRSTD; /* @ZA10122*/ 01975000 * IF MSID=MSG1ID THEN 0753 01976000 CLC MSID(8,MSGPTR),MSG1ID 0753 01977000 BNE @RF00753 0753 01978000 * UCBWTOID=IOSBPTR; /* FOR INTERVENTION REQUIRED AND 01979000 * NO PATHS AVAILABLE @YM06828*/ 01980000 L @12,UCBEXTPT(,UCBPTR) 0754 01981000 STCM IOSBPTR,7,UCBWTOID(@12) 0754 01982000 * IOSBPTR=CODEPTR; 0755 01983000 @RF00753 LR IOSBPTR,CODEPTR 0755 01984000 * GEN(BR CALLRG2); /* RETURN TO CALLER */ 01985000 * 0756 01986000 BR CALLRG2 01987000 * /*****************************************************************/ 01988000 * /* */ 01989000 * /* COME HERE TO SET NORMAL COMPLETION FOR INTERVENTION REQUIRED */ 01990000 * /* */ 01991000 * /*****************************************************************/ 01992000 * 0757 01993000 *SETUCB1: 0757 01994000 * IOSCOD=IOSNRMC; /* SET NORMAL COMPLETION */ 01995000 * 0757 01996000 SETUCB1 MVI IOSCOD(IOSBPTR),X'7F' 0757 01997000 * /*****************************************************************/ 01998000 * /* */ 01999000 * /* COME HERE TO TURN ON NOT READY BIT,TURN OFF MESSAGE REQUIRED */ 02000000 * /* IF THERE WAS ANOTHER PERMANENT ERROR FOR UNIT RECORD,THE */ 02001000 * /* COMPLETION HAS NOT BEEN RESET TO NORMAL COMPLETION */ 02002000 * /* */ 02003000 * /*****************************************************************/ 02004000 * 0758 02005000 *SETUCB: 0758 02006000 * IF UCB3UREC^='1'B| /* IF DEVICE IS A DSM @Y30LPLC*/ 02007000 * UCBTBYT4^='42'X THEN 0758 02008000 SETUCB TM UCB3UREC(UCBPTR),B'00001000' 0758 02009000 BNO @RT00758 0758 02010000 CLI UCBTBYT4(UCBPTR),X'42' 0758 02011000 BE @RF00758 0758 02012000 @RT00758 DS 0H 0759 02013000 * DO; /* THEN BYPASS NOT READY. 0759 02014000 * @Y30LPLC*/ 02015000 * GEN REFS(CVTIXAVL,IOCGENA); 0760 02016000 IOSGEN UCBFLG,UCB=(UCBPTR),VAR=ON,TABLE=UCBRVRS @0Z03863 02017000 * END; /* @Y30LPLC*/ 02018000 * IF UCB3UREC='1'B&UCBTBYT4='42'X /* IF MSS TURN OFF MSG @Y30LPLC*/ 02019000 * THEN 0762 02020000 @RF00758 TM UCB3UREC(UCBPTR),B'00001000' 0762 02021000 BNO @RF00762 0762 02022000 CLI UCBTBYT4(UCBPTR),X'42' 0762 02023000 BNE @RF00762 0762 02024000 * DO; /* NEEDED,SET BY IOS @Y30LPLC*/ 02025000 * GEN REFS(CVTIXAVL,IOCGENA); 0764 02026000 * /* @Y30LPLC*/ 02027000 IOSGEN UCBFLG,UCB=(UCBPTR),VAR=OFF,TABLE=UCBIVRR @Y30LPLC 02028000 * END; /* @Y30LPLC*/ 02029000 */***********************************************************@YM06828*/ 02030000 */* @YM06828*/ 02031000 */* @YM06828*/ 02032000 */* THE FOLLOWING CODE CHECKS TO SEE IF THE UCBNRY BIT IS @YM06828*/ 02033000 */* OFF INDICATING THAT THE DEVICE HAS ALREADY BEEN MADE @YM06828*/ 02034000 */* READY. IF THE UCBWTOID STILL HAS THE MESSAGE ID, THEN @YM06828*/ 02035000 */* THE INTERVENTION REQUIRED MESSAGE MUST BE DOMED. @YM06828*/ 02036000 */* @YM06828*/ 02037000 */* @YM06828*/ 02038000 */***********************************************************@YM06828*/ 02039000 * 0766 02040000 * IF UCB3UREC^='1'B| /* IF MSS THEN LEAVE @OZ00607*/ 02041000 * UCBTBYT4^='42'X THEN /* NOT READY ALONE @OZ00607*/ 02042000 @RF00762 TM UCB3UREC(UCBPTR),B'00001000' 0766 02043000 BNO @RT00766 0766 02044000 CLI UCBTBYT4(UCBPTR),X'42' 0766 02045000 BE @RF00766 0766 02046000 @RT00766 DS 0H 0767 02047000 * DO; /* @OZ00607*/ 02048000 * IF UCBNRY='0'B&UCBWTOID^=NOWTOID THEN/* @YM06828*/ 02049000 TM UCBNRY(UCBPTR),B'01000000' 0768 02050000 BNZ @RF00768 0768 02051000 L @12,UCBEXTPT(,UCBPTR) 0768 02052000 CLC UCBWTOID(3,@12),NOWTOID 0768 02053000 BE @RF00768 0768 02054000 * DO; /* @YM06828*/ 02055000 * RFY 0770 02056000 * (WKREG, 0770 02057000 * WKREG1, 0770 02058000 * WKREG2, 0770 02059000 * EWAPTR) RSTD; /* @YM06828*/ 02060000 * WKREG2=IOSBPTR; /* SAVE REG 1. @YM06828*/ 02061000 LR WKREG2,IOSBPTR 0771 02062000 * GEN; 0772 02063000 * /* @YM06828*/ 02064000 L WKREG1,UCBEXTPT(UCBPTR) LOAD EXTENSION PTR @YM06828 02065000 IC WKREG,UCBWTOID-1(WKREG1) GET HIORDER BYTE @YM06828 02066000 SLL WKREG,24 ZRO 3 BYTES AND ALIGN @YM06828 02067000 L IOSBPTR,UCBWTOID-1(WKREG1) GET UCBWTOID WORD @YM06828 02068000 CS IOSBPTR,WKREG,UCBWTOID-1(WKREG1) ZRO UCBWTOID @YM06828 02069000 BNE WTO20 ALREADY DOMED @YM06828 02070000 LA IOSBPTR,0(IOSBPTR) ZRO HIORDER BYTE @YM06828 02071000 DOM MSG=(1) DELETE MESSAGE @YM06828 02072000 *WTO20: 0773 02073000 * IOSBPTR=WKREG2; /* RESTORE REG. 1 @YM06828*/ 02074000 WTO20 LR IOSBPTR,WKREG2 0773 02075000 * RFY 0774 02076000 * (WKREG, 0774 02077000 * WKREG1, 0774 02078000 * WKREG2) UNRSTD; /* @YM06828*/ 02079000 * END; /* @YM06828*/ 02080000 * END; /* @OZ00607*/ 02081000 *RET0: 0777 02082000 * GOTO RET1; /* FREE MSG AREA @OZ05800*/ 02083000 * 0777 02084000 B RET1 0777 02085000 * /*****************************************************************/ 02086000 * /* */ 02087000 * /* IF IOSB WAS NOT PUT ON OBR QUEUE, FREE IT AND EWA IT POINTS TO*/ 02088000 * /* NO LOGGING, FREE IOSB AND EWA GOTTEN FOR DIR BY ERP FIRST MUST*/ 02089000 * /* GET LOCAL LOCK FOR CORE MANAGER, SAVING R13 AS WE NEED THE */ 02090000 * /* SAVE AREA ADDRESS STILL. */ 02091000 * /* */ 02092000 * /*****************************************************************/ 02093000 * 0778 02094000 *FREEIOSB: 0778 02095000 * RFY 0778 02096000 * R13 RSTD; 0778 02097000 FREEIOSB DS 0H 0779 02098000 * EWAPTR=R13; /* SAVE REGISTER */ 02099000 LR EWAPTR,R13 0779 02100000 * GEN REFS(PSALITA); 0780 02101000 * /* 02102000 GETLK2 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, X02103000 RELATED=(IECVSMGR,IGE0025C(FREELK2)) 02104000 * R13=EWAPTR; /* RESTORE SAVE AREA ADDR */ 02105000 * 0781 02106000 LR R13,EWAPTR 0781 02107000 * /*****************************************************************/ 02108000 * /* */ 02109000 * /* NOW FREE THE CORE */ 02110000 * /* */ 02111000 * /*****************************************************************/ 02112000 * 0782 02113000 * SRBID=IOSERP; /* FIRST WORD OF BLOCK POINTS TO 02114000 * EWA */ 02115000 L @12,IOSSRB(,IOSBPTR) 0782 02116000 L @11,IOSERP(,IOSBPTR) 0782 02117000 ST @11,SRBID(,@12) 0782 02118000 * IOSBPTR=IOSSRB; /* BACK REG 1 UP TO POINT TO 0783 02119000 * BEGINNING OF BLOCK */ 02120000 LR IOSBPTR,@12 0783 02121000 * RFY 0784 02122000 * (CALLRG, 0784 02123000 * WKREG) RSTD; 0784 02124000 * CALLRG=IOCORMGT; /* ADDR OF CORE MANAGER */ 02125000 L @12,CVTPTR 0785 02126000 L @12,IOCOMPTR(,@12) 0785 02127000 L CALLRG,IOCORMGT(,@12) 0785 02128000 * WKREG='00000020'X; /* INDICATE 160 BYTE BLOCKS */ 02129000 LA WKREG,32 0786 02130000 * GEN(BAL @14,4(CALLRG)); 0787 02131000 BAL @14,4(CALLRG) 02132000 * RFY 0788 02133000 * (CALLRG, 0788 02134000 * WKREG) UNRSTD; 0788 02135000 * 0788 02136000 * /*****************************************************************/ 02137000 * /* */ 02138000 * /* FREE THE LOCAL LOCK WE GOT FOR CORE MANAGER, SAVING REGISTER */ 02139000 * /* 13 */ 02140000 * /* */ 02141000 * /*****************************************************************/ 02142000 * 0789 02143000 * EWAPTR=R13; /* SAVE REGISTER */ 02144000 LR EWAPTR,R13 0789 02145000 * GEN REFS(PSALITA); 0790 02146000 * /* 02147000 FREELK2 SETLOCK RELEASE,TYPE=LOCAL, X02148000 RELATED=(IECVSMGR,IGE0025C(GETLK2)) 02149000 * R13=EWAPTR; /* RESTORE REGISTER */ 02150000 LR R13,EWAPTR 0791 02151000 *SETIOSB: 0792 02152000 * GEN(SVC 3); /* NEW DIR QUEUE INT. BYPASS POST 02153000 * STATUS @OZ05800*/ 02154000 * 0792 02155000 SETIOSB SVC 3 02156000 * /*****************************************************************/ 02157000 * /* */ 02158000 * /* COME HERE TO FREE 160 BYTE MESSAGE BLOCK FIRST GET LOCAL LOCK,*/ 02159000 * /* OF COURSE.. AND SAVE R13, AS USUAL. */ 02160000 * /* */ 02161000 * /*****************************************************************/ 02162000 * 0793 02163000 *RET1: 0793 02164000 * EWAPTR=R13; /* SAVE REGISTER */ 02165000 RET1 LR EWAPTR,R13 0793 02166000 * GEN REFS(PSALITA); 0794 02167000 * /* 02168000 GETLK3 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, X02169000 RELATED=(IECVSMGR,IGE0025C(FREELK3)) 02170000 * R13=EWAPTR; /* RESTORE REGISTER */ 02171000 * 0795 02172000 LR R13,EWAPTR 0795 02173000 * /*****************************************************************/ 02174000 * /* */ 02175000 * /* NOW WE CAN FREE THE CORE,SAVING OURSELVES FROM POSSIBLE */ 02176000 * /* DISASTER REG1=ADDR OF BLOCK TO FREE REG11=00000020 TO INDICATE*/ 02177000 * /* 160 BYTE BLOCK REG13= ADDR OF SAVE AREA ZERO FIRST WORD OF */ 02178000 * /* BLOCK TO INDICATE NO CHAINING */ 02179000 * /* */ 02180000 * /*****************************************************************/ 02181000 * 0796 02182000 * MSCNT=MSCNT&&MSCNT; 0796 02183000 XC MSCNT(2,MSGPTR),MSCNT(MSGPTR) 0796 02184000 * MSFGS=MSFGS&&MSFGS; 0797 02185000 XC MSFGS(2,MSGPTR),MSFGS(MSGPTR) 0797 02186000 * RFY 0798 02187000 * (WKREG, 0798 02188000 * CALLRG) RSTD; 0798 02189000 * WKREG='00000020'X; /* REG 11 */ 02190000 LA WKREG,32 0799 02191000 * CODEPTR=IOSBPTR; /* SAVE REG 1,IOSB ADDR */ 02192000 LR CODEPTR,IOSBPTR 0800 02193000 * IOSBPTR=MSGPTR; /* REG1 WITH ADDR OF CORE */ 02194000 LR IOSBPTR,MSGPTR 0801 02195000 * CALLRG=IOCORMGT; /* ADDR OF CORE MANAGEMENT */ 02196000 * 0802 02197000 L @12,CVTPTR 0802 02198000 L @12,IOCOMPTR(,@12) 0802 02199000 L CALLRG,IOCORMGT(,@12) 0802 02200000 * /*****************************************************************/ 02201000 * /* */ 02202000 * /* GO TO CORE MNGR */ 02203000 * /* */ 02204000 * /*****************************************************************/ 02205000 * 0803 02206000 * GEN(BAL @14,4(CALLRG)); 0803 02207000 BAL @14,4(CALLRG) 02208000 * IOSBPTR=CODEPTR; /* RESTORE IOSB */ 02209000 LR IOSBPTR,CODEPTR 0804 02210000 * RFY 0805 02211000 * (WKREG, 0805 02212000 * CALLRG) UNRSTD; 0805 02213000 * 0805 02214000 * /*****************************************************************/ 02215000 * /* */ 02216000 * /* FREE LOCAL LOCK GOTTEN FOR CORE MANAGER */ 02217000 * /* */ 02218000 * /*****************************************************************/ 02219000 * 0806 02220000 * GEN REFS(PSALITA); 0806 02221000 * /* 02222000 FREELK3 SETLOCK RELEASE,TYPE=LOCAL, X02223000 RELATED=(IECVSMGR,IGE0025C(GETLK3)) 02224000 * R13=EWAPTR; /* SAVE SAVE ADRESS FOR NEW 0807 02225000 * INTERFACE @ZA0904*/ 02226000 LR R13,EWAPTR 0807 02227000 *RET3: 0808 02228000 * IF IOSIDR='0'B THEN /* IF NOT PAGING I/O @OZ05800*/ 02229000 RET3 TM IOSIDR(IOSBPTR),B'00000100' 0808 02230000 BZ @RT00808 0808 02231000 * GOTO RET2; /* GOT TO OBR @OZ05800*/ 02232000 * IF IOSLOG='0'B THEN /* PAGING I/O JUST @OZ05800*/ 02233000 TM IOSLOG(IOSBPTR),B'00000001' 0810 02234000 BZ @RT00810 0810 02235000 * GOTO FREEIOSB; /* FREE DUMMY IOSB MADE BY DASD 02236000 * ERP @OZ05800*/ 02237000 *RET2: 0812 02238000 * IF IOSLOG='1'B /* SHALL WE LOG */ 02239000 * THEN 0812 02240000 RET2 TM IOSLOG(IOSBPTR),B'00000001' 0812 02241000 BO @RT00812 0812 02242000 * GOTO OBRCK; /* YES,CHECK FOR STAT UP */ 02243000 * GEN; 0814 02244000 SVC 15 NO, RETURN TO IOS 02245000 SVC 3 02246000 *OBRCK: 0815 02247000 * CLXCTL=CVTXTLER; /* ADDR OF XCTL ROUTINE */ 02248000 OBRCK L @12,CVTPTR 0815 02249000 L CLXCTL,CVTXTLER(,@12) 0815 02250000 * EWAPTR=IOSERP; /* RESTORE ERP WA ADDR-LOCKS 0816 02251000 * DESTROYED IT */ 02252000 L EWAPTR,IOSERP(,IOSBPTR) 0816 02253000 * IF EWASTUP='0000'X /* IF NO STATUP COUNTERS */ 02254000 * THEN 0817 02255000 CLC EWASTUP(2,EWAPTR),@CB02689 0817 02256000 BNE @RF00817 0817 02257000 * DO; /* THEN GO DIRECTLY TO OBR */ 02258000 * R13='0100'X; /* ID FOR OBR */ 02259000 LA R13,256 0819 02260000 * GOTO XT; /* GO XCTL */ 02261000 B XT 0820 02262000 * END; 0821 02263000 * R13='FE'X; /* ELSE GO TO STATISTICS UPDATE 02264000 * ROUTINE */ 02265000 @RF00817 LA R13,254 0822 02266000 * RFY 0823 02267000 * (EWAPTR, 0823 02268000 * R13) UNRSTD; 0823 02269000 *XT: 0824 02270000 * GEN(BR CLXCTL); /* XCTL */ 02271000 XT BR CLXCTL 02272000 */********************************************************** @YM06828*/ 02273000 */* @YM06828*/ 02274000 */* THE FOLLOWING WILL ISSUE A DOM (DELETE OPERATOR MESSAGE) @YM06828*/ 02275000 */* MACRO FOR INTERVENTION REQUIRED MESSAGES. @YM06828*/ 02276000 */* @YM06828*/ 02277000 */********************************************************** @YM06828*/ 02278000 * 0825 02279000 *DOMRTN: 0825 02280000 * RFY 0825 02281000 * (WKREG1) RSTD; /* RESTRICT WKREG1 FOR USE IN DOM 02282000 * MACRO. @YM06828*/ 02283000 DOMRTN DS 0H 0826 02284000 * WKREG1=IOSBPTR; /* SAVE REG. 1 @YM06828*/ 02285000 LR WKREG1,IOSBPTR 0826 02286000 * IOSBPTR=IOSUSE; /* PICK UP WTO MESSAGE */ 02287000 L IOSBPTR,IOSUSE(,IOSBPTR) 0827 02288000 * GEN(DOM MSG=(1)); /* DELETE INTERVENTION REQUIRED 02289000 * MSG @YM06828*/ 02290000 DOM MSG=(1) 02291000 * IOSBPTR=WKREG1; /* RESTORE REG.1 @YM06828*/ 02292000 LR IOSBPTR,WKREG1 0829 02293000 * RFY 0830 02294000 * (WKREG1) UNRSTD; 0830 02295000 * GOTO RET2; /* ALL DON GET OUT @YM6828*/ 02296000 B RET2 0831 02297000 * END IGE0025C 0832 02298000 * 0832 02299000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02300000 */*%INCLUDE SYSLIB (IECDIOSB) */ 02301000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 02302000 */*%INCLUDE SYSLIB (CVT ) */ 02303000 */*%INCLUDE SYSLIB (IECDIOCM) */ 02304000 */*%INCLUDE SYSLIB (IHASRB ) */ 02305000 */*%INCLUDE SYSLIB (IKJTCB ) */ 02306000 */*%INCLUDE SYSLIB (IEFTIOT1) */ 02307000 */*%INCLUDE SYSLIB (IHAPSA ) */ 02308000 * 0832 02309000 * ; 0832 02310000 @DATA DS 0H 02311000 @DATD DSECT 02312000 DS 0F 02313000 IGE0025C CSECT 02314000 DS 0F 02315000 @CF00123 DC F'5' 02316000 @CF00073 DC F'6' 02317000 @CF00075 DC F'8' 02318000 @CF00118 DC F'11' 02319000 @CF02609 DC XL4'10000020' 02320000 @CF00429 DC XL4'04' 02321000 @CF00431 DC XL4'08' 02322000 @CF00445 DC XL4'01' 02323000 @CF00447 DC XL4'02' 02324000 @CF00454 DC XL4'06' 02325000 @CF00456 DC XL4'07' 02326000 @CF02620 DC XL4'0E' 02327000 @DATD DSECT 02328000 DS 0D 02329000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02330000 @ENDDATD EQU * 02331000 IGE0025C CSECT 02332000 DS 0F 02333000 @SIZDATD DC AL1(0) 02334000 DC AL3(@ENDDATD-@DATD) 02335000 DS 0D 02336000 PREFIX DC F'512' 02337000 @CB02623 DC X'000000000000' 02338000 @CB00509 DC X'10FE' 02339000 @CB02626 DC X'4000' 02340000 @CB02666 DC X'1000' 02341000 @CB02689 EQU @CB02623 02342000 @CB00443 EQU @CB02623 02343000 DATALINE DC X'20000001' 02344000 ENDLINE DC X'30000001' 02345000 MSG1ID DC CL8'IEA000A ' 02346000 MSG2ID DC CL8'IEA000I ' 02347000 MSG3ID DC CL8'IEA001I ' 02348000 IRQ DC CL8'INT REQ,' 02349000 NOPATH DC CL26'CC=3/NO PATHS AVAILABLE,,,' 02350000 PI DC CL40'UNIT PATH INOPERATIVE FOR CPU ' 02351000 NOWTOID DC X'000000' 02352000 TRTABLE DC CL18',*0123456789ABCDEF' 02353000 UNKW DC CL3'IOE' 02354000 CDC DC CL3'CDC' 02355000 CCC DC CL3'CCC' 02356000 ICC DC CL3'ICC' 02357000 CHC DC CL3'CHC' 02358000 CPC DC CL3'CPC' 02359000 PRC DC CL3'PRC' 02360000 UEX DC CL3'UEX' 02361000 EQC DC CL3'EQC' 02362000 BOC DC CL3'BOC' 02363000 CMD DC CL3'CMD' 02364000 DCK DC CL3'DCK' 02365000 OVR DC CL3'OVR' 02366000 SKC DC CL3'SKC' 02367000 DCC DC CL3'DCC' 02368000 TOT DC CL3'TOT' 02369000 NRF DC CL3'NRF' 02370000 MAM DC CL3'MAM' 02371000 SEN DC CL3'SEN' 02372000 WRI DC CL3'WRI' 02373000 UNC DC CL3'UNC' 02374000 LDA DC CL3'LDA' 02375000 IPL DC CL3'IPL' 02376000 SUU DC CL3'SUU' 02377000 CEM DC CL3'CEM' 02378000 NIN DC CL3'NIN' 02379000 SAF DC CL3'SAF' 02380000 RST DC CL3'RST' 02381000 NCA DC CL3'NCA' 02382000 DS CL2 02383000 WTOPATCH DC 10F'0' 02384000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02385000 @01 EQU 01 02386000 @02 EQU 02 02387000 @03 EQU 03 02388000 @04 EQU 04 02389000 @05 EQU 05 02390000 @06 EQU 06 02391000 @07 EQU 07 02392000 @08 EQU 08 02393000 @09 EQU 09 02394000 @10 EQU 10 02395000 @11 EQU 11 02396000 @12 EQU 12 02397000 @13 EQU 13 02398000 @14 EQU 14 02399000 @15 EQU 15 02400000 IOSBPTR EQU @01 02401000 EWAPTR EQU @02 02402000 UCBPTR EQU @04 02403000 BASEREG EQU @09 02404000 SAVIREG EQU @03 02405000 CODEPTR EQU @08 02406000 MSGPTR EQU @10 02407000 R13 EQU @13 02408000 R0 EQU @00 02409000 CALLRG EQU @15 02410000 WKREG EQU @11 02411000 WKREG1 EQU @05 02412000 WKREG2 EQU @07 02413000 CALLRG2 EQU @06 02414000 CLXCTL EQU @14 02415000 IOSBSAV EQU @04 02416000 CVTPTR EQU 16 02417000 PSA EQU 0 02418000 FLCRNPSW EQU PSA 02419000 FLCROPSW EQU PSA+8 02420000 FLCICCW2 EQU PSA+16 02421000 PSAEEPSW EQU PSA+132 02422000 PSAESPSW EQU PSA+136 02423000 FLCSVILC EQU PSAESPSW+1 02424000 PSAEPPSW EQU PSA+140 02425000 FLCPIILC EQU PSAEPPSW+1 02426000 FLCPICOD EQU PSAEPPSW+2 02427000 PSAPICOD EQU FLCPICOD+1 02428000 FLCTEA EQU PSAEPPSW+4 02429000 FLCPER EQU PSA+152 02430000 FLCMCLA EQU PSA+168 02431000 FLCIOEL EQU FLCMCLA+4 02432000 FLCIOA EQU FLCMCLA+16 02433000 FLCFSA EQU FLCMCLA+80 02434000 PSASUPER EQU PSA+552 02435000 PSASUP1 EQU PSASUPER 02436000 PSASUP2 EQU PSASUPER+1 02437000 PSASUP3 EQU PSASUPER+2 02438000 PSASUP4 EQU PSASUPER+3 02439000 PSACLHT EQU PSA+640 02440000 PSALKSA EQU PSA+696 02441000 PSAHLHI EQU PSA+760 02442000 PSALITA EQU PSA+764 02443000 PSADSSFL EQU PSA+836 02444000 PSADSSF1 EQU PSADSSFL 02445000 PSADSSF3 EQU PSADSSFL+2 02446000 PSADSSF4 EQU PSADSSFL+3 02447000 PSARSVT EQU PSA+896 02448000 MSG EQU 0 02449000 MSCNT EQU MSG 02450000 MSFGS EQU MSG+2 02451000 HIGH EQU MSFGS 02452000 MBDCT EQU MSFGS 02453000 MSMLWTO EQU MSFGS+1 02454000 MSID EQU MSG+4 02455000 MSTEXT EQU MSG+12 02456000 MSCODES EQU 0 02457000 DCODE EQU MSCODES 02458000 RCODE EQU MSCODES+2 02459000 RCODE2 EQU MSCODES+3 02460000 MLCODE EQU MSCODES+4 02461000 SER1 EQU 0 02462000 JBNM EQU 0 02463000 C4 EQU JBNM 02464000 JNM EQU JBNM+1 02465000 JCOMA EQU 0 02466000 TIMEAREA EQU 0 02467000 HOURS EQU TIMEAREA 02468000 PERIOD1 EQU TIMEAREA+2 02469000 MINS EQU TIMEAREA+3 02470000 PERIOD2 EQU TIMEAREA+5 02471000 SECS EQU TIMEAREA+6 02472000 WKAREA EQU 0 02473000 WKAREA4 EQU WKAREA+3 02474000 IOSB EQU 0 02475000 IOSFLA EQU IOSB 02476000 IOSACHN EQU IOSFLA 02477000 IOSSMDA EQU IOSFLA 02478000 IOSDOM EQU IOSFLA 02479000 IOSFLB EQU IOSB+1 02480000 IOSMSG EQU IOSFLB 02481000 IOSBDCST EQU IOSFLB 02482000 IOSLOG EQU IOSFLB 02483000 IOSFLC EQU IOSB+2 02484000 IOSDVALT EQU IOSFLC 02485000 IOSASID EQU IOSB+6 02486000 IOSPKEY EQU IOSB+12 02487000 IOSIDR EQU IOSPKEY 02488000 IOSCOD EQU IOSB+13 02489000 IOSOPT EQU IOSB+14 02490000 IOSOPT2 EQU IOSB+15 02491000 IOSUCB EQU IOSB+16 02492000 @NM00021 EQU IOSB+20 02493000 IOSCC EQU @NM00021 02494000 IOSCSW EQU @NM00021+1 02495000 IOSCSWCA EQU IOSCSW 02496000 IOSTATUS EQU IOSCSW+3 02497000 IOSTSA EQU IOSTATUS 02498000 IOSTSB EQU IOSTATUS+1 02499000 IOSSRB EQU IOSB+28 02500000 IOSUSE EQU IOSB+32 02501000 IOSIPIB EQU IOSB+44 02502000 IOSERP EQU IOSB+52 02503000 IOSPATH EQU IOSB+86 02504000 IOSCHN EQU IOSPATH 02505000 IOSCKEY EQU IOSB+89 02506000 IOSEEKA EQU IOSB+100 02507000 IOSCCHH EQU IOSEEKA+3 02508000 IOSSKHH EQU IOSCCHH+2 02509000 EWA EQU 0 02510000 EWAHDR EQU EWA 02511000 EWAFLAGS EQU EWA+4 02512000 EWAFLG1 EQU EWAFLAGS 02513000 EWASCCD EQU EWAFLG1 02514000 EWASCC3 EQU EWASCCD 02515000 EWADDMSG EQU EWAFLG1 02516000 EWAFLG2 EQU EWAFLAGS+1 02517000 EWAFLG3 EQU EWAFLAGS+2 02518000 EWASNSCT EQU EWAFLAGS+3 02519000 EWACNTRS EQU EWA+10 02520000 EWASTUP EQU EWA+14 02521000 EWAERPIB EQU EWA+16 02522000 EWARGFG1 EQU EWAERPIB+4 02523000 EWARGFG2 EQU EWAERPIB+5 02524000 EWAXCSW1 EQU EWAERPIB+6 02525000 EWAXCSW2 EQU EWAERPIB+7 02526000 EWACHA EQU EWA+24 02527000 EWAFLGA EQU EWA+26 02528000 EWAIERP EQU EWA+32 02529000 EWTCADDR EQU 0 02530000 EWTCFLG EQU EWTCADDR+10 02531000 UCB EQU 0 02532000 UCBOB EQU 0 02533000 UCBJBNR EQU UCBOB 02534000 UCBFL5 EQU UCBOB+1 02535000 UCBAF EQU UCBFL5 02536000 UCBSTAT EQU UCBOB+3 02537000 UCBCHAN EQU UCBOB+4 02538000 UCBSFLS EQU UCBOB+6 02539000 UCBFLA EQU UCBSFLS 02540000 UCBFL1 EQU UCBFLA 02541000 UCBBSY EQU UCBFL1 02542000 UCBNRY EQU UCBFL1 02543000 UCBPST EQU UCBFL1 02544000 UCBCUB EQU UCBFL1 02545000 UCBFLB EQU UCBSFLS+1 02546000 UCBCHM EQU UCBOB+8 02547000 UCBCHM1 EQU UCBCHM 02548000 UCBPTH0 EQU UCBCHM1 02549000 UCBPTH1 EQU UCBCHM1 02550000 UCBWGT EQU UCBOB+12 02551000 UCBMTPXP EQU UCBWGT 02552000 UCBNAME EQU UCBOB+13 02553000 UCBTYP EQU UCBOB+16 02554000 UCBTBYT1 EQU UCBTYP 02555000 UCB1FEA5 EQU UCBTBYT1 02556000 UCB1FEA6 EQU UCBTBYT1 02557000 UCBTBYT2 EQU UCBTYP+1 02558000 UCB2OPT2 EQU UCBTBYT2 02559000 UCBDUDN1 EQU UCB2OPT2 02560000 UCB2OPT3 EQU UCBTBYT2 02561000 UCBDUDN2 EQU UCB2OPT3 02562000 UCB2OPT4 EQU UCBTBYT2 02563000 UCBRWTAU EQU UCB2OPT4 02564000 UCBRVDEV EQU UCBRWTAU 02565000 UCB2OPT6 EQU UCBTBYT2 02566000 UCB2OPT7 EQU UCBTBYT2 02567000 UCBTBYT3 EQU UCBTYP+2 02568000 UCBDVCLS EQU UCBTBYT3 02569000 UCB3TAPE EQU UCBDVCLS 02570000 UCB3COMM EQU UCBDVCLS 02571000 UCB3DACC EQU UCBDVCLS 02572000 UCB3UREC EQU UCBDVCLS 02573000 UCBTBYT4 EQU UCBTYP+3 02574000 UCBEXTPT EQU UCBOB+20 02575000 UCBFLC EQU UCBEXTPT 02576000 UCBDEV EQU UCBOB+24 02577000 UCBCMEXT EQU 0 02578000 UCBATI EQU UCBCMEXT+3 02579000 @NM00040 EQU UCBATI 02580000 UCBSNSCT EQU UCBCMEXT+4 02581000 UCBFLP1 EQU UCBCMEXT+5 02582000 UCBCCWOF EQU UCBCMEXT+8 02583000 UCBWTOID EQU UCBCMEXT+17 02584000 UCBMT EQU 0 02585000 UCBOCR EQU 0 02586000 UCB3540X EQU 0 02587000 UCBVLSER EQU UCB3540X 02588000 UCBDKBYT EQU UCB3540X+6 02589000 UCB3800X EQU 0 02590000 UCBOPTNS EQU UCB3800X 02591000 UCBACTIV EQU UCB3800X+3 02592000 UCBMDRBF EQU UCB3800X+36 02593000 UCBUCS EQU 0 02594000 UCBUCSOP EQU UCBUCS+4 02595000 UCBFCBOP EQU UCBUCS+5 02596000 UCBBGN EQU 0 02597000 CVTMAP EQU 0 02598000 CVTXTLER EQU CVTMAP+44 02599000 CVTDAR EQU CVTMAP+72 02600000 CVTFLGS1 EQU CVTDAR 02601000 CVTDCB EQU CVTMAP+116 02602000 CVTIOQET EQU CVTMAP+120 02603000 CVTIXAVL EQU CVTMAP+124 02604000 CVTIERLC EQU CVTMAP+144 02605000 CVTHEAD EQU CVTMAP+160 02606000 CVTSV76C EQU CVTHEAD 02607000 CVTOPTA EQU CVTMAP+182 02608000 CVTNIP EQU CVTOPTA 02609000 CVTOPTB EQU CVTMAP+183 02610000 CVTGTF EQU CVTMAP+236 02611000 CVTGTFST EQU CVTGTF 02612000 CVTGTFS EQU CVTGTFST 02613000 CVTSTATE EQU CVTGTFST 02614000 CVTTMODE EQU CVTGTFST 02615000 CVTFORM EQU CVTGTFST 02616000 CVTAQAVT EQU CVTMAP+240 02617000 CVTTCMFG EQU CVTAQAVT 02618000 CVTVOLM2 EQU CVTMAP+244 02619000 CVTTATA EQU CVTVOLM2 02620000 CVTTSKS EQU CVTTATA 02621000 CVTVOLF2 EQU CVTTSKS 02622000 CVTTAT EQU CVTTATA+1 02623000 CVTATER EQU CVTMAP+248 02624000 CVTEXT1 EQU CVTMAP+252 02625000 CVTPURG EQU CVTMAP+260 02626000 CVTQMSG EQU CVTMAP+268 02627000 CVTDMSR EQU CVTMAP+272 02628000 CVTRSV37 EQU CVTDMSR 02629000 CVTDMSRF EQU CVTRSV37 02630000 CVTERPV EQU CVTMAP+316 02631000 CVTINTLA EQU CVTMAP+320 02632000 CVTAPF EQU CVTMAP+324 02633000 CVTEXT2 EQU CVTMAP+328 02634000 CVTHJES EQU CVTMAP+332 02635000 CVTPGSIA EQU CVTMAP+348 02636000 CVTA1F1 EQU CVTMAP+356 02637000 CVTSYSK EQU CVTMAP+357 02638000 CVTVOLM1 EQU CVTMAP+380 02639000 CVTVOLF1 EQU CVTVOLM1 02640000 CVTATMCT EQU CVTMAP+388 02641000 CVTXTNT1 EQU 0 02642000 CVTXTNT2 EQU 0 02643000 CVTDSSV EQU CVTXTNT2 02644000 CVTFLGBT EQU CVTXTNT2+5 02645000 CVTQID EQU CVTXTNT2+24 02646000 CVTRV400 EQU CVTXTNT2+52 02647000 CVTRV409 EQU CVTXTNT2+53 02648000 CVTATCVT EQU CVTXTNT2+64 02649000 CVTRV429 EQU CVTXTNT2+84 02650000 CVTRV438 EQU CVTXTNT2+85 02651000 CVTRV457 EQU CVTXTNT2+112 02652000 CVTRV466 EQU CVTXTNT2+113 02653000 CVTFIX EQU 0 02654000 CVTRELNO EQU CVTFIX+252 02655000 IOCOM EQU 0 02656000 IOCORMGT EQU IOCOM+36 02657000 IOCIOSCP EQU IOCOM+40 02658000 IOCASYNQ EQU IOCOM+76 02659000 IOCGENA EQU IOCOM+84 02660000 IECVDIRQ EQU 0 02661000 SRBSECT EQU 0 02662000 SRB EQU SRBSECT 02663000 SRBID EQU SRB 02664000 SRBFLC EQU SRB+12 02665000 SRBPTCB EQU SRBFLC+4 02666000 TCBFIX EQU 0 02667000 TCBFRS EQU TCBFIX 02668000 TCB EQU 0 02669000 TCBPIE EQU TCB+4 02670000 TCBPMASK EQU TCBPIE 02671000 TCBTIO EQU TCB+12 02672000 TCBCMP EQU TCB+16 02673000 TCBCMPF EQU TCBCMP 02674000 TCBCPP EQU TCBCMPF 02675000 TCBSTCC EQU TCBCMPF 02676000 TCBCDBL EQU TCBCMPF 02677000 TCBCWTO EQU TCBCMPF 02678000 TCBCIND EQU TCBCMPF 02679000 TCBCMSG EQU TCBCMPF 02680000 TCBTRN EQU TCB+20 02681000 TCBABF EQU TCBTRN 02682000 TCBMSS EQU TCB+24 02683000 TCBPKF EQU TCB+28 02684000 TCBFLGS EQU TCB+29 02685000 TCBFLGS1 EQU TCBFLGS 02686000 TCBFLGS2 EQU TCBFLGS+1 02687000 TCBFLGS3 EQU TCBFLGS+2 02688000 TCBFLGS4 EQU TCBFLGS+3 02689000 TCBFLGS5 EQU TCBFLGS+4 02690000 TCBABWF EQU TCBFLGS5 02691000 TCBJPQ EQU TCB+44 02692000 TCBPURGE EQU TCBJPQ 02693000 TCBGRS EQU TCB+48 02694000 TCBFSA EQU TCB+112 02695000 TCBTME EQU TCB+120 02696000 TCBJSTCB EQU TCB+124 02697000 TCBTSFLG EQU TCB+148 02698000 TCBTSTSK EQU TCBTSFLG 02699000 TCBSTAB EQU TCB+160 02700000 TCBNSTAE EQU TCBSTAB 02701000 TCBTCT EQU TCB+164 02702000 TCBTCTGF EQU TCBTCT 02703000 TCBSCNDY EQU TCB+172 02704000 TCBNDSP EQU TCBSCNDY 02705000 TCBNDSP1 EQU TCBNDSP+1 02706000 TCBNDSP2 EQU TCBNDSP+2 02707000 TCBNDSP3 EQU TCBNDSP+3 02708000 TCBJSCB EQU TCB+180 02709000 TCBRECDE EQU TCBJSCB 02710000 TCBEXT1 EQU TCB+196 02711000 TCBBITS EQU TCB+200 02712000 TCBNDSP4 EQU TCBBITS 02713000 TCBNDSP5 EQU TCBBITS+1 02714000 TCBFLGS6 EQU TCBBITS+2 02715000 TCBFLGS7 EQU TCBBITS+3 02716000 TCBDAR EQU TCB+204 02717000 TCBDARC EQU TCBDAR 02718000 TCBEXT2 EQU TCB+208 02719000 TCBFOE EQU TCB+244 02720000 TCBESTAE EQU TCB+264 02721000 TCBESTRM EQU TCBESTAE+1 02722000 TCBFBYT1 EQU TCB+276 02723000 TCBFBYT2 EQU TCB+277 02724000 TCBRV124 EQU TCB+278 02725000 TCBRV133 EQU TCB+279 02726000 TCBXTNT2 EQU 0 02727000 TCBGTF EQU TCBXTNT2 02728000 TCBTFLG EQU TCBGTF 02729000 TCBRV146 EQU TCBXTNT2+28 02730000 TCBRV155 EQU TCBXTNT2+29 02731000 TCBRV164 EQU TCBXTNT2+30 02732000 TCBRV173 EQU TCBXTNT2+31 02733000 TIOT1 EQU 0 02734000 TIOCNJOB EQU TIOT1 02735000 CCHH EQU 0 02736000 INTREQ1 EQU MSTEXT 02737000 UADR EQU INTREQ1 02738000 C1 EQU INTREQ1+3 02739000 TXT EQU INTREQ1+4 02740000 CM EQU INTREQ1+12 02741000 CM1 EQU CM 02742000 CM2 EQU CM+1 02743000 C2 EQU INTREQ1+14 02744000 STAT1 EQU INTREQ1+15 02745000 C3 EQU INTREQ1+19 02746000 SNS EQU INTREQ1+20 02747000 SNS1 EQU SNS 02748000 WSNS EQU SNS1 02749000 SC1 EQU SNS+4 02750000 SC2 EQU SNS+10 02751000 PATH EQU MSTEXT 02752000 UTADR EQU PATH+5 02753000 PATADR EQU PATH+15 02754000 CPUID EQU PATH+39 02755000 IRNOPATH EQU MSTEXT 02756000 ADR EQU IRNOPATH 02757000 CMA EQU IRNOPATH+3 02758000 TXT2 EQU IRNOPATH+4 02759000 JOBN EQU IRNOPATH+30 02760000 WSENSE EQU MSTEXT 02761000 D2 EQU WSENSE+4 02762000 D3 EQU WSENSE+5 02763000 D4 EQU WSENSE+6 02764000 WSENS EQU WSENSE+7 02765000 WSENS1 EQU WSENSE+21 02766000 WSENS2 EQU WSENSE+35 02767000 WSENS3 EQU WSENSE+49 02768000 D5 EQU WSENSE+55 02769000 D6 EQU WSENSE+56 02770000 PERMIO EQU MSTEXT 02771000 CUA EQU PERMIO 02772000 E1 EQU PERMIO+3 02773000 ERDESC EQU PERMIO+4 02774000 E2 EQU PERMIO+7 02775000 CMIO EQU PERMIO+8 02776000 CMIO1 EQU CMIO 02777000 CMIO2 EQU CMIO+1 02778000 E3 EQU PERMIO+10 02779000 STAT EQU PERMIO+11 02780000 E4 EQU PERMIO+15 02781000 IOSEN EQU PERMIO+16 02782000 IO1 EQU IOSEN 02783000 IO2 EQU IOSEN+1 02784000 PERMIO2 EQU MSTEXT 02785000 P2 EQU PERMIO2+4 02786000 P3 EQU PERMIO2+5 02787000 P4 EQU PERMIO2+6 02788000 PSENS EQU PERMIO2+7 02789000 STATUS EQU IOSTATUS 02790000 UNTCK EQU STATUS 02791000 UNEXCP EQU STATUS 02792000 CHPROGCK EQU STATUS+1 02793000 PROCK EQU STATUS+1 02794000 CNLDCK EQU STATUS+1 02795000 CNLCCK EQU STATUS+1 02796000 INTCC EQU STATUS+1 02797000 CHAINCK EQU STATUS+1 02798000 EWADDIOS EQU EWAIERP 02799000 EWASNS EQU EWADDIOS 02800000 SENSEB EQU EWASNS 02801000 S1 EQU SENSEB 02802000 COMDREJ EQU S1 02803000 INTREQ EQU S1 02804000 BUS EQU S1 02805000 EQUIPCK EQU S1 02806000 DATACK EQU S1 02807000 OVERRUN EQU S1 02808000 UNITTP EQU S1 02809000 LOADCK EQU UNITTP 02810000 SEEKCK EQU S1 02811000 S2 EQU SENSEB+1 02812000 CEMBIT EQU S2 02813000 SUUBIT EQU S2 02814000 NOREC EQU S2 02815000 MISSADR EQU S2 02816000 NOTCAPBL EQU S2 02817000 S4 EQU SENSEB+3 02818000 MOINTREQ EQU S4 02819000 S8 EQU SENSEB+7 02820000 IOSWTOWA EQU IOSIPIB 02821000 IOSWTOCH EQU IOSWTOWA 02822000 IOSWTOCP EQU IOSWTOWA+2 02823000 IOSWTOPT EQU IOSWTOWA+3 02824000 IOSWRNDR EQU IOSWTOWA+4 02825000 PATH1 EQU IOSWRNDR 02826000 PATHS EQU PATH1 02827000 CODETHRE EQU IOSCC 02828000 IOSCC3A EQU CODETHRE 02829000 IOSCC4 EQU CODETHRE 02830000 IOSATTSC EQU IOSIPIB 02831000 IOSPCISC EQU IOSIPIB 02832000 EWADAREA EQU EWAIERP 02833000 EWDASNS EQU EWADAREA 02834000 EWDSNS0 EQU EWDASNS 02835000 EWDSNS1 EQU EWDASNS+1 02836000 EWDMAM EQU EWDSNS1 02837000 EWDSNS2 EQU EWDASNS+2 02838000 EWDZLOG EQU EWDSNS2 02839000 EWDWRPS EQU EWDZLOG 02840000 EWD22 EQU EWDSNS2 02841000 EWDSNS10 EQU EWDASNS+10 02842000 EWDSNS24 EQU EWDASNS+24 02843000 EWDHOMAD EQU EWADAREA+39 02844000 EWDHAFLG EQU EWDHOMAD 02845000 EWDCCW9 EQU EWADAREA+112 02846000 UCBOBS01 EQU UCBDEV 02847000 UCBVOLI EQU UCBOBS01+4 02848000 UCBSTAB EQU UCBOBS01+10 02849000 UCBBSVL EQU UCBSTAB 02850000 UCBPRSRS EQU UCBSTAB 02851000 UCBDMCT EQU UCBOBS01+11 02852000 UCBFL4 EQU UCBOBS01+13 02853000 UCBBASE EQU UCBOBS01+16 02854000 UCBOBS02 EQU UCBDEV 02855000 UCBTFL1 EQU UCBOBS02+19 02856000 UCBXTN EQU UCBOBS02+20 02857000 UCBVOPT EQU UCBXTN 02858000 UCBOBS03 EQU UCBDEV 02859000 UCBXTADR EQU UCBOBS03 02860000 UCBOBS04 EQU UCBDEV 02861000 UCBBTA EQU UCBOBS04+12 02862000 UCBOBS06 EQU UCBDEV 02863000 UCBAOF EQU UCBOBS06 02864000 UCBAOF1 EQU UCBAOF 02865000 UCBAOF2 EQU UCBAOF+1 02866000 @NM00039 EQU UCBOBS06+3 02867000 UCBIRB EQU UCBOBS06+4 02868000 UCBGRAF EQU UCBIRB 02869000 UCBLDNCA EQU UCBOBS06+8 02870000 UCBRDYQ EQU UCBLDNCA 02871000 UCBIRLN EQU UCBRDYQ 02872000 UCBLDNCB EQU UCBRDYQ+1 02873000 UCBCTLNK EQU UCBOBS06+12 02874000 UCBOBS07 EQU UCBDEV 02875000 UCBOBS08 EQU UCBDEV 02876000 UCBCTCAD EQU UCBOBS08 02877000 UCBCTCF1 EQU UCBOBS08+4 02878000 UCBOBS09 EQU UCBDEV 02879000 CVTS01 EQU CVTPGSIA 02880000 CVTLPDIA EQU CVTS01+12 02881000 CVTDIRST EQU CVTLPDIA 02882000 CVTSLIDA EQU CVTS01+24 02883000 CVTCTLFG EQU CVTS01+50 02884000 CVTRV210 EQU CVTS01+424 02885000 CVTRV219 EQU CVTS01+425 02886000 CVTRV228 EQU CVTS01+426 02887000 CVTRV237 EQU CVTS01+427 02888000 CVTMFRTR EQU CVTS01+452 02889000 CVTRV262 EQU CVTS01+468 02890000 CVTRV271 EQU CVTS01+469 02891000 CVTRV280 EQU CVTS01+470 02892000 CVTRV289 EQU CVTS01+471 02893000 CVTGSDA EQU CVTS01+600 02894000 IOCOMPTR EQU CVTIXAVL 02895000 TIOENTRY EQU TIOT1+24 02896000 TIOESTTA EQU TIOENTRY+1 02897000 TIOERLOC EQU TIOENTRY+2 02898000 TIOELINK EQU TIOERLOC+1 02899000 TIOESYOT EQU TIOELINK 02900000 TIOESTTC EQU TIOENTRY+15 02901000 TIOESTTB EQU TIOENTRY+16 02902000 POOLSTAR EQU TIOENTRY+20 02903000 TIOEDEVE EQU TIOESTTB 02904000 TIOSTTB EQU TIOEDEVE 02905000 PSARSVTE EQU PSARSVT 02906000 FLC EQU PSA 02907000 * START UNREFERENCED COMPONENTS 02908000 PSARSAV EQU PSARSVTE+60 02909000 PSARSTK EQU PSARSVTE+56 02910000 PSAESAV3 EQU PSARSVTE+52 02911000 PSAESTK3 EQU PSARSVTE+48 02912000 PSAESAV2 EQU PSARSVTE+44 02913000 PSAESTK2 EQU PSARSVTE+40 02914000 PSAESAV1 EQU PSARSVTE+36 02915000 PSAESTK1 EQU PSARSVTE+32 02916000 PSAPSAV EQU PSARSVTE+28 02917000 PSAPSTK EQU PSARSVTE+24 02918000 PSAMSAV EQU PSARSVTE+20 02919000 PSAMSTK EQU PSARSVTE+16 02920000 PSASSAV EQU PSARSVTE+12 02921000 PSASSTK EQU PSARSVTE+8 02922000 PSANSTK EQU PSARSVTE+4 02923000 PSACSTK EQU PSARSVTE 02924000 TIOUCBP EQU TIOEDEVE+1 02925000 TIOVERF EQU TIOSTTB 02926000 TIOUNLD EQU TIOSTTB 02927000 TIOMNTD EQU TIOSTTB 02928000 TIOSETU EQU TIOSTTB 02929000 TIOVLSR EQU TIOSTTB 02930000 TIOPVIO EQU TIOSTTB 02931000 TIOREQD EQU TIOSTTB 02932000 TIOUSED EQU TIOSTTB 02933000 TIOTFEND EQU POOLSTAR+16 02934000 TIOPSLOT EQU POOLSTAR+13 02935000 TIOPSTTB EQU POOLSTAR+12 02936000 TIOPPOOL EQU POOLSTAR+4 02937000 TIOPNSRT EQU POOLSTAR+3 02938000 @NM00052 EQU POOLSTAR+2 02939000 TIOPNSLT EQU POOLSTAR+1 02940000 @NM00051 EQU POOLSTAR 02941000 TIOEFSRT EQU TIOENTRY+17 02942000 TIOSVERF EQU TIOESTTB 02943000 TIOSUNLD EQU TIOESTTB 02944000 TIOSMNTD EQU TIOESTTB 02945000 TIOSSETU EQU TIOESTTB 02946000 TIOSVLSR EQU TIOESTTB 02947000 TIOSPVIO EQU TIOESTTB 02948000 TIOSREQD EQU TIOESTTB 02949000 TIOSUSED EQU TIOESTTB 02950000 TIOSBALS EQU TIOESTTC 02951000 TIOSBALP EQU TIOESTTC 02952000 TIOSVOLS EQU TIOESTTC 02953000 TIOSVOLP EQU TIOESTTC 02954000 TIOSAFFS EQU TIOESTTC 02955000 TIOSAFFP EQU TIOESTTC 02956000 TIOSDEFR EQU TIOESTTC 02957000 TIOSDKCR EQU TIOESTTC 02958000 TIOEJFCB EQU TIOENTRY+12 02959000 TIOEDDNM EQU TIOENTRY+4 02960000 TIOTREM EQU TIOELINK 02961000 TIOESSDS EQU TIOESYOT 02962000 TIOESYIN EQU TIOELINK 02963000 TIOEQNAM EQU TIOELINK 02964000 TIOEDYNM EQU TIOELINK 02965000 TIOTTERM EQU TIOELINK 02966000 TIOTRV01 EQU TIOELINK 02967000 TIOSYOUT EQU TIOELINK 02968000 TIOEWTCT EQU TIOERLOC 02969000 TIOSDSP2 EQU TIOESTTA 02970000 TIOSDSP1 EQU TIOESTTA 02971000 TIOSLABL EQU TIOESTTA 02972000 TIOSDADS EQU TIOESTTA 02973000 TIOSJBLB EQU TIOESTTA 02974000 TIOSPLTS EQU TIOESTTA 02975000 TIOSPLTP EQU TIOESTTA 02976000 TIOSLTYP EQU TIOESTTA 02977000 TIOELNGH EQU TIOENTRY 02978000 CVTRV628 EQU CVTS01+728 02979000 CVTRV627 EQU CVTS01+724 02980000 CVTRV626 EQU CVTS01+720 02981000 CVTRV625 EQU CVTS01+716 02982000 CVTRV624 EQU CVTS01+712 02983000 CVTRV623 EQU CVTS01+708 02984000 CVTRV622 EQU CVTS01+704 02985000 CVTRV621 EQU CVTS01+700 02986000 CVTIHASU EQU CVTS01+696 02987000 CVTRV619 EQU CVTS01+692 02988000 CVTRV618 EQU CVTS01+688 02989000 CVTRV617 EQU CVTS01+684 02990000 CVTRV616 EQU CVTS01+680 02991000 CVTRV615 EQU CVTS01+676 02992000 CVTRV614 EQU CVTS01+672 02993000 CVTRV613 EQU CVTS01+668 02994000 CVTTCASP EQU CVTS01+664 02995000 CVT0PT03 EQU CVTS01+660 02996000 CVT0PT0E EQU CVTS01+656 02997000 CVTRV609 EQU CVTS01+652 02998000 CVTCGK EQU CVTS01+648 02999000 CVTRAC EQU CVTS01+644 03000000 CVTHSM EQU CVTS01+640 03001000 CVTRV605 EQU CVTS01+636 03002000 CVTRV604 EQU CVTS01+632 03003000 CVTEFF02 EQU CVTS01+628 03004000 CVTCBBR EQU CVTS01+624 03005000 CVTSSCR EQU CVTS01+620 03006000 CVTEVENT EQU CVTS01+616 03007000 CVTCRCA EQU CVTS01+612 03008000 CVTTPIO EQU CVTS01+608 03009000 CVTADV EQU CVTS01+604 03010000 CVTGSDAB EQU CVTGSDA 03011000 CVTQV3 EQU CVTS01+596 03012000 CVTQV2 EQU CVTS01+592 03013000 CVTQV1 EQU CVTS01+588 03014000 CVTRPT EQU CVTS01+584 03015000 CVTSSRB EQU CVTS01+580 03016000 CVTCSDRL EQU CVTS01+576 03017000 CVTEXP1 EQU CVTS01+572 03018000 CVTRMPMT EQU CVTS01+568 03019000 CVTRMPTT EQU CVTS01+564 03020000 CVTVPSA EQU CVTS01+560 03021000 CVTVSTOP EQU CVTS01+556 03022000 CVTGTFR8 EQU CVTS01+552 03023000 CVTQUIT EQU CVTS01+548 03024000 CVTVACR EQU CVTS01+544 03025000 CVTWTCB EQU CVTS01+540 03026000 CVTSTPRS EQU CVTS01+536 03027000 CVT0PT02 EQU CVTS01+532 03028000 CVTDARCM EQU CVTS01+528 03029000 CVTIRECM EQU CVTS01+524 03030000 CVTJRECM EQU CVTS01+520 03031000 CVTVEMS0 EQU CVTS01+516 03032000 CVTSPFRR EQU CVTS01+512 03033000 CVTRLSTG EQU CVTS01+508 03034000 CVT0TC0A EQU CVTS01+504 03035000 CVTGMBR EQU CVTS01+500 03036000 CVTLFRM EQU CVTS01+496 03037000 CVTRMBR EQU CVTS01+492 03038000 CVTVIOP EQU CVTS01+488 03039000 CVTRV307 EQU CVTS01+486 03040000 CVTRV306 EQU CVTS01+484 03041000 CVTRV305 EQU CVTS01+482 03042000 CVTRV304 EQU CVTS01+480 03043000 CVTRV303 EQU CVTS01+478 03044000 CVTRV302 EQU CVTS01+476 03045000 CVTTRCA EQU CVTS01+472 03046000 CVTRV297 EQU CVTRV289 03047000 CVTRV296 EQU CVTRV289 03048000 CVTRV295 EQU CVTRV289 03049000 CVTRV294 EQU CVTRV289 03050000 CVTRV293 EQU CVTRV289 03051000 CVTRV292 EQU CVTRV289 03052000 CVTRV291 EQU CVTRV289 03053000 CVTRV290 EQU CVTRV289 03054000 CVTRV288 EQU CVTRV280 03055000 CVTRV287 EQU CVTRV280 03056000 CVTRV286 EQU CVTRV280 03057000 CVTRV285 EQU CVTRV280 03058000 CVTRV284 EQU CVTRV280 03059000 CVTRV283 EQU CVTRV280 03060000 CVTRV282 EQU CVTRV280 03061000 CVTRV281 EQU CVTRV280 03062000 CVTRV279 EQU CVTRV271 03063000 CVTRV278 EQU CVTRV271 03064000 CVTRV277 EQU CVTRV271 03065000 CVTRV276 EQU CVTRV271 03066000 CVTRV275 EQU CVTRV271 03067000 CVTRV274 EQU CVTRV271 03068000 CVTRV273 EQU CVTRV271 03069000 CVTRV272 EQU CVTRV271 03070000 CVTRV270 EQU CVTRV262 03071000 CVTRV269 EQU CVTRV262 03072000 CVTRV268 EQU CVTRV262 03073000 CVTRV267 EQU CVTRV262 03074000 CVTRV266 EQU CVTRV262 03075000 CVTRV265 EQU CVTRV262 03076000 CVTRV264 EQU CVTRV262 03077000 CVTRV263 EQU CVTRV262 03078000 CVTVFP EQU CVTS01+464 03079000 CVTVSI EQU CVTS01+460 03080000 CVTVPSIB EQU CVTS01+456 03081000 CVTMFACT EQU CVTMFRTR 03082000 CVTMFCTL EQU CVTS01+448 03083000 CVTPVBP EQU CVTS01+444 03084000 CVTPWI EQU CVTS01+440 03085000 CVTRV254 EQU CVTS01+438 03086000 CVTRV253 EQU CVTS01+436 03087000 CVTRV252 EQU CVTS01+434 03088000 CVTRV251 EQU CVTS01+433 03089000 CVTRV250 EQU CVTS01+432 03090000 CVTRV249 EQU CVTS01+431 03091000 CVTRV248 EQU CVTS01+430 03092000 CVTRV247 EQU CVTS01+429 03093000 CVTRV246 EQU CVTS01+428 03094000 CVTRV245 EQU CVTRV237 03095000 CVTRV244 EQU CVTRV237 03096000 CVTRV243 EQU CVTRV237 03097000 CVTRV242 EQU CVTRV237 03098000 CVTRV241 EQU CVTRV237 03099000 CVTRV240 EQU CVTRV237 03100000 CVTRV239 EQU CVTRV237 03101000 CVTRV238 EQU CVTRV237 03102000 CVTRV236 EQU CVTRV228 03103000 CVTRV235 EQU CVTRV228 03104000 CVTRV234 EQU CVTRV228 03105000 CVTRV233 EQU CVTRV228 03106000 CVTRV232 EQU CVTRV228 03107000 CVTRV231 EQU CVTRV228 03108000 CVTRV230 EQU CVTRV228 03109000 CVTRV229 EQU CVTRV228 03110000 CVTRV227 EQU CVTRV219 03111000 CVTRV226 EQU CVTRV219 03112000 CVTRV225 EQU CVTRV219 03113000 CVTRV224 EQU CVTRV219 03114000 CVTRV223 EQU CVTRV219 03115000 CVTRV222 EQU CVTRV219 03116000 CVTRV221 EQU CVTRV219 03117000 CVTRV220 EQU CVTRV219 03118000 CVTRV218 EQU CVTRV210 03119000 CVTRV217 EQU CVTRV210 03120000 CVTRV216 EQU CVTRV210 03121000 CVTRV215 EQU CVTRV210 03122000 CVTRV214 EQU CVTRV210 03123000 CVTRV213 EQU CVTRV210 03124000 CVTRV212 EQU CVTRV210 03125000 CVTRV211 EQU CVTRV210 03126000 CVTLCCAT EQU CVTS01+420 03127000 CVTPCCAT EQU CVTS01+416 03128000 CVTIPCRP EQU CVTS01+412 03129000 CVTIPCRI EQU CVTS01+408 03130000 CVTIPCDS EQU CVTS01+404 03131000 CVTAIDVT EQU CVTS01+400 03132000 CVTSSAP EQU CVTS01+396 03133000 CVTEHCIR EQU CVTS01+392 03134000 CVTEHDEF EQU CVTS01+388 03135000 CVTDAIR EQU CVTS01+384 03136000 CVTPERFM EQU CVTS01+380 03137000 CVT044R2 EQU CVTS01+376 03138000 CVTFETCH EQU CVTS01+372 03139000 CVTRSTWD EQU CVTS01+368 03140000 CVTSPOST EQU CVTS01+364 03141000 CVTIOBP EQU CVTS01+360 03142000 CVTASMVT EQU CVTS01+356 03143000 CVTRECRQ EQU CVTS01+352 03144000 CVTWSAC EQU CVTS01+348 03145000 CVTRV149 EQU CVTS01+344 03146000 CVTWSAL EQU CVTS01+340 03147000 CVTSPSA EQU CVTS01+336 03148000 CVTGLMN EQU CVTS01+332 03149000 CVTVEAC0 EQU CVTS01+328 03150000 CVT062R1 EQU CVTS01+324 03151000 CVTRPOST EQU CVTS01+320 03152000 CVTDQIQE EQU CVTS01+316 03153000 CVTCSD EQU CVTS01+312 03154000 CVTLKRMA EQU CVTS01+308 03155000 CVTRSPIE EQU CVTS01+304 03156000 CVTRENQ EQU CVTS01+300 03157000 CVTLQCB EQU CVTS01+296 03158000 CVTFQCB EQU CVTS01+292 03159000 CVTQCS01 EQU CVTS01+288 03160000 CVTAPFT EQU CVTS01+284 03161000 CVTPARRL EQU CVTS01+280 03162000 CVTVWAIT EQU CVTS01+276 03163000 CVTGSPL EQU CVTS01+272 03164000 CVTLSMQ EQU CVTS01+268 03165000 CVTGSMQ EQU CVTS01+264 03166000 CVTEXPRO EQU CVTS01+260 03167000 CVTOPCTP EQU CVTS01+256 03168000 CVTSIC EQU CVTS01+252 03169000 CVTTPIOS EQU CVTS01+248 03170000 CVTRTMS EQU CVTS01+244 03171000 CVTSDBF EQU CVTS01+240 03172000 CVTSCBP EQU CVTS01+236 03173000 CVTSDMP EQU CVTS01+232 03174000 CVTSV60 EQU CVTS01+228 03175000 CVTRTMCT EQU CVTS01+224 03176000 CVTASCBL EQU CVTS01+220 03177000 CVTASCBH EQU CVTS01+216 03178000 CVTGDA EQU CVTS01+212 03179000 CVTASVT EQU CVTS01+208 03180000 CVTVVMDI EQU CVTS01+204 03181000 CVTAQTOP EQU CVTS01+200 03182000 CVTIOSCS EQU CVTS01+196 03183000 CVTSDRM EQU CVTS01+192 03184000 CVTOPTE EQU CVTS01+188 03185000 CVTSTXU EQU CVTS01+184 03186000 CVTQUIS EQU CVTS01+180 03187000 CVTPARS EQU CVTS01+176 03188000 CVTS1EE EQU CVTS01+172 03189000 CVTFRAS EQU CVTS01+168 03190000 CVTQSAS EQU CVTS01+164 03191000 CVTCRAS EQU CVTS01+160 03192000 CVTCRMN EQU CVTS01+156 03193000 CVTDELCP EQU CVTS01+152 03194000 CVTFRECL EQU CVTS01+148 03195000 CVTGETCL EQU CVTS01+144 03196000 CVTBLDCP EQU CVTS01+140 03197000 CVTAUTHL EQU CVTS01+136 03198000 CVTSCAN EQU CVTS01+132 03199000 CVTRV144 EQU CVTS01+130 03200000 CVTMAXMP EQU CVTS01+128 03201000 CVTSTCK EQU CVTS01+124 03202000 CVTRV139 EQU CVTS01+123 03203000 CVTDSSAC EQU CVTS01+122 03204000 CVTRV513 EQU CVTS01+121 03205000 CVTIOSPL EQU CVTS01+120 03206000 CVTPTGT EQU CVTS01+116 03207000 CVTCSPIE EQU CVTS01+112 03208000 CVTSMFEX EQU CVTS01+108 03209000 CVTOLT0A EQU CVTS01+104 03210000 CVTSRBRT EQU CVTS01+100 03211000 CVTPUTL EQU CVTS01+96 03212000 CVTASCRL EQU CVTS01+92 03213000 CVTASCRF EQU CVTS01+88 03214000 CVTRV326 EQU CVTS01+84 03215000 CVTRV325 EQU CVTS01+80 03216000 CVTRV324 EQU CVTS01+76 03217000 CVT0VL01 EQU CVTS01+72 03218000 CVTSHRVM EQU CVTS01+68 03219000 CVTRV332 EQU CVTS01+64 03220000 CVTTAS EQU CVTS01+60 03221000 CVTRSCN EQU CVTS01+56 03222000 CVTTRAC2 EQU CVTS01+54 03223000 CVTTRACE EQU CVTS01+52 03224000 CVTAPG EQU CVTS01+51 03225000 CVTSDTRC EQU CVTCTLFG 03226000 CVTGTRCE EQU CVTCTLFG 03227000 CVTNOMP EQU CVTCTLFG 03228000 CVTRSV79 EQU CVTCTLFG 03229000 CVTDSTAT EQU CVTCTLFG 03230000 CVTRSV78 EQU CVTCTLFG 03231000 CVTRV333 EQU CVTCTLFG 03232000 CVTRV323 EQU CVTCTLFG 03233000 CVTSPVLK EQU CVTS01+49 03234000 CVTRSV77 EQU CVTS01+48 03235000 CVTRV331 EQU CVTS01+44 03236000 CVTRV330 EQU CVTS01+40 03237000 CVTRV329 EQU CVTS01+36 03238000 CVTRV328 EQU CVTS01+32 03239000 CVTRV322 EQU CVTS01+28 03240000 CVTSLID EQU CVTSLIDA+1 03241000 CVTSYLK EQU CVTSLIDA 03242000 CVTRV321 EQU CVTS01+20 03243000 CVTRV320 EQU CVTS01+16 03244000 CVTLPDIR EQU CVTLPDIA+1 03245000 CVTRSV69 EQU CVTDIRST 03246000 CVTRSV68 EQU CVTDIRST 03247000 CVTRSV67 EQU CVTDIRST 03248000 CVTRSV66 EQU CVTDIRST 03249000 CVTRSV65 EQU CVTDIRST 03250000 CVTRSV64 EQU CVTDIRST 03251000 CVTRSV63 EQU CVTDIRST 03252000 CVTDICOM EQU CVTDIRST 03253000 CVTPVTP EQU CVTS01+8 03254000 CVTLPDSR EQU CVTS01+4 03255000 CVTGETL EQU CVTS01 03256000 UCBRV066 EQU UCBOBS09+4 03257000 UCBIOSBA EQU UCBOBS09 03258000 UCBRV042 EQU UCBOBS08+5 03259000 UCBRV082 EQU UCBCTCF1 03260000 UCBRV081 EQU UCBCTCF1 03261000 UCBRV080 EQU UCBCTCF1 03262000 UCBRV079 EQU UCBCTCF1 03263000 UCBRV078 EQU UCBCTCF1 03264000 UCBRV077 EQU UCBCTCF1 03265000 UCBRV076 EQU UCBCTCF1 03266000 UCBCTC80 EQU UCBCTCF1 03267000 UCBCTCAL EQU UCBCTCAD 03268000 UCBICNCB EQU UCBOBS07+4 03269000 UCBRV040 EQU UCBOBS07 03270000 UCBCTLNA EQU UCBCTLNK+1 03271000 UCBRLN EQU UCBCTLNK 03272000 UCBRDYQA EQU UCBLDNCB 03273000 UCBINRLN EQU UCBIRLN 03274000 UCBIRBA EQU UCBIRB+1 03275000 UCBRV039 EQU UCBGRAF 03276000 UCBDWNR EQU UCBGRAF 03277000 UCBRPND EQU UCBGRAF 03278000 UCBUPM EQU UCBGRAF 03279000 UCBBTAM EQU UCBGRAF 03280000 UCBDRNO EQU UCBGRAF 03281000 UCBDRO EQU UCBGRAF 03282000 UCBOIP EQU UCBGRAF 03283000 UCBATRCD EQU @NM00039 03284000 UCBSKPFG EQU @NM00039 03285000 UCBRIPND EQU @NM00039 03286000 UCBRTIAC EQU @NM00039 03287000 UCBRSV79 EQU @NM00039 03288000 UCBRSV78 EQU @NM00039 03289000 UCBRSV77 EQU @NM00039 03290000 UCBOLTEP EQU @NM00039 03291000 UCBATNCT EQU UCBOBS06+2 03292000 UCBRSV76 EQU UCBAOF2 03293000 UCBRSV75 EQU UCBAOF2 03294000 UCBRSV74 EQU UCBAOF2 03295000 UCBRSV73 EQU UCBAOF2 03296000 UCBRSV72 EQU UCBAOF2 03297000 UCBRSV71 EQU UCBAOF2 03298000 UCBRSV70 EQU UCBAOF2 03299000 UCBRSV69 EQU UCBAOF2 03300000 UCBRSV68 EQU UCBAOF1 03301000 UCBRSV67 EQU UCBAOF1 03302000 UCBRSV66 EQU UCBAOF1 03303000 UCBRSV65 EQU UCBAOF1 03304000 UCBRSV64 EQU UCBAOF1 03305000 UCBOFNL EQU UCBAOF1 03306000 UCBOFSP EQU UCBAOF1 03307000 UCBOFMCR EQU UCBAOF1 03308000 UCBBTB EQU UCBBTA+1 03309000 UCBDI EQU UCBBTA 03310000 UCBSNS EQU UCBOBS04+8 03311000 UCBTEB EQU UCBOBS04+4 03312000 UCBGCB EQU UCBOBS04+3 03313000 UCBOPEN EQU UCBOBS04+2 03314000 UCBSTART EQU UCBOBS04 03315000 UCBXTNB EQU UCBXTN+1 03316000 UCBRSV22 EQU UCBVOPT 03317000 UCBRSV21 EQU UCBVOPT 03318000 UCBRSV20 EQU UCBVOPT 03319000 UCBESVE EQU UCBVOPT 03320000 UCBERPC EQU UCBVOPT 03321000 UCBESVC EQU UCBVOPT 03322000 UCBEVA EQU UCBVOPT 03323000 UCBESV EQU UCBVOPT 03324000 UCBRV009 EQU UCBTFL1 03325000 UCBRV008 EQU UCBTFL1 03326000 UCBRV007 EQU UCBTFL1 03327000 UCBRV006 EQU UCBTFL1 03328000 UCBRV005 EQU UCBTFL1 03329000 UCBDQDSP EQU UCBTFL1 03330000 UCBNSLTP EQU UCBTFL1 03331000 UCBNLTP EQU UCBTFL1 03332000 UCBRES1B EQU UCBOBS02+18 03333000 UCBFSER EQU UCBOBS02+12 03334000 @NM00038 EQU UCBOBS02+4 03335000 UCBFSEQ EQU UCBOBS02+2 03336000 UCBFSCT EQU UCBOBS02 03337000 UCBNEXP EQU UCBOBS01+20 03338000 UCBRES1A EQU UCBOBS01+15 03339000 UCBUSER EQU UCBOBS01+14 03340000 UCBFL47 EQU UCBFL4 03341000 UCBFL46 EQU UCBFL4 03342000 UCBFL45 EQU UCBFL4 03343000 UCBRV065 EQU UCBFL4 03344000 UCBDSS EQU UCBFL4 03345000 UCBRESVP EQU UCBFL4 03346000 UCBWDAV EQU UCBFL4 03347000 UCBDAVV EQU UCBFL4 03348000 UCBSQC EQU UCBOBS01+12 03349000 UCBDATP EQU UCBOBS01+12 03350000 UCBDMC EQU UCBDMCT 03351000 UCBMOUNT EQU UCBDMCT 03352000 UCBBNUL EQU UCBSTAB 03353000 UCBSHAR EQU UCBSTAB 03354000 UCBBSTR EQU UCBSTAB 03355000 UCBBPUB EQU UCBSTAB 03356000 UCBBPRV EQU UCBSTAB 03357000 UCBBALB EQU UCBPRSRS 03358000 UCBPGFL EQU UCBSTAB 03359000 UCBDVSHR EQU UCBBSVL 03360000 UCBVTOC EQU UCBOBS01 03361000 EWDEND EQU EWADAREA+128 03362000 EWDCCWA EQU EWADAREA+120 03363000 EWDCCW8 EQU EWADAREA+104 03364000 EWDCCW7 EQU EWADAREA+96 03365000 EWDCCW6 EQU EWADAREA+88 03366000 EWDCCW5 EQU EWADAREA+80 03367000 EWDCCW4 EQU EWADAREA+72 03368000 EWDCCW3 EQU EWADAREA+64 03369000 EWDCCW2 EQU EWADAREA+56 03370000 EWDCCW1 EQU EWADAREA+48 03371000 EWDDISP EQU EWADAREA+45 03372000 EWDHARNO EQU EWDHOMAD+5 03373000 EWDCCHH EQU EWDHOMAD+1 03374000 EWDHAALT EQU EWDHAFLG 03375000 EWDHADEF EQU EWDHAFLG 03376000 EWDHA5 EQU EWDHAFLG 03377000 EWDHA4 EQU EWDHAFLG 03378000 EWDHA3 EQU EWDHAFLG 03379000 EWDHA2 EQU EWDHAFLG 03380000 EWDHA1 EQU EWDHAFLG 03381000 EWDHA0 EQU EWDHAFLG 03382000 EWDSAVC EQU EWADAREA+32 03383000 EWDSAVS EQU EWADAREA+30 03384000 EWDSAVOP EQU EWADAREA+29 03385000 EWDSAVKY EQU EWADAREA+28 03386000 EWDSNS27 EQU EWDASNS+27 03387000 EWDSNS26 EQU EWDASNS+26 03388000 EWDSNS25 EQU EWDASNS+25 03389000 EWDRZRO EQU EWDSNS24 03390000 EWDSNS23 EQU EWDASNS+23 03391000 EWDSNS22 EQU EWDASNS+22 03392000 EWDSNS21 EQU EWDASNS+21 03393000 EWDSNS20 EQU EWDASNS+20 03394000 EWDSNS19 EQU EWDASNS+19 03395000 EWDSNS18 EQU EWDASNS+18 03396000 EWDSNS17 EQU EWDASNS+17 03397000 EWDSNS16 EQU EWDASNS+16 03398000 EWDSNS15 EQU EWDASNS+15 03399000 EWDSNS14 EQU EWDASNS+14 03400000 EWDSNS13 EQU EWDASNS+13 03401000 EWDSNS12 EQU EWDASNS+12 03402000 EWDSNS11 EQU EWDASNS+11 03403000 EWD107 EQU EWDSNS10 03404000 EWD106 EQU EWDSNS10 03405000 EWD105 EQU EWDSNS10 03406000 EWD104 EQU EWDSNS10 03407000 EWDSTAT EQU EWDSNS10 03408000 EWD100 EQU EWDSNS10 03409000 EWDSNS9 EQU EWDASNS+9 03410000 EWDSNS8 EQU EWDASNS+8 03411000 EWDSNS7 EQU EWDASNS+7 03412000 EWDSNS6 EQU EWDASNS+6 03413000 EWDSNS5 EQU EWDASNS+5 03414000 EWDSNS4 EQU EWDASNS+4 03415000 EWDSNS3 EQU EWDASNS+3 03416000 EWD27 EQU EWDSNS2 03417000 EWD26 EQU EWDSNS2 03418000 EWD25 EQU EWDSNS2 03419000 EWD24 EQU EWDSNS2 03420000 EWDEDAT EQU EWDSNS2 03421000 EWDMDA2 EQU EWD22 03422000 EWDCORR EQU EWDSNS2 03423000 EWDMDA1 EQU EWDWRPS 03424000 EWDOFLO EQU EWDSNS1 03425000 EWDINHI EQU EWDMAM 03426000 EWDFP EQU EWDSNS1 03427000 EWDNRF EQU EWDSNS1 03428000 EWD13 EQU EWDSNS1 03429000 EWDEOC EQU EWDSNS1 03430000 EWDTVRN EQU EWDSNS1 03431000 EWDPERM EQU EWDSNS1 03432000 EWDSKCK EQU EWDSNS0 03433000 EWDTCC EQU EWDSNS0 03434000 EWDOVRN EQU EWDSNS0 03435000 EWDDATA EQU EWDSNS0 03436000 EWDEQU EQU EWDSNS0 03437000 EWDBUSO EQU EWDSNS0 03438000 EWDINT EQU EWDSNS0 03439000 EWDCREJ EQU EWDSNS0 03440000 IOSPCIWA EQU IOSPCISC+44 03441000 IOSPCIRS EQU IOSPCISC+8 03442000 @NM00026 EQU IOSPCISC+4 03443000 @NM00025 EQU IOSPCISC 03444000 IOSATTWA EQU IOSATTSC+40 03445000 @NM00024 EQU IOSATTSC+24 03446000 IOSATTSN EQU IOSATTSC 03447000 @NM00019 EQU CODETHRE 03448000 @NM00018 EQU PATH1 03449000 @NM00016 EQU SENSEB+4 03450000 @NM00015 EQU S4 03451000 ENVD EQU S4 03452000 @NM00014 EQU S4 03453000 @NM00013 EQU S4 03454000 S3 EQU SENSEB+2 03455000 @NM00012 EQU S2 03456000 @NM00011 EQU S2 03457000 EWAEND EQU EWADDIOS+76 03458000 EWACHAIN EQU EWADDIOS+72 03459000 @NM00036 EQU EWADDIOS+71 03460000 EWASCSW EQU EWADDIOS+64 03461000 @NM00010 EQU STATUS+1 03462000 @NM00009 EQU STATUS 03463000 @NM00008 EQU PERMIO2 03464000 @NM00007 EQU WSENSE 03465000 JC EQU JOBN 03466000 @NM00006 EQU PATH+19 03467000 @NM00005 EQU PATH+9 03468000 @NM00004 EQU PATH 03469000 SNS2 EQU SNS+5 03470000 TIOCSTEP EQU TIOT1+8 03471000 @NM00050 EQU TCBXTNT2+32 03472000 TCBRV181 EQU TCBRV173 03473000 TCBRV180 EQU TCBRV173 03474000 TCBRV179 EQU TCBRV173 03475000 TCBRV178 EQU TCBRV173 03476000 TCBRV177 EQU TCBRV173 03477000 TCBRV176 EQU TCBRV173 03478000 TCBRV175 EQU TCBRV173 03479000 TCBRV174 EQU TCBRV173 03480000 TCBRV172 EQU TCBRV164 03481000 TCBRV171 EQU TCBRV164 03482000 TCBRV170 EQU TCBRV164 03483000 TCBRV169 EQU TCBRV164 03484000 TCBRV168 EQU TCBRV164 03485000 TCBRV167 EQU TCBRV164 03486000 TCBRV166 EQU TCBRV164 03487000 TCBRV165 EQU TCBRV164 03488000 TCBRV163 EQU TCBRV155 03489000 TCBRV162 EQU TCBRV155 03490000 TCBRV161 EQU TCBRV155 03491000 TCBRV160 EQU TCBRV155 03492000 TCBRV159 EQU TCBRV155 03493000 TCBRV158 EQU TCBRV155 03494000 TCBRV157 EQU TCBRV155 03495000 TCBRV156 EQU TCBRV155 03496000 TCBRV154 EQU TCBRV146 03497000 TCBRV153 EQU TCBRV146 03498000 TCBRV152 EQU TCBRV146 03499000 TCBRV151 EQU TCBRV146 03500000 TCBRV150 EQU TCBRV146 03501000 TCBRV149 EQU TCBRV146 03502000 TCBRV148 EQU TCBRV146 03503000 TCBRV147 EQU TCBRV146 03504000 TCBRV145 EQU TCBXTNT2+26 03505000 TCBRV144 EQU TCBXTNT2+24 03506000 TCBCAUF EQU TCBXTNT2+20 03507000 TCBRV142 EQU TCBXTNT2+16 03508000 TCBRSV49 EQU TCBXTNT2+12 03509000 TCBEVENT EQU TCBXTNT2+8 03510000 TCBRCMP EQU TCBXTNT2+5 03511000 TCBRSVAB EQU TCBXTNT2+4 03512000 TCBGTFA EQU TCBGTF+1 03513000 TCBRSV47 EQU TCBTFLG 03514000 TCBRSV46 EQU TCBTFLG 03515000 TCBRSV45 EQU TCBTFLG 03516000 TCBRSV44 EQU TCBTFLG 03517000 TCBRSV43 EQU TCBTFLG 03518000 TCBDSPIT EQU TCBTFLG 03519000 TCBERRTN EQU TCBTFLG 03520000 TCBASYNC EQU TCBTFLG 03521000 @NM00049 EQU TCB+296 03522000 TCBSVCA2 EQU TCB+292 03523000 TCBSWASA EQU TCB+288 03524000 TCBDBTB EQU TCB+284 03525000 TCBRPT EQU TCB+280 03526000 TCBRV141 EQU TCBRV133 03527000 TCBRV140 EQU TCBRV133 03528000 TCBRV139 EQU TCBRV133 03529000 TCBRV138 EQU TCBRV133 03530000 TCBRV137 EQU TCBRV133 03531000 TCBRV136 EQU TCBRV133 03532000 TCBRV135 EQU TCBRV133 03533000 TCBRV134 EQU TCBRV133 03534000 TCBRV132 EQU TCBRV124 03535000 TCBRV131 EQU TCBRV124 03536000 TCBRV130 EQU TCBRV124 03537000 TCBRV129 EQU TCBRV124 03538000 TCBRV128 EQU TCBRV124 03539000 TCBRV127 EQU TCBRV124 03540000 TCBRV126 EQU TCBRV124 03541000 TCBRV125 EQU TCBRV124 03542000 TCBRV123 EQU TCBFBYT2 03543000 TCBRV122 EQU TCBFBYT2 03544000 TCBECBNV EQU TCBFBYT2 03545000 TCBSSSYN EQU TCBFBYT2 03546000 TCBFPRAP EQU TCBFBYT2 03547000 TCBFDW EQU TCBFBYT2 03548000 TCBFMW EQU TCBFBYT2 03549000 TCBCNCB EQU TCBFBYT2 03550000 TCBLLH EQU TCBFBYT1 03551000 TCBRV113 EQU TCBFBYT1 03552000 TCBEOT EQU TCBFBYT1 03553000 TCBRTM2 EQU TCBFBYT1 03554000 TCBPGNLY EQU TCBFBYT1 03555000 TCBNDIOS EQU TCBFBYT1 03556000 TCBACTIV EQU TCBFBYT1 03557000 TCBEOTFM EQU TCBFBYT1 03558000 TCBAFFN EQU TCB+274 03559000 TCBCCPVI EQU TCB+272 03560000 TCBUKYSP EQU TCB+268 03561000 TCBMODE EQU TCBESTAE+3 03562000 TCBERTYP EQU TCBESTAE+2 03563000 TCBRV314 EQU TCBESTRM 03564000 TCBRV313 EQU TCBESTRM 03565000 TCBRV312 EQU TCBESTRM 03566000 TCBRV311 EQU TCBESTRM 03567000 TCBRV310 EQU TCBESTRM 03568000 TCBRV309 EQU TCBESTRM 03569000 TCBRV308 EQU TCBESTRM 03570000 TCBETERM EQU TCBESTRM 03571000 TCBSCBKY EQU TCBESTAE 03572000 TCBRTM12 EQU TCB+260 03573000 TCBTCBID EQU TCB+256 03574000 TCBRSV96 EQU TCB+252 03575000 TCBSWA EQU TCB+248 03576000 TCBFOEA EQU TCBFOE+1 03577000 TCBRSV42 EQU TCBFOE 03578000 TCBRV306 EQU TCB+240 03579000 TCBRSV41 EQU TCB+239 03580000 TCBTID EQU TCB+238 03581000 TCBRSVAA EQU TCB+237 03582000 TCBABCUR EQU TCB+236 03583000 TCBTMSAV EQU TCB+232 03584000 TCBIOTIM EQU TCB+228 03585000 TCBRTWA EQU TCB+224 03586000 TCBBACK EQU TCB+220 03587000 TCBTIRB EQU TCB+216 03588000 TCBAECB EQU TCB+212 03589000 TCBEXT2A EQU TCBEXT2+1 03590000 TCBRSV39 EQU TCBEXT2 03591000 TCBSTMCT EQU TCB+207 03592000 TCBSYSCT EQU TCB+206 03593000 TCBRSV37 EQU TCB+205 03594000 TCBEXSVC EQU TCBDAR 03595000 TCBDARMS EQU TCBDAR 03596000 TCBDARWT EQU TCBDAR 03597000 TCBDARO EQU TCBDAR 03598000 TCBDARMC EQU TCBDARC 03599000 TCBDARD EQU TCBDAR 03600000 TCBDARS EQU TCBDAR 03601000 TCBDARP EQU TCBDAR 03602000 TCBGTOFM EQU TCBFLGS7 03603000 TCBADMP EQU TCBFLGS7 03604000 TCBRSTSK EQU TCBFLGS7 03605000 TCBSVCS EQU TCBFLGS7 03606000 TCBSTACK EQU TCBFLGS7 03607000 TCBRSV34 EQU TCBFLGS7 03608000 TCBRSV33 EQU TCBFLGS7 03609000 TCBGPECB EQU TCBFLGS7 03610000 TCBNTJS EQU TCBFLGS6 03611000 TCBAPG EQU TCBFLGS6 03612000 TCBMIGR EQU TCBFLGS6 03613000 TCBRV303 EQU TCBFLGS6 03614000 TCBSPVLK EQU TCBFLGS6 03615000 TCBCPU EQU TCBFLGS6 03616000 TCBPIE17 EQU TCBFLGS6 03617000 TCBRV EQU TCBFLGS6 03618000 TCBRSV79 EQU TCBNDSP5 03619000 TCBRSV78 EQU TCBNDSP5 03620000 TCBRSV77 EQU TCBNDSP5 03621000 TCBRSV76 EQU TCBNDSP5 03622000 TCBRSV75 EQU TCBNDSP5 03623000 TCBRSV74 EQU TCBNDSP5 03624000 TCBRSV95 EQU TCBNDSP5 03625000 TCBRSV94 EQU TCBNDSP5 03626000 TCBRSV93 EQU TCBNDSP4 03627000 TCBRSV92 EQU TCBNDSP4 03628000 TCBRSV91 EQU TCBNDSP4 03629000 TCBRSV90 EQU TCBNDSP4 03630000 TCBRSV89 EQU TCBNDSP4 03631000 TCBRSV88 EQU TCBNDSP4 03632000 TCBRSV87 EQU TCBNDSP4 03633000 TCBRSV86 EQU TCBNDSP4 03634000 TCBEXT1A EQU TCBEXT1+1 03635000 TCBRSV32 EQU TCBEXT1 03636000 TCBEXCPD EQU TCB+192 03637000 TCBIOBRC EQU TCB+188 03638000 TCBDDWTC EQU TCB+186 03639000 TCBDDEXC EQU TCB+184 03640000 TCBJSCBB EQU TCBJSCB+1 03641000 @NM00048 EQU TCBRECDE 03642000 TCBREC EQU TCBRECDE 03643000 TCBMDIDS EQU TCB+176 03644000 TCBNDINT EQU TCBNDSP3 03645000 TCBRSV27 EQU TCBNDSP3 03646000 TCBRSV26 EQU TCBNDSP3 03647000 TCBRSV25 EQU TCBNDSP3 03648000 TCBRSV24 EQU TCBNDSP3 03649000 TCBSRBND EQU TCBNDSP3 03650000 TCBRV302 EQU TCBNDSP3 03651000 TCBLJSND EQU TCBNDSP3 03652000 TCBABE EQU TCBNDSP2 03653000 TCBDSS EQU TCBNDSP2 03654000 TCBOWAIT EQU TCBNDSP2 03655000 TCBIWAIT EQU TCBNDSP2 03656000 TCBNDTS EQU TCBNDSP2 03657000 TCBNDSVC EQU TCBNDSP2 03658000 TCBSTPP EQU TCBNDSP2 03659000 TCBABD EQU TCBNDSP2 03660000 TCBRSV22 EQU TCBNDSP1 03661000 TCBPIEND EQU TCBNDSP1 03662000 TCBTPSP EQU TCBNDSP1 03663000 TCBDDRND EQU TCBNDSP1 03664000 TCBRSPND EQU TCBNDSP1 03665000 TCBRSTND EQU TCBNDSP1 03666000 TCBDARPN EQU TCBNDSP1 03667000 TCBDARTN EQU TCBNDSP1 03668000 TCBNDSP0 EQU TCBNDSP 03669000 TCBUSER EQU TCB+168 03670000 TCBTCTB EQU TCBTCT+1 03671000 TCBRSV9C EQU TCBTCTGF 03672000 TCBRSV9B EQU TCBTCTGF 03673000 TCBRSV9A EQU TCBTCTGF 03674000 TCBRSV99 EQU TCBTCTGF 03675000 TCBRSV98 EQU TCBTCTGF 03676000 TCBRSV97 EQU TCBTCTGF 03677000 TCBRSV20 EQU TCBTCTGF 03678000 TCBSMFGF EQU TCBTCTGF 03679000 TCBSTABB EQU TCBSTAB+1 03680000 TCBSTCUR EQU TCBNSTAE 03681000 TCBRV301 EQU TCBNSTAE 03682000 TCBSYNCH EQU TCBNSTAE 03683000 TCBHALT EQU TCBNSTAE 03684000 TCBPPSUP EQU TCBNSTAE 03685000 TCB33E EQU TCBNSTAE 03686000 TCBQUIES EQU TCBNSTAE 03687000 TCBSTABE EQU TCBNSTAE 03688000 TCBAQE EQU TCB+156 03689000 TCBPQE EQU TCB+152 03690000 TCBTSDP EQU TCB+151 03691000 TCBTSLP EQU TCB+150 03692000 TCBSTPCT EQU TCB+149 03693000 TCBCPUBN EQU TCBTSFLG 03694000 TCBDYDSP EQU TCBTSFLG 03695000 TCBRSV18 EQU TCBTSFLG 03696000 TCBRSV17 EQU TCBTSFLG 03697000 TCBTIOTG EQU TCBTSFLG 03698000 TCBATT EQU TCBTSFLG 03699000 TCBSTPPR EQU TCBTSFLG 03700000 TCBRV300 EQU TCBTSTSK 03701000 TCBECB EQU TCB+144 03702000 TCBIQE EQU TCB+140 03703000 TCBLTC EQU TCB+136 03704000 TCBOTC EQU TCB+132 03705000 TCBNTC EQU TCB+128 03706000 TCBJSTCA EQU TCBJSTCB+1 03707000 TCBRSV16 EQU TCBJSTCB 03708000 TCBTQET EQU TCBTME 03709000 TCBTCB EQU TCB+116 03710000 TCBFSAB EQU TCBFSA+1 03711000 TCBQEL EQU TCBFSA 03712000 TCBGRS15 EQU TCBGRS+60 03713000 TCBGRS14 EQU TCBGRS+56 03714000 TCBGRS13 EQU TCBGRS+52 03715000 TCBGRS12 EQU TCBGRS+48 03716000 TCBGRS11 EQU TCBGRS+44 03717000 TCBGRS10 EQU TCBGRS+40 03718000 TCBGRS9 EQU TCBGRS+36 03719000 TCBGRS8 EQU TCBGRS+32 03720000 TCBGRS7 EQU TCBGRS+28 03721000 TCBGRS6 EQU TCBGRS+24 03722000 TCBGRS5 EQU TCBGRS+20 03723000 TCBGRS4 EQU TCBGRS+16 03724000 TCBGRS3 EQU TCBGRS+12 03725000 TCBGRS2 EQU TCBGRS+8 03726000 TCBGRS1 EQU TCBGRS+4 03727000 TCBGRS0 EQU TCBGRS 03728000 TCBJPQB EQU TCBJPQ+1 03729000 TCBRSV15 EQU TCBPURGE 03730000 TCBRSV14 EQU TCBPURGE 03731000 TCBRSV13 EQU TCBPURGE 03732000 TCBRSV12 EQU TCBPURGE 03733000 TCBRSV11 EQU TCBPURGE 03734000 TCBRSV10 EQU TCBPURGE 03735000 TCBRSV09 EQU TCBPURGE 03736000 TCBJPQF EQU TCBPURGE 03737000 TCBJLB EQU TCB+40 03738000 TCBLLS EQU TCB+36 03739000 TCBDSP EQU TCB+35 03740000 TCBLMP EQU TCB+34 03741000 TCBPNDSP EQU TCBFLGS5 03742000 TCBFCD1 EQU TCBFLGS5 03743000 TCBSTP EQU TCBFLGS5 03744000 TCBSYS EQU TCBFLGS5 03745000 TCBANDSP EQU TCBFLGS5 03746000 TCBPAGE EQU TCBFLGS5 03747000 TCBUXNDF EQU TCBABWF 03748000 TCBFC EQU TCBFLGS5 03749000 TCBONDSP EQU TCBFLGS4 03750000 TCBMPCND EQU TCBFLGS4 03751000 TCBMPCVQ EQU TCBFLGS4 03752000 TCBUXNDV EQU TCBFLGS4 03753000 TCBHNDSP EQU TCBFLGS4 03754000 TCBRQENA EQU TCBFLGS4 03755000 TCBSER EQU TCBFLGS4 03756000 TCBNDUMP EQU TCBFLGS4 03757000 TCBDWSTA EQU TCBFLGS3 03758000 TCBRSV08 EQU TCBFLGS3 03759000 TCBRSV07 EQU TCBFLGS3 03760000 TCBRSV06 EQU TCBFLGS3 03761000 TCBABGM EQU TCBFLGS3 03762000 TCBABTRM EQU TCBFLGS3 03763000 TCBADINP EQU TCBFLGS3 03764000 TCBFSM EQU TCBFLGS3 03765000 TCBFTS EQU TCBFLGS2 03766000 TCBFETXR EQU TCBFLGS2 03767000 TCBFDSOP EQU TCBFLGS2 03768000 TCBFJMC EQU TCBFLGS2 03769000 TCBFSMC EQU TCBFLGS2 03770000 TCBFABOP EQU TCBFLGS2 03771000 TCBFSTI EQU TCBFLGS2 03772000 TCBFOINP EQU TCBFLGS2 03773000 TCBFX EQU TCBFLGS1 03774000 TCBFS EQU TCBFLGS1 03775000 TCBFT EQU TCBFLGS1 03776000 TCBPDUMP EQU TCBFLGS1 03777000 TCBNONPR EQU TCBFLGS1 03778000 TCBFERA EQU TCBFLGS1 03779000 TCBFE EQU TCBFLGS1 03780000 TCBFA EQU TCBFLGS1 03781000 TCBZERO EQU TCBPKF 03782000 TCBFLAG EQU TCBPKF 03783000 TCBMSSB EQU TCBMSS+1 03784000 TCBRSV03 EQU TCBMSS 03785000 TCBTRNB EQU TCBTRN+1 03786000 TCBRSV02 EQU TCBABF 03787000 TCBOLTEP EQU TCBABF 03788000 TCBTCP EQU TCBABF 03789000 TCBTCPP EQU TCBABF 03790000 TCBRSV01 EQU TCBABF 03791000 TCBGRPH EQU TCBABF 03792000 TCBNOCHK EQU TCBABF 03793000 TCBMOD91 EQU TCBABF 03794000 TCBCMPC EQU TCBCMP+1 03795000 TCBRV318 EQU TCBCMSG 03796000 TCBRV317 EQU TCBCIND 03797000 TCBRV316 EQU TCBCWTO 03798000 TCBCASID EQU TCBCDBL 03799000 TCBNOCC EQU TCBSTCC 03800000 TCBDMPO EQU TCBCPP 03801000 TCBCSTEP EQU TCBCMPF 03802000 TCBCREQ EQU TCBCMPF 03803000 TCBDEB EQU TCB+8 03804000 TCBPIEA EQU TCBPIE+1 03805000 TCBPM EQU TCBPMASK 03806000 @NM00047 EQU TCBPMASK 03807000 TCBRBP EQU TCB 03808000 TCBFRS6 EQU TCBFRS+24 03809000 TCBFRS4 EQU TCBFRS+16 03810000 TCBFRS2 EQU TCBFRS+8 03811000 TCBFRS0 EQU TCBFRS 03812000 @NM00046 EQU SRB+40 03813000 @NM00045 EQU SRB+38 03814000 SRBPRIOR EQU SRB+37 03815000 SRBPKF EQU SRB+36 03816000 SRBSAVE EQU SRB+32 03817000 SRBPARM EQU SRB+28 03818000 SRBRMTR EQU SRB+24 03819000 SRBEP EQU SRB+20 03820000 SRBPASID EQU SRBFLC+2 03821000 SRBCPAFF EQU SRBFLC 03822000 SRBASCB EQU SRB+8 03823000 SRBFLNK EQU SRB+4 03824000 OBRDIRQ EQU IECVDIRQ+4 03825000 WTODIRQ EQU IECVDIRQ 03826000 IOCOEND EQU IOCOM+128 03827000 IOCPATCH EQU IOCOM+124 03828000 IOCUCBBM EQU IOCOM+120 03829000 IOCQCNT EQU IOCOM+116 03830000 IOCIOSDQ EQU IOCOM+112 03831000 IOCIOSEQ EQU IOCOM+108 03832000 IOCSVCF EQU IOCOM+104 03833000 IOCTCCW EQU IOCOM+100 03834000 IOCRSVTB EQU IOCOM+96 03835000 IOCMFCNT EQU IOCOM+92 03836000 IOCMFHK EQU IOCOM+88 03837000 IOCCCH EQU IOCOM+80 03838000 IOCLCHTB EQU IOCOM+72 03839000 IOCATTBL EQU IOCOM+68 03840000 IOCOMEX EQU IOCOM+64 03841000 IOCSYNCH EQU IOCOM+56 03842000 IOCCATLK EQU IOCOM+48 03843000 IOCPRGID EQU IOCOM+44 03844000 IOCVOID EQU IOCOM+32 03845000 IOCSTIO EQU IOCOM+28 03846000 @NM00044 EQU IOCOM+24 03847000 @NM00043 EQU IOCOM+20 03848000 IOCINT EQU IOCOM+16 03849000 IOCCTBL EQU IOCOM+12 03850000 IOCHIO EQU IOCOM+8 03851000 IOCPST EQU IOCOM+4 03852000 IOCPGCT EQU IOCOM+2 03853000 IOCVOICT EQU IOCOM 03854000 CVTLEVL EQU CVTRELNO+2 03855000 CVTNUMB EQU CVTRELNO 03856000 CVTMDL EQU CVTFIX+250 03857000 @NM00042 EQU CVTFIX+248 03858000 @NM00041 EQU CVTFIX 03859000 CVTRV482 EQU CVTXTNT2+128 03860000 CVTRV481 EQU CVTXTNT2+124 03861000 CVTRV480 EQU CVTXTNT2+120 03862000 CVTRV479 EQU CVTXTNT2+118 03863000 CVTRV478 EQU CVTXTNT2+117 03864000 CVTRV477 EQU CVTXTNT2+116 03865000 CVTRV476 EQU CVTXTNT2+115 03866000 CVTRV475 EQU CVTXTNT2+114 03867000 CVTRV474 EQU CVTRV466 03868000 CVTRV473 EQU CVTRV466 03869000 CVTRV472 EQU CVTRV466 03870000 CVTRV471 EQU CVTRV466 03871000 CVTRV470 EQU CVTRV466 03872000 CVTRV469 EQU CVTRV466 03873000 CVTRV468 EQU CVTRV466 03874000 CVTRV467 EQU CVTRV466 03875000 CVTRV465 EQU CVTRV457 03876000 CVTRV464 EQU CVTRV457 03877000 CVTRV463 EQU CVTRV457 03878000 CVTRV462 EQU CVTRV457 03879000 CVTRV461 EQU CVTRV457 03880000 CVTRV460 EQU CVTRV457 03881000 CVTRV459 EQU CVTRV457 03882000 CVTRV458 EQU CVTRV457 03883000 CVTRV456 EQU CVTXTNT2+108 03884000 CVTRV455 EQU CVTXTNT2+104 03885000 CVTRV454 EQU CVTXTNT2+100 03886000 CVTRV453 EQU CVTXTNT2+96 03887000 CVTRV452 EQU CVTXTNT2+94 03888000 CVTRV451 EQU CVTXTNT2+92 03889000 CVTRV450 EQU CVTXTNT2+90 03890000 CVTRV449 EQU CVTXTNT2+88 03891000 CVTRV448 EQU CVTXTNT2+87 03892000 CVTRV447 EQU CVTXTNT2+86 03893000 CVTRV446 EQU CVTRV438 03894000 CVTRV445 EQU CVTRV438 03895000 CVTRV444 EQU CVTRV438 03896000 CVTRV443 EQU CVTRV438 03897000 CVTRV442 EQU CVTRV438 03898000 CVTRV441 EQU CVTRV438 03899000 CVTRV440 EQU CVTRV438 03900000 CVTRV439 EQU CVTRV438 03901000 CVTRV437 EQU CVTRV429 03902000 CVTRV436 EQU CVTRV429 03903000 CVTRV435 EQU CVTRV429 03904000 CVTRV434 EQU CVTRV429 03905000 CVTRV433 EQU CVTRV429 03906000 CVTRV432 EQU CVTRV429 03907000 CVTRV431 EQU CVTRV429 03908000 CVTRV430 EQU CVTRV429 03909000 CVTRV428 EQU CVTXTNT2+80 03910000 CVTRV427 EQU CVTXTNT2+76 03911000 CVTRV426 EQU CVTXTNT2+72 03912000 CVTRV425 EQU CVTXTNT2+68 03913000 CVTATACT EQU CVTATCVT 03914000 CVTRV423 EQU CVTXTNT2+62 03915000 CVTRV422 EQU CVTXTNT2+60 03916000 CVTRV421 EQU CVTXTNT2+58 03917000 CVTRV420 EQU CVTXTNT2+56 03918000 CVTRV419 EQU CVTXTNT2+55 03919000 CVTRV418 EQU CVTXTNT2+54 03920000 CVTRV417 EQU CVTRV409 03921000 CVTRV416 EQU CVTRV409 03922000 CVTRV415 EQU CVTRV409 03923000 CVTRV414 EQU CVTRV409 03924000 CVTRV413 EQU CVTRV409 03925000 CVTRV412 EQU CVTRV409 03926000 CVTRV411 EQU CVTRV409 03927000 CVTRV410 EQU CVTRV409 03928000 CVTRV408 EQU CVTRV400 03929000 CVTRV407 EQU CVTRV400 03930000 CVTRV406 EQU CVTRV400 03931000 CVTRV405 EQU CVTRV400 03932000 CVTRV404 EQU CVTRV400 03933000 CVTRV403 EQU CVTRV400 03934000 CVTRV402 EQU CVTRV400 03935000 CVTRV401 EQU CVTRV400 03936000 CVTICB EQU CVTXTNT2+48 03937000 CVTSKTA EQU CVTXTNT2+44 03938000 CVTCCVT EQU CVTXTNT2+40 03939000 CVTRSV98 EQU CVTXTNT2+36 03940000 CVTRSV97 EQU CVTXTNT2+34 03941000 CVTRSV96 EQU CVTXTNT2+32 03942000 CVTOLTEP EQU CVTXTNT2+28 03943000 CVTQIDA EQU CVTQID+1 03944000 CVTRSV95 EQU CVTQID 03945000 CVTRSV94 EQU CVTXTNT2+20 03946000 CVTRSV93 EQU CVTXTNT2+16 03947000 CVTRSV92 EQU CVTXTNT2+12 03948000 CVTDEBVR EQU CVTXTNT2+8 03949000 CVTRSV91 EQU CVTXTNT2+6 03950000 CVTRSV9H EQU CVTFLGBT 03951000 CVTRSV9G EQU CVTFLGBT 03952000 CVTRSV9F EQU CVTFLGBT 03953000 CVTRSV9E EQU CVTFLGBT 03954000 CVTRSV9D EQU CVTFLGBT 03955000 CVTRSV9C EQU CVTFLGBT 03956000 CVTVME EQU CVTFLGBT 03957000 CVTNPE EQU CVTFLGBT 03958000 CVTNUCLS EQU CVTXTNT2+4 03959000 CVTDSSVA EQU CVTDSSV+1 03960000 CVTRSV89 EQU CVTDSSV 03961000 CVTRSV88 EQU CVTXTNT1+8 03962000 CVTRSV87 EQU CVTXTNT1+4 03963000 CVTFACHN EQU CVTXTNT1 03964000 CVTRV488 EQU CVTMAP+412 03965000 CVTRV487 EQU CVTMAP+408 03966000 CVTRV486 EQU CVTMAP+404 03967000 CVTRV485 EQU CVTMAP+400 03968000 CVTACTAP EQU CVTMAP+396 03969000 CVTAUTH EQU CVTMAP+392 03970000 CVTATMCA EQU CVTATMCT+1 03971000 CVTATMST EQU CVTATMCT 03972000 CVTRSV61 EQU CVTMAP+384 03973000 CVTVOLT1 EQU CVTVOLM1+1 03974000 CVTVOLI1 EQU CVTVOLF1 03975000 CVTSTOA EQU CVTMAP+376 03976000 CVTRSV58 EQU CVTMAP+374 03977000 CVTRSV57 EQU CVTMAP+372 03978000 CVTDDCE EQU CVTMAP+368 03979000 CVTPNWFR EQU CVTMAP+364 03980000 CVTSMF EQU CVTMAP+360 03981000 CVTSULK EQU CVTMAP+358 03982000 CVTSLKO EQU CVTSYSK 03983000 CVTSLKP EQU CVTSYSK 03984000 CVTSLKQ EQU CVTSYSK 03985000 CVTSLKR EQU CVTSYSK 03986000 CVTRSV56 EQU CVTSYSK 03987000 CVTRSV55 EQU CVTSYSK 03988000 CVTRSV54 EQU CVTSYSK 03989000 CVTRSV53 EQU CVTSYSK 03990000 CVTRSV52 EQU CVTA1F1 03991000 CVTRSV51 EQU CVTA1F1 03992000 CVTRSV50 EQU CVTA1F1 03993000 CVTRSV49 EQU CVTA1F1 03994000 CVTRSV48 EQU CVTA1F1 03995000 CVTRSV47 EQU CVTA1F1 03996000 CVTSRSW EQU CVTA1F1 03997000 CVTPFSW EQU CVTA1F1 03998000 CVTPCVT EQU CVTMAP+352 03999000 CVTRSV46 EQU CVTMAP+344 04000000 CVTRSV45 EQU CVTMAP+340 04001000 CVTRSV44 EQU CVTMAP+338 04002000 CVTRSV43 EQU CVTMAP+336 04003000 CVTHJESA EQU CVTHJES+1 04004000 CVTRSV42 EQU CVTHJES 04005000 CVTEXT2A EQU CVTEXT2+1 04006000 CVTRSV41 EQU CVTEXT2 04007000 CVTAPFA EQU CVTAPF+1 04008000 CVTRSV40 EQU CVTAPF 04009000 CVTRV518 EQU CVTINTLA 04010000 CVTRV517 EQU CVTERPV 04011000 CVTEORM EQU CVTMAP+312 04012000 CVTMCHPR EQU CVTMAP+308 04013000 CVTTZ EQU CVTMAP+304 04014000 CVTJEPS EQU CVTMAP+300 04015000 CVTJESCT EQU CVTMAP+296 04016000 CVTMODE EQU CVTMAP+292 04017000 CVTPTRV EQU CVTMAP+288 04018000 CVTREAL EQU CVTMAP+284 04019000 CVTRSV39 EQU CVTMAP+280 04020000 CVTRSV38 EQU CVTMAP+276 04021000 CVTDMSRA EQU CVTDMSR+1 04022000 CVTRV634 EQU CVTDMSRF 04023000 CVTRV633 EQU CVTDMSRF 04024000 CVTRV632 EQU CVTDMSRF 04025000 CVTRV631 EQU CVTDMSRF 04026000 CVTRV630 EQU CVTDMSRF 04027000 CVTRV629 EQU CVTDMSRF 04028000 CVTUDUMP EQU CVTDMSRF 04029000 CVTSDUMP EQU CVTDMSRF 04030000 CVTQMSGA EQU CVTQMSG+1 04031000 CVTRSV36 EQU CVTQMSG 04032000 CVTAMFF EQU CVTMAP+264 04033000 CVTPURGA EQU CVTPURG+1 04034000 CVTRSV35 EQU CVTPURG 04035000 CVTCBSP EQU CVTMAP+256 04036000 CVTATERA EQU CVTATER+1 04037000 CVTSYST EQU CVTATER 04038000 CVTVOLT2 EQU CVTTAT 04039000 CVTVOLI2 EQU CVTVOLF2 04040000 CVTAQAVB EQU CVTAQAVT+1 04041000 CVTRSV34 EQU CVTTCMFG 04042000 CVTRSV33 EQU CVTTCMFG 04043000 CVTRSV32 EQU CVTTCMFG 04044000 CVTRSV31 EQU CVTTCMFG 04045000 CVTRSV30 EQU CVTTCMFG 04046000 CVTRSV29 EQU CVTTCMFG 04047000 CVTRSV28 EQU CVTTCMFG 04048000 CVTTCRDY EQU CVTTCMFG 04049000 CVTGTFA EQU CVTGTF+1 04050000 CVTRSV27 EQU CVTGTFST 04051000 CVTRNIO EQU CVTGTFST 04052000 CVTUSR EQU CVTGTFST 04053000 CVTRV318 EQU CVTFORM 04054000 CVTRV317 EQU CVTTMODE 04055000 CVTRV316 EQU CVTSTATE 04056000 CVTRV315 EQU CVTGTFS 04057000 CVTGTFAV EQU CVTGTFS 04058000 CVT0SCR1 EQU CVTMAP+232 04059000 CVTRV515 EQU CVTMAP+228 04060000 CVTRMS EQU CVTMAP+224 04061000 CVTPATCH EQU CVTMAP+220 04062000 CVTTSCE EQU CVTMAP+216 04063000 CVTLNKSC EQU CVTMAP+214 04064000 CVTQABST EQU CVTMAP+212 04065000 CVTMDLDS EQU CVTMAP+208 04066000 CVTUSER EQU CVTMAP+204 04067000 CVTABEND EQU CVTMAP+200 04068000 CVTSMCA EQU CVTMAP+196 04069000 CVTRSV18 EQU CVTMAP+192 04070000 CVTQLPAQ EQU CVTMAP+188 04071000 CVTQCDSR EQU CVTMAP+184 04072000 CVTRSV17 EQU CVTOPTB 04073000 CVTRSV16 EQU CVTOPTB 04074000 CVTFP EQU CVTOPTB 04075000 CVTAPTHR EQU CVTOPTB 04076000 CVTNLOG EQU CVTOPTB 04077000 CVTTOD EQU CVTOPTB 04078000 CVTCTIMS EQU CVTOPTB 04079000 CVTPROT EQU CVTOPTB 04080000 CVTXPFP EQU CVTOPTA 04081000 CVTASCII EQU CVTOPTA 04082000 CVTRSV13 EQU CVTOPTA 04083000 CVTRSV12 EQU CVTOPTA 04084000 CVTDDR EQU CVTOPTA 04085000 CVTAPR EQU CVTOPTA 04086000 CVTCCH EQU CVTOPTA 04087000 CVTSNCTR EQU CVTMAP+180 04088000 CVTQMWR EQU CVTMAP+176 04089000 CVTQOCR EQU CVTMAP+172 04090000 CVT1EF00 EQU CVTMAP+168 04091000 CVTMZ00 EQU CVTMAP+164 04092000 CVTSV76Q EQU CVTSV76C 04093000 CVTRSV11 EQU CVTMAP+156 04094000 CVT0PT01 EQU CVTMAP+152 04095000 CVTMSER EQU CVTMAP+148 04096000 CVTRV516 EQU CVTIERLC 04097000 CVTILCH EQU CVTMAP+140 04098000 CVT0DS EQU CVTMAP+136 04099000 CVTFBOSV EQU CVTMAP+132 04100000 CVTNUCB EQU CVTMAP+128 04101000 CVTSV76M EQU CVTIOQET 04102000 CVTDCBA EQU CVTMAP+117 04103000 CVTMVS2 EQU CVTDCB 04104000 CVT6DAT EQU CVTDCB 04105000 CVT4MPS EQU CVTDCB 04106000 CVTRSV09 EQU CVTDCB 04107000 CVT4MS1 EQU CVTDCB 04108000 CVT2SPS EQU CVTDCB 04109000 CVT1SSS EQU CVTDCB 04110000 CVTRSV08 EQU CVTDCB 04111000 CVTSTB EQU CVTMAP+112 04112000 CVTQTD00 EQU CVTMAP+108 04113000 CVTQTE00 EQU CVTMAP+104 04114000 CVTCUCB EQU CVTMAP+100 04115000 CVTSJQ EQU CVTMAP+96 04116000 CVTPBLDL EQU CVTMAP+92 04117000 CVTTPC EQU CVTMAP+88 04118000 CVTSVDCB EQU CVTMAP+84 04119000 CVTBRET EQU CVTMAP+82 04120000 CVTEXIT EQU CVTMAP+80 04121000 CVT0FN00 EQU CVTMAP+76 04122000 CVTDARA EQU CVTDAR+1 04123000 CVTRSV07 EQU CVTFLGS1 04124000 CVTRSV06 EQU CVTFLGS1 04125000 CVTRSV05 EQU CVTFLGS1 04126000 CVTRSV04 EQU CVTFLGS1 04127000 CVTRSV03 EQU CVTFLGS1 04128000 CVTRSV02 EQU CVTFLGS1 04129000 CVTRSV01 EQU CVTFLGS1 04130000 CVTDMPLK EQU CVTFLGS1 04131000 CVTXITP EQU CVTMAP+68 04132000 CVTZDTAB EQU CVTMAP+64 04133000 CVTMSLT EQU CVTMAP+60 04134000 CVTDATE EQU CVTMAP+56 04135000 CVTBTERM EQU CVTMAP+52 04136000 CVTSYSAD EQU CVTMAP+48 04137000 CVTILK2 EQU CVTMAP+40 04138000 CVTILK1 EQU CVTMAP+36 04139000 CVTPRLTV EQU CVTMAP+32 04140000 CVTPCNVT EQU CVTMAP+28 04141000 CVT0VL00 EQU CVTMAP+24 04142000 CVTXAPG EQU CVTMAP+20 04143000 CVTBUF EQU CVTMAP+16 04144000 CVTJOB EQU CVTMAP+12 04145000 CVTLINK EQU CVTMAP+8 04146000 CVT0EF00 EQU CVTMAP+4 04147000 CVTTCBP EQU CVTMAP 04148000 CVT EQU CVTMAP 04149000 UCBERADR EQU UCBUCS+12 04150000 UCBFCBID EQU UCBUCS+8 04151000 UCBERCNT EQU UCBUCS+7 04152000 UCBRSV51 EQU UCBUCS+6 04153000 UCBFCBPE EQU UCBFCBOP 04154000 UCBRSV49 EQU UCBFCBOP 04155000 UCBRSV48 EQU UCBFCBOP 04156000 UCBRSV47 EQU UCBFCBOP 04157000 UCBRSV46 EQU UCBFCBOP 04158000 UCBRSV45 EQU UCBFCBOP 04159000 UCBRSV44 EQU UCBFCBOP 04160000 UCBFCBO1 EQU UCBFCBOP 04161000 UCBUCSPE EQU UCBUCSOP 04162000 UCBRSV43 EQU UCBUCSOP 04163000 UCBRSV42 EQU UCBUCSOP 04164000 UCBRSV41 EQU UCBUCSOP 04165000 UCBRSV40 EQU UCBUCSOP 04166000 UCBRSV39 EQU UCBUCSOP 04167000 UCBUCSO2 EQU UCBUCSOP 04168000 UCBUCSO1 EQU UCBUCSOP 04169000 UCBUCSID EQU UCBUCS 04170000 UCBMDRBA EQU UCBMDRBF+1 04171000 UCBRV075 EQU UCBMDRBF 04172000 UCBRV074 EQU UCB3800X+32 04173000 UCBIMAGE EQU UCB3800X+28 04174000 UCBFCBNM EQU UCB3800X+24 04175000 UCBCHAR4 EQU UCB3800X+20 04176000 UCBCHAR3 EQU UCB3800X+16 04177000 UCBCHAR2 EQU UCB3800X+12 04178000 UCBCHAR1 EQU UCB3800X+8 04179000 UCBCGMID EQU UCB3800X+4 04180000 UCBBRSTA EQU UCBACTIV 04181000 UCBRV063 EQU UCBACTIV 04182000 UCBRV062 EQU UCBACTIV 04183000 UCBRV061 EQU UCBACTIV 04184000 UCBRV060 EQU UCBACTIV 04185000 UCBRV059 EQU UCBACTIV 04186000 UCBRV058 EQU UCBACTIV 04187000 UCBRV057 EQU UCBACTIV 04188000 UCBRV050 EQU UCB3800X+2 04189000 UCBCGMNO EQU UCB3800X+1 04190000 UCBRV083 EQU UCBOPTNS 04191000 UCBBRSTR EQU UCBOPTNS 04192000 UCBRV056 EQU UCBOPTNS 04193000 UCBRV055 EQU UCBOPTNS 04194000 UCBRV054 EQU UCBOPTNS 04195000 UCBRV053 EQU UCBOPTNS 04196000 UCBRV052 EQU UCBOPTNS 04197000 UCBRV051 EQU UCBOPTNS 04198000 UCBRV073 EQU UCB3540X+7 04199000 UCBRV072 EQU UCBDKBYT 04200000 UCBRV071 EQU UCBDKBYT 04201000 UCBRV070 EQU UCBDKBYT 04202000 UCBRV069 EQU UCBDKBYT 04203000 UCBRV068 EQU UCBDKBYT 04204000 UCBRV067 EQU UCBDKBYT 04205000 UCBVLVER EQU UCBDKBYT 04206000 UCBDKAMX EQU UCBDKBYT 04207000 UCBRDATA EQU UCBOCR+4 04208000 UCBFRID EQU UCBOCR 04209000 UCBCLN EQU UCBMT+14 04210000 UCBERG EQU UCBMT+12 04211000 UCBMS EQU UCBMT+11 04212000 UCBNB EQU UCBMT+10 04213000 UCBPW EQU UCBMT+9 04214000 UCBPR EQU UCBMT+8 04215000 UCBSIO EQU UCBMT+6 04216000 UCBTW EQU UCBMT+5 04217000 UCBTR EQU UCBMT+4 04218000 UCBTWT EQU UCBMT+3 04219000 UCBTRT EQU UCBMT+2 04220000 UCBCTD EQU UCBMT 04221000 UCBRV043 EQU UCBCMEXT+16 04222000 UCBASID EQU UCBCMEXT+14 04223000 UCBMFCNT EQU UCBCMEXT+12 04224000 UCBPMSK EQU UCBCMEXT+10 04225000 UCBRV041 EQU UCBCMEXT+6 04226000 UCBRV036 EQU UCBFLP1 04227000 UCBRV035 EQU UCBFLP1 04228000 UCBERLOG EQU UCBFLP1 04229000 UCBRV033 EQU UCBFLP1 04230000 UCBINHIO EQU UCBFLP1 04231000 UCBNSWAP EQU UCBFLP1 04232000 UCBSHRUP EQU UCBFLP1 04233000 UCBNSRCH EQU UCBFLP1 04234000 UCBHPDV EQU @NM00040 04235000 UCBHALI EQU @NM00040 04236000 UCBRSV09 EQU @NM00040 04237000 UCBRSV08 EQU @NM00040 04238000 UCBRSV07 EQU @NM00040 04239000 UCBRSV06 EQU @NM00040 04240000 UCBRSV05 EQU @NM00040 04241000 UCBRSV04 EQU @NM00040 04242000 UCBDTI EQU UCBCMEXT+2 04243000 UCBSTI EQU UCBCMEXT+1 04244000 UCBETI EQU UCBCMEXT 04245000 UCBEXTP EQU UCBEXTPT+1 04246000 UCBDDRSW EQU UCBFLC 04247000 UCBTICBT EQU UCBFLC 04248000 UCBIVRR EQU UCBFLC 04249000 UCBIVRS EQU UCBFLC 04250000 UCBITF EQU UCBFLC 04251000 UCBUDE EQU UCBFLC 04252000 UCBWAA EQU UCBFLC 04253000 UCBATTP EQU UCBFLC 04254000 UCBUNTYP EQU UCBTBYT4 04255000 UCBRSV11 EQU UCBDVCLS 04256000 UCBRSV10 EQU UCBDVCLS 04257000 UCB3CHAR EQU UCBDVCLS 04258000 UCB3DISP EQU UCBDVCLS 04259000 UCBDVPWR EQU UCB2OPT7 04260000 UCBVLPWR EQU UCB2OPT6 04261000 UCB2OPT5 EQU UCBTBYT2 04262000 UCBRPS EQU UCBDUDN2 04263000 UCBRR EQU UCBDUDN1 04264000 UCB2OPT1 EQU UCBTBYT2 04265000 UCB2OPT0 EQU UCBTBYT2 04266000 UCB1FEA7 EQU UCBTBYT1 04267000 UCBD6250 EQU UCB1FEA6 04268000 UCBD1600 EQU UCB1FEA5 04269000 UCB1FEA4 EQU UCBTBYT1 04270000 UCB1FEA3 EQU UCBTBYT1 04271000 UCB1FEA2 EQU UCBTBYT1 04272000 UCB1FEA1 EQU UCBTBYT1 04273000 UCB1FEA0 EQU UCBTBYT1 04274000 UCBRV029 EQU UCBWGT 04275000 UCBVHRSN EQU UCBWGT 04276000 UCBVORSN EQU UCBWGT 04277000 UCBREW EQU UCBWGT 04278000 UCBPUB EQU UCBWGT 04279000 UCBOUT EQU UCBWGT 04280000 UCBIN EQU UCBWGT 04281000 UCBCPU EQU UCBOB+11 04282000 UCBLCI EQU UCBOB+10 04283000 UCBCNT EQU UCBOB+9 04284000 UCBRV017 EQU UCBCHM1 04285000 UCBRV016 EQU UCBCHM1 04286000 UCBRV015 EQU UCBCHM1 04287000 UCBRV014 EQU UCBCHM1 04288000 UCBSPB EQU UCBPTH1 04289000 UCBPPB EQU UCBPTH1 04290000 UCBSPA EQU UCBPTH0 04291000 UCBPPA EQU UCBPTH0 04292000 UCBSIGP EQU UCBFLB 04293000 UCBVALPH EQU UCBFLB 04294000 UCBCRHSN EQU UCBFLB 04295000 UCBCRHRV EQU UCBFLB 04296000 UCBRESVH EQU UCBFLB 04297000 UCBSPST EQU UCBFLB 04298000 UCBASNS EQU UCBFLB 04299000 UCBIORST EQU UCBFLB 04300000 UCBQISCE EQU UCBFL1 04301000 UCBACTV EQU UCBFL1 04302000 UCBSAP EQU UCBFL1 04303000 UCBNOTRC EQU UCBCUB 04304000 UCBPSNS EQU UCBFL1 04305000 UCBUSING EQU UCBPST 04306000 UCBNOTRD EQU UCBNRY 04307000 UCBBUSYD EQU UCBBSY 04308000 UCBUA EQU UCBCHAN+1 04309000 UCBCHA EQU UCBCHAN 04310000 UCBDADI EQU UCBSTAT 04311000 UCBSYSR EQU UCBSTAT 04312000 UCBPRES EQU UCBSTAT 04313000 UCBALOC EQU UCBSTAT 04314000 UCBUNLD EQU UCBSTAT 04315000 UCBRESV EQU UCBSTAT 04316000 UCBCHGS EQU UCBSTAT 04317000 UCBONLI EQU UCBSTAT 04318000 UCBID EQU UCBOB+2 04319000 UCBALTPH EQU UCBFL5 04320000 UCBALTCU EQU UCBFL5 04321000 UCBNALOC EQU UCBFL5 04322000 UCBENVRD EQU UCBFL5 04323000 UCBVSDR EQU UCBFL5 04324000 UCBSASK EQU UCBFL5 04325000 UCBAMV EQU UCBAF 04326000 UCBDCC EQU UCBFL5 04327000 UCBMONT EQU UCBJBNR 04328000 UCBRV011 EQU UCBJBNR 04329000 UCBMMSGP EQU UCBJBNR 04330000 UCBOLDSM EQU UCBJBNR 04331000 UCBRV003 EQU UCBJBNR 04332000 UCBDUC EQU UCBJBNR 04333000 UCBJES3 EQU UCBJBNR 04334000 UCBVRDEV EQU UCBJBNR 04335000 UCBCMSEG EQU UCBOB 04336000 UCBPFXND EQU UCB+512 04337000 UCBIOQ EQU UCB+508 04338000 UCBLOCK EQU UCB+504 04339000 UCBPXST EQU UCB+504 04340000 @NM00037 EQU UCB 04341000 EWTCEND EQU EWTCADDR+44 04342000 EWTCBUFF EQU EWTCADDR+40 04343000 EWTCCCW EQU EWTCADDR+32 04344000 EWTCCSW EQU EWTCADDR+25 04345000 EWTCRSV2 EQU EWTCADDR+24 04346000 EWTCRSV1 EQU EWTCADDR+22 04347000 EWTCSNF EQU EWTCADDR+21 04348000 EWTCSNL EQU EWTCADDR+20 04349000 EWTCTRM EQU EWTCADDR+12 04350000 EWTCGRA EQU EWTCADDR+11 04351000 EWTCSEL EQU EWTCFLG 04352000 EWTCEOD EQU EWTCFLG 04353000 EWTCOVF EQU EWTCFLG 04354000 EWTCTEM EQU EWTCFLG 04355000 EWTCTPF EQU EWTCADDR+9 04356000 EWTCTPL EQU EWTCADDR+8 04357000 EWTCMSK EQU EWTCADDR+7 04358000 EWTCTMP EQU EWTCADDR+6 04359000 EWTCSIO EQU EWTCADDR+4 04360000 EWTCTID EQU EWTCADDR+2 04361000 EWTCSNS EQU EWTCADDR 04362000 EWADDISP EQU EWA+29 04363000 EWADCNT EQU EWA+28 04364000 EWACPU EQU EWA+27 04365000 EWAVLCHN EQU EWAFLGA 04366000 EWADONE EQU EWAFLGA 04367000 EWAINIT EQU EWAFLGA 04368000 EWACSEQ EQU EWAXCSW2 04369000 EWACDIN EQU EWAXCSW2 04370000 @NM00035 EQU EWAXCSW2 04371000 EWACTEC EQU EWAXCSW2 04372000 EWACDAV EQU EWAXCSW1 04373000 EWACCHV EQU EWAXCSW1 04374000 EWACCMD EQU EWAXCSW1 04375000 EWACUNS EQU EWAXCSW1 04376000 EWACSQV EQU EWAXCSW1 04377000 @NM00034 EQU EWAXCSW1 04378000 EWACITF EQU EWAXCSW1 04379000 @NM00033 EQU EWARGFG2 04380000 EWACCUE EQU EWARGFG2 04381000 EWACSTG EQU EWARGFG2 04382000 EWACSCU EQU EWARGFG2 04383000 EWACCHA EQU EWARGFG2 04384000 EWACCPU EQU EWARGFG2 04385000 EWANORTY EQU EWARGFG1 04386000 EWACCNT EQU EWARGFG1 04387000 EWACSNS EQU EWARGFG1 04388000 @NM00032 EQU EWARGFG1 04389000 EWACHIO EQU EWARGFG1 04390000 EWACTIO EQU EWARGFG1 04391000 EWACINT EQU EWARGFG1 04392000 EWACSIO EQU EWARGFG1 04393000 EWAUCB EQU EWAERPIB+1 04394000 @NM00031 EQU EWAERPIB 04395000 EWACNTR4 EQU EWACNTRS+3 04396000 EWACNTR3 EQU EWACNTRS+2 04397000 EWACNTR2 EQU EWACNTRS+1 04398000 EWACNTR1 EQU EWACNTRS 04399000 EWASSTAT EQU EWA+8 04400000 EWASCTMX EQU EWASNSCT 04401000 EWAJAM EQU EWAFLG3 04402000 @NM00030 EQU EWAFLG2 04403000 EWADIR EQU EWAFLG2 04404000 EWACOVF EQU EWAFLG2 04405000 EWAWTEMP EQU EWAFLG2 04406000 EWAMDR EQU EWAFLG2 04407000 EWABDSNS EQU EWAFLG1 04408000 EWASCC1 EQU EWASCC3 04409000 EWASCC2 EQU EWASCC3 04410000 @NM00029 EQU EWAFLG1 04411000 @NM00028 EQU EWAFLG1 04412000 @NM00027 EQU EWAFLG1 04413000 EWASLIS EQU EWAFLG1 04414000 EWAEXT EQU EWAHDR 04415000 IOSEND EQU IOSB+108 04416000 IOSSKR EQU IOSEEKA+7 04417000 IOSSKH2 EQU IOSSKHH+1 04418000 IOSSKH1 EQU IOSSKHH 04419000 IOSSKCC EQU IOSCCHH 04420000 IOSSKBB EQU IOSEEKA+1 04421000 IOSSKM EQU IOSEEKA 04422000 IOSEEK EQU IOSB+92 04423000 IOSMDM EQU IOSB+91 04424000 IOSMDB EQU IOSB+90 04425000 IOSCKEY7 EQU IOSCKEY 04426000 IOSCKEY6 EQU IOSCKEY 04427000 IOSCKEY5 EQU IOSCKEY 04428000 IOSCKEY4 EQU IOSCKEY 04429000 @NM00023 EQU IOSCKEY 04430000 IOSFMSK EQU IOSB+88 04431000 IOSCUDEV EQU IOSPATH+1 04432000 @NM00022 EQU IOSCHN 04433000 IOSPATH3 EQU IOSCHN 04434000 IOSPATH2 EQU IOSCHN 04435000 IOSEXP EQU IOSCHN 04436000 IOSGDP EQU IOSCHN 04437000 IOSAFF EQU IOSB+85 04438000 IOSRSS1B EQU IOSB+84 04439000 IOSDSID EQU IOSB+80 04440000 IOSVST EQU IOSB+76 04441000 IOSRST EQU IOSB+72 04442000 IOSDIE EQU IOSB+68 04443000 IOSABN EQU IOSB+64 04444000 IOSNRM EQU IOSB+60 04445000 IOSPCI EQU IOSB+56 04446000 IOSPCHN EQU IOSB+48 04447000 IOSSNS EQU IOSB+42 04448000 IOSAPMSK EQU IOSB+40 04449000 IOSRES4A EQU IOSB+36 04450000 IOSCSWRC EQU IOSCSW+5 04451000 IOSOPT2X EQU IOSOPT2 04452000 IOSIGP EQU IOSOPT2 04453000 IOSHTP EQU IOSOPT2 04454000 IOSRELSE EQU IOSOPT 04455000 IOSAPR EQU IOSOPT 04456000 IOSTSLL EQU IOSOPT 04457000 IOSNERP EQU IOSOPT 04458000 IOSPSLL EQU IOSOPT 04459000 IOSQISCE EQU IOSOPT 04460000 IOSDEP EQU IOSOPT 04461000 IOSBYP EQU IOSOPT 04462000 IOSPKY7 EQU IOSPKEY 04463000 IOSPGDPX EQU IOSPKEY 04464000 IOSLCL EQU IOSPKEY 04465000 @NM00020 EQU IOSPKEY 04466000 IOSPGAD EQU IOSB+8 04467000 IOSPRLVL EQU IOSB+5 04468000 IOSDVRID EQU IOSB+4 04469000 IOSPROC EQU IOSB+3 04470000 IOSFLC7 EQU IOSFLC 04471000 IOSCTCNR EQU IOSFLC 04472000 IOSRWAIT EQU IOSFLC 04473000 IOSTP EQU IOSFLC 04474000 IOSCC3WE EQU IOSFLC 04475000 IOSVERIF EQU IOSDVALT 04476000 IOSDVMNT EQU IOSFLC 04477000 IOSFLB4 EQU IOSFLB 04478000 IOSFLB3 EQU IOSFLB 04479000 IOSNOTRS EQU IOSFLB 04480000 IOSSDR EQU IOSFLB 04481000 IOSDIESE EQU IOSFLB 04482000 IOSIOSB EQU IOSFLA 04483000 IOSEX EQU IOSFLA 04484000 IOSSMDB EQU IOSFLA 04485000 IOSERR EQU IOSFLA 04486000 IOSCCHN EQU IOSACHN 04487000 IOSDCHN EQU IOSACHN 04488000 @NM00017 EQU WKAREA 04489000 @NM00003 EQU MSFGS+1 04490000 @NM00002 EQU MSFGS 04491000 @NM00001 EQU MSFGS 04492000 @NM00076 EQU PSA+3668 04493000 PSASTAK EQU PSA+3072 04494000 @NM00075 EQU PSA+1048 04495000 PSAUSEND EQU PSA+1048 04496000 PSARV062 EQU PSA+1044 04497000 PSACDAL EQU PSA+1040 04498000 PSAWTCOD EQU PSA+1036 04499000 PSAATCVT EQU PSA+1032 04500000 PSAPCPSW EQU PSA+1024 04501000 PSAPIR2 EQU PSA+1020 04502000 PSARV059 EQU PSA+1018 04503000 PSASVC13 EQU PSA+1016 04504000 PSALSFCC EQU PSA+1012 04505000 PSASFACC EQU PSA+1008 04506000 PSASTOP EQU PSA+992 04507000 PSASTART EQU PSA+976 04508000 PSARSPSW EQU PSA+968 04509000 PSASRPSW EQU PSA+960 04510000 PSARV045 EQU PSA+892 04511000 PSARV044 EQU PSA+888 04512000 PSARV043 EQU PSA+884 04513000 PSARV042 EQU PSA+880 04514000 PSARV041 EQU PSA+876 04515000 PSARV040 EQU PSA+872 04516000 PSARV025 EQU PSA+868 04517000 PSADSSED EQU PSA+868 04518000 PSADSSPR EQU PSA+864 04519000 PSADSSFW EQU PSA+860 04520000 PSADSS14 EQU PSA+856 04521000 PSADSSPP EQU PSA+848 04522000 PSADSSRP EQU PSA+840 04523000 PSADSS05 EQU PSADSSF4 04524000 PSADSS10 EQU PSADSSF4 04525000 PSADSSVE EQU PSADSSF4 04526000 PSADSSDE EQU PSADSSF4 04527000 PSADSSC0 EQU PSADSSF4 04528000 PSADSSIE EQU PSADSSF4 04529000 PSADSS12 EQU PSADSSF4 04530000 PSADSSRC EQU PSADSSF4 04531000 PSARV057 EQU PSADSSF3 04532000 PSARV056 EQU PSADSSF3 04533000 PSARV055 EQU PSADSSF3 04534000 PSADSSMC EQU PSADSSF3 04535000 PSADSSRW EQU PSADSSF3 04536000 PSADSSNM EQU PSADSSF3 04537000 PSADSSES EQU PSADSSF3 04538000 PSADSSGP EQU PSADSSF3 04539000 PSADSSF2 EQU PSADSSFL+1 04540000 PSADSSPI EQU PSADSSF1 04541000 PSADSSOI EQU PSADSSF1 04542000 PSADSSSP EQU PSADSSF1 04543000 PSADSSTP EQU PSADSSF1 04544000 PSADSSDW EQU PSADSSF1 04545000 PSADSSDD EQU PSADSSF1 04546000 PSADSSDM EQU PSADSSF1 04547000 PSADSSMV EQU PSADSSF1 04548000 PSADSSTS EQU PSA+816 04549000 PSADSSWK EQU PSA+812 04550000 PSADSSR3 EQU PSA+808 04551000 PSADSSR2 EQU PSA+804 04552000 PSADSSRS EQU PSA+800 04553000 PSASTOR EQU PSA+796 04554000 PSACPUSA EQU PSA+794 04555000 PSAVSTAP EQU PSA+792 04556000 PSAWKVAP EQU PSA+788 04557000 PSAWKRAP EQU PSA+784 04558000 PSAMCHIC EQU PSA+783 04559000 PSARV061 EQU PSA+782 04560000 PSASYMSK EQU PSA+781 04561000 PSAMCHFL EQU PSA+780 04562000 PSACR0 EQU PSA+776 04563000 PSAPSWSV EQU PSA+768 04564000 PSACLHS EQU PSAHLHI 04565000 PSALKR15 EQU PSALKSA+60 04566000 PSALKR14 EQU PSALKSA+56 04567000 PSALKR13 EQU PSALKSA+52 04568000 PSALKR12 EQU PSALKSA+48 04569000 PSALKR11 EQU PSALKSA+44 04570000 PSALKR10 EQU PSALKSA+40 04571000 PSALKR9 EQU PSALKSA+36 04572000 PSALKR8 EQU PSALKSA+32 04573000 PSALKR7 EQU PSALKSA+28 04574000 PSALKR6 EQU PSALKSA+24 04575000 PSALKR5 EQU PSALKSA+20 04576000 PSALKR4 EQU PSALKSA+16 04577000 PSALKR3 EQU PSALKSA+12 04578000 PSALKR2 EQU PSALKSA+8 04579000 PSALKR1 EQU PSALKSA+4 04580000 PSALKR0 EQU PSALKSA 04581000 PSARV023 EQU PSACLHT+52 04582000 PSALOCAL EQU PSACLHT+48 04583000 PSACMSL EQU PSACLHT+44 04584000 PSAOPTL EQU PSACLHT+40 04585000 PSATPACL EQU PSACLHT+36 04586000 PSATPDNL EQU PSACLHT+32 04587000 PSATPNCL EQU PSACLHT+28 04588000 PSAIOSLL EQU PSACLHT+24 04589000 PSAIOSUL EQU PSACLHT+20 04590000 PSAIOSCL EQU PSACLHT+16 04591000 PSAIOSSL EQU PSACLHT+12 04592000 PSASALCL EQU PSACLHT+8 04593000 PSAASML EQU PSACLHT+4 04594000 PSADISPL EQU PSACLHT 04595000 PSASRSA EQU PSA+636 04596000 PSARV050 EQU PSA+634 04597000 PSADSSGO EQU PSA+633 04598000 PSARECUR EQU PSA+632 04599000 PSAHLHIS EQU PSA+628 04600000 PSAIPCSA EQU PSA+624 04601000 @NM00074 EQU PSA+621 04602000 PSAIPCDM EQU PSA+620 04603000 PSAIPCD EQU PSA+616 04604000 @NM00073 EQU PSA+613 04605000 PSAIPCRM EQU PSA+612 04606000 PSAIPCR EQU PSA+608 04607000 PSAMCHEX EQU PSA+600 04608000 PSAMPSW EQU PSA+592 04609000 PSAEXPS2 EQU PSA+584 04610000 PSAEXPS1 EQU PSA+576 04611000 PSAPIREG EQU PSA+572 04612000 PSARSREG EQU PSA+568 04613000 PSAGPREG EQU PSA+556 04614000 PSARV022 EQU PSASUP4 04615000 PSARV021 EQU PSASUP4 04616000 PSARV020 EQU PSASUP4 04617000 PSARV019 EQU PSASUP4 04618000 PSARV018 EQU PSASUP4 04619000 PSARV017 EQU PSASUP4 04620000 PSARV016 EQU PSASUP4 04621000 PSARV015 EQU PSASUP4 04622000 PSARV014 EQU PSASUP3 04623000 PSAULCMS EQU PSASUP3 04624000 PSARV012 EQU PSASUP3 04625000 PSAESTA EQU PSASUP3 04626000 PSASPR EQU PSASUP3 04627000 PSAPSREG EQU PSASUP3 04628000 PSAPI2 EQU PSASUP3 04629000 PSAIOSUP EQU PSASUP3 04630000 PSALCR EQU PSASUP2 04631000 PSARTM EQU PSASUP2 04632000 PSAACR EQU PSASUP2 04633000 PSAIPCE2 EQU PSASUP2 04634000 PSAIPCES EQU PSASUP2 04635000 PSAIPCEC EQU PSASUP2 04636000 PSAGTF EQU PSASUP2 04637000 PSAIPCRI EQU PSASUP2 04638000 PSATYPE6 EQU PSASUP1 04639000 PSATCTL EQU PSASUP1 04640000 PSADISP EQU PSASUP1 04641000 PSALOCK EQU PSASUP1 04642000 PSAPI EQU PSASUP1 04643000 PSAEXT EQU PSASUP1 04644000 PSASVC EQU PSASUP1 04645000 PSAIO EQU PSASUP1 04646000 PSAAOLD EQU PSA+548 04647000 PSAANEW EQU PSA+544 04648000 PSATOLD EQU PSA+540 04649000 PSATNEW EQU PSA+536 04650000 PSALCCAR EQU PSA+532 04651000 PSALCCAV EQU PSA+528 04652000 PSAPCCAR EQU PSA+524 04653000 PSAPCCAV EQU PSA+520 04654000 PSACPULA EQU PSA+518 04655000 PSACPUPA EQU PSA+516 04656000 PSAPSA EQU PSA+512 04657000 FLCHDEND EQU PSA+512 04658000 FLCCRSAV EQU FLCMCLA+280 04659000 FLCGRSAV EQU FLCMCLA+216 04660000 FLCFPSAV EQU FLCMCLA+184 04661000 FLCFLA EQU FLCMCLA+88 04662000 FLCRGNCD EQU FLCMCLA+84 04663000 FLCFSAA EQU FLCFSA+1 04664000 @NM00072 EQU FLCFSA 04665000 @NM00071 EQU FLCMCLA+72 04666000 FLCMCIC EQU FLCMCLA+64 04667000 @NM00070 EQU FLCMCLA+20 04668000 FLCIOAA EQU FLCIOA+1 04669000 @NM00069 EQU FLCIOA 04670000 @NM00068 EQU FLCMCLA+15 04671000 @NM00067 EQU FLCMCLA+14 04672000 @NM00066 EQU FLCMCLA+12 04673000 FLCLCL EQU FLCMCLA+8 04674000 FLCIOELA EQU FLCIOEL+1 04675000 @NM00065 EQU FLCIOEL 04676000 FLCCHNID EQU FLCMCLA 04677000 @NM00064 EQU PSA+160 04678000 FLCMTRCD EQU PSA+157 04679000 @NM00063 EQU PSA+156 04680000 FLCPERA EQU FLCPER+1 04681000 @NM00062 EQU FLCPER 04682000 @NM00061 EQU PSA+151 04683000 FLCPERCD EQU PSA+150 04684000 FLCMCNUM EQU PSA+149 04685000 @NM00060 EQU PSA+148 04686000 FLCTEAA EQU FLCTEA+1 04687000 @NM00059 EQU FLCTEA 04688000 PSAPIPC EQU PSAPICOD 04689000 PSAPIMC EQU PSAPICOD 04690000 PSAPIPER EQU PSAPICOD 04691000 PSARV049 EQU FLCPICOD 04692000 FLCPILCB EQU FLCPIILC 04693000 @NM00058 EQU FLCPIILC 04694000 @NM00057 EQU PSAEPPSW 04695000 FLCSVCN EQU PSAESPSW+2 04696000 FLCSILCB EQU FLCSVILC 04697000 @NM00056 EQU FLCSVILC 04698000 @NM00055 EQU PSAESPSW 04699000 FLCEICOD EQU PSAEEPSW+2 04700000 PSASPAD EQU PSAEEPSW 04701000 @NM00054 EQU PSA+128 04702000 FLCINPSW EQU PSA+120 04703000 FLCMNPSW EQU PSA+112 04704000 FLCPNPSW EQU PSA+104 04705000 FLCSNPSW EQU PSA+96 04706000 FLCENPSW EQU PSA+88 04707000 FLCTRACE EQU PSA+84 04708000 FLCTIMER EQU PSA+80 04709000 FLCCVT2 EQU PSA+76 04710000 FLCCAW EQU PSA+72 04711000 FLCCSW EQU PSA+64 04712000 FLCIOPSW EQU PSA+56 04713000 FLCMOPSW EQU PSA+48 04714000 FLCPOPSW EQU PSA+40 04715000 FLCSOPSW EQU PSA+32 04716000 FLCEOPSW EQU PSA+24 04717000 @NM00053 EQU FLCICCW2+4 04718000 FLCCVT EQU FLCICCW2 04719000 FLCICCW1 EQU FLCROPSW 04720000 FLCIPPSW EQU FLCRNPSW 04721000 * END UNREFERENCED COMPONENTS 04722000 @RT00188 EQU DOMRTN 04723000 @RT00190 EQU RET3 04724000 @RT00206 EQU MSG2 04725000 @RT00208 EQU MSG3 04726000 @RT00210 EQU INTR 04727000 @RC00222 EQU @RC00220 04728000 @RT00241 EQU NOTWIN 04729000 @RT00350 EQU SENSETST 04730000 @RC00400 EQU BLD1 04731000 @RC00412 EQU BLD1 04732000 @RT00417 EQU IGEDSM 04733000 @RF00423 EQU BLD1 04734000 @RF00422 EQU BLD1 04735000 @RC00453 EQU BLD1 04736000 @RT00490 EQU CDCTEST 04737000 @RT00492 EQU CDCTEST 04738000 @RT00516 EQU BLD1A 04739000 @RT00521 EQU BLD1A 04740000 @RT00549 EQU TWOLIN 04741000 @RC00596 EQU GETSENSE 04742000 @RT00609 EQU ENDSNS 04743000 @RT00702 EQU MSG3A 04744000 @RF00766 EQU RET1 04745000 RET0 EQU RET1 04746000 @RF00768 EQU RET1 04747000 @RT00808 EQU RET2 04748000 @RT00810 EQU FREEIOSB 04749000 @RT00812 EQU OBRCK 04750000 @ENDDATA EQU * 04751000 END IGE0025C,(C'PLS1859',0701,78017) 04752000