TITLE 'MSG MODULE FOR IPS SCANNER *IEEMB814* ' 00001000 IEEMB814 CSECT , 0001 00002000 @MAINENT DS 0H 0001 00003000 USING *,@15 0001 00004000 B @PROLOG 0001 00005000 DC AL1(16) 0001 00006000 DC C'IEEMB814 72.351' 0001 00007000 DROP @15 00008000 @PROLOG STM @14,@12,12(@13) 0001 00009000 BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 L @00,@SIZDATD 0001 00013000 GETMAIN R,LV=(0) 00014000 LR @11,@01 0001 00015000 USING @DATD,@11 0001 00016000 ST @13,@SA00001+4 0001 00017000 LM @00,@01,20(@13) 0001 00018000 ST @11,8(,@13) 0001 00019000 LR @13,@11 0001 00020000 XC @ZTEMPS(@ZLEN),@ZTEMPS 00021000 * 0040 00022000 * /*****************************************************************/ 00023000 * /* */ 00024000 * /* ON ENTRY REGISTER 1 POINTS TO A SINGLE WORD PARAMETER LIST. */ 00025000 * /* THE FIRST 2 BYTES CONTAIN THE MESSAGE ID WHICH IS USED TO */ 00026000 * /* LOCATE THE CORRECT MESSAGE. THE NEXT TWO BYTES CONTAIN THE IPS*/ 00027000 * /* VALUE OR ZEROES. */ 00028000 * /* */ 00029000 * /*****************************************************************/ 00030000 * 0040 00031000 * IF REG1->IWANTMSG^>'20'X THEN /* VALIDITY CHECK MESSAGE */ 00032000 CLI IWANTMSG(REG1),32 0040 00033000 BH @RF00040 0040 00034000 * DO; 0041 00035000 * REG4=REG1; /* SAVE PTR TO PARM LIST */ 00036000 LR REG4,REG1 0042 00037000 * IF IPSVALUE=0 THEN /* DO WE HAVE AN IPS VALUE TO 0043 00038000 * INSERT */ 00039000 MVC @ZT00002+2(2),IPSVALUE(REG4) 0043 00040000 L @10,@ZT00002 0043 00041000 LTR @10,@10 0043 00042000 BNZ @RF00043 0043 00043000 * DO; /* IF NO IPSVALUE */ 00044000 * 0044 00045000 * /*********************************************************/ 00046000 * /* */ 00047000 * /* IF NO IPS VALUE EXIST THEN THE MESSAGE REQUIRES NO */ 00048000 * /* INSERTION AND EXISTS IN IEE0503D. AN XSA WILL BE */ 00049000 * /* SIMULATED AND THE MESSAGE DESIRED PLUS THE VERB WILL */ 00050000 * /* BE PASSED. THEN SETUP TO GOTO IEE0503D. */ 00051000 * /* */ 00052000 * /*********************************************************/ 00053000 * 0045 00054000 * CALL BUILDXSA; /* NEED AN XSA SO BUILD IT. */ 00055000 BAL @14,BUILDXSA 0045 00056000 * CALL GET0503D; /* GO TO IEE0503D TO ISSUE 0046 00057000 * MESSAGE */ 00058000 BAL @14,GET0503D 0046 00059000 * END; 0047 00060000 * ELSE 0048 00061000 * 0048 00062000 * /***********************************************************/ 00063000 * /* */ 00064000 * /* THE IPS VALUE MUST BE INSERTED INTO THE MESSAGE THIS */ 00065000 * /* WILL BE DONE AND THE WTO ISSUED. */ 00066000 * /* */ 00067000 * /***********************************************************/ 00068000 * 0048 00069000 * DO; 0048 00070000 B @RC00043 0048 00071000 @RF00043 DS 0H 0049 00072000 * CALL BUILDMSG; /* GOTO ROUTINE TO INSERT THE 0049 00073000 * VALUE */ 00074000 BAL @14,BUILDMSG 0049 00075000 * IF REG15=0 THEN /* MSG BUILD OK THEN */ 00076000 LTR REG15,REG15 0050 00077000 BNZ @RF00050 0050 00078000 * GEN(WTO MF=(E,(1))); /* ISSUE WTO */ 00079000 WTO MF=(E,(1)) 00080000 * END; 0052 00081000 @RF00050 DS 0H 0053 00082000 * END; 0053 00083000 @RC00043 DS 0H 0054 00084000 * RETURN; /* RETURN TO CALLER */ 00085000 @EL00001 L @13,4(,@13) 0054 00086000 @EF00001 L @00,@SIZDATD 0054 00087000 LR @01,@11 0054 00088000 FREEMAIN R,LV=(0),A=(1) 00089000 @ER00001 LM @14,@12,12(@13) 0054 00090000 BR @14 0054 00091000 *BUILDMSG: 0055 00092000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0055 00093000 * 0055 00094000 BUILDMSG DS 0H 0056 00095000 * /*****************************************************************/ 00096000 * /* */ 00097000 * /* THIS ROUTINE MOVES THE MESSAGE INTO THIS MODULES WORKAREA AND */ 00098000 * /* THEN MOVES THE IPS VALUE INTO THE MESSAGE. */ 00099000 * /* */ 00100000 * /*****************************************************************/ 00101000 * 0056 00102000 * REG15=0; /* SET REG 15 TO 0 */ 00103000 SR REG15,REG15 0056 00104000 * REG0=ADDR(MSGADDR)+IWANTMSG; /* POINT TO MSG LEN */ 00105000 LA REG0,MSGADDR 0057 00106000 MVC @ZT00003+3(1),IWANTMSG(REG4) 0057 00107000 A REG0,@ZT00003 0057 00108000 * REG4=REG1; /* SAVE IPS VALUE PTR */ 00109000 LR REG4,REG1 0058 00110000 * REG2=REG0+4; /* GET MSG ADDRESS */ 00111000 LA REG2,4 0059 00112000 AR REG2,REG0 0059 00113000 * REG2=REG2->MSGPTR; /* GET ADDR OF MSG */ 00114000 L @10,MSGPTR(,REG2) 0060 00115000 LR REG2,@10 0060 00116000 * REG5=LENGTH; /* GET LENGTH OF MSG */ 00117000 LR @10,REG0 0061 00118000 L REG5,LENGTH(,@10) 0061 00119000 * REG1=ADDR(WORKAREA); /* GET CORE FOR MESSAGE */ 00120000 LA REG1,WORKAREA 0062 00121000 * MSGAREA(1:REG5)=REG2->MSGAREA; /* MOVE MSG INTO CORE */ 00122000 LR @10,REG5 0063 00123000 BCTR @10,0 0063 00124000 EX @10,@SM00283 0063 00125000 * IF IWANTMSG='00'X THEN /* SUCCESSFUL MSG DESIRED? */ 00126000 CLI IWANTMSG(REG4),0 0064 00127000 BNE @RF00064 0064 00128000 * PUTIPS2=IPSVALUE; /* YES, MOVE IN VALUE */ 00129000 MVC PUTIPS2(2,REG1),IPSVALUE(REG4) 0065 00130000 * ELSE 0066 00131000 * IF IWANTMSG='08'X THEN /* A SPECIFICATION ERROR. */ 00132000 B @RC00064 0066 00133000 @RF00064 CLI IWANTMSG(REG4),8 0066 00134000 BNE @RF00066 0066 00135000 * PUTIPS3=IPSVALUE; /* YES, MOVE IN VALUE */ 00136000 MVC PUTIPS3(2,REG1),IPSVALUE(REG4) 0067 00137000 * ELSE 0068 00138000 * IF IWANTMSG='18'X THEN /* IO ERROR MSG DESIRED */ 00139000 B @RC00066 0068 00140000 @RF00066 CLI IWANTMSG(REG4),24 0068 00141000 BNE @RF00068 0068 00142000 * PUTIPS4=IPSVALUE; /* YES, MOVE IN VALUE */ 00143000 MVC PUTIPS4(2,REG1),IPSVALUE(REG4) 0069 00144000 * ELSE 0070 00145000 * IF IWANTMSG='10'X THEN /* MEMBER NOT FOUND MSG */ 00146000 B @RC00068 0070 00147000 @RF00068 CLI IWANTMSG(REG4),16 0070 00148000 BNE @RF00070 0070 00149000 * PUTIPS1=IPSVALUE; /* YES, MOVE IN VALUE */ 00150000 MVC PUTIPS1(2,REG1),IPSVALUE(REG4) 0071 00151000 * ELSE 0072 00152000 * IF IWANTMSG='20'X THEN 0072 00153000 B @RC00070 0072 00154000 @RF00070 CLI IWANTMSG(REG4),32 0072 00155000 BNE @RF00072 0072 00156000 * PUTIPS5=IPSVALUE; /* OTHERWISE OPEN FAILED */ 00157000 MVC PUTIPS5(2,REG1),IPSVALUE(REG4) 0073 00158000 * ELSE 0074 00159000 * REG15=4; /* INVALID MSG ID */ 00160000 B @RC00072 0074 00161000 @RF00072 LA REG15,4 0074 00162000 * REG0=REG6->CHUCMP; /* GET CONSOLE TO ISSUE TO */ 00163000 @RC00072 DS 0H 0075 00164000 @RC00070 DS 0H 0075 00165000 @RC00068 DS 0H 0075 00166000 @RC00066 DS 0H 0075 00167000 @RC00064 SR REG0,REG0 0075 00168000 IC REG0,CHUCMP(,REG6) 0075 00169000 * END; 0076 00170000 @EL00002 DS 0H 0076 00171000 @EF00002 DS 0H 0076 00172000 @ER00002 BR @14 0076 00173000 *BUILDXSA: 0077 00174000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0077 00175000 * 0077 00176000 BUILDXSA DS 0H 0078 00177000 * /*****************************************************************/ 00178000 * /* */ 00179000 * /* THIS ROUTINE BUILDS A SIMULATED EXTENDED SAVE AREA IN THIS */ 00180000 * /* MODULES WORKAREA FOR ACCESS BY MESSAGE MODULE IEE0503D. THE */ 00181000 * /* VERB NAME IS INSERTED INTO THE XAV FIELD AND THE MESSAGE ID */ 00182000 * /* INTO THE XAE FIELD. */ 00183000 * /* */ 00184000 * /*****************************************************************/ 00185000 * 0078 00186000 * REG2=ADDR(WORKAREA); /* GET WORKAREA ADDRESS */ 00187000 LA REG2,WORKAREA 0078 00188000 * REG0=ADDR(XAA)+4-ADDR(XSAMAP); /* GET LENGTH OF XSA */ 00189000 LA REG0,XAA(,XSAPTR) 0079 00190000 AH REG0,@CH00054 0079 00191000 SR REG0,XSAPTR 0079 00192000 * XSAMAP(1:REG0)=XSAMAP(1:REG0)&&XSAMAP(1:REG0);/* ZERO OUT THE XSA*/ 00193000 LR @10,REG0 0080 00194000 BCTR @10,0 0080 00195000 EX @10,@SX00285 0080 00196000 * XAV=SET; /* MOVE IN THE VERB */ 00197000 MVI XAV+3(XSAPTR),C' ' 0081 00198000 MVC XAV+4(4,XSAPTR),XAV+3(XSAPTR) 0081 00199000 MVC XAV(3,XSAPTR),SET 0081 00200000 * XAE=IWANTMSG; /* PUT MSG ID IN XAE FIELD */ 00201000 MVC XAE(1,XSAPTR),IWANTMSG(REG4) 0082 00202000 * XAU=REG6->CHUCMP; /* STORE ISSUING CONSOLES ID */ 00203000 MVC XAU(1,XSAPTR),CHUCMP(REG6) 0083 00204000 * END; 0084 00205000 @EL00003 DS 0H 0084 00206000 @EF00003 DS 0H 0084 00207000 @ER00003 BR @14 0084 00208000 *GET0503D: 0085 00209000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0085 00210000 * 0085 00211000 GET0503D DS 0H 0086 00212000 * /*****************************************************************/ 00213000 * /* */ 00214000 * /* THIS ROUTINE ISSUES A LOAD FOR MESSAGE MODULE IEE0503D AND */ 00215000 * /* PASSES IT THE SIMULATED XSA POINTED TO BY REG 29 ON RETURN */ 00216000 * /* IEE0503D IS DELETED. */ 00217000 * /* */ 00218000 * /*****************************************************************/ 00219000 * 0086 00220000 * REG7=REG14; /* SAVE RETURN ADDR */ 00221000 LR REG7,REG14 0086 00222000 * GEN(LOAD EP=IEE0503D); /* LOAD IN IEE0503D */ 00223000 LOAD EP=IEE0503D 00224000 * REG15=REG0; /* GET IEE0503D ADDR */ 00225000 LR REG15,REG0 0088 00226000 * GEN(BALR REG14,REG15); /* BR TO IEE0503D */ 00227000 BALR REG14,REG15 00228000 * GEN(DELETE EP=IEE0503D); /* DELETE IEE0503D */ 00229000 DELETE EP=IEE0503D 00230000 * REG14=REG7; /* RESTORE RETURN ADDR */ 00231000 LR REG14,REG7 0091 00232000 * RETURN; /* GO TO CALLER */ 00233000 @EL00004 DS 0H 0092 00234000 @EF00004 DS 0H 0092 00235000 @ER00004 BR @14 0092 00236000 * END; 0093 00237000 B @EL00004 0093 00238000 * GEN; 0094 00239000 MSG1 WTO 'IEE536I IPS VALUE XX NOW IN EFFECT',MF=L, **00240000 DESC=(5),MCSFLAG=(REG0,RESP) 00241000 MSG1LEN EQU * 00242000 MSG2 WTO 'IEE537I IPS IN IEAIPSXX INVALID',MF=L, **00243000 DESC=(5),MCSFLAG=(REG0,RESP) 00244000 MSG2LEN EQU * 00245000 MSG3 WTO 'IEE538I IEAIPSXX MEMBER NOT FOUND IN SYS1.PARMLIB', **00246000 MF=L,DESC=(5),MCSFLAG=(REG0,RESP) 00247000 MSG3LEN EQU * 00248000 MSG4 WTO 'IEE539I I/O ERROR DURING PROCESSING OF MEMBER IEAIPSXXX00249000 ',MF=L,DESC=(5),MCSFLAG=(REG0,RESP) 00250000 MSG4LEN EQU * 00251000 MSG5 WTO 'IEE540I OPEN FAILED - SYS1.PARMLIB DURING PROCESSING OFF00252000 MEMBER IEAIPSXX',MF=L,DESC=(5),MCSFLAG=(REG0,RESP) 00253000 MSG5LEN EQU * 00254000 * END 0095 00255000 * 0095 00256000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00257000 */*%INCLUDE SYSLIB (IEEXSA ) */ 00258000 */*%INCLUDE SYSLIB (IEECHAIN) */ 00259000 * 0095 00260000 * ; 0095 00261000 B @EL00001 0095 00262000 @DATA DS 0H 00263000 @CH00054 DC H'4' 00264000 @SM00283 MVC MSGAREA(0,REG1),MSGAREA(REG2) 00265000 @SX00285 XC XSAMAP(0,XSAPTR),XSAMAP(XSAPTR) 00266000 @DATD DSECT 00267000 DS 0F 00268000 @SA00001 DS 18F 00269000 @ZTEMPS DS 0F 00270000 @ZT00002 DC F'0' 00271000 @ZT00003 DC F'0' 00272000 @ZTEMPND EQU * 00273000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00274000 IEEMB814 CSECT 00275000 DS 0F 00276000 @DATD DSECT 00277000 DS 0D 00278000 CSCBPTR DS A 00279000 WORKAREA DS CL132 00280000 @ENDDATD EQU * 00281000 IEEMB814 CSECT 00282000 DS 0F 00283000 @SIZDATD DC AL1(0) 00284000 DC AL3(@ENDDATD-@DATD) 00285000 DS 0D 00286000 SET DC CL3'SET' 00287000 DS CL1 00288000 MSGADDR DS CL40 00289000 ORG MSGADDR 00290000 MSGLEN1 DC AL4(MSG1LEN-MSG1) 00291000 MSGADDR1 DC AL4(MSG1) 00292000 MSGLEN2 DC AL4(MSG2LEN-MSG2) 00293000 MSGADDR2 DC AL4(MSG2) 00294000 MSGLEN3 DC AL4(MSG3LEN-MSG3) 00295000 MSGADDR3 DC AL4(MSG3) 00296000 MSGLEN4 DC AL4(MSG4LEN-MSG4) 00297000 MSGADDR4 DC AL4(MSG4) 00298000 MSGLEN5 DC AL4(MSG5LEN-MSG5) 00299000 MSGADDR5 DC AL4(MSG5) 00300000 ORG MSGADDR+40 00301000 PATCH DS CL30 00302000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00303000 @01 EQU 01 00304000 @02 EQU 02 00305000 @03 EQU 03 00306000 @04 EQU 04 00307000 @05 EQU 05 00308000 @06 EQU 06 00309000 @07 EQU 07 00310000 @08 EQU 08 00311000 @09 EQU 09 00312000 @10 EQU 10 00313000 @11 EQU 11 00314000 @12 EQU 12 00315000 @13 EQU 13 00316000 @14 EQU 14 00317000 @15 EQU 15 00318000 XSAPTR EQU @02 00319000 REG0 EQU @00 00320000 REG1 EQU @01 00321000 REG2 EQU @02 00322000 REG3 EQU @03 00323000 REG4 EQU @04 00324000 REG5 EQU @05 00325000 REG6 EQU @06 00326000 REG7 EQU @07 00327000 REG14 EQU @14 00328000 REG15 EQU @15 00329000 XSAMAP EQU 0 00330000 XASVRB EQU XSAMAP 00331000 XSA EQU XASVRB 00332000 XAX EQU XASVRB+8 00333000 XAR EQU XASVRB+16 00334000 XAE EQU XAR 00335000 XAL EQU XASVRB+20 00336000 XAV EQU XASVRB+24 00337000 XAS EQU XASVRB+32 00338000 XAU EQU XASVRB+40 00339000 XAA EQU XASVRB+42 00340000 EEXSAS01 EQU 0 00341000 EEXSAS02 EQU 0 00342000 XASDS EQU EEXSAS02+2 00343000 @NM00005 EQU EEXSAS02+4 00344000 EEXSAS03 EQU 0 00345000 XAXMASK EQU EEXSAS03 00346000 CHAIN EQU 0 00347000 CHFLG EQU CHAIN+4 00348000 CHSTS EQU CHFLG+2 00349000 CHACT EQU CHFLG+3 00350000 CHKEY EQU CHAIN+8 00351000 CHPKE EQU CHAIN+28 00352000 CHUCMP EQU CHAIN+29 00353000 CHTJID EQU CHAIN+30 00354000 CHACT1 EQU CHAIN+35 00355000 CHASM EQU CHAIN+40 00356000 CHCIBP EQU CHASM+4 00357000 CHRGNSZ EQU CHASM+8 00358000 CHSHORT EQU CHASM+24 00359000 CHSWT EQU CHSHORT 00360000 LENGTH EQU 0 00361000 MSGPTR EQU 0 00362000 MSGAREA EQU 0 00363000 PUTIPS1 EQU MSGAREA+18 00364000 PUTIPS2 EQU MSGAREA+22 00365000 PUTIPS3 EQU MSGAREA+25 00366000 PUTIPS4 EQU MSGAREA+56 00367000 PUTIPS5 EQU MSGAREA+73 00368000 PARMLIST EQU 0 00369000 IWANTMSG EQU PARMLIST+1 00370000 IPSVALUE EQU PARMLIST+2 00371000 CHAINS01 EQU CHASM 00372000 CHTYPE EQU CHAINS01+124 00373000 CHTRSTAT EQU CHAINS01+125 00374000 CHCSYSO EQU CHAINS01+134 00375000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00376000 CHLAST EQU CHAINS01+136 00377000 CHSPA EQU CHAINS01+135 00378000 CHUSERID EQU CHCSYSO 00379000 CHJB EQU CHCSYSO 00380000 CHDUMP EQU CHCSYSO 00381000 CHQUE EQU CHCSYSO 00382000 CHHOLD EQU CHCSYSO 00383000 CHOUT EQU CHCSYSO 00384000 CHINN EQU CHCSYSO 00385000 CHALL EQU CHCSYSO 00386000 CHINC EQU CHAINS01+132 00387000 CHPEND EQU CHAINS01+128 00388000 CHARID EQU CHAINS01+127 00389000 CHCNID EQU CHAINS01+126 00390000 @NM00011 EQU CHTRSTAT 00391000 CHTSL EQU CHTRSTAT 00392000 CHTS EQU CHTRSTAT 00393000 CHINITL EQU CHTRSTAT 00394000 CHINIT EQU CHTRSTAT 00395000 CHJOBSL EQU CHTRSTAT 00396000 CHJOBS EQU CHTRSTAT 00397000 CHDEF EQU CHTYPE 00398000 CHHIAR EQU CHTYPE 00399000 CHARSV29 EQU CHTYPE 00400000 CHARSV28 EQU CHTYPE 00401000 CHARSV27 EQU CHTYPE 00402000 CHARSV26 EQU CHTYPE 00403000 CHARSV25 EQU CHTYPE 00404000 CHDSTAT EQU CHTYPE 00405000 CHBUF EQU CHAINS01 00406000 @NM00017 EQU PARMLIST 00407000 @NM00016 EQU MSGAREA+58 00408000 @NM00015 EQU MSGAREA+27 00409000 @NM00014 EQU MSGAREA+24 00410000 @NM00013 EQU MSGAREA+20 00411000 @NM00012 EQU MSGAREA 00412000 CHARSV16 EQU CHSHORT+108 00413000 CHARSV15 EQU CHSHORT+104 00414000 CHJSCBVS EQU CHSHORT+100 00415000 CHUSCVS EQU CHSHORT+96 00416000 @NM00010 EQU CHSHORT+92 00417000 @NM00009 EQU CHSHORT+88 00418000 CHSQA EQU CHSHORT+52 00419000 CHQPA EQU CHSHORT+16 00420000 CHJCL EQU CHSHORT+12 00421000 CHSPC EQU CHSHORT+8 00422000 CHSPB EQU CHSHORT+4 00423000 CHTCB EQU CHSHORT+1 00424000 CHARSV23 EQU CHSWT 00425000 CHARSV22 EQU CHSWT 00426000 CHARSV21 EQU CHSWT 00427000 CHAC EQU CHSWT 00428000 CHPSF EQU CHSWT 00429000 CHPSD EQU CHSWT 00430000 CHJCT EQU CHSWT 00431000 CHARSV20 EQU CHSWT 00432000 CHCECB EQU CHASM+20 00433000 CHECB EQU CHASM+16 00434000 CHRGNAD EQU CHASM+12 00435000 CHARSV18 EQU CHRGNSZ+1 00436000 CHRPRTY EQU CHRGNSZ 00437000 @NM00008 EQU CHCIBP 00438000 CHEND EQU CHCIBP 00439000 CHECBP EQU CHASM 00440000 CHDER EQU CHAIN+36 00441000 CHARSV10 EQU CHACT1 00442000 CHARSV09 EQU CHACT1 00443000 CHARSV08 EQU CHACT1 00444000 CHARSV07 EQU CHACT1 00445000 CHARSV06 EQU CHACT1 00446000 CHARSV05 EQU CHACT1 00447000 CHARSV04 EQU CHACT1 00448000 CHRDWTR EQU CHACT1 00449000 CHARSV30 EQU CHAIN+34 00450000 CHQID EQU CHAIN+32 00451000 CHASID EQU CHTJID 00452000 CHTRKID EQU CHPKE 00453000 CHCIBCTR EQU CHAIN+27 00454000 CHUNIT EQU CHAIN+24 00455000 CHCLS EQU CHAIN+16 00456000 CHPARM EQU CHKEY 00457000 CHIFY EQU CHACT 00458000 CHAIFX EQU CHACT 00459000 CHCLD EQU CHACT 00460000 CHCL EQU CHACT 00461000 CHDSI EQU CHACT 00462000 CHDISC EQU CHACT 00463000 CHTERM EQU CHACT 00464000 CHSWAP EQU CHACT 00465000 CHABTERM EQU CHSTS 00466000 CHFC EQU CHSTS 00467000 CHDL EQU CHSTS 00468000 CHAD EQU CHSTS 00469000 CHQSPC EQU CHSTS 00470000 CHSOUT EQU CHSTS 00471000 CHSYS EQU CHSTS 00472000 CHAP EQU CHSTS 00473000 CHSZE EQU CHFLG+1 00474000 CHVCD EQU CHFLG 00475000 CHPTR EQU CHAIN 00476000 XAXSACB EQU EEXSAS03+4 00477000 XAXUTME EQU EEXSAS03+2 00478000 XAXFREE EQU EEXSAS03+1 00479000 @NM00007 EQU XAXMASK 00480000 XAXTSL EQU XAXMASK 00481000 XAXTS EQU XAXMASK 00482000 @NM00006 EQU XAXMASK 00483000 XAXJOBSL EQU XAXMASK 00484000 XAXJOBS EQU XAXMASK 00485000 XASOPTR EQU @NM00005+1 00486000 XASTSAVE EQU @NM00005 00487000 XASPLS3 EQU EEXSAS02+3 00488000 @NM00004 EQU XASDS 00489000 XASSDS5 EQU XASDS 00490000 XASSDS4 EQU XASDS 00491000 XASSDS3 EQU XASDS 00492000 XASSDS2 EQU XASDS 00493000 XASSDS EQU XASDS 00494000 XASDID EQU EEXSAS02+1 00495000 XASCID EQU EEXSAS02 00496000 @NM00003 EQU EEXSAS01+44 00497000 XAT EQU EEXSAS01+20 00498000 XAF EQU EEXSAS01+12 00499000 XAI EQU EEXSAS01+4 00500000 XAH EQU EEXSAS01 00501000 XASAVSTD EQU XSAMAP+64 00502000 XASAVLOC EQU XSAMAP+48 00503000 @NM00002 EQU XASVRB+44 00504000 @NM00001 EQU XASVRB+41 00505000 XAN EQU XAL 00506000 XAD EQU XSA+4 00507000 XAP EQU XSA 00508000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00509000 @RF00040 EQU @EL00001 00510000 @ENDDATA EQU * 00511000 END IEEMB814 00512000