TITLE 'API CHECK PROCESSOR *00001000 ' 00002000 ISTAICCK CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTAICCK 77.244' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 * /* ALLOW TWO ENTRY POINTS(VS1) @DM12938*/ 00013000 BALR 12,0 00014000 CCKBASE DS 0H 00015000 USING CCKBASE,12 00016000 *CCKADDR: 0035 00017000 * ; /* BASE ADDRESS @XM01124*/ 00018000 CCKADDR DS 0H 0036 00019000 * CCKERSW=0; /* INITIALIZE ERROR SWITCH */ 00020000 * 0036 00021000 SLR @06,@06 0036 00022000 LR CCKERSW,@06 0036 00023000 * /*****************************************************************/ 00024000 * /* */ 00025000 * /* IF AN RPL EXIT IS SPECIFIED BUT NOT SCHEDULED, THEN HANDLE AS */ 00026000 * /* A CONTROL BLOCK ERROR. */ 00027000 * /* */ 00028000 * /*****************************************************************/ 00029000 * 0037 00030000 * CCKEXTBS=CCKRPLAD->RPLDACB->ACBUEL; 0037 00031000 L @09,RPLDACB(,CCKRPLAD) 0037 00032000 L CCKEXTBS,ACBUEL(,@09) 0037 00033000 * RFY 0038 00034000 * IFGEXLST BASED(CCKEXTBS); 0038 00035000 * IF RPLNEXIT='0'B THEN 0039 00036000 TM RPLNEXIT(CCKRPLAD),B'01000000' 0039 00037000 BNZ @RF00039 0039 00038000 * DO; 0040 00039000 * IF RPLEXSCH='0'B THEN 0041 00040000 TM RPLEXSCH(CCKRPLAD),B'10000000' 0041 00041000 BNZ @RF00041 0041 00042000 * DO; 0042 00043000 * CCKREG0='18'X; /* @D31KKLQ*/ 00044000 * 0043 00045000 LA CCKREG0,24 0043 00046000 * /*********************************************************/ 00047000 * /* */ 00048000 * /* IF LOGICAL ERROR EXIT ADDRESS IS IN APPLICATION EXLST */ 00049000 * /* AND ACTIVE FLAG SET, THEN BRANCH TO THAT EXIT FOR A */ 00050000 * /* CONTROL BLOCK ERROR. RE-ESTABLISH BASE REGISTER UPON */ 00051000 * /* RETURN. */ 00052000 * /* */ 00053000 * /*********************************************************/ 00054000 * 0044 00055000 * IF CCKEXTBS>0&EXLLEN2>=20&EXLLERP^='00'X/* @ZA18898*/ 00056000 * THEN 0044 00057000 CR CCKEXTBS,@06 0044 00058000 BNH @RF00044 0044 00059000 LH @09,EXLLEN2(,CCKEXTBS) 0044 00060000 CH @09,@CH00616 0044 00061000 BL @RF00044 0044 00062000 L @09,EXLLERP(,CCKEXTBS) 0044 00063000 LTR @09,@09 0044 00064000 BZ @RF00044 0044 00065000 * DO; /* @D31JKNL*/ 00066000 * RFY 0046 00067000 * CCKLNKRG RSTD; 0046 00068000 * CCKLNKRG=EXLLERP; 0047 00069000 LR CCKLNKRG,@09 0047 00070000 * GENERATE SETS(CREG2,CREG3,CREG4,CREG5,CREG6,CREG7,CREG8 00071000 * ,CREG9,CREGA,CREGB,CREGC,CREGD,CREGE,CREGF); 0048 00072000 LM 2,12,28(13) 00073000 BALR 14,15 00074000 CCKDISP1 EQU *-CCKADDR 00075000 LR 12,14 00076000 LA 14,CCKDISP1 00077000 SR 12,14 00078000 * END; 0049 00079000 * ELSE 0050 00080000 * CREGF=4; /* RETURN CODE=ERROR @D31KKLQ*/ 00081000 B @RC00044 0050 00082000 @RF00044 LA CREGF,4 0050 00083000 * CCKERSW=1; /* SET ERROR SWITCH */ 00084000 @RC00044 LA CCKERSW,1 0051 00085000 * END; 0052 00086000 * ELSE 0053 00087000 * RPLEXSCH='0'B; /* TURN OFF EXIT SCHEDULED */ 00088000 B @RC00041 0053 00089000 @RF00041 NI RPLEXSCH(CCKRPLAD),B'01111111' 0053 00090000 * END; 0054 00091000 * ELSE 0055 00092000 * DO; 0055 00093000 * 0055 00094000 B @RC00039 0055 00095000 @RF00039 DS 0H 0056 00096000 * /*************************************************************/ 00097000 * /* */ 00098000 * /* SET BASE ADDRESS FOR THE APPLICATION ECB. IF ECB IS */ 00099000 * /* POINTED TO BY THE RPL, THEN SET THE BASE SO THE RPLECB */ 00100000 * /* DISPLACEMENT ADDED TO THE BASE EQUALS THE ECB ADDRESS. */ 00101000 * /* OTHERWISE, SET THE BASE TO THE ADDRESS OF THE RPL. */ 00102000 * /* */ 00103000 * /*************************************************************/ 00104000 * 0056 00105000 * RFY 0056 00106000 * CCKECB RSTD; 0056 00107000 * IF RPLECBIN='1'B THEN 0057 00108000 TM RPLECBIN(CCKRPLAD),B'00000001' 0057 00109000 BNO @RF00057 0057 00110000 * CCKECB=RPLECB-(ADDR(RPLECB)-CCKRPLAD); 0058 00111000 LA CCKECB,RPLECB(,CCKRPLAD) 0058 00112000 SLR CCKECB,CCKRPLAD 0058 00113000 LCR CCKECB,CCKECB 0058 00114000 AL CCKECB,RPLECB(,CCKRPLAD) 0058 00115000 * ELSE 0059 00116000 * CCKECB=CCKRPLAD; 0059 00117000 * 0059 00118000 B @RC00057 0059 00119000 @RF00057 LR CCKECB,CCKRPLAD 0059 00120000 * /*************************************************************/ 00121000 * /* */ 00122000 * /* IF THE ECB IS NOT POSTED COMPLETE, THEN WAIT FOR THE */ 00123000 * /* POSTING TO OCCUR. */ 00124000 * /* */ 00125000 * /*************************************************************/ 00126000 * 0060 00127000 * IF CCKECB->RPLPOST='0'B THEN 0060 00128000 @RC00057 TM RPLPOST(CCKECB),B'01000000' 0060 00129000 BNZ @RF00060 0060 00130000 * DO; 0061 00131000 * RFY 0062 00132000 * (CCKSAVE0, 0062 00133000 * CCKSAVE1) RSTD; 0062 00134000 * CCKSAVE0=CCKREG0; 0063 00135000 LR CCKSAVE0,CCKREG0 0063 00136000 * RFY 0064 00137000 * CCKREG0 UNRSTD; 0064 00138000 * CCKSAVE1=CCKRPLAD; /* SAVE RPL ADDRESS ACROSS VWAIT */ 00139000 LR CCKSAVE1,CCKRPLAD 0065 00140000 * CCKRPLAD=CCKECB+(ADDR(RPLECB)-CCKRPLAD); 0066 00141000 LA @06,RPLECB(,CCKRPLAD) 0066 00142000 SLR @06,CCKRPLAD 0066 00143000 ALR @06,CCKECB 0066 00144000 LR CCKRPLAD,@06 0066 00145000 * 0067 00146000 */*VWAIT ECB((1)) */ 00147000 * 0067 00148000 * DO; 0067 00149000 * DCL 0068 00150000 * GPR01F FIXED(31) REG(01); 0068 00151000 * DCL 0069 00152000 * GPR01P PTR(31) REG(01);/* DECLARE AND RESTRICT REG 1 */ 00153000 * RESPECIFY 0070 00154000 * GPR01F RSTD; /* INVOKE XREGSET MACRO TO TEST 00155000 * ECB PARM VALIDITY */ 00156000 */*XREGSET PPARM((1))RREG(1,GPR01F)PID('ECB') */ 00157000 * 0071 00158000 * DO; 0071 00159000 * 0071 00160000 */*PARM ALREADY IN PROPER REGISTER */ 00161000 * 0072 00162000 * END; /* XREGSET */ 00163000 * GEN; 0073 00164000 WAIT 1,ECB=(1) 00165000 * RESPECIFY 0074 00166000 * GPR01F UNRSTD; /* UNRESTRICT REG 1 */ 00167000 * END; /* VWAIT */ 00168000 * RFY 0076 00169000 * CCKREG0 RSTD; 0076 00170000 *CCKRIUWT: 0077 00171000 * BC(15,NOTHALT); /* BRANCH AROUND HALT CODE 0077 00172000 * @ZA26004*/ 00173000 * 0077 00174000 CCKRIUWT BC 15,NOTHALT 0077 00175000 * /*********************************************************/ 00176000 * /* */ 00177000 * /* THE FOLLOWING CODE GETS ENTERED WHEN VTAM IS */ 00178000 * /* TERMINATING AND ISTRAMA2 FINDS AN RB WITH RESUME */ 00179000 * /* ADDRESS OF CCKRIUWT. ISTRAMA2 BUMPS THE RESUME ADDRESS*/ 00180000 * /* BY 4 (TO POINT TO THIS CODE) AND SETS THE RB WAIT */ 00181000 * /* COUNT TO 0 (TO MAKE THE RB DISPATCHABLE). */ 00182000 * /* */ 00183000 * /*********************************************************/ 00184000 * 0078 00185000 * CCKSAVE1->RPLRTNCD='10'X;/* SET HALT RETURN CODE @ZA26004*/ 00186000 MVI RPLRTNCD(CCKSAVE1),X'10' 0078 00187000 * CCKSAVE1->RPLFDB2='0D'X;/* AND MINOR CODE @ZA26004*/ 00188000 MVI RPLFDB2(CCKSAVE1),X'0D' 0079 00189000 * ECBCCKPT='0'B; /* TURN OFF THE ECB WAIT BIT 0080 00190000 * @ZA26004*/ 00191000 NI ECBCCKPT(CCKRPLAD),B'01111111' 0080 00192000 *NOTHALT: 0081 00193000 * CCKREG0=CCKSAVE0; 0081 00194000 NOTHALT LR CCKREG0,CCKSAVE0 0081 00195000 * CCKRPLAD=CCKSAVE1; 0082 00196000 LR CCKRPLAD,CCKSAVE1 0082 00197000 * RFY 0083 00198000 * (CCKSAVE0, 0083 00199000 * CCKSAVE1) UNRSTD; 0083 00200000 * END; 0084 00201000 * ELSE 0085 00202000 * ; 0085 00203000 @RF00060 DS 0H 0086 00204000 * CCKECB->RPLPOST='0'B; /* TURN OFF THE POST BIT */ 00205000 NI RPLPOST(CCKECB),B'10111111' 0086 00206000 * END; 0087 00207000 * IF CCKERSW=0 THEN 0088 00208000 @RC00039 SLR @06,@06 0088 00209000 CR CCKERSW,@06 0088 00210000 BNE @RF00088 0088 00211000 * DO; 0089 00212000 * RFY 0090 00213000 * CCKERSW UNRSTD; 0090 00214000 * RPLACTIV=CCKBYTOF; 0091 00215000 MVC RPLACTIV(1,CCKRPLAD),CCKBYTOF 0091 00216000 * IF RPLRTNCD=0 THEN 0092 00217000 CLI RPLRTNCD(CCKRPLAD),0 0092 00218000 BNE @RF00092 0092 00219000 * DO; /* @D31KKLQ*/ 00220000 * CCKREG0=RPLFDB2; /* @D31KKLQ*/ 00221000 SLR CCKREG0,CCKREG0 0094 00222000 IC CCKREG0,RPLFDB2(,CCKRPLAD) 0094 00223000 * CREGF=0; /* @D31KKLQ*/ 00224000 LR CREGF,@06 0095 00225000 * END; 0096 00226000 * ELSE 0097 00227000 * DO; /* @D31KKLQ*/ 00228000 * 0097 00229000 B @RC00092 0097 00230000 @RF00092 DS 0H 0098 00231000 * /*********************************************************/ 00232000 * /* */ 00233000 * /* IF THE RPL RETURN CODE INDICATES A LOGICAL ERROR, THEN*/ 00234000 * /* CHECK FOR AN APPLICATION LOGICAL ERROR EXIT. */ 00235000 * /* */ 00236000 * /*********************************************************/ 00237000 * 0098 00238000 * IF CCKEXTBS>0&EXLLEN2>=20 THEN 0098 00239000 LTR CCKEXTBS,CCKEXTBS 0098 00240000 BNP @RF00098 0098 00241000 LH @08,EXLLEN2(,CCKEXTBS) 0098 00242000 CH @08,@CH00616 0098 00243000 BL @RF00098 0098 00244000 * CREGE=EXLLERP; /* @D31JKNL*/ 00245000 L CREGE,EXLLERP(,CCKEXTBS) 0099 00246000 * ELSE 0100 00247000 * CREGE=0; /* @D31KKLQ*/ 00248000 B @RC00098 0100 00249000 @RF00098 SLR CREGE,CREGE 0100 00250000 * IF CCKEXTBS>0&EXLLEN2>=15 THEN 0101 00251000 @RC00098 LTR CCKEXTBS,CCKEXTBS 0101 00252000 BNP @RF00101 0101 00253000 LH @08,EXLLEN2(,CCKEXTBS) 0101 00254000 CH @08,@CH00078 0101 00255000 BL @RF00101 0101 00256000 * CCKLNKRG=EXLSYNP; /* D31JKNL */ 00257000 L CCKLNKRG,EXLSYNP(,CCKEXTBS) 0102 00258000 * ELSE 0103 00259000 * CCKLNKRG=0; 0103 00260000 B @RC00101 0103 00261000 @RF00101 SLR CCKLNKRG,CCKLNKRG 0103 00262000 *CCKRTNCD: 0104 00263000 * ; 0104 00264000 @RC00101 DS 0H 0104 00265000 CCKRTNCD DS 0H 0105 00266000 * CCKREG0=RPLRTNCD; /* @D31KKLQ*/ 00267000 SLR CCKREG0,CCKREG0 0105 00268000 IC CCKREG0,RPLRTNCD(,CCKRPLAD) 0105 00269000 * IF CCKREG0^>'10'X THEN 0106 00270000 CH CCKREG0,@CH00624 0106 00271000 BH @RF00106 0106 00272000 * DO; /* @D31KKLQ*/ 00273000 * IF CREGF=0 THEN 0108 00274000 LTR CREGF,CREGF 0108 00275000 BNZ @RF00108 0108 00276000 * CREGF=4; /* @D31KKLQ*/ 00277000 LA CREGF,4 0109 00278000 * ELSE 0110 00279000 * DO; /* @D31KKLQ*/ 00280000 B @RC00108 0110 00281000 @RF00108 DS 0H 0111 00282000 * GENERATE SETS(CREG2,CREG3,CREG4,CREG5,CREG6,CREG7, 00283000 * CREG8,CREG9,CREGA,CREGB,CREGC,CREGD,CREGE,CREGF 00284000 * ); 0111 00285000 LM 2,12,28(13) @D31KKLQ 00286000 BALR 14,15 @D31KKLQ 00287000 CCKDISPB EQU *-CCKADDR @D31KKLQ 00288000 LR 12,14 @D31KKLQ 00289000 LA 14,CCKDISPB @D31KKLQ 00290000 SR 12,14 @D31KKLQ 00291000 * END; /* @D31KKLQ*/ 00292000 * END; /* @D31KKLQ*/ 00293000 * ELSE 0114 00294000 * DO; /* @D31KKLQ*/ 00295000 B @RC00106 0114 00296000 @RF00106 DS 0H 0115 00297000 * IF CREGE=0 THEN 0115 00298000 LTR CREGE,CREGE 0115 00299000 BNZ @RF00115 0115 00300000 * CREGF=4; /* @D31KKLQ*/ 00301000 LA CREGF,4 0116 00302000 * ELSE 0117 00303000 * DO; /* @D31KKLQ*/ 00304000 B @RC00115 0117 00305000 @RF00115 DS 0H 0118 00306000 * GENERATE SETS(CREG2,CREG3,CREG4,CREG5,CREG6,CREG7, 00307000 * CREG8,CREG9,CREGA,CREGB,CREGC,CREGD,CREGE,CREGF 00308000 * ); 0118 00309000 LM 2,12,28(13) @D31KKLQ 00310000 LR 15,14 @D31KKLQ 00311000 BALR 14,15 @D31KKLQ 00312000 CCKDISPC EQU *-CCKADDR @D31KKLQ 00313000 LR 12,14 @D31KKLQ 00314000 LA 14,CCKDISPC @D31KKLQ 00315000 SR 12,14 @D31KKLQ 00316000 * END; /* @D31KKLQ*/ 00317000 * END; /* @D31KKLQ*/ 00318000 * END; /* @D31KKLQ*/ 00319000 * END; /* @D31KKLQ*/ 00320000 * ELSE 0123 00321000 * ; /* @D31KKLQ*/ 00322000 * 0123 00323000 @RF00088 DS 0H 0124 00324000 * /*****************************************************************/ 00325000 * /* */ 00326000 * /* RESTORE APPLICATION REGISTERS AND RETURN TO THE APPLICATION. */ 00327000 * /* */ 00328000 * /*****************************************************************/ 00329000 * 0124 00330000 *CCKFINIS: 0124 00331000 * ; /* LABEL FOR SYNAD/LERAD HANDLING 00332000 * BRANCH @D31KKLQ*/ 00333000 @RC00088 DS 0H 0124 00334000 CCKFINIS DS 0H 0125 00335000 * GENERATE SETS(CREG2,CREG3,CREG4,CREG5,CREG6,CREG7,CREG8,CREG9,CREGA 00336000 * ,CREGB,CREGC,CREGD,CREGE,CREGF); 0125 00337000 LM 1,12,24(13) 00338000 L 14,12(13) 00339000 BR 14 00340000 * GEN(EJECT); 0126 00341000 * 0126 00342000 EJECT 00343000 */* TPEPILOG */ 00344000 * 0127 00345000 * GEN(PRINT OFF); 0127 00346000 PRINT OFF 00347000 * GEN(PRINT ON); 0128 00348000 * 0128 00349000 PRINT ON 00350000 */* END OF TPEPILOG */ 00351000 * 0129 00352000 * END ISTAICCK 0129 00353000 * 0129 00354000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00355000 */*%INCLUDE SYSLIB (IFGRPL ) */ 00356000 */*%INCLUDE SYSLIB (IFGRPLVT) */ 00357000 */*%INCLUDE SYSLIB (ISTRPLFB) */ 00358000 */*%INCLUDE SYSLIB (IFGACB ) */ 00359000 */*%INCLUDE SYSLIB (IFGACBVT) */ 00360000 */*%INCLUDE SYSLIB (IFGEXLST) */ 00361000 */*%INCLUDE SYSLIB (IFGEXLVT) */ 00362000 * 0129 00363000 * ; 0129 00364000 @DATA DS 0H 00365000 @CH00078 DC H'15' 00366000 @CH00616 DC H'20' 00367000 @CH00624 DC XL2'10' 00368000 @DATD DSECT 00369000 DS 0F 00370000 ISTAICCK CSECT 00371000 DS 0F 00372000 @DATD DSECT 00373000 DS 0D 00374000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00375000 @ENDDATD EQU * 00376000 ISTAICCK CSECT 00377000 DS 0F 00378000 @SIZDATD DC AL1(0) 00379000 DC AL3(@ENDDATD-@DATD) 00380000 DS 0D 00381000 CCKBITON DC X'80000000' 00382000 CCKBYTOF DC AL1(0) 00383000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00384000 @01 EQU 01 00385000 @02 EQU 02 00386000 @03 EQU 03 00387000 @04 EQU 04 00388000 @05 EQU 05 00389000 @06 EQU 06 00390000 @07 EQU 07 00391000 @08 EQU 08 00392000 @09 EQU 09 00393000 @10 EQU 10 00394000 @11 EQU 11 00395000 @12 EQU 12 00396000 @13 EQU 13 00397000 @14 EQU 14 00398000 @15 EQU 15 00399000 CCKREG0 EQU @00 00400000 CCKRPLAD EQU @01 00401000 CCKUSRSV EQU @13 00402000 CCKEXTBS EQU @07 00403000 CCKERSW EQU @08 00404000 CCKLNKRG EQU @15 00405000 CCKSAVE0 EQU @10 00406000 CCKSAVE1 EQU @11 00407000 CCKECB EQU @09 00408000 CREG2 EQU @02 00409000 CREG3 EQU @03 00410000 CREG4 EQU @04 00411000 CREG5 EQU @05 00412000 CREG6 EQU @06 00413000 CREG7 EQU @07 00414000 CREG8 EQU @08 00415000 CREG9 EQU @09 00416000 CREGA EQU @10 00417000 CREGB EQU @11 00418000 CREGC EQU @12 00419000 CREGD EQU @13 00420000 CREGE EQU @14 00421000 CREGF EQU @15 00422000 GPR01F EQU @01 00423000 CREG1 EQU @01 00424000 GPR01P EQU @01 00425000 ENTRY CCKRIUWT 00426000 IFGRPL EQU 0 00427000 RPLCOMN EQU IFGRPL 00428000 RPLIDWD EQU RPLCOMN 00429000 RPLLEN EQU RPLIDWD+3 00430000 RPLECB EQU RPLCOMN+8 00431000 RPLPOST EQU RPLECB 00432000 RPLFDBWD EQU RPLCOMN+12 00433000 RPLFDBK EQU RPLFDBWD+1 00434000 RPLRTNCD EQU RPLFDBK 00435000 RPLCNDCD EQU RPLFDBK+1 00436000 RPLCMPON EQU RPLCNDCD 00437000 RPLFDB2 EQU RPLCMPON 00438000 RPLERRCD EQU RPLCNDCD+1 00439000 RPLFDB3 EQU RPLERRCD 00440000 RPLKEYLE EQU RPLCOMN+16 00441000 RPLDACB EQU RPLCOMN+24 00442000 RPLARG EQU RPLCOMN+36 00443000 RPLOPTCD EQU RPLCOMN+40 00444000 RPLOPT1 EQU RPLOPTCD 00445000 RPLECBSW EQU RPLOPT1 00446000 RPLECBIN EQU RPLECBSW 00447000 RPLOPT2 EQU RPLOPTCD+1 00448000 RPLADR EQU RPLOPT2 00449000 RPLOPT3 EQU RPLOPTCD+2 00450000 RPLOPT4 EQU RPLOPTCD+3 00451000 RPLNXTRP EQU RPLCOMN+44 00452000 RPLOPTC2 EQU RPLCOMN+56 00453000 RPLOPT5 EQU RPLOPTC2 00454000 RPLWRTYP EQU RPLOPT5 00455000 RPLOPT6 EQU RPLOPTC2+1 00456000 RPLUNTYP EQU RPLOPT6 00457000 RPLOPT7 EQU RPLOPTC2+2 00458000 RPLCNOPT EQU RPLOPT7 00459000 RPLOPT8 EQU RPLOPTC2+3 00460000 RPLRBAR EQU RPLCOMN+60 00461000 RPLAIXID EQU RPLRBAR+2 00462000 RPLEXTDS EQU RPLCOMN+68 00463000 RPLEXTD1 EQU RPLEXTDS 00464000 RPLEXSCH EQU RPLEXTD1 00465000 RPLNEXIT EQU RPLEXTD1 00466000 RPLACTIV EQU RPLCOMN+69 00467000 RPLVTEXT EQU IFGRPL+76 00468000 RPLFDBK2 EQU RPLVTEXT+12 00469000 RPLSSNSI EQU RPLFDBK2 00470000 RPLDSB EQU RPLSSNSI 00471000 RPLDSB1 EQU RPLDSB 00472000 RPLSSEI EQU RPLDSB1 00473000 RPLDSB2 EQU RPLDSB+1 00474000 RPLUSNSI EQU RPLFDBK2+2 00475000 RPLOPTC3 EQU RPLVTEXT+20 00476000 RPLOPT9 EQU RPLOPTC3 00477000 RPLOPT10 EQU RPLOPTC3+1 00478000 RPLOPT11 EQU RPLOPTC3+2 00479000 RPLOPT12 EQU RPLOPTC3+3 00480000 RPLOSENS EQU RPLVTEXT+24 00481000 RPLSSNSO EQU RPLOSENS 00482000 RPLSSEO EQU RPLSSNSO 00483000 RPLOF16 EQU 0 00484000 RPLRH3 EQU RPLOF16 00485000 RPLSRTYP EQU RPLOF16+1 00486000 RPLSTYPE EQU RPLSRTYP 00487000 RPLRTYPE EQU RPLSRTYP 00488000 RPLCHN EQU RPLOF16+2 00489000 RPLVTFL1 EQU RPLOF16+3 00490000 RPLVTFL2 EQU RPLOF16+4 00491000 RPLPOSTV EQU RPLVTFL2 00492000 RPLRESP EQU RPLVTFL2 00493000 RPLCNTRL EQU RPLOF16+5 00494000 RPLCNTDF EQU RPLCNTRL 00495000 RPLCNTDC EQU RPLCNTRL+1 00496000 RPLCNTSC EQU RPLCNTRL+2 00497000 RPLOF60 EQU 0 00498000 RPLOBSQ EQU RPLOF60+4 00499000 RPLIBSQ EQU RPLOF60+5 00500000 IFGACB EQU 0 00501000 ACBCOMN EQU IFGACB 00502000 ACBLENG EQU ACBCOMN+2 00503000 ACBLENG2 EQU ACBLENG 00504000 ACBAMBL EQU ACBCOMN+4 00505000 ACBJWA EQU ACBAMBL 00506000 ACBMACRF EQU ACBCOMN+12 00507000 ACBMACR1 EQU ACBMACRF 00508000 ACBADR EQU ACBMACR1 00509000 ACBCNV EQU ACBMACR1 00510000 ACBMACR2 EQU ACBMACRF+1 00511000 ACBBUFPL EQU ACBCOMN+20 00512000 ACBMACR3 EQU ACBBUFPL 00513000 ACBRECFM EQU ACBCOMN+24 00514000 ACBCCTYP EQU ACBCOMN+25 00515000 ACBOPT EQU ACBCOMN+26 00516000 ACBDSORG EQU ACBOPT 00517000 ACBCROPS EQU ACBDSORG 00518000 ACBDVIND EQU ACBDSORG 00519000 ACBEXLST EQU ACBCOMN+36 00520000 ACBUEL EQU ACBEXLST 00521000 ACBDDNM EQU ACBCOMN+40 00522000 ACBAMETH EQU ACBDDNM+3 00523000 ACBOFLGS EQU ACBCOMN+48 00524000 ACBEXFG EQU ACBOFLGS 00525000 ACBIOSFG EQU ACBOFLGS 00526000 ACBINFLG EQU ACBCOMN+50 00527000 ACBVVIC EQU ACBINFLG 00528000 ACBUJFCB EQU ACBCOMN+52 00529000 ACBBLKSZ EQU ACBCOMN+60 00530000 ACBVTEXT EQU IFGACB+76 00531000 IFGEXLST EQU 0 00532000 EXLCOMN EQU IFGEXLST 00533000 EXLLEN EQU EXLCOMN+2 00534000 EXLLEN2 EQU EXLLEN 00535000 EXLEODF EQU EXLCOMN+5 00536000 EXLSYNF EQU EXLCOMN+10 00537000 EXLSYNP EQU EXLCOMN+11 00538000 EXLLERF EQU EXLCOMN+15 00539000 EXLLERP EQU EXLCOMN+16 00540000 EXLSCIPF EQU EXLCOMN+20 00541000 EXLLGNF EQU EXLCOMN+25 00542000 EXLJRNF EQU EXLCOMN+30 00543000 EXLOPNF EQU EXLCOMN+35 00544000 EXLVTEXT EQU IFGEXLST+40 00545000 EXLNLGNF EQU EXLVTEXT 00546000 EXLRLRQF EQU EXLVTEXT+5 00547000 EXLATTNF EQU EXLVTEXT+15 00548000 EXLTPNDF EQU EXLVTEXT+20 00549000 EXLDFAS EQU 0 00550000 EXLDFASF EQU EXLDFAS 00551000 EXLRESP EQU 0 00552000 EXLRESPF EQU EXLRESP 00553000 IFGEXLEF EQU 0 00554000 EXLENTRY EQU IFGEXLEF 00555000 EXLFLAG EQU EXLENTRY 00556000 EXLENFL EQU EXLFLAG 00557000 EXLEXITP EQU EXLENTRY+1 00558000 ECBCCK EQU 0 00559000 ECBCCK1 EQU ECBCCK 00560000 ECBCCKPT EQU ECBCCK1 00561000 ISTACB EQU 0 00562000 ISTRPL EQU 0 00563000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00564000 EXLEADDR EQU EXLEXITP 00565000 @NM00056 EQU EXLENFL 00566000 EXLLNK EQU EXLENFL 00567000 EXLACTM EQU EXLENFL 00568000 EXLSPEC EQU EXLENFL 00569000 EXLRESPP EQU EXLRESP+1 00570000 @NM00055 EQU EXLRESPF 00571000 EXLRESPK EQU EXLRESPF 00572000 EXLRESPA EQU EXLRESPF 00573000 EXLRESPS EQU EXLRESPF 00574000 EXLDFASP EQU EXLDFAS+1 00575000 @NM00054 EQU EXLDFASF 00576000 EXLDFASK EQU EXLDFASF 00577000 EXLDFASA EQU EXLDFASF 00578000 EXLDFASS EQU EXLDFASF 00579000 EXLTPNDP EQU EXLVTEXT+21 00580000 @NM00053 EQU EXLTPNDF 00581000 EXLTPNDK EQU EXLTPNDF 00582000 EXLTPNDA EQU EXLTPNDF 00583000 EXLTPNDS EQU EXLTPNDF 00584000 EXLATTNP EQU EXLVTEXT+16 00585000 @NM00052 EQU EXLATTNF 00586000 EXLATTNK EQU EXLATTNF 00587000 EXLATTNA EQU EXLATTNF 00588000 EXLATTNS EQU EXLATTNF 00589000 @NM00051 EQU EXLVTEXT+10 00590000 EXLRLRQP EQU EXLVTEXT+6 00591000 @NM00050 EQU EXLRLRQF 00592000 EXLRLRQK EQU EXLRLRQF 00593000 EXLRLRQA EQU EXLRLRQF 00594000 EXLRLRQS EQU EXLRLRQF 00595000 EXLNLGNP EQU EXLVTEXT+1 00596000 @NM00049 EQU EXLNLGNF 00597000 EXLNLGNK EQU EXLNLGNF 00598000 EXLNLGNA EQU EXLNLGNF 00599000 EXLNLGNS EQU EXLNLGNF 00600000 EXLOPNP EQU EXLCOMN+36 00601000 @NM00048 EQU EXLOPNF 00602000 EXLOPNK EQU EXLOPNF 00603000 EXLOPNA EQU EXLOPNF 00604000 EXLOPNS EQU EXLOPNF 00605000 EXLJRNP EQU EXLCOMN+31 00606000 @NM00047 EQU EXLJRNF 00607000 EXLJRNK EQU EXLJRNF 00608000 EXLJRNA EQU EXLJRNF 00609000 EXLJRNS EQU EXLJRNF 00610000 EXLLGNP EQU EXLCOMN+26 00611000 @NM00046 EQU EXLLGNF 00612000 EXLLGNK EQU EXLLGNF 00613000 EXLLGNA EQU EXLLGNF 00614000 EXLLGNS EQU EXLLGNF 00615000 EXLSCIPP EQU EXLCOMN+21 00616000 @NM00045 EQU EXLSCIPF 00617000 EXLSCIPK EQU EXLSCIPF 00618000 EXLSCIPA EQU EXLSCIPF 00619000 EXLSCIPS EQU EXLSCIPF 00620000 @NM00044 EQU EXLLERF 00621000 EXLLERK EQU EXLLERF 00622000 EXLLERA EQU EXLLERF 00623000 EXLLERS EQU EXLLERF 00624000 @NM00043 EQU EXLSYNF 00625000 EXLSYNK EQU EXLSYNF 00626000 EXLSYNA EQU EXLSYNF 00627000 EXLSYNS EQU EXLSYNF 00628000 EXLEODP EQU EXLCOMN+6 00629000 @NM00042 EQU EXLEODF 00630000 EXLEODK EQU EXLEODF 00631000 EXLEODA EQU EXLEODF 00632000 EXLEODS EQU EXLEODF 00633000 @NM00041 EQU EXLCOMN+4 00634000 EXLSTYP EQU EXLCOMN+1 00635000 EXLID EQU EXLCOMN 00636000 @NM00040 EQU ACBVTEXT+8 00637000 @NM00039 EQU ACBVTEXT+6 00638000 ACBRTN EQU ACBVTEXT 00639000 ACBAPID EQU ACBCOMN+72 00640000 ACBCBMWA EQU ACBCOMN+68 00641000 ACBUAPTR EQU ACBCOMN+64 00642000 ACBLRECL EQU ACBCOMN+62 00643000 ACBMSGLN EQU ACBBLKSZ 00644000 ACBBUFSP EQU ACBCOMN+56 00645000 @NM00038 EQU ACBUJFCB+1 00646000 ACBOPTN EQU ACBUJFCB 00647000 @NM00037 EQU ACBINFLG+1 00648000 ACBBYPSS EQU ACBINFLG 00649000 ACBSDS EQU ACBVVIC 00650000 ACBUCRA EQU ACBINFLG 00651000 ACBSCRA EQU ACBINFLG 00652000 ACBCAT EQU ACBINFLG 00653000 ACBIJRQE EQU ACBINFLG 00654000 ACBJEPS EQU ACBINFLG 00655000 @NM00036 EQU ACBINFLG 00656000 ACBERFLG EQU ACBCOMN+49 00657000 ACBBUSY EQU ACBIOSFG 00658000 ACBLOCK EQU ACBEXFG 00659000 @NM00035 EQU ACBOFLGS 00660000 ACBDSERR EQU ACBOFLGS 00661000 ACBOPEN EQU ACBOFLGS 00662000 ACBEOV EQU ACBOFLGS 00663000 @NM00034 EQU ACBOFLGS 00664000 ACBDEB EQU ACBDDNM+5 00665000 ACBERFL EQU ACBDDNM+4 00666000 ACBAM EQU ACBAMETH 00667000 ACBINFL EQU ACBDDNM+2 00668000 ACBTIOT EQU ACBDDNM 00669000 ACBPASSW EQU ACBCOMN+32 00670000 ACBMSGAR EQU ACBCOMN+28 00671000 @NM00033 EQU ACBDSORG+1 00672000 ACBDORGA EQU ACBDSORG+1 00673000 @NM00032 EQU ACBDSORG 00674000 ACBOPTJ EQU ACBDVIND 00675000 ACBCRNRE EQU ACBCROPS 00676000 ACBCRNCK EQU ACBCROPS 00677000 ACBASA EQU ACBCCTYP 00678000 @NM00031 EQU ACBCCTYP 00679000 ACBTRCID EQU ACBCCTYP 00680000 @NM00030 EQU ACBRECFM 00681000 ACBRECAF EQU ACBRECFM 00682000 ACBJBUF EQU ACBBUFPL+2 00683000 ACBMACR4 EQU ACBBUFPL+1 00684000 @NM00029 EQU ACBMACR3 00685000 ACBNCFX EQU ACBMACR3 00686000 ACBSIS EQU ACBMACR3 00687000 ACBDFR EQU ACBMACR3 00688000 ACBICI EQU ACBMACR3 00689000 ACBGSR EQU ACBMACR3 00690000 ACBLSR EQU ACBMACR3 00691000 @NM00028 EQU ACBMACR3 00692000 ACBBUFNI EQU ACBCOMN+18 00693000 ACBBUFND EQU ACBCOMN+16 00694000 ACBSTRNO EQU ACBCOMN+15 00695000 ACBBSTNO EQU ACBCOMN+14 00696000 ACBAIX EQU ACBMACR2 00697000 ACBDSN EQU ACBMACR2 00698000 ACBRST EQU ACBMACR2 00699000 ACBLOGON EQU ACBMACR2 00700000 ACBSKP EQU ACBMACR2 00701000 @NM00027 EQU ACBMACR2 00702000 ACBUBF EQU ACBMACR1 00703000 ACBOUT EQU ACBMACR1 00704000 ACBIN EQU ACBMACR1 00705000 ACBDIR EQU ACBMACR1 00706000 ACBSEQ EQU ACBMACR1 00707000 ACBBLK EQU ACBCNV 00708000 ACBADD EQU ACBADR 00709000 ACBKEY EQU ACBMACR1 00710000 ACBINRTN EQU ACBCOMN+8 00711000 ACBIBCT EQU ACBJWA 00712000 ACBLEN2 EQU ACBLENG2 00713000 ACBSTYP EQU ACBCOMN+1 00714000 ACBID EQU ACBCOMN 00715000 RPLSEQNO EQU RPLOF60+6 00716000 @NM00026 EQU RPLIBSQ 00717000 RPLIINV EQU RPLIBSQ 00718000 RPLINEG EQU RPLIBSQ 00719000 RPLIPOS EQU RPLIBSQ 00720000 RPLIIGN EQU RPLIBSQ 00721000 RPLIRSET EQU RPLIBSQ 00722000 RPLITST EQU RPLIBSQ 00723000 RPLISET EQU RPLIBSQ 00724000 @NM00025 EQU RPLOBSQ 00725000 RPLOINV EQU RPLOBSQ 00726000 RPLONEG EQU RPLOBSQ 00727000 RPLOPOS EQU RPLOBSQ 00728000 RPLOIGN EQU RPLOBSQ 00729000 RPLORSET EQU RPLOBSQ 00730000 RPLOTST EQU RPLOBSQ 00731000 RPLOSET EQU RPLOBSQ 00732000 RPLIBSQV EQU RPLOF60+2 00733000 RPLOBSQV EQU RPLOF60 00734000 @NM00024 EQU RPLCNTSC 00735000 RPLRSHUT EQU RPLCNTSC 00736000 RPLRQR EQU RPLCNTSC 00737000 RPLSHUTC EQU RPLCNTSC 00738000 RPLSHUTD EQU RPLCNTSC 00739000 RPLSTSN EQU RPLCNTSC 00740000 RPLCLEAR EQU RPLCNTSC 00741000 RPLSDT EQU RPLCNTSC 00742000 @NM00023 EQU RPLCNTDC 00743000 RPLSIGNL EQU RPLCNTDC 00744000 RPLLUS EQU RPLCNTDC 00745000 RPLRTR EQU RPLCNTDC 00746000 RPLBID EQU RPLCNTDC 00747000 @NM00022 EQU RPLCNTDF 00748000 RPLQI EQU RPLCNTDF 00749000 RPLRELQ EQU RPLCNTDF 00750000 RPLCHASE EQU RPLCNTDF 00751000 RPLQEC EQU RPLCNTDF 00752000 RPLQC EQU RPLCNTDF 00753000 RPLCNCEL EQU RPLCNTDF 00754000 RPLDATA EQU RPLCNTDF 00755000 RPLRRN EQU RPLRESP 00756000 RPLNFME EQU RPLRESP 00757000 RPLEX EQU RPLRESP 00758000 @NM00021 EQU RPLRESP 00759000 @NM00020 EQU RPLPOSTV 00760000 RPLSCHED EQU RPLPOSTV 00761000 @NM00019 EQU RPLVTFL1 00762000 RPLAUTUS EQU RPLVTFL1 00763000 RPLVTUSE EQU RPLVTFL1 00764000 @NM00018 EQU RPLVTFL1 00765000 @NM00017 EQU RPLCHN 00766000 RPLONLY EQU RPLCHN 00767000 RPLLAST EQU RPLCHN 00768000 RPLMIDLE EQU RPLCHN 00769000 RPLFIRST EQU RPLCHN 00770000 @NM00016 EQU RPLRTYPE 00771000 RPLDFASY EQU RPLRTYPE 00772000 RPLNFSYN EQU RPLRTYPE 00773000 RPLRRESP EQU RPLRTYPE 00774000 @NM00015 EQU RPLSTYPE 00775000 RPLSRESP EQU RPLSTYPE 00776000 @NM00014 EQU RPLRH3 00777000 RPLCSI EQU RPLRH3 00778000 RPLCHREQ EQU RPLRH3 00779000 RPLCMD EQU RPLRH3 00780000 RPLEB EQU RPLRH3 00781000 RPLBB EQU RPLRH3 00782000 RPLSIGDA EQU RPLVTEXT+32 00783000 RPLSAV13 EQU RPLVTEXT+28 00784000 RPLUSNSO EQU RPLOSENS+2 00785000 RPLSSMO EQU RPLSSNSO+1 00786000 @NM00013 EQU RPLSSEO 00787000 RPLRRO EQU RPLSSEO 00788000 RPLFIO EQU RPLSSEO 00789000 RPLSTATO EQU RPLSSEO 00790000 RPLCPMO EQU RPLSSEO 00791000 @NM00012 EQU RPLSSEO 00792000 RPLFMHDR EQU RPLOPT12 00793000 @NM00011 EQU RPLOPT12 00794000 @NM00010 EQU RPLOPT12 00795000 @NM00009 EQU RPLOPT12 00796000 RPLNIBTK EQU RPLOPT12 00797000 RPLTRUNC EQU RPLOPT12 00798000 RPLKEEP EQU RPLOPT12 00799000 @NM00008 EQU RPLOPT12 00800000 RPLRSVE8 EQU RPLOPT11 00801000 RPLRSVE7 EQU RPLOPT11 00802000 RPLRSVE6 EQU RPLOPT11 00803000 RPLRSVE5 EQU RPLOPT11 00804000 RPLRSVE4 EQU RPLOPT11 00805000 RPLSTOP EQU RPLOPT11 00806000 RPLSTART EQU RPLOPT11 00807000 RPLQUIES EQU RPLOPT11 00808000 RPLRSVI6 EQU RPLOPT10 00809000 RPLRSVI5 EQU RPLOPT10 00810000 RPLRSVI4 EQU RPLOPT10 00811000 RPLRSVI3 EQU RPLOPT10 00812000 RPLRSVI2 EQU RPLOPT10 00813000 RPLSPARM EQU RPLOPT10 00814000 RPLDSPLY EQU RPLOPT10 00815000 RPLBSCID EQU RPLOPT10 00816000 RPLTOPL EQU RPLOPT9 00817000 RPLCIDE EQU RPLOPT9 00818000 RPLRNNM EQU RPLOPT9 00819000 RPLAPPST EQU RPLOPT9 00820000 RPLCOUNT EQU RPLOPT9 00821000 RPLTERMS EQU RPLOPT9 00822000 RPLDEVCH EQU RPLOPT9 00823000 RPLLOGON EQU RPLOPT9 00824000 RPLUSFLD EQU RPLVTEXT+16 00825000 RPLESR2 EQU RPLUSNSI+1 00826000 RPLESR1 EQU RPLUSNSI 00827000 RPLSSMI EQU RPLDSB2 00828000 @NM00007 EQU RPLSSEI 00829000 RPLRRI EQU RPLSSEI 00830000 RPLFII EQU RPLSSEI 00831000 RPLSTATI EQU RPLSSEI 00832000 RPLCPMI EQU RPLSSEI 00833000 RPLPATHI EQU RPLSSEI 00834000 RPLARCLN EQU RPLVTEXT+8 00835000 RPLAARLN EQU RPLVTEXT+4 00836000 RPLAAREA EQU RPLVTEXT 00837000 RPLERMSA EQU RPLCOMN+72 00838000 RPLEMLEN EQU RPLCOMN+70 00839000 RPLBRANC EQU RPLEXTD1 00840000 RPLNIB EQU RPLEXTD1 00841000 @NM00006 EQU RPLEXTD1 00842000 RPLEXIT EQU RPLEXTD1 00843000 RPLDDDD EQU RPLRBAR+4 00844000 @NM00005 EQU RPLRBAR+3 00845000 @NM00004 EQU RPLAIXID 00846000 RPLAXPKP EQU RPLAIXID 00847000 RPLAIXPC EQU RPLRBAR 00848000 RPLRSV88 EQU RPLOPT8 00849000 RPLUNCON EQU RPLOPT8 00850000 RPLACTV EQU RPLOPT8 00851000 RPLSESS EQU RPLOPT8 00852000 RPLPEND EQU RPLOPT8 00853000 RPLODPRM EQU RPLOPT8 00854000 RPLODACP EQU RPLOPT8 00855000 RPLODACQ EQU RPLOPT8 00856000 RPLRSV78 EQU RPLOPT7 00857000 RPLTCRNO EQU RPLOPT7 00858000 RPLRLSOP EQU RPLOPT7 00859000 RPLTPOST EQU RPLOPT7 00860000 RPLQOPT EQU RPLOPT7 00861000 RPLCNIMM EQU RPLCNOPT 00862000 RPLCNANY EQU RPLCNOPT 00863000 RPLCNALL EQU RPLCNOPT 00864000 RPLRSV68 EQU RPLOPT6 00865000 RPLRSV67 EQU RPLOPT6 00866000 RPLLOCK EQU RPLOPT6 00867000 RPLNCOND EQU RPLOPT6 00868000 RPLCOND EQU RPLOPT6 00869000 RPLEOT EQU RPLUNTYP 00870000 RPLEOM EQU RPLUNTYP 00871000 RPLEOB EQU RPLUNTYP 00872000 RPLWROPT EQU RPLOPT5 00873000 RPLNODE EQU RPLOPT5 00874000 RPLERACE EQU RPLWRTYP 00875000 RPLEAU EQU RPLWRTYP 00876000 RPLNERAS EQU RPLWRTYP 00877000 RPLPSOPT EQU RPLOPT5 00878000 @NM00003 EQU RPLOPT5 00879000 RPLDLGIN EQU RPLOPT5 00880000 RPLBUFL EQU RPLCOMN+52 00881000 RPLRLEN EQU RPLCOMN+48 00882000 RPLCHAIN EQU RPLNXTRP 00883000 RPLBOP EQU RPLOPT4 00884000 @NM00002 EQU RPLOPT4 00885000 RPLMKFRM EQU RPLOPT4 00886000 RPLENDTR EQU RPLOPT4 00887000 RPLALIGN EQU RPLOPT3 00888000 RPLFMT EQU RPLOPT3 00889000 RPLFLD EQU RPLOPT3 00890000 RPLVFY EQU RPLOPT3 00891000 RPLBLK EQU RPLOPT3 00892000 RPLSFORM EQU RPLOPT3 00893000 RPLEODS EQU RPLOPT3 00894000 RPLNSP EQU RPLOPT2 00895000 RPLUPD EQU RPLOPT2 00896000 @NM00001 EQU RPLOPT2 00897000 RPLLRD EQU RPLOPT2 00898000 RPLBWD EQU RPLOPT2 00899000 RPLCNV EQU RPLOPT2 00900000 RPLADD EQU RPLADR 00901000 RPLKEY EQU RPLOPT2 00902000 RPLGEN EQU RPLOPT1 00903000 RPLKGE EQU RPLOPT1 00904000 RPLASY EQU RPLOPT1 00905000 RPLSKP EQU RPLOPT1 00906000 RPLSEQ EQU RPLOPT1 00907000 RPLDIR EQU RPLOPT1 00908000 RPLLOC EQU RPLOPT1 00909000 RPLDAF EQU RPLARG+2 00910000 RPLSAF EQU RPLARG 00911000 RPLAREA EQU RPLCOMN+32 00912000 RPLTCBPT EQU RPLCOMN+28 00913000 RPLCCHAR EQU RPLCOMN+20 00914000 RPLSTRID EQU RPLCOMN+18 00915000 RPLKEYL EQU RPLKEYLE 00916000 RPLRDSOH EQU RPLFDB3 00917000 RPLRLG EQU RPLFDB3 00918000 RPLLGFRC EQU RPLFDB3 00919000 RPLREOT EQU RPLFDB3 00920000 RPLREOM EQU RPLFDB3 00921000 RPLREOB EQU RPLFDB3 00922000 RPLSV32 EQU RPLFDB3 00923000 RPLUINPT EQU RPLFDB3 00924000 RPLSTSAV EQU RPLFDB2 00925000 RPLCUERR EQU RPLFDB2 00926000 RPLDLGFL EQU RPLFDB2 00927000 RPLIOERR EQU RPLFDB2 00928000 RPLDVUNS EQU RPLFDB2 00929000 RPLATND EQU RPLFDB2 00930000 RPLRVID EQU RPLFDB2 00931000 RPLERLK EQU RPLFDB2 00932000 RPLERREG EQU RPLRTNCD 00933000 RPLSTAT EQU RPLFDBWD 00934000 RPLWAIT EQU RPLECB 00935000 RPLPLHPT EQU RPLCOMN+4 00936000 RPLLEN2 EQU RPLLEN 00937000 RPLREQ EQU RPLIDWD+2 00938000 RPLSTYP EQU RPLIDWD+1 00939000 RPLID EQU RPLIDWD 00940000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00941000 @RC00041 EQU @RC00039 00942000 @RC00092 EQU @RC00088 00943000 @RC00106 EQU @RC00088 00944000 @RC00115 EQU @RC00088 00945000 @RC00108 EQU @RC00106 00946000 @ENDDATA EQU * 00947000 END ISTAICCK,(C'PLS1947',0603,77244) 00948000