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