COMP TITLE 'BLSRCOMP--IPCS COMPARE SUBCOMMAND *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPGW */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSRCOMP CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLSRCOMP 78.057' 0002 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 0002 00013000 BALR @12,0 0002 00014000 @PSTART DS 0H 0002 00015000 USING @PSTART,@12 0002 00016000 L @00,@SIZDATD 0002 00017000 BLSUALLR R,LV=(0) 00018000 LR @11,@01 0002 00019000 USING @DATD,@11 0002 00020000 ST @13,@SA00001+4 0002 00021000 LM @00,@01,20(@13) 0002 00022000 ST @11,8(,@13) 0002 00023000 LR @13,@11 0002 00024000 *BLREXTRN - IDENTIFY EXTERNAL REFERENCES 00025000 EXTRN BLSUVP31 00026000 EXTRN BLSUVP32 00027000 EXTRN BLSRVPCP 00028000 EXTRN BLSRVPAS 00029000 EXTRN BLSUVPVA 00030000 EXTRN BLSRVPAD 00031000 * RETC=0; /* RETURN CODE */ 00032000 SLR @14,@14 0453 00033000 ST @14,RETC 0453 00034000 * RF=0; /* RETURN CODE */ 00035000 SLR RF,RF 0454 00036000 * ESAU1(1:LENGTH(ESCO))=ESCO; /* INITIALIZE SYMBOL RECORD */ 00037000 MVC ESAU1(182),ESCO 0455 00038000 * ESAU2(1:LENGTH(ESCO))=ESCO; /* INITIALIZE SYMBOL RECORD */ 00039000 MVC ESAU2(182),ESCO 0456 00040000 * RESPECIFY 0457 00041000 * R1 RESTRICTED; /* GETMAIN INTERFACE REGISTER */ 00042000 * DO; /* GETMAIN (R) 0458 00043000 * LV(PAGELNTH)SP(ZZZSPEXC) */ 00044000 * RESPECIFY 0459 00045000 * (GPR01F, 0459 00046000 * GPR00F) RESTRICTED; 0459 00047000 * GPR00F=PAGELNTH; /* LENGTH REQUESTED */ 00048000 L GPR00F,@CF00091 0460 00049000 * GPR01F=ZZZSPEXC; /* SP IN REG 1 */ 00050000 LA GPR01F,1 0461 00051000 * GEN(SLL GPR01F,24) 0462 00052000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0462 00053000 SLL GPR01F,24 00054000 * GPR00F=GPR00F|GPR01F; /* SP IN HIGH BYTE */ 00055000 OR GPR00F,GPR01F 0463 00056000 * GPR01F=-1; /* INDICATE A GETMAIN REQUEST */ 00057000 SLR GPR01F,GPR01F 0464 00058000 BCTR GPR01F,0 0464 00059000 * SVC(10); /* R-FORM OF GETMAIN */ 00060000 SVC 10 0465 00061000 * RESPECIFY 0466 00062000 * (GPR01F, 0466 00063000 * GPR00F) UNRESTRICTED; 0466 00064000 * END; /* GETMAIN (R) 0467 00065000 * LV(PAGELNTH)SP(ZZZSPEXC) */ 00066000 * BUF1PT=R1; /* POINT TO BUFFER FOR FIRST 0468 00067000 * COMPARAND */ 00068000 ST R1,BUF1PT 0468 00069000 * DO; /* GETMAIN (R) 0469 00070000 * LV(PAGELNTH)SP(ZZZSPEXC) */ 00071000 * RESPECIFY 0470 00072000 * (GPR01F, 0470 00073000 * GPR00F) RESTRICTED; 0470 00074000 * GPR00F=PAGELNTH; /* LENGTH REQUESTED */ 00075000 L GPR00F,@CF00091 0471 00076000 * GPR01F=ZZZSPEXC; /* SP IN REG 1 */ 00077000 LA GPR01F,1 0472 00078000 * GEN(SLL GPR01F,24) 0473 00079000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0473 00080000 SLL GPR01F,24 00081000 * GPR00F=GPR00F|GPR01F; /* SP IN HIGH BYTE */ 00082000 OR GPR00F,GPR01F 0474 00083000 * GPR01F=-1; /* INDICATE A GETMAIN REQUEST */ 00084000 SLR GPR01F,GPR01F 0475 00085000 BCTR GPR01F,0 0475 00086000 * SVC(10); /* R-FORM OF GETMAIN */ 00087000 SVC 10 0476 00088000 * RESPECIFY 0477 00089000 * (GPR01F, 0477 00090000 * GPR00F) UNRESTRICTED; 0477 00091000 * END; /* GETMAIN (R) 0478 00092000 * LV(PAGELNTH)SP(ZZZSPEXC) */ 00093000 * BUF2PT=R1; /* POINT TO BUFFER FOR 2ND 0479 00094000 * COMPARAND */ 00095000 ST R1,BUF2PT 0479 00096000 * RESPECIFY 0480 00097000 * R1 UNRESTRICTED; /* GETMAIN INTERFACE REGISTER */ 00098000 * DO; /* BLSRPARS DISPLAY MF(E,PX) */ 00099000 * DO; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00100000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00101000 * TE,PX)FLAG ROUTING */ 00102000 * DO; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00103000 * T(EXITRLSA,)MF(EXECUTE,PX)FLAG 00104000 * ROUTING */ 00105000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS */ 00106000 ST R9,@AL00001 0484 00107000 L @14,PCPTR 0484 00108000 ST @14,@AL00001+4 0484 00109000 LA @14,PDAPTR 0484 00110000 ST @14,@AL00001+8 0484 00111000 L @10,ZZ2BVTP(,R9) 0484 00112000 L @15,BVTPARIP(,@10) 0484 00113000 LA @01,@AL00001 0484 00114000 BALR @14,@15 0484 00115000 * RESPECIFY 0485 00116000 * (GPR15F) RESTRICTED; 0485 00117000 * IF GPR15F^=ZZZFLAGI THEN 0486 00118000 * 0486 00119000 LTR GPR15F,GPR15F 0486 00120000 BZ @RF00486 0486 00121000 * /*********************************************************/ 00122000 * /* */ 00123000 * /* UNABLE TO PARSE */ 00124000 * /* */ 00125000 * /*********************************************************/ 00126000 * 0487 00127000 * DO; /* UNABLE TO PARSE */ 00128000 * RETC=GPR15F; /* RETURN CODE */ 00129000 ST GPR15F,RETC 0488 00130000 * GO TO EXITNORL; /* EXIT WITHOUT PDL */ 00131000 B EXITNORL 0489 00132000 * END; 0490 00133000 * RESPECIFY 0491 00134000 * (GPR15F) UNRESTRICTED; 0491 00135000 @RF00486 DS 0H 0492 00136000 * RESPECIFY 0492 00137000 * (PDRPTR) RESTRICTED; 0492 00138000 * PDRPTR=PDAPTR; /* ->PDL */ 00139000 L PDRPTR,PDAPTR 0493 00140000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 0494 00141000 USING PD,PDRPTR 00142000 * IF PXTEST=PXTEST1 THEN 0495 00143000 CLC PXTEST(2),@CH00043 0495 00144000 BNE @RF00495 0495 00145000 * ZZ2AFX=ZZZ1; /* TEST */ 00146000 OI ZZ2AFX(R9),B'10000000' 0496 00147000 * ELSE 0497 00148000 * IF PXTEST=PXTEST0 THEN 0497 00149000 B @RC00495 0497 00150000 @RF00495 CLC PXTEST(2),@CH00068 0497 00151000 BNE @RF00497 0497 00152000 * ZZ2AFX=ZZZ0; /* NOTEST */ 00153000 NI ZZ2AFX(R9),B'01111111' 0498 00154000 * CALL BLSUPARU(ZZ2,PDDSECT,PXRO);/* SET ROUTING OPTIONS */ 00155000 @RF00497 DS 0H 0499 00156000 @RC00495 ST R9,@AL00001 0499 00157000 ST PDRPTR,@AL00001+4 0499 00158000 LA @14,PXRO 0499 00159000 ST @14,@AL00001+8 0499 00160000 L @08,ZZ2BVTP(,R9) 0499 00161000 L @15,BVTPARUP(,@08) 0499 00162000 LA @01,@AL00001 0499 00163000 BALR @14,@15 0499 00164000 * RESPECIFY 0500 00165000 * (GPR15F) RESTRICTED; 0500 00166000 * RETC=MAX(RETC,GPR15F); /* RETURN CODE */ 00167000 L @14,RETC 0501 00168000 CR @14,GPR15F 0501 00169000 BNL *+6 00170000 LR @14,GPR15F 0501 00171000 ST @14,RETC 0501 00172000 * RESPECIFY 0502 00173000 * (GPR15F) UNRESTRICTED; 0502 00174000 * IF RETC>ZZZFLAGE THEN /* SERIOUS ERROR */ 00175000 C @14,@CF00051 0503 00176000 BH @RT00503 0503 00177000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00178000 * END; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00179000 * T(EXITRLSA,)MF(EXECUTE,PX)FLAG 00180000 * ROUTING */ 00181000 * END; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00182000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00183000 * TE,PX)FLAG ROUTING */ 00184000 * CALL BLSRPADS(ZZ2,PDDSECT,PXDO);/* SET DISPLAY OPTIONS */ 00185000 ST R9,@AL00001 0507 00186000 ST PDRPTR,@AL00001+4 0507 00187000 LA @14,PXDO 0507 00188000 ST @14,@AL00001+8 0507 00189000 L @08,ZZ2RVTP(,R9) 0507 00190000 L @15,RVTPADSP(,@08) 0507 00191000 LA @01,@AL00001 0507 00192000 BALR @14,@15 0507 00193000 * END; /* BLSRPARS DISPLAY MF(E,PX) */ 00194000 * PD1VLEN=0; /* LENGTH OF FIRST COMPARAND */ 00195000 SLR @14,@14 0509 00196000 ST @14,PD1VLEN 0509 00197000 * PD2VLEN=0; /* LENGTH OF SECOND COMPARAND */ 00198000 SLR PD2VLEN,PD2VLEN 0510 00199000 * 0511 00200000 * /*****************************************************************/ 00201000 * /* */ 00202000 * /* PROCESS ADDRESS OPERAND IF ENTERED */ 00203000 * /* */ 00204000 * /*****************************************************************/ 00205000 * 0511 00206000 * IF PK1=PN1ADDR THEN /* FIRST OPERAND IS AN ADDRESS */ 00207000 CLC PK1(2),@CH00043 0511 00208000 BNE @RF00511 0511 00209000 * DO; 0512 00210000 * CALL BLSRADDR(ZZ2,ESAU1,PD,PXAO,PD1A);/* RESOLVE ADDRESS */ 00211000 ST R9,@AL00001 0513 00212000 LA @14,ESAU1 0513 00213000 ST @14,@AL00001+4 0513 00214000 LA @14,PD 0513 00215000 ST @14,@AL00001+8 0513 00216000 LA @14,PXAO 0513 00217000 ST @14,@AL00001+12 0513 00218000 LA @14,PD1A 0513 00219000 ST @14,@AL00001+16 0513 00220000 L @08,ZZ2RVTP(,R9) 0513 00221000 L @15,RVTADDRP(,@08) 0513 00222000 LA @01,@AL00001 0513 00223000 BALR @14,@15 0513 00224000 * IF RF>=ZZZFLAGS THEN /* COULD NOT RESOLVE */ 00225000 C RF,@CF00033 0514 00226000 BNL @RT00514 0514 00227000 * GO TO EXITRLSA; /* EXIT */ 00228000 * PD1VLEN=ESAU1DLE; /* SET LENGTH */ 00229000 L @14,ESAU1DLE 0516 00230000 ST @14,PD1VLEN 0516 00231000 * END; 0517 00232000 * IF PK2=PN2ADDR THEN /* 2ND OPERAND IS ADDRESS */ 00233000 @RF00511 CLC PK2(2),@CH00043 0518 00234000 BNE @RF00518 0518 00235000 * DO; 0519 00236000 * CALL BLSRADDR(ZZ2,ESAU2,PD,PYAO,PD2A);/* RESOLVE ADDRESS */ 00237000 ST R9,@AL00001 0520 00238000 LA @14,ESAU2 0520 00239000 ST @14,@AL00001+4 0520 00240000 LA @14,PD 0520 00241000 ST @14,@AL00001+8 0520 00242000 LA @14,PYAO 0520 00243000 ST @14,@AL00001+12 0520 00244000 LA @14,PD2A 0520 00245000 ST @14,@AL00001+16 0520 00246000 L @08,ZZ2RVTP(,R9) 0520 00247000 L @15,RVTADDRP(,@08) 0520 00248000 LA @01,@AL00001 0520 00249000 BALR @14,@15 0520 00250000 * IF RF>=ZZZFLAGS THEN /* COULD NOT RESOLVE */ 00251000 C RF,@CF00033 0521 00252000 BNL @RT00521 0521 00253000 * GO TO EXITRLSA; /* EXIT */ 00254000 * PD2VLEN=ESAU2DLE; /* SET LENGTH */ 00255000 L PD2VLEN,ESAU2DLE 0523 00256000 * END; 0524 00257000 * 0525 00258000 * /*****************************************************************/ 00259000 * /* */ 00260000 * /* PROCESS VALUE OPERANDS IF ENTERED */ 00261000 * /* */ 00262000 * /*****************************************************************/ 00263000 * 0525 00264000 * IF PD1VVFP='1'B THEN 0525 00265000 @RF00518 TM PD1VVFP,B'10000000' 0525 00266000 BNO @RF00525 0525 00267000 * DO; /* FIRST OPERAND IS A VALUE */ 00268000 * ESAU1(1:LENGTH(ESCO))=ESCO; /* INITIALIZE SYMBOL RECORD */ 00269000 MVC ESAU1(182),ESCO 0527 00270000 * IF PD1VVT='X' THEN 0528 00271000 CLI PD1VVT,C'X' 0528 00272000 BNE @RF00528 0528 00273000 * DO; /* HEX VALUE ENTERED */ 00274000 * PD1VBUF=PD1VBUF&&PD1VBUF;/* ZERO BUFFER */ 00275000 XC PD1VBUF(256),PD1VBUF 0530 00276000 * PD1VLEN=PD1VVL/2; /* VALUE LENGTH */ 00277000 LH @14,PD1VVL 0531 00278000 LR @08,@14 0531 00279000 SRL @08,1 0531 00280000 ST @08,PD1VLEN 0531 00281000 * DO; /* BLRCNVCB(PD1VV(1:PD1VVL)) FROM 00282000 * (CHARACTER)TO(BIT)SET(PD1VBUF( 00283000 * 1:PD1VLEN))TR(ZZ1TRCTX) */ 00284000 * ZONED='0000000000000000';/* PAD INTERMEDIATE */ 00285000 MVC ZONED(16),@CC01840 0533 00286000 * ZONED(1:+(PD1VVL))=PD1VV(1:PD1VVL);/* LEFT ALIGN SOURCE 00287000 * STRING */ 00288000 BCTR @14,0 0534 00289000 L @06,PD1VVP 0534 00290000 EX @14,@SM01874 0534 00291000 * TR(ZONED,ZZ1TRCTX); /* EBCDIC=>ZONED HEXADECIMAL */ 00292000 L @14,ZZ2ZZ1P(,R9) 0535 00293000 TR ZONED(16),ZZ1TRCTX(@14) 0535 00294000 * PACK(PACKED,ZONED(1:15));/* ZONED HEXADECIMAL=>BIT */ 00295000 PACK PACKED(8),ZONED(15) 0536 00296000 * MVN(PACKED(57:64),ZONED(16:16));/* FINAL FOUR BITS */ 00297000 MVN PACKED+7(1),ZONED+15 0537 00298000 * PD1VBUF(1:PD1VLEN)=PACKED(1:+(PD1VLEN));/* BIT STRING 00299000 * RESULT */ 00300000 BCTR @08,0 0538 00301000 EX @08,@SM01876 0538 00302000 * END; /* BLRCNVCB(PD1VV(1:PD1VVL)) FROM 00303000 * (CHARACTER)TO(BIT)SET(PD1VBUF( 00304000 * 1:PD1VLEN))TR(ZZ1TRCTX) */ 00305000 * END; 0540 00306000 * ELSE 0541 00307000 * DO; /* CHARACTER VALUE ENTERED */ 00308000 B @RC00528 0541 00309000 @RF00528 DS 0H 0542 00310000 * PD1VBUF=''; /* BLANK BUFFER */ 00311000 MVI PD1VBUF,C' ' 0542 00312000 MVC PD1VBUF+1(255),PD1VBUF 0542 00313000 * PD1VBUF(1:PD1VVL)=PD1VV(1:PD1VVL);/* MOVE STRING INTO 0543 00314000 * BUFFER */ 00315000 LH @14,PD1VVL 0543 00316000 LR @08,@14 0543 00317000 BCTR @08,0 0543 00318000 L @06,PD1VVP 0543 00319000 EX @08,@SM01878 0543 00320000 * PD1VLEN=PD1VVL; /* LENGTH IS AS ENTERED */ 00321000 ST @14,PD1VLEN 0544 00322000 * END; 0545 00323000 * END; 0546 00324000 @RC00528 DS 0H 0547 00325000 * IF PD2VVFP='1'B THEN 0547 00326000 @RF00525 TM PD2VVFP,B'10000000' 0547 00327000 BNO @RF00547 0547 00328000 * DO; /* 2ND OPERAND IS A VALUE */ 00329000 * ESAU2(1:LENGTH(ESCO))=ESCO; /* INITIALIZE SYMBOL RECORD */ 00330000 MVC ESAU2(182),ESCO 0549 00331000 * IF PD2VVT='X' THEN 0550 00332000 CLI PD2VVT,C'X' 0550 00333000 BNE @RF00550 0550 00334000 * DO; /* HEX VALUE ENTERED */ 00335000 * PD2VBUF=PD2VBUF&&PD2VBUF;/* ZERO BUFFER */ 00336000 XC PD2VBUF(256),PD2VBUF 0552 00337000 * PD2VLEN=PD2VVL/2; /* VALUE LENGTH */ 00338000 LH @14,PD2VVL 0553 00339000 LR PD2VLEN,@14 0553 00340000 SRL PD2VLEN,1 0553 00341000 * DO; /* BLRCNVCB(PD2VV(1:PD2VVL)) FROM 00342000 * (CHARACTER)TO(BIT)SET(PD2VBUF( 00343000 * 1:PD2VLEN))TR(ZZ1TRCTX) */ 00344000 * ZONED='0000000000000000';/* PAD INTERMEDIATE */ 00345000 MVC ZONED(16),@CC01840 0555 00346000 * ZONED(1:+(PD2VVL))=PD2VV(1:PD2VVL);/* LEFT ALIGN SOURCE 00347000 * STRING */ 00348000 BCTR @14,0 0556 00349000 L @08,PD2VVP 0556 00350000 EX @14,@SM01880 0556 00351000 * TR(ZONED,ZZ1TRCTX); /* EBCDIC=>ZONED HEXADECIMAL */ 00352000 L @14,ZZ2ZZ1P(,R9) 0557 00353000 TR ZONED(16),ZZ1TRCTX(@14) 0557 00354000 * PACK(PACKED,ZONED(1:15));/* ZONED HEXADECIMAL=>BIT */ 00355000 PACK PACKED(8),ZONED(15) 0558 00356000 * MVN(PACKED(57:64),ZONED(16:16));/* FINAL FOUR BITS */ 00357000 MVN PACKED+7(1),ZONED+15 0559 00358000 * PD2VBUF(1:PD2VLEN)=PACKED(1:+(PD2VLEN));/* BIT STRING 00359000 * RESULT */ 00360000 LR @14,PD2VLEN 0560 00361000 BCTR @14,0 0560 00362000 EX @14,@SM01882 0560 00363000 * END; /* BLRCNVCB(PD2VV(1:PD2VVL)) FROM 00364000 * (CHARACTER)TO(BIT)SET(PD2VBUF( 00365000 * 1:PD2VLEN))TR(ZZ1TRCTX) */ 00366000 * END; 0562 00367000 * ELSE 0563 00368000 * DO; /* CHARACTER VALUE ENTERED */ 00369000 B @RC00550 0563 00370000 @RF00550 DS 0H 0564 00371000 * PD2VBUF=''; /* BLANK BUFFER */ 00372000 MVI PD2VBUF,C' ' 0564 00373000 MVC PD2VBUF+1(255),PD2VBUF 0564 00374000 * PD2VBUF(1:PD2VVL)=PD2VV(1:PD2VVL);/* MOVE STRING INTO 0565 00375000 * BUFFER */ 00376000 LH @14,PD2VVL 0565 00377000 LR @08,@14 0565 00378000 BCTR @08,0 0565 00379000 L @06,PD2VVP 0565 00380000 EX @08,@SM01884 0565 00381000 * PD2VLEN=PD2VVL; /* LENGTH IS AS ENTERED */ 00382000 LR PD2VLEN,@14 0566 00383000 * END; 0567 00384000 * END; 0568 00385000 @RC00550 DS 0H 0569 00386000 * 0569 00387000 * /*****************************************************************/ 00388000 * /* */ 00389000 * /* INITIALIZE COMPARISON BUFFERS */ 00390000 * /* */ 00391000 * /*****************************************************************/ 00392000 * 0569 00393000 * IF PD1VVFP='1'B THEN /* FIRST OBJECT IS A VALUE */ 00394000 @RF00547 TM PD1VVFP,B'10000000' 0569 00395000 BNO @RF00569 0569 00396000 * BUF1(1:PD1VLEN)=PD1VBUF(1:PD1VLEN);/* MOVE DATA TO COMP BLOCK */ 00397000 L @14,BUF1PT 0570 00398000 L @08,PD1VLEN 0570 00399000 BCTR @08,0 0570 00400000 EX @08,@SM01886 0570 00401000 * IF PD2VVFP='1'B THEN /* 2ND OBJECT IS A VALUE */ 00402000 @RF00569 TM PD2VVFP,B'10000000' 0571 00403000 BNO @RF00571 0571 00404000 * BUF2(1:PD2VLEN)=PD2VBUF(1:PD2VLEN);/* MOVE DATA TO COMP BLOCK */ 00405000 L @14,BUF2PT 0572 00406000 LR @08,PD2VLEN 0572 00407000 BCTR @08,0 0572 00408000 EX @08,@SM01888 0572 00409000 * THELENTH=MIN(PD1VLEN,PD2VLEN); /* SET SINGLE COMPARE LENGTH */ 00410000 @RF00571 L THELENTH,PD1VLEN 0573 00411000 CR THELENTH,PD2VLEN 0573 00412000 BNH *+6 00413000 LR THELENTH,PD2VLEN 0573 00414000 * ORIGLNTH=THELENTH; /* SAVE LENGTH */ 00415000 ST THELENTH,ORIGLNTH 0574 00416000 * IF PD1VVFP='0'B THEN 0575 00417000 TM PD1VVFP,B'10000000' 0575 00418000 BNZ @RF00575 0575 00419000 * DO; /* USE ADDRESS OR DEFAULT */ 00420000 * ESAU1DLE=MIN(PAGELNTH,THELENTH);/* EITHER WHOLE THING OR 0577 00421000 * BUFLN */ 00422000 L @14,@CF00091 0577 00423000 CR @14,THELENTH 0577 00424000 BNH *+6 00425000 LR @14,THELENTH 0577 00426000 ST @14,ESAU1DLE 0577 00427000 * ESAU1SYM='FIRST OPERAND DATA'; 0578 00428000 MVI ESAU1SYM+18,C' ' 0578 00429000 MVC ESAU1SYM+19(12),ESAU1SYM+18 0578 00430000 MVC ESAU1SYM(18),@CC01849 0578 00431000 * CALL BLSRACC(ZZ2,ESAU1,BUF1);/* GET INFORMATION */ 00432000 ST R9,@AL00001 0579 00433000 LA @14,ESAU1 0579 00434000 ST @14,@AL00001+4 0579 00435000 L @14,BUF1PT 0579 00436000 ST @14,@AL00001+8 0579 00437000 L @08,ZZ2RVTP(,R9) 0579 00438000 L @15,RVTRACCP(,@08) 0579 00439000 LA @01,@AL00001 0579 00440000 BALR @14,@15 0579 00441000 * END; 0580 00442000 * IF PD2VVFP='0'B THEN 0581 00443000 @RF00575 TM PD2VVFP,B'10000000' 0581 00444000 BNZ @RF00581 0581 00445000 * DO; /* USE ADDRESS OR DEFAULT */ 00446000 * ESAU2DLE=MIN(PAGELNTH,THELENTH); 0583 00447000 L @14,@CF00091 0583 00448000 CR @14,THELENTH 0583 00449000 BNH *+6 00450000 LR @14,THELENTH 0583 00451000 ST @14,ESAU2DLE 0583 00452000 * ESAU2SYM='SECOND OPERAND DATA'; 0584 00453000 MVI ESAU2SYM+19,C' ' 0584 00454000 MVC ESAU2SYM+20(11),ESAU2SYM+19 0584 00455000 MVC ESAU2SYM(19),@CC01851 0584 00456000 * CALL BLSRACC(ZZ2,ESAU2,BUF2);/* GET INFORMATION */ 00457000 ST R9,@AL00001 0585 00458000 LA @14,ESAU2 0585 00459000 ST @14,@AL00001+4 0585 00460000 L @14,BUF2PT 0585 00461000 ST @14,@AL00001+8 0585 00462000 L @08,ZZ2RVTP(,R9) 0585 00463000 L @15,RVTRACCP(,@08) 0585 00464000 LA @01,@AL00001 0585 00465000 BALR @14,@15 0585 00466000 * END; 0586 00467000 * 0587 00468000 * /*****************************************************************/ 00469000 * /* */ 00470000 * /* PROCESS MASK OPERAND IF ENTERED */ 00471000 * /* */ 00472000 * /*****************************************************************/ 00473000 * 0587 00474000 * IF PDMAVFP='1'B THEN /* MASK OPERAND */ 00475000 @RF00581 TM PDMAVFP,B'10000000' 0587 00476000 BNO @RF00587 0587 00477000 * DO; 0588 00478000 * IF PDMAVT^='X'|PDMAVL>16|PDMAVL/2^=THELENTH THEN 0589 00479000 CLI PDMAVT,C'X' 0589 00480000 BNE @RT00589 0589 00481000 LH @14,PDMAVL 0589 00482000 C @14,@CF00054 0589 00483000 BH @RT00589 0589 00484000 SRL @14,1 0589 00485000 CR @14,THELENTH 0589 00486000 BE @RF00589 0589 00487000 @RT00589 DS 0H 0590 00488000 * DO; /* INVALID TYPE OR LENGTH */ 00489000 * CALL BLSUPUTV(ZZ2,M087); 0591 00490000 ST R9,@AL00001 0591 00491000 LA @14,M087 0591 00492000 ST @14,@AL00001+4 0591 00493000 L @08,ZZ2BVTP(,R9) 0591 00494000 L @15,BVTPUTVP(,@08) 0591 00495000 LA @01,@AL00001 0591 00496000 BALR @14,@15 0591 00497000 * RETC=ZZZFLAGS; /* SET RETURN CODE */ 00498000 MVC RETC(4),@CF00033 0592 00499000 * GO TO EXITRLSA; /* EXIT */ 00500000 B EXITRLSA 0593 00501000 * END; 0594 00502000 * DO; /* BLRCNVCB(PDMAV(1:PDMAVL)) FROM 00503000 * (CHARACTER)TO(BIT)SET(PDMABUF( 00504000 * 1:THELENTH))TR(ZZ1TRCTX) */ 00505000 @RF00589 DS 0H 0596 00506000 * ZONED='0000000000000000'; /* PAD INTERMEDIATE */ 00507000 MVC ZONED(16),@CC01840 0596 00508000 * ZONED(1:+(PDMAVL))=PDMAV(1:PDMAVL);/* LEFT ALIGN SOURCE 0597 00509000 * STRING */ 00510000 LH @14,PDMAVL 0597 00511000 BCTR @14,0 0597 00512000 L @08,PDMAVP 0597 00513000 EX @14,@SM01890 0597 00514000 * TR(ZONED,ZZ1TRCTX); /* EBCDIC=>ZONED HEXADECIMAL */ 00515000 L @14,ZZ2ZZ1P(,R9) 0598 00516000 TR ZONED(16),ZZ1TRCTX(@14) 0598 00517000 * PACK(PACKED,ZONED(1:15)); /* ZONED HEXADECIMAL=>BIT */ 00518000 PACK PACKED(8),ZONED(15) 0599 00519000 * MVN(PACKED(57:64),ZONED(16:16));/* FINAL FOUR BITS */ 00520000 MVN PACKED+7(1),ZONED+15 0600 00521000 * PDMABUF(1:THELENTH)=PACKED(1:+(THELENTH));/* BIT STRING 0601 00522000 * RESULT */ 00523000 LR @14,THELENTH 0601 00524000 BCTR @14,0 0601 00525000 EX @14,@SM01892 0601 00526000 * END; /* BLRCNVCB(PDMAV(1:PDMAVL)) FROM 00527000 * (CHARACTER)TO(BIT)SET(PDMABUF( 00528000 * 1:THELENTH))TR(ZZ1TRCTX) */ 00529000 * END; 0603 00530000 * 0604 00531000 * /*****************************************************************/ 00532000 * /* */ 00533000 * /* PERFORM COMPARISON */ 00534000 * /* */ 00535000 * /*****************************************************************/ 00536000 * 0604 00537000 * RESPECIFY 0604 00538000 * (R2, 0604 00539000 * R3, 0604 00540000 * R4, 0604 00541000 * R5) RESTRICTED; /* RESTRICT REGS FOR CLCL */ 00542000 @RF00587 DS 0H 0605 00543000 * FLAG1='1'B; /* INDICATE FIRST TIME THROUGH 0605 00544000 * LOOP */ 00545000 * 0605 00546000 OI FLAG1,B'10000000' 0605 00547000 * /*****************************************************************/ 00548000 * /* */ 00549000 * /* IF UNEQUAL LENGTHS, INFORM USER */ 00550000 * /* */ 00551000 * /*****************************************************************/ 00552000 * 0606 00553000 * IF PD1VLEN^=PD2VLEN THEN 0606 00554000 C PD2VLEN,PD1VLEN 0606 00555000 BE @RF00606 0606 00556000 * DO; /* TELL USER IF SHORTER LEN USED */ 00557000 * DO; /* BLRCNVUC(ORIGLNTH) 0608 00558000 * FROM(UNSIGNED BINARY)TO(CHARAC 00559000 * TER)SET(IN81T1)PATTERN 0608 00560000 * REMARK(CONVERT LENGTH) */ 00561000 * 0608 00562000 * /***********************************************************/ 00563000 * /* */ 00564000 * /* CONVERT LENGTH */ 00565000 * /* */ 00566000 * /***********************************************************/ 00567000 * 0609 00568000 * CVD(ORIGLNTH,PACKED); /* UNSIGNED BINARY=>PACKED 0609 00569000 * DECIMAL */ 00570000 L @14,ORIGLNTH 0609 00571000 CVD @14,PACKED 0609 00572000 * ZONED='40404040402020202020202020202120'X;/* ED PATTERN */ 00573000 MVC ZONED(16),@CB01854 0610 00574000 * ED(ZONED(5:16),PACKED(17:64));/* PACKED DECIMAL=>EBCDIC */ 00575000 ED ZONED+4(12),PACKED+2 0611 00576000 * IN81T1=ZONED(17-LENGTH(IN81T1):16);/* EBCDIC RESULT */ 00577000 MVC IN81T1(8),ZONED+8 0612 00578000 * END; /* BLRCNVUC(ORIGLNTH) 0613 00579000 * FROM(UNSIGNED BINARY)TO(CHARAC 00580000 * TER)SET(IN81T1)PATTERN 0613 00581000 * REMARK(CONVERT LENGTH) */ 00582000 * OLDN=2; /* NUMBER OF SEGMENTS */ 00583000 MVC OLDN(4),@CF00068 0614 00584000 * OLDP(1)=ADDR(M031); /* BASE MESSAGE */ 00585000 LA @14,M031 0615 00586000 ST @14,OLDP 0615 00587000 * OLDP(2)=ADDR(IN81); /* SEGMENT */ 00588000 LA @14,IN81 0616 00589000 ST @14,OLDP+4 0616 00590000 * IN81L=12; 0617 00591000 MVC IN81L(2),@CH00033 0617 00592000 * IN81O=ADDR(M031T2)-ADDR(M031T);/* SET OFFSET OF SEGMENT */ 00593000 MVC IN81O(2),@CH01870 0618 00594000 * CALL BLSUMPK1(ZZ2,IN81); /* EDIT SEGMENT */ 00595000 ST R9,@AL00001 0619 00596000 LA @14,IN81 0619 00597000 ST @14,@AL00001+4 0619 00598000 L @08,ZZ2BVTP(,R9) 0619 00599000 L @15,BVTMPK1P(,@08) 0619 00600000 LA @01,@AL00001 0619 00601000 BALR @14,@15 0619 00602000 * CALL BLSUPUTO(ZZ2,OLD); /* OUTPUT MESSAGE */ 00603000 ST R9,@AL00001 0620 00604000 LA @14,OLD 0620 00605000 ST @14,@AL00001+4 0620 00606000 L @08,ZZ2BVTP(,R9) 0620 00607000 L @15,BVTPUTOP(,@08) 0620 00608000 LA @01,@AL00001 0620 00609000 BALR @14,@15 0620 00610000 * END; 0621 00611000 * 0621 00612000 * /*****************************************************************/ 00613000 * /* */ 00614000 * /* COMPARE UP TO PAGELNTH BYTES AT A TIME */ 00615000 * /* */ 00616000 * /*****************************************************************/ 00617000 * 0622 00618000 * DO J1=1 BY 1; /* CONTINUOUS LOOP OF COMPARES */ 00619000 @RF00606 LA J1,1 0622 00620000 @DL00622 DS 0H 0623 00621000 * R2=BUF1PT; /* POINT TO COMPARAND */ 00622000 L R2,BUF1PT 0623 00623000 * R4=BUF2PT; /* POINT TO COMPARAND */ 00624000 L R4,BUF2PT 0624 00625000 * R3=MIN(PAGELNTH,THELENTH); /* LENGTH TO COMPARE */ 00626000 L R3,@CF00091 0625 00627000 CR R3,THELENTH 0625 00628000 BNH *+6 00629000 LR R3,THELENTH 0625 00630000 * R5=R3; /* LENGTH TO COMPARE */ 00631000 LR R5,R3 0626 00632000 * IF ESAU1FSM='1'B|ESAU2FSM='1'B THEN/* IF INVALID */ 00633000 TM ESAU1FSM,B'00100000' 0627 00634000 BO @RT00627 0627 00635000 TM ESAU2FSM,B'00100000' 0627 00636000 BNO @RF00627 0627 00637000 @RT00627 DS 0H 0628 00638000 * DO; 0628 00639000 * 0628 00640000 * /***********************************************************/ 00641000 * /* */ 00642000 * /* DISCONTINUITY HIT BEFORE END OF COMPARISON */ 00643000 * /* */ 00644000 * /***********************************************************/ 00645000 * 0629 00646000 * ORIGLNTH=ORIGLNTH-THELENTH;/* GET NUMBER OF BYTES SEARCHED */ 00647000 L @14,ORIGLNTH 0629 00648000 SLR @14,THELENTH 0629 00649000 ST @14,ORIGLNTH 0629 00650000 * IF PKLIST=PNLIST THEN 0630 00651000 CLC PKLIST(2),@CH00043 0630 00652000 BNE @RF00630 0630 00653000 * DO; /* LIST OPERAND */ 00654000 * DO; /* BLRCNVUC(ORIGLNTH) 0632 00655000 * FROM(UNSIGNED BINARY)TO(CHARAC 00656000 * TER)SET(IN81T1)PATTERN 0632 00657000 * REMARK(CONVERT LENGTH) */ 00658000 * 0632 00659000 * /*****************************************************/ 00660000 * /* */ 00661000 * /* CONVERT LENGTH */ 00662000 * /* */ 00663000 * /*****************************************************/ 00664000 * 0633 00665000 * CVD(ORIGLNTH,PACKED);/* UNSIGNED BINARY=>PACKED 0633 00666000 * DECIMAL */ 00667000 CVD @14,PACKED 0633 00668000 * ZONED='40404040402020202020202020202120'X;/* ED 0634 00669000 * PATTERN */ 00670000 MVC ZONED(16),@CB01854 0634 00671000 * ED(ZONED(5:16),PACKED(17:64));/* PACKED 0635 00672000 * DECIMAL=>EBCDIC */ 00673000 ED ZONED+4(12),PACKED+2 0635 00674000 * IN81T1=ZONED(17-LENGTH(IN81T1):16);/* EBCDIC RESULT */ 00675000 MVC IN81T1(8),ZONED+8 0636 00676000 * END; /* BLRCNVUC(ORIGLNTH) 0637 00677000 * FROM(UNSIGNED BINARY)TO(CHARAC 00678000 * TER)SET(IN81T1)PATTERN 0637 00679000 * REMARK(CONVERT LENGTH) */ 00680000 * OLDN=2; /* 2 SEGMENTS */ 00681000 MVC OLDN(4),@CF00068 0638 00682000 * OLDP(2)=ADDR(IN81); /* 1ST SEGMENT */ 00683000 LA @14,IN81 0639 00684000 ST @14,OLDP+4 0639 00685000 * OLDP(1)=ADDR(M029); /* INSERT */ 00686000 LA @14,M029 0640 00687000 ST @14,OLDP 0640 00688000 * IN81O=ADDR(M029T2)-ADDR(M029T);/* OFFSET */ 00689000 MVC IN81O(2),@CH01871 0641 00690000 * IN81L=12; /* SET RETURN CODE */ 00691000 MVC IN81L(2),@CH00033 0642 00692000 * CALL BLSUMPK1(ZZ2,IN81);/* EDIT SEGMENT */ 00693000 ST R9,@AL00001 0643 00694000 LA @14,IN81 0643 00695000 ST @14,@AL00001+4 0643 00696000 L @08,ZZ2BVTP(,R9) 0643 00697000 L @15,BVTMPK1P(,@08) 0643 00698000 LA @01,@AL00001 0643 00699000 BALR @14,@15 0643 00700000 * CALL BLSUPUTO(ZZ2,OLD);/* OUTPUT MESSAGE */ 00701000 ST R9,@AL00001 0644 00702000 LA @14,OLD 0644 00703000 ST @14,@AL00001+4 0644 00704000 L @08,ZZ2BVTP(,R9) 0644 00705000 L @15,BVTPUTOP(,@08) 0644 00706000 LA @01,@AL00001 0644 00707000 BALR @14,@15 0644 00708000 * END; 0645 00709000 * RETC=ZZZFLAGS; /* SET RETURN CODE */ 00710000 @RF00630 MVC RETC(4),@CF00033 0646 00711000 * RF=0; /* NO EXTERNAL FAILURE */ 00712000 SLR RF,RF 0647 00713000 * GO TO EXITRLSA; /* EXIT */ 00714000 B EXITRLSA 0648 00715000 * END; 0649 00716000 * IF FLAG1='1'B&PDMAVFP='1'B THEN 0650 00717000 * 0650 00718000 @RF00627 TM FLAG1,B'10000000' 0650 00719000 BNO @RF00650 0650 00720000 TM PDMAVFP,B'10000000' 0650 00721000 BNO @RF00650 0650 00722000 * /*************************************************************/ 00723000 * /* */ 00724000 * /* MASK COMPARANDS */ 00725000 * /* */ 00726000 * /*************************************************************/ 00727000 * 0651 00728000 * DO; /* ANY MASKING FIRST TIME */ 00729000 * FLAG1='0'B; /* TURN OFF FIRST TIME FLAG */ 00730000 NI FLAG1,B'01111111' 0652 00731000 * BUF1(1:THELENTH)=BUF1(1:THELENTH)&PDMABUF(1:THELENTH); 0653 00732000 L @14,BUF1PT 0653 00733000 LR @08,THELENTH 0653 00734000 BCTR @08,0 0653 00735000 EX @08,@SN01894 0653 00736000 * BUF2(1:THELENTH)=BUF2(1:THELENTH)&PDMABUF(1:THELENTH); 0654 00737000 L @14,BUF2PT 0654 00738000 EX @08,@SN01896 0654 00739000 * END; 0655 00740000 * CLCL(R2,R4); /* PERFORM REQUESTED COMPARISON */ 00741000 * 0656 00742000 @RF00650 CLCL R2,R4 0656 00743000 * /***************************************************************/ 00744000 * /* */ 00745000 * /* INEQUALITY FOUND */ 00746000 * /* */ 00747000 * /***************************************************************/ 00748000 * 0657 00749000 * IF R3^=0 THEN 0657 00750000 LTR R3,R3 0657 00751000 BZ @RF00657 0657 00752000 * DO; /* INEQUALITY */ 00753000 * IF BYT1>BYT2 THEN /* COMPARAND 1 GREATER */ 00754000 CLC BYT1(1,R2),BYT2(R4) 0659 00755000 BNH @RF00659 0659 00756000 * DO; 0660 00757000 * IF PKLIST=PNLIST THEN /* LIST OPERAND */ 00758000 CLC PKLIST(2),@CH00043 0661 00759000 BNE @RF00661 0661 00760000 * DO; 0662 00761000 * OLDN=2; /* 2 SEGMENTS */ 00762000 MVC OLDN(4),@CF00068 0663 00763000 * OLDP(1)=ADDR(M030);/* BASE SEGMENT */ 00764000 LA @14,M030 0664 00765000 ST @14,OLDP 0664 00766000 * OLDP(2)=ADDR(MGT);/* INSERT */ 00767000 LA @14,MGT 0665 00768000 ST @14,OLDP+4 0665 00769000 * CALL BLSUPUTO(ZZ2,OLD);/* OUTPUT MESSAGE */ 00770000 ST R9,@AL00001 0666 00771000 LA @14,OLD 0666 00772000 ST @14,@AL00001+4 0666 00773000 L @08,ZZ2BVTP(,R9) 0666 00774000 L @15,BVTPUTOP(,@08) 0666 00775000 LA @01,@AL00001 0666 00776000 BALR @14,@15 0666 00777000 * END; 0667 00778000 * RETC=8; /* INDICATE COMPARAND 1 GREATER */ 00779000 @RF00661 MVC RETC(4),@CF00051 0668 00780000 * RF=0; /* NO EXTERNAL FAILURE */ 00781000 SLR RF,RF 0669 00782000 * END; 0670 00783000 * ELSE 0671 00784000 * DO; /* ARG2 GREATER */ 00785000 B @RC00659 0671 00786000 @RF00659 DS 0H 0672 00787000 * IF PKLIST=PNLIST THEN /* LIST REQUESTED */ 00788000 CLC PKLIST(2),@CH00043 0672 00789000 BNE @RF00672 0672 00790000 * DO; 0673 00791000 * OLDN=2; /* 2 SEGMENTS */ 00792000 MVC OLDN(4),@CF00068 0674 00793000 * OLDP(1)=ADDR(M030);/* BASE SEGMENT */ 00794000 LA @14,M030 0675 00795000 ST @14,OLDP 0675 00796000 * OLDP(2)=ADDR(MLT);/* INSERT */ 00797000 LA @14,MLT 0676 00798000 ST @14,OLDP+4 0676 00799000 * CALL BLSUPUTO(ZZ2,OLD);/* OUTPUT MESSAGE */ 00800000 ST R9,@AL00001 0677 00801000 LA @14,OLD 0677 00802000 ST @14,@AL00001+4 0677 00803000 L @08,ZZ2BVTP(,R9) 0677 00804000 L @15,BVTPUTOP(,@08) 0677 00805000 LA @01,@AL00001 0677 00806000 BALR @14,@15 0677 00807000 * END; 0678 00808000 * RF=0; /* NO ERRORS */ 00809000 @RF00672 SLR RF,RF 0679 00810000 * RETC=4; /* INDICATE COMPARAND 2 GREATER */ 00811000 MVC RETC(4),@CF00040 0680 00812000 * END; 0681 00813000 * GO TO EXITRLSA; /* EXIT */ 00814000 B EXITRLSA 0682 00815000 * END; 0683 00816000 * THELENTH=THELENTH-PAGELNTH; /* DECREMENT LENGTH BY LENGTH OF 00817000 * BUFFER */ 00818000 * 0684 00819000 @RF00657 SL THELENTH,@CF00091 0684 00820000 * /***************************************************************/ 00821000 * /* */ 00822000 * /* COMPARANDS ARE EQUAL */ 00823000 * /* */ 00824000 * /***************************************************************/ 00825000 * 0685 00826000 * IF THELENTH<=0 THEN /* IF EXHAUSTED COMPARANDS */ 00827000 LTR THELENTH,THELENTH 0685 00828000 BP @RF00685 0685 00829000 * DO; /* EQUAL ALL THE WAY */ 00830000 * IF PKLIST=PNLIST THEN /* LIST REQUESTED */ 00831000 CLC PKLIST(2),@CH00043 0687 00832000 BNE @RF00687 0687 00833000 * DO; 0688 00834000 * OLDN=2; /* 2 SEGMENTS */ 00835000 MVC OLDN(4),@CF00068 0689 00836000 * OLDP(1)=ADDR(M030); /* BASE SEGMENT */ 00837000 LA @14,M030 0690 00838000 ST @14,OLDP 0690 00839000 * OLDP(2)=ADDR(MEQ); /* INSERT */ 00840000 LA @14,MEQ 0691 00841000 ST @14,OLDP+4 0691 00842000 * CALL BLSUPUTO(ZZ2,OLD);/* OUTPUT MESSAGE */ 00843000 ST R9,@AL00001 0692 00844000 LA @14,OLD 0692 00845000 ST @14,@AL00001+4 0692 00846000 L @08,ZZ2BVTP(,R9) 0692 00847000 L @15,BVTPUTOP(,@08) 0692 00848000 LA @01,@AL00001 0692 00849000 BALR @14,@15 0692 00850000 * END; 0693 00851000 * RETC=0; /* INDICATE COMPARANDS EQUAL */ 00852000 @RF00687 SLR @14,@14 0694 00853000 ST @14,RETC 0694 00854000 * RF=0; /* NO ERRORS */ 00855000 SLR RF,RF 0695 00856000 * GO TO EXITRLSA; /* EXIT */ 00857000 B EXITRLSA 0696 00858000 * END; 0697 00859000 * ESAU1DLE=MIN(PAGELNTH,THELENTH);/* LENGTH IS AT MOST PAGELNTH 00860000 * TO COMPARE */ 00861000 @RF00685 L @14,@CF00091 0698 00862000 LR @08,@14 0698 00863000 CR @08,THELENTH 0698 00864000 BNH *+6 00865000 LR @08,THELENTH 0698 00866000 ST @08,ESAU1DLE 0698 00867000 * ESAU1LAD=ESAU1LAD+PAGELNTH; /* INCREMENT ADDRESS TO COMPARE 00868000 * AT */ 00869000 AL @14,ESAU1LAD 0699 00870000 ST @14,ESAU1LAD 0699 00871000 * CALL BLSRACC(ZZ2,ESAU1,BUF1); /* GET DATA */ 00872000 ST R9,@AL00001 0700 00873000 LA @14,ESAU1 0700 00874000 ST @14,@AL00001+4 0700 00875000 L @14,BUF1PT 0700 00876000 ST @14,@AL00001+8 0700 00877000 L @08,ZZ2RVTP(,R9) 0700 00878000 L @15,RVTRACCP(,@08) 0700 00879000 LA @01,@AL00001 0700 00880000 BALR @14,@15 0700 00881000 * ESAU2DLE=MIN(PAGELNTH,THELENTH);/* SET 2ND COMPARE LENGTH */ 00882000 L @14,@CF00091 0701 00883000 LR @08,@14 0701 00884000 CR @08,THELENTH 0701 00885000 BNH *+6 00886000 LR @08,THELENTH 0701 00887000 ST @08,ESAU2DLE 0701 00888000 * ESAU2LAD=ESAU2LAD+PAGELNTH; /* INC ADDRESS TO COMPARE AT */ 00889000 AL @14,ESAU2LAD 0702 00890000 ST @14,ESAU2LAD 0702 00891000 * CALL BLSRACC(ZZ2,ESAU2,BUF2); /* GET DATA */ 00892000 ST R9,@AL00001 0703 00893000 LA @14,ESAU2 0703 00894000 ST @14,@AL00001+4 0703 00895000 L @14,BUF2PT 0703 00896000 ST @14,@AL00001+8 0703 00897000 L @08,ZZ2RVTP(,R9) 0703 00898000 L @15,RVTRACCP(,@08) 0703 00899000 LA @01,@AL00001 0703 00900000 BALR @14,@15 0703 00901000 * END; 0704 00902000 AL J1,@CF00043 0704 00903000 B @DL00622 0704 00904000 * 0705 00905000 * /*****************************************************************/ 00906000 * /* */ 00907000 * /* PROGRAM EXIT */ 00908000 * /* */ 00909000 * /*****************************************************************/ 00910000 * 0705 00911000 *EXITRLSA: /* EXIT WITH PDL */ 00912000 * RETC=MIN(MAX(RF,RETC),ZZZFLAGT);/* SET MAX RETURN CODE */ 00913000 EXITRLSA L @14,RETC 0705 00914000 CR @14,RF 0705 00915000 BNL *+6 00916000 LR @14,RF 0705 00917000 LA @08,16 0705 00918000 CR @14,@08 0705 00919000 BNH *+6 00920000 LR @14,@08 0705 00921000 ST @14,RETC 0705 00922000 * DO WHILE(PDAPTR^=0); /* BLRRLSA MF(E,PD) */ 00923000 B @DE00706 0706 00924000 @DL00706 DS 0H 0707 00925000 * PDRPTR=PDAPTR; 0707 00926000 L PDRPTR,PDAPTR 0707 00927000 * PDAPTR=PDXP; 0708 00928000 L @14,PDXP-1(,PDRPTR) 0708 00929000 LA @14,0(,@14) 0708 00930000 ST @14,PDAPTR 0708 00931000 * DO; /* FREEMAIN(R) 0709 00932000 * LV(PDL)SP(1)A(PDDSECT) */ 00933000 * RESPECIFY 0710 00934000 * (GPR01F, 0710 00935000 * GPR00F) RESTRICTED; 0710 00936000 * GPR00F=PDL; /* LENGTH REQUESTED */ 00937000 L GPR00F,PDL-1(,PDRPTR) 0711 00938000 ICM GPR00F,8,@CB00932 0711 00939000 * GPR01F=1; /* SP IN REG 1 */ 00940000 LA GPR01F,1 0712 00941000 * GEN(SLL GPR01F,24) 0713 00942000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0713 00943000 SLL GPR01F,24 00944000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00945000 OR GPR00F,GPR01F 0714 00946000 * GPR01F=ADDR(PDDSECT); /* SET REGISTER ONE */ 00947000 LR GPR01F,PDRPTR 0715 00948000 * SVC(10); /* R-FORM OF GETMAIN */ 00949000 SVC 10 0716 00950000 * RESPECIFY 0717 00951000 * (GPR01F, 0717 00952000 * GPR00F) UNRESTRICTED; 0717 00953000 * END; /* FREEMAIN(R) 0718 00954000 * LV(PDL)SP(1)A(PDDSECT) */ 00955000 * END; /* BLRRLSA MF(E,PD) */ 00956000 @DE00706 L @14,PDAPTR 0719 00957000 LTR @14,@14 0719 00958000 BNZ @DL00706 0719 00959000 *EXITNORL: 0720 00960000 * DO; /* FREEMAIN(R) LV(PAGELNTH)SP(ZZZ 00961000 * SPEXC)A(BUF1) */ 00962000 EXITNORL DS 0H 0721 00963000 * RESPECIFY 0721 00964000 * (GPR01F, 0721 00965000 * GPR00F) RESTRICTED; 0721 00966000 * GPR00F=PAGELNTH; /* LENGTH REQUESTED */ 00967000 L GPR00F,@CF00091 0722 00968000 * GPR01F=ZZZSPEXC; /* SP IN REG 1 */ 00969000 LA GPR01F,1 0723 00970000 * GEN(SLL GPR01F,24) 0724 00971000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0724 00972000 SLL GPR01F,24 00973000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00974000 OR GPR00F,GPR01F 0725 00975000 * GPR01F=ADDR(BUF1); /* SET REGISTER ONE */ 00976000 L GPR01F,BUF1PT 0726 00977000 * SVC(10); /* R-FORM OF GETMAIN */ 00978000 SVC 10 0727 00979000 * RESPECIFY 0728 00980000 * (GPR01F, 0728 00981000 * GPR00F) UNRESTRICTED; 0728 00982000 * END; /* FREEMAIN(R) LV(PAGELNTH)SP(ZZZ 00983000 * SPEXC)A(BUF1) */ 00984000 * DO; /* FREEMAIN(R) LV(PAGELNTH)SP(ZZZ 00985000 * SPEXC)A(BUF2) */ 00986000 * RESPECIFY 0731 00987000 * (GPR01F, 0731 00988000 * GPR00F) RESTRICTED; 0731 00989000 * GPR00F=PAGELNTH; /* LENGTH REQUESTED */ 00990000 L GPR00F,@CF00091 0732 00991000 * GPR01F=ZZZSPEXC; /* SP IN REG 1 */ 00992000 LA GPR01F,1 0733 00993000 * GEN(SLL GPR01F,24) 0734 00994000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0734 00995000 SLL GPR01F,24 00996000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00997000 OR GPR00F,GPR01F 0735 00998000 * GPR01F=ADDR(BUF2); /* SET REGISTER ONE */ 00999000 L GPR01F,BUF2PT 0736 01000000 * SVC(10); /* R-FORM OF GETMAIN */ 01001000 SVC 10 0737 01002000 * RESPECIFY 0738 01003000 * (GPR01F, 0738 01004000 * GPR00F) UNRESTRICTED; 0738 01005000 * END; /* FREEMAIN(R) LV(PAGELNTH)SP(ZZZ 01006000 * SPEXC)A(BUF2) */ 01007000 * RETURN CODE(RETC); /* RETURN */ 01008000 L @08,RETC 0740 01009000 L @13,4(,@13) 0740 01010000 L @00,@SIZDATD 0740 01011000 LR @01,@11 0740 01012000 BLSUFRER R,LV=(0),A=(1) 01013000 LR @15,@08 0740 01014000 L @14,12(,@13) 0740 01015000 LM @00,@12,20(@13) 0740 01016000 BR @14 0740 01017000 * 0741 01018000 */*BLSRPEND--DEBUGGING MODULE */ 01019000 */*BLSUPEND--MVS IPCS MODULE */ 01020000 * 0741 01021000 * DECLARE /* DATA FOR AHB MACROS */ 01022000 * PACKED BIT(64) BOUNDARY(DWORD),/* DATA CONVERSION WORK AREA */ 01023000 * ZONED CHARACTER(16) BOUNDARY(DWORD);/* DATA CONVERSION WORK 0741 01024000 * AREA */ 01025000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01026000 * GPR00F FIXED(31) REG(0), 0742 01027000 * GPR01F FIXED(31) REG(1), 0742 01028000 * GPR15F FIXED(31) REG(15); 0742 01029000 * DECLARE /* COMMON VARIABLES */ 01030000 * I256C CHAR(256) BASED, 0743 01031000 * I031F FIXED(31) BASED, 0743 01032000 * I031P PTR(31) BASED, 0743 01033000 * I015F FIXED(15) BASED, 0743 01034000 * I015P PTR(15) BASED, 0743 01035000 * I008P PTR(8) BASED, 0743 01036000 * I001C CHAR(1) BASED; 0743 01037000 * GENERATE NODEFS NOREFS DATA; 0744 01038000 * END BLSRCOMP /* BLRPEND(BLSRCOMP) */ 01039000 * 0745 01040000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01041000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 01042000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 01043000 */*%INCLUDE SYSLIB (BLRFULL ) */ 01044000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 01045000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 01046000 */*%INCLUDE SYSLIB (IKJECT ) */ 01047000 */*%INCLUDE SYSLIB (IKJUPT ) */ 01048000 */*%INCLUDE SYSLIB (BLSUSERV) */ 01049000 */*%INCLUDE SYSLIB (BLRSERV ) */ 01050000 */*%INCLUDE SYSLIB (BLRSERVD) */ 01051000 */*%INCLUDE SYSLIB (BLSRSERV) */ 01052000 * 0745 01053000 * ; 0745 01054000 @EL00001 L @13,4(,@13) 0745 01055000 @EF00001 L @00,@SIZDATD 0745 01056000 LR @01,@11 0745 01057000 BLSUFRER R,LV=(0),A=(1) 01058000 @ER00001 LM @14,@12,12(@13) 0745 01059000 BR @14 0745 01060000 @DATA DS 0H 01061000 @CH01871 DC H'36' 01062000 @CH01870 DC H'49' 01063000 @SM01874 MVC ZONED(0),PD1VV(@06) 01064000 @SM01876 MVC PD1VBUF(0),PACKED 01065000 @SM01878 MVC PD1VBUF(0),PD1VV(@06) 01066000 @SM01880 MVC ZONED(0),PD2VV(@08) 01067000 @SM01882 MVC PD2VBUF(0),PACKED 01068000 @SM01884 MVC PD2VBUF(0),PD2VV(@06) 01069000 @SM01886 MVC BUF1(0,@14),PD1VBUF 01070000 @SM01888 MVC BUF2(0,@14),PD2VBUF 01071000 @SM01890 MVC ZONED(0),PDMAV(@08) 01072000 @SM01892 MVC PDMABUF(0),PACKED 01073000 @SN01894 NC BUF1(0,@14),PDMABUF 01074000 @SN01896 NC BUF2(0,@14),PDMABUF 01075000 @DATD DSECT 01076000 DS 0F 01077000 @SA00001 DS 18F 01078000 @AL00001 DS 5A 01079000 BLSRCOMP CSECT 01080000 DS 0F 01081000 @CF00043 DC F'1' 01082000 @CH00043 EQU @CF00043+2 01083000 @CF00068 DC F'2' 01084000 @CH00068 EQU @CF00068+2 01085000 @CF00040 DC F'4' 01086000 @CF00051 DC F'8' 01087000 @CF00033 DC F'12' 01088000 @CH00033 EQU @CF00033+2 01089000 @CF00054 DC F'16' 01090000 @CF00091 DC F'4096' 01091000 @DATD DSECT 01092000 DS 0D 01093000 PDAPTR DS A 01094000 ORIGLNTH DS F 01095000 RETC DS F 01096000 PD1VLEN DS F 01097000 BUF1PT DS A 01098000 BUF2PT DS A 01099000 ESAU1 DS CL694 01100000 ORG ESAU1 01101000 ESAU1RID DS CL2 01102000 @NM00090 DS BL6 01103000 @NM00091 DS CL8 01104000 @NM00092 DS BL8 01105000 ESAU1RDX DS FL4 01106000 ESAU1SYM DS CL31 01107000 ESAU1ELK DS 0C 01108000 ESAU1RV1 DS CL1 01109000 ESAU1AS DS CL16 01110000 ORG ESAU1AS 01111000 ESAU1AS0 DS 0C 01112000 ESAU1AST DS CL2 01113000 @NM00093 DS BL2 01114000 ESAU1AS1 DS FL4 01115000 ESAU1AS2 DS FL4 01116000 @NM00094 DS BL4 01117000 ESAU1AS9 DS 0C 01118000 ORG ESAU1+76 01119000 ESAU1LAD DS AL4 01120000 ESAU1D DS CL60 01121000 ORG ESAU1D 01122000 ESAU1D00 DS 0C 01123000 ESAU1DOF DS FL4 01124000 ESAU1DLE DS FL4 01125000 ESAU1DOB DS FL1 01126000 ESAU1DLB DS FL1 01127000 ESAU1DT DS CL34 01128000 ORG ESAU1DT 01129000 ESAU1DT0 DS 0C 01130000 ESAU1DTY DS CL1 01131000 @NM00095 DS BL1 01132000 ESAU1DTD DS CL31 01133000 ESAU1DTE DS CL1 01134000 ESAU1DT9 DS 0C 01135000 ORG ESAU1D+44 01136000 ESAU1DIM DS FL4 01137000 ESAU1DIL DS FL4 01138000 ESAU1DF DS BL4 01139000 ORG ESAU1DF 01140000 ESAU1DFA DS BL1 01141000 @NM00096 EQU ESAU1DF+0 01142000 ORG ESAU1D+56 01143000 @NM00097 DS BL4 01144000 ESAU1D99 DS 0C 01145000 ORG ESAU1+140 01146000 ESAU1MAD DS AL4 01147000 @NM00098 DS BL16 01148000 ESAU1KEY DS BL1 01149000 ESAU1F DS BL3 01150000 ORG ESAU1F 01151000 ESAU1FS DS BL1 01152000 ORG ESAU1FS 01153000 ESAU1FSC DS BL1 01154000 ESAU1FS2 EQU ESAU1FS+0 01155000 ESAU1FSM EQU ESAU1FS+0 01156000 ESAU1FSA EQU ESAU1FS+0 01157000 ESAU1FSP EQU ESAU1FS+0 01158000 ESAU1FSR EQU ESAU1FS+0 01159000 ESAU1FSX EQU ESAU1FS+0 01160000 ESAU1FSS EQU ESAU1FS+0 01161000 ORG ESAU1F+1 01162000 ESAU1FC DS BL1 01163000 ORG ESAU1FC 01164000 ESAU1FCD DS BL1 01165000 @NM00099 EQU ESAU1FC+0 01166000 ORG ESAU1F+2 01167000 @NM00100 DS BL1 01168000 ORG ESAU1+164 01169000 ESAU1ABS DS FL4 01170000 @NM00101 DS BL12 01171000 ESAU1R DS CL514 01172000 ORG ESAU1R 01173000 ESAU1RL DS FL2 01174000 ESAU1RT DS CL512 01175000 ORG ESAU1RT 01176000 ESAU1RT1 DS CL512 01177000 ORG ESAU1+694 01178000 ESAU1999 DS 0C 01179000 ORG ESAU1+694 01180000 DS CL2 01181000 ESAU2 DS CL694 01182000 ORG ESAU2 01183000 ESAU2RID DS CL2 01184000 @NM00130 DS BL6 01185000 @NM00131 DS CL8 01186000 @NM00132 DS BL8 01187000 ESAU2RDX DS FL4 01188000 ESAU2SYM DS CL31 01189000 ESAU2ELK DS 0C 01190000 ESAU2RV1 DS CL1 01191000 ESAU2AS DS CL16 01192000 ORG ESAU2AS 01193000 ESAU2AS0 DS 0C 01194000 ESAU2AST DS CL2 01195000 @NM00133 DS BL2 01196000 ESAU2AS1 DS FL4 01197000 ESAU2AS2 DS FL4 01198000 @NM00134 DS BL4 01199000 ESAU2AS9 DS 0C 01200000 ORG ESAU2+76 01201000 ESAU2LAD DS AL4 01202000 ESAU2D DS CL60 01203000 ORG ESAU2D 01204000 ESAU2D00 DS 0C 01205000 ESAU2DOF DS FL4 01206000 ESAU2DLE DS FL4 01207000 ESAU2DOB DS FL1 01208000 ESAU2DLB DS FL1 01209000 ESAU2DT DS CL34 01210000 ORG ESAU2DT 01211000 ESAU2DT0 DS 0C 01212000 ESAU2DTY DS CL1 01213000 @NM00135 DS BL1 01214000 ESAU2DTD DS CL31 01215000 ESAU2DTE DS CL1 01216000 ESAU2DT9 DS 0C 01217000 ORG ESAU2D+44 01218000 ESAU2DIM DS FL4 01219000 ESAU2DIL DS FL4 01220000 ESAU2DF DS BL4 01221000 ORG ESAU2DF 01222000 ESAU2DFA DS BL1 01223000 @NM00136 EQU ESAU2DF+0 01224000 ORG ESAU2D+56 01225000 @NM00137 DS BL4 01226000 ESAU2D99 DS 0C 01227000 ORG ESAU2+140 01228000 ESAU2MAD DS AL4 01229000 @NM00138 DS BL16 01230000 ESAU2KEY DS BL1 01231000 ESAU2F DS BL3 01232000 ORG ESAU2F 01233000 ESAU2FS DS BL1 01234000 ORG ESAU2FS 01235000 ESAU2FSC DS BL1 01236000 ESAU2FS2 EQU ESAU2FS+0 01237000 ESAU2FSM EQU ESAU2FS+0 01238000 ESAU2FSA EQU ESAU2FS+0 01239000 ESAU2FSP EQU ESAU2FS+0 01240000 ESAU2FSR EQU ESAU2FS+0 01241000 ESAU2FSX EQU ESAU2FS+0 01242000 ESAU2FSS EQU ESAU2FS+0 01243000 ORG ESAU2F+1 01244000 ESAU2FC DS BL1 01245000 ORG ESAU2FC 01246000 ESAU2FCD DS BL1 01247000 @NM00139 EQU ESAU2FC+0 01248000 ORG ESAU2F+2 01249000 @NM00140 DS BL1 01250000 ORG ESAU2+164 01251000 ESAU2ABS DS FL4 01252000 @NM00141 DS BL12 01253000 ESAU2R DS CL514 01254000 ORG ESAU2R 01255000 ESAU2RL DS FL2 01256000 ESAU2RT DS CL512 01257000 ORG ESAU2RT 01258000 ESAU2RT1 DS CL512 01259000 ORG ESAU2+694 01260000 ESAU2999 DS 0C 01261000 ORG ESAU2+694 01262000 DS CL2 01263000 OLD DS CL12 01264000 ORG OLD 01265000 OLDN DS FL4 01266000 OLDP DS 2A 01267000 ORG OLD+12 01268000 IN81 DS CL12 01269000 ORG IN81 01270000 IN81L DS FL2 01271000 IN81O DS FL2 01272000 IN81T DS CL8 01273000 ORG IN81T 01274000 IN81T1 DS CL8 01275000 ORG IN81+12 01276000 PDMABUF DS CL256 01277000 PD1VBUF DS CL256 01278000 PD2VBUF DS CL256 01279000 FLAGS DS BL1 01280000 ORG FLAGS 01281000 FLAG1 DS BL1 01282000 @NM00168 EQU FLAGS+0 01283000 ORG FLAGS+1 01284000 DS CL7 01285000 ZONED DS CL16 01286000 PACKED DS BL8 01287000 BLSRCOMP CSECT 01288000 DS 0F 01289000 @SIZDATD DC AL1(0) 01290000 DC AL3(@ENDDATD-@DATD) 01291000 DS 0D 01292000 PCPTR DC AL4(PC) 01293000 @CC01851 DC C'SECOND OPERAND DATA' 01294000 @CC01849 DC C'FIRST OPERAND DATA' 01295000 @CC01840 DC C'0000000000000000' 01296000 @CB01854 DC X'40404040402020202020202020202120' 01297000 @CB00932 DC X'00' 01298000 DS CL6 01299000 ESCO DS CL182 01300000 ORG ESCO 01301000 ESCORID DC CL2'ES' 01302000 @NM00077 DC X'000000000000' 01303000 @NM00078 DC CL8' ' 01304000 @NM00079 DC X'00' 01305000 DC XL7'0' 01306000 ESCORDX DC A(0) 01307000 ESCOSYM DC CL31' ' 01308000 ESCOELK DS 0C 01309000 ESCORV1 DC CL1' ' 01310000 ESCOAS DS CL16 01311000 ORG ESCOAS 01312000 ESCOAS0 DS 0C 01313000 ESCOAST DC CL2' ' 01314000 @NM00080 DC X'0000' 01315000 ESCOAS1 DC A(0) 01316000 ESCOAS2 DC A(0) 01317000 @NM00081 DC X'00' 01318000 DC XL3'0' 01319000 ESCOAS9 DS 0C 01320000 ORG ESCO+76 01321000 ESCOLAD DC A(0) 01322000 ESCOD DS CL60 01323000 ORG ESCOD 01324000 ESCOD00 DS 0C 01325000 ESCODOF DC F'0' 01326000 ESCODLE DC A(4) 01327000 ESCODOB DC AL1(0) 01328000 ESCODLB DC AL1(0) 01329000 ESCODT DS CL34 01330000 ORG ESCODT 01331000 ESCODT0 DS 0C 01332000 ESCODTY DC CL1'U' 01333000 @NM00082 DC X'00' 01334000 ESCODTD DC CL31' ' 01335000 ESCODTE DC CL1' ' 01336000 ESCODT9 DS 0C 01337000 ORG ESCOD+44 01338000 ESCODIM DC A(0) 01339000 ESCODIL DC F'0' 01340000 ESCODF DC X'00000000' 01341000 ORG ESCODF 01342000 ESCODFA DS BL1 01343000 @NM00083 EQU ESCODF+0 01344000 ORG ESCOD+56 01345000 @NM00084 DC X'00' 01346000 DC XL3'0' 01347000 ESCOD99 DS 0C 01348000 ORG ESCO+140 01349000 ESCOMAD DC A(0) 01350000 @NM00085 DC X'00' 01351000 DC XL15'0' 01352000 ESCOKEY DS BL1 01353000 ESCOF DC X'00' 01354000 DC XL2'0' 01355000 ORG ESCOF 01356000 ESCOFS DS BL1 01357000 ORG ESCOFS 01358000 ESCOFSC DS BL1 01359000 ESCOFS2 EQU ESCOFS+0 01360000 ESCOFSM EQU ESCOFS+0 01361000 ESCOFSA EQU ESCOFS+0 01362000 ESCOFSP EQU ESCOFS+0 01363000 ESCOFSR EQU ESCOFS+0 01364000 ESCOFSX EQU ESCOFS+0 01365000 ESCOFSS EQU ESCOFS+0 01366000 ORG ESCOF+1 01367000 ESCOFC DS BL1 01368000 ORG ESCOFC 01369000 ESCOFCD DS BL1 01370000 @NM00086 EQU ESCOFC+0 01371000 ORG ESCOF+2 01372000 @NM00087 DS BL1 01373000 ORG ESCO+164 01374000 ESCOABS DC A(0) 01375000 @NM00088 DC X'00' 01376000 DC XL11'0' 01377000 ESCOR DS CL2 01378000 ORG ESCOR 01379000 ESCORL DC AL2(0) 01380000 ESCORT DS 0C 01381000 ORG ESCORT 01382000 ESCORT1 DS 0C 01383000 ORG ESCO+182 01384000 ESCO999 DS 0C 01385000 ORG ESCO+182 01386000 M029 DS CL46 01387000 ORG M029 01388000 M029L DC AL2(46) 01389000 M029O DC AL2(0) 01390000 M029T DS CL42 01391000 ORG M029T 01392000 M029T1 DC CL36'BLS18029I COMPARE DISCONTINUED AFTER' 01393000 M029T2 DC CL6' BYTES' 01394000 ORG M029+46 01395000 M030 DS CL37 01396000 ORG M030 01397000 M030L DC AL2(37) 01398000 M030O DC AL2(0) 01399000 M030T DS CL33 01400000 ORG M030T 01401000 M030T1 DC CL23'BLS18030I OPERAND 1 IS ' 01402000 M030T2 DC CL10' OPERAND 2' 01403000 ORG M030+37 01404000 DS CL1 01405000 M031 DS CL70 01406000 ORG M031 01407000 M031L DC AL2(70) 01408000 M031O DC AL2(0) 01409000 M031T DS CL66 01410000 ORG M031T 01411000 M031T1 DC CL49'BLS18031I OPERAND LENGTHS UNEQUAL, SHORTER LENGTH' 01412000 M031T2 DC CL17' USED FOR COMPARE' 01413000 ORG M031+70 01414000 M087 DS CL34 01415000 ORG M087 01416000 M087L DC AL2(34) 01417000 M087O DC AL2(0) 01418000 M087T DS CL30 01419000 ORG M087T 01420000 M087T1 DC CL30'BLS18087I INVALID COMPARE MASK' 01421000 ORG M087+34 01422000 MGT DS CL16 01423000 ORG MGT 01424000 MGTL DC AL2(16) 01425000 MGTO DC AL2(M030T2-M030T) 01426000 MGTT DS CL12 01427000 ORG MGTT 01428000 MGTT1 DC CL12'GREATER THAN' 01429000 ORG MGT+16 01430000 MLT DS CL13 01431000 ORG MLT 01432000 MLTL DC AL2(13) 01433000 MLTO DC AL2(M030T2-M030T) 01434000 MLTT DS CL9 01435000 ORG MLTT 01436000 MLTT1 DC CL9'LESS THAN' 01437000 ORG MLT+13 01438000 DS CL1 01439000 MEQ DS CL12 01440000 ORG MEQ 01441000 MEQL DC AL2(12) 01442000 MEQO DC AL2(M030T2-M030T) 01443000 MEQT DS CL8 01444000 ORG MEQT 01445000 MEQT1 DC CL8'EQUAL TO' 01446000 ORG MEQ+12 01447000 PXDO DC AL2(PXDSPL-PD) 01448000 DC 2AL2(0) 01449000 DC AL2(PXDRMK-PD) 01450000 DC AL2(PXDREQ-PD) 01451000 DC AL2(PXDSTG-PD) 01452000 DC AL2(PXDSYM-PD) 01453000 DC AL2(PXDMCH-PD) 01454000 DC 3AL2(0) 01455000 PXAO DC AL2(0) 01456000 DC AL2(PXA1-PD) 01457000 DC AL2(PXA2-PD) 01458000 DC AL2(0) 01459000 DC AL2(0) 01460000 DC AL2(PXCPU-PD) 01461000 DC AL2(0) 01462000 DC AL2(PXASI-PD) 01463000 DC AL2(0) 01464000 DC AL2(0) 01465000 DC AL2(PXDTYPE-PD) 01466000 DC AL2(0) 01467000 DC AL2(PXLENGTH-PD) 01468000 DC AL2(PXMULT-PD) 01469000 DC AL2(PXRMK-PD) 01470000 DC AL2(PXDTD-PD) 01471000 DC AL2(PXLEN-PD) 01472000 DC AL2(PXDIM-PD) 01473000 DC AL2(PXREM-PD) 01474000 DC AL2(PXNTRY-PD) 01475000 DC AL2(PXNTR-PD) 01476000 PXRO DC AL2(PXPRINT-PD) 01477000 DC AL2(PXTERM-PD) 01478000 DC AL2(PXDFLG-PD) 01479000 DC AL2(PXDFLV-PD) 01480000 PYAO DC AL2(0) 01481000 DC AL2(PYA1-PD) 01482000 DC AL2(PYA2-PD) 01483000 DC AL2(0) 01484000 DC AL2(0) 01485000 DC AL2(PYCPU-PD) 01486000 DC AL2(0) 01487000 DC AL2(PYASI-PD) 01488000 DC AL2(0) 01489000 DC AL2(0) 01490000 DC AL2(PYDTYPE-PD) 01491000 DC AL2(0) 01492000 DC AL2(PYLENGTH-PD) 01493000 DC AL2(PYMULT-PD) 01494000 DC AL2(PYRMK-PD) 01495000 DC AL2(PYDTD-PD) 01496000 DC AL2(PYLEN-PD) 01497000 DC AL2(PYDIM-PD) 01498000 DC AL2(PYREM-PD) 01499000 DC AL2(PYNTRY-PD) 01500000 DC AL2(PYNTR-PD) 01501000 @DATD DSECT 01502000 SPACE 2 01503000 *********************************************************************** 01504000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01505000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01506000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01507000 *********************************************************************** 01508000 SPACE 01509000 BLSRCOMP CSECT 01510000 ORG 01511000 DS 0D 01512000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSRCOMP+19)/20+7)/8)CL8'BLSRCOMP' 01513000 @DATD DSECT 01514000 DS 0H 01515000 @DATD DSECT 01516000 SPACE 2 01517000 *********************************************************************** 01518000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 01519000 *********************************************************************** 01520000 SPACE 01521000 BLSRCOMP CSECT 01522000 PC IKJPARM DSECT=PD 01523000 @DATD DSECT 01524000 BLSRCOMP CSECT 01525000 PK1 IKJKEYWD DEFAULT='ADDRESS' 01526000 @DATD DSECT 01527000 BLSRCOMP CSECT 01528000 IKJNAME 'ADDRESS',SUBFLD=PS1ADDR 01529000 @DATD DSECT 01530000 BLSRCOMP CSECT 01531000 IKJNAME 'VALUE',SUBFLD=PS1VALUE 01532000 @DATD DSECT 01533000 BLSRCOMP CSECT 01534000 PKLIST IKJKEYWD DEFAULT='NOLIST' 01535000 @DATD DSECT 01536000 BLSRCOMP CSECT 01537000 IKJNAME 'LIST' 01538000 @DATD DSECT 01539000 BLSRCOMP CSECT 01540000 IKJNAME 'NOLIST' 01541000 @DATD DSECT 01542000 BLSRCOMP CSECT 01543000 PKMASK IKJKEYWD 01544000 @DATD DSECT 01545000 BLSRCOMP CSECT 01546000 IKJNAME 'MASK',SUBFLD=PSMASK 01547000 @DATD DSECT 01548000 BLSRCOMP CSECT 01549000 IKJNAME 'NOMASK' 01550000 @DATD DSECT 01551000 BLSRCOMP CSECT 01552000 PKWITH IKJKEYWD DEFAULT='WITH' 01553000 @DATD DSECT 01554000 BLSRCOMP CSECT 01555000 IKJNAME 'WITH',SUBFLD=PSWITH 01556000 @DATD DSECT 01557000 BLSRCOMP CSECT 01558000 PXA1 IKJKEYWD 01559000 @DATD DSECT 01560000 BLSRCOMP CSECT 01561000 IKJNAME 'ABSOLUTE' 01562000 @DATD DSECT 01563000 BLSRCOMP CSECT 01564000 IKJNAME 'CPU',SUBFLD=PXSUBFB 01565000 @DATD DSECT 01566000 BLSRCOMP CSECT 01567000 IKJNAME 'HEADER' 01568000 @DATD DSECT 01569000 BLSRCOMP CSECT 01570000 PXA2 IKJKEYWD 01571000 @DATD DSECT 01572000 BLSRCOMP CSECT 01573000 IKJNAME 'ASID',SUBFLD=PXSUBFE 01574000 @DATD DSECT 01575000 BLSRCOMP CSECT 01576000 IKJNAME 'REAL' 01577000 @DATD DSECT 01578000 BLSRCOMP CSECT 01579000 IKJNAME 'STATUS' 01580000 @DATD DSECT 01581000 BLSRCOMP CSECT 01582000 PXDSPL IKJKEYWD 01583000 @DATD DSECT 01584000 BLSRCOMP CSECT 01585000 IKJNAME 'DISPLAY',SUBFLD=PXSUBFD 01586000 @DATD DSECT 01587000 BLSRCOMP CSECT 01588000 IKJNAME 'NODISPLAY',SUBFLD=PXSUBFD 01589000 @DATD DSECT 01590000 BLSRCOMP CSECT 01591000 PXDTYPE IKJKEYWD 01592000 @DATD DSECT 01593000 BLSRCOMP CSECT 01594000 IKJNAME 'AREA',SUBFLD=PXSUBFG 01595000 @DATD DSECT 01596000 BLSRCOMP CSECT 01597000 IKJNAME 'B',ALIAS=('BIT','HEXADECIMAL','X') 01598000 @DATD DSECT 01599000 BLSRCOMP CSECT 01600000 IKJNAME 'C',ALIAS=('CHARACTER') 01601000 @DATD DSECT 01602000 BLSRCOMP CSECT 01603000 IKJNAME 'MODULE',SUBFLD=PXSUBFG 01604000 @DATD DSECT 01605000 BLSRCOMP CSECT 01606000 IKJNAME 'POINTER',ALIAS=('PTR') 01607000 @DATD DSECT 01608000 BLSRCOMP CSECT 01609000 IKJNAME 'F',ALIAS=('SIGNED') 01610000 @DATD DSECT 01611000 BLSRCOMP CSECT 01612000 IKJNAME 'STRUCTURE',SUBFLD=PXSUBFG 01613000 @DATD DSECT 01614000 BLSRCOMP CSECT 01615000 IKJNAME 'UNSIGNED' 01616000 @DATD DSECT 01617000 BLSRCOMP CSECT 01618000 PXLENGTH IKJKEYWD 01619000 @DATD DSECT 01620000 BLSRCOMP CSECT 01621000 IKJNAME 'LENGTH',SUBFLD=PXSUBFL 01622000 @DATD DSECT 01623000 BLSRCOMP CSECT 01624000 PXMULT IKJKEYWD 01625000 @DATD DSECT 01626000 BLSRCOMP CSECT 01627000 IKJNAME 'DIMENSION',ALIAS=('MULTIPLE'),SUBFLD=PXSUBFI 01628000 @DATD DSECT 01629000 BLSRCOMP CSECT 01630000 IKJNAME 'SCALAR' 01631000 @DATD DSECT 01632000 BLSRCOMP CSECT 01633000 PXNTRY IKJKEYWD 01634000 @DATD DSECT 01635000 BLSRCOMP CSECT 01636000 IKJNAME 'ENTRY',ALIAS=('ENTRIES'),SUBFLD=PXSUBFN 01637000 @DATD DSECT 01638000 BLSRCOMP CSECT 01639000 PXRMK IKJKEYWD 01640000 @DATD DSECT 01641000 BLSRCOMP CSECT 01642000 IKJNAME 'REMARK',SUBFLD=PXSUBFJ 01643000 @DATD DSECT 01644000 BLSRCOMP CSECT 01645000 IKJNAME 'NOREMARK' 01646000 @DATD DSECT 01647000 BLSRCOMP CSECT 01648000 PXPRINT IKJKEYWD 01649000 @DATD DSECT 01650000 BLSRCOMP CSECT 01651000 IKJNAME 'PRINT' 01652000 @DATD DSECT 01653000 BLSRCOMP CSECT 01654000 IKJNAME 'NOPRINT' 01655000 @DATD DSECT 01656000 BLSRCOMP CSECT 01657000 PXTERM IKJKEYWD 01658000 @DATD DSECT 01659000 BLSRCOMP CSECT 01660000 IKJNAME 'TERMINAL' 01661000 @DATD DSECT 01662000 BLSRCOMP CSECT 01663000 IKJNAME 'NOTERMINAL' 01664000 @DATD DSECT 01665000 BLSRCOMP CSECT 01666000 PXDFLG IKJKEYWD 01667000 @DATD DSECT 01668000 BLSRCOMP CSECT 01669000 IKJNAME 'FLAG',SUBFLD=PXSUBFM 01670000 @DATD DSECT 01671000 BLSRCOMP CSECT 01672000 PXTEST IKJKEYWD 01673000 @DATD DSECT 01674000 BLSRCOMP CSECT 01675000 IKJNAME 'TEST' 01676000 @DATD DSECT 01677000 BLSRCOMP CSECT 01678000 IKJNAME 'NOTEST' 01679000 @DATD DSECT 01680000 BLSRCOMP CSECT 01681000 SPACE 01682000 PXSUBFM IKJSUBF 01683000 @DATD DSECT 01684000 BLSRCOMP CSECT 01685000 PXDFLV IKJKEYWD 01686000 @DATD DSECT 01687000 BLSRCOMP CSECT 01688000 IKJNAME 'INFORMATIONAL' 01689000 @DATD DSECT 01690000 BLSRCOMP CSECT 01691000 IKJNAME 'WARNING' 01692000 @DATD DSECT 01693000 BLSRCOMP CSECT 01694000 IKJNAME 'ERROR' 01695000 @DATD DSECT 01696000 BLSRCOMP CSECT 01697000 IKJNAME 'SERIOUS',ALIAS=('SEVERE') 01698000 @DATD DSECT 01699000 BLSRCOMP CSECT 01700000 IKJNAME 'TERMINATING' 01701000 @DATD DSECT 01702000 BLSRCOMP CSECT 01703000 SPACE 01704000 PXSUBFG IKJSUBF 01705000 @DATD DSECT 01706000 BLSRCOMP CSECT 01707000 PXDTD IKJIDENT 'DATA NAME',FIRST=ALPHA,MAXLNTH=31,OTHER=ALPHANUM 01708000 @DATD DSECT 01709000 BLSRCOMP CSECT 01710000 SPACE 01711000 PXSUBFL IKJSUBF 01712000 @DATD DSECT 01713000 BLSRCOMP CSECT 01714000 PXLEN IKJIDENT 'LENGTH',INTEG,PROMPT='LENGTH',VALIDCK=BLSUVP31 01715000 @DATD DSECT 01716000 BLSRCOMP CSECT 01717000 SPACE 01718000 PXSUBFI IKJSUBF 01719000 @DATD DSECT 01720000 BLSRCOMP CSECT 01721000 PXDIM IKJIDENT 'DIMENSION',INTEG,PROMPT='DIMENSION',VALIDCK=BLSUVP31 01722000 @DATD DSECT 01723000 BLSRCOMP CSECT 01724000 SPACE 01725000 PXSUBFN IKJSUBF 01726000 @DATD DSECT 01727000 BLSRCOMP CSECT 01728000 PXNTR IKJIDENT 'ENTRY(IES)',INTEG,RANGE,PROMPT='ENTRY(IES)',VALIDCK=*01729000 BLSUVP32 01730000 @DATD DSECT 01731000 BLSRCOMP CSECT 01732000 SPACE 01733000 PXSUBFJ IKJSUBF 01734000 @DATD DSECT 01735000 BLSRCOMP CSECT 01736000 PXREM IKJPOSIT QSTRING,PROMPT='REMARK' 01737000 @DATD DSECT 01738000 BLSRCOMP CSECT 01739000 SPACE 01740000 PXSUBFB IKJSUBF 01741000 @DATD DSECT 01742000 BLSRCOMP CSECT 01743000 PXCPU IKJIDENT 'CPU ADDRESS',INTEG,PROMPT='CPU ADDRESS',VALIDCK=BLSR*01744000 VPCP 01745000 @DATD DSECT 01746000 BLSRCOMP CSECT 01747000 SPACE 01748000 PXSUBFE IKJSUBF 01749000 @DATD DSECT 01750000 BLSRCOMP CSECT 01751000 PXASI IKJIDENT 'ASID',INTEG,PROMPT='ASID',VALIDCK=BLSRVPAS 01752000 @DATD DSECT 01753000 BLSRCOMP CSECT 01754000 SPACE 01755000 PXSUBFD IKJSUBF 01756000 @DATD DSECT 01757000 BLSRCOMP CSECT 01758000 PXDRMK IKJKEYWD 01759000 @DATD DSECT 01760000 BLSRCOMP CSECT 01761000 IKJNAME 'REMARK' 01762000 @DATD DSECT 01763000 BLSRCOMP CSECT 01764000 IKJNAME 'NOREMARK' 01765000 @DATD DSECT 01766000 BLSRCOMP CSECT 01767000 PXDREQ IKJKEYWD 01768000 @DATD DSECT 01769000 BLSRCOMP CSECT 01770000 IKJNAME 'REQUEST' 01771000 @DATD DSECT 01772000 BLSRCOMP CSECT 01773000 IKJNAME 'NOREQUEST' 01774000 @DATD DSECT 01775000 BLSRCOMP CSECT 01776000 PXDSTG IKJKEYWD 01777000 @DATD DSECT 01778000 BLSRCOMP CSECT 01779000 IKJNAME 'STORAGE' 01780000 @DATD DSECT 01781000 BLSRCOMP CSECT 01782000 IKJNAME 'NOSTORAGE' 01783000 @DATD DSECT 01784000 BLSRCOMP CSECT 01785000 PXDSYM IKJKEYWD 01786000 @DATD DSECT 01787000 BLSRCOMP CSECT 01788000 IKJNAME 'SYMBOL' 01789000 @DATD DSECT 01790000 BLSRCOMP CSECT 01791000 IKJNAME 'NOSYMBOL' 01792000 @DATD DSECT 01793000 BLSRCOMP CSECT 01794000 PXDMCH IKJKEYWD 01795000 @DATD DSECT 01796000 BLSRCOMP CSECT 01797000 IKJNAME 'MACHINE' 01798000 @DATD DSECT 01799000 BLSRCOMP CSECT 01800000 IKJNAME 'NOMACHINE' 01801000 @DATD DSECT 01802000 BLSRCOMP CSECT 01803000 SPACE 01804000 PSMASK IKJSUBF 01805000 @DATD DSECT 01806000 BLSRCOMP CSECT 01807000 PDMA IKJPOSIT VALUE,PROMPT='MASK',VALIDCK=BLSUVPVA 01808000 @DATD DSECT 01809000 BLSRCOMP CSECT 01810000 SPACE 01811000 PS1ADDR IKJSUBF 01812000 @DATD DSECT 01813000 BLSRCOMP CSECT 01814000 PD1A IKJPOSIT ADDRESS,,RANGE,DEFAULT='X',VALIDCK=BLSRVPAD 01815000 @DATD DSECT 01816000 BLSRCOMP CSECT 01817000 SPACE 01818000 PS1VALUE IKJSUBF 01819000 @DATD DSECT 01820000 BLSRCOMP CSECT 01821000 PD1V IKJPOSIT VALUE,PROMPT='VALUE 1',VALIDCK=BLSUVPVA 01822000 @DATD DSECT 01823000 BLSRCOMP CSECT 01824000 SPACE 01825000 PSWITH IKJSUBF 01826000 @DATD DSECT 01827000 BLSRCOMP CSECT 01828000 PK2 IKJKEYWD DEFAULT='ADDRESS' 01829000 @DATD DSECT 01830000 BLSRCOMP CSECT 01831000 IKJNAME 'ADDRESS',SUBFLD=PS2ADDR 01832000 @DATD DSECT 01833000 BLSRCOMP CSECT 01834000 IKJNAME 'VALUE',SUBFLD=PS2VALUE 01835000 @DATD DSECT 01836000 BLSRCOMP CSECT 01837000 PYA1 IKJKEYWD 01838000 @DATD DSECT 01839000 BLSRCOMP CSECT 01840000 IKJNAME 'ABSOLUTE' 01841000 @DATD DSECT 01842000 BLSRCOMP CSECT 01843000 IKJNAME 'CPU',SUBFLD=PYSUBFB 01844000 @DATD DSECT 01845000 BLSRCOMP CSECT 01846000 IKJNAME 'HEADER' 01847000 @DATD DSECT 01848000 BLSRCOMP CSECT 01849000 PYA2 IKJKEYWD 01850000 @DATD DSECT 01851000 BLSRCOMP CSECT 01852000 IKJNAME 'ASID',SUBFLD=PYSUBFE 01853000 @DATD DSECT 01854000 BLSRCOMP CSECT 01855000 IKJNAME 'REAL' 01856000 @DATD DSECT 01857000 BLSRCOMP CSECT 01858000 IKJNAME 'STATUS' 01859000 @DATD DSECT 01860000 BLSRCOMP CSECT 01861000 PYDTYPE IKJKEYWD 01862000 @DATD DSECT 01863000 BLSRCOMP CSECT 01864000 IKJNAME 'AREA',SUBFLD=PYSUBFG 01865000 @DATD DSECT 01866000 BLSRCOMP CSECT 01867000 IKJNAME 'B',ALIAS=('BIT','HEXADECIMAL','X') 01868000 @DATD DSECT 01869000 BLSRCOMP CSECT 01870000 IKJNAME 'C',ALIAS=('CHARACTER') 01871000 @DATD DSECT 01872000 BLSRCOMP CSECT 01873000 IKJNAME 'MODULE',SUBFLD=PYSUBFG 01874000 @DATD DSECT 01875000 BLSRCOMP CSECT 01876000 IKJNAME 'POINTER',ALIAS=('PTR') 01877000 @DATD DSECT 01878000 BLSRCOMP CSECT 01879000 IKJNAME 'F',ALIAS=('SIGNED') 01880000 @DATD DSECT 01881000 BLSRCOMP CSECT 01882000 IKJNAME 'STRUCTURE',SUBFLD=PYSUBFG 01883000 @DATD DSECT 01884000 BLSRCOMP CSECT 01885000 IKJNAME 'UNSIGNED' 01886000 @DATD DSECT 01887000 BLSRCOMP CSECT 01888000 PYLENGTH IKJKEYWD 01889000 @DATD DSECT 01890000 BLSRCOMP CSECT 01891000 IKJNAME 'LENGTH',SUBFLD=PYSUBFL 01892000 @DATD DSECT 01893000 BLSRCOMP CSECT 01894000 PYMULT IKJKEYWD 01895000 @DATD DSECT 01896000 BLSRCOMP CSECT 01897000 IKJNAME 'DIMENSION',ALIAS=('MULTIPLE'),SUBFLD=PYSUBFI 01898000 @DATD DSECT 01899000 BLSRCOMP CSECT 01900000 IKJNAME 'SCALAR' 01901000 @DATD DSECT 01902000 BLSRCOMP CSECT 01903000 PYNTRY IKJKEYWD 01904000 @DATD DSECT 01905000 BLSRCOMP CSECT 01906000 IKJNAME 'ENTRY',ALIAS=('ENTRIES'),SUBFLD=PYSUBFN 01907000 @DATD DSECT 01908000 BLSRCOMP CSECT 01909000 PYRMK IKJKEYWD 01910000 @DATD DSECT 01911000 BLSRCOMP CSECT 01912000 IKJNAME 'REMARK',SUBFLD=PYSUBFJ 01913000 @DATD DSECT 01914000 BLSRCOMP CSECT 01915000 IKJNAME 'NOREMARK' 01916000 @DATD DSECT 01917000 BLSRCOMP CSECT 01918000 PYTEST IKJKEYWD 01919000 @DATD DSECT 01920000 BLSRCOMP CSECT 01921000 IKJNAME 'TEST' 01922000 @DATD DSECT 01923000 BLSRCOMP CSECT 01924000 IKJNAME 'NOTEST' 01925000 @DATD DSECT 01926000 BLSRCOMP CSECT 01927000 SPACE 01928000 PYSUBFG IKJSUBF 01929000 @DATD DSECT 01930000 BLSRCOMP CSECT 01931000 PYDTD IKJIDENT 'DATA NAME',FIRST=ALPHA,MAXLNTH=31,OTHER=ALPHANUM 01932000 @DATD DSECT 01933000 BLSRCOMP CSECT 01934000 SPACE 01935000 PYSUBFL IKJSUBF 01936000 @DATD DSECT 01937000 BLSRCOMP CSECT 01938000 PYLEN IKJIDENT 'LENGTH',INTEG,PROMPT='LENGTH',VALIDCK=BLSUVP31 01939000 @DATD DSECT 01940000 BLSRCOMP CSECT 01941000 SPACE 01942000 PYSUBFI IKJSUBF 01943000 @DATD DSECT 01944000 BLSRCOMP CSECT 01945000 PYDIM IKJIDENT 'DIMENSION',INTEG,PROMPT='DIMENSION',VALIDCK=BLSUVP31 01946000 @DATD DSECT 01947000 BLSRCOMP CSECT 01948000 SPACE 01949000 PYSUBFN IKJSUBF 01950000 @DATD DSECT 01951000 BLSRCOMP CSECT 01952000 PYNTR IKJIDENT 'ENTRY(IES)',INTEG,RANGE,PROMPT='ENTRY(IES)',VALIDCK=*01953000 BLSUVP32 01954000 @DATD DSECT 01955000 BLSRCOMP CSECT 01956000 SPACE 01957000 PYSUBFJ IKJSUBF 01958000 @DATD DSECT 01959000 BLSRCOMP CSECT 01960000 PYREM IKJPOSIT QSTRING,PROMPT='REMARK' 01961000 @DATD DSECT 01962000 BLSRCOMP CSECT 01963000 SPACE 01964000 PYSUBFB IKJSUBF 01965000 @DATD DSECT 01966000 BLSRCOMP CSECT 01967000 PYCPU IKJIDENT 'CPU ADDRESS',INTEG,PROMPT='CPU ADDRESS',VALIDCK=BLSR*01968000 VPCP 01969000 @DATD DSECT 01970000 BLSRCOMP CSECT 01971000 SPACE 01972000 PYSUBFE IKJSUBF 01973000 @DATD DSECT 01974000 BLSRCOMP CSECT 01975000 PYASI IKJIDENT 'ASID',INTEG,PROMPT='ASID',VALIDCK=BLSRVPAS 01976000 @DATD DSECT 01977000 BLSRCOMP CSECT 01978000 SPACE 01979000 PS2ADDR IKJSUBF 01980000 @DATD DSECT 01981000 BLSRCOMP CSECT 01982000 PD2A IKJPOSIT ADDRESS,,RANGE,DEFAULT='X',VALIDCK=BLSRVPAD 01983000 @DATD DSECT 01984000 BLSRCOMP CSECT 01985000 SPACE 01986000 PS2VALUE IKJSUBF 01987000 @DATD DSECT 01988000 BLSRCOMP CSECT 01989000 PD2V IKJPOSIT VALUE,PROMPT='VALUE 2',VALIDCK=BLSUVPVA 01990000 @DATD DSECT 01991000 PD DSECT 01992000 PD99 DS 0C 01993000 BLSRCOMP CSECT 01994000 IKJENDP 01995000 SPACE 2 01996000 *********************************************************************** 01997000 * IKJENDP--END SYNTAX DESCRIPTION * 01998000 *********************************************************************** 01999000 SPACE 02000000 @DATD DSECT 02001000 SPACE 2 02002000 *********************************************************************** 02003000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 02004000 *********************************************************************** 02005000 SPACE 02006000 DS 0D 02007000 @DATD DSECT 02008000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02009000 @ENDDATD EQU * 02010000 BLSRCOMP CSECT 02011000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02012000 @01 EQU 01 02013000 @02 EQU 02 02014000 @03 EQU 03 02015000 @04 EQU 04 02016000 @05 EQU 05 02017000 @06 EQU 06 02018000 @07 EQU 07 02019000 @08 EQU 08 02020000 @09 EQU 09 02021000 @10 EQU 10 02022000 @11 EQU 11 02023000 @12 EQU 12 02024000 @13 EQU 13 02025000 @14 EQU 14 02026000 @15 EQU 15 02027000 PD2VLEN EQU @07 02028000 THELENTH EQU @06 02029000 J1 EQU @07 02030000 R9 EQU @09 02031000 R0 EQU @00 02032000 R1 EQU @01 02033000 R2 EQU @02 02034000 R3 EQU @03 02035000 R4 EQU @04 02036000 R5 EQU @05 02037000 RB EQU @11 02038000 RD EQU @13 02039000 RE EQU @14 02040000 RF EQU @15 02041000 PDRPTR EQU @10 02042000 GPR01F EQU @01 02043000 GPR00F EQU @00 02044000 GPR15F EQU @15 02045000 RA EQU @10 02046000 RC EQU @12 02047000 R6 EQU @06 02048000 R7 EQU @07 02049000 R8 EQU @08 02050000 ZZ1 EQU 0 02051000 ZZ1ATTN EQU ZZ1+360 02052000 ZZ1EVE EQU ZZ1ATTN+4 02053000 ZZ1F EQU ZZ1+368 02054000 ZZ1N EQU ZZ1+1116 02055000 ZZ1TRCTX EQU ZZ1+1392 02056000 ZZ2 EQU 0 02057000 ZZ2AMD EQU ZZ2 02058000 @NM00013 EQU ZZ2AMD+7 02059000 ZZ2PRT EQU ZZ2+138 02060000 ZZ2PRTT EQU ZZ2PRT+4 02061000 ZZ2PRTT1 EQU ZZ2PRTT+1 02062000 ZZ2A EQU ZZ2+272 02063000 ZZ2AF EQU ZZ2A+16 02064000 ZZ2AFX EQU ZZ2AF+5 02065000 ZZ2APID EQU ZZ2A+64 02066000 ZZ2AD EQU ZZ2A+74 02067000 ZZ2ADD EQU ZZ2AD 02068000 ZZ2ADDT EQU ZZ2ADD+2 02069000 ZZ2ADM EQU ZZ2AD+46 02070000 ZZ2ADMT EQU ZZ2ADM+2 02071000 ZZ2ADP EQU ZZ2AD+56 02072000 ZZ2ADPT EQU ZZ2ADP+2 02073000 ZZ2AZZ6P EQU ZZ2A+140 02074000 ZZ2AQAS EQU ZZ2A+144 02075000 ZZ2AQD EQU ZZ2A+160 02076000 ZZ2AQDT EQU ZZ2AQD+10 02077000 ZZ2AQDF EQU ZZ2AQD+52 02078000 ZZ2STG EQU ZZ2+960 02079000 ZZ2ALLOP EQU ZZ2+992 02080000 ZZ2FREEP EQU ZZ2+996 02081000 ZZ2FF19P EQU ZZ2+1000 02082000 ZZ2FRE1P EQU ZZ2+1004 02083000 ZZ2FF18P EQU ZZ2+1008 02084000 ZZ2DYNAP EQU ZZ2+1012 02085000 ZZ2ZZ2CP EQU ZZ2+1016 02086000 ZZ2ZZ2DP EQU ZZ2+1020 02087000 ZZ2STAIP EQU ZZ2+1024 02088000 ZZ2FF02P EQU ZZ2+1028 02089000 ZZ2GETLP EQU ZZ2+1032 02090000 ZZ2PARSP EQU ZZ2+1036 02091000 ZZ2PTGTP EQU ZZ2+1040 02092000 ZZ2PUTLP EQU ZZ2+1044 02093000 ZZ2SCANP EQU ZZ2+1048 02094000 ZZ2STCKP EQU ZZ2+1052 02095000 ZZ2TRMOP EQU ZZ2+1064 02096000 ZZ2TRMVP EQU ZZ2+1068 02097000 ZZ2PUTNP EQU ZZ2+1084 02098000 ZZ2TRMNP EQU ZZ2+1088 02099000 ZZ2ZZ1P EQU ZZ2+1264 02100000 ZZ2BVTP EQU ZZ2+1280 02101000 ZZ2RVTP EQU ZZ2+1284 02102000 ZZ2CPPL EQU ZZ2+1292 02103000 ZZ2CPPLC EQU ZZ2CPPL 02104000 ZZ2ITR EQU ZZ2+2840 02105000 ZZ2ITRE EQU ZZ2ITR+16 02106000 ZZ2ITSE EQU ZZ2+2864 02107000 ZZ2ES EQU ZZ2+2872 02108000 ZZ2AMDX EQU ZZ2+7160 02109000 ZZ2AXO EQU ZZ2+7934 02110000 ZZ2AXOT EQU ZZ2AXO+2 02111000 CMD EQU 0 02112000 CMDT EQU CMD+4 02113000 PSCB EQU 0 02114000 PSCBATR1 EQU PSCB+16 02115000 ECT EQU 0 02116000 ECTSWS EQU ECT+28 02117000 ECTSWS2 EQU ECT+40 02118000 ECTSWS21 EQU ECTSWS2 02119000 UPT EQU 0 02120000 UPTSWS EQU UPT+12 02121000 SA EQU 0 02122000 SA1 EQU SA 02123000 SAR EQU SA+12 02124000 SAR1 EQU SAR+12 02125000 BLSUMPK1 EQU 0 02126000 BLSUPARI EQU 0 02127000 BLSUPARU EQU 0 02128000 BLSUPUTO EQU 0 02129000 BLSUPUTV EQU 0 02130000 BVT EQU 0 02131000 BVTPUTLP EQU BVT+4 02132000 BVTPUTOP EQU BVT+12 02133000 BVTPUTTP EQU BVT+16 02134000 BVTPUTVP EQU BVT+20 02135000 BVTPUTAP EQU BVT+24 02136000 BVTPRTTP EQU BVT+28 02137000 BVTPRTAP EQU BVT+32 02138000 BVTPUTDP EQU BVT+36 02139000 BVTMONP EQU BVT+40 02140000 BVTMON2P EQU BVT+44 02141000 BVTVSARP EQU BVT+48 02142000 BVTVSENP EQU BVT+64 02143000 BVTVSERP EQU BVT+68 02144000 BVTVSGEP EQU BVT+72 02145000 BVTVSGUP EQU BVT+76 02146000 BVTVSPOP EQU BVT+80 02147000 BVTVSPUP EQU BVT+84 02148000 BVTMPKNP EQU BVT+104 02149000 BVTMONLP EQU BVT+108 02150000 BVTPUTCP EQU BVT+132 02151000 BVTMPK1P EQU BVT+136 02152000 BVTZZ2RP EQU BVT+140 02153000 BVTPGMRP EQU BVT+144 02154000 BVTMONAP EQU BVT+148 02155000 BVTBLDDP EQU BVT+152 02156000 BVTBLDLP EQU BVT+156 02157000 BVTPGMCP EQU BVT+160 02158000 BVTPGMDP EQU BVT+164 02159000 BVTPGMLP EQU BVT+168 02160000 BVTMONCP EQU BVT+180 02161000 BVTMONDP EQU BVT+184 02162000 BVTMONTP EQU BVT+188 02163000 BVTPARIP EQU BVT+192 02164000 BVTPARUP EQU BVT+196 02165000 BVTPRTNP EQU BVT+204 02166000 BVTVSCRP EQU BVT+208 02167000 BVTVSMRP EQU BVT+212 02168000 BVTMONXP EQU BVT+216 02169000 BVTTRMAP EQU BVT+228 02170000 ZZ6 EQU 0 02171000 ZZ6D EQU ZZ6+128 02172000 ZZ6DD EQU ZZ6D+8 02173000 ZZ6DDT EQU ZZ6DD+4 02174000 ZZ6DQA EQU ZZ6D+68 02175000 ZZ6DF EQU ZZ6D+92 02176000 ZZ6B EQU ZZ6+768 02177000 BLSRACC EQU 0 02178000 BLSRADDR EQU 0 02179000 BLSRPADS EQU 0 02180000 RVT EQU 0 02181000 RVTADDRP EQU RVT 02182000 RVTT01P EQU RVT+4 02183000 RVTTAP EQU RVT+8 02184000 RVTTBP EQU RVT+12 02185000 RVTTCP EQU RVT+16 02186000 RVTTFP EQU RVT+24 02187000 RVTTYP EQU RVT+40 02188000 RVTT02P EQU RVT+48 02189000 RVTT03P EQU RVT+52 02190000 RVTT04P EQU RVT+56 02191000 RVTACCLP EQU RVT+60 02192000 RVTRACCP EQU RVT+64 02193000 RVTTLP EQU RVT+68 02194000 RVTTMP EQU RVT+72 02195000 RVTTUP EQU RVT+80 02196000 RVTESGEP EQU RVT+84 02197000 RVTESGUP EQU RVT+88 02198000 RVTESARP EQU RVT+92 02199000 RVTRAARP EQU RVT+96 02200000 RVTRAGEP EQU RVT+100 02201000 RVTADDPP EQU RVT+104 02202000 RVTACCQP EQU RVT+108 02203000 RVTSAGUP EQU RVT+124 02204000 RVTSAGEP EQU RVT+128 02205000 RVTESCKP EQU RVT+132 02206000 RVTMSGAP EQU RVT+136 02207000 RVTMSGDP EQU RVT+140 02208000 RVTADDTP EQU RVT+160 02209000 RVTADDUP EQU RVT+164 02210000 RVTADD1P EQU RVT+176 02211000 RVTADD2P EQU RVT+180 02212000 RVTRSAGP EQU RVT+184 02213000 RVTMSGBP EQU RVT+188 02214000 RVTADDSP EQU RVT+192 02215000 RVTADD3P EQU RVT+196 02216000 RVTT05P EQU RVT+200 02217000 RVTPADSP EQU RVT+204 02218000 RVTTRP EQU RVT+228 02219000 RVTADD4P EQU RVT+232 02220000 RVTSAPCP EQU RVT+236 02221000 RVTSAARP EQU RVT+240 02222000 RVTSAGNP EQU RVT+244 02223000 RVTT06P EQU RVT+248 02224000 RVTSAGCP EQU RVT+252 02225000 RVTSAGQP EQU RVT+256 02226000 RVTESGCP EQU RVT+260 02227000 RVTESGQP EQU RVT+264 02228000 RVTDUCKP EQU RVT+276 02229000 RVTDUCCP EQU RVT+280 02230000 PCCSECT EQU 0 02231000 PDDSECT EQU 0 02232000 PDXP EQU PDDSECT+1 02233000 PDL EQU PDDSECT+5 02234000 PDMAV EQU 0 02235000 PD1AAE EQU 0 02236000 PD1AAEAP EQU PD1AAE 02237000 PD1AAEF EQU PD1AAE+8 02238000 PD1VV EQU 0 02239000 PD2AAE EQU 0 02240000 PD2AAEAP EQU PD2AAE 02241000 PD2AAEF EQU PD2AAE+8 02242000 PD2VV EQU 0 02243000 BYT1 EQU 0 02244000 BYT2 EQU 0 02245000 BUF1 EQU 0 02246000 BUF2 EQU 0 02247000 BLSRACCL EQU 0 02248000 BLSRACCQ EQU 0 02249000 BLSRADDP EQU 0 02250000 BLSRADDS EQU 0 02251000 BLSRADDT EQU 0 02252000 BLSRADDU EQU 0 02253000 BLSRADD1 EQU 0 02254000 BLSRADD2 EQU 0 02255000 BLSRADD3 EQU 0 02256000 BLSRADD4 EQU 0 02257000 BLSRDUCC EQU 0 02258000 BLSRDUCK EQU 0 02259000 BLSRESAR EQU 0 02260000 BLSRESCK EQU 0 02261000 BLSRESGC EQU 0 02262000 BLSRESGE EQU 0 02263000 BLSRESGQ EQU 0 02264000 BLSRESGU EQU 0 02265000 BLSRMSGA EQU 0 02266000 BLSRMSGB EQU 0 02267000 BLSRMSGD EQU 0 02268000 BLSRRAAR EQU 0 02269000 BLSRRAGE EQU 0 02270000 BLSRSAAR EQU 0 02271000 BLSRSAG EQU 0 02272000 BLSRSAGC EQU 0 02273000 BLSRSAGE EQU 0 02274000 BLSRSAGN EQU 0 02275000 BLSRSAGQ EQU 0 02276000 BLSRSAGU EQU 0 02277000 BLSRSAPC EQU 0 02278000 BLSTA EQU 0 02279000 BLSTB EQU 0 02280000 BLSTC EQU 0 02281000 BLSTF EQU 0 02282000 BLSTL EQU 0 02283000 BLSTM EQU 0 02284000 BLSTR EQU 0 02285000 BLSTU EQU 0 02286000 BLSTY EQU 0 02287000 BLST01 EQU 0 02288000 BLST02 EQU 0 02289000 BLST03 EQU 0 02290000 BLST04 EQU 0 02291000 BLST05 EQU 0 02292000 BLST06 EQU 0 02293000 BLSUALLO EQU 0 02294000 BLSUBLDD EQU 0 02295000 BLSUBLDL EQU 0 02296000 BLSUDYNA EQU 0 02297000 BLSUFREE EQU 0 02298000 BLSUFRE1 EQU 0 02299000 BLSUMON EQU 0 02300000 BLSUMONA EQU 0 02301000 BLSUMONC EQU 0 02302000 BLSUMOND EQU 0 02303000 BLSUMONL EQU 0 02304000 BLSUMONT EQU 0 02305000 BLSUMONX EQU 0 02306000 BLSUMON2 EQU 0 02307000 BLSUMPKN EQU 0 02308000 BLSUPGMC EQU 0 02309000 BLSUPGMD EQU 0 02310000 BLSUPGML EQU 0 02311000 BLSUPGMR EQU 0 02312000 BLSUPRTA EQU 0 02313000 BLSUPRTN EQU 0 02314000 BLSUPRTT EQU 0 02315000 BLSUPUTA EQU 0 02316000 BLSUPUTC EQU 0 02317000 BLSUPUTD EQU 0 02318000 BLSUPUTL EQU 0 02319000 BLSUPUTN EQU 0 02320000 BLSUPUTT EQU 0 02321000 BLSUSTAI EQU 0 02322000 BLSUTRMA EQU 0 02323000 BLSUTRMN EQU 0 02324000 BLSUTRMO EQU 0 02325000 BLSUTRMV EQU 0 02326000 BLSUVSAR EQU 0 02327000 BLSUVSCR EQU 0 02328000 BLSUVSEN EQU 0 02329000 BLSUVSER EQU 0 02330000 BLSUVSGE EQU 0 02331000 BLSUVSGU EQU 0 02332000 BLSUVSMR EQU 0 02333000 BLSUVSPO EQU 0 02334000 BLSUVSPU EQU 0 02335000 BLSUZZ2C EQU 0 02336000 BLSUZZ2D EQU 0 02337000 BLSUZZ2R EQU 0 02338000 IKJEFF02 EQU 0 02339000 IKJEFF18 EQU 0 02340000 IKJEFF19 EQU 0 02341000 IKJGETL EQU 0 02342000 IKJPARS EQU 0 02343000 IKJPTGT EQU 0 02344000 IKJPUTL EQU 0 02345000 IKJSCAN EQU 0 02346000 IKJSTCK EQU 0 02347000 I001C EQU 0 02348000 I008P EQU 0 02349000 I015F EQU 0 02350000 I015P EQU 0 02351000 I031F EQU 0 02352000 I031P EQU 0 02353000 I256C EQU 0 02354000 PD1AAEA EQU 0 02355000 PD1AA1 EQU 0 02356000 PD1AA2 EQU 0 02357000 PD1AE1 EQU 0 02358000 PD1AE2 EQU 0 02359000 PD1AM1 EQU 0 02360000 PD1AM2 EQU 0 02361000 PD2AAEA EQU 0 02362000 PD2AA1 EQU 0 02363000 PD2AA2 EQU 0 02364000 PD2AE1 EQU 0 02365000 PD2AE2 EQU 0 02366000 PD2AM1 EQU 0 02367000 PD2AM2 EQU 0 02368000 PXASII EQU 0 02369000 PXCPUI EQU 0 02370000 PXDIMI EQU 0 02371000 PXDTDI EQU 0 02372000 PXLENI EQU 0 02373000 PXNTRI1 EQU 0 02374000 PXNTRI2 EQU 0 02375000 PXREMQ EQU 0 02376000 PYASII EQU 0 02377000 PYCPUI EQU 0 02378000 PYDIMI EQU 0 02379000 PYDTDI EQU 0 02380000 PYLENI EQU 0 02381000 PYNTRI1 EQU 0 02382000 PYNTRI2 EQU 0 02383000 PYREMQ EQU 0 02384000 PXCPUIP EQU PXCPU 02385000 PXCPUIF EQU PXCPU+6 02386000 PXASIIP EQU PXASI 02387000 PXASIIF EQU PXASI+6 02388000 PXDTDIP EQU PXDTD 02389000 PXDTDIF EQU PXDTD+6 02390000 PXLENIP EQU PXLEN 02391000 PXLENIF EQU PXLEN+6 02392000 PXDIMIP EQU PXDIM 02393000 PXDIMIF EQU PXDIM+6 02394000 PXREMQP EQU PXREM 02395000 PXREMQF EQU PXREM+6 02396000 @NM00108 EQU PXNTR 02397000 PXNTRIP EQU @NM00108 02398000 PXNTRIF EQU @NM00108+6 02399000 PDMAVP EQU PDMA 02400000 PDMAVL EQU PDMA+4 02401000 PDMAVF EQU PDMA+6 02402000 PDMAVFP EQU PDMAVF 02403000 PDMAVT EQU PDMA+7 02404000 @NM00119 EQU PD1A 02405000 PD1AMP EQU @NM00119 02406000 PD1AMF EQU @NM00119+6 02407000 PD1AEP EQU @NM00119+8 02408000 PD1AEF EQU @NM00119+14 02409000 PD1AAP EQU @NM00119+16 02410000 PD1AAF EQU @NM00119+22 02411000 PD1AAT EQU @NM00119+24 02412000 PD1AAEP EQU @NM00119+28 02413000 PD1VVP EQU PD1V 02414000 PD1VVL EQU PD1V+4 02415000 PD1VVF EQU PD1V+6 02416000 PD1VVFP EQU PD1VVF 02417000 PD1VVT EQU PD1V+7 02418000 PYCPUIP EQU PYCPU 02419000 PYCPUIF EQU PYCPU+6 02420000 PYASIIP EQU PYASI 02421000 PYASIIF EQU PYASI+6 02422000 PYDTDIP EQU PYDTD 02423000 PYDTDIF EQU PYDTD+6 02424000 PYLENIP EQU PYLEN 02425000 PYLENIF EQU PYLEN+6 02426000 PYDIMIP EQU PYDIM 02427000 PYDIMIF EQU PYDIM+6 02428000 PYREMQP EQU PYREM 02429000 PYREMQF EQU PYREM+6 02430000 @NM00148 EQU PYNTR 02431000 PYNTRIP EQU @NM00148 02432000 PYNTRIF EQU @NM00148+6 02433000 @NM00157 EQU PD2A 02434000 PD2AMP EQU @NM00157 02435000 PD2AMF EQU @NM00157+6 02436000 PD2AEP EQU @NM00157+8 02437000 PD2AEF EQU @NM00157+14 02438000 PD2AAP EQU @NM00157+16 02439000 PD2AAF EQU @NM00157+22 02440000 PD2AAT EQU @NM00157+24 02441000 PD2AAEP EQU @NM00157+28 02442000 PD2VVP EQU PD2V 02443000 PD2VVL EQU PD2V+4 02444000 PD2VVF EQU PD2V+6 02445000 PD2VVFP EQU PD2VVF 02446000 PD2VVT EQU PD2V+7 02447000 CPPL EQU ZZ2CPPL 02448000 CPPLUPT EQU CPPL+4 02449000 CPPLPSCB EQU CPPL+8 02450000 CPPLECT EQU CPPL+12 02451000 PD1VBUFF EQU PD1VBUF 02452000 PD1VBUFP EQU PD1VBUF 02453000 PD2VBUFF EQU PD2VBUF 02454000 PD2VBUFP EQU PD2VBUF 02455000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02456000 CPPLCBUF EQU CPPL 02457000 @NM00167 EQU PD2V+8 02458000 @NM00166 EQU PD2VVF 02459000 @NM00162 EQU PD2A+72 02460000 PD2AAV EQU @NM00157+32 02461000 PD2AAI EQU @NM00157+26 02462000 PD2AAS EQU @NM00157+25 02463000 @NM00161 EQU PD2AAT 02464000 PD2AATQ EQU PD2AAT 02465000 PD2AATE EQU PD2AAT 02466000 PD2AATD EQU PD2AAT 02467000 PD2AATG EQU PD2AAT 02468000 PD2AATR EQU PD2AAT 02469000 PD2AATS EQU PD2AAT 02470000 @NM00160 EQU @NM00157+23 02471000 PD2AAF8 EQU PD2AAF 02472000 PD2AAF7 EQU PD2AAF 02473000 PD2AAF6 EQU PD2AAF 02474000 PD2AAF5 EQU PD2AAF 02475000 PD2AAF4 EQU PD2AAF 02476000 PD2AAF3 EQU PD2AAF 02477000 PD2AAF2 EQU PD2AAF 02478000 PD2AAFP EQU PD2AAF 02479000 PD2AAL EQU @NM00157+20 02480000 @NM00159 EQU @NM00157+15 02481000 PD2AEF8 EQU PD2AEF 02482000 PD2AEF7 EQU PD2AEF 02483000 PD2AEF6 EQU PD2AEF 02484000 PD2AEF5 EQU PD2AEF 02485000 PD2AEF4 EQU PD2AEF 02486000 PD2AEF3 EQU PD2AEF 02487000 PD2AEF2 EQU PD2AEF 02488000 PD2AEFP EQU PD2AEF 02489000 PD2AEL EQU @NM00157+12 02490000 @NM00158 EQU @NM00157+7 02491000 PD2AMF8 EQU PD2AMF 02492000 PD2AMF7 EQU PD2AMF 02493000 PD2AMF6 EQU PD2AMF 02494000 PD2AMF5 EQU PD2AMF 02495000 PD2AMF4 EQU PD2AMF 02496000 PD2AMF3 EQU PD2AMF 02497000 PD2AMF2 EQU PD2AMF 02498000 PD2AMFP EQU PD2AMF 02499000 PD2AML EQU @NM00157+4 02500000 @NM00150 EQU PYNTR+16 02501000 @NM00149 EQU @NM00148+7 02502000 PYNTRIF8 EQU PYNTRIF 02503000 PYNTRIF7 EQU PYNTRIF 02504000 PYNTRIF6 EQU PYNTRIF 02505000 PYNTRIF5 EQU PYNTRIF 02506000 PYNTRIF4 EQU PYNTRIF 02507000 PYNTRIF3 EQU PYNTRIF 02508000 PYNTRIF2 EQU PYNTRIF 02509000 PYNTRIFP EQU PYNTRIF 02510000 PYNTRIL EQU @NM00148+4 02511000 @NM00152 EQU PYREM+8 02512000 @NM00151 EQU PYREM+7 02513000 PYREMQF8 EQU PYREMQF 02514000 PYREMQF7 EQU PYREMQF 02515000 PYREMQF6 EQU PYREMQF 02516000 PYREMQF5 EQU PYREMQF 02517000 PYREMQF4 EQU PYREMQF 02518000 PYREMQF3 EQU PYREMQF 02519000 PYREMQF2 EQU PYREMQF 02520000 PYREMQFP EQU PYREMQF 02521000 PYREMQL EQU PYREM+4 02522000 @NM00147 EQU PYDIM+8 02523000 @NM00146 EQU PYDIM+7 02524000 PYDIMIF8 EQU PYDIMIF 02525000 PYDIMIF7 EQU PYDIMIF 02526000 PYDIMIF6 EQU PYDIMIF 02527000 PYDIMIF5 EQU PYDIMIF 02528000 PYDIMIF4 EQU PYDIMIF 02529000 PYDIMIF3 EQU PYDIMIF 02530000 PYDIMIF2 EQU PYDIMIF 02531000 PYDIMIFP EQU PYDIMIF 02532000 PYDIMIL EQU PYDIM+4 02533000 @NM00145 EQU PYLEN+8 02534000 @NM00144 EQU PYLEN+7 02535000 PYLENIF8 EQU PYLENIF 02536000 PYLENIF7 EQU PYLENIF 02537000 PYLENIF6 EQU PYLENIF 02538000 PYLENIF5 EQU PYLENIF 02539000 PYLENIF4 EQU PYLENIF 02540000 PYLENIF3 EQU PYLENIF 02541000 PYLENIF2 EQU PYLENIF 02542000 PYLENIFP EQU PYLENIF 02543000 PYLENIL EQU PYLEN+4 02544000 @NM00143 EQU PYDTD+8 02545000 @NM00142 EQU PYDTD+7 02546000 PYDTDIF8 EQU PYDTDIF 02547000 PYDTDIF7 EQU PYDTDIF 02548000 PYDTDIF6 EQU PYDTDIF 02549000 PYDTDIF5 EQU PYDTDIF 02550000 PYDTDIF4 EQU PYDTDIF 02551000 PYDTDIF3 EQU PYDTDIF 02552000 PYDTDIF2 EQU PYDTDIF 02553000 PYDTDIFP EQU PYDTDIF 02554000 PYDTDIL EQU PYDTD+4 02555000 @NM00156 EQU PYASI+8 02556000 @NM00155 EQU PYASI+7 02557000 PYASIIF8 EQU PYASIIF 02558000 PYASIIF7 EQU PYASIIF 02559000 PYASIIF6 EQU PYASIIF 02560000 PYASIIF5 EQU PYASIIF 02561000 PYASIIF4 EQU PYASIIF 02562000 PYASIIF3 EQU PYASIIF 02563000 PYASIIF2 EQU PYASIIF 02564000 PYASIIFP EQU PYASIIF 02565000 PYASIIL EQU PYASI+4 02566000 @NM00154 EQU PYCPU+8 02567000 @NM00153 EQU PYCPU+7 02568000 PYCPUIF8 EQU PYCPUIF 02569000 PYCPUIF7 EQU PYCPUIF 02570000 PYCPUIF6 EQU PYCPUIF 02571000 PYCPUIF5 EQU PYCPUIF 02572000 PYCPUIF4 EQU PYCPUIF 02573000 PYCPUIF3 EQU PYCPUIF 02574000 PYCPUIF2 EQU PYCPUIF 02575000 PYCPUIFP EQU PYCPUIF 02576000 PYCPUIL EQU PYCPU+4 02577000 @NM00129 EQU PD1V+8 02578000 @NM00128 EQU PD1VVF 02579000 @NM00124 EQU PD1A+72 02580000 PD1AAV EQU @NM00119+32 02581000 PD1AAI EQU @NM00119+26 02582000 PD1AAS EQU @NM00119+25 02583000 @NM00123 EQU PD1AAT 02584000 PD1AATQ EQU PD1AAT 02585000 PD1AATE EQU PD1AAT 02586000 PD1AATD EQU PD1AAT 02587000 PD1AATG EQU PD1AAT 02588000 PD1AATR EQU PD1AAT 02589000 PD1AATS EQU PD1AAT 02590000 @NM00122 EQU @NM00119+23 02591000 PD1AAF8 EQU PD1AAF 02592000 PD1AAF7 EQU PD1AAF 02593000 PD1AAF6 EQU PD1AAF 02594000 PD1AAF5 EQU PD1AAF 02595000 PD1AAF4 EQU PD1AAF 02596000 PD1AAF3 EQU PD1AAF 02597000 PD1AAF2 EQU PD1AAF 02598000 PD1AAFP EQU PD1AAF 02599000 PD1AAL EQU @NM00119+20 02600000 @NM00121 EQU @NM00119+15 02601000 PD1AEF8 EQU PD1AEF 02602000 PD1AEF7 EQU PD1AEF 02603000 PD1AEF6 EQU PD1AEF 02604000 PD1AEF5 EQU PD1AEF 02605000 PD1AEF4 EQU PD1AEF 02606000 PD1AEF3 EQU PD1AEF 02607000 PD1AEF2 EQU PD1AEF 02608000 PD1AEFP EQU PD1AEF 02609000 PD1AEL EQU @NM00119+12 02610000 @NM00120 EQU @NM00119+7 02611000 PD1AMF8 EQU PD1AMF 02612000 PD1AMF7 EQU PD1AMF 02613000 PD1AMF6 EQU PD1AMF 02614000 PD1AMF5 EQU PD1AMF 02615000 PD1AMF4 EQU PD1AMF 02616000 PD1AMF3 EQU PD1AMF 02617000 PD1AMF2 EQU PD1AMF 02618000 PD1AMFP EQU PD1AMF 02619000 PD1AML EQU @NM00119+4 02620000 @NM00118 EQU PDMA+8 02621000 @NM00117 EQU PDMAVF 02622000 @NM00110 EQU PXNTR+16 02623000 @NM00109 EQU @NM00108+7 02624000 PXNTRIF8 EQU PXNTRIF 02625000 PXNTRIF7 EQU PXNTRIF 02626000 PXNTRIF6 EQU PXNTRIF 02627000 PXNTRIF5 EQU PXNTRIF 02628000 PXNTRIF4 EQU PXNTRIF 02629000 PXNTRIF3 EQU PXNTRIF 02630000 PXNTRIF2 EQU PXNTRIF 02631000 PXNTRIFP EQU PXNTRIF 02632000 PXNTRIL EQU @NM00108+4 02633000 @NM00112 EQU PXREM+8 02634000 @NM00111 EQU PXREM+7 02635000 PXREMQF8 EQU PXREMQF 02636000 PXREMQF7 EQU PXREMQF 02637000 PXREMQF6 EQU PXREMQF 02638000 PXREMQF5 EQU PXREMQF 02639000 PXREMQF4 EQU PXREMQF 02640000 PXREMQF3 EQU PXREMQF 02641000 PXREMQF2 EQU PXREMQF 02642000 PXREMQFP EQU PXREMQF 02643000 PXREMQL EQU PXREM+4 02644000 @NM00107 EQU PXDIM+8 02645000 @NM00106 EQU PXDIM+7 02646000 PXDIMIF8 EQU PXDIMIF 02647000 PXDIMIF7 EQU PXDIMIF 02648000 PXDIMIF6 EQU PXDIMIF 02649000 PXDIMIF5 EQU PXDIMIF 02650000 PXDIMIF4 EQU PXDIMIF 02651000 PXDIMIF3 EQU PXDIMIF 02652000 PXDIMIF2 EQU PXDIMIF 02653000 PXDIMIFP EQU PXDIMIF 02654000 PXDIMIL EQU PXDIM+4 02655000 @NM00105 EQU PXLEN+8 02656000 @NM00104 EQU PXLEN+7 02657000 PXLENIF8 EQU PXLENIF 02658000 PXLENIF7 EQU PXLENIF 02659000 PXLENIF6 EQU PXLENIF 02660000 PXLENIF5 EQU PXLENIF 02661000 PXLENIF4 EQU PXLENIF 02662000 PXLENIF3 EQU PXLENIF 02663000 PXLENIF2 EQU PXLENIF 02664000 PXLENIFP EQU PXLENIF 02665000 PXLENIL EQU PXLEN+4 02666000 @NM00103 EQU PXDTD+8 02667000 @NM00102 EQU PXDTD+7 02668000 PXDTDIF8 EQU PXDTDIF 02669000 PXDTDIF7 EQU PXDTDIF 02670000 PXDTDIF6 EQU PXDTDIF 02671000 PXDTDIF5 EQU PXDTDIF 02672000 PXDTDIF4 EQU PXDTDIF 02673000 PXDTDIF3 EQU PXDTDIF 02674000 PXDTDIF2 EQU PXDTDIF 02675000 PXDTDIFP EQU PXDTDIF 02676000 PXDTDIL EQU PXDTD+4 02677000 @NM00116 EQU PXASI+8 02678000 @NM00115 EQU PXASI+7 02679000 PXASIIF8 EQU PXASIIF 02680000 PXASIIF7 EQU PXASIIF 02681000 PXASIIF6 EQU PXASIIF 02682000 PXASIIF5 EQU PXASIIF 02683000 PXASIIF4 EQU PXASIIF 02684000 PXASIIF3 EQU PXASIIF 02685000 PXASIIF2 EQU PXASIIF 02686000 PXASIIFP EQU PXASIIF 02687000 PXASIIL EQU PXASI+4 02688000 @NM00114 EQU PXCPU+8 02689000 @NM00113 EQU PXCPU+7 02690000 PXCPUIF8 EQU PXCPUIF 02691000 PXCPUIF7 EQU PXCPUIF 02692000 PXCPUIF6 EQU PXCPUIF 02693000 PXCPUIF5 EQU PXCPUIF 02694000 PXCPUIF4 EQU PXCPUIF 02695000 PXCPUIF3 EQU PXCPUIF 02696000 PXCPUIF2 EQU PXCPUIF 02697000 PXCPUIFP EQU PXCPUIF 02698000 PXCPUIL EQU PXCPU+4 02699000 PD2AAEXP EQU PD2AAE+12 02700000 PD2AAEI EQU PD2AAE+10 02701000 PD2AAES EQU PD2AAE+9 02702000 @NM00165 EQU PD2AAEF 02703000 PD2AAEFX EQU PD2AAEF 02704000 PD2AAEFD EQU PD2AAEF 02705000 @NM00164 EQU PD2AAEF 02706000 @NM00163 EQU PD2AAE+6 02707000 PD2AAEAL EQU PD2AAE+4 02708000 PD1AAEXP EQU PD1AAE+12 02709000 PD1AAEI EQU PD1AAE+10 02710000 PD1AAES EQU PD1AAE+9 02711000 @NM00127 EQU PD1AAEF 02712000 PD1AAEFX EQU PD1AAEF 02713000 PD1AAEFD EQU PD1AAEF 02714000 @NM00126 EQU PD1AAEF 02715000 @NM00125 EQU PD1AAE+6 02716000 PD1AAEAL EQU PD1AAE+4 02717000 PDSP EQU PDDSECT+4 02718000 @NM00089 EQU PDDSECT 02719000 RVT99999 EQU RVT+384 02720000 RVT0096P EQU RVT+380 02721000 RVT0095P EQU RVT+376 02722000 RVT0094P EQU RVT+372 02723000 RVT0093P EQU RVT+368 02724000 RVT0092P EQU RVT+364 02725000 RVT0091P EQU RVT+360 02726000 RVT0090P EQU RVT+356 02727000 RVT0089P EQU RVT+352 02728000 RVT0088P EQU RVT+348 02729000 RVT0087P EQU RVT+344 02730000 RVT0086P EQU RVT+340 02731000 RVT0085P EQU RVT+336 02732000 RVT0084P EQU RVT+332 02733000 RVT0083P EQU RVT+328 02734000 RVT0082P EQU RVT+324 02735000 RVT0081P EQU RVT+320 02736000 RVT0080P EQU RVT+316 02737000 RVT0079P EQU RVT+312 02738000 RVT0078P EQU RVT+308 02739000 RVT0077P EQU RVT+304 02740000 RVT0076P EQU RVT+300 02741000 RVT0075P EQU RVT+296 02742000 RVT0074P EQU RVT+292 02743000 RVT0073P EQU RVT+288 02744000 RVT0072P EQU RVT+284 02745000 RVTDTUTP EQU RVT+272 02746000 RVTDTMTP EQU RVT+268 02747000 RVT0057P EQU RVT+224 02748000 RVT0056P EQU RVT+220 02749000 RVT0055P EQU RVT+216 02750000 RVT0054P EQU RVT+212 02751000 RVT0053P EQU RVT+208 02752000 RVT0044P EQU RVT+172 02753000 RVT0043P EQU RVT+168 02754000 RVT0040P EQU RVT+156 02755000 RVT0039P EQU RVT+152 02756000 RVT0038P EQU RVT+148 02757000 RVT0037P EQU RVT+144 02758000 RVT0031P EQU RVT+120 02759000 RVT0030P EQU RVT+116 02760000 RVT0029P EQU RVT+112 02761000 RVT0020P EQU RVT+76 02762000 RVT0012P EQU RVT+44 02763000 RVT0010P EQU RVT+36 02764000 RVT0009P EQU RVT+32 02765000 RVT0008P EQU RVT+28 02766000 RVT0006P EQU RVT+20 02767000 ZZ69999 EQU ZZ6+1792 02768000 ZZ6BRB EQU ZZ6B+12 02769000 ZZ6BRC EQU ZZ6B+8 02770000 @NM00076 EQU ZZ6B+6 02771000 ZZ6BFL EQU ZZ6B+4 02772000 ZZ6BDA EQU ZZ6B 02773000 @NM00075 EQU ZZ6+540 02774000 ZZ6BUFI EQU ZZ6+536 02775000 ZZ6BUFP EQU ZZ6+532 02776000 ZZ6FILE EQU ZZ6+524 02777000 ZZ6BUFB EQU ZZ6+520 02778000 ZZ6BUFL EQU ZZ6+518 02779000 ZZ6BUFN EQU ZZ6+516 02780000 ZZ6ZZ6P EQU ZZ6+512 02781000 @NM00074 EQU ZZ6+256 02782000 ZZ6D999 EQU ZZ6D+128 02783000 @NM00073 EQU ZZ6D+116 02784000 ZZ6DCAP EQU ZZ6D+112 02785000 ZZ6DPRP EQU ZZ6D+108 02786000 ZZ6DDA2 EQU ZZ6D+104 02787000 ZZ6DDA1 EQU ZZ6D+100 02788000 @NM00072 EQU ZZ6DF 02789000 ZZ6DFSU EQU ZZ6DF 02790000 ZZ6DFST EQU ZZ6DF 02791000 ZZ6DFAB EQU ZZ6DF 02792000 ZZ6DFMP EQU ZZ6DF 02793000 ZZ6DFDU EQU ZZ6DF 02794000 ZZ6DFBS EQU ZZ6DF 02795000 ZZ6DQ2 EQU ZZ6D+88 02796000 ZZ6DQ1 EQU ZZ6D+84 02797000 ZZ6DQA9 EQU ZZ6DQA+16 02798000 @NM00071 EQU ZZ6DQA+12 02799000 ZZ6DQA2 EQU ZZ6DQA+8 02800000 ZZ6DQA1 EQU ZZ6DQA+4 02801000 @NM00070 EQU ZZ6DQA+2 02802000 ZZ6DQAT EQU ZZ6DQA 02803000 ZZ6DQA0 EQU ZZ6DQA 02804000 ZZ6DRDX EQU ZZ6D+64 02805000 ZZ6DELK EQU ZZ6D+64 02806000 ZZ6DMEM EQU ZZ6D+56 02807000 ZZ6DDT1 EQU ZZ6DDT 02808000 ZZ6DDO EQU ZZ6DD+2 02809000 ZZ6DDL EQU ZZ6DD 02810000 @NM00069 EQU ZZ6D+2 02811000 ZZ6DRID EQU ZZ6D 02812000 ZZ6RDCB EQU ZZ6 02813000 ZZ60000 EQU ZZ6 02814000 BVT99999 EQU BVT+256 02815000 BVT0064P EQU BVT+252 02816000 BVT0063P EQU BVT+248 02817000 BVT0062P EQU BVT+244 02818000 BVT0061P EQU BVT+240 02819000 BVT0060P EQU BVT+236 02820000 BVT0059P EQU BVT+232 02821000 BVT0057P EQU BVT+224 02822000 BVT0056P EQU BVT+220 02823000 BVTSTBLP EQU BVT+200 02824000 BVT0045P EQU BVT+176 02825000 BVT0044P EQU BVT+172 02826000 BVT0033P EQU BVT+128 02827000 BVT0032P EQU BVT+124 02828000 BVT0031P EQU BVT+120 02829000 BVT0030P EQU BVT+116 02830000 BVT0029P EQU BVT+112 02831000 BVT0026P EQU BVT+100 02832000 BVT0025P EQU BVT+96 02833000 BVT0024P EQU BVT+92 02834000 BVT0023P EQU BVT+88 02835000 BVT0016P EQU BVT+60 02836000 BVT0015P EQU BVT+56 02837000 BVT0014P EQU BVT+52 02838000 BVT0003P EQU BVT+8 02839000 BVT0001P EQU BVT 02840000 SA99 EQU SA+72 02841000 SARC EQU SAR+56 02842000 SARB EQU SAR+52 02843000 SARA EQU SAR+48 02844000 SAR9 EQU SAR+44 02845000 SAR8 EQU SAR+40 02846000 SAR7 EQU SAR+36 02847000 SAR6 EQU SAR+32 02848000 SAR5 EQU SAR+28 02849000 SAR4 EQU SAR+24 02850000 SAR3 EQU SAR+20 02851000 SAR2 EQU SAR+16 02852000 SAR0 EQU SAR+8 02853000 SARF EQU SAR+4 02854000 SARE EQU SAR 02855000 SAFWD EQU SA+8 02856000 SABAK EQU SA+4 02857000 SA1L EQU SA1+1 02858000 SA1P EQU SA1 02859000 UPTPREFL EQU UPT+23 02860000 UPTPREFX EQU UPT+16 02861000 @NM00068 EQU UPT+15 02862000 UPTLDEL EQU UPT+14 02863000 UPTCDEL EQU UPT+13 02864000 UPTWTP EQU UPTSWS 02865000 UPTMODE EQU UPTSWS 02866000 UPTALD EQU UPTSWS 02867000 UPTPAUS EQU UPTSWS 02868000 UPTNCOM EQU UPTSWS 02869000 UPTMID EQU UPTSWS 02870000 UPTNPRM EQU UPTSWS 02871000 UPTRCVR EQU UPTSWS 02872000 UPTUSER EQU UPT+2 02873000 @NM00067 EQU UPT 02874000 @NM00066 EQU ECT+52 02875000 @NM00065 EQU ECT+48 02876000 @NM00064 EQU ECT+44 02877000 @NM00063 EQU ECTSWS2+1 02878000 @NM00062 EQU ECTSWS21 02879000 ECTTABND EQU ECTSWS21 02880000 ECTDEFCS EQU ECTSWS21 02881000 ECTBKPB EQU ECT+36 02882000 ECTUSER EQU ECT+32 02883000 ECTDDNUM EQU ECT+29 02884000 ECTATTN EQU ECTSWS 02885000 ECTBKGRD EQU ECTSWS 02886000 ECTNNOT EQU ECTSWS 02887000 ECTNMAL EQU ECTSWS 02888000 ECTLOGF EQU ECTSWS 02889000 ECTATRM EQU ECTSWS 02890000 @NM00061 EQU ECTSWS 02891000 ECTNOPD EQU ECTSWS 02892000 ECTSCMD EQU ECT+20 02893000 ECTPCMD EQU ECT+12 02894000 ECTSMSG EQU ECT+9 02895000 ECTMSGF EQU ECT+8 02896000 ECTIOWA EQU ECT+4 02897000 ECTRTCD EQU ECT+1 02898000 ECTRCDF EQU ECT 02899000 PSCBU EQU PSCB+64 02900000 PSCBRSZ EQU PSCB+60 02901000 PSCBLINE EQU PSCB+59 02902000 PSCBCHAR EQU PSCB+58 02903000 PSCBUPTL EQU PSCB+56 02904000 PSCBUPT EQU PSCB+52 02905000 PSCBRLGB EQU PSCB+48 02906000 PSCBDEST EQU PSCB+40 02907000 @NM00060 EQU PSCB+36 02908000 @NM00059 EQU PSCB+32 02909000 @NM00058 EQU PSCB+28 02910000 PSCBLTI2 EQU PSCB+24 02911000 PSCBLTIM EQU PSCB+20 02912000 PSCBATR2 EQU PSCB+18 02913000 @NM00057 EQU PSCBATR1 02914000 @NM00056 EQU PSCBATR1 02915000 @NM00055 EQU PSCBATR1 02916000 PSCBATTN EQU PSCBATR1 02917000 PSCBVMNT EQU PSCBATR1 02918000 PSCBJCL EQU PSCBATR1 02919000 PSCBACCT EQU PSCBATR1 02920000 PSCBCTRL EQU PSCBATR1 02921000 PSCBGPNM EQU PSCB+8 02922000 PSCBUSRL EQU PSCB+7 02923000 PSCBUSER EQU PSCB 02924000 CMDT1 EQU CMDT 02925000 CMDO EQU CMD+2 02926000 CMDL EQU CMD 02927000 ZZ299999 EQU ZZ2+8192 02928000 ZZ2AXOT1 EQU ZZ2AXOT 02929000 ZZ2AXOL EQU ZZ2AXO 02930000 @NM00054 EQU ZZ2+7288 02931000 @NM00053 EQU ZZ2AMDX+4 02932000 ZZ2AMDXC EQU ZZ2AMDX 02933000 ZZ2HSD EQU ZZ2+3056 02934000 @NM00052 EQU ZZ2ES 02935000 @NM00051 EQU ZZ2+2868 02936000 ZZ2ITSEC EQU ZZ2ITSE+1 02937000 @NM00050 EQU ZZ2ITSE 02938000 ZZ2ITSEP EQU ZZ2ITSE 02939000 ZZ2ITSEW EQU ZZ2ITSE 02940000 @NM00049 EQU ZZ2ITR+20 02941000 ZZ2ITREC EQU ZZ2ITRE+1 02942000 @NM00048 EQU ZZ2ITRE 02943000 ZZ2ITREP EQU ZZ2ITRE 02944000 ZZ2ITREW EQU ZZ2ITRE 02945000 @NM00047 EQU ZZ2ITR+9 02946000 ZZ2ITRRC EQU ZZ2ITR+8 02947000 ZZ2ITR2P EQU ZZ2ITR+4 02948000 ZZ2ITRPP EQU ZZ2ITR 02949000 @NM00046 EQU ZZ2+1544 02950000 ZZ2PGM EQU ZZ2+1536 02951000 @NM00045 EQU ZZ2+1526 02952000 ZZ2CW EQU ZZ2+1524 02953000 @NM00044 EQU ZZ2+1504 02954000 @NM00043 EQU ZZ2+1352 02955000 ZZ2FFSYP EQU ZZ2+1348 02956000 ZZ2SASYP EQU ZZ2+1344 02957000 ZZ2RDSYP EQU ZZ2+1340 02958000 ZZ2RASYP EQU ZZ2+1336 02959000 ZZ2PHSYP EQU ZZ2+1332 02960000 ZZ2ESSYP EQU ZZ2+1328 02961000 ZZ200SYP EQU ZZ2+1324 02962000 ZZ2SCWP EQU ZZ2+1320 02963000 ZZ2TTLP EQU ZZ2+1316 02964000 ZZ2LOADP EQU ZZ2+1312 02965000 ZZ2VRESP EQU ZZ2+1308 02966000 ZZ2CPPLE EQU ZZ2CPPL+12 02967000 ZZ2CPPLP EQU ZZ2CPPL+8 02968000 ZZ2CPPLU EQU ZZ2CPPL+4 02969000 ZZ2VRSAP EQU ZZ2+1288 02970000 ZZ2DVTP EQU ZZ2+1276 02971000 @NM00042 EQU ZZ2+1272 02972000 @NM00041 EQU ZZ2+1268 02973000 ZZ2RPLP EQU ZZ2+1260 02974000 ZZ2TCBP EQU ZZ2+1256 02975000 @NM00040 EQU ZZ2+1252 02976000 ZZ2ZZ2P EQU ZZ2+1248 02977000 @NM00039 EQU ZZ2+1112 02978000 ZZ2FPDRP EQU ZZ2+1108 02979000 ZZ2FDSDP EQU ZZ2+1104 02980000 ZZ2APDRP EQU ZZ2+1100 02981000 ZZ2ADSDP EQU ZZ2+1096 02982000 ZZ2ENQ0P EQU ZZ2+1092 02983000 @NM00038 EQU ZZ2+1080 02984000 ZZ2MSG0P EQU ZZ2+1076 02985000 ZZ2FT25P EQU ZZ2+1072 02986000 ZZ2MSGSP EQU ZZ2+1060 02987000 ZZ2ALOCP EQU ZZ2+1056 02988000 @NM00037 EQU ZZ2+976 02989000 ZZ2TOD EQU ZZ2+968 02990000 ZZ2STGN EQU ZZ2STG+4 02991000 ZZ2STGP EQU ZZ2STG 02992000 @NM00036 EQU ZZ2+952 02993000 ZZ2SCMDE EQU ZZ2+944 02994000 ZZ2SCMDN EQU ZZ2+936 02995000 ZZ2IDENT EQU ZZ2+928 02996000 ZZ2A9999 EQU ZZ2A+656 02997000 @NM00035 EQU ZZ2A+224 02998000 @NM00034 EQU ZZ2A+220 02999000 ZZ2AQD99 EQU ZZ2AQD+60 03000000 @NM00033 EQU ZZ2AQD+56 03001000 @NM00032 EQU ZZ2AQDF 03002000 ZZ2AQDFA EQU ZZ2AQDF 03003000 ZZ2AQDIL EQU ZZ2AQD+48 03004000 ZZ2AQDIM EQU ZZ2AQD+44 03005000 ZZ2AQDT9 EQU ZZ2AQDT+34 03006000 ZZ2AQDTE EQU ZZ2AQDT+33 03007000 ZZ2AQDTD EQU ZZ2AQDT+2 03008000 @NM00031 EQU ZZ2AQDT+1 03009000 ZZ2AQDTY EQU ZZ2AQDT 03010000 ZZ2AQDT0 EQU ZZ2AQDT 03011000 ZZ2AQDLB EQU ZZ2AQD+9 03012000 ZZ2AQDOB EQU ZZ2AQD+8 03013000 ZZ2AQDLE EQU ZZ2AQD+4 03014000 ZZ2AQDOF EQU ZZ2AQD 03015000 ZZ2AQD00 EQU ZZ2AQD 03016000 ZZ2AQAS9 EQU ZZ2AQAS+16 03017000 @NM00030 EQU ZZ2AQAS+12 03018000 ZZ2AQAS2 EQU ZZ2AQAS+8 03019000 ZZ2AQAS1 EQU ZZ2AQAS+4 03020000 @NM00029 EQU ZZ2AQAS+2 03021000 ZZ2AQAST EQU ZZ2AQAS 03022000 ZZ2AQAS0 EQU ZZ2AQAS 03023000 ZZ2ADPTA EQU ZZ2ADPT 03024000 ZZ2ADPL EQU ZZ2ADP 03025000 ZZ2ADMTA EQU ZZ2ADMT 03026000 ZZ2ADML EQU ZZ2ADM 03027000 ZZ2ADDTA EQU ZZ2ADDT 03028000 ZZ2ADDL EQU ZZ2ADD 03029000 @NM00028 EQU ZZ2A+72 03030000 ZZ2APIDB EQU ZZ2APID+3 03031000 ZZ2APIDA EQU ZZ2APID 03032000 @NM00027 EQU ZZ2A+24 03033000 @NM00026 EQU ZZ2AF+5 03034000 @NM00025 EQU ZZ2AF+3 03035000 ZZ2AFS EQU ZZ2AF+2 03036000 ZZ2AFD EQU ZZ2AF+2 03037000 ZZ2AFQ EQU ZZ2AF+2 03038000 ZZ2AF$ EQU ZZ2AF+2 03039000 @NM00024 EQU ZZ2AF+2 03040000 ZZ2AFM EQU ZZ2AF+2 03041000 @NM00023 EQU ZZ2AF+2 03042000 @NM00022 EQU ZZ2AF+1 03043000 ZZ2AFV EQU ZZ2AF+1 03044000 @NM00021 EQU ZZ2AF+1 03045000 ZZ2AFC EQU ZZ2AF+1 03046000 @NM00020 EQU ZZ2AF 03047000 ZZ2AFFS EQU ZZ2AF 03048000 ZZ2AFT EQU ZZ2AF 03049000 ZZ2AFP EQU ZZ2AF 03050000 @NM00019 EQU ZZ2A+8 03051000 ZZ2ALINE EQU ZZ2A+4 03052000 @NM00018 EQU ZZ2A+3 03053000 ZZ2ASE EQU ZZ2A+2 03054000 ZZ2ACH EQU ZZ2A 03055000 @NM00017 EQU ZZ2+264 03056000 @NM00016 EQU ZZ2+263 03057000 ZZ2PRTT0 EQU ZZ2PRTT 03058000 ZZ2PRTO EQU ZZ2PRT+2 03059000 ZZ2PRTL EQU ZZ2PRT 03060000 @NM00015 EQU ZZ2AMD+56 03061000 ZZ2AMDXP EQU ZZ2AMD+52 03062000 ZZ2AMDD EQU ZZ2AMD+48 03063000 ZZ2AMDL EQU ZZ2AMD+44 03064000 ZZ2AMDU EQU ZZ2AMD+28 03065000 ZZ2AMDF EQU ZZ2AMD+24 03066000 ZZ2AMDS EQU ZZ2AMD+20 03067000 ZZ2AMDC EQU ZZ2AMD+16 03068000 ZZ2AMDP EQU ZZ2AMD+12 03069000 ZZ2AMDB EQU ZZ2AMD+8 03070000 @NM00014 EQU @NM00013 03071000 ZZ2AMD2 EQU @NM00013 03072000 ZZ2AMD1 EQU @NM00013 03073000 ZZ2AMD0 EQU ZZ2AMD+6 03074000 ZZ2AMDA EQU ZZ2AMD+4 03075000 ZZ2AMDT EQU ZZ2AMD 03076000 ZZ199999 EQU ZZ1+3072 03077000 @NM00012 EQU ZZ1+2160 03078000 ZZ1TRTAS EQU ZZ1+1904 03079000 ZZ1TRUPC EQU ZZ1+1648 03080000 ZZ1NASID EQU ZZ1N+274 03081000 ZZ1NSTRL EQU ZZ1N+272 03082000 ZZ1NOFF EQU ZZ1N+268 03083000 ZZ1NBDY EQU ZZ1N+264 03084000 ZZ1NADE EQU ZZ1N+260 03085000 ZZ1NADB EQU ZZ1N+256 03086000 ZZ1NSTR EQU ZZ1N 03087000 @NM00011 EQU ZZ1+1080 03088000 ZZ1TREBC EQU ZZ1+824 03089000 ZZ1TRHEX EQU ZZ1+568 03090000 @NM00010 EQU ZZ1+377 03091000 ZZ1USTAE EQU ZZ1+376 03092000 @NM00009 EQU ZZ1F+1 03093000 @NM00008 EQU ZZ1F 03094000 ZZ1FM EQU ZZ1F 03095000 ZZ1FX EQU ZZ1F 03096000 ZZ1FU EQU ZZ1F 03097000 ZZ1EVEC EQU ZZ1EVE+1 03098000 @NM00007 EQU ZZ1EVE 03099000 ZZ1EVEP EQU ZZ1EVE 03100000 ZZ1EVEW EQU ZZ1EVE 03101000 ZZ1ACMP EQU ZZ1ATTN 03102000 @NM00006 EQU ZZ1+144 03103000 ZZ1FPP EQU ZZ1+140 03104000 ZZ1ZZ6P EQU ZZ1+136 03105000 @NM00005 EQU ZZ1+84 03106000 ZZ1PLINE EQU ZZ1+80 03107000 ZZ1PGSZ EQU ZZ1+76 03108000 ZZ1PCNT EQU ZZ1+72 03109000 @NM00004 EQU ZZ1+68 03110000 ZZ1TPAGE EQU ZZ1+64 03111000 ZZ1TLINE EQU ZZ1+60 03112000 @NM00003 EQU ZZ1+48 03113000 ZZ1DSDP EQU ZZ1+44 03114000 ZZ1PDRP EQU ZZ1+40 03115000 ZZ1ZZ2P EQU ZZ1+36 03116000 ZZ1327WP EQU ZZ1+32 03117000 ZZ1ACBP EQU ZZ1+28 03118000 @NM00002 EQU ZZ1+24 03119000 ZZ1PDCBP EQU ZZ1+20 03120000 ZZ1BLRBL EQU ZZ1+16 03121000 @NM00001 EQU ZZ1+12 03122000 ZZ1PNULL EQU ZZ1+8 03123000 ZZ1NULL EQU ZZ1+4 03124000 ZZ1IDE EQU ZZ1 03125000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03126000 @RT00503 EQU EXITRLSA 03127000 @RT00514 EQU EXITRLSA 03128000 @RT00521 EQU EXITRLSA 03129000 @RC00659 EQU EXITRLSA 03130000 @ENDDATA EQU * 03131000 END BLSRCOMP,(C'PLS1527',0701,78057) 03132000