TITLE 'IEDIAR - SNA RH RETREIVE/SET PROGRAM *00001000 ' 00002000 IEDIAR CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 USING *,RBASE 00005000 IEDIAR IEDHJN START 00006000 * IF PRFSIZE^=0 THEN /* ZERO LENGTH BUFFER? */ 00007000 SLR @11,@11 0123 00008000 CH @11,PRFSIZE(,IEDQPPTR) 0123 00009000 BE @RF00123 0123 00010000 * DO; /* NO */ 00011000 * RTNFLD=0; /* CLEAR RETURN FIELD */ 00012000 ST @11,RTNFLD 0125 00013000 * IF LCBFLAG1=0&LCBLUNIT='1'B THEN/* LOGICAL UNIT? */ 00014000 CLI LCBFLAG1(IEDQLPTR),0 0126 00015000 BNE @RF00126 0126 00016000 TM LCBLUNIT(IEDQLPTR),B'01000000' 0126 00017000 BNO @RF00126 0126 00018000 * DO; /* YES */ 00019000 * RFY 0128 00020000 * RWORK2 RSTD; /* RESTRICT SAVE REG @Y17XAMG*/ 00021000 * RWORK2=RPARM; /* SAVE PARMLIST POINTER @Y17XAMG*/ 00022000 LR RWORK2,RPARM 0129 00023000 * RPARM=LCBTTCIN; /* LU'S TNT INDEX @Y17XAMG*/ 00024000 LH RPARM,LCBTTCIN(,IEDQLPTR) 0130 00025000 N RPARM,@CF01457 0130 00026000 * CALL IEDQTNT; /* GET TERMINAL ENTRY ADDRESS 0131 00027000 * @Y17XAMG*/ 00028000 L @15,AVTRNMPT(,IEDQAPTR) 0131 00029000 BALR @14,@15 0131 00030000 * IEDQTPTR=RPARM; /* SET TERMINAL ENTRY BASE 0132 00031000 * @Y17XAMG*/ 00032000 LR IEDQTPTR,RPARM 0132 00033000 * RSIB=TRMSIBPT; /* SET TERMINAL ENTRY BASE 0133 00034000 * @Y17XAMF*/ 00035000 LR @07,IEDQTPTR 0133 00036000 AL @07,@CF01458 0133 00037000 SLR RSIB,RSIB 0133 00038000 ICM RSIB,7,TRMSIBPT-7(@07) 0133 00039000 * RPARM=RWORK2; /* RESTORE PARMLIST POINTER */ 00040000 LR RPARM,RWORK2 0134 00041000 * RFY 0135 00042000 * RWORK2 UNRSTD; 0135 00043000 * IF PLBSTATE='1'B THEN /* BSTATE SPECIFIED? */ 00044000 TM PLBSTATE(RPARM),B'10000000' 0136 00045000 BNO @RF00136 0136 00046000 * DO; /* YES */ 00047000 * IF SIBBRACK='1'B&SAVTBSM>0 THEN/* BRCKTS SPEC'D FOR 00048000 * SESN AND BSM LOADED */ 00049000 TM SIBBRACK(RSIB),B'00000100' 0138 00050000 BNO @RF00138 0138 00051000 L @11,AVTSAVTP(,IEDQAPTR) 0138 00052000 L @11,SAVTBSM(,@11) 0138 00053000 LTR @11,@11 0138 00054000 BNP @RF00138 0138 00055000 * DO; 0139 00056000 * 0139 00057000 */* BUILD THE RETURN BRACKET STATE BYTE @Y17XAMF*/ 00058000 * 0140 00059000 * IF SIBBSTAT=SIBBETB THEN 0140 00060000 TM SIBBSTAT(RSIB),B'00001111' 0140 00061000 BNZ @RF00140 0140 00062000 * RTNBSTVL='000'B; 0141 00063000 NI RTNBSTVL,B'00011111' 0141 00064000 * ELSE 0142 00065000 * IF SIBBSTAT=SIBINB THEN 0142 00066000 B @RC00140 0142 00067000 @RF00140 TM SIBBSTAT(RSIB),B'00000010' 0142 00068000 BNO @RF00142 0142 00069000 TM SIBBSTAT(RSIB),B'00001101' 0142 00070000 BNZ @RF00142 0142 00071000 * RTNBSTVL='010'B; 0143 00072000 NI RTNBSTVL,B'01011111' 0143 00073000 OI RTNBSTVL,B'01000000' 0143 00074000 * ELSE 0144 00075000 * IF SIBBSTAT=SIBPINB THEN 0144 00076000 B @RC00142 0144 00077000 @RF00142 TM SIBBSTAT(RSIB),B'00000001' 0144 00078000 BNO @RF00144 0144 00079000 TM SIBBSTAT(RSIB),B'00001110' 0144 00080000 BNZ @RF00144 0144 00081000 * RTNBSTVL='011'B; 0145 00082000 NI RTNBSTVL,B'01111111' 0145 00083000 OI RTNBSTVL,B'01100000' 0145 00084000 * ELSE 0146 00085000 * IF SIBBSTAT=SIBPBB THEN 0146 00086000 B @RC00144 0146 00087000 @RF00144 TM SIBBSTAT(RSIB),B'00000011' 0146 00088000 BNO @RF00146 0146 00089000 TM SIBBSTAT(RSIB),B'00001100' 0146 00090000 BNZ @RF00146 0146 00091000 * RTNBSTVL='100'B; 0147 00092000 NI RTNBSTVL,B'10011111' 0147 00093000 OI RTNBSTVL,B'10000000' 0147 00094000 * ELSE 0148 00095000 * RTNBSTVL='001'B;/* @Y17XAMF*/ 00096000 B @RC00146 0148 00097000 @RF00146 NI RTNBSTVL,B'00111111' 0148 00098000 OI RTNBSTVL,B'00100000' 0148 00099000 * IF SIBRTRP='1'B THEN 0149 00100000 @RC00146 DS 0H 0149 00101000 @RC00144 DS 0H 0149 00102000 @RC00142 DS 0H 0149 00103000 @RC00140 TM SIBRTRP(RSIB),B'00010000' 0149 00104000 BNO @RF00149 0149 00105000 * RTNRTRP='1'B; /* @Y17XAMF*/ 00106000 OI RTNRTRP,B'00010000' 0150 00107000 * ELSE 0151 00108000 * ; 0151 00109000 @RF00149 DS 0H 0152 00110000 * END; 0152 00111000 * ELSE /* NO BRCKTS FOR THIS SESSION */ 00112000 * RTNNBRCK='1'B; /* SET ERROR BIT IN RTN CODE */ 00113000 B @RC00138 0153 00114000 @RF00138 OI RTNNBRCK,B'00000001' 0153 00115000 * END; 0154 00116000 @RC00138 DS 0H 0155 00117000 * IF^(PLBYTE3=0&PLBYTE4=0) THEN/* AT LEAST ONE RH INDICATOR*/ 00118000 @RF00136 CLI PLBYTE3(RPARM),0 0155 00119000 BNE @RT00155 0155 00120000 CLI PLBYTE4(RPARM),0 0155 00121000 BE @RF00155 0155 00122000 @RT00155 DS 0H 0156 00123000 * DO; /* YES */ 00124000 * IF LCBRECVN='1'B THEN/* INPUT SIDE OF MH */ 00125000 TM LCBRECVN(IEDQLPTR),B'00000010' 0157 00126000 BNO @RF00157 0157 00127000 * CALL CHECKRH; /* CHECK RH BITS */ 00128000 BAL @14,CHECKRH 0158 00129000 * ELSE /* IF THIS IS THE OUT- */ 00130000 * DO; /* PUT SIDE OF THE MH, */ 00131000 B @RC00157 0159 00132000 @RF00157 DS 0H 0160 00133000 * CALL SETRHBIT; /* SET NON BB EB RH BITS */ 00134000 BAL @14,SETRHBIT 0160 00135000 * IF SIBBRACK='1'B&SAVTBSM>0 THEN/* BRCKTS SPEC'D 00136000 * FOR SESN AND BSM LOADED 0161 00137000 * @Y17XAMG*/ 00138000 TM SIBBRACK(RSIB),B'00000100' 0161 00139000 BNO @RF00161 0161 00140000 L @11,AVTSAVTP(,IEDQAPTR) 0161 00141000 L @11,SAVTBSM(,@11) 0161 00142000 LTR @11,@11 0161 00143000 BNP @RF00161 0161 00144000 * CALL SETBBEB; /* YES-SETBB EB RH BITS */ 00145000 BAL @14,SETBBEB 0162 00146000 * CALL SETRTNC; /* SET RETURN CODE */ 00147000 @RF00161 BAL @14,SETRTNC 0163 00148000 * END; 0164 00149000 * END; 0165 00150000 * END; 0166 00151000 * ELSE /* NOT A LOGICAL UNIT */ 00152000 * RTNNLUNT='1'B; /* SET TERM^LUNIT ERR BIT */ 00153000 B @RC00126 0167 00154000 @RF00126 OI RTNNLUNT,B'00000010' 0167 00155000 * END; 0168 00156000 @RC00126 DS 0H 0169 00157000 * REG15=RTNFLD; /* PUT RTN FLD IN REG 15 */ 00158000 @RF00123 L REG15,RTNFLD 0169 00159000 * RBASE=AVTUI; /* ADDRESS OF IEDQUI */ 00160000 L RBASE,AVTUI(,IEDQAPTR) 0170 00161000 * GEN(B 4(RBASE)); /* RTN TO INTERFACE ROUTINE */ 00162000 B 4(RBASE) 00163000 *CHECKRH: 0172 00164000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0172 00165000 * 0172 00166000 @EL00001 DS 0H 0172 00167000 @EF00001 DS 0H 0172 00168000 @ER00001 BR @14 0172 00169000 CHECKRH DS 0H 0173 00170000 */********************************************************************/ 00171000 */* */ 00172000 */* THIS ROUTINE CHECKS FOR THE PRESENCE OR ABSENCE OF */ 00173000 */* INDICATORS IN THE RH. IF AN INDICATOR WAS SPECIFIED */ 00174000 */* PLUS, THE RESPECTIVE BIT IN THE DUMMYRH IS TURNED ON. */ 00175000 */* IF THE INDICATOR WAS SPECIFIED AS MINUS THE RESPECTIVE */ 00176000 */* BIT IN THE DUMMYRH IS LEFT OFF. IF THE INDICATOR WAS NOT */ 00177000 */* SPECIFIED THE RESPECTIVE BIT IS TURNED OFF IN THE DUMMYRH */ 00178000 */* AND THE MASK. THE DUMMYRH (WHICH NOW CONTAINS AN RH SET */ 00179000 */* UP AS SPECIFIED BY THE INDICATORS ON THE IEDRH MACRO) IS */ 00180000 */* COMPARED TO A COPY OF THE ACTUAL RH (COPYRH). IF EQUAL */ 00181000 */* THE RETURN CODE WHICH IS ALREADY 0 IS PASSED BACK TO THE */ 00182000 */* USER. IF UNEQUAL AN EXCLUSIVE OR OPERATION IS PERFORMED */ 00183000 */* ON THE COPYRH AND DUMMYRH. THE DUMMYRH NOW CONTAINS */ 00184000 */* ONES FOR EACH INDICATOR THAT DOES NOT MATCH THE ACTUAL */ 00185000 */* RH. THE DUMMYRH IS THEN EXCLUSIVE OR'ED WITH THE MASK */ 00186000 */* WHICH HAS A ONE FOR EACH INDICATOR SPECIFIED. THE RESULT */ 00187000 */* IN THE DUMMYRH CONTAINS ZERO IF ALL THE UNMATCHED */ 00188000 */* INDICATORS WERE SPECIFIED BY THE MACRO AND THE RETURN CODE */ 00189000 */* OF 8 IS GIVEN. THE DUMMYRH CONTAINS AT LEAST ONE, 1, IF */ 00190000 */* SOME OF THE SPECIFIED INDICATORS MATCH THE ACTUAL RH AND */ 00191000 */* THE RETURN CODE OF 4 IS GIVEN. */ 00192000 */* */ 00193000 */********************************************************************/ 00194000 */********************************************************************/ 00195000 */* */ 00196000 */* MSKRH 1, 2, AND 3 IS FIRST USED TO TURN OFF BITS THAT ARE */ 00197000 */* NEVER CHECKED BY THE IEDRH MACRO. THEN THE RESPECTIVE */ 00198000 */* MSKBIT IS LEFT ON IF THE INDICATOR WAS SPECIFIED AS PLUS */ 00199000 */* OR MINUS IN THE IEDRH MACRO. */ 00200000 */* */ 00201000 */********************************************************************/ 00202000 * 0173 00203000 * MSKRH1='01001100'B; /* INITIALIZE THE MASK.SET THE */ 00204000 MVI MSKRH1,B'01001100' 0173 00205000 * MSKRH2='00000000'B; /* BIT TO 1 IF THAT BIT CAN BE */ 00206000 MVI MSKRH2,B'00000000' 0174 00207000 * MSKRH3='11101000'B; /* CHECKED FOR AN INDICATOR 0175 00208000 * SPECIFIED BY THE IEDRH MACRO */ 00209000 MVI MSKRH3,B'11101000' 0175 00210000 * CPYRHFLG=IEDRH; /* COPY THE ACTUAL RH */ 00211000 LR @11,IEDQPPTR 0176 00212000 AL @11,@CF01471 0176 00213000 MVC CPYRHFLG(3,IEDQAPTR),IEDRH(@11) 0176 00214000 * CPYRHFLG=CPYRHFLG&MSKRH; /* TURN OFF BITS NEVER CHECKED BY 00215000 * THE IEDRH MACRO */ 00216000 NC CPYRHFLG(3,IEDQAPTR),MSKRH 0177 00217000 * DUMRHFLG=0; /* CLEAR THE DUMMY RH */ 00218000 SLR @11,@11 0178 00219000 STCM @11,7,DUMRHFLG(IEDQAPTR) 0178 00220000 */********************************************************************/ 00221000 */* */ 00222000 */* THIS CODE CHECKS FOR FMDATA AND DFC INDICATORS. */ 00223000 */* EITHER ONE MAY BE SPECIFIED BUT NOT BOTH. */ 00224000 */* NOTE: THE RHTYPE BIT IS CHECKED FOR FMDATA AND DFC. */ 00225000 */* WHEN THE RHTYPE BIT IS 0 THE RU CONTAINS FMDATA. IF THE */ 00226000 */* RHTYPE BIT IS 1 THE RU CONTAINS DFC. THEREFORE +FMDATA */ 00227000 */* HAS THE SAME VALUE FOR THE RHTYPE BIT AS -DFC. THE CHECK */ 00228000 */* FOR -FMDATA OR +DFC TURNS THE RESPECTIVE BIT ON IN THE */ 00229000 */* DUMMYRH. FOR +FMDATA OR -DFC THE RESPECTIVE BIT IS LEFT OFF*/ 00230000 */* */ 00231000 */********************************************************************/ 00232000 * 0179 00233000 * IF PLDFC='10'B| /* IF DFC SPECIFIED PLUS */ 00234000 * PLFMDATA='01'B THEN /* OR FMDATA SPEC'D MINUS */ 00235000 TM PLDFC(RPARM),B'00100000' 0179 00236000 BNO @GL00005 0179 00237000 TM PLDFC(RPARM),B'00010000' 0179 00238000 BZ @RT00179 0179 00239000 @GL00005 TM PLFMDATA(RPARM),B'00000001' 0179 00240000 BNO @RF00179 0179 00241000 TM PLFMDATA(RPARM),B'00000010' 0179 00242000 BNZ @RF00179 0179 00243000 @RT00179 DS 0H 0180 00244000 * DUMTYPE='1'B; /* SET DUMTYPE ON */ 00245000 OI DUMTYPE(IEDQAPTR),B'01000000' 0180 00246000 * ELSE /* DFC AND FMDATA NOT SPEC'D */ 00247000 * IF PLDFC='00'B& /* DFC NOT SPECIFIED */ 00248000 * PLFMDATA='00'B THEN /* OR FMDATA NOT SPECIFIED */ 00249000 B @RC00179 0181 00250000 @RF00179 TM PLDFC(RPARM),B'00110000' 0181 00251000 BNZ @RF00181 0181 00252000 TM PLFMDATA(RPARM),B'00000011' 0181 00253000 BNZ @RF00181 0181 00254000 * DO; /* YES */ 00255000 * CPYTYPE='0'B; /* SET COPY TYPE OFF */ 00256000 NI CPYTYPE(IEDQAPTR),B'10111111' 0183 00257000 * MSKTYPE='0'B; /* TURN MASK OFF */ 00258000 NI MSKTYPE,B'10111111' 0184 00259000 * END; 0185 00260000 * 0185 00261000 */********************************************************************/ 00262000 */* */ 00263000 */* THIS CODE CHECKS FOR +EXR OR -EXR */ 00264000 */* */ 00265000 */********************************************************************/ 00266000 * 0186 00267000 * IF PLEXR='10'B THEN /* EXR SPECIFIED PLUS? */ 00268000 @RF00181 DS 0H 0186 00269000 @RC00179 TM PLEXR(RPARM),B'00001000' 0186 00270000 BNO @RF00186 0186 00271000 TM PLEXR(RPARM),B'00000100' 0186 00272000 BNZ @RF00186 0186 00273000 * DUMSENSE='1'B; /* SET DUMMY RH SENSE ON */ 00274000 OI DUMSENSE(IEDQAPTR),B'00000100' 0187 00275000 * ELSE 0188 00276000 * IF PLEXR='00'B THEN /* PLEXR NOT SPECIFIED? */ 00277000 B @RC00186 0188 00278000 @RF00186 TM PLEXR(RPARM),B'00001100' 0188 00279000 BNZ @RF00188 0188 00280000 * DO; /* YES */ 00281000 * CPYSENSE='0'B; /* TURN COPY SENSE OFF */ 00282000 NI CPYSENSE(IEDQAPTR),B'11111011' 0190 00283000 * MSKSENSE='0'B; /* TURN OFF MASK */ 00284000 NI MSKSENSE,B'11111011' 0191 00285000 * END; 0192 00286000 * 0192 00287000 */********************************************************************/ 00288000 */* */ 00289000 */* THIS CODE CHECKS FOR +SELCDE OR -SELCDE */ 00290000 */* */ 00291000 */********************************************************************/ 00292000 * 0193 00293000 * IF PLSELCDE='10'B THEN /* SELCDE SPECIFIED AS PLUS */ 00294000 @RF00188 DS 0H 0193 00295000 @RC00186 TM PLSELCDE(RPARM),B'10000000' 0193 00296000 BNO @RF00193 0193 00297000 TM PLSELCDE(RPARM),B'01000000' 0193 00298000 BNZ @RF00193 0193 00299000 * DUMCSI='1'B; /* SET CODE SELECT @XM10738*/ 00300000 OI DUMCSI(IEDQAPTR),B'00001000' 0194 00301000 * ELSE /* BIT */ 00302000 * IF PLSELCDE='00'B THEN /* SELCDE NOT SPECIFIED */ 00303000 B @RC00193 0195 00304000 @RF00193 TM PLSELCDE(RPARM),B'11000000' 0195 00305000 BNZ @RF00195 0195 00306000 * DO; /* YES */ 00307000 * CPYCSI='0'B; /* TURN OFF COPY SENSE */ 00308000 NI CPYCSI(IEDQAPTR),B'11110111' 0197 00309000 * MSKCSI='0'B; /* TURN OFF MASK */ 00310000 NI MSKCSI,B'11110111' 0198 00311000 * END; 0199 00312000 * 0199 00313000 */********************************************************************/ 00314000 */* */ 00315000 */* THIS CODE CHECKS FOR +FMH OR -FMH */ 00316000 */* */ 00317000 */********************************************************************/ 00318000 * 0200 00319000 * IF PLFMH='10'B THEN /* FMH SPECIFIED PLUS */ 00320000 @RF00195 DS 0H 0200 00321000 @RC00193 TM PLFMH(RPARM),B'00001000' 0200 00322000 BNO @RF00200 0200 00323000 TM PLFMH(RPARM),B'00000100' 0200 00324000 BNZ @RF00200 0200 00325000 * DUMFORMT='1'B; /* SET DUMMY RH FORMAT ON */ 00326000 OI DUMFORMT(IEDQAPTR),B'00001000' 0201 00327000 * ELSE 0202 00328000 * IF PLFMH='00'B THEN /* IF FMH NOT SPECIFIED */ 00329000 B @RC00200 0202 00330000 @RF00200 TM PLFMH(RPARM),B'00001100' 0202 00331000 BNZ @RF00202 0202 00332000 * DO; 0203 00333000 * CPYFORMT='0'B; /* SET COPY FORMAT OFF */ 00334000 NI CPYFORMT(IEDQAPTR),B'11110111' 0204 00335000 * MSKFORMT='0'B; /* TURN OFF MASK */ 00336000 NI MSKFORMT,B'11110111' 0205 00337000 * END; 0206 00338000 * 0206 00339000 */********************************************************************/ 00340000 */* */ 00341000 */* THIS CODE CHECKS FOR +BB OR -BB */ 00342000 */* */ 00343000 */********************************************************************/ 00344000 * 0207 00345000 * IF PLBB='10'B THEN /* BB SPECIFIED PLUS */ 00346000 @RF00202 DS 0H 0207 00347000 @RC00200 TM PLBB(RPARM),B'00100000' 0207 00348000 BNO @RF00207 0207 00349000 TM PLBB(RPARM),B'00010000' 0207 00350000 BNZ @RF00207 0207 00351000 * DUMBB='1'B; /* SET DUMMY BB BIT ON */ 00352000 OI DUMBB(IEDQAPTR),B'10000000' 0208 00353000 * ELSE 0209 00354000 * IF PLBB='00'B THEN /* IF PLBB NOT SPECIFIED? */ 00355000 B @RC00207 0209 00356000 @RF00207 TM PLBB(RPARM),B'00110000' 0209 00357000 BNZ @RF00209 0209 00358000 * DO; 0210 00359000 * CPYBB='0'B; /* SET COPY BB OFF */ 00360000 NI CPYBB(IEDQAPTR),B'01111111' 0211 00361000 * MSKBB='0'B; /* TURN MASK OFF */ 00362000 NI MSKBB,B'01111111' 0212 00363000 * END; 0213 00364000 * 0213 00365000 */********************************************************************/ 00366000 */* */ 00367000 */* THIS CODE CHECKS FOR +EB OR -EB */ 00368000 */* */ 00369000 */********************************************************************/ 00370000 * 0214 00371000 * IF PLEB='10'B THEN /* EB SPECIFIED PLUS */ 00372000 @RF00209 DS 0H 0214 00373000 @RC00207 TM PLEB(RPARM),B'10000000' 0214 00374000 BNO @RF00214 0214 00375000 TM PLEB(RPARM),B'01000000' 0214 00376000 BNZ @RF00214 0214 00377000 * DUMEB='1'B; /* SET DUMMY RHEB ON */ 00378000 OI DUMEB(IEDQAPTR),B'01000000' 0215 00379000 * ELSE 0216 00380000 * IF PLEB='00'B THEN /* IF EB NOT SPECIFIED? */ 00381000 B @RC00214 0216 00382000 @RF00214 TM PLEB(RPARM),B'11000000' 0216 00383000 BNZ @RF00216 0216 00384000 * DO; 0217 00385000 * CPYEB='0'B; /* SET COPY BB BIT OFF */ 00386000 NI CPYEB(IEDQAPTR),B'10111111' 0218 00387000 * MSKEB='0'B; /* TURN OFF MASK */ 00388000 NI MSKEB,B'10111111' 0219 00389000 * END; 0220 00390000 * 0220 00391000 */********************************************************************/ 00392000 */* */ 00393000 */* THIS CODE CHECKS FOR +CHNGDIR OR -CHNGDIR */ 00394000 */* */ 00395000 */********************************************************************/ 00396000 * 0221 00397000 * IF PLCHGDIR='10'B THEN /* CHNGDIR SPECIFIED PLUS */ 00398000 @RF00216 DS 0H 0221 00399000 @RC00214 TM PLCHGDIR(RPARM),B'00000010' 0221 00400000 BNO @RF00221 0221 00401000 TM PLCHGDIR(RPARM),B'00000001' 0221 00402000 BNZ @RF00221 0221 00403000 * DUMCDIR='1'B; /* SET DUMRH CHGDIR ON */ 00404000 OI DUMCDIR(IEDQAPTR),B'00100000' 0222 00405000 * ELSE 0223 00406000 * IF PLCHGDIR='00'B THEN /* CHNGDIR NOT SPECIFIED */ 00407000 B @RC00221 0223 00408000 @RF00221 TM PLCHGDIR(RPARM),B'00000011' 0223 00409000 BNZ @RF00223 0223 00410000 * DO; 0224 00411000 * CPYCDIR='0'B; /* SET COPY FORMAT OFF */ 00412000 NI CPYCDIR(IEDQAPTR),B'11011111' 0225 00413000 * MSKCDIR='0'B; /* TURN MASK OFF */ 00414000 NI MSKCDIR,B'11011111' 0226 00415000 * END; 0227 00416000 * 0227 00417000 */********************************************************************/ 00418000 */* */ 00419000 */* THIS CODE COMPARES THE ACTUAL COPY OF THE RH WITH THE */ 00420000 */* DUMMYRH THAT REFLECTS THE INDICATORS AS SPECIFIED BY THE */ 00421000 */* MACRO. */ 00422000 */* */ 00423000 */********************************************************************/ 00424000 * 0228 00425000 * IF DUMRHFLG=CPYRHFLG THEN /* IF DUMMYRH =COPYRH */ 00426000 @RF00223 DS 0H 0228 00427000 @RC00221 CLC DUMRHFLG(3,IEDQAPTR),CPYRHFLG(IEDQAPTR) 0228 00428000 BNE @RF00228 0228 00429000 * RTNCODE=0; /* THE RH DOES CONTAIN ALL 0229 00430000 * INDICATORS AS SPECIFIED */ 00431000 MVI RTNCODE,X'00' 0229 00432000 * ELSE /* DUMMY^=COPYRH - YES */ 00433000 * DO; /* YES */ 00434000 B @RC00228 0230 00435000 @RF00228 DS 0H 0231 00436000 * DUMRHFLG=CPYRHFLG&&DUMRHFLG;/* EXCLUSIVE OR DUMMYRH AND 0231 00437000 * COPYRH */ 00438000 XC DUMRHFLG(3,IEDQAPTR),CPYRHFLG(IEDQAPTR) 0231 00439000 * DUMRHFLG=DUMRHFLG&&MSKRH; /* EXCLUSIVE OR THE MASK WITH 0232 00440000 * DUMMYRH */ 00441000 XC DUMRHFLG(3,IEDQAPTR),MSKRH 0232 00442000 * IF DUMRHFLG=0 THEN /* RESULT ZERO THE RH DOES NOT 0233 00443000 * CONTAIN */ 00444000 ICM @11,7,DUMRHFLG(IEDQAPTR) 0233 00445000 BNZ @RF00233 0233 00446000 * RTNCODE=8; /* ANY INDICATORS AS SPECIFIED */ 00447000 MVI RTNCODE,X'08' 0234 00448000 * ELSE /* RESULT NOT ZERO */ 00449000 * RTNCODE=4; /* THE RH CONTAINS SOME (ONE OR 00450000 * MORE BUT NOT ALL INDICATORS) 00451000 * AS SPECIFIED */ 00452000 B @RC00233 0235 00453000 @RF00233 MVI RTNCODE,X'04' 0235 00454000 * END; 0236 00455000 * END CHECKRH; 0237 00456000 @EL00002 DS 0H 0237 00457000 @EF00002 DS 0H 0237 00458000 @ER00002 BR @14 0237 00459000 *SETRHBIT: 0238 00460000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0238 00461000 * 0238 00462000 SETRHBIT DS 0H 0239 00463000 */********************************************************************/ 00464000 */* */ 00465000 */* THIS CODE SETS THE RHFMH BIT ON OR OFF */ 00466000 */* */ 00467000 */********************************************************************/ 00468000 * 0239 00469000 * IF PLFMH^='00'B THEN /* FMH SPECIFIED */ 00470000 TM PLFMH(RPARM),B'00001100' 0239 00471000 BZ @RF00239 0239 00472000 * DO; /* YES */ 00473000 * IF PLFMH='10'B THEN /* IF PLFMH SPECIFIED AS PLUS */ 00474000 TM PLFMH(RPARM),B'00001000' 0241 00475000 BNO @RF00241 0241 00476000 TM PLFMH(RPARM),B'00000100' 0241 00477000 BNZ @RF00241 0241 00478000 * TRHFI='1'B; /* SET RHFORMAT ON */ 00479000 LR @11,IEDQPPTR 0242 00480000 AL @11,@CF01471 0242 00481000 OI TRHFI(@11),B'00001000' 0242 00482000 * ELSE /* IF SPECIFIED AS MINUS SET */ 00483000 * TRHFI='0'B; /* RH FORMAT OFF */ 00484000 B @RC00241 0243 00485000 @RF00241 LR @11,IEDQPPTR 0243 00486000 AL @11,@CF01471 0243 00487000 NI TRHFI(@11),B'11110111' 0243 00488000 * END; /* END FOR DO GROUP */ 00489000 @RC00241 DS 0H 0245 00490000 */********************************************************************/ 00491000 */* */ 00492000 */* THIS CODE SETS THE RHCSI BIT (FOR SELCDE) ON OR OFF */ 00493000 */* */ 00494000 */********************************************************************/ 00495000 * 0245 00496000 * IF PLSELCDE^='00'B THEN /* IF PLSELCDE SPECI'D PLUS */ 00497000 @RF00239 TM PLSELCDE(RPARM),B'11000000' 0245 00498000 BZ @RF00245 0245 00499000 * DO; /* SET RH CODE SELECT BIT ON */ 00500000 * IF PLSELCDE='10'B THEN 0247 00501000 TM PLSELCDE(RPARM),B'10000000' 0247 00502000 BNO @RF00247 0247 00503000 TM PLSELCDE(RPARM),B'01000000' 0247 00504000 BNZ @RF00247 0247 00505000 * TRHCSI='1'B; /* IF PLSELCDE SPECIFIED MINUS */ 00506000 LR @11,IEDQPPTR 0248 00507000 AL @11,@CF01478 0248 00508000 OI TRHCSI-2(@11),B'00001000' 0248 00509000 * ELSE /* SET RH CODE SELECT BIT OFF */ 00510000 * TRHCSI='0'B; 0249 00511000 B @RC00247 0249 00512000 @RF00247 LR @11,IEDQPPTR 0249 00513000 AL @11,@CF01478 0249 00514000 NI TRHCSI-2(@11),B'11110111' 0249 00515000 * END; /* END FOR DO GROUP */ 00516000 @RC00247 DS 0H 0251 00517000 */********************************************************************/ 00518000 */* */ 00519000 */* THIS CODE SETS THE RHCD BIT (FOR CHNGDIR) ON OR OFF */ 00520000 */* */ 00521000 */********************************************************************/ 00522000 * 0251 00523000 * IF PLCHGDIR^='00'B THEN /* CHNGDIR SPECIFIED */ 00524000 @RF00245 TM PLCHGDIR(RPARM),B'00000011' 0251 00525000 BZ @RF00251 0251 00526000 * DO; /* YES */ 00527000 * IF PLCHGDIR='10'B| /* CHNGDIR SPECIFIED PLUS OR */ 00528000 * (PLCHGDIR='11'B&PRFNLSTN='0'B) THEN/* SPECIFIED ASTRSK 0253 00529000 * AND LAST OF CHAIN */ 00530000 TM PLCHGDIR(RPARM),B'00000010' 0253 00531000 BNO @GL00007 0253 00532000 TM PLCHGDIR(RPARM),B'00000001' 0253 00533000 BZ @RT00253 0253 00534000 @GL00007 TM PLCHGDIR(RPARM),B'00000011' 0253 00535000 BNO @RF00253 0253 00536000 TM PRFNLSTN(IEDQPPTR),B'00000010' 0253 00537000 BNZ @RF00253 0253 00538000 @RT00253 DS 0H 0254 00539000 * TRHCDI='1'B; /* SET RHCDIR BIT 0 ON */ 00540000 LR @11,IEDQPPTR 0254 00541000 AL @11,@CF01478 0254 00542000 OI TRHCDI-2(@11),B'00100000' 0254 00543000 * ELSE /* SPECIFIED MINUS OR ASTERISK 0255 00544000 * AND NOT LAST OF CHAIN */ 00545000 * TRHCDI='0'B; /* SET RHCDIR BIT OFF */ 00546000 B @RC00253 0255 00547000 @RF00253 LR @11,IEDQPPTR 0255 00548000 AL @11,@CF01478 0255 00549000 NI TRHCDI-2(@11),B'11011111' 0255 00550000 * END; /* END FOR DO GROUP */ 00551000 * END SETRHBIT; /* END FOR PROC */ 00552000 @EL00003 DS 0H 0257 00553000 @EF00003 DS 0H 0257 00554000 @ER00003 BR @14 0257 00555000 *SETBBEB: 0258 00556000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0258 00557000 * 0258 00558000 SETBBEB DS 0H 0259 00559000 */********************************************************************/ 00560000 */* */ 00561000 */* THIS ROUTINE SETS THE BB AND EB BITS */ 00562000 */* */ 00563000 */********************************************************************/ 00564000 * 0259 00565000 * IF PLBB^='00'B THEN /* BB SPECIFIED (+,-OR */ 00566000 TM PLBB(RPARM),B'00110000' 0259 00567000 BZ @RF00259 0259 00568000 * DO; /* YES */ 00569000 * IF SIBBSTAT=SIBINB|SIBBSTAT=SIBECS THEN/* CURRENTLY IN 0261 00570000 * BRACKET @Y17XAMF*/ 00571000 TM SIBBSTAT(RSIB),B'00000010' 0261 00572000 BNO @GL00009 0261 00573000 TM SIBBSTAT(RSIB),B'00001101' 0261 00574000 BZ @RT00261 0261 00575000 @GL00009 TM SIBBSTAT(RSIB),B'00001000' 0261 00576000 BNO @RF00261 0261 00577000 TM SIBBSTAT(RSIB),B'00000111' 0261 00578000 BNZ @RF00261 0261 00579000 @RT00261 DS 0H 0262 00580000 * DO; 0262 00581000 * IF PLBB='10'B THEN /* BB SPECIFIED PLUS */ 00582000 TM PLBB(RPARM),B'00100000' 0263 00583000 BNO @RF00263 0263 00584000 TM PLBB(RPARM),B'00010000' 0263 00585000 BNZ @RF00263 0263 00586000 * TRHBB='1'B; /* SET RHBB BIT ON */ 00587000 LR @11,IEDQPPTR 0264 00588000 AL @11,@CF01478 0264 00589000 OI TRHBB-2(@11),B'10000000' 0264 00590000 * ELSE /* SET RHBB OFF IF PLBB */ 00591000 * TRHBB='0'B; /* NOT SPECIFIED PLUS @Y17XAMF*/ 00592000 B @RC00263 0265 00593000 @RF00263 LR @11,IEDQPPTR 0265 00594000 AL @11,@CF01478 0265 00595000 NI TRHBB-2(@11),B'01111111' 0265 00596000 * END; 0266 00597000 * ELSE /* CURRENTLY BETB */ 00598000 * DO; /* IF BB SPECIFIED MINUS */ 00599000 B @RC00261 0267 00600000 @RF00261 DS 0H 0268 00601000 * IF PLBB='01'B THEN /* SET RHBB OFF */ 00602000 TM PLBB(RPARM),B'00010000' 0268 00603000 BNO @RF00268 0268 00604000 TM PLBB(RPARM),B'00100000' 0268 00605000 BNZ @RF00268 0268 00606000 * TRHBB='0'B; 0269 00607000 LR @11,IEDQPPTR 0269 00608000 AL @11,@CF01478 0269 00609000 NI TRHBB-2(@11),B'01111111' 0269 00610000 * ELSE /* IF BB NOT MINUS SET RHBB */ 00611000 * TRHBB='1'B; /* ON @Y17XAMG*/ 00612000 B @RC00268 0270 00613000 @RF00268 LR @11,IEDQPPTR 0270 00614000 AL @11,@CF01478 0270 00615000 OI TRHBB-2(@11),B'10000000' 0270 00616000 * END; 0271 00617000 @RC00268 DS 0H 0272 00618000 * END; 0272 00619000 @RC00261 DS 0H 0273 00620000 * IF PLEB^='00'B THEN 0273 00621000 @RF00259 TM PLEB(RPARM),B'11000000' 0273 00622000 BZ @RF00273 0273 00623000 * DO; 0274 00624000 * IF SIBBSTAT=SIBINB|SIBBSTAT=SIBECS THEN/* CURRENTLY IN 0275 00625000 * BRACKETS @Y17XAMF*/ 00626000 TM SIBBSTAT(RSIB),B'00000010' 0275 00627000 BNO @GL00010 0275 00628000 TM SIBBSTAT(RSIB),B'00001101' 0275 00629000 BZ @RT00275 0275 00630000 @GL00010 TM SIBBSTAT(RSIB),B'00001000' 0275 00631000 BNO @RF00275 0275 00632000 TM SIBBSTAT(RSIB),B'00000111' 0275 00633000 BNZ @RF00275 0275 00634000 @RT00275 DS 0H 0276 00635000 * DO; 0276 00636000 * IF PLEB='01'B THEN /* PLEB SPECIFIED MINUS */ 00637000 TM PLEB(RPARM),B'01000000' 0277 00638000 BNO @RF00277 0277 00639000 TM PLEB(RPARM),B'10000000' 0277 00640000 BNZ @RF00277 0277 00641000 * TRHEB='0'B; /* TURN RHEB BIT OFF */ 00642000 LR @11,IEDQPPTR 0278 00643000 AL @11,@CF01478 0278 00644000 NI TRHEB-2(@11),B'10111111' 0278 00645000 * ELSE /* OTHERWISE TURN ON RHBB BIT */ 00646000 * TRHEB='1'B; /* ON */ 00647000 B @RC00277 0279 00648000 @RF00277 LR @11,IEDQPPTR 0279 00649000 AL @11,@CF01478 0279 00650000 OI TRHEB-2(@11),B'01000000' 0279 00651000 * END; 0280 00652000 * ELSE /* CURRENTLY BETWEEN BRACKETS */ 00653000 * DO; 0281 00654000 B @RC00275 0281 00655000 @RF00275 DS 0H 0282 00656000 * TRHEB='0'B; /* TURN RHEB BIT OFF @Y17XAMG*/ 00657000 LR @11,IEDQPPTR 0282 00658000 AL @11,@CF01478 0282 00659000 NI TRHEB-2(@11),B'10111111' 0282 00660000 * IF PLEB='10'B| /* EB SPECIFIED PLUS OR */ 00661000 * (PLEB='11'B&TRHBB='1'B) THEN/* EB SPECIF ASTERISK 0283 00662000 * WITH BB BIT ALREADY ON - YES */ 00663000 TM PLEB(RPARM),B'10000000' 0283 00664000 BNO @GL00011 0283 00665000 TM PLEB(RPARM),B'01000000' 0283 00666000 BZ @RT00283 0283 00667000 @GL00011 TM PLEB(RPARM),B'11000000' 0283 00668000 BNO @RF00283 0283 00669000 LR @11,IEDQPPTR 0283 00670000 AL @11,@CF01478 0283 00671000 TM TRHBB-2(@11),B'10000000' 0283 00672000 BNO @RF00283 0283 00673000 @RT00283 DS 0H 0284 00674000 * TRHEB='1'B; /* SET RH EB BIT ON */ 00675000 LR @11,IEDQPPTR 0284 00676000 AL @11,@CF01478 0284 00677000 OI TRHEB-2(@11),B'01000000' 0284 00678000 * END; 0285 00679000 * END; 0286 00680000 * END SETBBEB; 0287 00681000 @EL00004 DS 0H 0287 00682000 @EF00004 DS 0H 0287 00683000 @ER00004 BR @14 0287 00684000 *SETRTNC: 0288 00685000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0288 00686000 * 0288 00687000 SETRTNC DS 0H 0289 00688000 */********************************************************************/ 00689000 */* */ 00690000 */* THIS CODE SETS THE RETURN CODES FOR THE OUTPUT SIDE OF */ 00691000 */* THE MH */ 00692000 */* */ 00693000 */********************************************************************/ 00694000 * 0289 00695000 * IF TRHFI='1'B&SIBFMUSE='0'B THEN/* FMH ON BUT NOT SPECIFIED ON 0289 00696000 * BIND */ 00697000 LR @11,IEDQPPTR 0289 00698000 AL @11,@CF01471 0289 00699000 TM TRHFI(@11),B'00001000' 0289 00700000 BNO @RF00289 0289 00701000 TM SIBFMUSE(RSIB),B'00001000' 0289 00702000 BNZ @RF00289 0289 00703000 * RTNFMHER='1'B; /* SET FMH ERR IN RETURN FLD */ 00704000 OI RTNFMHER,B'00001000' 0290 00705000 * IF TRHCSI='1'B&SIBALT='0'B THEN /* CSI ON BUT ALTER CODE NOT 0291 00706000 * SPECIFIED ON BIND -YES */ 00707000 @RF00289 LR @11,IEDQPPTR 0291 00708000 AL @11,@CF01478 0291 00709000 TM TRHCSI-2(@11),B'00001000' 0291 00710000 BNO @RF00291 0291 00711000 TM SIBALT(RSIB),B'00000001' 0291 00712000 BNZ @RF00291 0291 00713000 * RTNACDER='1'B; /* SET ALTCDE ERR IN RTN FLD */ 00714000 OI RTNACDER,B'00000100' 0292 00715000 * IF TRHEB='1'B&SIBPEBI='0'B THEN /* EB ON BUT PRIMARY CAN'T SEND 00716000 * EB -YES */ 00717000 @RF00291 LR @11,IEDQPPTR 0293 00718000 AL @11,@CF01478 0293 00719000 TM TRHEB-2(@11),B'01000000' 0293 00720000 BNO @RF00293 0293 00721000 TM SIBPEBI(RSIB),B'00000100' 0293 00722000 BNZ @RF00293 0293 00723000 * RTNPEBER='1'B; /* SET PRIMEB ERR IN RTN FLD */ 00724000 OI RTNPEBER,B'00010000' 0294 00725000 * IF PLEB^='00'B|PLBB^='00'B THEN /* BB OR EB SPECIFIED */ 00726000 @RF00293 TM PLEB(RPARM),B'11000000' 0295 00727000 BNZ @RT00295 0295 00728000 TM PLBB(RPARM),B'00110000' 0295 00729000 BZ @RF00295 0295 00730000 @RT00295 DS 0H 0296 00731000 * DO; /* YES */ 00732000 * IF SIBBRACK='1'B&SAVTBSM>0 THEN/* BRCKTS SPEC'D FOR SESN AND 00733000 * BSM LOADED @Y17XAMF*/ 00734000 TM SIBBRACK(RSIB),B'00000100' 0297 00735000 BNO @RF00297 0297 00736000 L @11,AVTSAVTP(,IEDQAPTR) 0297 00737000 L @11,SAVTBSM(,@11) 0297 00738000 LTR @11,@11 0297 00739000 BNP @RF00297 0297 00740000 * DO; /* YES */ 00741000 * IF(TRHBB='1'B|TRHEB='1'B)&/* BB,EB SPECIFIED AND NOT */ 00742000 * PRFNHDRN='1'B THEN /* ON FIRST OF CHAIN? */ 00743000 LR @11,IEDQPPTR 0299 00744000 AL @11,@CF01478 0299 00745000 TM TRHBB-2(@11),B'11000000' 0299 00746000 BZ @RF00299 0299 00747000 TM PRFNHDRN(IEDQPPTR),B'00000001' 0299 00748000 BNO @RF00299 0299 00749000 * RTNNFOC='1'B; /* YES-SET NOT FOC ERR BIT */ 00750000 OI RTNNFOC,B'00000010' 0300 00751000 * IF SIBBSTAT=SIBINB| /* CURRENTLY INB OR PENDING */ 00752000 * SIBBSTAT=SIBECS THEN/* BETB BRACKETS */ 00753000 @RF00299 TM SIBBSTAT(RSIB),B'00000010' 0301 00754000 BNO @GL00019 0301 00755000 TM SIBBSTAT(RSIB),B'00001101' 0301 00756000 BZ @RT00301 0301 00757000 @GL00019 TM SIBBSTAT(RSIB),B'00001000' 0301 00758000 BNO @RF00301 0301 00759000 TM SIBBSTAT(RSIB),B'00000111' 0301 00760000 BNZ @RF00301 0301 00761000 @RT00301 DS 0H 0302 00762000 * IF TRHBB='1'B THEN /* RHBB=ON -YES */ 00763000 LR @11,IEDQPPTR 0302 00764000 AL @11,@CF01478 0302 00765000 TM TRHBB-2(@11),B'10000000' 0302 00766000 BNO @RF00302 0302 00767000 * RTNINBER='1'B; /* SET INB&BB=ON ERROR BIT */ 00768000 OI RTNINBER,B'00100000' 0303 00769000 * ELSE 0304 00770000 * ; 0304 00771000 @RF00302 DS 0H 0305 00772000 * ELSE /* NOT IN BRACKETS */ 00773000 * DO; /* YES */ 00774000 B @RC00301 0305 00775000 @RF00301 DS 0H 0306 00776000 * IF SIBRTRP='1'B THEN/* BETB WITH RTR PENDING @Y17XAMF*/ 00777000 TM SIBRTRP(RSIB),B'00010000' 0306 00778000 BNO @RF00306 0306 00779000 * RTNRTRER='1'B; /* SET RTR ERROR BIT */ 00780000 OI RTNRTRER,B'01000000' 0307 00781000 * IF TRHBB='0'B THEN /* RHBB OFF */ 00782000 @RF00306 LR @11,IEDQPPTR 0308 00783000 AL @11,@CF01478 0308 00784000 TM TRHBB-2(@11),B'10000000' 0308 00785000 BNZ @RF00308 0308 00786000 * RTNNOBB='1'B; /* SET(BB ^ON WHEN BETB) BIT */ 00787000 OI RTNNOBB,B'10000000' 0309 00788000 * END; 0310 00789000 * END; 0311 00790000 * ELSE /* NO BRCKTS SPEC OR BSM NOT 0312 00791000 * LOADED */ 00792000 * RTNNBRCK='1'B; /* SET ERR BIT FOR NO BRCKT */ 00793000 B @RC00297 0312 00794000 @RF00297 OI RTNNBRCK,B'00000001' 0312 00795000 * END; 0313 00796000 * END SETRTNC; 0314 00797000 @EL00005 DS 0H 0314 00798000 @EF00005 DS 0H 0314 00799000 @ER00005 BR @14 0314 00800000 * END IEDIAR 0315 00801000 * 0315 00802000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00803000 */*%INCLUDE SYSLIB (TAVTD ) */ 00804000 */*%INCLUDE SYSLIB (TLCBD ) */ 00805000 */*%INCLUDE SYSLIB (TPRFD ) */ 00806000 */*%INCLUDE SYSLIB (TRHD ) */ 00807000 */*%INCLUDE SYSLIB (TSIBD ) */ 00808000 */*%INCLUDE SYSLIB (TTRMD ) */ 00809000 * 0315 00810000 * ; 0315 00811000 @DATA DS 0H 00812000 DS 0F 00813000 DS 0F 00814000 @CF01471 DC F'-8' 00815000 @CF01458 DC F'-7' 00816000 @CF01478 DC F'-6' 00817000 @CF01457 DC XL4'0000FFFF' 00818000 DS 0D 00819000 RTNFLD DS FL4 00820000 ORG RTNFLD 00821000 RTNBYTE1 DS FL1 00822000 RTNBSTAT DS BL1 00823000 ORG RTNBSTAT 00824000 RTNBSTVL DS BL1 00825000 RTNRTRP EQU RTNBSTAT+0 00826000 @NM00178 EQU RTNBSTAT+0 00827000 ORG RTNFLD+2 00828000 RTNBYTE3 DS FL1 00829000 ORG RTNBYTE3 00830000 @NM00179 DS BL1 00831000 RTNNLUNT EQU RTNBYTE3+0 00832000 RTNNBRCK EQU RTNBYTE3+0 00833000 ORG RTNFLD+3 00834000 RTNCODE DS FL1 00835000 ORG RTNCODE 00836000 RTNNOBB DS BL1 00837000 RTNRTRER EQU RTNCODE+0 00838000 RTNINBER EQU RTNCODE+0 00839000 RTNPEBER EQU RTNCODE+0 00840000 RTNFMHER EQU RTNCODE+0 00841000 RTNACDER EQU RTNCODE+0 00842000 RTNNFOC EQU RTNCODE+0 00843000 @NM00180 EQU RTNCODE+0 00844000 ORG RTNFLD+4 00845000 MSKRH DS CL3 00846000 ORG MSKRH 00847000 MSKRH1 DS BL1 00848000 ORG MSKRH1 00849000 @NM00173 DS BL1 00850000 MSKTYPE EQU MSKRH1+0 00851000 @NM00174 EQU MSKRH1+0 00852000 MSKFORMT EQU MSKRH1+0 00853000 MSKSENSE EQU MSKRH1+0 00854000 @NM00175 EQU MSKRH1+0 00855000 ORG MSKRH+1 00856000 MSKRH2 DS BL1 00857000 MSKRH3 DS BL1 00858000 ORG MSKRH3 00859000 MSKBB DS BL1 00860000 MSKEB EQU MSKRH3+0 00861000 MSKCDIR EQU MSKRH3+0 00862000 @NM00176 EQU MSKRH3+0 00863000 MSKCSI EQU MSKRH3+0 00864000 @NM00177 EQU MSKRH3+0 00865000 ORG MSKRH+3 00866000 IARPATCH DS CL20 00867000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00868000 @01 EQU 01 00869000 @02 EQU 02 00870000 @03 EQU 03 00871000 @04 EQU 04 00872000 @05 EQU 05 00873000 @06 EQU 06 00874000 @07 EQU 07 00875000 @08 EQU 08 00876000 @09 EQU 09 00877000 @10 EQU 10 00878000 @11 EQU 11 00879000 @12 EQU 12 00880000 @13 EQU 13 00881000 @14 EQU 14 00882000 @15 EQU 15 00883000 IEDQAPTR EQU @09 00884000 IEDQLPTR EQU @04 00885000 LCBXPTR EQU @05 00886000 IEDQPPTR EQU @06 00887000 IEDQTPTR EQU @08 00888000 RPARM EQU @01 00889000 RWORK2 EQU @02 00890000 RLCB EQU @04 00891000 RPRF EQU @06 00892000 RSIB EQU @10 00893000 RBASE EQU @12 00894000 RSAVE EQU @13 00895000 REG14 EQU @14 00896000 REG15 EQU @15 00897000 RAVT EQU @09 00898000 RZERO EQU @00 00899000 IEDQAVTD EQU 0 00900000 AVTSAVEX EQU IEDQAVTD+288 00901000 AVTDOUBL EQU IEDQAVTD+344 00902000 @NM00003 EQU IEDQAVTD+388 00903000 AVTCKFLG EQU @NM00003 00904000 AVTBASE EQU IEDQAVTD+412 00905000 AVTPKF EQU AVTBASE 00906000 AVTRNMPT EQU IEDQAVTD+424 00907000 AVTUI EQU IEDQAVTD+520 00908000 AVTHG02 EQU IEDQAVTD+528 00909000 AVTDISP EQU IEDQAVTD+552 00910000 AVTHD EQU IEDQAVTD+556 00911000 AVTSCOPT EQU AVTHD 00912000 AVTSAVTP EQU IEDQAVTD+612 00913000 AVTSAVTF EQU AVTSAVTP 00914000 AVTCKPEL EQU IEDQAVTD+652 00915000 AVTCKRMV EQU AVTCKPEL 00916000 AVTCKELF EQU IEDQAVTD+680 00917000 AVTCKBYT EQU IEDQAVTD+691 00918000 AVTHG01 EQU IEDQAVTD+692 00919000 AVTCKLNK EQU IEDQAVTD+696 00920000 AVTCRELE EQU IEDQAVTD+708 00921000 AVTCCELE EQU AVTCRELE 00922000 AVTCLRHI EQU IEDQAVTD+716 00923000 AVTADBUF EQU IEDQAVTD+720 00924000 AVTSYSER EQU IEDQAVTD+728 00925000 AVTCKPQB EQU IEDQAVTD+804 00926000 AVTCKPTB EQU AVTCKPQB 00927000 AVTCKPEC EQU AVTCKPQB+4 00928000 AVTCKPCC EQU AVTCKPEC 00929000 AVTOPCQB EQU IEDQAVTD+816 00930000 AVTOPCOB EQU AVTOPCQB 00931000 AVTOPCEC EQU AVTOPCQB+4 00932000 AVTOPCCC EQU AVTOPCEC 00933000 AVTOLTQB EQU IEDQAVTD+828 00934000 AVTCWFL1 EQU IEDQAVTD+924 00935000 AVTCWFL2 EQU IEDQAVTD+925 00936000 AVTSUBT EQU IEDQAVTD+948 00937000 AVTIOTR EQU IEDQAVTD+949 00938000 AVTBIT1 EQU IEDQAVTD+1050 00939000 AVTBIT2 EQU IEDQAVTD+1051 00940000 AVTBIT3 EQU IEDQAVTD+1052 00941000 AVTBIT4 EQU IEDQAVTD+1136 00942000 @NM00083 EQU IEDQAVTD+1232 00943000 IEDNSVTD EQU 0 00944000 SAVTDIAG EQU IEDNSVTD 00945000 SAVTDIAF EQU SAVTDIAG 00946000 SAVTLUSQ EQU IEDNSVTD+88 00947000 SAVTTCPU EQU IEDNSVTD+238 00948000 SAVTBSM EQU IEDNSVTD+240 00949000 SAVTZELM EQU IEDNSVTD+270 00950000 SAVTRDRV EQU IEDNSVTD+284 00951000 SAVTCKQB EQU IEDNSVTD+300 00952000 SAVTCKTB EQU SAVTCKQB 00953000 SAVTCKEC EQU SAVTCKQB+4 00954000 SAVTCKCC EQU SAVTCKEC 00955000 IEDQLCB EQU 0 00956000 LCBRCB EQU IEDQLCB 00957000 LCBTSOB EQU IEDQLCB+19 00958000 LCBCHAIN EQU IEDQLCB+20 00959000 LCBSCRNN EQU LCBCHAIN 00960000 LCBTETEN EQU LCBCHAIN 00961000 LCBINSRC EQU IEDQLCB+21 00962000 LCBLKMDE EQU LCBINSRC+2 00963000 LCBNTXT EQU IEDQLCB+24 00964000 LCBSTAT4 EQU LCBNTXT 00965000 LCBPHASE EQU LCBSTAT4 00966000 LCBSCBDA EQU IEDQLCB+25 00967000 LCBMHA EQU IEDQLCB+29 00968000 LCBFLAG1 EQU IEDQLCB+32 00969000 LCBIOBSN EQU IEDQLCB+33 00970000 LCBSENS0 EQU LCBIOBSN+1 00971000 LCBLOSDT EQU LCBSENS0 00972000 LCBTMOUT EQU LCBSENS0 00973000 LCBFLAG3 EQU LCBIOBSN+7 00974000 LCBCSW EQU LCBIOBSN+8 00975000 LCBCSWST EQU LCBCSW+3 00976000 LCBCSWUS EQU LCBCSWST 00977000 LCBCSWCS EQU LCBCSWST+1 00978000 LCBSIOCC EQU LCBIOBSN+15 00979000 LCBDCBPT EQU IEDQLCB+52 00980000 LCBRCQCB EQU IEDQLCB+56 00981000 LCBTHSQ EQU IEDQLCB+60 00982000 LCBINCAM EQU LCBTHSQ 00983000 LCBERRCT EQU IEDQLCB+62 00984000 LCBLSPCI EQU IEDQLCB+65 00985000 LCBRCBFR EQU LCBLSPCI 00986000 LCBSTATE EQU IEDQLCB+70 00987000 LCBSTAT1 EQU LCBSTATE 00988000 LCBRECVN EQU LCBSTAT1 00989000 LCBSTAT2 EQU LCBSTATE+1 00990000 LCBBEOTN EQU LCBSTAT2 00991000 LCBSYNC EQU LCBSTAT2 00992000 LCBDIAL EQU LCBSTAT2 00993000 LCBTSTSW EQU IEDQLCB+72 00994000 LCBERB EQU IEDQLCB+76 00995000 LCBERBST EQU IEDQLCB+84 00996000 LCBDLNKN EQU LCBERBST 00997000 LCBERBCT EQU IEDQLCB+88 00998000 LCBRBCT2 EQU LCBERBCT+1 00999000 LCBTTCIN EQU IEDQLCB+90 01000000 LCBMSGFM EQU IEDQLCB+92 01001000 LCBOBRCH EQU IEDQLCB+96 01002000 LCBINVPT EQU LCBOBRCH+1 01003000 LCBBFRW EQU LCBINVPT 01004000 LCBTPCD EQU IEDQLCB+100 01005000 LCBSTAT5 EQU LCBTPCD 01006000 LCBLUNIT EQU LCBSTAT5 01007000 LCBSTAT6 EQU LCBTPCD+4 01008000 LCBRSPSV EQU LCBTPCD+8 01009000 LCBSAVSN EQU IEDQLCB+112 01010000 LCBERCCW EQU IEDQLCB+120 01011000 LCBCPA EQU IEDQLCB+144 01012000 IEDQLCBX EQU 0 01013000 LCBXCON EQU IEDQLCBX 01014000 LCBXFLAG EQU LCBXCON 01015000 LCBXDCT EQU LCBXCON+1 01016000 LCBXRADR EQU LCBXCON+4 01017000 IEDQPRF EQU 0 01018000 PRFRCB EQU IEDQPRF 01019000 PRFKEY EQU PRFRCB 01020000 PRFQCBA EQU PRFRCB+1 01021000 PRFPRI EQU PRFRCB+4 01022000 PRFLINK EQU PRFRCB+5 01023000 PRFTIC EQU IEDQPRF+8 01024000 PRFTICC EQU PRFTIC 01025000 PRFNBUNT EQU IEDQPRF+12 01026000 PRFSUNIT EQU PRFNBUNT 01027000 PRFPLQCB EQU PRFSUNIT 01028000 @NM00148 EQU IEDQPRF+16 01029000 PRFSVFFO EQU @NM00148 01030000 PRFSIZE EQU PRFSVFFO+2 01031000 PRFSTAT1 EQU IEDQPRF+20 01032000 PRFEOFN EQU PRFSTAT1 01033000 PRFNLSTN EQU PRFSTAT1 01034000 PRFNHDRN EQU PRFSTAT1 01035000 PRFCORE EQU IEDQPRF+21 01036000 PRFXTRA EQU PRFCORE 01037000 PRFSCAN EQU IEDQPRF+24 01038000 PRFTQBCK EQU IEDQPRF+26 01039000 PRFNTXT EQU PRFTQBCK 01040000 PRFEOBOF EQU PRFNTXT 01041000 PRFCHDR EQU IEDQPRF+32 01042000 PRFHQBCK EQU IEDQPRF+35 01043000 IEDPF1 EQU 0 01044000 PRF1RH EQU IEDPF1 01045000 PRF1FLG1 EQU IEDPF1+3 01046000 PRF1WD2 EQU IEDPF1+4 01047000 PRF1SEQP EQU PRF1WD2 01048000 PRF1SQID EQU PRF1SEQP 01049000 PRF1TAG1 EQU PRF1SQID 01050000 IEDPF2 EQU 0 01051000 PRF2FLG2 EQU IEDPF2 01052000 PRF2WD2 EQU IEDPF2+4 01053000 IEDRH EQU 0 01054000 TRHBYTE0 EQU IEDRH 01055000 TRHFI EQU TRHBYTE0 01056000 TRHBYTE1 EQU IEDRH+1 01057000 TRHBYTE2 EQU IEDRH+2 01058000 TRHBB EQU TRHBYTE2 01059000 TRHEB EQU TRHBYTE2 01060000 TRHCDI EQU TRHBYTE2 01061000 TRHCSI EQU TRHBYTE2 01062000 IEDSIBD EQU 0 01063000 SIBSESSN EQU IEDSIBD+10 01064000 SIBPACIN EQU IEDSIBD+11 01065000 SIBSEQN EQU IEDSIBD+12 01066000 SIBSTAT1 EQU IEDSIBD+16 01067000 SIBRTRP EQU SIBSTAT1 01068000 SIBBSTAT EQU SIBSTAT1 01069000 SIBSTAT2 EQU IEDSIBD+17 01070000 SIBBIND EQU IEDSIBD+20 01071000 SIBBIND1 EQU SIBBIND 01072000 SIBPEBI EQU SIBBIND1 01073000 SIBBIND2 EQU SIBBIND+1 01074000 SIBFMUSE EQU SIBBIND2 01075000 SIBBRACK EQU SIBBIND2 01076000 SIBALT EQU SIBBIND2 01077000 SIBBIND3 EQU SIBBIND+2 01078000 SIBSTAT0 EQU IEDSIBD+23 01079000 IEDQTRM EQU 0 01080000 TRMSTATE EQU IEDQTRM 01081000 TRMLOG EQU TRMSTATE 01082000 TRMINSEQ EQU IEDQTRM+4 01083000 TLISTCNT EQU TRMINSEQ 01084000 TRMOUTSQ EQU IEDQTRM+6 01085000 TLISTEN EQU TRMOUTSQ 01086000 TRMDSORG EQU TLISTEN 01087000 TRMALTD EQU IEDQTRM+8 01088000 TRMDEVFL EQU IEDQTRM+10 01089000 TRMSTAT EQU IEDQTRM+12 01090000 IEDNTRM EQU 0 01091000 TRMBYTE4 EQU IEDNTRM 01092000 TRMBYTE3 EQU IEDNTRM+1 01093000 TRMBYTE2 EQU IEDNTRM+2 01094000 TRMINPG EQU TRMBYTE2 01095000 TRMBYTE1 EQU IEDNTRM+3 01096000 TRMSCPRQ EQU TRMBYTE1 01097000 TRMBYTE0 EQU IEDNTRM+6 01098000 TRMSIBPT EQU IEDNTRM+7 01099000 PRMLIST EQU 0 01100000 PLBYTE3 EQU PRMLIST+2 01101000 PLSELCDE EQU PLBYTE3 01102000 PLDFC EQU PLBYTE3 01103000 PLEXR EQU PLBYTE3 01104000 PLFMDATA EQU PLBYTE3 01105000 PLBYTE4 EQU PRMLIST+3 01106000 PLEB EQU PLBYTE4 01107000 PLBB EQU PLBYTE4 01108000 PLFMH EQU PLBYTE4 01109000 PLCHGDIR EQU PLBYTE4 01110000 PLBYTE5 EQU PRMLIST+4 01111000 PLBSTATE EQU PLBYTE5 01112000 IEDQTNT EQU 0 01113000 LCBRSPIN EQU LCBIOBSN 01114000 LCBLUSNS EQU LCBRSPIN+5 01115000 LCBSCPRS EQU LCBRSPIN+9 01116000 LCBCSWU1 EQU LCBSCPRS+2 01117000 LCBRSPFG EQU LCBRSPIN+15 01118000 LCBCOREQ EQU LCBTPCD 01119000 @NM00129 EQU LCBCPA+40 01120000 LCBQNX EQU LCBERCCW 01121000 LCBQNXMN EQU LCBQNX 01122000 LCBCANCL EQU LCBSAVSN 01123000 LCBCANFG EQU LCBCANCL 01124000 TRMPRE1 EQU TRMBYTE4 01125000 TRMNCP1 EQU TRMBYTE4 01126000 TRMPRE EQU TRMBYTE3 01127000 TRMNCP EQU TRMBYTE3 01128000 TRMPU EQU TRMBYTE3 01129000 TRMLU EQU TRMBYTE3 01130000 TRMLINK EQU TRMBYTE3 01131000 COPYRH EQU AVTDOUBL 01132000 CPYRHFLG EQU COPYRH 01133000 CPYRH1 EQU CPYRHFLG 01134000 CPYTYPE EQU CPYRH1 01135000 CPYFORMT EQU CPYRH1 01136000 CPYSENSE EQU CPYRH1 01137000 CPYRH2 EQU CPYRHFLG+1 01138000 CPYRH3 EQU CPYRHFLG+2 01139000 CPYBB EQU CPYRH3 01140000 CPYEB EQU CPYRH3 01141000 CPYCDIR EQU CPYRH3 01142000 CPYCSI EQU CPYRH3 01143000 DUMMYRH EQU AVTDOUBL+3 01144000 DUMRHFLG EQU DUMMYRH 01145000 DUMRH1 EQU DUMRHFLG 01146000 DUMTYPE EQU DUMRH1 01147000 DUMFORMT EQU DUMRH1 01148000 DUMSENSE EQU DUMRH1 01149000 DUMRH2 EQU DUMRHFLG+1 01150000 DUMRH3 EQU DUMRHFLG+2 01151000 DUMBB EQU DUMRH3 01152000 DUMEB EQU DUMRH3 01153000 DUMCDIR EQU DUMRH3 01154000 DUMCSI EQU DUMRH3 01155000 PRFSHDR EQU IEDQPRF+42 01156000 TRMOPT EQU IEDQTRM+20 01157000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01158000 DUMRS9 EQU DUMRH3 01159000 DUMRS8 EQU DUMRH3 01160000 DUMRS7 EQU DUMRH3 01161000 DUMRS6 EQU DUMRH3 01162000 DUMPCI EQU DUMRH2 01163000 DUMRS5 EQU DUMRH2 01164000 DUMRS4 EQU DUMRH2 01165000 DUMRS3 EQU DUMRH2 01166000 DUMEXCPT EQU DUMRH2 01167000 DUMDR2 EQU DUMRH2 01168000 DUMRS2 EQU DUMRH2 01169000 DUMDR1 EQU DUMRH2 01170000 DUMCHAIN EQU DUMRH1 01171000 DUMRS1 EQU DUMRH1 01172000 DUMSCI EQU DUMRH1 01173000 DUMRQS EQU DUMRH1 01174000 CPYRS9 EQU CPYRH3 01175000 CPYRS8 EQU CPYRH3 01176000 CPYRS7 EQU CPYRH3 01177000 CPYRS6 EQU CPYRH3 01178000 CPYPCI EQU CPYRH2 01179000 CPYRS5 EQU CPYRH2 01180000 CPYRS4 EQU CPYRH2 01181000 CPYRS3 EQU CPYRH2 01182000 CPYEXCPT EQU CPYRH2 01183000 CPYDR2 EQU CPYRH2 01184000 CPYRS2 EQU CPYRH2 01185000 CPYDR1 EQU CPYRH2 01186000 CPYCHAIN EQU CPYRH1 01187000 CPYRS1 EQU CPYRH1 01188000 CPYSCI EQU CPYRH1 01189000 CPYRQS EQU CPYRH1 01190000 @NM00171 EQU TRMLINK 01191000 TRMLSTAT EQU TRMLINK 01192000 TRMLINT EQU TRMLINK 01193000 TRMEPMOD EQU TRMLINK 01194000 TRMLULOG EQU TRMLU 01195000 TRMINERR EQU TRMLU 01196000 TRMLUREQ EQU TRMLU 01197000 TRMSESRQ EQU TRMLU 01198000 TRMTDIFF EQU TRMLU 01199000 TRMLUTM EQU TRMLU 01200000 TRMLUIT EQU TRMLU 01201000 TRMAUTO EQU TRMLU 01202000 TRMPCONT EQU TRMPU 01203000 @NM00170 EQU TRMPU 01204000 TRMNCONT EQU TRMNCP 01205000 TRMQUCKN EQU TRMNCP 01206000 TRMSLOWN EQU TRMNCP 01207000 TRMSYGEN EQU TRMNCP 01208000 TRMNCPCL EQU TRMNCP 01209000 TRMIPLDM EQU TRMNCP 01210000 TRMINOUT EQU TRMPRE 01211000 TRMRDOUT EQU TRMPRE 01212000 TRMNLOUT EQU TRMPRE 01213000 TRMWROUT EQU TRMPRE 01214000 TRMASNXI EQU TRMPRE 01215000 TRMSTMM EQU TRMPRE 01216000 TRMCMODE EQU TRMPRE 01217000 TRMSTPND EQU TRMPRE 01218000 @NM00169 EQU TRMNCP1 01219000 TRMINOP EQU TRMNCP1 01220000 TRMLYNCH EQU TRMPRE1 01221000 TRMSPOUT EQU TRMPRE1 01222000 TRMERLCK EQU TRMPRE1 01223000 TRMQNPL EQU TRMPRE1 01224000 TRMSPACT EQU TRMPRE1 01225000 TRMOCNI EQU TRMPRE1 01226000 TRMSESSN EQU TRMPRE1 01227000 TRMCONT EQU TRMPRE1 01228000 @NM00136 EQU LCBCANCL+3 01229000 LCBCANTH EQU LCBCANCL+1 01230000 @NM00135 EQU LCBCANFG 01231000 LCBCANCD EQU LCBCANFG 01232000 @NM00134 EQU LCBCANFG 01233000 LCBCANEB EQU LCBCANFG 01234000 LCBCANXT EQU LCBCANFG 01235000 LCBUNADD EQU LCBQNX+21 01236000 LCBUASZE EQU LCBQNX+20 01237000 LCBDSTEA EQU LCBQNX+16 01238000 @NM00133 EQU LCBQNX+4 01239000 LCBSTSAV EQU LCBQNX+1 01240000 @NM00132 EQU LCBQNXMN 01241000 LCBNX509 EQU LCBQNXMN 01242000 LCBNX162 EQU LCBQNXMN 01243000 LCBNX142 EQU LCBQNXMN 01244000 LCBNX064 EQU LCBQNXMN 01245000 @NM00131 EQU @NM00129+4 01246000 LCBNCPPT EQU @NM00129+1 01247000 @NM00130 EQU @NM00129 01248000 LCBWRSCH EQU LCBCOREQ+8 01249000 LCBCQLNK EQU LCBCOREQ+4 01250000 LCBCQELE EQU LCBCOREQ 01251000 LCBPAKCH EQU LCBRSPIN+16 01252000 @NM00128 EQU LCBRSPFG 01253000 LCBRSRH EQU LCBRSPFG 01254000 LCBEXPI EQU LCBRSPFG 01255000 @NM00127 EQU LCBRSPIN+12 01256000 LCBUSUE1 EQU LCBCSWU1 01257000 @NM00126 EQU LCBCSWU1 01258000 @NM00125 EQU LCBSCPRS+1 01259000 LCBDFCMD EQU LCBSCPRS 01260000 LCBUSER EQU LCBLUSNS+2 01261000 LCBSMIN EQU LCBLUSNS+1 01262000 LCBSMAJ EQU LCBLUSNS 01263000 LCBRHSV EQU LCBRSPIN+2 01264000 LCBSNS0 EQU LCBRSPIN+1 01265000 @NM00124 EQU LCBRSPIN 01266000 @NM00172 EQU PLBYTE5 01267000 PLLENGTH EQU PRMLIST+1 01268000 PLINDEX EQU PRMLIST 01269000 TRMSUBST EQU IEDNTRM+12 01270000 TRMTYPE EQU IEDNTRM+11 01271000 TRMRLMCT EQU IEDNTRM+10 01272000 TRMCOHTG EQU TRMSIBPT+1 01273000 TRMGPCNT EQU TRMSIBPT 01274000 TRMBUFRD EQU TRMBYTE0 01275000 TRMSNA EQU TRMBYTE0 01276000 TRMGP EQU TRMBYTE0 01277000 TRMDIAL EQU TRMBYTE0 01278000 @NM00168 EQU TRMBYTE0 01279000 TRMOUTPT EQU TRMBYTE0 01280000 TRMINPUT EQU TRMBYTE0 01281000 TRMUDEF EQU TRMBYTE0 01282000 TRMCOHRT EQU IEDNTRM+4 01283000 TRMSTOTE EQU TRMBYTE1 01284000 TRMCKPRN EQU TRMBYTE1 01285000 TRMTSATN EQU TRMBYTE1 01286000 TRMTRACE EQU TRMBYTE1 01287000 TRMSWBCK EQU TRMBYTE1 01288000 TRMAUTOC EQU TRMBYTE1 01289000 TRMINPTP EQU TRMBYTE1 01290000 TRMWTNEG EQU TRMSCPRQ 01291000 TRMWRBRK EQU TRMBYTE2 01292000 TRMNOSND EQU TRMBYTE2 01293000 TRMPREP EQU TRMBYTE2 01294000 TRMGPACT EQU TRMBYTE2 01295000 TRMANDL EQU TRMBYTE2 01296000 TRMCLOSN EQU TRMINPG 01297000 TRMREMB EQU TRMBYTE2 01298000 TRMRSACT EQU TRMBYTE2 01299000 TRMOPTBL EQU IEDQTRM+18 01300000 TRMOPNO EQU IEDQTRM+17 01301000 TRMCHCIN EQU IEDQTRM+16 01302000 TRMSENSE EQU TRMSTAT+3 01303000 TRMTEMPR EQU TRMSTAT+2 01304000 TRMSIO EQU TRMSTAT 01305000 @NM00167 EQU TRMDEVFL+1 01306000 TRMTPIN EQU TRMDEVFL+1 01307000 TRMNCPI EQU TRMDEVFL+1 01308000 TRMRNTRM EQU TRMDEVFL+1 01309000 @NM00166 EQU TRMDEVFL+1 01310000 TRMLMD EQU TRMDEVFL+1 01311000 TRMCONC EQU TRMDEVFL+1 01312000 TRMTSOB EQU TRMDEVFL 01313000 TRMBFDY EQU TRMDEVFL 01314000 TRMTBLK EQU TRMDEVFL 01315000 TRMSBLK EQU TRMDEVFL 01316000 TRMBLKS EQU TRMDEVFL 01317000 TRMADDC EQU TRMDEVFL 01318000 TRMDDIG EQU TRMDEVFL 01319000 TRMBUFS EQU TRMDEVFL 01320000 TRMPRILK EQU TRMALTD 01321000 TRMLGB EQU TRMDSORG 01322000 TRMUTERM EQU TLISTCNT 01323000 TRMDESTQ EQU IEDQTRM+1 01324000 TRMSCNYN EQU TRMSTATE 01325000 TRMOPTFN EQU TRMSTATE 01326000 TRMHELDN EQU TRMSTATE 01327000 TRMACPTN EQU TRMSTATE 01328000 TRMPREF EQU TRMSTATE 01329000 TRMPROC EQU TRMLOG 01330000 TRMLIST EQU TRMLOG 01331000 TRMLINE EQU TRMSTATE 01332000 SIBLUTYP EQU SIBSTAT0 01333000 SIBCD EQU SIBSTAT0 01334000 @NM00165 EQU SIBBIND3 01335000 SIBCRES EQU SIBBIND3 01336000 SIBSPKR EQU SIBBIND3 01337000 SIBRECOV EQU SIBBIND3 01338000 SIBFMODE EQU SIBBIND3 01339000 SIBBTERM EQU SIBBIND2 01340000 SIBSEBI EQU SIBBIND2 01341000 SIBSCMP EQU SIBBIND2 01342000 SIBSEXC EQU SIBBIND2 01343000 SIBSDEF EQU SIBBIND2 01344000 SIBSRQM EQU SIBBIND1 01345000 SIBSCHNG EQU SIBBIND1 01346000 SIBPCMP EQU SIBBIND1 01347000 SIBPEXC EQU SIBBIND1 01348000 SIBPDEF EQU SIBBIND1 01349000 SIBPRQM EQU SIBBIND1 01350000 SIBPCHN EQU SIBBIND1 01351000 SIBFMPRO EQU IEDSIBD+19 01352000 SIBTSPRO EQU IEDSIBD+18 01353000 @NM00164 EQU SIBSTAT2 01354000 SIBDACLU EQU SIBSTAT2 01355000 SIBRDSCN EQU SIBSTAT2 01356000 SIBTERM EQU SIBSTAT2 01357000 SIBUSS EQU SIBSTAT2 01358000 @NM00163 EQU SIBSTAT1 01359000 SIBRQEND EQU SIBSTAT1 01360000 SIBRQSHT EQU SIBSTAT1 01361000 SIBSEQO EQU SIBSEQN+2 01362000 SIBSEQI EQU SIBSEQN 01363000 SIBNCNT EQU SIBPACIN 01364000 SIBMCNT EQU SIBPACIN 01365000 SIBDSTAT EQU SIBSESSN 01366000 SIBSSTAT EQU SIBSESSN 01367000 SIBINBIU EQU SIBSESSN 01368000 SIBSHUTC EQU SIBSESSN 01369000 SIBLGOFF EQU SIBSESSN 01370000 SIBINDEX EQU IEDSIBD+8 01371000 SIBCHAIN EQU IEDSIBD+4 01372000 SIBRUSEG EQU IEDSIBD 01373000 @NM00162 EQU TRHBYTE2 01374000 @NM00161 EQU TRHBYTE2 01375000 @NM00160 EQU TRHBYTE2 01376000 @NM00159 EQU TRHBYTE2 01377000 TRHPI EQU TRHBYTE1 01378000 @NM00158 EQU TRHBYTE1 01379000 @NM00157 EQU TRHBYTE1 01380000 @NM00156 EQU TRHBYTE1 01381000 TRHER EQU TRHBYTE1 01382000 TRHDR2 EQU TRHBYTE1 01383000 @NM00155 EQU TRHBYTE1 01384000 TRHDR1 EQU TRHBYTE1 01385000 TRHEC EQU TRHBYTE0 01386000 TRHBC EQU TRHBYTE0 01387000 TRHSDI EQU TRHBYTE0 01388000 @NM00154 EQU TRHBYTE0 01389000 TRHRUCAT EQU TRHBYTE0 01390000 TRHTYPE EQU TRHBYTE0 01391000 PRF2SEQP EQU PRF2WD2 01392000 @NM00153 EQU IEDPF2+1 01393000 @NM00152 EQU PRF2FLG2 01394000 PRF2SMI EQU PRF2FLG2 01395000 PRF2FORM EQU PRF2FLG2 01396000 PRF2TNTI EQU PRF2FLG2 01397000 PRF1RULN EQU PRF1SEQP+2 01398000 PRF1TAG2 EQU PRF1SQID+1 01399000 @NM00151 EQU PRF1TAG1 01400000 PRF1TAGS EQU PRF1TAG1 01401000 @NM00150 EQU PRF1FLG1 01402000 PRF1LOGD EQU PRF1FLG1 01403000 PRF1USS EQU PRF1FLG1 01404000 PRF1FORM EQU PRF1FLG1 01405000 PRF1EXPI EQU PRF1FLG1 01406000 PRF1FIDI EQU PRF1FLG1 01407000 PRFDEST EQU IEDQPRF+40 01408000 PRFISEQ EQU IEDQPRF+38 01409000 PRFSTXT EQU PRFHQBCK 01410000 PRFNHDR EQU PRFCHDR 01411000 PRFCRCD EQU IEDQPRF+29 01412000 PRFSVSEQ EQU PRFNTXT+1 01413000 PRFSVPRI EQU PRFEOBOF 01414000 PRFISIZE EQU PRFSCAN+1 01415000 @NM00149 EQU PRFSCAN 01416000 PRFEOB EQU PRFXTRA+1 01417000 PRFSTSO EQU PRFXTRA 01418000 PRFLOCK EQU PRFEOFN 01419000 PRFDUPLN EQU PRFSTAT1 01420000 PRFTSMSG EQU PRFSTAT1 01421000 PRFITCPN EQU PRFSTAT1 01422000 PRFERMGN EQU PRFSTAT1 01423000 PRFCNCLN EQU PRFSTAT1 01424000 PRFSVFLG EQU @NM00148+3 01425000 PRFSRCE EQU PRFSVFFO 01426000 PRFLCB EQU IEDQPRF+13 01427000 PRFPIUO EQU PRFPLQCB 01428000 PRFTI0 EQU PRFTIC+1 01429000 @NM00147 EQU PRFTICC 01430000 @NM00146 EQU PRFTICC 01431000 @NM00145 EQU PRFTICC 01432000 PRFTICON EQU PRFTICC 01433000 @NM00144 EQU PRFTICC 01434000 @NM00143 EQU PRFTICC 01435000 PRFBFMM EQU PRFTICC 01436000 PRFEOMSG EQU PRFTICC 01437000 PRFCOUNT EQU PRFLINK+1 01438000 @NM00142 EQU PRFLINK 01439000 PRFFLAGS EQU PRFPRI 01440000 PRFIOADR EQU PRFQCBA 01441000 PRFOPCDE EQU PRFKEY 01442000 LCBERADR EQU LCBXRADR+1 01443000 LCBPCIRC EQU LCBXRADR 01444000 LCBDCT3 EQU LCBXDCT+2 01445000 LCBDCT2 EQU LCBXDCT+1 01446000 LCBDCT1 EQU LCBXDCT 01447000 @NM00141 EQU LCBXFLAG 01448000 LCBERPND EQU LCBXFLAG 01449000 LCBSRCPF EQU LCBXFLAG 01450000 LCBGPCTV EQU LCBXFLAG 01451000 @NM00140 EQU LCBXFLAG 01452000 @NM00139 EQU LCBXFLAG 01453000 @NM00138 EQU LCBXFLAG 01454000 @NM00137 EQU LCBXFLAG 01455000 LCBCCW10 EQU LCBCPA+72 01456000 LCBCCW9 EQU LCBCPA+64 01457000 LCBCCW8 EQU LCBCPA+56 01458000 LCBCCW7 EQU LCBCPA+48 01459000 LCBCCW6 EQU LCBCPA+40 01460000 LCBCCW5 EQU LCBCPA+32 01461000 LCBCCW4 EQU LCBCPA+24 01462000 LCBCCW3 EQU LCBCPA+16 01463000 LCBCCW2 EQU LCBCPA+8 01464000 LCBCCW1 EQU LCBCPA 01465000 @NM00123 EQU LCBERCCW 01466000 LCBCSWSV EQU LCBSAVSN+1 01467000 LCBSNSV EQU LCBSAVSN 01468000 LCBBFSNS EQU LCBRSPSV 01469000 LCBWAITC EQU LCBTPCD+5 01470000 LCBINPAK EQU LCBSTAT6 01471000 LCBMHBID EQU LCBSTAT6 01472000 LCBRTRRO EQU LCBSTAT6 01473000 LCBHDRPD EQU LCBSTAT6 01474000 LCBCHN EQU LCBSTAT6 01475000 LCBBFRSV EQU LCBTPCD+1 01476000 @NM00122 EQU LCBSTAT5 01477000 LCBLUS EQU LCBSTAT5 01478000 LCBPERM EQU LCBSTAT5 01479000 LCBNXCMD EQU LCBBFRW 01480000 LCBERMSK EQU LCBOBRCH 01481000 LCBSCBA EQU IEDQLCB+93 01482000 LCBOLT EQU LCBMSGFM 01483000 LCBEOT EQU LCBMSGFM 01484000 LCBENQ EQU LCBMSGFM 01485000 LCBTTD EQU LCBMSGFM 01486000 LCBRSTRT EQU LCBMSGFM 01487000 LCBVSTRT EQU LCBMSGFM 01488000 LCBACKI EQU LCBMSGFM 01489000 LCBNAK EQU LCBMSGFM 01490000 @NM00121 EQU LCBRBCT2 01491000 LCBDCNT EQU LCBRBCT2 01492000 LCBRBCT1 EQU LCBERBCT 01493000 LCBERBCH EQU IEDQLCB+85 01494000 LCBCOMPL EQU LCBDLNKN 01495000 LCBPRCPG EQU LCBERBST 01496000 LCBERROR EQU LCBERBST 01497000 @NM00120 EQU LCBERBST 01498000 LCBINQ EQU LCBERBST 01499000 LCBRDERR EQU LCBERBST 01500000 LCBEOMSG EQU LCBERBST 01501000 LCBMSG EQU LCBERBST 01502000 LCBERBLK EQU IEDQLCB+81 01503000 LCBERBPY EQU IEDQLCB+80 01504000 LCBERBQB EQU LCBERB+1 01505000 LCBERBKY EQU LCBERB 01506000 LCBRECAD EQU IEDQLCB+73 01507000 @NM00119 EQU LCBTSTSW 01508000 @NM00118 EQU LCBTSTSW 01509000 @NM00117 EQU LCBTSTSW 01510000 @NM00116 EQU LCBTSTSW 01511000 @NM00115 EQU LCBTSTSW 01512000 @NM00114 EQU LCBTSTSW 01513000 @NM00113 EQU LCBTSTSW 01514000 LCBCONCT EQU LCBTSTSW 01515000 LCBRESP EQU LCBSTAT2 01516000 LCBBFRAV EQU LCBDIAL 01517000 LCBATTN EQU LCBSYNC 01518000 LCBNEGRP EQU LCBSTAT2 01519000 LCBSNDPR EQU LCBSTAT2 01520000 LCBCONNN EQU LCBBEOTN 01521000 LCBMSGNN EQU LCBSTAT2 01522000 LCBTRACE EQU LCBSTAT2 01523000 LCBSENDN EQU LCBSTAT1 01524000 LCBFREEN EQU LCBSTAT1 01525000 LCBCONT EQU LCBSTAT1 01526000 LCBINITN EQU LCBSTAT1 01527000 LCBOCNI EQU LCBSTAT1 01528000 LCBOCWTN EQU LCBSTAT1 01529000 LCBRCLLN EQU LCBSTAT1 01530000 LCBRECOF EQU IEDQLCB+68 01531000 LCBRDBFR EQU LCBRCBFR 01532000 LCBUCBX EQU IEDQLCB+64 01533000 LCBTTBIN EQU LCBERRCT 01534000 @NM00112 EQU LCBINCAM 01535000 LCBGETMN EQU LCBINCAM 01536000 LCBRESTR EQU LCBRCQCB 01537000 LCBPCILK EQU LCBDCBPT 01538000 LCBSTART EQU LCBIOBSN+16 01539000 LCBAP4OL EQU LCBSIOCC 01540000 LCBAP3OL EQU LCBSIOCC 01541000 LCBAP2OL EQU LCBSIOCC 01542000 LCBAP1OL EQU LCBSIOCC 01543000 LCBSIOC2 EQU LCBSIOCC 01544000 LCBSIOC1 EQU LCBSIOCC 01545000 @NM00111 EQU LCBSIOCC 01546000 LCBCSWRC EQU LCBCSW+5 01547000 LCBCSCHC EQU LCBCSWCS 01548000 LCBCSICC EQU LCBCSWCS 01549000 LCBCSCCC EQU LCBCSWCS 01550000 LCBCSCDC EQU LCBCSWCS 01551000 LCBCSPTC EQU LCBCSWCS 01552000 LCBCSPGC EQU LCBCSWCS 01553000 LCBCSIL EQU LCBCSWCS 01554000 LCBCSPCI EQU LCBCSWCS 01555000 LCBUSUE EQU LCBCSWUS 01556000 LCBUSUC EQU LCBCSWUS 01557000 LCBUSDE EQU LCBCSWUS 01558000 LCBUSCE EQU LCBCSWUS 01559000 LCBUSBSY EQU LCBCSWUS 01560000 LCBUSCUE EQU LCBCSWUS 01561000 LCBUSSM EQU LCBCSWUS 01562000 LCBUSAT EQU LCBCSWUS 01563000 LCBCSWCA EQU LCBCSW 01564000 LCBOBR EQU LCBFLAG3 01565000 LCBOBRRD EQU LCBFLAG3 01566000 LCBIOMSG EQU LCBFLAG3 01567000 LCBSOHC EQU LCBFLAG3 01568000 LCBRLAD EQU LCBFLAG3 01569000 LCBSOHR EQU LCBFLAG3 01570000 @NM00110 EQU LCBFLAG3 01571000 LCBECBPT EQU LCBIOBSN+4 01572000 LCBECBCC EQU LCBIOBSN+3 01573000 LCBSENS1 EQU LCBIOBSN+2 01574000 LCBABORT EQU LCBTMOUT 01575000 LCBNOTIN EQU LCBLOSDT 01576000 LCBOVRUN EQU LCBSENS0 01577000 LCBDATCK EQU LCBSENS0 01578000 LCBEQUCK EQU LCBSENS0 01579000 LCBBUSCK EQU LCBSENS0 01580000 LCBINTRQ EQU LCBSENS0 01581000 LCBCMDRJ EQU LCBSENS0 01582000 LCBFLAG2 EQU LCBIOBSN 01583000 @NM00109 EQU LCBFLAG1 01584000 LCBUNREL EQU LCBFLAG1 01585000 LCBEXCPN EQU LCBFLAG1 01586000 @NM00108 EQU LCBFLAG1 01587000 LCBERPIN EQU LCBFLAG1 01588000 @NM00107 EQU LCBFLAG1 01589000 LCBFSBFR EQU LCBMHA 01590000 LCBISZE EQU IEDQLCB+28 01591000 LCBLNENT EQU LCBSCBDA+1 01592000 @NM00106 EQU LCBSCBDA 01593000 LCBCPGMH EQU LCBSTAT4 01594000 LCBREAL EQU LCBPHASE 01595000 @NM00105 EQU LCBSTAT4 01596000 LCBACTRQ EQU LCBSTAT4 01597000 LCBIPLRQ EQU LCBSTAT4 01598000 LCBDACRQ EQU LCBSTAT4 01599000 LCBDMPRQ EQU LCBSTAT4 01600000 @NM00104 EQU LCBLKMDE 01601000 LCBLOCKI EQU LCBLKMDE 01602000 LCBLOCKR EQU LCBLKMDE 01603000 LCBHMFLG EQU LCBLKMDE 01604000 LCBBDFLG EQU LCBLKMDE 01605000 @NM00103 EQU LCBINSRC 01606000 LCBABRTN EQU LCBCHAIN 01607000 LCBCTLMD EQU LCBTETEN 01608000 LCBBFRSZ EQU LCBCHAIN 01609000 LCBUREQN EQU LCBCHAIN 01610000 LCBNORTY EQU LCBCHAIN 01611000 LCBERMSG EQU LCBCHAIN 01612000 LCBEXCP EQU LCBCHAIN 01613000 LCBINVRQ EQU LCBSCRNN 01614000 LCB2741N EQU LCBTSOB 01615000 LCBINHBN EQU LCBTSOB 01616000 LCBCIRCD EQU LCBTSOB 01617000 LCBPREP EQU LCBTSOB 01618000 LCBSOPL EQU LCBTSOB 01619000 LCBSATRD EQU LCBTSOB 01620000 LCBTSBUF EQU LCBTSOB 01621000 LCBWRBRK EQU LCBTSOB 01622000 LCBTDL EQU IEDQLCB+18 01623000 LCBEOLTD EQU IEDQLCB+16 01624000 LCBRSLNK EQU IEDQLCB+13 01625000 LCBRSPRI EQU IEDQLCB+12 01626000 LCBSTCBA EQU IEDQLCB+9 01627000 LCBRSKEY EQU IEDQLCB+8 01628000 LCBLINK EQU LCBRCB+5 01629000 LCBPRI EQU LCBRCB+4 01630000 LCBQCBA EQU LCBRCB+1 01631000 LCBKEY EQU LCBRCB 01632000 SAVTBITN EQU IEDNSVTD+312 01633000 @NM00102 EQU SAVTCKQB+8 01634000 @NM00101 EQU SAVTCKEC+1 01635000 @NM00100 EQU SAVTCKCC 01636000 SAVTCKPO EQU SAVTCKCC 01637000 SAVTCKWA EQU SAVTCKCC 01638000 SAVTCKCH EQU SAVTCKTB+1 01639000 SAVTCKVT EQU SAVTCKTB 01640000 @NM00099 EQU IEDNSVTD+297 01641000 SAVTRDFG EQU SAVTRDRV+12 01642000 @NM00098 EQU SAVTRDRV+5 01643000 SAVTRDPY EQU SAVTRDRV+4 01644000 SAVTRDQB EQU SAVTRDRV+1 01645000 SAVTRDKY EQU SAVTRDRV 01646000 SAVTNID EQU IEDNSVTD+280 01647000 SAVTDVAS EQU IEDNSVTD+276 01648000 SAVTPLSZ EQU IEDNSVTD+274 01649000 @NM00097 EQU IEDNSVTD+273 01650000 SAVTSUBL EQU IEDNSVTD+272 01651000 @NM00096 EQU SAVTZELM+1 01652000 SAVTSUBM EQU SAVTZELM 01653000 SAVTMHDX EQU IEDNSVTD+268 01654000 SAVTNAT1 EQU IEDNSVTD+266 01655000 SAVTSH20 EQU IEDNSVTD+264 01656000 SAVTLCBS EQU IEDNSVTD+260 01657000 SAVTRNMP EQU IEDNSVTD+256 01658000 SAVTTNTX EQU IEDNSVTD+252 01659000 SAVTNAX EQU IEDNSVTD+248 01660000 SAVTSUBV EQU IEDNSVTD+247 01661000 SAVTSUBA EQU IEDNSVTD+246 01662000 SAVTSIBC EQU IEDNSVTD+244 01663000 SAVTSCPT EQU SAVTTCPU 01664000 SAVTRQTG EQU IEDNSVTD+236 01665000 SAVTRQCH EQU IEDNSVTD+232 01666000 SAVTMAND EQU IEDNSVTD+228 01667000 SAVTSPLN EQU IEDNSVTD+224 01668000 SAVTNADL EQU IEDNSVTD+222 01669000 SAVTNATL EQU IEDNSVTD+220 01670000 SAVTMHTB EQU IEDNSVTD+216 01671000 SAVTSSMH EQU IEDNSVTD+212 01672000 SAVTQRS EQU IEDNSVTD+208 01673000 SAVTRQIN EQU IEDNSVTD+204 01674000 SAVTDFCO EQU IEDNSVTD+200 01675000 SAVTSAO EQU IEDNSVTD+196 01676000 SAVTSARI EQU IEDNSVTD+192 01677000 SAVTSAC EQU IEDNSVTD+188 01678000 SAVTSAI EQU IEDNSVTD+184 01679000 SAVTCSCI EQU IEDNSVTD+180 01680000 SAVTSSRP EQU IEDNSVTD+176 01681000 SAVTSSRQ EQU IEDNSVTD+172 01682000 SAVTSCLU EQU IEDNSVTD+168 01683000 SAVTXTRQ EQU IEDNSVTD+164 01684000 SAVTMVBF EQU IEDNSVTD+160 01685000 @NM00095 EQU IEDNSVTD+148 01686000 SAVTIPCQ EQU IEDNSVTD+144 01687000 @NM00094 EQU IEDNSVTD+136 01688000 SAVTXFMI EQU IEDNSVTD+132 01689000 @NM00093 EQU IEDNSVTD+124 01690000 SAVTXFMO EQU IEDNSVTD+120 01691000 @NM00092 EQU IEDNSVTD+116 01692000 SAVTSSSR EQU IEDNSVTD+112 01693000 SAVTSCPQ EQU IEDNSVTD+108 01694000 SAVTSLCB EQU IEDNSVTD+104 01695000 SAVTLUSR EQU IEDNSVTD+100 01696000 @NM00091 EQU SAVTLUSQ+8 01697000 SAVTLUSP EQU SAVTLUSQ+4 01698000 SAVTLUSB EQU SAVTLUSQ 01699000 @NM00090 EQU IEDNSVTD+84 01700000 SAVTSAT EQU IEDNSVTD+80 01701000 SAVTNAT EQU IEDNSVTD+76 01702000 SAVTCLUP EQU IEDNSVTD+72 01703000 SAVTPIUT EQU IEDNSVTD+68 01704000 SAVTRNTA EQU IEDNSVTD+64 01705000 SAVTDNIR EQU IEDNSVTD+60 01706000 SAVTCNIR EQU IEDNSVTD+56 01707000 SAVTFLDH EQU IEDNSVTD+52 01708000 SAVTSRTN EQU IEDNSVTD+48 01709000 SAVTSREQ EQU IEDNSVTD+44 01710000 SAVTFAIL EQU IEDNSVTD+42 01711000 SAVTSUSE EQU IEDNSVTD+40 01712000 SAVTSIB EQU IEDNSVTD+36 01713000 SAVTPRTN EQU IEDNSVTD+32 01714000 @NM00089 EQU IEDNSVTD+28 01715000 SAVTWH20 EQU IEDNSVTD+26 01716000 SAVTPWT EQU IEDNSVTD+24 01717000 SAVTPRTQ EQU IEDNSVTD+20 01718000 SAVTPREQ EQU IEDNSVTD+16 01719000 SAVTPH20 EQU IEDNSVTD+14 01720000 SAVTPUSE EQU IEDNSVTD+12 01721000 SAVTPLCB EQU IEDNSVTD+8 01722000 SAVTPOOL EQU IEDNSVTD+4 01723000 SAVTPRMT EQU SAVTDIAF 01724000 SAVTVIRT EQU SAVTDIAF 01725000 AVTCPBNO EQU IEDQAVTD+1244 01726000 AVTHRESS EQU IEDQAVTD+1243 01727000 @NM00088 EQU IEDQAVTD+1242 01728000 @NM00087 EQU IEDQAVTD+1241 01729000 @NM00086 EQU IEDQAVTD+1240 01730000 @NM00085 EQU IEDQAVTD+1237 01731000 @NM00084 EQU IEDQAVTD+1236 01732000 AVTHRESE EQU @NM00083 01733000 AVTRADDR EQU IEDQAVTD+1228 01734000 AVTNADDR EQU IEDQAVTD+1224 01735000 AVTHRESN EQU IEDQAVTD+1220 01736000 AVTVOLRN EQU IEDQAVTD+1216 01737000 AVTTOTNN EQU IEDQAVTD+1212 01738000 AVTTRCYN EQU IEDQAVTD+1208 01739000 AVTRCTRN EQU IEDQAVTD+1204 01740000 AVTNOVON EQU IEDQAVTD+1200 01741000 AVTADEBN EQU IEDQAVTD+1196 01742000 AVTVOLRR EQU IEDQAVTD+1192 01743000 AVTTOTNR EQU IEDQAVTD+1188 01744000 AVTTRCYR EQU IEDQAVTD+1184 01745000 AVTRCTRR EQU IEDQAVTD+1180 01746000 AVTNOVOR EQU IEDQAVTD+1176 01747000 AVTADEBR EQU IEDQAVTD+1172 01748000 AVTLODPT EQU IEDQAVTD+1168 01749000 AVTIOBN EQU IEDQAVTD+1164 01750000 AVTIOBR EQU IEDQAVTD+1160 01751000 AVTCPBPT EQU IEDQAVTD+1156 01752000 AVTFCPB EQU IEDQAVTD+1152 01753000 @NM00082 EQU IEDQAVTD+1148 01754000 AVTINCPQ EQU IEDQAVTD+1144 01755000 @NM00081 EQU IEDQAVTD+1140 01756000 @NM00080 EQU IEDQAVTD+1137 01757000 @NM00079 EQU AVTBIT4 01758000 @NM00078 EQU AVTBIT4 01759000 @NM00077 EQU AVTBIT4 01760000 @NM00076 EQU AVTBIT4 01761000 @NM00075 EQU AVTBIT4 01762000 @NM00074 EQU AVTBIT4 01763000 @NM00073 EQU AVTBIT4 01764000 AVTRUFTN EQU AVTBIT4 01765000 @NM00072 EQU IEDQAVTD+1132 01766000 AVTNOBFQ EQU IEDQAVTD+1128 01767000 @NM00071 EQU IEDQAVTD+1124 01768000 AVTDKENQ EQU IEDQAVTD+1120 01769000 @NM00070 EQU IEDQAVTD+1116 01770000 AVTDKAPQ EQU IEDQAVTD+1112 01771000 AVTCOPY EQU IEDQAVTD+1108 01772000 AVTIA EQU IEDQAVTD+1104 01773000 AVTFL EQU IEDQAVTD+1100 01774000 @NM00069 EQU IEDQAVTD+1096 01775000 AVTNCPBQ EQU IEDQAVTD+1092 01776000 AVTTOTNC EQU IEDQAVTD+1088 01777000 AVTCMAX EQU IEDQAVTD+1084 01778000 AVTCMIN EQU IEDQAVTD+1080 01779000 AVTHM02 EQU IEDQAVTD+1076 01780000 AVTOPCIN EQU IEDQAVTD+1074 01781000 AVTDCTLN EQU IEDQAVTD+1072 01782000 AVTOPMSK EQU IEDQAVTD+1068 01783000 AVTDDFT EQU IEDQAVTD+1064 01784000 AVTSTEAL EQU IEDQAVTD+1060 01785000 AVTOPTN EQU IEDQAVTD+1056 01786000 AVTDSKCT EQU IEDQAVTD+1054 01787000 AVTCKRST EQU IEDQAVTD+1053 01788000 AVTSTAN EQU AVTBIT3 01789000 AVTSTACN EQU AVTBIT3 01790000 AVTSTAIN EQU AVTBIT3 01791000 AVTSTAYN EQU AVTBIT3 01792000 AVTOLTBN EQU AVTBIT3 01793000 AVTTSAB EQU AVTBIT3 01794000 AVTRFULN EQU AVTBIT3 01795000 AVTRECVN EQU AVTBIT3 01796000 @NM00068 EQU AVTBIT2 01797000 @NM00067 EQU AVTBIT2 01798000 AVTOPEIN EQU AVTBIT2 01799000 AVTSTRTN EQU AVTBIT2 01800000 AVTTOPOL EQU AVTBIT2 01801000 AVTCOPYN EQU AVTBIT2 01802000 AVTREUSN EQU AVTBIT2 01803000 AVTEXTSC EQU AVTBIT2 01804000 AVTDISKN EQU AVTBIT1 01805000 AVTQUCKN EQU AVTBIT1 01806000 AVTCLOSN EQU AVTBIT1 01807000 AVTREADN EQU AVTBIT1 01808000 AVTDLAYN EQU AVTBIT1 01809000 AVTAQTAN EQU AVTBIT1 01810000 AVTTSON EQU AVTBIT1 01811000 AVTAPLKN EQU AVTBIT1 01812000 AVTDUMBR EQU IEDQAVTD+1048 01813000 AVTDLQX EQU IEDQAVTD+1046 01814000 AVTINTLV EQU IEDQAVTD+1044 01815000 AVTSMCNT EQU IEDQAVTD+1042 01816000 AVTAVFCT EQU IEDQAVTD+1040 01817000 AVTOPCON EQU IEDQAVTD+1038 01818000 AVTOPCNT EQU IEDQAVTD+1036 01819000 AVTLNCNT EQU IEDQAVTD+1034 01820000 AVTKEYLE EQU IEDQAVTD+1032 01821000 AVTHA16 EQU IEDQAVTD+1030 01822000 AVTHA7 EQU IEDQAVTD+1028 01823000 AVTHA4 EQU IEDQAVTD+1026 01824000 AVTHA3 EQU IEDQAVTD+1024 01825000 AVTHA2 EQU IEDQAVTD+1022 01826000 AVTGETMS EQU IEDQAVTD+1021 01827000 @NM00066 EQU IEDQAVTD+1020 01828000 AVTGETMD EQU IEDQAVTD+1016 01829000 AVTGETMN EQU IEDQAVTD+1012 01830000 AVTCWTOT EQU IEDQAVTD+1008 01831000 AVTCWINT EQU IEDQAVTD+956 01832000 AVTDTRAP EQU IEDQAVTD+952 01833000 @NM00065 EQU IEDQAVTD+950 01834000 @NM00064 EQU AVTIOTR 01835000 AVTIOTRH EQU AVTIOTR 01836000 AVTIOTRE EQU AVTIOTR 01837000 @NM00063 EQU AVTSUBT 01838000 AVTSUBPT EQU AVTSUBT 01839000 AVTSUBON EQU AVTSUBT 01840000 AVTAFE30 EQU IEDQAVTD+944 01841000 AVTAFE20 EQU IEDQAVTD+940 01842000 AVTAFE10 EQU IEDQAVTD+936 01843000 AVTCWEC2 EQU IEDQAVTD+932 01844000 AVTCWPM2 EQU IEDQAVTD+928 01845000 AVTCWTS2 EQU IEDQAVTD+927 01846000 AVTCWTS1 EQU IEDQAVTD+926 01847000 AVTCWCLD EQU AVTCWFL2 01848000 AVTCWRAP EQU AVTCWFL2 01849000 @NM00062 EQU AVTCWFL2 01850000 @NM00061 EQU AVTCWFL2 01851000 @NM00060 EQU AVTCWFL2 01852000 @NM00059 EQU AVTCWFL2 01853000 @NM00058 EQU AVTCWFL2 01854000 AVTCWACT EQU AVTCWFL2 01855000 @NM00057 EQU AVTCWFL1 01856000 @NM00056 EQU AVTCWFL1 01857000 @NM00055 EQU AVTCWFL1 01858000 @NM00054 EQU AVTCWFL1 01859000 @NM00053 EQU AVTCWFL1 01860000 @NM00052 EQU AVTCWFL1 01861000 @NM00051 EQU AVTCWFL1 01862000 AVTCOMWN EQU AVTCWFL1 01863000 AVTCWEC1 EQU IEDQAVTD+920 01864000 AVTCWPM1 EQU IEDQAVTD+916 01865000 AVTCAREA EQU IEDQAVTD+912 01866000 AVTFZERO EQU IEDQAVTD+908 01867000 AVTCADDR EQU IEDQAVTD+904 01868000 AVTCOREC EQU IEDQAVTD+900 01869000 @NM00050 EQU IEDQAVTD+892 01870000 AVTCPBCB EQU IEDQAVTD+888 01871000 @NM00049 EQU IEDQAVTD+880 01872000 AVTDSIOB EQU IEDQAVTD+876 01873000 @NM00048 EQU IEDQAVTD+868 01874000 AVTCPRMB EQU IEDQAVTD+864 01875000 @NM00047 EQU IEDQAVTD+856 01876000 AVTCLOSB EQU IEDQAVTD+852 01877000 @NM00046 EQU IEDQAVTD+844 01878000 AVTACTIB EQU IEDQAVTD+840 01879000 @NM00045 EQU IEDQAVTD+836 01880000 AVTOLTEB EQU IEDQAVTD+832 01881000 AVTOLTCH EQU AVTOLTQB+1 01882000 AVTOLTVT EQU AVTOLTQB 01883000 @NM00044 EQU AVTOPCQB+8 01884000 @NM00043 EQU AVTOPCEC+1 01885000 @NM00042 EQU AVTOPCCC 01886000 AVTOPCPO EQU AVTOPCCC 01887000 AVTOPCWA EQU AVTOPCCC 01888000 AVTOPCCH EQU AVTOPCOB+1 01889000 AVTOPCVT EQU AVTOPCOB 01890000 @NM00041 EQU AVTCKPQB+9 01891000 AVTCKPTS EQU AVTCKPQB+8 01892000 @NM00040 EQU AVTCKPEC+1 01893000 @NM00039 EQU AVTCKPCC 01894000 AVTCKPPO EQU AVTCKPCC 01895000 AVTCKPWA EQU AVTCKPCC 01896000 AVTCKPCH EQU AVTCKPTB+1 01897000 AVTCKPVT EQU AVTCKPTB 01898000 @NM00038 EQU IEDQAVTD+796 01899000 AVTBFRTB EQU IEDQAVTD+792 01900000 @NM00037 EQU IEDQAVTD+784 01901000 AVTBFREB EQU IEDQAVTD+780 01902000 AVTTIMQ EQU IEDQAVTD+776 01903000 @NM00036 EQU IEDQAVTD+772 01904000 AVTIMQPS EQU IEDQAVTD+768 01905000 AVTINOUT EQU IEDQAVTD+766 01906000 AVTREFTM EQU IEDQAVTD+764 01907000 @NM00035 EQU IEDQAVTD+752 01908000 AVTDELYB EQU IEDQAVTD+748 01909000 AVTOCQPT EQU IEDQAVTD+744 01910000 AVTTSOPT EQU IEDQAVTD+740 01911000 AVTSUPPT EQU IEDQAVTD+736 01912000 AVTCBQCB EQU IEDQAVTD+732 01913000 AVTMSGS EQU IEDQAVTD+729 01914000 @NM00034 EQU AVTSYSER 01915000 @NM00033 EQU AVTSYSER 01916000 @NM00032 EQU AVTSYSER 01917000 @NM00031 EQU AVTSYSER 01918000 @NM00030 EQU AVTSYSER 01919000 @NM00029 EQU AVTSYSER 01920000 AVTCMAXN EQU AVTSYSER 01921000 AVTCMINN EQU AVTSYSER 01922000 AVT2260L EQU IEDQAVTD+724 01923000 AVTABEPL EQU AVTADBUF 01924000 AVTHFF EQU AVTCLRHI+2 01925000 @NM00028 EQU AVTCLRHI 01926000 AVTCCLNK EQU AVTCRELE+5 01927000 AVTCCPRI EQU AVTCRELE+4 01928000 AVTCCQCB EQU AVTCCELE+1 01929000 AVTCCKEY EQU AVTCCELE 01930000 AVTDELAD EQU IEDQAVTD+704 01931000 AVTDELEM EQU IEDQAVTD+700 01932000 AVTBSX EQU AVTCKLNK 01933000 AVTOPETR EQU AVTHG01 01934000 @NM00027 EQU AVTCKBYT 01935000 AVTCKONQ EQU AVTCKBYT 01936000 @NM00026 EQU AVTCKBYT 01937000 @NM00025 EQU AVTCKBYT 01938000 @NM00024 EQU AVTCKBYT 01939000 @NM00023 EQU AVTCKBYT 01940000 @NM00022 EQU AVTCKBYT 01941000 @NM00021 EQU AVTCKBYT 01942000 AVTOPERT EQU IEDQAVTD+690 01943000 AVTOPXCL EQU IEDQAVTD+688 01944000 AVTOPERL EQU IEDQAVTD+687 01945000 @NM00020 EQU IEDQAVTD+686 01946000 AVTCKTIM EQU IEDQAVTD+684 01947000 AVTCKELV EQU IEDQAVTD+682 01948000 AVTCPRCD EQU IEDQAVTD+681 01949000 AVTWARMN EQU AVTCKELF 01950000 AVTCRTLN EQU AVTCKELF 01951000 AVTCPIPN EQU AVTCKELF 01952000 AVTCCLCN EQU AVTCKELF 01953000 AVTCINCN EQU AVTCKELF 01954000 @NM00019 EQU AVTCKELF 01955000 AVTCMCPN EQU AVTCKELF 01956000 AVTCRDYN EQU AVTCKELF 01957000 AVTCKQAD EQU IEDQAVTD+677 01958000 AVTSCBSZ EQU IEDQAVTD+676 01959000 @NM00018 EQU IEDQAVTD+672 01960000 AVTCKELE EQU IEDQAVTD+668 01961000 @NM00017 EQU AVTCKPEL+8 01962000 AVTCKRLK EQU AVTCKPEL+5 01963000 AVTCKRPR EQU AVTCKPEL+4 01964000 AVTCKRMQ EQU AVTCKRMV+1 01965000 AVTCKRKY EQU AVTCKRMV 01966000 AVTHK EQU IEDQAVTD+648 01967000 AVTHI EQU IEDQAVTD+644 01968000 AVTIOT EQU IEDQAVTD+640 01969000 AVTNX EQU IEDQAVTD+636 01970000 AVTTONE EQU IEDQAVTD+632 01971000 AVTA3TL EQU IEDQAVTD+628 01972000 AVTDMECB EQU IEDQAVTD+624 01973000 AVTABEND EQU IEDQAVTD+618 01974000 AVTPLCBN EQU IEDQAVTD+616 01975000 @NM00016 EQU AVTSAVTP+1 01976000 @NM00015 EQU AVTSAVTF 01977000 AVTSNA EQU AVTSAVTF 01978000 AVTONSNA EQU AVTSAVTF 01979000 AVTVTMCP EQU AVTSAVTF 01980000 @NM00014 EQU IEDQAVTD+608 01981000 AVTCMBSS EQU IEDQAVTD+604 01982000 AVTRCV EQU IEDQAVTD+600 01983000 AVTSEND EQU IEDQAVTD+596 01984000 AVTCSCH EQU IEDQAVTD+592 01985000 AVTQ1 EQU IEDQAVTD+588 01986000 AVTE7 EQU IEDQAVTD+584 01987000 AVTHB EQU IEDQAVTD+580 01988000 AVTR1 EQU IEDQAVTD+576 01989000 AVTBZ EQU IEDQAVTD+572 01990000 AVTEZ EQU IEDQAVTD+568 01991000 AVTEC EQU IEDQAVTD+564 01992000 AVTEW EQU IEDQAVTD+560 01993000 AVTNDIAL EQU AVTSCOPT 01994000 AVTN2741 EQU AVTSCOPT 01995000 AVTCONCO EQU AVTSCOPT 01996000 AVTCONC EQU AVTSCOPT 01997000 AVTCMBUF EQU AVTSCOPT 01998000 AVTAPDMP EQU AVTSCOPT 01999000 @NM00013 EQU AVTSCOPT 02000000 AVTHA EQU AVTDISP 02001000 AVTEA EQU IEDQAVTD+548 02002000 AVTAX EQU IEDQAVTD+544 02003000 AVTA3 EQU IEDQAVTD+540 02004000 AVTGD EQU IEDQAVTD+536 02005000 AVTAL EQU IEDQAVTD+532 02006000 AVTOLTST EQU AVTHG02 02007000 AVTE8 EQU IEDQAVTD+524 02008000 AVTCOMPT EQU IEDQAVTD+516 02009000 AVTCRSRF EQU IEDQAVTD+512 02010000 @NM00012 EQU IEDQAVTD+508 02011000 AVTKA02 EQU IEDQAVTD+504 02012000 AVTOPTPT EQU IEDQAVTD+500 02013000 AVTPCBPT EQU IEDQAVTD+496 02014000 AVTOSECB EQU IEDQAVTD+492 02015000 AVTOPECA EQU IEDQAVTD+488 02016000 AVTOLECA EQU IEDQAVTD+484 02017000 AVTCKECA EQU IEDQAVTD+480 02018000 AVTCWECA EQU IEDQAVTD+476 02019000 AVTCWTCB EQU IEDQAVTD+472 02020000 AVTOLTCB EQU IEDQAVTD+468 02021000 AVTOCTCB EQU IEDQAVTD+464 02022000 AVTCKTCB EQU IEDQAVTD+460 02023000 AVTAS EQU IEDQAVTD+456 02024000 AVTNOLBF EQU IEDQAVTD+454 02025000 AVTNCKPR EQU IEDQAVTD+453 02026000 AVTCIB EQU IEDQAVTD+452 02027000 AVTSPLPT EQU IEDQAVTD+448 02028000 AVTMVBFR EQU IEDQAVTD+444 02029000 AVTSBTA EQU IEDQAVTD+440 02030000 AVTRARTN EQU IEDQAVTD+436 02031000 AVTBSCAN EQU IEDQAVTD+432 02032000 AVTRDYA EQU IEDQAVTD+428 02033000 AVTDISTR EQU IEDQAVTD+420 02034000 AVTPARM3 EQU IEDQAVTD+416 02035000 @NM00011 EQU AVTPKF 02036000 @NM00010 EQU AVTPKF 02037000 @NM00009 EQU AVTPKF 02038000 AVTFTCHF EQU AVTPKF 02039000 @NM00008 EQU AVTPKF 02040000 @NM00007 EQU AVTPKF 02041000 @NM00006 EQU AVTPKF 02042000 @NM00005 EQU AVTPKF 02043000 AVTPARM EQU IEDQAVTD+408 02044000 AVTEXS2A EQU IEDQAVTD+402 02045000 AVTEXA2S EQU IEDQAVTD+396 02046000 AVTOCGET EQU IEDQAVTD+392 02047000 AVTCKAVT EQU @NM00003+1 02048000 @NM00004 EQU AVTCKFLG 02049000 AVTCKHLT EQU AVTCKFLG 02050000 AVTCKREQ EQU AVTCKFLG 02051000 AVTCKENV EQU AVTCKFLG 02052000 AVTCKNAC EQU AVTCKFLG 02053000 AVTCKTAC EQU AVTCKFLG 02054000 @NM00002 EQU IEDQAVTD+384 02055000 AVTREADD EQU IEDQAVTD+380 02056000 AVTREADY EQU IEDQAVTD+376 02057000 AVTRACE EQU IEDQAVTD+372 02058000 AVTTCB EQU IEDQAVTD+368 02059000 AVTPASWD EQU IEDQAVTD+360 02060000 AVTCTLCH EQU IEDQAVTD+352 02061000 AVTDOUBX EQU IEDQAVTD+336 02062000 AVTDPARM EQU IEDQAVTD+332 02063000 AVTCSTCS EQU IEDQAVTD+328 02064000 AVTDLQ EQU AVTSAVEX+32 02065000 @NM00001 EQU AVTSAVEX 02066000 AVTSAVE4 EQU IEDQAVTD+216 02067000 AVTSAVE3 EQU IEDQAVTD+144 02068000 AVTSAVE2 EQU IEDQAVTD+72 02069000 AVTSAVE1 EQU IEDQAVTD 02070000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02071000 @RF00155 EQU @RC00126 02072000 @RC00157 EQU @RC00126 02073000 @RC00228 EQU @EL00002 02074000 @RC00233 EQU @EL00002 02075000 @RF00251 EQU @EL00003 02076000 @RC00253 EQU @EL00003 02077000 @RC00263 EQU @RC00261 02078000 @RF00273 EQU @EL00004 02079000 @RC00275 EQU @EL00004 02080000 @RF00283 EQU @EL00004 02081000 @RF00295 EQU @EL00005 02082000 @RC00297 EQU @EL00005 02083000 @PB00005 EQU @EL00001 02084000 @RC00277 EQU @RC00275 02085000 @PB00004 EQU @PB00005 02086000 @RC00301 EQU @RC00297 02087000 @RF00308 EQU @RC00297 02088000 @PB00003 EQU @PB00004 02089000 @PB00002 EQU @PB00003 02090000 @ENDDATA EQU * 02091000 END IEDIAR,(C'PLS0121',0701,77033) 02092000