IOSK TITLE 'BLSRIOSK--IPCS IOSCHECK SUBCOMMAND PROCESSOR *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPGW */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSRIOSK CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLSRIOSK 78.062' 0002 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 0002 00013000 BALR @12,0 0002 00014000 @PSTART DS 0H 0002 00015000 USING @PSTART,@12 0002 00016000 L @00,@SIZDATD 0002 00017000 BLSUALLR R,LV=(0) 00018000 LR @11,@01 0002 00019000 USING @DATD,@11 0002 00020000 ST @13,@SA00001+4 0002 00021000 LM @00,@01,20(@13) 0002 00022000 ST @11,8(,@13) 0002 00023000 LR @13,@11 0002 00024000 * RETC=0; /* SET RETURN CODE */ 00025000 SLR @14,@14 0268 00026000 ST @14,RETC 0268 00027000 * RF=0; /* SET RETURN CODE */ 00028000 SLR RF,RF 0269 00029000 * IN81L=12; /* SET SEGMENT LENGTH */ 00030000 LA @14,12 0270 00031000 STH @14,IN81L 0270 00032000 * IN82L=12; /* SEGMENT LENGTH */ 00033000 STH @14,IN82L 0271 00034000 * IN83L=12; /* SEGMENT LENGTH */ 00035000 STH @14,IN83L 0272 00036000 * RESPECIFY 0273 00037000 * R1 RESTRICTED; 0273 00038000 * DO; /* GETMAIN (R) 0274 00039000 * LV(8192)SP(ZZZSPEXC) */ 00040000 * RESPECIFY 0275 00041000 * (GPR01F, 0275 00042000 * GPR00F) RESTRICTED; 0275 00043000 * GPR00F=8192; /* LENGTH REQUESTED */ 00044000 L GPR00F,@CF02596 0276 00045000 * GPR01F=ZZZSPEXC; /* SP IN REG 1 */ 00046000 LA GPR01F,1 0277 00047000 * GEN(SLL GPR01F,24) 0278 00048000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0278 00049000 SLL GPR01F,24 00050000 * GPR00F=GPR00F|GPR01F; /* SP IN HIGH BYTE */ 00051000 OR GPR00F,GPR01F 0279 00052000 * GPR01F=-1; /* INDICATE A GETMAIN REQUEST */ 00053000 SLR GPR01F,GPR01F 0280 00054000 BCTR GPR01F,0 0280 00055000 * SVC(10); /* R-FORM OF GETMAIN */ 00056000 SVC 10 0281 00057000 * RESPECIFY 0282 00058000 * (GPR01F, 0282 00059000 * GPR00F) UNRESTRICTED; 0282 00060000 * END; /* GETMAIN (R) 0283 00061000 * LV(8192)SP(ZZZSPEXC) */ 00062000 * DATAPTR=R1; /* BASE FOR INPUT BUFFER FOR 0284 00063000 * CONTROL BLOCKS */ 00064000 LR DATAPTR,R1 0284 00065000 * WORKAD=DATAPTR+PGLN; /* SECOND BUFFER */ 00066000 LR WORKAD,DATAPTR 0285 00067000 AL WORKAD,@CF00091 0285 00068000 * RESPECIFY 0286 00069000 * R1 UNRESTRICTED; 0286 00070000 * 0287 00071000 * /*****************************************************************/ 00072000 * /* */ 00073000 * /* CALL IKJPARS AND EXAMINE OPERANDS */ 00074000 * /* */ 00075000 * /*****************************************************************/ 00076000 * 0287 00077000 * DO; /* BLSRPARS ROUTING FLAG 0287 00078000 * MF(EXECUTE,PX) */ 00079000 * DO; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00080000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00081000 * TE,PX)ROUTING FLAG */ 00082000 * DO; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00083000 * T(EXITRLSA,)MF(EXECUTE,PX)FLAG 00084000 * ROUTING */ 00085000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS */ 00086000 ST R9,@AL00001 0290 00087000 L @14,PCPTR 0290 00088000 ST @14,@AL00001+4 0290 00089000 LA @14,PDAPTR 0290 00090000 ST @14,@AL00001+8 0290 00091000 L @10,ZZ2BVTP(,R9) 0290 00092000 L @15,BVTPARIP(,@10) 0290 00093000 LA @01,@AL00001 0290 00094000 BALR @14,@15 0290 00095000 * RESPECIFY 0291 00096000 * (GPR15F) RESTRICTED; 0291 00097000 * IF GPR15F^=ZZZFLAGI THEN 0292 00098000 * 0292 00099000 LTR GPR15F,GPR15F 0292 00100000 BZ @RF00292 0292 00101000 * /*********************************************************/ 00102000 * /* */ 00103000 * /* UNABLE TO PARSE */ 00104000 * /* */ 00105000 * /*********************************************************/ 00106000 * 0293 00107000 * DO; /* UNABLE TO PARSE */ 00108000 * RETC=GPR15F; /* RETURN CODE */ 00109000 ST GPR15F,RETC 0294 00110000 * GO TO EXITNORL; /* EXIT WITHOUT PDL */ 00111000 B EXITNORL 0295 00112000 * END; 0296 00113000 * RESPECIFY 0297 00114000 * (GPR15F) UNRESTRICTED; 0297 00115000 @RF00292 DS 0H 0298 00116000 * RESPECIFY 0298 00117000 * (PDRPTR) RESTRICTED; 0298 00118000 * PDRPTR=PDAPTR; /* ->PDL */ 00119000 L PDRPTR,PDAPTR 0299 00120000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 0300 00121000 USING PD,PDRPTR 00122000 * IF PXTEST=PXTEST1 THEN 0301 00123000 CLC PXTEST(2),@CH00043 0301 00124000 BNE @RF00301 0301 00125000 * ZZ2AFX=ZZZ1; /* TEST */ 00126000 OI ZZ2AFX(R9),B'10000000' 0302 00127000 * ELSE 0303 00128000 * IF PXTEST=PXTEST0 THEN 0303 00129000 B @RC00301 0303 00130000 @RF00301 CLC PXTEST(2),@CH00068 0303 00131000 BNE @RF00303 0303 00132000 * ZZ2AFX=ZZZ0; /* NOTEST */ 00133000 NI ZZ2AFX(R9),B'01111111' 0304 00134000 * CALL BLSUPARU(ZZ2,PDDSECT,PXRO);/* SET ROUTING OPTIONS */ 00135000 @RF00303 DS 0H 0305 00136000 @RC00301 ST R9,@AL00001 0305 00137000 ST PDRPTR,@AL00001+4 0305 00138000 LA @14,PXRO 0305 00139000 ST @14,@AL00001+8 0305 00140000 L @06,ZZ2BVTP(,R9) 0305 00141000 L @15,BVTPARUP(,@06) 0305 00142000 LA @01,@AL00001 0305 00143000 BALR @14,@15 0305 00144000 * RESPECIFY 0306 00145000 * (GPR15F) RESTRICTED; 0306 00146000 * RETC=MAX(RETC,GPR15F); /* RETURN CODE */ 00147000 L @14,RETC 0307 00148000 CR @14,GPR15F 0307 00149000 BNL *+6 00150000 LR @14,GPR15F 0307 00151000 ST @14,RETC 0307 00152000 * RESPECIFY 0308 00153000 * (GPR15F) UNRESTRICTED; 0308 00154000 * IF RETC>ZZZFLAGE THEN /* SERIOUS ERROR */ 00155000 C @14,@CF00051 0309 00156000 BH @RT00309 0309 00157000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00158000 * END; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00159000 * T(EXITRLSA,)MF(EXECUTE,PX)FLAG 00160000 * ROUTING */ 00161000 * END; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00162000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00163000 * TE,PX)ROUTING FLAG */ 00164000 * END; /* BLSRPARS ROUTING FLAG 0313 00165000 * MF(EXECUTE,PX) */ 00166000 * 0314 00167000 * /*****************************************************************/ 00168000 * /* */ 00169000 * /* CHECK FOR VALID DUMP TO PROCESS */ 00170000 * /* */ 00171000 * /*****************************************************************/ 00172000 * 0314 00173000 * IF ZZ6DFAB='0'B THEN 0314 00174000 L @14,ZZ2AZZ6P(,R9) 0314 00175000 TM ZZ6DFAB(@14),B'00010000' 0314 00176000 BNZ @RF00314 0314 00177000 * CALL BLSUPUTV(ZZ2,M032); /* VIRTUAL DUMP IS NOT VALID FOR 00178000 * PROCESSING LCHS, SINCE SDUMP 00179000 * USES IOS TO DUMP AND DYNAMIC 00180000 * CHANGES OCCUR DURING DUMPING */ 00181000 ST R9,@AL00001 0315 00182000 LA @14,M032 0315 00183000 ST @14,@AL00001+4 0315 00184000 L @06,ZZ2BVTP(,R9) 0315 00185000 L @15,BVTPUTVP(,@06) 0315 00186000 LA @01,@AL00001 0315 00187000 BALR @14,@15 0315 00188000 * 0316 00189000 * /*****************************************************************/ 00190000 * /* */ 00191000 * /* OBTAIN CVT PTR */ 00192000 * /* */ 00193000 * /*****************************************************************/ 00194000 * 0316 00195000 * ESAU(1:LENGTH(ESCO))=ESCO; /* INITIALIZE REQUEST BLOCK */ 00196000 @RF00314 MVC ESAU(182),ESCO 0316 00197000 * ESAUDT=DTCVT; /* INDICATE TYPE */ 00198000 MVC ESAUDT(34),DTCVT 0317 00199000 * ESAUSYM='CVT'; /* REQUEST CVT */ 00200000 MVI ESAUSYM+3,C' ' 0318 00201000 MVC ESAUSYM+4(27),ESAUSYM+3 0318 00202000 MVC ESAUSYM(3),@CC02409 0318 00203000 * CALL BLSRESGU(ZZ2,ESAU); /* GET CVT ADDR */ 00204000 ST R9,@AL00001 0319 00205000 LA @14,ESAU 0319 00206000 ST @14,@AL00001+4 0319 00207000 L @06,ZZ2RVTP(,R9) 0319 00208000 L @15,RVTESGUP(,@06) 0319 00209000 LA @01,@AL00001 0319 00210000 BALR @14,@15 0319 00211000 * IF RF^=0 THEN 0320 00212000 LTR RF,RF 0320 00213000 BNZ @RT00320 0320 00214000 * GO TO EXITRLSA; /* EXIT */ 00215000 * THECVTPT=ESAULAD; /* SAVE CVT ADDRESS */ 00216000 L @14,ESAULAD 0322 00217000 ST @14,THECVTPT 0322 00218000 * 0323 00219000 * /*****************************************************************/ 00220000 * /* */ 00221000 * /* ANALYZE IOS COMPONENT BLOCKS */ 00222000 * /* */ 00223000 * /*****************************************************************/ 00224000 * 0323 00225000 * CALL ACCESS(0,THECVTPT,LENGTH(CVTILK2)+ADDR(CVTILK2)-ADDR(CVT), 00226000 * 'CVT '); /* GET CVT THROUGH CVTILK2 FIELD */ 00227000 LA @14,@CF00048 0323 00228000 ST @14,@AL00001 0323 00229000 LA @14,THECVTPT 0323 00230000 ST @14,@AL00001+4 0323 00231000 LA @14,CVTILK2(,DATAPTR) 0323 00232000 AL @14,@CF00040 0323 00233000 SLR @14,DATAPTR 0323 00234000 ST @14,@AFTEMPS 0323 00235000 LA @14,@AFTEMPS 0323 00236000 ST @14,@AL00001+8 0323 00237000 LA @14,@CC02604 0323 00238000 ST @14,@AL00001+12 0323 00239000 LA @01,@AL00001 0323 00240000 BAL @14,ACCESS 0323 00241000 * IF RF^=0 THEN 0324 00242000 LTR RF,RF 0324 00243000 BNZ @RT00324 0324 00244000 * GO TO EXITRLSA; /* EXIT */ 00245000 * CALL ACCESS(0,CVTILK2,PGLN,'UCBLOKUP');/* GET UCB LOOKUP */ 00246000 MVC @AL00001(16),@AL00326 0326 00247000 LA @14,CVTILK2(,DATAPTR) 0326 00248000 ST @14,@AL00001+4 0326 00249000 LA @01,@AL00001 0326 00250000 BAL @14,ACCESS 0326 00251000 * IF RF^=0 THEN 0327 00252000 LTR RF,RF 0327 00253000 BNZ @RT00327 0327 00254000 * GO TO EXITRLSA; /* EXIT */ 00255000 * RESPECIFY 0329 00256000 * (R2, 0329 00257000 * R3, 0329 00258000 * R4, 0329 00259000 * R5) RESTRICTED; 0329 00260000 * R3=PGLN; /* LENGTH OF WORK AREA */ 00261000 L R3,@CF00091 0330 00262000 * R5=R3; /* SAME LENGTH */ 00263000 LR R5,R3 0331 00264000 * R2=WORKAD; /* POINT TO WORD AREA */ 00265000 LR R2,WORKAD 0332 00266000 * R4=DATAPTR; /* POINT TO BUFFER */ 00267000 LR R4,DATAPTR 0333 00268000 * GEN REFS(R2,R3,R4,R5) SETS(R2,R3,R4,R5); 0334 00269000 MVCL R2,R4 MOVE LOOKUP TABLE 00270000 * RESPECIFY 0335 00271000 * (R2, 0335 00272000 * R3, 0335 00273000 * R4, 0335 00274000 * R5) UNRESTRICTED; 0335 00275000 * ACTCNT=0; /* ZERO ACTIVE UCB COUNT */ 00276000 SLR @14,@14 0336 00277000 ST @14,ACTCNT 0336 00278000 * ACTTPCNT=0; /* ZERO TP ACTIVE COUNT */ 00279000 ST @14,ACTTPCNT 0337 00280000 * 0338 00281000 * /*****************************************************************/ 00282000 * /* */ 00283000 * /* DETERMINE LIMITS OF UCBS AND READ THEM ALL IN */ 00284000 * /* */ 00285000 * /*****************************************************************/ 00286000 * 0338 00287000 * LUCBADR=0; /* LAST UCB ADDRESS */ 00288000 STH @14,LUCBADR 0338 00289000 * DO I=1 BY 1 WHILE(PTRUCB(I)^=PTRMAX);/* SCAN UCB ADDRESSES */ 00290000 LA I,1 0339 00291000 B @DE00339 0339 00292000 @DL00339 DS 0H 0340 00293000 * IF PTRUCB(I)>=BLOKMAX THEN /* END OF PAGE */ 00294000 LR @14,I 0340 00295000 ALR @14,@14 0340 00296000 BCTR @14,0 0340 00297000 BCTR @14,0 0340 00298000 LH @14,PTRUCB(@14,WORKAD) 0340 00299000 N @14,@CF02660 0340 00300000 C @14,@CF00449 0340 00301000 BL @RF00340 0340 00302000 * LUCBADR=MAX(PTRUCB(I),LUCBADR); 0341 00303000 LH @06,LUCBADR 0341 00304000 N @06,@CF02660 0341 00305000 CR @14,@06 0341 00306000 BNL *+6 00307000 LR @14,@06 0341 00308000 STH @14,LUCBADR 0341 00309000 * END; 0342 00310000 @RF00340 AL I,@CF00043 0342 00311000 @DE00339 LR @14,I 0342 00312000 ALR @14,@14 0342 00313000 ALR @14,WORKAD 0342 00314000 BCTR @14,0 0342 00315000 BCTR @14,0 0342 00316000 CLC PTRUCB(2,@14),@CH02481 0342 00317000 BNE @DL00339 0342 00318000 * LNTHUCBS=LUCBADR-BLOKMAX+PARTUCB;/* BUFFER LENGTH TO HOLD UCBS */ 00319000 LH LNTHUCBS,LUCBADR 0343 00320000 N LNTHUCBS,@CF02660 0343 00321000 AL LNTHUCBS,@CF02650 0343 00322000 * IF LNTHUCBS<0 THEN /* NO UCBS */ 00323000 LTR LNTHUCBS,LNTHUCBS 0344 00324000 BNM @RF00344 0344 00325000 * DO; 0345 00326000 * RETC=ZZZFLAGW; /* WARNING */ 00327000 MVC RETC(4),@CF00040 0346 00328000 * GO TO EXITRLSA; /* EXIT */ 00329000 B EXITRLSA 0347 00330000 * END; 0348 00331000 * RESPECIFY 0349 00332000 * R1 RESTRICTED; 0349 00333000 @RF00344 DS 0H 0350 00334000 * DO; /* GETMAIN (R) 0350 00335000 * LV(LNTHUCBS)SP(ZZZSPEXC) */ 00336000 * RESPECIFY 0351 00337000 * (GPR01F, 0351 00338000 * GPR00F) RESTRICTED; 0351 00339000 * GPR00F=LNTHUCBS; /* LENGTH REQUESTED */ 00340000 LR GPR00F,LNTHUCBS 0352 00341000 * GPR01F=ZZZSPEXC; /* SP IN REG 1 */ 00342000 LA GPR01F,1 0353 00343000 * GEN(SLL GPR01F,24) 0354 00344000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0354 00345000 SLL GPR01F,24 00346000 * GPR00F=GPR00F|GPR01F; /* SP IN HIGH BYTE */ 00347000 OR GPR00F,GPR01F 0355 00348000 * GPR01F=-1; /* INDICATE A GETMAIN REQUEST */ 00349000 SLR GPR01F,GPR01F 0356 00350000 BCTR GPR01F,0 0356 00351000 * SVC(10); /* R-FORM OF GETMAIN */ 00352000 SVC 10 0357 00353000 * RESPECIFY 0358 00354000 * (GPR01F, 0358 00355000 * GPR00F) UNRESTRICTED; 0358 00356000 * END; /* GETMAIN (R) 0359 00357000 * LV(LNTHUCBS)SP(ZZZSPEXC) */ 00358000 * TUCBFPT=R1; /* POINTER TO UCB BUFFER */ 00359000 LR TUCBFPT,R1 0360 00360000 * RESPECIFY 0361 00361000 * R1 UNRESTRICTED; 0361 00362000 * ESAU(1:LENGTH(ESCO))=ESCO; /* INIT REQUEST BLOCK */ 00363000 MVC ESAU(182),ESCO 0362 00364000 * ESAUAS2=ZZ6DQ2; /* ASID */ 00365000 L @14,ZZ2AZZ6P(,R9) 0363 00366000 L @06,ZZ6DQ2(,@14) 0363 00367000 ST @06,ESAUAS2 0363 00368000 * ESAULAD=BLOKMAX; /* FIRST UCB */ 00369000 MVC ESAULAD(4),@CF00449 0364 00370000 * ESAUDLE=LNTHUCBS; /* LENGTH OF UCBS */ 00371000 ST LNTHUCBS,ESAUDLE 0365 00372000 * ESAUAST=ZZZASTCV; /* VIRTUAL REQUEST */ 00373000 MVC ESAUAST(2),@CC00075 0366 00374000 * ESAUAS1=ZZ6DQ1; /* CPU */ 00375000 L @14,ZZ6DQ1(,@14) 0367 00376000 ST @14,ESAUAS1 0367 00377000 * ESAUSYM='UCBS'; /* SYMBOL */ 00378000 MVI ESAUSYM+4,C' ' 0368 00379000 MVC ESAUSYM+5(26),ESAUSYM+4 0368 00380000 MVC ESAUSYM(4),@CC02606 0368 00381000 * CALL BLSRACC(ZZ2,ESAU,TUCBBF); /* GET UCBS */ 00382000 ST R9,@AL00001 0369 00383000 LA @14,ESAU 0369 00384000 ST @14,@AL00001+4 0369 00385000 ST TUCBFPT,@AL00001+8 0369 00386000 L @06,ZZ2RVTP(,R9) 0369 00387000 L @15,RVTRACCP(,@06) 0369 00388000 LA @01,@AL00001 0369 00389000 BALR @14,@15 0369 00390000 * IF RF^=0 THEN /* UNABLE */ 00391000 LTR RF,RF 0370 00392000 BNZ @RT00370 0370 00393000 * GO TO EXITRLSA; /* EXIT */ 00394000 * DO I=1 BY 1 WHILE(PTRUCB(I)^=PTRMAX);/* GO THRU UCBS */ 00395000 LA I,1 0372 00396000 B @DE00372 0372 00397000 @DL00372 DS 0H 0373 00398000 * IF PTRUCB(I)^=0 THEN /* GOOD UCB POINTER */ 00399000 LR @14,I 0373 00400000 ALR @14,@14 0373 00401000 BCTR @14,0 0373 00402000 BCTR @14,0 0373 00403000 LH @14,PTRUCB(@14,WORKAD) 0373 00404000 N @14,@CF02660 0373 00405000 LTR @14,@14 0373 00406000 BZ @RF00373 0373 00407000 * DO; 0374 00408000 * DATABUFR(1:PARTUCB)=TUCBBF((PTRUCB(I)-BLOKMAX+1):(PTRUCB(I)- 00409000 * BLOKMAX+(PARTUCB+1)));/* MOVE UCB */ 00410000 ALR @14,TUCBFPT 0375 00411000 AL @14,@CF02661 0375 00412000 MVC DATABUFR(48,DATAPTR),TUCBBF(@14) 0375 00413000 * EBOK='1'B; /* SET INDICATOR */ 00414000 OI EBOK,B'00001000' 0376 00415000 * DO J=1 TO 3; /* CHECK UCBNAME FOR VALID EBCDIC 00416000 * REP OF HEX */ 00417000 LA J,1 0377 00418000 @DL00377 DS 0H 0378 00419000 * IF(UCBNAME(J)<'0'|UCBNAME(J)>'9')&(UCBNAME(J)<'A'|UCBNAME(J 00420000 * )>'F') THEN 0378 00421000 LR @14,DATAPTR 0378 00422000 ALR @14,J 0378 00423000 CLI UCBNAME-1(@14),C'0' 0378 00424000 BL @GL00001 0378 00425000 LR @14,DATAPTR 0378 00426000 ALR @14,J 0378 00427000 CLI UCBNAME-1(@14),C'9' 0378 00428000 BNH @RF00378 0378 00429000 @GL00001 LR @14,DATAPTR 0378 00430000 ALR @14,J 0378 00431000 CLI UCBNAME-1(@14),C'A' 0378 00432000 BL @RT00378 0378 00433000 LR @14,DATAPTR 0378 00434000 ALR @14,J 0378 00435000 CLI UCBNAME-1(@14),C'F' 0378 00436000 BNH @RF00378 0378 00437000 @RT00378 DS 0H 0379 00438000 * EBOK='0'B; /* INVALID EBCDIC */ 00439000 NI EBOK,B'11110111' 0379 00440000 * END; 0380 00441000 @RF00378 AL J,@CF00043 0380 00442000 C J,@CF00153 0380 00443000 BNH @DL00377 0380 00444000 * IF UCBID^='FF'X| /* UCB INVALID */ 00445000 * EBOK='0'B THEN 0381 00446000 CLI UCBID(DATAPTR),X'FF' 0381 00447000 BNE @RT00381 0381 00448000 TM EBOK,B'00001000' 0381 00449000 BNZ @RF00381 0381 00450000 @RT00381 DS 0H 0382 00451000 * DO; 0382 00452000 * OLDN=2; /* 2 SEGMENTS */ 00453000 MVC OLDN(4),@CF00068 0383 00454000 * OLDP(1)=ADDR(M034); /* BASE MESSAGE */ 00455000 LA @14,M034 0384 00456000 ST @14,OLDP 0384 00457000 * OLDP(2)=ADDR(IN81); /* INSERT */ 00458000 LA @14,IN81 0385 00459000 ST @14,OLDP+4 0385 00460000 * DO; /* BLRCNVPC(PTRUCB(I)) FROM(POINT 00461000 * ER)TO(CHARACTER)SET(IN81T1)TR( 00462000 * ZZ1TRHEX) */ 00463000 * PTRPTR=PTRUCB(I); /* SOURCE TO BIT/POINTER 0387 00464000 * INTERMEDIATE */ 00465000 LR @14,I 0387 00466000 ALR @14,@14 0387 00467000 BCTR @14,0 0387 00468000 BCTR @14,0 0387 00469000 LH @14,PTRUCB(@14,WORKAD) 0387 00470000 N @14,@CF02660 0387 00471000 ST @14,PTRPTR 0387 00472000 * UNPK(IN81T1(1:LENGTH(IN81T1)-1),PTRBIT);/* BIT=>ZONED 00473000 * HEXADECIMAL */ 00474000 UNPK IN81T1(7),PTRBIT(4) 0388 00475000 * IN81T1(LENGTH(IN81T1):LENGTH(IN81T1))=PTRBIT(25:32); 00476000 MVC IN81T1+7(1),PTRBIT+3 0389 00477000 * /* FINAL ZONED HEXADECIMAL DIGIT */ 00478000 * TR(IN81T1,ZZ1TRHEX);/* ZONED HEXADECIMAL=>EBCDIC */ 00479000 L @14,ZZ2ZZ1P(,R9) 0390 00480000 TR IN81T1(8),ZZ1TRHEX(@14) 0390 00481000 * END; /* BLRCNVPC(PTRUCB(I)) FROM(POINT 00482000 * ER)TO(CHARACTER)SET(IN81T1)TR( 00483000 * ZZ1TRHEX) */ 00484000 * IN81L=12; /* LENGTH */ 00485000 MVC IN81L(2),@CH00032 0392 00486000 * IN81O=ADDR(M034T2)-ADDR(M034T);/* OFFSET */ 00487000 MVC IN81O(2),@CH02654 0393 00488000 * CALL BLSUPUTO(ZZ2,OLD);/* PUT OUT MESSAGE */ 00489000 ST R9,@AL00001 0394 00490000 LA @14,OLD 0394 00491000 ST @14,@AL00001+4 0394 00492000 L @06,ZZ2BVTP(,R9) 0394 00493000 L @15,BVTPUTOP(,@06) 0394 00494000 LA @01,@AL00001 0394 00495000 BALR @14,@15 0394 00496000 * END; 0395 00497000 * IF UCBACTV='1'B THEN /* I/O ACTIVITY */ 00498000 @RF00381 TM UCBACTV(DATAPTR),B'00000010' 0396 00499000 BNO @RF00396 0396 00500000 * DO; 0397 00501000 * ACTCNT=ACTCNT+1; /* INC COUNTER */ 00502000 LA @14,1 0398 00503000 L @06,ACTCNT 0398 00504000 ALR @06,@14 0398 00505000 ST @06,ACTCNT 0398 00506000 * IF UCB3COMM='1'B THEN /* TP DEVICE */ 00507000 TM UCB3COMM(DATAPTR),B'01000000' 0399 00508000 BNO @RF00399 0399 00509000 * ACTTPCNT=ACTTPCNT+1;/* INC COUNTER */ 00510000 AL @14,ACTTPCNT 0400 00511000 ST @14,ACTTPCNT 0400 00512000 * END; 0401 00513000 @RF00399 DS 0H 0402 00514000 * IF(UCBFLC^='00'X) /* IF FLAG BYTE C NONZERO */ 00515000 * &((UCBONLI='1'B) /* AND DEVICE IS ONLINE */ 00516000 * |(UCBNRY='0'B)) /* OR READY */ 00517000 * THEN 0402 00518000 @RF00396 CLI UCBFLC(DATAPTR),X'00' 0402 00519000 BE @RF00402 0402 00520000 TM UCBONLI(DATAPTR),B'10000000' 0402 00521000 BO @RT00402 0402 00522000 TM UCBNRY(DATAPTR),B'01000000' 0402 00523000 BNZ @RF00402 0402 00524000 @RT00402 DS 0H 0403 00525000 * DO; 0403 00526000 * IN82T=''; /* BLANK INSERT */ 00527000 MVI IN82T,C' ' 0404 00528000 MVC IN82T+1(7),IN82T 0404 00529000 * DO; /* BLRCNVBC(UCBFLC) FROM(BIT)TO(C 00530000 * HARACTER)SET(IN82T(1:2))TR(ZZ1 00531000 * TRHEX) */ 00532000 * UNPK(IN82T(1:1),UCBFLC);/* BIT=>ZONED HEXADECIMAL */ 00533000 UNPK IN82T(1),UCBFLC(1,DATAPTR) 0406 00534000 * IN82T(2:2)=UCBFLC(LENGTH(UCBFLC)-7:LENGTH(UCBFLC));/* 00535000 * FINAL ZONED HEXADECIMAL DIGIT */ 00536000 MVC IN82T+1(1),UCBFLC(DATAPTR) 0407 00537000 * TR(IN82T(1:2),ZZ1TRHEX);/* ZONED HEXADECIMAL=>EBCDIC */ 00538000 L @14,ZZ2ZZ1P(,R9) 0408 00539000 TR IN82T(2),ZZ1TRHEX(@14) 0408 00540000 * END; /* BLRCNVBC(UCBFLC) FROM(BIT)TO(C 00541000 * HARACTER)SET(IN82T(1:2))TR(ZZ1 00542000 * TRHEX) */ 00543000 * OLDN=3; /* 3 SEGMENTS */ 00544000 MVC OLDN(4),@CF00153 0410 00545000 * OLDP(1)=ADDR(M033); /* BASE MSG */ 00546000 LA @14,M033 0411 00547000 ST @14,OLDP 0411 00548000 * OLDP(2)=ADDR(IN81); /* INSERT */ 00549000 LA @14,IN81 0412 00550000 ST @14,OLDP+4 0412 00551000 * OLDP(3)=ADDR(IN82); /* INSERT */ 00552000 LA @14,IN82 0413 00553000 ST @14,OLDP+8 0413 00554000 * IN81T=''; /* BLANK INSERT */ 00555000 MVI IN81T,C' ' 0414 00556000 MVC IN81T+1(7),IN81T 0414 00557000 * IN81T(1:3)=UCBNAME; /* INSERT UCB NAME */ 00558000 MVC IN81T(3),UCBNAME(DATAPTR) 0415 00559000 * IN81L=7; /* SET LENGTH */ 00560000 MVC IN81L(2),@CH00474 0416 00561000 * IN82L=6; /* SET LENGTH */ 00562000 MVC IN82L(2),@CH00213 0417 00563000 * IN81O=ADDR(M033T2)-ADDR(M033T);/* SET OFFSET */ 00564000 MVC IN81O(2),@CH00062 0418 00565000 * IN82O=ADDR(M033T3)-ADDR(M033T);/* OFFSET */ 00566000 MVC IN82O(2),@CH00420 0419 00567000 * CALL BLSUPUTO(ZZ2,OLD);/* PUT OUT MESSAGE */ 00568000 ST R9,@AL00001 0420 00569000 LA @14,OLD 0420 00570000 ST @14,@AL00001+4 0420 00571000 L @06,ZZ2BVTP(,R9) 0420 00572000 L @15,BVTPUTOP(,@06) 0420 00573000 LA @01,@AL00001 0420 00574000 BALR @14,@15 0420 00575000 * IN81L=12; /* RESET LENGTH */ 00576000 LA @14,12 0421 00577000 STH @14,IN81L 0421 00578000 * IN82L=12; /* RESET LENGTH */ 00579000 STH @14,IN82L 0422 00580000 * END; 0423 00581000 * END; 0424 00582000 @RF00402 DS 0H 0425 00583000 * END; 0425 00584000 @RF00373 AL I,@CF00043 0425 00585000 @DE00372 LR @14,I 0425 00586000 ALR @14,@14 0425 00587000 ALR @14,WORKAD 0425 00588000 BCTR @14,0 0425 00589000 BCTR @14,0 0425 00590000 CLC PTRUCB(2,@14),@CH02481 0425 00591000 BNE @DL00372 0425 00592000 * 0426 00593000 * /*****************************************************************/ 00594000 * /* */ 00595000 * /* INFORM USER OF I/O ACTIVITY */ 00596000 * /* */ 00597000 * /*****************************************************************/ 00598000 * 0426 00599000 * DO; /* FREEMAIN(R) LV(LNTHUCBS)SP(ZZZ 00600000 * SPEXC)A(TUCBBF) */ 00601000 * RESPECIFY 0427 00602000 * (GPR01F, 0427 00603000 * GPR00F) RESTRICTED; 0427 00604000 * GPR00F=LNTHUCBS; /* LENGTH REQUESTED */ 00605000 LR GPR00F,LNTHUCBS 0428 00606000 * GPR01F=ZZZSPEXC; /* SP IN REG 1 */ 00607000 LA GPR01F,1 0429 00608000 * GEN(SLL GPR01F,24) 0430 00609000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0430 00610000 SLL GPR01F,24 00611000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00612000 OR GPR00F,GPR01F 0431 00613000 * GPR01F=ADDR(TUCBBF); /* SET REGISTER ONE */ 00614000 LR GPR01F,TUCBFPT 0432 00615000 * SVC(10); /* R-FORM OF GETMAIN */ 00616000 SVC 10 0433 00617000 * RESPECIFY 0434 00618000 * (GPR01F, 0434 00619000 * GPR00F) UNRESTRICTED; 0434 00620000 * END; /* FREEMAIN(R) LV(LNTHUCBS)SP(ZZZ 00621000 * SPEXC)A(TUCBBF) */ 00622000 * DO; /* BLRCNVUC(ACTCNT) FROM(UNSIGNED 00623000 * FIXED BINARY)TO(CHARACTER)SET( 00624000 * IN81T1)PATTERN */ 00625000 * CVD(ACTCNT,PACKED); /* UNSIGNED BINARY=>PACKED 0437 00626000 * DECIMAL */ 00627000 L @14,ACTCNT 0437 00628000 CVD @14,PACKED 0437 00629000 * ZONED='40404040402020202020202020202120'X;/* ED PATTERN */ 00630000 MVC ZONED(16),@CB02618 0438 00631000 * ED(ZONED(5:16),PACKED(17:64));/* PACKED DECIMAL=>EBCDIC */ 00632000 ED ZONED+4(12),PACKED+2 0439 00633000 * IN81T1=ZONED(17-LENGTH(IN81T1):16);/* EBCDIC RESULT */ 00634000 MVC IN81T1(8),ZONED+8 0440 00635000 * END; /* BLRCNVUC(ACTCNT) FROM(UNSIGNED 00636000 * FIXED BINARY)TO(CHARACTER)SET( 00637000 * IN81T1)PATTERN */ 00638000 * OLDN=2; /* 2 SEGMENTS */ 00639000 MVC OLDN(4),@CF00068 0442 00640000 * OLDP(1)=ADDR(M035); /* BASE MSG */ 00641000 LA @14,M035 0443 00642000 ST @14,OLDP 0443 00643000 * OLDP(2)=ADDR(IN81); /* INSERT */ 00644000 LA @14,IN81 0444 00645000 ST @14,OLDP+4 0444 00646000 * CALL BLSUMPK1(ZZ2,IN81); /* EDIT SEGMENT */ 00647000 ST R9,@AL00001 0445 00648000 LA @14,IN81 0445 00649000 ST @14,@AL00001+4 0445 00650000 L @08,ZZ2BVTP(,R9) 0445 00651000 L @15,BVTMPK1P(,@08) 0445 00652000 LA @01,@AL00001 0445 00653000 BALR @14,@15 0445 00654000 * IN81O=ADDR(M035T2)-ADDR(M035T); /* OFFSET */ 00655000 MVC IN81O(2),@CH02655 0446 00656000 * CALL BLSUPUTO(ZZ2,OLD); /* PUT OUT MESSAGE */ 00657000 ST R9,@AL00001 0447 00658000 LA @14,OLD 0447 00659000 ST @14,@AL00001+4 0447 00660000 L @08,ZZ2BVTP(,R9) 0447 00661000 L @15,BVTPUTOP(,@08) 0447 00662000 LA @01,@AL00001 0447 00663000 BALR @14,@15 0447 00664000 * DO; /* BLRCNVUC(ACTTPCNT) 0448 00665000 * FROM(UNSIGNED FIXED BINARY)TO( 00666000 * CHARACTER)SET(IN81T1)PATTERN */ 00667000 * CVD(ACTTPCNT,PACKED); /* UNSIGNED BINARY=>PACKED 0449 00668000 * DECIMAL */ 00669000 L @14,ACTTPCNT 0449 00670000 CVD @14,PACKED 0449 00671000 * ZONED='40404040402020202020202020202120'X;/* ED PATTERN */ 00672000 MVC ZONED(16),@CB02618 0450 00673000 * ED(ZONED(5:16),PACKED(17:64));/* PACKED DECIMAL=>EBCDIC */ 00674000 ED ZONED+4(12),PACKED+2 0451 00675000 * IN81T1=ZONED(17-LENGTH(IN81T1):16);/* EBCDIC RESULT */ 00676000 MVC IN81T1(8),ZONED+8 0452 00677000 * END; /* BLRCNVUC(ACTTPCNT) 0453 00678000 * FROM(UNSIGNED FIXED BINARY)TO( 00679000 * CHARACTER)SET(IN81T1)PATTERN */ 00680000 * IN81L=12; /* SET LENGTH */ 00681000 MVC IN81L(2),@CH00032 0454 00682000 * CALL BLSUMPK1(ZZ2,IN81); /* EDIT SEGMENT */ 00683000 ST R9,@AL00001 0455 00684000 LA @14,IN81 0455 00685000 ST @14,@AL00001+4 0455 00686000 L @08,ZZ2BVTP(,R9) 0455 00687000 L @15,BVTMPK1P(,@08) 0455 00688000 LA @01,@AL00001 0455 00689000 BALR @14,@15 0455 00690000 * OLDN=2; /* 2 SEGMENTS */ 00691000 MVC OLDN(4),@CF00068 0456 00692000 * OLDP(1)=ADDR(M036); /* BASE MSG */ 00693000 LA @14,M036 0457 00694000 ST @14,OLDP 0457 00695000 * OLDP(2)=ADDR(IN81); /* INSERT */ 00696000 LA @14,IN81 0458 00697000 ST @14,OLDP+4 0458 00698000 * IN81O=ADDR(M036T2)-ADDR(M036T); /* OFFSET */ 00699000 MVC IN81O(2),@CH02655 0459 00700000 * CALL BLSUPUTO(ZZ2,OLD); /* PUT OUT MESSAGE */ 00701000 ST R9,@AL00001 0460 00702000 LA @14,OLD 0460 00703000 ST @14,@AL00001+4 0460 00704000 L @08,ZZ2BVTP(,R9) 0460 00705000 L @15,BVTPUTOP(,@08) 0460 00706000 LA @01,@AL00001 0460 00707000 BALR @14,@15 0460 00708000 * 0461 00709000 * /*****************************************************************/ 00710000 * /* */ 00711000 * /* INSPECT LCHS */ 00712000 * /* */ 00713000 * /*****************************************************************/ 00714000 * 0461 00715000 * UNITCTR=1; /* NUMBER OF ENTRIES */ 00716000 LA UNITCTR,1 0461 00717000 * NUMUNITS=0; /* NUMBER OF ENTRIES */ 00718000 SLR NUMUNITS,NUMUNITS 0462 00719000 * CALL ACCESS(0,THECVTPT,LENGTH(CVTIXAVL)+ADDR(CVTIXAVL)-ADDR(CVT), 00720000 * 'CVT '); 0463 00721000 LA @14,@CF00048 0463 00722000 ST @14,@AL00001 0463 00723000 LA @14,THECVTPT 0463 00724000 ST @14,@AL00001+4 0463 00725000 LA @14,CVTIXAVL(,DATAPTR) 0463 00726000 AL @14,@CF00040 0463 00727000 SLR @14,DATAPTR 0463 00728000 ST @14,@AFTEMPS 0463 00729000 LA @14,@AFTEMPS 0463 00730000 ST @14,@AL00001+8 0463 00731000 LA @14,@CC02604 0463 00732000 ST @14,@AL00001+12 0463 00733000 LA @01,@AL00001 0463 00734000 BAL @14,ACCESS 0463 00735000 * IF RF^=0 THEN 0464 00736000 LTR RF,RF 0464 00737000 BNZ @RT00464 0464 00738000 * GO TO EXITRLSA; /* EXIT */ 00739000 * CALL ACCESS(0,CVTIXAVL,LENGTH(IOCOMEX)+ADDR(IOCOMEX)-ADDR(IOCOM), 00740000 * 'IOCOMM '); 0466 00741000 LA @14,@CF00048 0466 00742000 ST @14,@AL00001 0466 00743000 LA @14,CVTIXAVL(,DATAPTR) 0466 00744000 ST @14,@AL00001+4 0466 00745000 LA @14,IOCOMEX(,DATAPTR) 0466 00746000 AL @14,@CF00040 0466 00747000 SLR @14,DATAPTR 0466 00748000 ST @14,@AFTEMPS 0466 00749000 LA @14,@AFTEMPS 0466 00750000 ST @14,@AL00001+8 0466 00751000 LA @14,@CC02623 0466 00752000 ST @14,@AL00001+12 0466 00753000 LA @01,@AL00001 0466 00754000 BAL @14,ACCESS 0466 00755000 * IF RF^=0 THEN 0467 00756000 LTR RF,RF 0467 00757000 BNZ @RT00467 0467 00758000 * GO TO EXITRLSA; /* EXIT */ 00759000 * CALL ACCESS(0,IOCOMEX,LENGTH(IOXLCHCT)+ADDR(IOXLCHCT)-ADDR(IOCX), 00760000 * 'IOCOMEX '); /* GET IOCOMEX */ 00761000 LA @14,@CF00048 0469 00762000 ST @14,@AL00001 0469 00763000 LA @14,IOCOMEX(,DATAPTR) 0469 00764000 ST @14,@AL00001+4 0469 00765000 LA @14,IOXLCHCT(,DATAPTR) 0469 00766000 AL @14,@CF00043 0469 00767000 SLR @14,DATAPTR 0469 00768000 ST @14,@AFTEMPS 0469 00769000 LA @14,@AFTEMPS 0469 00770000 ST @14,@AL00001+8 0469 00771000 LA @14,@CC02624 0469 00772000 ST @14,@AL00001+12 0469 00773000 LA @01,@AL00001 0469 00774000 BAL @14,ACCESS 0469 00775000 * IF RF^=0 THEN 0470 00776000 LTR RF,RF 0470 00777000 BNZ @RT00470 0470 00778000 * GO TO EXITRLSA; /* EXIT */ 00779000 * TOTLCHS=IOXLCHCT; /* SAVE TOTAL NUMBER OF LCHS */ 00780000 SLR TOTLCHS,TOTLCHS 0472 00781000 IC TOTLCHS,IOXLCHCT(,DATAPTR) 0472 00782000 * CALL ACCESS(0,THECVTPT,LENGTH(CVTILCH)+ADDR(CVTILCH)-ADDR(CVT), 00783000 * 'CVT '); 0473 00784000 LA @14,@CF00048 0473 00785000 ST @14,@AL00001 0473 00786000 LA @14,THECVTPT 0473 00787000 ST @14,@AL00001+4 0473 00788000 LA @14,CVTILCH(,DATAPTR) 0473 00789000 AL @14,@CF00040 0473 00790000 SLR @14,DATAPTR 0473 00791000 ST @14,@AFTEMPS 0473 00792000 LA @14,@AFTEMPS 0473 00793000 ST @14,@AL00001+8 0473 00794000 LA @14,@CC02604 0473 00795000 ST @14,@AL00001+12 0473 00796000 LA @01,@AL00001 0473 00797000 BAL @14,ACCESS 0473 00798000 * IF RF^=0 THEN 0474 00799000 LTR RF,RF 0474 00800000 BNZ @RT00474 0474 00801000 * GO TO EXITRLSA; /* EXIT */ 00802000 * LCHADS=CVTILCH; /* SAVE ADDRESS OF LCHS */ 00803000 L @14,CVTILCH(,DATAPTR) 0476 00804000 ST @14,LCHADS 0476 00805000 * SOMEIO='0'B; /* TURN OFF I/O QUEUED INDICATOR */ 00806000 * 0477 00807000 NI SOMEIO,B'11011111' 0477 00808000 * /*****************************************************************/ 00809000 * /* */ 00810000 * /* OBTAIN EACH LCH AND INSPECT IOQS IF ANY I/O QUEUED, DISPLAYING*/ 00811000 * /* THE UNIT FOR WHICH I/O IS QUEUED */ 00812000 * /* */ 00813000 * /*****************************************************************/ 00814000 * 0478 00815000 * DO I=1 TO TOTLCHS; 0478 00816000 LA I,1 0478 00817000 B @DE00478 0478 00818000 @DL00478 DS 0H 0479 00819000 * CALL ACCESS(0,LCHADS,LENGTH(LCH),'LCH ');/* GET LCH */ 00820000 MVC @AL00001(16),@AL00479 0479 00821000 LA @14,LCHADS 0479 00822000 ST @14,@AL00001+4 0479 00823000 LA @01,@AL00001 0479 00824000 BAL @14,ACCESS 0479 00825000 * IF RF=0&LCHFSTF>0 THEN 0480 00826000 SLR @14,@14 0480 00827000 CR RF,@14 0480 00828000 BNE @RF00480 0480 00829000 C @14,LCHFSTF(,DATAPTR) 0480 00830000 BNL @RF00480 0480 00831000 * DO; /* I/O QUEUED */ 00832000 * SOMEIO='1'B; /* INDICATE SOME I/O QUEUED IN 0482 00833000 * LCHS */ 00834000 OI SOMEIO,B'00100000' 0482 00835000 * LASTIOQ=LCHLST; /* FIRST AND LAST IOQS */ 00836000 L @14,LCHLST(,DATAPTR) 0483 00837000 ST @14,LASTIOQ 0483 00838000 * CURIOQ=LCHFST; /* GET FIRST IOQ ADDRESS */ 00839000 L @14,LCHFST(,DATAPTR) 0484 00840000 ST @14,CURIOQ 0484 00841000 * DO WHILE CURIOQ>0; /* GO DOWN IOQ CHAIN FOR THIS LCH*/ 00842000 B @DE00485 0485 00843000 @DL00485 DS 0H 0486 00844000 * CALL ACCESS(0,CURIOQ,LENGTH(IOQ),'IOQ ');/* GET IOQ */ 00845000 MVC @AL00001(16),@AL00486 0486 00846000 LA @14,CURIOQ 0486 00847000 ST @14,@AL00001+4 0486 00848000 LA @01,@AL00001 0486 00849000 BAL @14,ACCESS 0486 00850000 * IF RF=0 THEN /* OBTAINED SUCCESSFULLY */ 00851000 SLR @14,@14 0487 00852000 CR RF,@14 0487 00853000 BNE @RF00487 0487 00854000 * DO; 0488 00855000 * SAVEQLNK=IOQLNK; /* SAVE LINK PTR */ 00856000 L SAVEQLNK,IOQLNK(,DATAPTR) 0489 00857000 * IF CURIOQ=LASTIOQ THEN 0490 00858000 CLC CURIOQ(4),LASTIOQ 0490 00859000 BNE @RF00490 0490 00860000 * DO; /* IF THIS IS LAST IOQ AS 0491 00861000 * INDICATED BY LCH POINTERS, 0491 00862000 * ENSURE WE WILL NOT GO DOWN AN 00863000 * INVALID IOQ CHAIN, ONE THAT IS 00864000 * NOT PROPERLY CORKED */ 00865000 * SAVEQLNK=0; /* SET END OF QUEUE INDICATOR */ 00866000 SLR SAVEQLNK,SAVEQLNK 0492 00867000 * IF FIOQLNK>=0 THEN 0493 00868000 C @14,FIOQLNK(,DATAPTR) 0493 00869000 BH @RF00493 0493 00870000 * DO; /* ERRONEOUS IOQ LINKAGE */ 00871000 * CALL BLSUPUTV(ZZ2,M083);/* PUT OUT ERROR 0495 00872000 * MESSAGE */ 00873000 ST R9,@AL00001 0495 00874000 LA @14,M083 0495 00875000 ST @14,@AL00001+4 0495 00876000 L @06,ZZ2BVTP(,R9) 0495 00877000 L @15,BVTPUTVP(,@06) 0495 00878000 LA @01,@AL00001 0495 00879000 BALR @14,@15 0495 00880000 * END; 0496 00881000 * END; 0497 00882000 @RF00493 DS 0H 0498 00883000 * CALL ACCESS(0,IOQIOSB,LENGTH(IOSB),'IOSB ');/* GET 00884000 * IOSB */ 00885000 @RF00490 MVC @AL00001(16),@AL00498 0498 00886000 LA @14,IOQIOSB(,DATAPTR) 0498 00887000 ST @14,@AL00001+4 0498 00888000 LA @01,@AL00001 0498 00889000 BAL @14,ACCESS 0498 00890000 * IF RF=0 THEN 0499 00891000 LTR RF,RF 0499 00892000 BNZ @RF00499 0499 00893000 * DO; 0500 00894000 * CALL ACCESS(0,IOSUCB,LENGTH(UCBNAME)+ADDR(UCBNAME)- 00895000 * ADDR(UCBOB),'UCB ');/* GET PART OF UCB */ 00896000 LA @14,@CF00048 0501 00897000 ST @14,@AL00001 0501 00898000 LA @14,IOSUCB(,DATAPTR) 0501 00899000 ST @14,@AL00001+4 0501 00900000 LA @14,UCBNAME(,DATAPTR) 0501 00901000 AL @14,@CF00153 0501 00902000 SLR @14,DATAPTR 0501 00903000 ST @14,@AFTEMPS 0501 00904000 LA @14,@AFTEMPS 0501 00905000 ST @14,@AL00001+8 0501 00906000 LA @14,@CC02628 0501 00907000 ST @14,@AL00001+12 0501 00908000 LA @01,@AL00001 0501 00909000 BAL @14,ACCESS 0501 00910000 * IF RF=0 THEN 0502 00911000 LTR RF,RF 0502 00912000 BNZ @RF00502 0502 00913000 * DO; 0503 00914000 * UNITCTR=1; /* INIT COUNTER */ 00915000 LA UNITCTR,1 0504 00916000 * SUC='0'B; /* INIT INDICATOR */ 00917000 NI SUC,B'11101111' 0505 00918000 * DO WHILE(UNITCTR<=NUMUNITS);/* SCAN UNITABLE */ 00919000 B @DE00506 0506 00920000 @DL00506 DS 0H 0507 00921000 * IF UNITABLE(UNITCTR)=UCBNAME THEN 0507 00922000 LR @14,UNITCTR 0507 00923000 MH @14,@CH00153 0507 00924000 LA @06,UNITABLE-3(@14) 0507 00925000 CLC 0(3,@06),UCBNAME(DATAPTR) 0507 00926000 BNE @RF00507 0507 00927000 * DO; 0508 00928000 * UNITCNT(UNITCTR)=UNITCNT(UNITCTR)+1;/* 00929000 * INCREMENT COUNT */ 00930000 LR @14,UNITCTR 0509 00931000 ALR @14,@14 0509 00932000 LA @06,1 0509 00933000 AH @06,UNITCNT-2(@14) 0509 00934000 STH @06,UNITCNT-2(@14) 0509 00935000 * SUC='1'B;/* INDICATE FOUND SLOT */ 00936000 OI SUC,B'00010000' 0510 00937000 * END; 0511 00938000 * UNITCTR=UNITCTR+1;/* INC COUNTER */ 00939000 @RF00507 AL UNITCTR,@CF00043 0512 00940000 * END; 0513 00941000 @DE00506 CR UNITCTR,NUMUNITS 0513 00942000 BNH @DL00506 0513 00943000 * IF SUC='0'B THEN 0514 00944000 TM SUC,B'00010000' 0514 00945000 BNZ @RF00514 0514 00946000 * DO; /* NEW UNIT NAME */ 00947000 * NUMUNITS=NUMUNITS+1;/* INCREMENT NUMBER 00948000 * OF UNITS WITH REQUESTS */ 00949000 LA @14,1 0516 00950000 ALR NUMUNITS,@14 0516 00951000 * UNITCNT(NUMUNITS)=1;/* FIRST REQUEST */ 00952000 LR @06,NUMUNITS 0517 00953000 ALR @06,@06 0517 00954000 STH @14,UNITCNT-2(@06) 0517 00955000 * UNITABLE(NUMUNITS)=UCBNAME;/* UNIT NAME */ 00956000 LR @14,NUMUNITS 0518 00957000 MH @14,@CH00153 0518 00958000 LA @06,UNITABLE-3(@14) 0518 00959000 MVC 0(3,@06),UCBNAME(DATAPTR) 0518 00960000 * END; 0519 00961000 * END; 0520 00962000 * END; 0521 00963000 * ELSE 0522 00964000 * SAVEQLNK=0; /* ELSE INDICATE EXIT */ 00965000 B @RC00499 0522 00966000 @RF00499 SLR SAVEQLNK,SAVEQLNK 0522 00967000 * END; 0523 00968000 * ELSE 0524 00969000 * SAVEQLNK=0; /* IF BAD IOQ INDICATE EXIT FROM 00970000 * LOOP */ 00971000 B @RC00487 0524 00972000 @RF00487 SLR SAVEQLNK,SAVEQLNK 0524 00973000 * CURIOQ=SAVEQLNK; /* GET NEXT PTR OR EXIT */ 00974000 @RC00487 ST SAVEQLNK,CURIOQ 0525 00975000 * END; 0526 00976000 @DE00485 L @14,CURIOQ 0526 00977000 LTR @14,@14 0526 00978000 BP @DL00485 0526 00979000 * END; 0527 00980000 * LCHADS=LCHADS+LENGTH(LCH); /* INCREMENT LCH ADDRESS */ 00981000 @RF00480 LA @14,32 0528 00982000 AL @14,LCHADS 0528 00983000 ST @14,LCHADS 0528 00984000 * END; 0529 00985000 AL I,@CF00043 0529 00986000 @DE00478 CR I,TOTLCHS 0529 00987000 BNH @DL00478 0529 00988000 * DO UNITCTR=1 TO NUMUNITS; /* SCAN REQUEST TABLE */ 00989000 LA UNITCTR,1 0530 00990000 B @DE00530 0530 00991000 @DL00530 DS 0H 0531 00992000 * IN82T1=''; /* BLANK INSERT */ 00993000 MVI IN82T1,C' ' 0531 00994000 MVC IN82T1+1(7),IN82T1 0531 00995000 * DO; /* BLRCNVUC(UNITCNT(UNITCTR)) 0532 00996000 * FROM(UNSIGNED FIXED BINARY)TO( 00997000 * CHARACTER)SET(IN81T1)PATTERN */ 00998000 * CVD(UNITCNT(UNITCTR),PACKED);/* UNSIGNED BINARY=>PACKED 0533 00999000 * DECIMAL */ 01000000 LR @14,UNITCTR 0533 01001000 ALR @14,@14 0533 01002000 LH @14,UNITCNT-2(@14) 0533 01003000 CVD @14,PACKED 0533 01004000 * ZONED='40404040402020202020202020202120'X;/* ED PATTERN */ 01005000 MVC ZONED(16),@CB02618 0534 01006000 * ED(ZONED(5:16),PACKED(17:64));/* PACKED DECIMAL=>EBCDIC */ 01007000 ED ZONED+4(12),PACKED+2 0535 01008000 * IN81T1=ZONED(17-LENGTH(IN81T1):16);/* EBCDIC RESULT */ 01009000 MVC IN81T1(8),ZONED+8 0536 01010000 * END; /* BLRCNVUC(UNITCNT(UNITCTR)) 0537 01011000 * FROM(UNSIGNED FIXED BINARY)TO( 01012000 * CHARACTER)SET(IN81T1)PATTERN */ 01013000 * IN82T1(1:3)=UNITABLE(UNITCTR);/* INSERT UNIT ADDRESS */ 01014000 LA @14,3 0538 01015000 LR @01,UNITCTR 0538 01016000 MR @00,@14 0538 01017000 LA @08,UNITABLE-3(@01) 0538 01018000 MVC IN82T1(3),0(@08) 0538 01019000 * IN81O=ADDR(M037T2)-ADDR(M037T);/* SET INSERT OFFSET */ 01020000 MVC IN81O(2),@CH02655 0539 01021000 * IN82O=ADDR(M037T3)-ADDR(M037T);/* SET INSERT OFFSET */ 01022000 MVC IN82O(2),@CH02657 0540 01023000 * OLDN=3; /* 2 MESSAGE SEGMENTS IND IN OLD */ 01024000 ST @14,OLDN 0541 01025000 * IN81L=12; /* INSERT LENGTH */ 01026000 MVC IN81L(2),@CH00032 0542 01027000 * IN82L=7; /* INSERT LENGTH */ 01028000 MVC IN82L(2),@CH00474 0543 01029000 * CALL BLSUMPK1(ZZ2,IN81); /* EDIT SEGMENT */ 01030000 ST R9,@AL00001 0544 01031000 LA @14,IN81 0544 01032000 ST @14,@AL00001+4 0544 01033000 L @08,ZZ2BVTP(,R9) 0544 01034000 L @15,BVTMPK1P(,@08) 0544 01035000 LA @01,@AL00001 0544 01036000 BALR @14,@15 0544 01037000 * OLDP(1)=ADDR(M037); /* ADDR OF 1ST SEG TO OLD */ 01038000 LA @14,M037 0545 01039000 ST @14,OLDP 0545 01040000 * OLDP(2)=ADDR(IN81); /* ADDR OF 2ND SEG TO OLD */ 01041000 LA @14,IN81 0546 01042000 ST @14,OLDP+4 0546 01043000 * OLDP(3)=ADDR(IN82); /* ADDR OF 2ND SEG TO OLD */ 01044000 LA @14,IN82 0547 01045000 ST @14,OLDP+8 0547 01046000 * CALL BLSUPUTO(ZZ2,OLD); /* PUT OUT MESSAGE */ 01047000 ST R9,@AL00001 0548 01048000 LA @14,OLD 0548 01049000 ST @14,@AL00001+4 0548 01050000 L @08,ZZ2BVTP(,R9) 0548 01051000 L @15,BVTPUTOP(,@08) 0548 01052000 LA @01,@AL00001 0548 01053000 BALR @14,@15 0548 01054000 * END; 0549 01055000 AL UNITCTR,@CF00043 0549 01056000 @DE00530 CR UNITCTR,NUMUNITS 0549 01057000 BNH @DL00530 0549 01058000 * IF SOMEIO='0'B THEN 0550 01059000 TM SOMEIO,B'00100000' 0550 01060000 BNZ @RF00550 0550 01061000 * DO; /* NO I/O QUEUED */ 01062000 * CALL BLSUPUTV(ZZ2,M084); /* PUT OUT MESSAGE */ 01063000 ST R9,@AL00001 0552 01064000 LA @14,M084 0552 01065000 ST @14,@AL00001+4 0552 01066000 L @08,ZZ2BVTP(,R9) 0552 01067000 L @15,BVTPUTVP(,@08) 0552 01068000 LA @01,@AL00001 0552 01069000 BALR @14,@15 0552 01070000 * END; 0553 01071000 * RETC=0; /* SET SUCCESSFUL RETURN */ 01072000 @RF00550 SLR @14,@14 0554 01073000 ST @14,RETC 0554 01074000 * RF=0; /* SET SUCCESSFUL RETURN */ 01075000 SLR RF,RF 0555 01076000 * 0556 01077000 * /*****************************************************************/ 01078000 * /* */ 01079000 * /* PROGRAM EXIT */ 01080000 * /* */ 01081000 * /*****************************************************************/ 01082000 * 0556 01083000 *EXITRLSA: 0556 01084000 * RETC=MIN(MAX(RF,RETC),ZZZFLAGT);/* SET MAX RETURN CODE */ 01085000 EXITRLSA L @14,RETC 0556 01086000 CR @14,RF 0556 01087000 BNL *+6 01088000 LR @14,RF 0556 01089000 LA @08,16 0556 01090000 CR @14,@08 0556 01091000 BNH *+6 01092000 LR @14,@08 0556 01093000 ST @14,RETC 0556 01094000 * DO WHILE(PDAPTR^=0); /* BLRRLSA MF(E,PD) */ 01095000 B @DE00557 0557 01096000 @DL00557 DS 0H 0558 01097000 * PDRPTR=PDAPTR; 0558 01098000 L PDRPTR,PDAPTR 0558 01099000 * PDAPTR=PDXP; 0559 01100000 L @14,PDXP-1(,PDRPTR) 0559 01101000 LA @14,0(,@14) 0559 01102000 ST @14,PDAPTR 0559 01103000 * DO; /* FREEMAIN(R) 0560 01104000 * LV(PDL)SP(1)A(PDDSECT) */ 01105000 * RESPECIFY 0561 01106000 * (GPR01F, 0561 01107000 * GPR00F) RESTRICTED; 0561 01108000 * GPR00F=PDL; /* LENGTH REQUESTED */ 01109000 L GPR00F,PDL-1(,PDRPTR) 0562 01110000 ICM GPR00F,8,@CB01768 0562 01111000 * GPR01F=1; /* SP IN REG 1 */ 01112000 LA GPR01F,1 0563 01113000 * GEN(SLL GPR01F,24) 0564 01114000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0564 01115000 SLL GPR01F,24 01116000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 01117000 OR GPR00F,GPR01F 0565 01118000 * GPR01F=ADDR(PDDSECT); /* SET REGISTER ONE */ 01119000 LR GPR01F,PDRPTR 0566 01120000 * SVC(10); /* R-FORM OF GETMAIN */ 01121000 SVC 10 0567 01122000 * RESPECIFY 0568 01123000 * (GPR01F, 0568 01124000 * GPR00F) UNRESTRICTED; 0568 01125000 * END; /* FREEMAIN(R) 0569 01126000 * LV(PDL)SP(1)A(PDDSECT) */ 01127000 * END; /* BLRRLSA MF(E,PD) */ 01128000 @DE00557 L @14,PDAPTR 0570 01129000 LTR @14,@14 0570 01130000 BNZ @DL00557 0570 01131000 *EXITNORL: 0571 01132000 * DO; /* FREEMAIN(R) LV(8192)SP(ZZZSPEX 01133000 * C)A(DATABUFR) */ 01134000 EXITNORL DS 0H 0572 01135000 * RESPECIFY 0572 01136000 * (GPR01F, 0572 01137000 * GPR00F) RESTRICTED; 0572 01138000 * GPR00F=8192; /* LENGTH REQUESTED */ 01139000 L GPR00F,@CF02596 0573 01140000 * GPR01F=ZZZSPEXC; /* SP IN REG 1 */ 01141000 LA GPR01F,1 0574 01142000 * GEN(SLL GPR01F,24) 0575 01143000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0575 01144000 SLL GPR01F,24 01145000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 01146000 OR GPR00F,GPR01F 0576 01147000 * GPR01F=ADDR(DATABUFR); /* SET REGISTER ONE */ 01148000 LR GPR01F,DATAPTR 0577 01149000 * SVC(10); /* R-FORM OF GETMAIN */ 01150000 SVC 10 0578 01151000 * RESPECIFY 0579 01152000 * (GPR01F, 0579 01153000 * GPR00F) UNRESTRICTED; 0579 01154000 * END; /* FREEMAIN(R) LV(8192)SP(ZZZSPEX 01155000 * C)A(DATABUFR) */ 01156000 * RETURN CODE(RETC); 0581 01157000 L @08,RETC 0581 01158000 L @13,4(,@13) 0581 01159000 L @00,@SIZDATD 0581 01160000 LR @01,@11 0581 01161000 BLSUFRER R,LV=(0),A=(1) 01162000 LR @15,@08 0581 01163000 L @14,12(,@13) 0581 01164000 LM @00,@12,20(@13) 0581 01165000 BR @14 0581 01166000 * 0582 01167000 * /*****************************************************************/ 01168000 * /* */ 01169000 * /* ROUTINE TO OBTAIN DUMP INFORMATION */ 01170000 * /* */ 01171000 * /*****************************************************************/ 01172000 * 0582 01173000 *ACCESS: 0582 01174000 * PROCEDURE(ACCASID,ACCADDR,ACCLNTH,ACCSYMN); 0582 01175000 ACCESS STM @14,@12,@SA00002 0582 01176000 MVC @PC00002(16),0(@01) 0582 01177000 * DCL 0583 01178000 * ACCSYMN CHARACTER(8); /* SYMBOL NAME */ 01179000 * ESAU(1:LENGTH(ESCO))=ESCO; /* INITIALIZE RECORD */ 01180000 MVC ESAU(182),ESCO 0584 01181000 * ESAUAS2=ACCASID; /* ASID */ 01182000 L @14,@PC00002 0585 01183000 L @14,ACCASID(,@14) 0585 01184000 ST @14,ESAUAS2 0585 01185000 * IF ESAUAS2=0 THEN 0586 01186000 LTR @14,@14 0586 01187000 BNZ @RF00586 0586 01188000 * ESAUAS2=ZZ6DQ2; /* CHANGE 0 TO ACTIVE ASID */ 01189000 L @14,ZZ2AZZ6P(,R9) 0587 01190000 L @14,ZZ6DQ2(,@14) 0587 01191000 ST @14,ESAUAS2 0587 01192000 * ESAULAD=ACCADDR; /* ADDRESS */ 01193000 @RF00586 L @14,@PC00002+4 0588 01194000 L @14,ACCADDR(,@14) 0588 01195000 ST @14,ESAULAD 0588 01196000 * ESAUDLE=ACCLNTH; /* LENGTH */ 01197000 L @14,@PC00002+8 0589 01198000 L @14,ACCLNTH(,@14) 0589 01199000 ST @14,ESAUDLE 0589 01200000 * ESAUAST=ZZZASTCV; /* VIRTUAL REQUEST */ 01201000 MVC ESAUAST(2),@CC00075 0590 01202000 * ESAUAS1=ZZ6DQ1; /* ACTIVE CPU */ 01203000 L @14,ZZ2AZZ6P(,R9) 0591 01204000 L @14,ZZ6DQ1(,@14) 0591 01205000 ST @14,ESAUAS1 0591 01206000 * ESAUSYM(1:8)=ACCSYMN; /* SYMBOL */ 01207000 L @14,@PC00002+12 0592 01208000 MVC ESAUSYM(8),ACCSYMN(@14) 0592 01209000 * CALL BLSRACC(ZZ2,ESAU,DATABUFR);/* CALL ACCESS SERVICE RTN */ 01210000 ST R9,@AL00001 0593 01211000 LA @14,ESAU 0593 01212000 ST @14,@AL00001+4 0593 01213000 ST DATAPTR,@AL00001+8 0593 01214000 L @08,ZZ2RVTP(,R9) 0593 01215000 L @15,RVTRACCP(,@08) 0593 01216000 LA @01,@AL00001 0593 01217000 BALR @14,@15 0593 01218000 * IF RF^=0 THEN 0594 01219000 LTR RF,RF 0594 01220000 BZ @RF00594 0594 01221000 * RETURN CODE(4); /* FAILED */ 01222000 LA @15,4 0595 01223000 L @14,@SA00002 0595 01224000 LM @00,@12,@SA00002+8 0595 01225000 BR @14 0595 01226000 * ELSE 0596 01227000 * RETURN CODE(0); /* SUCCESS RETURN TO CALLER */ 01228000 @RF00594 SLR @15,@15 0596 01229000 L @14,@SA00002 0596 01230000 LM @00,@12,@SA00002+8 0596 01231000 BR @14 0596 01232000 * END ACCESS; 0597 01233000 * 0598 01234000 */*BLSRPEND--DEBUGGING MODULE */ 01235000 */*BLSUPEND--MVS IPCS MODULE */ 01236000 * 0598 01237000 * DECLARE /* DATA FOR AHB MACROS */ 01238000 * PTRBIT BIT(32) BOUNDARY(WORD),/* DATA CONVERSION WORK AREA FOR 01239000 * POINTER DATA */ 01240000 * PTRPTR POINTER DEFINED(PTRBIT),/* DATA CONVERSION WORK AREA FOR 01241000 * POINTER DATA */ 01242000 * PACKED BIT(64) BOUNDARY(DWORD),/* DATA CONVERSION WORK AREA */ 01243000 * ZONED CHARACTER(16) BOUNDARY(DWORD);/* DATA CONVERSION WORK 0598 01244000 * AREA */ 01245000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01246000 * GPR00F FIXED(31) REG(0), 0599 01247000 * GPR01F FIXED(31) REG(1), 0599 01248000 * GPR15F FIXED(31) REG(15); 0599 01249000 * DECLARE /* COMMON VARIABLES */ 01250000 * I256C CHAR(256) BASED, 0600 01251000 * I031F FIXED(31) BASED, 0600 01252000 * I031P PTR(31) BASED, 0600 01253000 * I015F FIXED(15) BASED, 0600 01254000 * I015P PTR(15) BASED, 0600 01255000 * I008P PTR(8) BASED, 0600 01256000 * I001C CHAR(1) BASED; 0600 01257000 * GENERATE NODEFS NOREFS DATA; 0601 01258000 * END BLSRIOSK /* BLRPEND(BLSRIOSK) */ 01259000 * 0602 01260000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01261000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 01262000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 01263000 */*%INCLUDE SYSLIB (BLRFULL ) */ 01264000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 01265000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 01266000 */*%INCLUDE SYSLIB (IKJECT ) */ 01267000 */*%INCLUDE SYSLIB (IKJUPT ) */ 01268000 */*%INCLUDE SYSLIB (BLSUSERV) */ 01269000 */*%INCLUDE SYSLIB (BLRSERV ) */ 01270000 */*%INCLUDE SYSLIB (BLRSERVD) */ 01271000 */*%INCLUDE SYSLIB (BLSRSERV) */ 01272000 */*%INCLUDE SYSLIB (IECDIOQ ) */ 01273000 */*%INCLUDE SYSLIB (CVT ) */ 01274000 */*%INCLUDE SYSLIB (IECDIOCM) */ 01275000 */*%INCLUDE SYSLIB (IECDIOCX) */ 01276000 */*%INCLUDE SYSLIB (IECDIOSB) */ 01277000 */*%INCLUDE SYSLIB (IECDLCH ) */ 01278000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 01279000 * 0602 01280000 * ; 0602 01281000 @EL00001 L @13,4(,@13) 0602 01282000 @EF00001 L @00,@SIZDATD 0602 01283000 LR @01,@11 0602 01284000 BLSUFRER R,LV=(0),A=(1) 01285000 @ER00001 LM @14,@12,12(@13) 0602 01286000 BR @14 0602 01287000 @DATA DS 0H 01288000 @CH00213 DC H'6' 01289000 @CH00474 DC H'7' 01290000 @CH02655 DC H'9' 01291000 @CH02654 DC H'33' 01292000 @CH00420 DC H'38' 01293000 @CH02657 DC H'41' 01294000 @CH02481 DC AL2(65535) 01295000 DS 0F 01296000 @AL00326 DC A(@CF00048) LIST WITH 4 ARGUMENT(S) 01297000 DS F 01298000 DC A(@CF00091) 01299000 DC A(@CC02605) 01300000 @AL00479 DC A(@CF00048) LIST WITH 4 ARGUMENT(S) 01301000 DS F 01302000 DC A(@CF00062) 01303000 DC A(@CC02625) 01304000 @AL00486 DC A(@CF00048) LIST WITH 4 ARGUMENT(S) 01305000 DS F 01306000 DC A(@CF00032) 01307000 DC A(@CC02626) 01308000 @AL00498 DC A(@CF00048) LIST WITH 4 ARGUMENT(S) 01309000 DS F 01310000 DC A(@CF02656) 01311000 DC A(@CC02627) 01312000 @DATD DSECT 01313000 DS 0F 01314000 @SA00001 DS 18F 01315000 @SA00002 DS 15F 01316000 @PC00002 DS 4F 01317000 @AL00001 DS 4A 01318000 @AFTEMPS DS 1F 01319000 BLSRIOSK CSECT 01320000 DS 0F 01321000 @CF00048 DC F'0' 01322000 @CF00043 DC F'1' 01323000 @CH00043 EQU @CF00043+2 01324000 @CF00068 DC F'2' 01325000 @CH00068 EQU @CF00068+2 01326000 @CF00153 DC F'3' 01327000 @CH00153 EQU @CF00153+2 01328000 @CF00040 DC F'4' 01329000 @CF00051 DC F'8' 01330000 @CF00032 DC F'12' 01331000 @CH00032 EQU @CF00032+2 01332000 @CF00062 DC F'32' 01333000 @CH00062 EQU @CF00062+2 01334000 @CF02656 DC F'108' 01335000 @CF00091 DC F'4096' 01336000 @CF00449 DC F'4104' 01337000 @CF02596 DC F'8192' 01338000 @CF02661 DC F'-4104' 01339000 @CF02650 DC F'-4056' 01340000 @CF02660 DC XL4'0000FFFF' 01341000 @DATD DSECT 01342000 DS 0D 01343000 PDAPTR DS A 01344000 RETC DS F 01345000 THECVTPT DS F 01346000 CURIOQ DS F 01347000 LASTIOQ DS F 01348000 LCHADS DS F 01349000 ACTCNT DS F 01350000 ACTTPCNT DS F 01351000 LUCBADR DS H 01352000 DS CL6 01353000 ESAU DS CL694 01354000 ORG ESAU 01355000 ESAURID DS CL2 01356000 @NM00093 DS BL6 01357000 @NM00094 DS CL8 01358000 @NM00095 DS BL8 01359000 ESAURDX DS FL4 01360000 ESAUSYM DS CL31 01361000 ESAUELK DS 0C 01362000 ESAURV1 DS CL1 01363000 ESAUAS DS CL16 01364000 ORG ESAUAS 01365000 ESAUAS0 DS 0C 01366000 ESAUAST DS CL2 01367000 @NM00096 DS BL2 01368000 ESAUAS1 DS FL4 01369000 ESAUAS2 DS FL4 01370000 @NM00097 DS BL4 01371000 ESAUAS9 DS 0C 01372000 ORG ESAU+76 01373000 ESAULAD DS AL4 01374000 ESAUD DS CL60 01375000 ORG ESAUD 01376000 ESAUD00 DS 0C 01377000 ESAUDOF DS FL4 01378000 ESAUDLE DS FL4 01379000 ESAUDOB DS FL1 01380000 ESAUDLB DS FL1 01381000 ESAUDT DS CL34 01382000 ORG ESAUDT 01383000 ESAUDT0 DS 0C 01384000 ESAUDTY DS CL1 01385000 @NM00098 DS BL1 01386000 ESAUDTD DS CL31 01387000 ESAUDTE DS CL1 01388000 ESAUDT9 DS 0C 01389000 ORG ESAUD+44 01390000 ESAUDIM DS FL4 01391000 ESAUDIL DS FL4 01392000 ESAUDF DS BL4 01393000 ORG ESAUDF 01394000 ESAUDFA DS BL1 01395000 @NM00099 EQU ESAUDF+0 01396000 ORG ESAUD+56 01397000 @NM00100 DS BL4 01398000 ESAUD99 DS 0C 01399000 ORG ESAU+140 01400000 ESAUMAD DS AL4 01401000 @NM00101 DS BL16 01402000 ESAUKEY DS BL1 01403000 ESAUF DS BL3 01404000 ORG ESAUF 01405000 ESAUFS DS BL1 01406000 ORG ESAUFS 01407000 ESAUFSC DS BL1 01408000 ESAUFS2 EQU ESAUFS+0 01409000 ESAUFSM EQU ESAUFS+0 01410000 ESAUFSA EQU ESAUFS+0 01411000 ESAUFSP EQU ESAUFS+0 01412000 ESAUFSR EQU ESAUFS+0 01413000 ESAUFSX EQU ESAUFS+0 01414000 ESAUFSS EQU ESAUFS+0 01415000 ORG ESAUF+1 01416000 ESAUFC DS BL1 01417000 ORG ESAUFC 01418000 ESAUFCD DS BL1 01419000 @NM00102 EQU ESAUFC+0 01420000 ORG ESAUF+2 01421000 @NM00103 DS BL1 01422000 ORG ESAU+164 01423000 ESAUABS DS FL4 01424000 @NM00104 DS BL12 01425000 ESAUR DS CL514 01426000 ORG ESAUR 01427000 ESAURL DS FL2 01428000 ESAURT DS CL512 01429000 ORG ESAURT 01430000 ESAURT1 DS CL512 01431000 ORG ESAU+694 01432000 ESAU999 DS 0C 01433000 ORG ESAU+694 01434000 FLAGS DS CL1 01435000 ORG FLAGS 01436000 OUT DS BL1 01437000 SKP EQU FLAGS+0 01438000 SOMEIO EQU FLAGS+0 01439000 SUC EQU FLAGS+0 01440000 EBOK EQU FLAGS+0 01441000 @NM00119 EQU FLAGS+0 01442000 ORG FLAGS+1 01443000 DS CL1 01444000 OLD DS CL20 01445000 ORG OLD 01446000 OLDN DS FL4 01447000 OLDP DS 4A 01448000 ORG OLD+20 01449000 IN81 DS CL12 01450000 ORG IN81 01451000 IN81L DS FL2 01452000 IN81O DS FL2 01453000 IN81T DS CL8 01454000 ORG IN81T 01455000 IN81T1 DS CL8 01456000 ORG IN81+12 01457000 IN82 DS CL12 01458000 ORG IN82 01459000 IN82L DS FL2 01460000 IN82O DS FL2 01461000 IN82T DS CL8 01462000 ORG IN82T 01463000 IN82T1 DS CL8 01464000 ORG IN82+12 01465000 IN83 DS CL12 01466000 ORG IN83 01467000 IN83L DS FL2 01468000 IN83O DS FL2 01469000 IN83T DS CL8 01470000 ORG IN83T 01471000 IN83T1 DS CL8 01472000 ORG IN83+12 01473000 PTRBIT DS BL4 01474000 DS CL4 01475000 PACKED DS BL8 01476000 ZONED DS CL16 01477000 UNITABLE DS 100CL3 01478000 UNITCNT DS 100H 01479000 BLSRIOSK CSECT 01480000 DS 0F 01481000 @SIZDATD DC AL1(0) 01482000 DC AL3(@ENDDATD-@DATD) 01483000 DS 0D 01484000 PCPTR DC AL4(PC) 01485000 @CC02604 DC C'CVT ' 01486000 @CC02605 DC C'UCBLOKUP' 01487000 @CC02623 DC C'IOCOMM ' 01488000 @CC02624 DC C'IOCOMEX ' 01489000 @CC02625 DC C'LCH ' 01490000 @CC02626 DC C'IOQ ' 01491000 @CC02627 DC C'IOSB ' 01492000 @CC02628 DC C'UCB ' 01493000 @CC02606 DC C'UCBS' 01494000 @CC02409 EQU @CC02604 01495000 @CC00075 EQU @CC02604 01496000 @CB02618 DC X'40404040402020202020202020202120' 01497000 @CB01768 DC X'00' 01498000 DS CL7 01499000 ESCO DS CL182 01500000 ORG ESCO 01501000 ESCORID DC CL2'ES' 01502000 @NM00105 DC X'000000000000' 01503000 @NM00106 DC CL8' ' 01504000 @NM00107 DC X'00' 01505000 DC XL7'0' 01506000 ESCORDX DC A(0) 01507000 ESCOSYM DC CL31' ' 01508000 ESCOELK DS 0C 01509000 ESCORV1 DC CL1' ' 01510000 ESCOAS DS CL16 01511000 ORG ESCOAS 01512000 ESCOAS0 DS 0C 01513000 ESCOAST DC CL2' ' 01514000 @NM00108 DC X'0000' 01515000 ESCOAS1 DC A(0) 01516000 ESCOAS2 DC A(0) 01517000 @NM00109 DC X'00' 01518000 DC XL3'0' 01519000 ESCOAS9 DS 0C 01520000 ORG ESCO+76 01521000 ESCOLAD DC A(0) 01522000 ESCOD DS CL60 01523000 ORG ESCOD 01524000 ESCOD00 DS 0C 01525000 ESCODOF DC F'0' 01526000 ESCODLE DC A(4) 01527000 ESCODOB DC AL1(0) 01528000 ESCODLB DC AL1(0) 01529000 ESCODT DS CL34 01530000 ORG ESCODT 01531000 ESCODT0 DS 0C 01532000 ESCODTY DC CL1'U' 01533000 @NM00110 DC X'00' 01534000 ESCODTD DC CL31' ' 01535000 ESCODTE DC CL1' ' 01536000 ESCODT9 DS 0C 01537000 ORG ESCOD+44 01538000 ESCODIM DC A(0) 01539000 ESCODIL DC F'0' 01540000 ESCODF DC X'00000000' 01541000 ORG ESCODF 01542000 ESCODFA DS BL1 01543000 @NM00111 EQU ESCODF+0 01544000 ORG ESCOD+56 01545000 @NM00112 DC X'00' 01546000 DC XL3'0' 01547000 ESCOD99 DS 0C 01548000 ORG ESCO+140 01549000 ESCOMAD DC A(0) 01550000 @NM00113 DC X'00' 01551000 DC XL15'0' 01552000 ESCOKEY DS BL1 01553000 ESCOF DC X'00' 01554000 DC XL2'0' 01555000 ORG ESCOF 01556000 ESCOFS DS BL1 01557000 ORG ESCOFS 01558000 ESCOFSC DS BL1 01559000 ESCOFS2 EQU ESCOFS+0 01560000 ESCOFSM EQU ESCOFS+0 01561000 ESCOFSA EQU ESCOFS+0 01562000 ESCOFSP EQU ESCOFS+0 01563000 ESCOFSR EQU ESCOFS+0 01564000 ESCOFSX EQU ESCOFS+0 01565000 ESCOFSS EQU ESCOFS+0 01566000 ORG ESCOF+1 01567000 ESCOFC DS BL1 01568000 ORG ESCOFC 01569000 ESCOFCD DS BL1 01570000 @NM00114 EQU ESCOFC+0 01571000 ORG ESCOF+2 01572000 @NM00115 DS BL1 01573000 ORG ESCO+164 01574000 ESCOABS DC A(0) 01575000 @NM00116 DC X'00' 01576000 DC XL11'0' 01577000 ESCOR DS CL2 01578000 ORG ESCOR 01579000 ESCORL DC AL2(0) 01580000 ESCORT DS 0C 01581000 ORG ESCORT 01582000 ESCORT1 DS 0C 01583000 ORG ESCO+182 01584000 ESCO999 DS 0C 01585000 ORG ESCO+182 01586000 DTCVT DS CL34 01587000 ORG DTCVT 01588000 DTCVT0 DS 0C 01589000 DTCVTY DC CL1'M' 01590000 @NM00117 DC X'00' 01591000 DTCVTD DC CL31'CVT' 01592000 DTCVTE DC CL1' ' 01593000 DTCVT9 DS 0C 01594000 ORG DTCVT+34 01595000 M032 DS CL67 01596000 ORG M032 01597000 M032L DC AL2(67) 01598000 M032O DC AL2(0) 01599000 M032T DS CL63 01600000 ORG M032T 01601000 M032T1 DC CL49'BLS18032I IOSCHECK PROCESSING MAY BE INVALID FOR ' 01602000 M032T2 DC CL14'A VIRTUAL DUMP' 01603000 ORG M032+67 01604000 DS CL1 01605000 M033 DS CL43 01606000 ORG M033 01607000 M033L DC AL2(43) 01608000 M033O DC AL2(0) 01609000 M033T DS CL39 01610000 ORG M033T 01611000 M033T1 DC CL32'BLS18033I UCBFLC FIELD FOR UNIT ' 01612000 M033T2 DC CL6' IS X''' 01613000 M033T3 DC CL1'''' 01614000 ORG M033+43 01615000 DS CL1 01616000 M034 DS CL37 01617000 ORG M034 01618000 M034L DC AL2(37) 01619000 M034O DC AL2(0) 01620000 M034T DS CL33 01621000 ORG M034T 01622000 M034T1 DC CL33'BLS18034I INVALID UCB AT ADDRESS ' 01623000 M034T2 DS 0C 01624000 ORG M034+37 01625000 DS CL1 01626000 M035 DS CL37 01627000 ORG M035 01628000 M035L DC AL2(37) 01629000 M035O DC AL2(0) 01630000 M035T DS CL33 01631000 ORG M035T 01632000 M035T1 DC CL9'BLS18035I' 01633000 M035T2 DC CL24' DEVICES WITH ACTIVE I/O' 01634000 ORG M035+37 01635000 DS CL1 01636000 M036 DS CL37 01637000 ORG M036 01638000 M036L DC AL2(37) 01639000 M036O DC AL2(0) 01640000 M036T DS CL33 01641000 ORG M036T 01642000 M036T1 DC CL9'BLS18036I' 01643000 M036T2 DC CL24' OF THESE ARE TP DEVICES' 01644000 ORG M036+37 01645000 DS CL1 01646000 M037 DS CL45 01647000 ORG M037 01648000 M037L DC AL2(45) 01649000 M037O DC AL2(0) 01650000 M037T DS CL41 01651000 ORG M037T 01652000 M037T1 DC CL9'BLS18037I' 01653000 M037T2 DC CL32' I/O REQUEST(S) QUEUED FOR UNIT ' 01654000 M037T3 DS 0C 01655000 ORG M037+45 01656000 DS CL1 01657000 M083 DS CL85 01658000 ORG M083 01659000 M083L DC AL2(85) 01660000 M083O DC AL2(0) 01661000 M083T DS CL81 01662000 ORG M083T 01663000 M083T1 DC CL53'BLS18083I LCHLST FIELD INDICATES THIS IS LAST IOQ BC01664000 UT' 01665000 M083T2 DC CL28' IOQLNK IS GREATER THAN ZERO' 01666000 ORG M083+85 01667000 DS CL1 01668000 M084 DS CL40 01669000 ORG M084 01670000 M084L DC AL2(40) 01671000 M084O DC AL2(0) 01672000 M084T DS CL36 01673000 ORG M084T 01674000 M084T1 DC CL36'BLS18084I NO DEVICES WITH QUEUED I/O' 01675000 ORG M084+40 01676000 PXRO DC AL2(PXPRINT-PD) 01677000 DC AL2(PXTERM-PD) 01678000 DC AL2(PXDFLG-PD) 01679000 DC AL2(PXDFLV-PD) 01680000 @DATD DSECT 01681000 SPACE 2 01682000 *********************************************************************** 01683000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01684000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01685000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01686000 *********************************************************************** 01687000 SPACE 01688000 BLSRIOSK CSECT 01689000 ORG 01690000 DS 0D 01691000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSRIOSK+19)/20+7)/8)CL8'BLSRIOSK' 01692000 @DATD DSECT 01693000 DS 0H 01694000 @DATD DSECT 01695000 SPACE 2 01696000 *********************************************************************** 01697000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 01698000 *********************************************************************** 01699000 SPACE 01700000 BLSRIOSK CSECT 01701000 PC IKJPARM DSECT=PD 01702000 @DATD DSECT 01703000 BLSRIOSK CSECT 01704000 PXPRINT IKJKEYWD 01705000 @DATD DSECT 01706000 BLSRIOSK CSECT 01707000 IKJNAME 'PRINT' 01708000 @DATD DSECT 01709000 BLSRIOSK CSECT 01710000 IKJNAME 'NOPRINT' 01711000 @DATD DSECT 01712000 BLSRIOSK CSECT 01713000 PXTERM IKJKEYWD 01714000 @DATD DSECT 01715000 BLSRIOSK CSECT 01716000 IKJNAME 'TERMINAL' 01717000 @DATD DSECT 01718000 BLSRIOSK CSECT 01719000 IKJNAME 'NOTERMINAL' 01720000 @DATD DSECT 01721000 BLSRIOSK CSECT 01722000 PXDFLG IKJKEYWD 01723000 @DATD DSECT 01724000 BLSRIOSK CSECT 01725000 IKJNAME 'FLAG',SUBFLD=PXSUBFM 01726000 @DATD DSECT 01727000 BLSRIOSK CSECT 01728000 PXTEST IKJKEYWD 01729000 @DATD DSECT 01730000 BLSRIOSK CSECT 01731000 IKJNAME 'TEST' 01732000 @DATD DSECT 01733000 BLSRIOSK CSECT 01734000 IKJNAME 'NOTEST' 01735000 @DATD DSECT 01736000 BLSRIOSK CSECT 01737000 SPACE 01738000 PXSUBFM IKJSUBF 01739000 @DATD DSECT 01740000 BLSRIOSK CSECT 01741000 PXDFLV IKJKEYWD 01742000 @DATD DSECT 01743000 BLSRIOSK CSECT 01744000 IKJNAME 'INFORMATIONAL' 01745000 @DATD DSECT 01746000 BLSRIOSK CSECT 01747000 IKJNAME 'WARNING' 01748000 @DATD DSECT 01749000 BLSRIOSK CSECT 01750000 IKJNAME 'ERROR' 01751000 @DATD DSECT 01752000 BLSRIOSK CSECT 01753000 IKJNAME 'SERIOUS',ALIAS=('SEVERE') 01754000 @DATD DSECT 01755000 BLSRIOSK CSECT 01756000 IKJNAME 'TERMINATING' 01757000 @DATD DSECT 01758000 PD DSECT 01759000 PDZZ DS 0C 01760000 BLSRIOSK CSECT 01761000 IKJENDP 01762000 SPACE 2 01763000 *********************************************************************** 01764000 * IKJENDP--END SYNTAX DESCRIPTION * 01765000 *********************************************************************** 01766000 SPACE 01767000 @DATD DSECT 01768000 SPACE 2 01769000 *********************************************************************** 01770000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 01771000 *********************************************************************** 01772000 SPACE 01773000 DS 0D 01774000 @DATD DSECT 01775000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01776000 @ENDDATD EQU * 01777000 BLSRIOSK CSECT 01778000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01779000 @01 EQU 01 01780000 @02 EQU 02 01781000 @03 EQU 03 01782000 @04 EQU 04 01783000 @05 EQU 05 01784000 @06 EQU 06 01785000 @07 EQU 07 01786000 @08 EQU 08 01787000 @09 EQU 09 01788000 @10 EQU 10 01789000 @11 EQU 11 01790000 @12 EQU 12 01791000 @13 EQU 13 01792000 @14 EQU 14 01793000 @15 EQU 15 01794000 TOTLCHS EQU @08 01795000 WORKAD EQU @08 01796000 J EQU @02 01797000 I EQU @03 01798000 TUCBFPT EQU @05 01799000 SAVEQLNK EQU @05 01800000 LNTHUCBS EQU @04 01801000 UNITCTR EQU @02 01802000 NUMUNITS EQU @04 01803000 DATAPTR EQU @07 01804000 R9 EQU @09 01805000 R0 EQU @00 01806000 R1 EQU @01 01807000 R2 EQU @02 01808000 R3 EQU @03 01809000 R4 EQU @04 01810000 R5 EQU @05 01811000 RB EQU @11 01812000 RD EQU @13 01813000 RE EQU @14 01814000 RF EQU @15 01815000 PDRPTR EQU @10 01816000 GPR01F EQU @01 01817000 GPR00F EQU @00 01818000 GPR15F EQU @15 01819000 RA EQU @10 01820000 RC EQU @12 01821000 R6 EQU @06 01822000 R7 EQU @07 01823000 R8 EQU @08 01824000 ZZ1 EQU 0 01825000 ZZ1ATTN EQU ZZ1+360 01826000 ZZ1EVE EQU ZZ1ATTN+4 01827000 ZZ1F EQU ZZ1+368 01828000 ZZ1TRHEX EQU ZZ1+568 01829000 ZZ1N EQU ZZ1+1116 01830000 ZZ2 EQU 0 01831000 ZZ2AMD EQU ZZ2 01832000 @NM00013 EQU ZZ2AMD+7 01833000 ZZ2PRT EQU ZZ2+138 01834000 ZZ2PRTT EQU ZZ2PRT+4 01835000 ZZ2PRTT1 EQU ZZ2PRTT+1 01836000 ZZ2A EQU ZZ2+272 01837000 ZZ2AF EQU ZZ2A+16 01838000 ZZ2AFX EQU ZZ2AF+5 01839000 ZZ2APID EQU ZZ2A+64 01840000 ZZ2AD EQU ZZ2A+74 01841000 ZZ2ADD EQU ZZ2AD 01842000 ZZ2ADDT EQU ZZ2ADD+2 01843000 ZZ2ADM EQU ZZ2AD+46 01844000 ZZ2ADMT EQU ZZ2ADM+2 01845000 ZZ2ADP EQU ZZ2AD+56 01846000 ZZ2ADPT EQU ZZ2ADP+2 01847000 ZZ2AZZ6P EQU ZZ2A+140 01848000 ZZ2AQAS EQU ZZ2A+144 01849000 ZZ2AQD EQU ZZ2A+160 01850000 ZZ2AQDT EQU ZZ2AQD+10 01851000 ZZ2AQDF EQU ZZ2AQD+52 01852000 ZZ2STG EQU ZZ2+960 01853000 ZZ2ALLOP EQU ZZ2+992 01854000 ZZ2FREEP EQU ZZ2+996 01855000 ZZ2FF19P EQU ZZ2+1000 01856000 ZZ2FRE1P EQU ZZ2+1004 01857000 ZZ2FF18P EQU ZZ2+1008 01858000 ZZ2DYNAP EQU ZZ2+1012 01859000 ZZ2ZZ2CP EQU ZZ2+1016 01860000 ZZ2ZZ2DP EQU ZZ2+1020 01861000 ZZ2STAIP EQU ZZ2+1024 01862000 ZZ2FF02P EQU ZZ2+1028 01863000 ZZ2GETLP EQU ZZ2+1032 01864000 ZZ2PARSP EQU ZZ2+1036 01865000 ZZ2PTGTP EQU ZZ2+1040 01866000 ZZ2PUTLP EQU ZZ2+1044 01867000 ZZ2SCANP EQU ZZ2+1048 01868000 ZZ2STCKP EQU ZZ2+1052 01869000 ZZ2TRMOP EQU ZZ2+1064 01870000 ZZ2TRMVP EQU ZZ2+1068 01871000 ZZ2PUTNP EQU ZZ2+1084 01872000 ZZ2TRMNP EQU ZZ2+1088 01873000 ZZ2ZZ1P EQU ZZ2+1264 01874000 ZZ2BVTP EQU ZZ2+1280 01875000 ZZ2RVTP EQU ZZ2+1284 01876000 ZZ2CPPL EQU ZZ2+1292 01877000 ZZ2CPPLC EQU ZZ2CPPL 01878000 ZZ2ITR EQU ZZ2+2840 01879000 ZZ2ITRE EQU ZZ2ITR+16 01880000 ZZ2ITSE EQU ZZ2+2864 01881000 ZZ2ES EQU ZZ2+2872 01882000 ZZ2AMDX EQU ZZ2+7160 01883000 ZZ2AXO EQU ZZ2+7934 01884000 ZZ2AXOT EQU ZZ2AXO+2 01885000 CMD EQU 0 01886000 CMDT EQU CMD+4 01887000 PSCB EQU 0 01888000 PSCBATR1 EQU PSCB+16 01889000 ECT EQU 0 01890000 ECTSWS EQU ECT+28 01891000 ECTSWS2 EQU ECT+40 01892000 ECTSWS21 EQU ECTSWS2 01893000 UPT EQU 0 01894000 UPTSWS EQU UPT+12 01895000 SA EQU 0 01896000 SA1 EQU SA 01897000 SAR EQU SA+12 01898000 SAR1 EQU SAR+12 01899000 BLSUMPK1 EQU 0 01900000 BLSUPARI EQU 0 01901000 BLSUPARU EQU 0 01902000 BLSUPUTO EQU 0 01903000 BLSUPUTV EQU 0 01904000 BVT EQU 0 01905000 BVTPUTLP EQU BVT+4 01906000 BVTPUTOP EQU BVT+12 01907000 BVTPUTTP EQU BVT+16 01908000 BVTPUTVP EQU BVT+20 01909000 BVTPUTAP EQU BVT+24 01910000 BVTPRTTP EQU BVT+28 01911000 BVTPRTAP EQU BVT+32 01912000 BVTPUTDP EQU BVT+36 01913000 BVTMONP EQU BVT+40 01914000 BVTMON2P EQU BVT+44 01915000 BVTVSARP EQU BVT+48 01916000 BVTVSENP EQU BVT+64 01917000 BVTVSERP EQU BVT+68 01918000 BVTVSGEP EQU BVT+72 01919000 BVTVSGUP EQU BVT+76 01920000 BVTVSPOP EQU BVT+80 01921000 BVTVSPUP EQU BVT+84 01922000 BVTMPKNP EQU BVT+104 01923000 BVTMONLP EQU BVT+108 01924000 BVTPUTCP EQU BVT+132 01925000 BVTMPK1P EQU BVT+136 01926000 BVTZZ2RP EQU BVT+140 01927000 BVTPGMRP EQU BVT+144 01928000 BVTMONAP EQU BVT+148 01929000 BVTBLDDP EQU BVT+152 01930000 BVTBLDLP EQU BVT+156 01931000 BVTPGMCP EQU BVT+160 01932000 BVTPGMDP EQU BVT+164 01933000 BVTPGMLP EQU BVT+168 01934000 BVTMONCP EQU BVT+180 01935000 BVTMONDP EQU BVT+184 01936000 BVTMONTP EQU BVT+188 01937000 BVTPARIP EQU BVT+192 01938000 BVTPARUP EQU BVT+196 01939000 BVTPRTNP EQU BVT+204 01940000 BVTVSCRP EQU BVT+208 01941000 BVTVSMRP EQU BVT+212 01942000 BVTMONXP EQU BVT+216 01943000 BVTTRMAP EQU BVT+228 01944000 ZZ6 EQU 0 01945000 ZZ6D EQU ZZ6+128 01946000 ZZ6DD EQU ZZ6D+8 01947000 ZZ6DDT EQU ZZ6DD+4 01948000 ZZ6DQA EQU ZZ6D+68 01949000 ZZ6DQ1 EQU ZZ6D+84 01950000 ZZ6DQ2 EQU ZZ6D+88 01951000 ZZ6DF EQU ZZ6D+92 01952000 ZZ6DFAB EQU ZZ6DF 01953000 ZZ6B EQU ZZ6+768 01954000 BLSRACC EQU 0 01955000 BLSRESGU EQU 0 01956000 RVT EQU 0 01957000 RVTADDRP EQU RVT 01958000 RVTT01P EQU RVT+4 01959000 RVTTAP EQU RVT+8 01960000 RVTTBP EQU RVT+12 01961000 RVTTCP EQU RVT+16 01962000 RVTTFP EQU RVT+24 01963000 RVTTYP EQU RVT+40 01964000 RVTT02P EQU RVT+48 01965000 RVTT03P EQU RVT+52 01966000 RVTT04P EQU RVT+56 01967000 RVTACCLP EQU RVT+60 01968000 RVTRACCP EQU RVT+64 01969000 RVTTLP EQU RVT+68 01970000 RVTTMP EQU RVT+72 01971000 RVTTUP EQU RVT+80 01972000 RVTESGEP EQU RVT+84 01973000 RVTESGUP EQU RVT+88 01974000 RVTESARP EQU RVT+92 01975000 RVTRAARP EQU RVT+96 01976000 RVTRAGEP EQU RVT+100 01977000 RVTADDPP EQU RVT+104 01978000 RVTACCQP EQU RVT+108 01979000 RVTSAGUP EQU RVT+124 01980000 RVTSAGEP EQU RVT+128 01981000 RVTESCKP EQU RVT+132 01982000 RVTMSGAP EQU RVT+136 01983000 RVTMSGDP EQU RVT+140 01984000 RVTADDTP EQU RVT+160 01985000 RVTADDUP EQU RVT+164 01986000 RVTADD1P EQU RVT+176 01987000 RVTADD2P EQU RVT+180 01988000 RVTRSAGP EQU RVT+184 01989000 RVTMSGBP EQU RVT+188 01990000 RVTADDSP EQU RVT+192 01991000 RVTADD3P EQU RVT+196 01992000 RVTT05P EQU RVT+200 01993000 RVTPADSP EQU RVT+204 01994000 RVTTRP EQU RVT+228 01995000 RVTADD4P EQU RVT+232 01996000 RVTSAPCP EQU RVT+236 01997000 RVTSAARP EQU RVT+240 01998000 RVTSAGNP EQU RVT+244 01999000 RVTT06P EQU RVT+248 02000000 RVTSAGCP EQU RVT+252 02001000 RVTSAGQP EQU RVT+256 02002000 RVTESGCP EQU RVT+260 02003000 RVTESGQP EQU RVT+264 02004000 RVTDUCKP EQU RVT+276 02005000 RVTDUCCP EQU RVT+280 02006000 IOQ EQU 0 02007000 IOQLNK EQU IOQ 02008000 IOQFLAGS EQU IOQ+4 02009000 IOQFLA EQU IOQFLAGS 02010000 IOQFLB EQU IOQFLAGS+1 02011000 IOQIOSB EQU IOQ+8 02012000 CVTMAP EQU 0 02013000 CVT EQU CVTMAP 02014000 CVTILK2 EQU CVTMAP+40 02015000 CVTDAR EQU CVTMAP+72 02016000 CVTFLGS1 EQU CVTDAR 02017000 CVTDCB EQU CVTMAP+116 02018000 CVTIOQET EQU CVTMAP+120 02019000 CVTIXAVL EQU CVTMAP+124 02020000 CVTILCH EQU CVTMAP+140 02021000 CVTIERLC EQU CVTMAP+144 02022000 CVTHEAD EQU CVTMAP+160 02023000 CVTSV76C EQU CVTHEAD 02024000 CVTOPTA EQU CVTMAP+182 02025000 CVTOPTB EQU CVTMAP+183 02026000 CVTGTF EQU CVTMAP+236 02027000 CVTGTFST EQU CVTGTF 02028000 CVTGTFS EQU CVTGTFST 02029000 CVTSTATE EQU CVTGTFST 02030000 CVTTMODE EQU CVTGTFST 02031000 CVTFORM EQU CVTGTFST 02032000 CVTAQAVT EQU CVTMAP+240 02033000 CVTTCMFG EQU CVTAQAVT 02034000 CVTVOLM2 EQU CVTMAP+244 02035000 CVTTATA EQU CVTVOLM2 02036000 CVTTSKS EQU CVTTATA 02037000 CVTVOLF2 EQU CVTTSKS 02038000 CVTTAT EQU CVTTATA+1 02039000 CVTATER EQU CVTMAP+248 02040000 CVTEXT1 EQU CVTMAP+252 02041000 CVTPURG EQU CVTMAP+260 02042000 CVTQMSG EQU CVTMAP+268 02043000 CVTDMSR EQU CVTMAP+272 02044000 CVTRSV37 EQU CVTDMSR 02045000 CVTDMSRF EQU CVTRSV37 02046000 CVTERPV EQU CVTMAP+316 02047000 CVTINTLA EQU CVTMAP+320 02048000 CVTAPF EQU CVTMAP+324 02049000 CVTEXT2 EQU CVTMAP+328 02050000 CVTHJES EQU CVTMAP+332 02051000 CVTPGSIA EQU CVTMAP+348 02052000 CVTA1F1 EQU CVTMAP+356 02053000 CVTSYSK EQU CVTMAP+357 02054000 CVTVOLM1 EQU CVTMAP+380 02055000 CVTVOLF1 EQU CVTVOLM1 02056000 CVTATMCT EQU CVTMAP+388 02057000 CVTXTNT1 EQU 0 02058000 CVTXTNT2 EQU 0 02059000 CVTDSSV EQU CVTXTNT2 02060000 CVTFLGBT EQU CVTXTNT2+5 02061000 CVTQID EQU CVTXTNT2+24 02062000 CVTRV400 EQU CVTXTNT2+52 02063000 CVTRV409 EQU CVTXTNT2+53 02064000 CVTATCVT EQU CVTXTNT2+64 02065000 CVTRV429 EQU CVTXTNT2+84 02066000 CVTRV438 EQU CVTXTNT2+85 02067000 CVTRV457 EQU CVTXTNT2+112 02068000 CVTRV466 EQU CVTXTNT2+113 02069000 CVTFIX EQU 0 02070000 CVTRELNO EQU CVTFIX+252 02071000 IOCOM EQU 0 02072000 IOCOMEX EQU IOCOM+64 02073000 IOCX EQU 0 02074000 IOX EQU IOCX 02075000 IOXLCHCT EQU IOCX+5 02076000 IOSB EQU 0 02077000 IOSFLA EQU IOSB 02078000 IOSACHN EQU IOSFLA 02079000 IOSFLB EQU IOSB+1 02080000 IOSFLC EQU IOSB+2 02081000 IOSDVALT EQU IOSFLC 02082000 IOSPKEY EQU IOSB+12 02083000 IOSOPT EQU IOSB+14 02084000 IOSOPT2 EQU IOSB+15 02085000 IOSUCB EQU IOSB+16 02086000 @NM00082 EQU IOSB+20 02087000 IOSCSW EQU @NM00082+1 02088000 IOSTATUS EQU IOSCSW+3 02089000 IOSIPIB EQU IOSB+44 02090000 IOSPATH EQU IOSB+86 02091000 IOSCHN EQU IOSPATH 02092000 IOSCKEY EQU IOSB+89 02093000 IOSEEKA EQU IOSB+100 02094000 IOSCCHH EQU IOSEEKA+3 02095000 IOSSKHH EQU IOSCCHH+2 02096000 LCH EQU 0 02097000 LCHENTRY EQU LCH 02098000 LCHFST EQU LCHENTRY 02099000 LCHLST EQU LCH+4 02100000 LCHFLA EQU LCH+21 02101000 UCB EQU 0 02102000 UCBOB EQU 0 02103000 UCBJBNR EQU UCBOB 02104000 UCBFL5 EQU UCBOB+1 02105000 UCBAF EQU UCBFL5 02106000 UCBID EQU UCBOB+2 02107000 UCBSTAT EQU UCBOB+3 02108000 UCBONLI EQU UCBSTAT 02109000 UCBCHAN EQU UCBOB+4 02110000 UCBSFLS EQU UCBOB+6 02111000 UCBFLA EQU UCBSFLS 02112000 UCBFL1 EQU UCBFLA 02113000 UCBBSY EQU UCBFL1 02114000 UCBNRY EQU UCBFL1 02115000 UCBPST EQU UCBFL1 02116000 UCBCUB EQU UCBFL1 02117000 UCBACTV EQU UCBFL1 02118000 UCBFLB EQU UCBSFLS+1 02119000 UCBCHM EQU UCBOB+8 02120000 UCBCHM1 EQU UCBCHM 02121000 UCBPTH0 EQU UCBCHM1 02122000 UCBPTH1 EQU UCBCHM1 02123000 UCBWGT EQU UCBOB+12 02124000 UCBNAME EQU UCBOB+13 02125000 UCBTYP EQU UCBOB+16 02126000 UCBTBYT1 EQU UCBTYP 02127000 UCB1FEA5 EQU UCBTBYT1 02128000 UCB1FEA6 EQU UCBTBYT1 02129000 UCBTBYT2 EQU UCBTYP+1 02130000 UCB2OPT2 EQU UCBTBYT2 02131000 UCBDUDN1 EQU UCB2OPT2 02132000 UCB2OPT3 EQU UCBTBYT2 02133000 UCBDUDN2 EQU UCB2OPT3 02134000 UCB2OPT4 EQU UCBTBYT2 02135000 UCBRWTAU EQU UCB2OPT4 02136000 UCB2OPT6 EQU UCBTBYT2 02137000 UCB2OPT7 EQU UCBTBYT2 02138000 UCBTBYT3 EQU UCBTYP+2 02139000 UCBDVCLS EQU UCBTBYT3 02140000 UCB3COMM EQU UCBDVCLS 02141000 UCBTBYT4 EQU UCBTYP+3 02142000 UCBEXTPT EQU UCBOB+20 02143000 UCBFLC EQU UCBEXTPT 02144000 UCBDEV EQU UCBOB+24 02145000 UCBCMEXT EQU 0 02146000 UCBATI EQU UCBCMEXT+3 02147000 @NM00092 EQU UCBATI 02148000 UCBFLP1 EQU UCBCMEXT+5 02149000 UCBMT EQU 0 02150000 UCBOCR EQU 0 02151000 UCB3540X EQU 0 02152000 UCBDKBYT EQU UCB3540X+6 02153000 UCB3800X EQU 0 02154000 UCBOPTNS EQU UCB3800X 02155000 UCBACTIV EQU UCB3800X+3 02156000 UCBMDRBF EQU UCB3800X+36 02157000 UCBUCS EQU 0 02158000 UCBUCSOP EQU UCBUCS+4 02159000 UCBFCBOP EQU UCBUCS+5 02160000 PCCSECT EQU 0 02161000 PDDSECT EQU 0 02162000 PDXP EQU PDDSECT+1 02163000 PDL EQU PDDSECT+5 02164000 TUCBBF EQU 0 02165000 PTRUCB EQU 0 02166000 DATABUFR EQU 0 02167000 BLSRACCL EQU 0 02168000 BLSRACCQ EQU 0 02169000 BLSRADDP EQU 0 02170000 BLSRADDR EQU 0 02171000 BLSRADDS EQU 0 02172000 BLSRADDT EQU 0 02173000 BLSRADDU EQU 0 02174000 BLSRADD1 EQU 0 02175000 BLSRADD2 EQU 0 02176000 BLSRADD3 EQU 0 02177000 BLSRADD4 EQU 0 02178000 BLSRDUCC EQU 0 02179000 BLSRDUCK EQU 0 02180000 BLSRESAR EQU 0 02181000 BLSRESCK EQU 0 02182000 BLSRESGC EQU 0 02183000 BLSRESGE EQU 0 02184000 BLSRESGQ EQU 0 02185000 BLSRMSGA EQU 0 02186000 BLSRMSGB EQU 0 02187000 BLSRMSGD EQU 0 02188000 BLSRPADS EQU 0 02189000 BLSRRAAR EQU 0 02190000 BLSRRAGE EQU 0 02191000 BLSRSAAR EQU 0 02192000 BLSRSAG EQU 0 02193000 BLSRSAGC EQU 0 02194000 BLSRSAGE EQU 0 02195000 BLSRSAGN EQU 0 02196000 BLSRSAGQ EQU 0 02197000 BLSRSAGU EQU 0 02198000 BLSRSAPC EQU 0 02199000 BLSTA EQU 0 02200000 BLSTB EQU 0 02201000 BLSTC EQU 0 02202000 BLSTF EQU 0 02203000 BLSTL EQU 0 02204000 BLSTM EQU 0 02205000 BLSTR EQU 0 02206000 BLSTU EQU 0 02207000 BLSTY EQU 0 02208000 BLST01 EQU 0 02209000 BLST02 EQU 0 02210000 BLST03 EQU 0 02211000 BLST04 EQU 0 02212000 BLST05 EQU 0 02213000 BLST06 EQU 0 02214000 BLSUALLO EQU 0 02215000 BLSUBLDD EQU 0 02216000 BLSUBLDL EQU 0 02217000 BLSUDYNA EQU 0 02218000 BLSUFREE EQU 0 02219000 BLSUFRE1 EQU 0 02220000 BLSUMON EQU 0 02221000 BLSUMONA EQU 0 02222000 BLSUMONC EQU 0 02223000 BLSUMOND EQU 0 02224000 BLSUMONL EQU 0 02225000 BLSUMONT EQU 0 02226000 BLSUMONX EQU 0 02227000 BLSUMON2 EQU 0 02228000 BLSUMPKN EQU 0 02229000 BLSUPGMC EQU 0 02230000 BLSUPGMD EQU 0 02231000 BLSUPGML EQU 0 02232000 BLSUPGMR EQU 0 02233000 BLSUPRTA EQU 0 02234000 BLSUPRTN EQU 0 02235000 BLSUPRTT EQU 0 02236000 BLSUPUTA EQU 0 02237000 BLSUPUTC EQU 0 02238000 BLSUPUTD EQU 0 02239000 BLSUPUTL EQU 0 02240000 BLSUPUTN EQU 0 02241000 BLSUPUTT EQU 0 02242000 BLSUSTAI EQU 0 02243000 BLSUTRMA EQU 0 02244000 BLSUTRMN EQU 0 02245000 BLSUTRMO EQU 0 02246000 BLSUTRMV EQU 0 02247000 BLSUVSAR EQU 0 02248000 BLSUVSCR EQU 0 02249000 BLSUVSEN EQU 0 02250000 BLSUVSER EQU 0 02251000 BLSUVSGE EQU 0 02252000 BLSUVSGU EQU 0 02253000 BLSUVSMR EQU 0 02254000 BLSUVSPO EQU 0 02255000 BLSUVSPU EQU 0 02256000 BLSUZZ2C EQU 0 02257000 BLSUZZ2D EQU 0 02258000 BLSUZZ2R EQU 0 02259000 IKJEFF02 EQU 0 02260000 IKJEFF18 EQU 0 02261000 IKJEFF19 EQU 0 02262000 IKJGETL EQU 0 02263000 IKJPARS EQU 0 02264000 IKJPTGT EQU 0 02265000 IKJPUTL EQU 0 02266000 IKJSCAN EQU 0 02267000 IKJSTCK EQU 0 02268000 I001C EQU 0 02269000 I008P EQU 0 02270000 I015F EQU 0 02271000 I015P EQU 0 02272000 I031F EQU 0 02273000 I031P EQU 0 02274000 I256C EQU 0 02275000 UCBBGN EQU 0 02276000 ACCASID EQU 0 02277000 ACCADDR EQU 0 02278000 ACCLNTH EQU 0 02279000 ACCSYMN EQU 0 02280000 CPPL EQU ZZ2CPPL 02281000 CPPLUPT EQU CPPL+4 02282000 CPPLPSCB EQU CPPL+8 02283000 CPPLECT EQU CPPL+12 02284000 CVTS01 EQU CVTPGSIA 02285000 CVTLPDIA EQU CVTS01+12 02286000 CVTDIRST EQU CVTLPDIA 02287000 CVTSLIDA EQU CVTS01+24 02288000 CVTCTLFG EQU CVTS01+50 02289000 CVTRV210 EQU CVTS01+424 02290000 CVTRV219 EQU CVTS01+425 02291000 CVTRV228 EQU CVTS01+426 02292000 CVTRV237 EQU CVTS01+427 02293000 CVTMFRTR EQU CVTS01+452 02294000 CVTRV262 EQU CVTS01+468 02295000 CVTRV271 EQU CVTS01+469 02296000 CVTRV280 EQU CVTS01+470 02297000 CVTRV289 EQU CVTS01+471 02298000 CVTGSDA EQU CVTS01+600 02299000 IOSATTSC EQU IOSIPIB 02300000 IOSWTOWA EQU IOSIPIB 02301000 IOSPCISC EQU IOSIPIB 02302000 UCBOBS01 EQU UCBDEV 02303000 UCBSTAB EQU UCBOBS01+10 02304000 UCBBSVL EQU UCBSTAB 02305000 UCBPRSRS EQU UCBSTAB 02306000 UCBDMCT EQU UCBOBS01+11 02307000 UCBFL4 EQU UCBOBS01+13 02308000 UCBOBS02 EQU UCBDEV 02309000 UCBTFL1 EQU UCBOBS02+19 02310000 UCBXTN EQU UCBOBS02+20 02311000 UCBVOPT EQU UCBXTN 02312000 UCBOBS03 EQU UCBDEV 02313000 UCBXTADR EQU UCBOBS03 02314000 UCBOBS04 EQU UCBDEV 02315000 UCBBTA EQU UCBOBS04+12 02316000 UCBOBS06 EQU UCBDEV 02317000 UCBAOF EQU UCBOBS06 02318000 UCBAOF1 EQU UCBAOF 02319000 UCBAOF2 EQU UCBAOF+1 02320000 @NM00091 EQU UCBOBS06+3 02321000 UCBIRB EQU UCBOBS06+4 02322000 UCBGRAF EQU UCBIRB 02323000 UCBLDNCA EQU UCBOBS06+8 02324000 UCBRDYQ EQU UCBLDNCA 02325000 UCBIRLN EQU UCBRDYQ 02326000 UCBLDNCB EQU UCBRDYQ+1 02327000 UCBCTLNK EQU UCBOBS06+12 02328000 UCBOBS07 EQU UCBDEV 02329000 UCBOBS08 EQU UCBDEV 02330000 UCBCTCAD EQU UCBOBS08 02331000 UCBCTCF1 EQU UCBOBS08+4 02332000 UCBOBS09 EQU UCBDEV 02333000 FIOQLNK EQU IOQLNK 02334000 LCHFSTF EQU LCHFST 02335000 PTRPTR EQU PTRBIT 02336000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02337000 UCBRV066 EQU UCBOBS09+4 02338000 UCBIOSBA EQU UCBOBS09 02339000 UCBRV042 EQU UCBOBS08+5 02340000 UCBRV082 EQU UCBCTCF1 02341000 UCBRV081 EQU UCBCTCF1 02342000 UCBRV080 EQU UCBCTCF1 02343000 UCBRV079 EQU UCBCTCF1 02344000 UCBRV078 EQU UCBCTCF1 02345000 UCBRV077 EQU UCBCTCF1 02346000 UCBRV076 EQU UCBCTCF1 02347000 UCBCTC80 EQU UCBCTCF1 02348000 UCBCTCAL EQU UCBCTCAD 02349000 UCBICNCB EQU UCBOBS07+4 02350000 UCBRV040 EQU UCBOBS07 02351000 UCBCTLNA EQU UCBCTLNK+1 02352000 UCBRLN EQU UCBCTLNK 02353000 UCBRDYQA EQU UCBLDNCB 02354000 UCBINRLN EQU UCBIRLN 02355000 UCBIRBA EQU UCBIRB+1 02356000 UCBRV039 EQU UCBGRAF 02357000 UCBDWNR EQU UCBGRAF 02358000 UCBRPND EQU UCBGRAF 02359000 UCBUPM EQU UCBGRAF 02360000 UCBBTAM EQU UCBGRAF 02361000 UCBDRNO EQU UCBGRAF 02362000 UCBDRO EQU UCBGRAF 02363000 UCBOIP EQU UCBGRAF 02364000 UCBATRCD EQU @NM00091 02365000 UCBSKPFG EQU @NM00091 02366000 UCBRIPND EQU @NM00091 02367000 UCBRTIAC EQU @NM00091 02368000 UCBRSV79 EQU @NM00091 02369000 UCBRSV78 EQU @NM00091 02370000 UCBRSV77 EQU @NM00091 02371000 UCBOLTEP EQU @NM00091 02372000 UCBATNCT EQU UCBOBS06+2 02373000 UCBRSV76 EQU UCBAOF2 02374000 UCBRSV75 EQU UCBAOF2 02375000 UCBRSV74 EQU UCBAOF2 02376000 UCBRSV73 EQU UCBAOF2 02377000 UCBRSV72 EQU UCBAOF2 02378000 UCBRSV71 EQU UCBAOF2 02379000 UCBRSV70 EQU UCBAOF2 02380000 UCBRSV69 EQU UCBAOF2 02381000 UCBRSV68 EQU UCBAOF1 02382000 UCBRSV67 EQU UCBAOF1 02383000 UCBRSV66 EQU UCBAOF1 02384000 UCBRSV65 EQU UCBAOF1 02385000 UCBRSV64 EQU UCBAOF1 02386000 UCBOFNL EQU UCBAOF1 02387000 UCBOFSP EQU UCBAOF1 02388000 UCBOFMCR EQU UCBAOF1 02389000 UCBBTB EQU UCBBTA+1 02390000 UCBDI EQU UCBBTA 02391000 UCBSNS EQU UCBOBS04+8 02392000 UCBTEB EQU UCBOBS04+4 02393000 UCBGCB EQU UCBOBS04+3 02394000 UCBOPEN EQU UCBOBS04+2 02395000 UCBSTART EQU UCBOBS04 02396000 UCBXTNB EQU UCBXTN+1 02397000 UCBRSV22 EQU UCBVOPT 02398000 UCBRSV21 EQU UCBVOPT 02399000 UCBRSV20 EQU UCBVOPT 02400000 UCBESVE EQU UCBVOPT 02401000 UCBERPC EQU UCBVOPT 02402000 UCBESVC EQU UCBVOPT 02403000 UCBEVA EQU UCBVOPT 02404000 UCBESV EQU UCBVOPT 02405000 UCBRV009 EQU UCBTFL1 02406000 UCBRV008 EQU UCBTFL1 02407000 UCBRV007 EQU UCBTFL1 02408000 UCBRV006 EQU UCBTFL1 02409000 UCBRV005 EQU UCBTFL1 02410000 UCBDQDSP EQU UCBTFL1 02411000 UCBNSLTP EQU UCBTFL1 02412000 UCBNLTP EQU UCBTFL1 02413000 UCBRES1B EQU UCBOBS02+18 02414000 UCBFSER EQU UCBOBS02+12 02415000 @NM00090 EQU UCBOBS02+4 02416000 UCBFSEQ EQU UCBOBS02+2 02417000 UCBFSCT EQU UCBOBS02 02418000 UCBNEXP EQU UCBOBS01+20 02419000 UCBBASE EQU UCBOBS01+16 02420000 UCBRES1A EQU UCBOBS01+15 02421000 UCBUSER EQU UCBOBS01+14 02422000 UCBFL47 EQU UCBFL4 02423000 UCBFL46 EQU UCBFL4 02424000 UCBFL45 EQU UCBFL4 02425000 UCBRV065 EQU UCBFL4 02426000 UCBDSS EQU UCBFL4 02427000 UCBRESVP EQU UCBFL4 02428000 UCBWDAV EQU UCBFL4 02429000 UCBDAVV EQU UCBFL4 02430000 UCBSQC EQU UCBOBS01+12 02431000 UCBDATP EQU UCBOBS01+12 02432000 UCBDMC EQU UCBDMCT 02433000 UCBMOUNT EQU UCBDMCT 02434000 UCBBNUL EQU UCBSTAB 02435000 UCBSHAR EQU UCBSTAB 02436000 UCBBSTR EQU UCBSTAB 02437000 UCBBPUB EQU UCBSTAB 02438000 UCBBPRV EQU UCBSTAB 02439000 UCBBALB EQU UCBPRSRS 02440000 UCBPGFL EQU UCBSTAB 02441000 UCBDVSHR EQU UCBBSVL 02442000 UCBVOLI EQU UCBOBS01+4 02443000 UCBVTOC EQU UCBOBS01 02444000 IOSPCIWA EQU IOSPCISC+44 02445000 IOSPCIRS EQU IOSPCISC+8 02446000 @NM00087 EQU IOSPCISC+4 02447000 @NM00086 EQU IOSPCISC 02448000 IOSWRNDR EQU IOSWTOWA+4 02449000 IOSWTOPT EQU IOSWTOWA+3 02450000 IOSWTOCP EQU IOSWTOWA+2 02451000 IOSWTOCH EQU IOSWTOWA 02452000 IOSATTWA EQU IOSATTSC+40 02453000 @NM00085 EQU IOSATTSC+24 02454000 IOSATTSN EQU IOSATTSC 02455000 CVTRV628 EQU CVTS01+728 02456000 CVTRV627 EQU CVTS01+724 02457000 CVTRV626 EQU CVTS01+720 02458000 CVTRV625 EQU CVTS01+716 02459000 CVTRV624 EQU CVTS01+712 02460000 CVTRV623 EQU CVTS01+708 02461000 CVTRV622 EQU CVTS01+704 02462000 CVTRV621 EQU CVTS01+700 02463000 CVTIHASU EQU CVTS01+696 02464000 CVTSUSP EQU CVTS01+692 02465000 CVTT6SVC EQU CVTS01+688 02466000 CVTCDAL EQU CVTS01+684 02467000 CVTTCTL EQU CVTS01+680 02468000 CVTRSUME EQU CVTS01+676 02469000 CVTJTERM EQU CVTS01+672 02470000 CVTASMRM EQU CVTS01+668 02471000 CVTTCASP EQU CVTS01+664 02472000 CVT0PT03 EQU CVTS01+660 02473000 CVT0PT0E EQU CVTS01+656 02474000 CVTRV609 EQU CVTS01+652 02475000 CVTCGK EQU CVTS01+648 02476000 CVTRAC EQU CVTS01+644 02477000 CVTRV606 EQU CVTS01+640 02478000 CVTRV605 EQU CVTS01+636 02479000 CVTRV604 EQU CVTS01+632 02480000 CVTEFF02 EQU CVTS01+628 02481000 CVTCBBR EQU CVTS01+624 02482000 CVTSSCR EQU CVTS01+620 02483000 CVTEVENT EQU CVTS01+616 02484000 CVTCRCA EQU CVTS01+612 02485000 CVTTPIO EQU CVTS01+608 02486000 CVTADV EQU CVTS01+604 02487000 CVTGSDAB EQU CVTGSDA 02488000 CVTQV3 EQU CVTS01+596 02489000 CVTQV2 EQU CVTS01+592 02490000 CVTQV1 EQU CVTS01+588 02491000 CVTRPT EQU CVTS01+584 02492000 CVTSSRB EQU CVTS01+580 02493000 CVTCSDRL EQU CVTS01+576 02494000 CVTEXP1 EQU CVTS01+572 02495000 CVTRMPMT EQU CVTS01+568 02496000 CVTRMPTT EQU CVTS01+564 02497000 CVTVPSA EQU CVTS01+560 02498000 CVTVSTOP EQU CVTS01+556 02499000 CVTGTFR8 EQU CVTS01+552 02500000 CVTQUIT EQU CVTS01+548 02501000 CVTVACR EQU CVTS01+544 02502000 CVTWTCB EQU CVTS01+540 02503000 CVTSTPRS EQU CVTS01+536 02504000 CVT0PT02 EQU CVTS01+532 02505000 CVTDARCM EQU CVTS01+528 02506000 CVTIRECM EQU CVTS01+524 02507000 CVTJRECM EQU CVTS01+520 02508000 CVTVEMS0 EQU CVTS01+516 02509000 CVTSPFRR EQU CVTS01+512 02510000 CVTRLSTG EQU CVTS01+508 02511000 CVT0TC0A EQU CVTS01+504 02512000 CVTGMBR EQU CVTS01+500 02513000 CVTLFRM EQU CVTS01+496 02514000 CVTRMBR EQU CVTS01+492 02515000 CVTVIOP EQU CVTS01+488 02516000 CVTRV307 EQU CVTS01+486 02517000 CVTRV306 EQU CVTS01+484 02518000 CVTRV305 EQU CVTS01+482 02519000 CVTRV304 EQU CVTS01+480 02520000 CVTRV303 EQU CVTS01+478 02521000 CVTRV302 EQU CVTS01+476 02522000 CVTTRCA EQU CVTS01+472 02523000 CVTRV297 EQU CVTRV289 02524000 CVTRV296 EQU CVTRV289 02525000 CVTRV295 EQU CVTRV289 02526000 CVTRV294 EQU CVTRV289 02527000 CVTRV293 EQU CVTRV289 02528000 CVTRV292 EQU CVTRV289 02529000 CVTRV291 EQU CVTRV289 02530000 CVTRV290 EQU CVTRV289 02531000 CVTRV288 EQU CVTRV280 02532000 CVTRV287 EQU CVTRV280 02533000 CVTRV286 EQU CVTRV280 02534000 CVTRV285 EQU CVTRV280 02535000 CVTRV284 EQU CVTRV280 02536000 CVTRV283 EQU CVTRV280 02537000 CVTRV282 EQU CVTRV280 02538000 CVTRV281 EQU CVTRV280 02539000 CVTRV279 EQU CVTRV271 02540000 CVTRV278 EQU CVTRV271 02541000 CVTRV277 EQU CVTRV271 02542000 CVTRV276 EQU CVTRV271 02543000 CVTRV275 EQU CVTRV271 02544000 CVTRV274 EQU CVTRV271 02545000 CVTRV273 EQU CVTRV271 02546000 CVTRV272 EQU CVTRV271 02547000 CVTRV270 EQU CVTRV262 02548000 CVTRV269 EQU CVTRV262 02549000 CVTRV268 EQU CVTRV262 02550000 CVTRV267 EQU CVTRV262 02551000 CVTRV266 EQU CVTRV262 02552000 CVTRV265 EQU CVTRV262 02553000 CVTRV264 EQU CVTRV262 02554000 CVTRV263 EQU CVTRV262 02555000 CVTVFP EQU CVTS01+464 02556000 CVTVSI EQU CVTS01+460 02557000 CVTVPSIB EQU CVTS01+456 02558000 CVTMFACT EQU CVTMFRTR 02559000 CVTMFCTL EQU CVTS01+448 02560000 CVTPVBP EQU CVTS01+444 02561000 CVTPWI EQU CVTS01+440 02562000 CVTRV254 EQU CVTS01+438 02563000 CVTRV253 EQU CVTS01+436 02564000 CVTRV252 EQU CVTS01+434 02565000 CVTRV251 EQU CVTS01+433 02566000 CVTRV250 EQU CVTS01+432 02567000 CVTRV249 EQU CVTS01+431 02568000 CVTRV248 EQU CVTS01+430 02569000 CVTRV247 EQU CVTS01+429 02570000 CVTRV246 EQU CVTS01+428 02571000 CVTRV245 EQU CVTRV237 02572000 CVTRV244 EQU CVTRV237 02573000 CVTRV243 EQU CVTRV237 02574000 CVTRV242 EQU CVTRV237 02575000 CVTRV241 EQU CVTRV237 02576000 CVTRV240 EQU CVTRV237 02577000 CVTRV239 EQU CVTRV237 02578000 CVTRV238 EQU CVTRV237 02579000 CVTRV236 EQU CVTRV228 02580000 CVTRV235 EQU CVTRV228 02581000 CVTRV234 EQU CVTRV228 02582000 CVTRV233 EQU CVTRV228 02583000 CVTRV232 EQU CVTRV228 02584000 CVTRV231 EQU CVTRV228 02585000 CVTRV230 EQU CVTRV228 02586000 CVTRV229 EQU CVTRV228 02587000 CVTRV227 EQU CVTRV219 02588000 CVTRV226 EQU CVTRV219 02589000 CVTRV225 EQU CVTRV219 02590000 CVTRV224 EQU CVTRV219 02591000 CVTRV223 EQU CVTRV219 02592000 CVTRV222 EQU CVTRV219 02593000 CVTRV221 EQU CVTRV219 02594000 CVTRV220 EQU CVTRV219 02595000 CVTRV218 EQU CVTRV210 02596000 CVTRV217 EQU CVTRV210 02597000 CVTRV216 EQU CVTRV210 02598000 CVTRV215 EQU CVTRV210 02599000 CVTRV214 EQU CVTRV210 02600000 CVTRV213 EQU CVTRV210 02601000 CVTRV212 EQU CVTRV210 02602000 CVTRV211 EQU CVTRV210 02603000 CVTLCCAT EQU CVTS01+420 02604000 CVTPCCAT EQU CVTS01+416 02605000 CVTIPCRP EQU CVTS01+412 02606000 CVTIPCRI EQU CVTS01+408 02607000 CVTIPCDS EQU CVTS01+404 02608000 CVTAIDVT EQU CVTS01+400 02609000 CVTSSAP EQU CVTS01+396 02610000 CVTEHCIR EQU CVTS01+392 02611000 CVTEHDEF EQU CVTS01+388 02612000 CVTDAIR EQU CVTS01+384 02613000 CVTPERFM EQU CVTS01+380 02614000 CVT044R2 EQU CVTS01+376 02615000 CVTFETCH EQU CVTS01+372 02616000 CVTRSTWD EQU CVTS01+368 02617000 CVTSPOST EQU CVTS01+364 02618000 CVTIOBP EQU CVTS01+360 02619000 CVTASMVT EQU CVTS01+356 02620000 CVTRECRQ EQU CVTS01+352 02621000 CVTWSAC EQU CVTS01+348 02622000 CVTRV149 EQU CVTS01+344 02623000 CVTWSAL EQU CVTS01+340 02624000 CVTSPSA EQU CVTS01+336 02625000 CVTGLMN EQU CVTS01+332 02626000 CVTVEAC0 EQU CVTS01+328 02627000 CVT062R1 EQU CVTS01+324 02628000 CVTRPOST EQU CVTS01+320 02629000 CVTDQIQE EQU CVTS01+316 02630000 CVTCSD EQU CVTS01+312 02631000 CVTLKRMA EQU CVTS01+308 02632000 CVTRSPIE EQU CVTS01+304 02633000 CVTRENQ EQU CVTS01+300 02634000 CVTLQCB EQU CVTS01+296 02635000 CVTFQCB EQU CVTS01+292 02636000 CVTQCS01 EQU CVTS01+288 02637000 CVTAPFT EQU CVTS01+284 02638000 CVTPARRL EQU CVTS01+280 02639000 CVTVWAIT EQU CVTS01+276 02640000 CVTGSPL EQU CVTS01+272 02641000 CVTLSMQ EQU CVTS01+268 02642000 CVTGSMQ EQU CVTS01+264 02643000 CVTEXPRO EQU CVTS01+260 02644000 CVTOPCTP EQU CVTS01+256 02645000 CVTSIC EQU CVTS01+252 02646000 CVTTPIOS EQU CVTS01+248 02647000 CVTRTMS EQU CVTS01+244 02648000 CVTSDBF EQU CVTS01+240 02649000 CVTSCBP EQU CVTS01+236 02650000 CVTSDMP EQU CVTS01+232 02651000 CVTSV60 EQU CVTS01+228 02652000 CVTRTMCT EQU CVTS01+224 02653000 CVTASCBL EQU CVTS01+220 02654000 CVTASCBH EQU CVTS01+216 02655000 CVTGDA EQU CVTS01+212 02656000 CVTASVT EQU CVTS01+208 02657000 CVTVVMDI EQU CVTS01+204 02658000 CVTAQTOP EQU CVTS01+200 02659000 CVTIOSCS EQU CVTS01+196 02660000 CVTSDRM EQU CVTS01+192 02661000 CVTOPTE EQU CVTS01+188 02662000 CVTSTXU EQU CVTS01+184 02663000 CVTQUIS EQU CVTS01+180 02664000 CVTPARS EQU CVTS01+176 02665000 CVTS1EE EQU CVTS01+172 02666000 CVTFRAS EQU CVTS01+168 02667000 CVTQSAS EQU CVTS01+164 02668000 CVTCRAS EQU CVTS01+160 02669000 CVTCRMN EQU CVTS01+156 02670000 CVTDELCP EQU CVTS01+152 02671000 CVTFRECL EQU CVTS01+148 02672000 CVTGETCL EQU CVTS01+144 02673000 CVTBLDCP EQU CVTS01+140 02674000 CVTAUTHL EQU CVTS01+136 02675000 CVTSCAN EQU CVTS01+132 02676000 CVTRV144 EQU CVTS01+130 02677000 CVTMAXMP EQU CVTS01+128 02678000 CVTSTCK EQU CVTS01+124 02679000 CVTRV139 EQU CVTS01+123 02680000 CVTDSSAC EQU CVTS01+122 02681000 CVTRV513 EQU CVTS01+121 02682000 CVTIOSPL EQU CVTS01+120 02683000 CVTPTGT EQU CVTS01+116 02684000 CVTCSPIE EQU CVTS01+112 02685000 CVTSMFEX EQU CVTS01+108 02686000 CVTOLT0A EQU CVTS01+104 02687000 CVTSRBRT EQU CVTS01+100 02688000 CVTPUTL EQU CVTS01+96 02689000 CVTASCRL EQU CVTS01+92 02690000 CVTASCRF EQU CVTS01+88 02691000 CVTRV326 EQU CVTS01+84 02692000 CVTRV325 EQU CVTS01+80 02693000 CVTRV324 EQU CVTS01+76 02694000 CVT0VL01 EQU CVTS01+72 02695000 CVTSHRVM EQU CVTS01+68 02696000 CVTRV332 EQU CVTS01+64 02697000 CVTTAS EQU CVTS01+60 02698000 CVTRSCN EQU CVTS01+56 02699000 CVTTRAC2 EQU CVTS01+54 02700000 CVTTRACE EQU CVTS01+52 02701000 CVTAPG EQU CVTS01+51 02702000 CVTSDTRC EQU CVTCTLFG 02703000 CVTGTRCE EQU CVTCTLFG 02704000 CVTNOMP EQU CVTCTLFG 02705000 CVTRSV79 EQU CVTCTLFG 02706000 CVTDSTAT EQU CVTCTLFG 02707000 CVTRSV78 EQU CVTCTLFG 02708000 CVTRV333 EQU CVTCTLFG 02709000 CVTRV323 EQU CVTCTLFG 02710000 CVTSPVLK EQU CVTS01+49 02711000 CVTRSV77 EQU CVTS01+48 02712000 CVTRV331 EQU CVTS01+44 02713000 CVTRV330 EQU CVTS01+40 02714000 CVTRV329 EQU CVTS01+36 02715000 CVTRV328 EQU CVTS01+32 02716000 CVTRV322 EQU CVTS01+28 02717000 CVTSLID EQU CVTSLIDA+1 02718000 CVTSYLK EQU CVTSLIDA 02719000 CVTRV321 EQU CVTS01+20 02720000 CVTRV320 EQU CVTS01+16 02721000 CVTLPDIR EQU CVTLPDIA+1 02722000 CVTRSV69 EQU CVTDIRST 02723000 CVTRSV68 EQU CVTDIRST 02724000 CVTRSV67 EQU CVTDIRST 02725000 CVTRSV66 EQU CVTDIRST 02726000 CVTRSV65 EQU CVTDIRST 02727000 CVTRSV64 EQU CVTDIRST 02728000 CVTRSV63 EQU CVTDIRST 02729000 CVTDICOM EQU CVTDIRST 02730000 CVTPVTP EQU CVTS01+8 02731000 CVTLPDSR EQU CVTS01+4 02732000 CVTGETL EQU CVTS01 02733000 CPPLCBUF EQU CPPL 02734000 PDSP EQU PDDSECT+4 02735000 @NM00118 EQU PDDSECT 02736000 UCBERADR EQU UCBUCS+12 02737000 UCBFCBID EQU UCBUCS+8 02738000 UCBERCNT EQU UCBUCS+7 02739000 UCBRSV51 EQU UCBUCS+6 02740000 UCBFCBPE EQU UCBFCBOP 02741000 UCBRSV49 EQU UCBFCBOP 02742000 UCBRSV48 EQU UCBFCBOP 02743000 UCBRSV47 EQU UCBFCBOP 02744000 UCBRSV46 EQU UCBFCBOP 02745000 UCBRSV45 EQU UCBFCBOP 02746000 UCBRSV44 EQU UCBFCBOP 02747000 UCBFCBO1 EQU UCBFCBOP 02748000 UCBUCSPE EQU UCBUCSOP 02749000 UCBRSV43 EQU UCBUCSOP 02750000 UCBRSV42 EQU UCBUCSOP 02751000 UCBRSV41 EQU UCBUCSOP 02752000 UCBRSV40 EQU UCBUCSOP 02753000 UCBRSV39 EQU UCBUCSOP 02754000 UCBUCSO2 EQU UCBUCSOP 02755000 UCBUCSO1 EQU UCBUCSOP 02756000 UCBUCSID EQU UCBUCS 02757000 UCBMDRBA EQU UCBMDRBF+1 02758000 UCBRV075 EQU UCBMDRBF 02759000 UCBRV074 EQU UCB3800X+32 02760000 UCBIMAGE EQU UCB3800X+28 02761000 UCBFCBNM EQU UCB3800X+24 02762000 UCBCHAR4 EQU UCB3800X+20 02763000 UCBCHAR3 EQU UCB3800X+16 02764000 UCBCHAR2 EQU UCB3800X+12 02765000 UCBCHAR1 EQU UCB3800X+8 02766000 UCBCGMID EQU UCB3800X+4 02767000 UCBBRSTA EQU UCBACTIV 02768000 UCBRV063 EQU UCBACTIV 02769000 UCBRV062 EQU UCBACTIV 02770000 UCBRV061 EQU UCBACTIV 02771000 UCBRV060 EQU UCBACTIV 02772000 UCBRV059 EQU UCBACTIV 02773000 UCBRV058 EQU UCBACTIV 02774000 UCBRV057 EQU UCBACTIV 02775000 UCBRV050 EQU UCB3800X+2 02776000 UCBCGMNO EQU UCB3800X+1 02777000 UCBRV083 EQU UCBOPTNS 02778000 UCBBRSTR EQU UCBOPTNS 02779000 UCBRV056 EQU UCBOPTNS 02780000 UCBRV055 EQU UCBOPTNS 02781000 UCBRV054 EQU UCBOPTNS 02782000 UCBRV053 EQU UCBOPTNS 02783000 UCBRV052 EQU UCBOPTNS 02784000 UCBRV051 EQU UCBOPTNS 02785000 UCBRV073 EQU UCB3540X+7 02786000 UCBRV072 EQU UCBDKBYT 02787000 UCBRV071 EQU UCBDKBYT 02788000 UCBRV070 EQU UCBDKBYT 02789000 UCBRV069 EQU UCBDKBYT 02790000 UCBRV068 EQU UCBDKBYT 02791000 UCBRV067 EQU UCBDKBYT 02792000 UCBVLVER EQU UCBDKBYT 02793000 UCBDKAMX EQU UCBDKBYT 02794000 UCBVLSER EQU UCB3540X 02795000 UCBRDATA EQU UCBOCR+4 02796000 UCBFRID EQU UCBOCR 02797000 UCBCLN EQU UCBMT+14 02798000 UCBERG EQU UCBMT+12 02799000 UCBMS EQU UCBMT+11 02800000 UCBNB EQU UCBMT+10 02801000 UCBPW EQU UCBMT+9 02802000 UCBPR EQU UCBMT+8 02803000 UCBSIO EQU UCBMT+6 02804000 UCBTW EQU UCBMT+5 02805000 UCBTR EQU UCBMT+4 02806000 UCBTWT EQU UCBMT+3 02807000 UCBTRT EQU UCBMT+2 02808000 UCBCTD EQU UCBMT 02809000 UCBWTOID EQU UCBCMEXT+17 02810000 UCBRV043 EQU UCBCMEXT+16 02811000 UCBASID EQU UCBCMEXT+14 02812000 UCBMFCNT EQU UCBCMEXT+12 02813000 UCBPMSK EQU UCBCMEXT+10 02814000 UCBCCWOF EQU UCBCMEXT+8 02815000 UCBRV041 EQU UCBCMEXT+6 02816000 UCBRV036 EQU UCBFLP1 02817000 UCBRV035 EQU UCBFLP1 02818000 UCBERLOG EQU UCBFLP1 02819000 UCBRV033 EQU UCBFLP1 02820000 UCBINHIO EQU UCBFLP1 02821000 UCBNSWAP EQU UCBFLP1 02822000 UCBSHRUP EQU UCBFLP1 02823000 UCBNSRCH EQU UCBFLP1 02824000 UCBSNSCT EQU UCBCMEXT+4 02825000 UCBHPDV EQU @NM00092 02826000 UCBHALI EQU @NM00092 02827000 UCBRSV09 EQU @NM00092 02828000 UCBRSV08 EQU @NM00092 02829000 UCBRSV07 EQU @NM00092 02830000 UCBRSV06 EQU @NM00092 02831000 UCBRSV05 EQU @NM00092 02832000 UCBRSV04 EQU @NM00092 02833000 UCBDTI EQU UCBCMEXT+2 02834000 UCBSTI EQU UCBCMEXT+1 02835000 UCBETI EQU UCBCMEXT 02836000 UCBEXTP EQU UCBEXTPT+1 02837000 UCBDDRSW EQU UCBFLC 02838000 UCBTICBT EQU UCBFLC 02839000 UCBIVRR EQU UCBFLC 02840000 UCBIVRS EQU UCBFLC 02841000 UCBITF EQU UCBFLC 02842000 UCBUDE EQU UCBFLC 02843000 UCBWAA EQU UCBFLC 02844000 UCBATTP EQU UCBFLC 02845000 UCBUNTYP EQU UCBTBYT4 02846000 UCBRSV11 EQU UCBDVCLS 02847000 UCBRSV10 EQU UCBDVCLS 02848000 UCB3CHAR EQU UCBDVCLS 02849000 UCB3UREC EQU UCBDVCLS 02850000 UCB3DISP EQU UCBDVCLS 02851000 UCB3DACC EQU UCBDVCLS 02852000 UCB3TAPE EQU UCBDVCLS 02853000 UCBDVPWR EQU UCB2OPT7 02854000 UCBVLPWR EQU UCB2OPT6 02855000 UCB2OPT5 EQU UCBTBYT2 02856000 UCBRVDEV EQU UCBRWTAU 02857000 UCBRPS EQU UCBDUDN2 02858000 UCBRR EQU UCBDUDN1 02859000 UCB2OPT1 EQU UCBTBYT2 02860000 UCB2OPT0 EQU UCBTBYT2 02861000 UCB1FEA7 EQU UCBTBYT1 02862000 UCBD6250 EQU UCB1FEA6 02863000 UCBD1600 EQU UCB1FEA5 02864000 UCB1FEA4 EQU UCBTBYT1 02865000 UCB1FEA3 EQU UCBTBYT1 02866000 UCB1FEA2 EQU UCBTBYT1 02867000 UCB1FEA1 EQU UCBTBYT1 02868000 UCB1FEA0 EQU UCBTBYT1 02869000 UCBRV029 EQU UCBWGT 02870000 UCBVHRSN EQU UCBWGT 02871000 UCBVORSN EQU UCBWGT 02872000 UCBMTPXP EQU UCBWGT 02873000 UCBREW EQU UCBWGT 02874000 UCBPUB EQU UCBWGT 02875000 UCBOUT EQU UCBWGT 02876000 UCBIN EQU UCBWGT 02877000 UCBCPU EQU UCBOB+11 02878000 UCBLCI EQU UCBOB+10 02879000 UCBCNT EQU UCBOB+9 02880000 UCBRV017 EQU UCBCHM1 02881000 UCBRV016 EQU UCBCHM1 02882000 UCBRV015 EQU UCBCHM1 02883000 UCBRV014 EQU UCBCHM1 02884000 UCBSPB EQU UCBPTH1 02885000 UCBPPB EQU UCBPTH1 02886000 UCBSPA EQU UCBPTH0 02887000 UCBPPA EQU UCBPTH0 02888000 UCBSIGP EQU UCBFLB 02889000 UCBVALPH EQU UCBFLB 02890000 UCBCRHSN EQU UCBFLB 02891000 UCBCRHRV EQU UCBFLB 02892000 UCBRESVH EQU UCBFLB 02893000 UCBSPST EQU UCBFLB 02894000 UCBASNS EQU UCBFLB 02895000 UCBIORST EQU UCBFLB 02896000 UCBQISCE EQU UCBFL1 02897000 UCBSAP EQU UCBFL1 02898000 UCBNOTRC EQU UCBCUB 02899000 UCBPSNS EQU UCBFL1 02900000 UCBUSING EQU UCBPST 02901000 UCBNOTRD EQU UCBNRY 02902000 UCBBUSYD EQU UCBBSY 02903000 UCBUA EQU UCBCHAN+1 02904000 UCBCHA EQU UCBCHAN 02905000 UCBDADI EQU UCBSTAT 02906000 UCBSYSR EQU UCBSTAT 02907000 UCBPRES EQU UCBSTAT 02908000 UCBALOC EQU UCBSTAT 02909000 UCBUNLD EQU UCBSTAT 02910000 UCBRESV EQU UCBSTAT 02911000 UCBCHGS EQU UCBSTAT 02912000 UCBALTPH EQU UCBFL5 02913000 UCBALTCU EQU UCBFL5 02914000 UCBNALOC EQU UCBFL5 02915000 UCBENVRD EQU UCBFL5 02916000 UCBVSDR EQU UCBFL5 02917000 UCBSASK EQU UCBFL5 02918000 UCBAMV EQU UCBAF 02919000 UCBDCC EQU UCBFL5 02920000 UCBMONT EQU UCBJBNR 02921000 UCBRV011 EQU UCBJBNR 02922000 UCBMMSGP EQU UCBJBNR 02923000 UCBOLDSM EQU UCBJBNR 02924000 UCBRV003 EQU UCBJBNR 02925000 UCBDUC EQU UCBJBNR 02926000 UCBJES3 EQU UCBJBNR 02927000 UCBVRDEV EQU UCBJBNR 02928000 UCBCMSEG EQU UCBOB 02929000 UCBPFXND EQU UCB+512 02930000 UCBIOQ EQU UCB+508 02931000 UCBLOCK EQU UCB+504 02932000 UCBPXST EQU UCB+504 02933000 @NM00089 EQU UCB 02934000 LCHEND EQU LCH+32 02935000 LCHPYBSY EQU LCH+30 02936000 LCHLGBSY EQU LCH+28 02937000 LCHRSV03 EQU LCH+26 02938000 LCHTOTAL EQU LCH+24 02939000 LCHRSV02 EQU LCH+22 02940000 @NM00088 EQU LCHFLA 02941000 LCHLKHLD EQU LCHFLA 02942000 LCHCHCNT EQU LCH+20 02943000 LCHTCH EQU LCH+16 02944000 LCHRSV01 EQU LCH+12 02945000 LCHLOCK EQU LCH+8 02946000 IOSEND EQU IOSB+108 02947000 IOSSKR EQU IOSEEKA+7 02948000 IOSSKH2 EQU IOSSKHH+1 02949000 IOSSKH1 EQU IOSSKHH 02950000 IOSSKCC EQU IOSCCHH 02951000 IOSSKBB EQU IOSEEKA+1 02952000 IOSSKM EQU IOSEEKA 02953000 IOSEEK EQU IOSB+92 02954000 IOSMDM EQU IOSB+91 02955000 IOSMDB EQU IOSB+90 02956000 IOSCKEY7 EQU IOSCKEY 02957000 IOSCKEY6 EQU IOSCKEY 02958000 IOSCKEY5 EQU IOSCKEY 02959000 IOSCKEY4 EQU IOSCKEY 02960000 @NM00084 EQU IOSCKEY 02961000 IOSFMSK EQU IOSB+88 02962000 IOSCUDEV EQU IOSPATH+1 02963000 @NM00083 EQU IOSCHN 02964000 IOSPATH3 EQU IOSCHN 02965000 IOSPATH2 EQU IOSCHN 02966000 IOSEXP EQU IOSCHN 02967000 IOSGDP EQU IOSCHN 02968000 IOSAFF EQU IOSB+85 02969000 IOSRSS1B EQU IOSB+84 02970000 IOSDSID EQU IOSB+80 02971000 IOSVST EQU IOSB+76 02972000 IOSRST EQU IOSB+72 02973000 IOSDIE EQU IOSB+68 02974000 IOSABN EQU IOSB+64 02975000 IOSNRM EQU IOSB+60 02976000 IOSPCI EQU IOSB+56 02977000 IOSERP EQU IOSB+52 02978000 IOSPCHN EQU IOSB+48 02979000 IOSSNS EQU IOSB+42 02980000 IOSAPMSK EQU IOSB+40 02981000 IOSRES4A EQU IOSB+36 02982000 IOSUSE EQU IOSB+32 02983000 IOSSRB EQU IOSB+28 02984000 IOSCSWRC EQU IOSCSW+5 02985000 IOSTSB EQU IOSTATUS+1 02986000 IOSTSA EQU IOSTATUS 02987000 IOSCSWCA EQU IOSCSW 02988000 IOSCC EQU @NM00082 02989000 IOSOPT2X EQU IOSOPT2 02990000 IOSIGP EQU IOSOPT2 02991000 IOSHTP EQU IOSOPT2 02992000 IOSRELSE EQU IOSOPT 02993000 IOSAPR EQU IOSOPT 02994000 IOSTSLL EQU IOSOPT 02995000 IOSNERP EQU IOSOPT 02996000 IOSPSLL EQU IOSOPT 02997000 IOSQISCE EQU IOSOPT 02998000 IOSDEP EQU IOSOPT 02999000 IOSBYP EQU IOSOPT 03000000 IOSCOD EQU IOSB+13 03001000 IOSPKY7 EQU IOSPKEY 03002000 IOSPGDPX EQU IOSPKEY 03003000 IOSIDR EQU IOSPKEY 03004000 IOSLCL EQU IOSPKEY 03005000 @NM00081 EQU IOSPKEY 03006000 IOSPGAD EQU IOSB+8 03007000 IOSASID EQU IOSB+6 03008000 IOSPRLVL EQU IOSB+5 03009000 IOSDVRID EQU IOSB+4 03010000 IOSPROC EQU IOSB+3 03011000 IOSFLC7 EQU IOSFLC 03012000 IOSCTCNR EQU IOSFLC 03013000 IOSRWAIT EQU IOSFLC 03014000 IOSTP EQU IOSFLC 03015000 IOSCC3WE EQU IOSFLC 03016000 IOSVERIF EQU IOSDVALT 03017000 IOSDVMNT EQU IOSFLC 03018000 IOSLOG EQU IOSFLB 03019000 IOSBDCST EQU IOSFLB 03020000 IOSMSG EQU IOSFLB 03021000 IOSFLB4 EQU IOSFLB 03022000 IOSFLB3 EQU IOSFLB 03023000 IOSNOTRS EQU IOSFLB 03024000 IOSSDR EQU IOSFLB 03025000 IOSDIESE EQU IOSFLB 03026000 IOSIOSB EQU IOSFLA 03027000 IOSDOM EQU IOSFLA 03028000 IOSEX EQU IOSFLA 03029000 IOSSMDB EQU IOSFLA 03030000 IOSSMDA EQU IOSFLA 03031000 IOSERR EQU IOSFLA 03032000 IOSCCHN EQU IOSACHN 03033000 IOSDCHN EQU IOSACHN 03034000 IOXEND EQU IOCX+32 03035000 IOXPSIF EQU IOCX+28 03036000 IOXPSIX EQU IOCX+24 03037000 IOXSTIDC EQU IOCX+20 03038000 IOXCRHD EQU IOCX+16 03039000 IOXCRHA EQU IOCX+12 03040000 IOXTCQSC EQU IOCX+8 03041000 @NM00080 EQU IOCX+6 03042000 IOXHICH EQU IOCX+4 03043000 IOXCHMSK EQU IOCX+2 03044000 IOXOFSET EQU IOX 03045000 IOCOEND EQU IOCOM+128 03046000 IOCPATCH EQU IOCOM+124 03047000 IOCUCBBM EQU IOCOM+120 03048000 IOCQCNT EQU IOCOM+116 03049000 IOCIOSDQ EQU IOCOM+112 03050000 IOCIOSEQ EQU IOCOM+108 03051000 IOCSVCF EQU IOCOM+104 03052000 IOCTCCW EQU IOCOM+100 03053000 IOCRSVTB EQU IOCOM+96 03054000 IOCMFCNT EQU IOCOM+92 03055000 IOCMFHK EQU IOCOM+88 03056000 IOCGENA EQU IOCOM+84 03057000 IOCCCH EQU IOCOM+80 03058000 IOCASYNQ EQU IOCOM+76 03059000 IOCLCHTB EQU IOCOM+72 03060000 IOCATTBL EQU IOCOM+68 03061000 IOCSYNCH EQU IOCOM+56 03062000 IOCCATLK EQU IOCOM+48 03063000 IOCPRGID EQU IOCOM+44 03064000 IOCIOSCP EQU IOCOM+40 03065000 IOCORMGT EQU IOCOM+36 03066000 IOCVOID EQU IOCOM+32 03067000 IOCSTIO EQU IOCOM+28 03068000 IOCSCOMP EQU IOCOM+24 03069000 IOCHD160 EQU IOCOM+20 03070000 IOCINT EQU IOCOM+16 03071000 IOCCTBL EQU IOCOM+12 03072000 IOCHIO EQU IOCOM+8 03073000 IOCPST EQU IOCOM+4 03074000 IOCPGCT EQU IOCOM+2 03075000 IOCVOICT EQU IOCOM 03076000 CVTLEVL EQU CVTRELNO+2 03077000 CVTNUMB EQU CVTRELNO 03078000 CVTMDL EQU CVTFIX+250 03079000 @NM00079 EQU CVTFIX+248 03080000 @NM00078 EQU CVTFIX 03081000 CVTRV482 EQU CVTXTNT2+128 03082000 CVTRV481 EQU CVTXTNT2+124 03083000 CVTRV480 EQU CVTXTNT2+120 03084000 CVTRV479 EQU CVTXTNT2+118 03085000 CVTRV478 EQU CVTXTNT2+117 03086000 CVTRV477 EQU CVTXTNT2+116 03087000 CVTRV476 EQU CVTXTNT2+115 03088000 CVTRV475 EQU CVTXTNT2+114 03089000 CVTRV474 EQU CVTRV466 03090000 CVTRV473 EQU CVTRV466 03091000 CVTRV472 EQU CVTRV466 03092000 CVTRV471 EQU CVTRV466 03093000 CVTRV470 EQU CVTRV466 03094000 CVTRV469 EQU CVTRV466 03095000 CVTRV468 EQU CVTRV466 03096000 CVTRV467 EQU CVTRV466 03097000 CVTRV465 EQU CVTRV457 03098000 CVTRV464 EQU CVTRV457 03099000 CVTRV463 EQU CVTRV457 03100000 CVTRV462 EQU CVTRV457 03101000 CVTRV461 EQU CVTRV457 03102000 CVTRV460 EQU CVTRV457 03103000 CVTRV459 EQU CVTRV457 03104000 CVTRV458 EQU CVTRV457 03105000 CVTRV456 EQU CVTXTNT2+108 03106000 CVTRV455 EQU CVTXTNT2+104 03107000 CVTRV454 EQU CVTXTNT2+100 03108000 CVTRV453 EQU CVTXTNT2+96 03109000 CVTRV452 EQU CVTXTNT2+94 03110000 CVTRV451 EQU CVTXTNT2+92 03111000 CVTRV450 EQU CVTXTNT2+90 03112000 CVTRV449 EQU CVTXTNT2+88 03113000 CVTRV448 EQU CVTXTNT2+87 03114000 CVTRV447 EQU CVTXTNT2+86 03115000 CVTRV446 EQU CVTRV438 03116000 CVTRV445 EQU CVTRV438 03117000 CVTRV444 EQU CVTRV438 03118000 CVTRV443 EQU CVTRV438 03119000 CVTRV442 EQU CVTRV438 03120000 CVTRV441 EQU CVTRV438 03121000 CVTRV440 EQU CVTRV438 03122000 CVTRV439 EQU CVTRV438 03123000 CVTRV437 EQU CVTRV429 03124000 CVTRV436 EQU CVTRV429 03125000 CVTRV435 EQU CVTRV429 03126000 CVTRV434 EQU CVTRV429 03127000 CVTRV433 EQU CVTRV429 03128000 CVTRV432 EQU CVTRV429 03129000 CVTRV431 EQU CVTRV429 03130000 CVTRV430 EQU CVTRV429 03131000 CVTRV428 EQU CVTXTNT2+80 03132000 CVTRV427 EQU CVTXTNT2+76 03133000 CVTRV426 EQU CVTXTNT2+72 03134000 CVTRV425 EQU CVTXTNT2+68 03135000 CVTATACT EQU CVTATCVT 03136000 CVTRV423 EQU CVTXTNT2+62 03137000 CVTRV422 EQU CVTXTNT2+60 03138000 CVTRV421 EQU CVTXTNT2+58 03139000 CVTRV420 EQU CVTXTNT2+56 03140000 CVTRV419 EQU CVTXTNT2+55 03141000 CVTRV418 EQU CVTXTNT2+54 03142000 CVTRV417 EQU CVTRV409 03143000 CVTRV416 EQU CVTRV409 03144000 CVTRV415 EQU CVTRV409 03145000 CVTRV414 EQU CVTRV409 03146000 CVTRV413 EQU CVTRV409 03147000 CVTRV412 EQU CVTRV409 03148000 CVTRV411 EQU CVTRV409 03149000 CVTRV410 EQU CVTRV409 03150000 CVTRV408 EQU CVTRV400 03151000 CVTRV407 EQU CVTRV400 03152000 CVTRV406 EQU CVTRV400 03153000 CVTRV405 EQU CVTRV400 03154000 CVTRV404 EQU CVTRV400 03155000 CVTRV403 EQU CVTRV400 03156000 CVTRV402 EQU CVTRV400 03157000 CVTRV401 EQU CVTRV400 03158000 CVTICB EQU CVTXTNT2+48 03159000 CVTSKTA EQU CVTXTNT2+44 03160000 CVTRSV99 EQU CVTXTNT2+40 03161000 CVTRSV98 EQU CVTXTNT2+36 03162000 CVTRSV97 EQU CVTXTNT2+34 03163000 CVTRSV96 EQU CVTXTNT2+32 03164000 CVTOLTEP EQU CVTXTNT2+28 03165000 CVTQIDA EQU CVTQID+1 03166000 CVTRSV95 EQU CVTQID 03167000 CVTRSV94 EQU CVTXTNT2+20 03168000 CVTRSV93 EQU CVTXTNT2+16 03169000 CVTRSV92 EQU CVTXTNT2+12 03170000 CVTDEBVR EQU CVTXTNT2+8 03171000 CVTRSV91 EQU CVTXTNT2+6 03172000 CVTRSV9H EQU CVTFLGBT 03173000 CVTRSV9G EQU CVTFLGBT 03174000 CVTRSV9F EQU CVTFLGBT 03175000 CVTRSV9E EQU CVTFLGBT 03176000 CVTRSV9D EQU CVTFLGBT 03177000 CVTRSV9C EQU CVTFLGBT 03178000 CVTVME EQU CVTFLGBT 03179000 CVTNPE EQU CVTFLGBT 03180000 CVTNUCLS EQU CVTXTNT2+4 03181000 CVTDSSVA EQU CVTDSSV+1 03182000 CVTRSV89 EQU CVTDSSV 03183000 CVTRSV88 EQU CVTXTNT1+8 03184000 CVTRSV87 EQU CVTXTNT1+4 03185000 CVTFACHN EQU CVTXTNT1 03186000 CVTRV488 EQU CVTMAP+412 03187000 CVTRV487 EQU CVTMAP+408 03188000 CVTRV486 EQU CVTMAP+404 03189000 CVTRV485 EQU CVTMAP+400 03190000 CVTACTAP EQU CVTMAP+396 03191000 CVTAUTH EQU CVTMAP+392 03192000 CVTATMCA EQU CVTATMCT+1 03193000 CVTATMST EQU CVTATMCT 03194000 CVTRSV61 EQU CVTMAP+384 03195000 CVTVOLT1 EQU CVTVOLM1+1 03196000 CVTVOLI1 EQU CVTVOLF1 03197000 CVTSTOA EQU CVTMAP+376 03198000 CVTRSV58 EQU CVTMAP+374 03199000 CVTRSV57 EQU CVTMAP+372 03200000 CVTDDCE EQU CVTMAP+368 03201000 CVTPNWFR EQU CVTMAP+364 03202000 CVTSMF EQU CVTMAP+360 03203000 CVTSULK EQU CVTMAP+358 03204000 CVTSLKO EQU CVTSYSK 03205000 CVTSLKP EQU CVTSYSK 03206000 CVTSLKQ EQU CVTSYSK 03207000 CVTSLKR EQU CVTSYSK 03208000 CVTRSV56 EQU CVTSYSK 03209000 CVTRSV55 EQU CVTSYSK 03210000 CVTRSV54 EQU CVTSYSK 03211000 CVTRSV53 EQU CVTSYSK 03212000 CVTRSV52 EQU CVTA1F1 03213000 CVTRSV51 EQU CVTA1F1 03214000 CVTRSV50 EQU CVTA1F1 03215000 CVTRSV49 EQU CVTA1F1 03216000 CVTRSV48 EQU CVTA1F1 03217000 CVTRSV47 EQU CVTA1F1 03218000 CVTSRSW EQU CVTA1F1 03219000 CVTPFSW EQU CVTA1F1 03220000 CVTPCVT EQU CVTMAP+352 03221000 CVTRSV46 EQU CVTMAP+344 03222000 CVTRSV45 EQU CVTMAP+340 03223000 CVTRSV44 EQU CVTMAP+338 03224000 CVTRSV43 EQU CVTMAP+336 03225000 CVTHJESA EQU CVTHJES+1 03226000 CVTRSV42 EQU CVTHJES 03227000 CVTEXT2A EQU CVTEXT2+1 03228000 CVTRSV41 EQU CVTEXT2 03229000 CVTAPFA EQU CVTAPF+1 03230000 CVTRSV40 EQU CVTAPF 03231000 CVTRV518 EQU CVTINTLA 03232000 CVTRV517 EQU CVTERPV 03233000 CVTEORM EQU CVTMAP+312 03234000 CVTMCHPR EQU CVTMAP+308 03235000 CVTTZ EQU CVTMAP+304 03236000 CVTJEPS EQU CVTMAP+300 03237000 CVTJESCT EQU CVTMAP+296 03238000 CVTMODE EQU CVTMAP+292 03239000 CVTPTRV EQU CVTMAP+288 03240000 CVTREAL EQU CVTMAP+284 03241000 CVTRSV39 EQU CVTMAP+280 03242000 CVTRSV38 EQU CVTMAP+276 03243000 CVTDMSRA EQU CVTDMSR+1 03244000 CVTRV634 EQU CVTDMSRF 03245000 CVTRV633 EQU CVTDMSRF 03246000 CVTRV632 EQU CVTDMSRF 03247000 CVTRV631 EQU CVTDMSRF 03248000 CVTRV630 EQU CVTDMSRF 03249000 CVTRV629 EQU CVTDMSRF 03250000 CVTUDUMP EQU CVTDMSRF 03251000 CVTSDUMP EQU CVTDMSRF 03252000 CVTQMSGA EQU CVTQMSG+1 03253000 CVTRSV36 EQU CVTQMSG 03254000 CVTAMFF EQU CVTMAP+264 03255000 CVTPURGA EQU CVTPURG+1 03256000 CVTRSV35 EQU CVTPURG 03257000 CVTCBSP EQU CVTMAP+256 03258000 CVTATERA EQU CVTATER+1 03259000 CVTSYST EQU CVTATER 03260000 CVTVOLT2 EQU CVTTAT 03261000 CVTVOLI2 EQU CVTVOLF2 03262000 CVTAQAVB EQU CVTAQAVT+1 03263000 CVTRSV34 EQU CVTTCMFG 03264000 CVTRSV33 EQU CVTTCMFG 03265000 CVTRSV32 EQU CVTTCMFG 03266000 CVTRSV31 EQU CVTTCMFG 03267000 CVTRSV30 EQU CVTTCMFG 03268000 CVTRSV29 EQU CVTTCMFG 03269000 CVTLDEV EQU CVTTCMFG 03270000 CVTTCRDY EQU CVTTCMFG 03271000 CVTGTFA EQU CVTGTF+1 03272000 CVTRSV27 EQU CVTGTFST 03273000 CVTRNIO EQU CVTGTFST 03274000 CVTUSR EQU CVTGTFST 03275000 CVTRV318 EQU CVTFORM 03276000 CVTRV317 EQU CVTTMODE 03277000 CVTRV316 EQU CVTSTATE 03278000 CVTRV315 EQU CVTGTFS 03279000 CVTGTFAV EQU CVTGTFS 03280000 CVT0SCR1 EQU CVTMAP+232 03281000 CVTRV515 EQU CVTMAP+228 03282000 CVTRMS EQU CVTMAP+224 03283000 CVTPATCH EQU CVTMAP+220 03284000 CVTTSCE EQU CVTMAP+216 03285000 CVTLNKSC EQU CVTMAP+214 03286000 CVTQABST EQU CVTMAP+212 03287000 CVTMDLDS EQU CVTMAP+208 03288000 CVTUSER EQU CVTMAP+204 03289000 CVTABEND EQU CVTMAP+200 03290000 CVTSMCA EQU CVTMAP+196 03291000 CVTRSV18 EQU CVTMAP+192 03292000 CVTQLPAQ EQU CVTMAP+188 03293000 CVTQCDSR EQU CVTMAP+184 03294000 CVTRSV17 EQU CVTOPTB 03295000 CVTRSV16 EQU CVTOPTB 03296000 CVTFP EQU CVTOPTB 03297000 CVTAPTHR EQU CVTOPTB 03298000 CVTNLOG EQU CVTOPTB 03299000 CVTTOD EQU CVTOPTB 03300000 CVTCTIMS EQU CVTOPTB 03301000 CVTPROT EQU CVTOPTB 03302000 CVTXPFP EQU CVTOPTA 03303000 CVTASCII EQU CVTOPTA 03304000 CVTRSV13 EQU CVTOPTA 03305000 CVTRSV12 EQU CVTOPTA 03306000 CVTNIP EQU CVTOPTA 03307000 CVTDDR EQU CVTOPTA 03308000 CVTAPR EQU CVTOPTA 03309000 CVTCCH EQU CVTOPTA 03310000 CVTSNCTR EQU CVTMAP+180 03311000 CVTQMWR EQU CVTMAP+176 03312000 CVTQOCR EQU CVTMAP+172 03313000 CVT1EF00 EQU CVTMAP+168 03314000 CVTMZ00 EQU CVTMAP+164 03315000 CVTSV76Q EQU CVTSV76C 03316000 CVTRSV11 EQU CVTMAP+156 03317000 CVT0PT01 EQU CVTMAP+152 03318000 CVTMSER EQU CVTMAP+148 03319000 CVTRV516 EQU CVTIERLC 03320000 CVT0DS EQU CVTMAP+136 03321000 CVTFBOSV EQU CVTMAP+132 03322000 CVTNUCB EQU CVTMAP+128 03323000 CVTSV76M EQU CVTIOQET 03324000 CVTDCBA EQU CVTMAP+117 03325000 CVTMVS2 EQU CVTDCB 03326000 CVT6DAT EQU CVTDCB 03327000 CVT4MPS EQU CVTDCB 03328000 CVTRSV09 EQU CVTDCB 03329000 CVT4MS1 EQU CVTDCB 03330000 CVT2SPS EQU CVTDCB 03331000 CVT1SSS EQU CVTDCB 03332000 CVTRSV08 EQU CVTDCB 03333000 CVTSTB EQU CVTMAP+112 03334000 CVTQTD00 EQU CVTMAP+108 03335000 CVTQTE00 EQU CVTMAP+104 03336000 CVTCUCB EQU CVTMAP+100 03337000 CVTSJQ EQU CVTMAP+96 03338000 CVTPBLDL EQU CVTMAP+92 03339000 CVTTPC EQU CVTMAP+88 03340000 CVTSVDCB EQU CVTMAP+84 03341000 CVTBRET EQU CVTMAP+82 03342000 CVTEXIT EQU CVTMAP+80 03343000 CVT0FN00 EQU CVTMAP+76 03344000 CVTDARA EQU CVTDAR+1 03345000 CVTRSV07 EQU CVTFLGS1 03346000 CVTRSV06 EQU CVTFLGS1 03347000 CVTRSV05 EQU CVTFLGS1 03348000 CVTRSV04 EQU CVTFLGS1 03349000 CVTRSV03 EQU CVTFLGS1 03350000 CVTRSV02 EQU CVTFLGS1 03351000 CVTRSV01 EQU CVTFLGS1 03352000 CVTDMPLK EQU CVTFLGS1 03353000 CVTXITP EQU CVTMAP+68 03354000 CVTZDTAB EQU CVTMAP+64 03355000 CVTMSLT EQU CVTMAP+60 03356000 CVTDATE EQU CVTMAP+56 03357000 CVTBTERM EQU CVTMAP+52 03358000 CVTSYSAD EQU CVTMAP+48 03359000 CVTXTLER EQU CVTMAP+44 03360000 CVTILK1 EQU CVTMAP+36 03361000 CVTPRLTV EQU CVTMAP+32 03362000 CVTPCNVT EQU CVTMAP+28 03363000 CVT0VL00 EQU CVTMAP+24 03364000 CVTXAPG EQU CVTMAP+20 03365000 CVTBUF EQU CVTMAP+16 03366000 CVTJOB EQU CVTMAP+12 03367000 CVTLINK EQU CVTMAP+8 03368000 CVT0EF00 EQU CVTMAP+4 03369000 CVTTCBP EQU CVTMAP 03370000 IOQEND EQU IOQ+12 03371000 IOQPTH EQU IOQFLAGS+3 03372000 IOQPRI EQU IOQFLAGS+2 03373000 IOQALOC EQU IOQFLB 03374000 IOQRLSE EQU IOQFLB 03375000 IOQRESV EQU IOQFLB 03376000 @NM00077 EQU IOQFLA 03377000 IOQPBSY EQU IOQFLA 03378000 IOQLBSY EQU IOQFLA 03379000 IOQENQ EQU IOQFLA 03380000 IOQSLCH EQU IOQFLA 03381000 RVT99999 EQU RVT+384 03382000 RVT0096P EQU RVT+380 03383000 RVT0095P EQU RVT+376 03384000 RVT0094P EQU RVT+372 03385000 RVT0093P EQU RVT+368 03386000 RVT0092P EQU RVT+364 03387000 RVT0091P EQU RVT+360 03388000 RVT0090P EQU RVT+356 03389000 RVT0089P EQU RVT+352 03390000 RVT0088P EQU RVT+348 03391000 RVT0087P EQU RVT+344 03392000 RVT0086P EQU RVT+340 03393000 RVT0085P EQU RVT+336 03394000 RVT0084P EQU RVT+332 03395000 RVT0083P EQU RVT+328 03396000 RVT0082P EQU RVT+324 03397000 RVT0081P EQU RVT+320 03398000 RVT0080P EQU RVT+316 03399000 RVT0079P EQU RVT+312 03400000 RVT0078P EQU RVT+308 03401000 RVT0077P EQU RVT+304 03402000 RVT0076P EQU RVT+300 03403000 RVT0075P EQU RVT+296 03404000 RVT0074P EQU RVT+292 03405000 RVT0073P EQU RVT+288 03406000 RVT0072P EQU RVT+284 03407000 RVTDTUTP EQU RVT+272 03408000 RVTDTMTP EQU RVT+268 03409000 RVT0057P EQU RVT+224 03410000 RVT0056P EQU RVT+220 03411000 RVT0055P EQU RVT+216 03412000 RVT0054P EQU RVT+212 03413000 RVT0053P EQU RVT+208 03414000 RVT0044P EQU RVT+172 03415000 RVT0043P EQU RVT+168 03416000 RVT0040P EQU RVT+156 03417000 RVT0039P EQU RVT+152 03418000 RVT0038P EQU RVT+148 03419000 RVT0037P EQU RVT+144 03420000 RVT0031P EQU RVT+120 03421000 RVT0030P EQU RVT+116 03422000 RVT0029P EQU RVT+112 03423000 RVT0020P EQU RVT+76 03424000 RVT0012P EQU RVT+44 03425000 RVT0010P EQU RVT+36 03426000 RVT0009P EQU RVT+32 03427000 RVT0008P EQU RVT+28 03428000 RVT0006P EQU RVT+20 03429000 ZZ69999 EQU ZZ6+1792 03430000 ZZ6BRB EQU ZZ6B+12 03431000 ZZ6BRC EQU ZZ6B+8 03432000 @NM00076 EQU ZZ6B+6 03433000 ZZ6BFL EQU ZZ6B+4 03434000 ZZ6BDA EQU ZZ6B 03435000 @NM00075 EQU ZZ6+540 03436000 ZZ6BUFI EQU ZZ6+536 03437000 ZZ6BUFP EQU ZZ6+532 03438000 ZZ6FILE EQU ZZ6+524 03439000 ZZ6BUFB EQU ZZ6+520 03440000 ZZ6BUFL EQU ZZ6+518 03441000 ZZ6BUFN EQU ZZ6+516 03442000 ZZ6ZZ6P EQU ZZ6+512 03443000 @NM00074 EQU ZZ6+256 03444000 ZZ6D999 EQU ZZ6D+128 03445000 @NM00073 EQU ZZ6D+116 03446000 ZZ6DCAP EQU ZZ6D+112 03447000 ZZ6DPRP EQU ZZ6D+108 03448000 ZZ6DDA2 EQU ZZ6D+104 03449000 ZZ6DDA1 EQU ZZ6D+100 03450000 @NM00072 EQU ZZ6DF 03451000 ZZ6DFSU EQU ZZ6DF 03452000 ZZ6DFST EQU ZZ6DF 03453000 ZZ6DFMP EQU ZZ6DF 03454000 ZZ6DFDU EQU ZZ6DF 03455000 ZZ6DFBS EQU ZZ6DF 03456000 ZZ6DQA9 EQU ZZ6DQA+16 03457000 @NM00071 EQU ZZ6DQA+12 03458000 ZZ6DQA2 EQU ZZ6DQA+8 03459000 ZZ6DQA1 EQU ZZ6DQA+4 03460000 @NM00070 EQU ZZ6DQA+2 03461000 ZZ6DQAT EQU ZZ6DQA 03462000 ZZ6DQA0 EQU ZZ6DQA 03463000 ZZ6DRDX EQU ZZ6D+64 03464000 ZZ6DELK EQU ZZ6D+64 03465000 ZZ6DMEM EQU ZZ6D+56 03466000 ZZ6DDT1 EQU ZZ6DDT 03467000 ZZ6DDO EQU ZZ6DD+2 03468000 ZZ6DDL EQU ZZ6DD 03469000 @NM00069 EQU ZZ6D+2 03470000 ZZ6DRID EQU ZZ6D 03471000 ZZ6RDCB EQU ZZ6 03472000 ZZ60000 EQU ZZ6 03473000 BVT99999 EQU BVT+256 03474000 BVT0064P EQU BVT+252 03475000 BVT0063P EQU BVT+248 03476000 BVT0062P EQU BVT+244 03477000 BVT0061P EQU BVT+240 03478000 BVT0060P EQU BVT+236 03479000 BVT0059P EQU BVT+232 03480000 BVT0057P EQU BVT+224 03481000 BVT0056P EQU BVT+220 03482000 BVTSTBLP EQU BVT+200 03483000 BVT0045P EQU BVT+176 03484000 BVT0044P EQU BVT+172 03485000 BVT0033P EQU BVT+128 03486000 BVT0032P EQU BVT+124 03487000 BVT0031P EQU BVT+120 03488000 BVT0030P EQU BVT+116 03489000 BVT0029P EQU BVT+112 03490000 BVT0026P EQU BVT+100 03491000 BVT0025P EQU BVT+96 03492000 BVT0024P EQU BVT+92 03493000 BVT0023P EQU BVT+88 03494000 BVT0016P EQU BVT+60 03495000 BVT0015P EQU BVT+56 03496000 BVT0014P EQU BVT+52 03497000 BVT0003P EQU BVT+8 03498000 BVT0001P EQU BVT 03499000 SA99 EQU SA+72 03500000 SARC EQU SAR+56 03501000 SARB EQU SAR+52 03502000 SARA EQU SAR+48 03503000 SAR9 EQU SAR+44 03504000 SAR8 EQU SAR+40 03505000 SAR7 EQU SAR+36 03506000 SAR6 EQU SAR+32 03507000 SAR5 EQU SAR+28 03508000 SAR4 EQU SAR+24 03509000 SAR3 EQU SAR+20 03510000 SAR2 EQU SAR+16 03511000 SAR0 EQU SAR+8 03512000 SARF EQU SAR+4 03513000 SARE EQU SAR 03514000 SAFWD EQU SA+8 03515000 SABAK EQU SA+4 03516000 SA1L EQU SA1+1 03517000 SA1P EQU SA1 03518000 UPTPREFL EQU UPT+23 03519000 UPTPREFX EQU UPT+16 03520000 @NM00068 EQU UPT+15 03521000 UPTLDEL EQU UPT+14 03522000 UPTCDEL EQU UPT+13 03523000 UPTWTP EQU UPTSWS 03524000 UPTMODE EQU UPTSWS 03525000 UPTALD EQU UPTSWS 03526000 UPTPAUS EQU UPTSWS 03527000 UPTNCOM EQU UPTSWS 03528000 UPTMID EQU UPTSWS 03529000 UPTNPRM EQU UPTSWS 03530000 UPTRCVR EQU UPTSWS 03531000 UPTUSER EQU UPT+2 03532000 @NM00067 EQU UPT 03533000 @NM00066 EQU ECT+52 03534000 @NM00065 EQU ECT+48 03535000 @NM00064 EQU ECT+44 03536000 @NM00063 EQU ECTSWS2+1 03537000 @NM00062 EQU ECTSWS21 03538000 ECTTABND EQU ECTSWS21 03539000 ECTDEFCS EQU ECTSWS21 03540000 ECTBKPB EQU ECT+36 03541000 ECTUSER EQU ECT+32 03542000 ECTDDNUM EQU ECT+29 03543000 ECTATTN EQU ECTSWS 03544000 ECTBKGRD EQU ECTSWS 03545000 ECTNNOT EQU ECTSWS 03546000 ECTNMAL EQU ECTSWS 03547000 ECTLOGF EQU ECTSWS 03548000 ECTATRM EQU ECTSWS 03549000 @NM00061 EQU ECTSWS 03550000 ECTNOPD EQU ECTSWS 03551000 ECTSCMD EQU ECT+20 03552000 ECTPCMD EQU ECT+12 03553000 ECTSMSG EQU ECT+9 03554000 ECTMSGF EQU ECT+8 03555000 ECTIOWA EQU ECT+4 03556000 ECTRTCD EQU ECT+1 03557000 ECTRCDF EQU ECT 03558000 PSCBU EQU PSCB+64 03559000 PSCBRSZ EQU PSCB+60 03560000 PSCBLINE EQU PSCB+59 03561000 PSCBCHAR EQU PSCB+58 03562000 PSCBUPTL EQU PSCB+56 03563000 PSCBUPT EQU PSCB+52 03564000 PSCBRLGB EQU PSCB+48 03565000 PSCBDEST EQU PSCB+40 03566000 @NM00060 EQU PSCB+36 03567000 @NM00059 EQU PSCB+32 03568000 @NM00058 EQU PSCB+28 03569000 PSCBLTI2 EQU PSCB+24 03570000 PSCBLTIM EQU PSCB+20 03571000 PSCBATR2 EQU PSCB+18 03572000 @NM00057 EQU PSCBATR1 03573000 @NM00056 EQU PSCBATR1 03574000 @NM00055 EQU PSCBATR1 03575000 PSCBATTN EQU PSCBATR1 03576000 PSCBVMNT EQU PSCBATR1 03577000 PSCBJCL EQU PSCBATR1 03578000 PSCBACCT EQU PSCBATR1 03579000 PSCBCTRL EQU PSCBATR1 03580000 PSCBGPNM EQU PSCB+8 03581000 PSCBUSRL EQU PSCB+7 03582000 PSCBUSER EQU PSCB 03583000 CMDT1 EQU CMDT 03584000 CMDO EQU CMD+2 03585000 CMDL EQU CMD 03586000 ZZ299999 EQU ZZ2+8192 03587000 ZZ2AXOT1 EQU ZZ2AXOT 03588000 ZZ2AXOL EQU ZZ2AXO 03589000 @NM00054 EQU ZZ2+7288 03590000 @NM00053 EQU ZZ2AMDX+4 03591000 ZZ2AMDXC EQU ZZ2AMDX 03592000 ZZ2HSD EQU ZZ2+3056 03593000 @NM00052 EQU ZZ2ES 03594000 @NM00051 EQU ZZ2+2868 03595000 ZZ2ITSEC EQU ZZ2ITSE+1 03596000 @NM00050 EQU ZZ2ITSE 03597000 ZZ2ITSEP EQU ZZ2ITSE 03598000 ZZ2ITSEW EQU ZZ2ITSE 03599000 @NM00049 EQU ZZ2ITR+20 03600000 ZZ2ITREC EQU ZZ2ITRE+1 03601000 @NM00048 EQU ZZ2ITRE 03602000 ZZ2ITREP EQU ZZ2ITRE 03603000 ZZ2ITREW EQU ZZ2ITRE 03604000 @NM00047 EQU ZZ2ITR+9 03605000 ZZ2ITRRC EQU ZZ2ITR+8 03606000 ZZ2ITR2P EQU ZZ2ITR+4 03607000 ZZ2ITRPP EQU ZZ2ITR 03608000 @NM00046 EQU ZZ2+1544 03609000 ZZ2PGM EQU ZZ2+1536 03610000 @NM00045 EQU ZZ2+1526 03611000 ZZ2CW EQU ZZ2+1524 03612000 @NM00044 EQU ZZ2+1504 03613000 @NM00043 EQU ZZ2+1352 03614000 ZZ2FFSYP EQU ZZ2+1348 03615000 ZZ2SASYP EQU ZZ2+1344 03616000 ZZ2RDSYP EQU ZZ2+1340 03617000 ZZ2RASYP EQU ZZ2+1336 03618000 ZZ2PHSYP EQU ZZ2+1332 03619000 ZZ2ESSYP EQU ZZ2+1328 03620000 ZZ200SYP EQU ZZ2+1324 03621000 ZZ2SCWP EQU ZZ2+1320 03622000 ZZ2TTLP EQU ZZ2+1316 03623000 ZZ2LOADP EQU ZZ2+1312 03624000 ZZ2VRESP EQU ZZ2+1308 03625000 ZZ2CPPLE EQU ZZ2CPPL+12 03626000 ZZ2CPPLP EQU ZZ2CPPL+8 03627000 ZZ2CPPLU EQU ZZ2CPPL+4 03628000 ZZ2VRSAP EQU ZZ2+1288 03629000 ZZ2DVTP EQU ZZ2+1276 03630000 @NM00042 EQU ZZ2+1272 03631000 @NM00041 EQU ZZ2+1268 03632000 ZZ2RPLP EQU ZZ2+1260 03633000 ZZ2TCBP EQU ZZ2+1256 03634000 @NM00040 EQU ZZ2+1252 03635000 ZZ2ZZ2P EQU ZZ2+1248 03636000 @NM00039 EQU ZZ2+1112 03637000 ZZ2FPDRP EQU ZZ2+1108 03638000 ZZ2FDSDP EQU ZZ2+1104 03639000 ZZ2APDRP EQU ZZ2+1100 03640000 ZZ2ADSDP EQU ZZ2+1096 03641000 ZZ2ENQ0P EQU ZZ2+1092 03642000 @NM00038 EQU ZZ2+1080 03643000 ZZ2MSG0P EQU ZZ2+1076 03644000 ZZ2FT25P EQU ZZ2+1072 03645000 ZZ2MSGSP EQU ZZ2+1060 03646000 ZZ2ALOCP EQU ZZ2+1056 03647000 @NM00037 EQU ZZ2+976 03648000 ZZ2TOD EQU ZZ2+968 03649000 ZZ2STGN EQU ZZ2STG+4 03650000 ZZ2STGP EQU ZZ2STG 03651000 @NM00036 EQU ZZ2+952 03652000 ZZ2SCMDE EQU ZZ2+944 03653000 ZZ2SCMDN EQU ZZ2+936 03654000 ZZ2IDENT EQU ZZ2+928 03655000 ZZ2A9999 EQU ZZ2A+656 03656000 @NM00035 EQU ZZ2A+224 03657000 @NM00034 EQU ZZ2A+220 03658000 ZZ2AQD99 EQU ZZ2AQD+60 03659000 @NM00033 EQU ZZ2AQD+56 03660000 @NM00032 EQU ZZ2AQDF 03661000 ZZ2AQDFA EQU ZZ2AQDF 03662000 ZZ2AQDIL EQU ZZ2AQD+48 03663000 ZZ2AQDIM EQU ZZ2AQD+44 03664000 ZZ2AQDT9 EQU ZZ2AQDT+34 03665000 ZZ2AQDTE EQU ZZ2AQDT+33 03666000 ZZ2AQDTD EQU ZZ2AQDT+2 03667000 @NM00031 EQU ZZ2AQDT+1 03668000 ZZ2AQDTY EQU ZZ2AQDT 03669000 ZZ2AQDT0 EQU ZZ2AQDT 03670000 ZZ2AQDLB EQU ZZ2AQD+9 03671000 ZZ2AQDOB EQU ZZ2AQD+8 03672000 ZZ2AQDLE EQU ZZ2AQD+4 03673000 ZZ2AQDOF EQU ZZ2AQD 03674000 ZZ2AQD00 EQU ZZ2AQD 03675000 ZZ2AQAS9 EQU ZZ2AQAS+16 03676000 @NM00030 EQU ZZ2AQAS+12 03677000 ZZ2AQAS2 EQU ZZ2AQAS+8 03678000 ZZ2AQAS1 EQU ZZ2AQAS+4 03679000 @NM00029 EQU ZZ2AQAS+2 03680000 ZZ2AQAST EQU ZZ2AQAS 03681000 ZZ2AQAS0 EQU ZZ2AQAS 03682000 ZZ2ADPTA EQU ZZ2ADPT 03683000 ZZ2ADPL EQU ZZ2ADP 03684000 ZZ2ADMTA EQU ZZ2ADMT 03685000 ZZ2ADML EQU ZZ2ADM 03686000 ZZ2ADDTA EQU ZZ2ADDT 03687000 ZZ2ADDL EQU ZZ2ADD 03688000 @NM00028 EQU ZZ2A+72 03689000 ZZ2APIDB EQU ZZ2APID+3 03690000 ZZ2APIDA EQU ZZ2APID 03691000 @NM00027 EQU ZZ2A+24 03692000 @NM00026 EQU ZZ2AF+5 03693000 @NM00025 EQU ZZ2AF+3 03694000 ZZ2AFS EQU ZZ2AF+2 03695000 ZZ2AFD EQU ZZ2AF+2 03696000 ZZ2AFQ EQU ZZ2AF+2 03697000 ZZ2AF$ EQU ZZ2AF+2 03698000 @NM00024 EQU ZZ2AF+2 03699000 ZZ2AFM EQU ZZ2AF+2 03700000 @NM00023 EQU ZZ2AF+2 03701000 @NM00022 EQU ZZ2AF+1 03702000 ZZ2AFV EQU ZZ2AF+1 03703000 @NM00021 EQU ZZ2AF+1 03704000 ZZ2AFC EQU ZZ2AF+1 03705000 @NM00020 EQU ZZ2AF 03706000 ZZ2AFFS EQU ZZ2AF 03707000 ZZ2AFT EQU ZZ2AF 03708000 ZZ2AFP EQU ZZ2AF 03709000 @NM00019 EQU ZZ2A+8 03710000 ZZ2ALINE EQU ZZ2A+4 03711000 @NM00018 EQU ZZ2A+3 03712000 ZZ2ASE EQU ZZ2A+2 03713000 ZZ2ACH EQU ZZ2A 03714000 @NM00017 EQU ZZ2+264 03715000 @NM00016 EQU ZZ2+263 03716000 ZZ2PRTT0 EQU ZZ2PRTT 03717000 ZZ2PRTO EQU ZZ2PRT+2 03718000 ZZ2PRTL EQU ZZ2PRT 03719000 @NM00015 EQU ZZ2AMD+56 03720000 ZZ2AMDXP EQU ZZ2AMD+52 03721000 ZZ2AMDD EQU ZZ2AMD+48 03722000 ZZ2AMDL EQU ZZ2AMD+44 03723000 ZZ2AMDU EQU ZZ2AMD+28 03724000 ZZ2AMDF EQU ZZ2AMD+24 03725000 ZZ2AMDS EQU ZZ2AMD+20 03726000 ZZ2AMDC EQU ZZ2AMD+16 03727000 ZZ2AMDP EQU ZZ2AMD+12 03728000 ZZ2AMDB EQU ZZ2AMD+8 03729000 @NM00014 EQU @NM00013 03730000 ZZ2AMD2 EQU @NM00013 03731000 ZZ2AMD1 EQU @NM00013 03732000 ZZ2AMD0 EQU ZZ2AMD+6 03733000 ZZ2AMDA EQU ZZ2AMD+4 03734000 ZZ2AMDT EQU ZZ2AMD 03735000 ZZ199999 EQU ZZ1+3072 03736000 @NM00012 EQU ZZ1+2160 03737000 ZZ1TRTAS EQU ZZ1+1904 03738000 ZZ1TRUPC EQU ZZ1+1648 03739000 ZZ1TRCTX EQU ZZ1+1392 03740000 ZZ1NASID EQU ZZ1N+274 03741000 ZZ1NSTRL EQU ZZ1N+272 03742000 ZZ1NOFF EQU ZZ1N+268 03743000 ZZ1NBDY EQU ZZ1N+264 03744000 ZZ1NADE EQU ZZ1N+260 03745000 ZZ1NADB EQU ZZ1N+256 03746000 ZZ1NSTR EQU ZZ1N 03747000 @NM00011 EQU ZZ1+1080 03748000 ZZ1TREBC EQU ZZ1+824 03749000 @NM00010 EQU ZZ1+377 03750000 ZZ1USTAE EQU ZZ1+376 03751000 @NM00009 EQU ZZ1F+1 03752000 @NM00008 EQU ZZ1F 03753000 ZZ1FM EQU ZZ1F 03754000 ZZ1FX EQU ZZ1F 03755000 ZZ1FU EQU ZZ1F 03756000 ZZ1EVEC EQU ZZ1EVE+1 03757000 @NM00007 EQU ZZ1EVE 03758000 ZZ1EVEP EQU ZZ1EVE 03759000 ZZ1EVEW EQU ZZ1EVE 03760000 ZZ1ACMP EQU ZZ1ATTN 03761000 @NM00006 EQU ZZ1+144 03762000 ZZ1FPP EQU ZZ1+140 03763000 ZZ1ZZ6P EQU ZZ1+136 03764000 @NM00005 EQU ZZ1+84 03765000 ZZ1PLINE EQU ZZ1+80 03766000 ZZ1PGSZ EQU ZZ1+76 03767000 ZZ1PCNT EQU ZZ1+72 03768000 @NM00004 EQU ZZ1+68 03769000 ZZ1TPAGE EQU ZZ1+64 03770000 ZZ1TLINE EQU ZZ1+60 03771000 @NM00003 EQU ZZ1+52 03772000 ZZ1DMCBP EQU ZZ1+48 03773000 ZZ1DSDP EQU ZZ1+44 03774000 ZZ1PDRP EQU ZZ1+40 03775000 ZZ1ZZ2P EQU ZZ1+36 03776000 ZZ1327WP EQU ZZ1+32 03777000 ZZ1ACBP EQU ZZ1+28 03778000 @NM00002 EQU ZZ1+24 03779000 ZZ1PDCBP EQU ZZ1+20 03780000 ZZ1BLRBL EQU ZZ1+16 03781000 @NM00001 EQU ZZ1+12 03782000 ZZ1PNULL EQU ZZ1+8 03783000 ZZ1NULL EQU ZZ1+4 03784000 ZZ1IDE EQU ZZ1 03785000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03786000 @RT00309 EQU EXITRLSA 03787000 @RT00320 EQU EXITRLSA 03788000 @RT00324 EQU EXITRLSA 03789000 @RT00327 EQU EXITRLSA 03790000 @RT00370 EQU EXITRLSA 03791000 @RT00464 EQU EXITRLSA 03792000 @RT00467 EQU EXITRLSA 03793000 @RT00470 EQU EXITRLSA 03794000 @RT00474 EQU EXITRLSA 03795000 @RC00499 EQU @RC00487 03796000 @RF00502 EQU @RC00499 03797000 @RF00514 EQU @RC00499 03798000 @ENDDATA EQU * 03799000 END BLSRIOSK,(C'PLS2159',0701,78062) 03800000