TITLE 'IEDNLT - 3705 LINE TRACE ROUTINE *00001000 ' 00002000 IEDNLT CSECT , 0001 00003000 @PROLOG ST @14,12(,@13) 0001 00004000 STM @00,@12,20(@13) 0001 00005000 * /* @Y17XASS*/ 00006000 USING IEDNLT,RBASE @Y17XASS 00007000 LR RBASE,RBRNCH @Y17XASS 00008000 IEDNLT IEDHJN AFTERHJN MODULE IDENTIFICATION @Y17XASS 00009000 * RPRF=RPARM; /* PIU BASE @Y17XASS*/ 00010000 LR RPRF,RPARM 0115 00011000 * RWORK=PRFPIUO+ADDR(PRFPIUO); /* TH ADDRESS @Y17XASS*/ 00012000 LA RWORK,PRFPIUO(,RPRF) 0116 00013000 SLR @14,@14 0116 00014000 IC @14,PRFPIUO(,RPRF) 0116 00015000 ALR RWORK,@14 0116 00016000 * RPARM=TTHOAF; /* TNT INDEX @Y17XASS*/ 00017000 SLR RPARM,RPARM 0117 00018000 ICM RPARM,3,TTHOAF(RWORK) 0117 00019000 * CALL IEDQTNT; /* @Y17XASS*/ 00020000 L @15,AVTRNMPT(,IEDQAPTR) 0118 00021000 BALR @14,@15 0118 00022000 * RFY 0119 00023000 * (REG0, 0119 00024000 * SAVER13) RSTD; /* @Y17XASS*/ 00025000 * REG0=TRMNCPIM; /* DEVICE DEPENDENT FIELD 0120 00026000 * SELECTOR MASK @Y17XASS*/ 00027000 LA REG0,8 0120 00028000 * SAVER13=RSAVE; /* SAVE REG 13 @Y17XASS*/ 00029000 LR SAVER13,RSAVE 0121 00030000 * RSAVE=ADDR(AVTSAVE3); /* SAVE AREA FOR IEDQTL @Y17XASS*/ 00031000 LA @14,AVTSAVE3(,IEDQAPTR) 0122 00032000 LR RSAVE,@14 0122 00033000 * RFY 0123 00034000 * IEDQAVTD BASED(SAVER13); /* @Y17XASI*/ 00035000 * CALL IEDQTL; /* GET DEVICE DEPENDENT ADDRESS 00036000 * @Y17XASS*/ 00037000 L @15,AVTDDFT(,SAVER13) 0124 00038000 BALR @14,@15 0124 00039000 * RSAVE=SAVER13; /* RESTORE AVT POINTER @Y17XASS*/ 00040000 LR RSAVE,SAVER13 0125 00041000 * RFY 0126 00042000 * IEDQAVTD BASED(RSAVE); /* @Y17XASI*/ 00043000 * RNCPI=RBRNCH; /* DEVICE DEPENDENT ADDRESS 0127 00044000 * @Y17XASS*/ 00045000 LR RNCPI,RBRNCH 0127 00046000 * RFY 0128 00047000 * (REG0, 0128 00048000 * SAVER13) UNRSTD; /* @Y17XASS*/ 00049000 * RHEADER=NCPLTRAC; /* TRACE TABLE ADDRESS @Y17XASS*/ 00050000 ICM RHEADER,15,NCPLTRAC(RNCPI) 0129 00051000 * RRLTD=ADDR(IEDTH)+LENGTH(IEDTH)+LENGTH(IEDRH);/* RECORD LINE 0130 00052000 * TRACE DATA PIU ADDRESS 0130 00053000 * @Y17XASS*/ 00054000 LA RRLTD,13 0130 00055000 ALR RRLTD,RWORK 0130 00056000 * RLEN=TTHDCF-LENGTH(IEDRH)-LENGTH(RLTDRU);/* TOTAL PIU DATA SIZE 00057000 * @Y17XASS*/ 00058000 SLR RLEN,RLEN 0131 00059000 ICM RLEN,3,TTHDCF(RWORK) 0131 00060000 SL RLEN,@CF00236 0131 00061000 * RDATA=RWORK+LENGTH(IEDTH)+LENGTH(IEDRH)+LENGTH(RLTDRU);/* ADDRESS 00062000 * OF DATA @Y17XASS*/ 00063000 LA RDATA,22 0132 00064000 ALR RDATA,RWORK 0132 00065000 * RFY 0133 00066000 * RTABHALF RSTD; /* @YM05734*/ 00067000 * RTABHALF=HEDFSTHF; /* ASSUME FIRST TABLE-HALF 0134 00068000 * @YM05734*/ 00069000 L RTABHALF,HEDFSTHF-1(,RHEADER) 0134 00070000 LA RTABHALF,0(,RTABHALF) 0134 00071000 * IF HEDTBL1=OFF THEN /* USING 2ND TABLE-HALF @YM05734*/ 00072000 TM HEDTBL1(RHEADER),B'10000000' 0135 00073000 BNZ @RF00135 0135 00074000 * RTABHALF=HEDSECHF; /* ... GET 2ND TBL-HALF ADDR */ 00075000 L RTABHALF,HEDSECHF-1(,RHEADER) 0136 00076000 LA RTABHALF,0(,RTABHALF) 0136 00077000 * IF RLEN^=ZERO THEN /* PIU WITH DATA */ 00078000 @RF00135 LTR RLEN,RLEN 0137 00079000 BZ @RF00137 0137 00080000 * DO; /* YES */ 00081000 EJECT 00082000 * 0139 00083000 */********************************************************************/ 00084000 */* THIS LOOP MOVES ALL OF THE LINE TRACE DATA FROM THE */ 00085000 */* INPUT BUFFER INTO THE TRACE TABLE. EACH PASS THROUGH */ 00086000 */* THE LOOP MOVES THE DATA OUT OF ONE BUFFER UNIT, THEN */ 00087000 */* GETS THE ADDRESS OF THE NEXT UNIT. THE LOOP ENDS */ 00088000 */* WHEN ALL OF THE DATA HAS BEEN MOVED. */ 00089000 */********************************************************************/ 00090000 * 0139 00091000 * RFY 0139 00092000 * (RTBPOS, 0139 00093000 * RUSIZE) RSTD; /* @Y17XASS*/ 00094000 * IF RLTDT3=ON THEN /* IF THIS IS TYPE THREE SCANNER 00095000 * ... @Y17XASI*/ 00096000 TM RLTDT3(RRLTD),B'00000010' 0140 00097000 BNO @RF00140 0140 00098000 * DO; /* ... INITIALIZE FOR DIFFERENT 00099000 * SCANNER @Y17XASI*/ 00100000 * HEDID=LIN3; /* SET COMWRITE INDICATOR 0142 00101000 * @Y17XASI*/ 00102000 MVC HEDID(4,RHEADER),@CC01027 0142 00103000 * IF RLEN>HEDREMLN& /* IF DATA LENGTH IS LARGER THAN 00104000 * AVAILABLE LENGTH IN THIS 0143 00105000 * TABLE-HALF ... @Y17XASI*/ 00106000 * HEDREMLN^=HEDDATLN THEN/* ... AND THIS TABLE-HALF IS 00107000 * NOT EMPTY ... @Y17XASI*/ 00108000 LH @14,HEDREMLN(,RHEADER) 0143 00109000 CR RLEN,@14 0143 00110000 BNH @RF00143 0143 00111000 CH @14,HEDDATLN(,RHEADER) 0143 00112000 BE @RF00143 0143 00113000 * DO; /* BEGIN TRACING IN NEXT 0144 00114000 * TABLE-HALF @Y17XASI*/ 00115000 * RTBPOS=HEDTBPOS; /* POINT TO CURRENT ENTRY IN THIS 00116000 * TABLE-HALF @Y17XASI*/ 00117000 L RTBPOS,HEDTBPOS(,RHEADER) 0145 00118000 * RWORK=HEDREMLN-ONE; /* COMPUTE REMAINING LENGTH LESS 00119000 * ONE FOR EXECUTE INSTRUCTION 0146 00120000 * @Y17XASI*/ 00121000 BCTR @14,0 0146 00122000 LR RWORK,@14 0146 00123000 * GEN; 0147 00124000 * /* @Y17XASI*/ 00125000 EX RWORK,CLRDATA CLEAR REST OF TABLE @Y17XASI 00126000 * CALL FULLTBL; /* CHECK FOR COMWRITE AND SET UP 00127000 * POINTERS TO NEXT HALF OF THE 00128000 * TABLE @Y17XASI*/ 00129000 BAL @14,FULLTBL 0148 00130000 * END; /* @Y17XASI*/ 00131000 * ELSE 0150 00132000 * ; /* @Y17XASI*/ 00133000 @RF00143 DS 0H 0151 00134000 * END; /* @Y17XASI*/ 00135000 * ELSE 0152 00136000 * ; /* @Y17XASI*/ 00137000 @RF00140 DS 0H 0153 00138000 * DO UNTIL RLEN=ZERO; /* LOOP UNTIL ALL DATA IS 0153 00139000 * PROCESSED @Y17XASI*/ 00140000 @DL00153 DS 0H 0154 00141000 * RUSIZE=ADDR(PRFSUNIT)+AVTKEYLE-RDATA;/* COMPUTE MAXIMUM 0154 00142000 * DATA LENGTH LEFT IN THIS UNIT 00143000 * @Y17XASI*/ 00144000 LA RUSIZE,PRFSUNIT(,RPRF) 0154 00145000 AH RUSIZE,AVTKEYLE(,RSAVE) 0154 00146000 SLR RUSIZE,RDATA 0154 00147000 * IF RUSIZE>RLEN THEN /* DOES DATA END BEFORE END OF 0155 00148000 * UNIT */ 00149000 CR RUSIZE,RLEN 0155 00150000 BNH @RF00155 0155 00151000 * RUSIZE=RLEN; /* YES, USE REMAINING DATA LENGTH 00152000 * INSTEAD */ 00153000 LR RUSIZE,RLEN 0156 00154000 * RTBPOS=HEDTBPOS; /* GET TABLE ENTRY ADDRESS */ 00155000 @RF00155 L RTBPOS,HEDTBPOS(,RHEADER) 0157 00156000 * DO WHILE RUSIZE>HEDREMLN; /* IF THE AMOUNT OF DATA IN THE 00157000 * BFR UNIT IS TOO BIG TO FIT 0158 00158000 * INTO THE CURRENT HALF-TBL THEN 00159000 * MOVE ENOUGH DATA IN TO FILL 0158 00160000 * THE HALF-TABLE, AND SAVE THE 00161000 * REST FOR LATER @Y17XASI*/ 00162000 B @DE00158 0158 00163000 @DL00158 DS 0H 0159 00164000 * RWORK=HEDREMLN-ONE; /* GET NUMBER OF BYTES SPACE LEFT 00165000 * IN HALF-TABLE (MINUS ONE FOR 00166000 * EXECUTE INSTR) */ 00167000 LH RWORK,HEDREMLN(,RHEADER) 0159 00168000 BCTR RWORK,0 0159 00169000 * GEN(EX RWORK,MVCDATA); /* FILL UP THE HALF-TABLE */ 00170000 EX RWORK,MVCDATA 00171000 * IF RLTDT3=ON THEN /* IF THIS IS TYPE THREE SCANNER 00172000 * INPUT THEN ... @Y17XASI*/ 00173000 TM RLTDT3(RRLTD),B'00000010' 0161 00174000 BNO @RF00161 0161 00175000 * DO; /* ... DON'T ALLOW TRACE TO SPAN 00176000 * TABLE-HALVES @Y17XASI*/ 00177000 * RUSIZE=ZERO; /* NO MORE DATA TO TRACE @Y17XASI*/ 00178000 SLR RUSIZE,RUSIZE 0163 00179000 * RLEN=ZERO; /* EXIT CRITERIA @Y17XASI*/ 00180000 SLR RLEN,RLEN 0164 00181000 * END; /* @Y17XASI*/ 00182000 * ELSE /* ALLOW NON-TYPE-THREE SCANNER 00183000 * DATA TO SPAN TABLE HALVES 0166 00184000 * @Y17XASI*/ 00185000 * DO; /* @Y17XASI*/ 00186000 B @RC00161 0166 00187000 @RF00161 DS 0H 0167 00188000 * RDATA=RDATA+HEDREMLN;/* ADDR OF 1ST UNMOVED BYTE */ 00189000 LH @14,HEDREMLN(,RHEADER) 0167 00190000 ALR RDATA,@14 0167 00191000 * RUSIZE=RUSIZE-HEDREMLN;/* NUMBER OF BYTES IN THIS 0168 00192000 * UNIT STILL TO BE MOVED */ 00193000 SLR RUSIZE,@14 0168 00194000 * RLEN=RLEN-HEDREMLN; /* TOTAL NUMBER OF BYTES IN 0169 00195000 * ENTIRE BUFFER STILL TO BE 0169 00196000 * MOVED */ 00197000 SLR RLEN,@14 0169 00198000 * END; /* @Y17XASI*/ 00199000 * CALL FULLTBL; /* SET PROPER BITS TO INDICATE 0171 00200000 * HALF-TABLE-FULL CONDITION, AND 00201000 * ADJUST POINTERS TO THE START 00202000 * OF NEXT HALF-TABLE @Y17XASS*/ 00203000 @RC00161 BAL @14,FULLTBL 0171 00204000 * RTBPOS=HEDTBPOS; /* GET TABLE ENTRY ADDRESS 0172 00205000 * @Y17XASI*/ 00206000 L RTBPOS,HEDTBPOS(,RHEADER) 0172 00207000 * END; /* THE CURRENT HALF-TABLE HAS 0173 00208000 * ENOUGH SPACE TO HOLD ALL THE 00209000 * DATA IN THIS UNIT. */ 00210000 @DE00158 CH RUSIZE,HEDREMLN(,RHEADER) 0173 00211000 BH @DL00158 0173 00212000 * IF RUSIZE^=ZERO THEN /* ANY DATA LEFT TO MOVE @Y17XASI*/ 00213000 LTR RUSIZE,RUSIZE 0174 00214000 BZ @RF00174 0174 00215000 * DO; /* @Y17XASI*/ 00216000 * RWORK=RUSIZE-ONE; /* LENGTH FOR EXECUTE INSTRUCTION*/ 00217000 LR RWORK,RUSIZE 0176 00218000 BCTR RWORK,0 0176 00219000 * GEN(EX RWORK,MVCDATA);/* MOVE ALL DATA FROM UNIT INTO 00220000 * THE TABLE */ 00221000 EX RWORK,MVCDATA 00222000 * RLEN=RLEN-RUSIZE; /* TOTAL NUMBER OF BYTES IN 0178 00223000 * ENTIRE BUFFER STILL TO BE 0178 00224000 * MOVED. */ 00225000 SLR RLEN,RUSIZE 0178 00226000 * HEDREMLN=HEDREMLN-RUSIZE;/* AMOUNT OF SPACE STILL LEFT 00227000 * IN CURRENT HALF-TABLE */ 00228000 LH @14,HEDREMLN(,RHEADER) 0179 00229000 SLR @14,RUSIZE 0179 00230000 STH @14,HEDREMLN(,RHEADER) 0179 00231000 * HEDTBPOS=RTBPOS+RUSIZE;/* NEXT EMPTY BYTE IN TABLE */ 00232000 LR @00,RTBPOS 0180 00233000 ALR @00,RUSIZE 0180 00234000 ST @00,HEDTBPOS(,RHEADER) 0180 00235000 * IF HEDREMLN=ZERO THEN /* IS HALF-TABLE FULL */ 00236000 LTR @14,@14 0181 00237000 BNZ @RF00181 0181 00238000 * CALL FULLTBL; /* YES, GO SET BITS TO INDICATE 00239000 * HALF-TABLE-FULL CONDITION, AND 00240000 * ADJUST POINTERS TO THE START 00241000 * OF NEXT HALF-TABLE @Y17XASS*/ 00242000 BAL @14,FULLTBL 0182 00243000 * END; /* @Y17XASS*/ 00244000 @RF00181 DS 0H 0184 00245000 * RPRF=PRFTIC; /* GET ADDR OF NEXT UNIT */ 00246000 @RF00174 L RPRF,PRFTIC(,RPRF) 0184 00247000 * RDATA=ADDR(PRFSUNIT); /* GET START-OF-DATA ADDRESS IN 00248000 * THE NEW UNIT */ 00249000 LA RDATA,PRFSUNIT(,RPRF) 0185 00250000 * END; /* GO MOVE DATA FROM NEW UNIT */ 00251000 @DE00153 LTR RLEN,RLEN 0186 00252000 BNZ @DL00153 0186 00253000 * END; /* @Y17XASS*/ 00254000 EJECT 00255000 * 0188 00256000 */********************************************************************/ 00257000 */* CHECK TO SEE IF THE LINE-TRACE FUNCTION IS BEING */ 00258000 */* TERMINATED. IF SO, THEN SET UP THE APPROPRIATE */ 00259000 */* BITS AND THE LENGTH FIELD TO FORCE THE WRITE-OUT */ 00260000 */* OF THE CURRENT PARTLY FULL TABLE-HALF THRU COMWRITE. */ 00261000 */********************************************************************/ 00262000 * 0188 00263000 * IF RLTDIN=ON& /* IF TRACE IS ENDED @Y17XASI*/ 00264000 * HEDCWOK=ON& /* AND COMWRITE IS NOT ACTIVE 0188 00265000 * @Y17XASI*/ 00266000 * HEDREMLN^=HEDDATLN THEN /* AND TABLE-HALF IS NOT EMPTY 0188 00267000 * @Y17XASI*/ 00268000 @RF00137 TM RLTDIN(RRLTD),B'00000010' 0188 00269000 BNO @RF00188 0188 00270000 TM HEDCWOK(RHEADER),B'01000000' 0188 00271000 BNO @RF00188 0188 00272000 CLC HEDREMLN(2,RHEADER),HEDDATLN(RHEADER) 0188 00273000 BE @RF00188 0188 00274000 * DO; /* @Y17XASI*/ 00275000 * TABSEQCT=HEDSEQCT+1; /* SET PROPER SEQUENCE NO. */ 00276000 LA @14,1 0190 00277000 AH @14,HEDSEQCT(,RHEADER) 0190 00278000 ST @14,TABSEQCT(,RTABHALF) 0190 00279000 * IF HEDTBL1=ON THEN /* 1ST HALF-TABLE BEING USED */ 00280000 TM HEDTBL1(RHEADER),B'10000000' 0191 00281000 BNO @RF00191 0191 00282000 * HEDFULL1=ON; /* YES, INDICATE 1ST HALF FULL */ 00283000 OI HEDFULL1(RHEADER),B'01000000' 0192 00284000 * ELSE /* NO, ... */ 00285000 * HEDFULL2=ON; /* ... INDICATE 2ND HALF FULL */ 00286000 B @RC00191 0193 00287000 @RF00191 OI HEDFULL2(RHEADER),B'00100000' 0193 00288000 * HEDLNTH=HEDHLFSZ-HEDREMLN; /* ADJUST LENGTH FOR PARTLY-FULL 00289000 * TABLE @Y17XASI*/ 00290000 @RC00191 LH @14,HEDHLFSZ(,RHEADER) 0194 00291000 SH @14,HEDREMLN(,RHEADER) 0194 00292000 STH @14,HEDLNTH(,RHEADER) 0194 00293000 * END; /* TRY TO DUMP TABLE @Y17XASS*/ 00294000 EJECT 00295000 * 0196 00296000 */********************************************************************/ 00297000 */* CHECK TO SEE IF ONE OF THE TWO HALF-TABLES IS FULL. */ 00298000 */* IF SO, THEN ATTEMPT TO WRITE OUT THE HALF-TABLE DATA */ 00299000 */* THRU COMWRITE. */ 00300000 */********************************************************************/ 00301000 * 0196 00302000 * ELSE /* @Y17XASS*/ 00303000 * HEDLNTH=HEDHLFSZ; /* SIZE OF ENTIRE HALF-TABLE 0196 00304000 * @Y17XASI*/ 00305000 B @RC00188 0196 00306000 @RF00188 LH @14,HEDHLFSZ(,RHEADER) 0196 00307000 STH @14,HEDLNTH(,RHEADER) 0196 00308000 * IF HEDFULL1=ON| /* 1ST HALF-TABLE FULL? OR */ 00309000 * HEDFULL2=ON THEN /* 2ND HALF-TABLE FULL? */ 00310000 @RC00188 TM HEDFULL1(RHEADER),B'01100000' 0197 00311000 BZ @RF00197 0197 00312000 * DO; /* YES, TRY TO WRITE TABLE */ 00313000 * CALL TESTECBS; /* GO CHECK COMWRITE ECBS */ 00314000 BAL @14,TESTECBS 0199 00315000 * IF HEDECBAV=ON THEN /* IS AN ECB AVAILABLE */ 00316000 TM HEDECBAV(RHEADER),B'00010000' 0200 00317000 BNO @RF00200 0200 00318000 * DO; /* YES */ 00319000 * AQECB=RPARM; /* SET UP PARAMETER LIST ... */ 00320000 ST RPARM,AQECB 0202 00321000 * AQFNCTN=POSTCW; /* ... TO POST COMWRITE ECB */ 00322000 MVI AQFNCTN,X'20' 0203 00323000 * AQTCB=AVTCWTCB; /* INSERT COMWRITE TCB ADDR */ 00324000 L @14,AVTCWTCB(,RSAVE) 0204 00325000 ST @14,AQTCB 0204 00326000 * IF HEDFULL1=ON THEN /* IS 1ST HALF-TBL FULL */ 00327000 TM HEDFULL1(RHEADER),B'01000000' 0205 00328000 BNO @RF00205 0205 00329000 * DO; /* YES, 1ST-HALF PARAMETERS */ 00330000 * HEDAREA=HEDFSTHF; /* DATA ADDRESS @Y17XASI*/ 00331000 L @14,HEDFSTHF-1(,RHEADER) 0207 00332000 LA @14,0(,@14) 0207 00333000 ST @14,HEDAREA(,RHEADER) 0207 00334000 * HEDFULL1=OFF; /* RESET TABLE-FULL SWITCH */ 00335000 NI HEDFULL1(RHEADER),B'10111111' 0208 00336000 * END; 0209 00337000 * ELSE /* NO, ... */ 00338000 * DO; /* ... 2ND-HALF PARAMETERS */ 00339000 B @RC00205 0210 00340000 @RF00205 DS 0H 0211 00341000 * HEDAREA=HEDSECHF; /* DATA ADDRESS @Y17XASI*/ 00342000 L @14,HEDSECHF-1(,RHEADER) 0211 00343000 LA @14,0(,@14) 0211 00344000 ST @14,HEDAREA(,RHEADER) 0211 00345000 * HEDFULL2=OFF; /* RESET TABLE-FULL SWITCH */ 00346000 NI HEDFULL2(RHEADER),B'11011111' 0212 00347000 * END; 0213 00348000 * HEDFLAG=HEXZERO; /* TURN OFF COMPLETION FLAG 0214 00349000 * @Y17XASI*/ 00350000 @RC00205 MVI HEDFLAG(RHEADER),X'00' 0214 00351000 * RPARM=ADDR(AQPARM); /* PARAMETER LIST ADDRESS */ 00352000 LA RPARM,AQPARM 0215 00353000 * GEN(AQCTL); /* SVC TO POST COMWRITE ECB */ 00354000 AQCTL 00355000 * END; 0217 00356000 * END; 0218 00357000 @RF00200 DS 0H 0219 00358000 * IF RLTDIN=ON&RLTDTE=ON THEN /* TRACE ENDED AND ENDED BY 0219 00359000 * SLOWDOWN @Y17XASS*/ 00360000 @RF00197 TM RLTDIN(RRLTD),B'00000011' 0219 00361000 BNO @RF00219 0219 00362000 * DO; /* TERMINATE TRACE @Y17XASS*/ 00363000 * RRTN=FOUR; /* NON ZERO RETURN CODE @Y17XASS*/ 00364000 LA RRTN,4 0221 00365000 * NCPTRACE=OFF; /* RESET TRACE ACTIVE @Y17XASS*/ 00366000 NI NCPTRACE(RNCPI),B'11111101' 0222 00367000 * END; /* @Y17XASS*/ 00368000 * ELSE /* @Y17XASS*/ 00369000 * RRTN=ZERO; /* ZERO RETURN CODE @Y17XASS*/ 00370000 B @RC00219 0224 00371000 @RF00219 SLR RRTN,RRTN 0224 00372000 * RETURN; /* RETURN TO CALLER @Y17XASS*/ 00373000 @EL00001 DS 0H 0225 00374000 @EF00001 DS 0H 0225 00375000 @ER00001 L @14,12(,@13) 0225 00376000 LM @00,@12,20(@13) 0225 00377000 BR @14 0225 00378000 EJECT 00379000 * 0226 00380000 */********************************************************************* 00381000 ** THIS SUBROUTINE GAINS CONTROL WHEN EITHER OF THE * 00382000 ** HALF-TABLES IS FILLED UP. IT TESTS WHETHER THE OTHER * 00383000 ** HALF-TABLE IS AVAILABLE FOR USE (IT COULD STILL BE IN * 00384000 ** USE BY COMWRITE). IF AVAILABLE, POINTERS AND TABLE-FULL * 00385000 ** BITS ARE SET TO SO INDICATE. IF NOT AVAILABLE, POINTERS * 00386000 ** ARE SET TO RE-USE THE CURRENT HALF-TABLE, THUS * 00387000 ** THROWING AWAY THE DATA CURRENTLY THERE WITHOUT * 00388000 ** PASSING IT TO COMWRITE. * 00389000 **********************************************************************/ 00390000 * 0226 00391000 *FULLTBL: 0226 00392000 * PROC OPTIONS(RETREG,NOSAVE); /* @Y17XASI*/ 00393000 FULLTBL DS 0H 0227 00394000 * RFY 0227 00395000 * R14 RSTD; /* @Y17XASI*/ 00396000 * HEDSEQCT=HEDSEQCT+1; /* UPDATA SEQUENCE COUNTER */ 00397000 LA @00,1 0228 00398000 AH @00,HEDSEQCT(,RHEADER) 0228 00399000 STH @00,HEDSEQCT(,RHEADER) 0228 00400000 * TABSEQCT=HEDSEQCT; /* PUT SEQUENCE NO INTO TABLE */ 00401000 ST @00,TABSEQCT(,RTABHALF) 0229 00402000 * IF HEDCWOK=ON THEN /* OTHER HALF-TABLE NOT IN USE BY 00403000 * COMWRITE @Y17XASI*/ 00404000 TM HEDCWOK(RHEADER),B'01000000' 0230 00405000 BNO @RF00230 0230 00406000 * DO; /* GO TO OTHER HALF-TABLE */ 00407000 * IF HEDTBL1=ON THEN /* ARE WE NOW IN 1ST HALF-TBL */ 00408000 TM HEDTBL1(RHEADER),B'10000000' 0232 00409000 BNO @RF00232 0232 00410000 * DO; /* YES */ 00411000 * HEDTBL1=OFF; /* MARK 2ND HALF-TABLE IN USE */ 00412000 * HEDFULL1=ON; /* MARK 1ST HALF-TABLE FULL */ 00413000 * HEDFULL2=OFF; /* MARK 2ND HALF-TABLE EMPTY */ 00414000 OI HEDFULL1(RHEADER),B'01000000' 0236 00415000 NI HEDTBL1(RHEADER),B'01011111' 0236 00416000 * RTABHALF=HEDSECHF; /* GET ADDR OF 2ND HALF-TABLE */ 00417000 L RTABHALF,HEDSECHF-1(,RHEADER) 0237 00418000 LA RTABHALF,0(,RTABHALF) 0237 00419000 * END; 0238 00420000 * ELSE /* NO, NOW USING 2ND HALF-TBL */ 00421000 * DO; 0239 00422000 B @RC00232 0239 00423000 @RF00232 DS 0H 0240 00424000 * HEDTBL1=ON; /* MARK 1ST HALF-TABLE IN USE */ 00425000 * HEDFULL1=OFF; /* MARK 1ST HALF-TABLE EMPTY */ 00426000 * HEDFULL2=ON; /* MARK 2ND HALF-TABLE FULL */ 00427000 OI HEDTBL1(RHEADER),B'10100000' 0242 00428000 NI HEDFULL1(RHEADER),B'10111111' 0242 00429000 * RTABHALF=HEDFSTHF; /* GET ADDR OF 1ST HALF-TABLE */ 00430000 L RTABHALF,HEDFSTHF-1(,RHEADER) 0243 00431000 LA RTABHALF,0(,RTABHALF) 0243 00432000 * END; 0244 00433000 * END; 0245 00434000 @RC00232 DS 0H 0246 00435000 * HEDTBPOS=RTABHALF+TABCTLSZ; /* POINT TO 1ST BYTE IN THE NEW 00436000 * (OR REUSED) HALF-TABLE */ 00437000 @RF00230 LR @00,RTABHALF 0246 00438000 AH @00,TABCTLSZ 0246 00439000 ST @00,HEDTBPOS(,RHEADER) 0246 00440000 * HEDREMLN=HEDDATLN; /* REMAINING LENGTH = SIZE OF 0247 00441000 * ENTIRE HALF-TABLE */ 00442000 LH @00,HEDDATLN(,RHEADER) 0247 00443000 STH @00,HEDREMLN(,RHEADER) 0247 00444000 * RFY 0248 00445000 * R14 UNRSTD; /* @Y17XASI*/ 00446000 * RETURN; /* RETURN TO CALLER @Y17XASS*/ 00447000 @EL00002 DS 0H 0249 00448000 @EF00002 DS 0H 0249 00449000 @ER00002 BR @14 0249 00450000 * END FULLTBL; /* @Y17XASS*/ 00451000 EJECT 00452000 * 0251 00453000 */********************************************************************* 00454000 ** THIS SUBROUTINE CHECKS TO SEE IF ONE OF THE COMWRITE * 00455000 ** ECBS IS AVAILABLE FOR USE. A SWITCH IS * 00456000 ** SET TO INDICATE THE RESULT OF THIS CHECK. IF AN ECB IS * 00457000 ** AVAILABLE, ITS ADDRESS IS RETURNED IN RPARM AND ITS * 00458000 ** CORRESPONDING COMWRITE PARAMETER LIST ADDRESS IS * 00459000 ** INITIALIZED. * 00460000 **********************************************************************/ 00461000 * 0251 00462000 *TESTECBS: 0251 00463000 * PROC OPTIONS(RETREG,NOSAVE); /* @Y17XASS*/ 00464000 TESTECBS DS 0H 0252 00465000 * RFY 0252 00466000 * R14 RSTD; /* @Y17XASI*/ 00467000 * HEDECBAV=OFF; /* ASSUME ECB NOT AVAILABLE */ 00468000 NI HEDECBAV(RHEADER),B'11101111' 0253 00469000 * GENERATE REFS(IEDQAPTR) SETS(AVTCWTS1,AVTCWTS2); 0254 00470000 TS AVTCWTS1(IEDQAPTR) COMWRITE ECB1 AVAILABLE 00471000 BZ ECB1 BRANCH IF YES 00472000 TS AVTCWTS2(IEDQAPTR) COMWRITE ECB2 AVAILABLE 00473000 BNZ ENDTEST BRANCH IF NO, CANNOT DUMP NOW 00474000 *ECB2: 0255 00475000 * AVTCWPM2=ADDR(HEDLIST); /* PARAMETER LIST ADDRESS 0255 00476000 * @Y17XASI*/ 00477000 ECB2 LA @00,HEDLIST(,RHEADER) 0255 00478000 ST @00,AVTCWPM2(,RSAVE) 0255 00479000 * RPARM=ADDR(AVTCWEC2); /* ADDR OF COMWRITE ECB2 */ 00480000 LA RPARM,AVTCWEC2(,RSAVE) 0256 00481000 * HEDECBAV=ON; /* INDICATE ECB AVAILABLE */ 00482000 OI HEDECBAV(RHEADER),B'00010000' 0257 00483000 * GO TO ENDTEST; /* EXIT */ 00484000 B ENDTEST 0258 00485000 *ECB1: 0259 00486000 * AVTCWPM1=ADDR(HEDLIST); /* PARAMETER LIST ADDRESS 0259 00487000 * @Y17XASI*/ 00488000 ECB1 LA @00,HEDLIST(,RHEADER) 0259 00489000 ST @00,AVTCWPM1(,RSAVE) 0259 00490000 * RPARM=ADDR(AVTCWEC1); /* ADDR OF COMWRITE ECB1 */ 00491000 LA RPARM,AVTCWEC1(,RSAVE) 0260 00492000 * HEDECBAV=ON; /* INDICATE ECB AVAILABLE */ 00493000 OI HEDECBAV(RHEADER),B'00010000' 0261 00494000 *ENDTEST: /* RETURN TO CALLER @Y17XASS*/ 00495000 * RFY 0262 00496000 * R14 UNRSTD; /* @Y17XASI*/ 00497000 * END TESTECBS; /* RETURN TO CALLER @Y17XASS*/ 00498000 @EL00003 DS 0H 0263 00499000 @EF00003 DS 0H 0263 00500000 @ER00003 BR @14 0263 00501000 * GEN REFS(RTBPOS,RDATA); 0264 00502000 MVCDATA MVC 0(0,RTBPOS),0(RDATA) MOVE DATA INTO TABLE @Y17XASS 00503000 CLRDATA XC 0(0,RTBPOS),0(RTBPOS) CLEAR REST OF TABLE @Y17XASI 00504000 * END IEDNLT 0265 00505000 * 0265 00506000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00507000 */*%INCLUDE SYSLIB (TAVTD ) */ 00508000 */*%INCLUDE SYSLIB (THEDD ) */ 00509000 */*%INCLUDE SYSLIB (TNCPID ) */ 00510000 */*%INCLUDE SYSLIB (TPRFD ) */ 00511000 */*%INCLUDE SYSLIB (TRHD ) */ 00512000 */*%INCLUDE SYSLIB (TTRMD ) */ 00513000 */*%INCLUDE SYSLIB (TTHD ) */ 00514000 * 0265 00515000 * ; 0265 00516000 B @EL00001 0265 00517000 @DATA DS 0H 00518000 DS 0F 00519000 DS 0F 00520000 @CF00236 DC F'12' 00521000 DS 0D 00522000 TJID DC H'0' 00523000 TABCTLSZ DC AL2(28) 00524000 @CC01027 DC C'LIN3' 00525000 AQPARM DS CL12 00526000 ORG AQPARM 00527000 AQECB DS AL4 00528000 ORG AQECB 00529000 AQFNCTN DS CL1 00530000 @NM00137 DS CL3 00531000 ORG AQPARM+4 00532000 AQEND DC X'80' 00533000 AQTJID DC AL3(TJID) 00534000 AQTCB DS AL4 00535000 ORG AQPARM+12 00536000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00537000 @01 EQU 01 00538000 @02 EQU 02 00539000 @03 EQU 03 00540000 @04 EQU 04 00541000 @05 EQU 05 00542000 @06 EQU 06 00543000 @07 EQU 07 00544000 @08 EQU 08 00545000 @09 EQU 09 00546000 @10 EQU 10 00547000 @11 EQU 11 00548000 @12 EQU 12 00549000 @13 EQU 13 00550000 @14 EQU 14 00551000 @15 EQU 15 00552000 RBRNCH EQU @15 00553000 RBASE EQU @12 00554000 IEDQAPTR EQU @13 00555000 RHEADER EQU @03 00556000 IEDQPPTR EQU @06 00557000 IEDQTPTR EQU @08 00558000 REG0 EQU @00 00559000 RPARM EQU @01 00560000 RLEN EQU @02 00561000 RTABHALF EQU @04 00562000 SAVER13 EQU @05 00563000 RTBPOS EQU @05 00564000 RPRF EQU @06 00565000 RDATA EQU @07 00566000 RNCPI EQU @08 00567000 RRLTD EQU @09 00568000 RWORK EQU @10 00569000 RUSIZE EQU @11 00570000 RSAVE EQU @13 00571000 R14 EQU @14 00572000 RRTN EQU @15 00573000 IEDQAVTD EQU 0 00574000 AVTSAVE3 EQU IEDQAVTD+72 00575000 AVTSAVEX EQU IEDQAVTD+216 00576000 @NM00003 EQU IEDQAVTD+316 00577000 AVTCKFLG EQU @NM00003 00578000 AVTBASE EQU IEDQAVTD+340 00579000 AVTPKF EQU AVTBASE 00580000 AVTRNMPT EQU IEDQAVTD+352 00581000 AVTCWTCB EQU IEDQAVTD+400 00582000 AVTHG02 EQU IEDQAVTD+456 00583000 AVTDISP EQU IEDQAVTD+480 00584000 AVTHD EQU IEDQAVTD+484 00585000 AVTSCOPT EQU AVTHD 00586000 AVTSAVTP EQU IEDQAVTD+540 00587000 AVTSAVTF EQU AVTSAVTP 00588000 AVTCKPEL EQU IEDQAVTD+580 00589000 AVTCKRMV EQU AVTCKPEL 00590000 AVTCKELF EQU IEDQAVTD+608 00591000 AVTCKBYT EQU IEDQAVTD+619 00592000 AVTHG01 EQU IEDQAVTD+620 00593000 AVTCKLNK EQU IEDQAVTD+624 00594000 AVTCRELE EQU IEDQAVTD+636 00595000 AVTCCELE EQU AVTCRELE 00596000 AVTCLRHI EQU IEDQAVTD+644 00597000 AVTADBUF EQU IEDQAVTD+648 00598000 AVTSYSER EQU IEDQAVTD+656 00599000 AVTCKPQB EQU IEDQAVTD+732 00600000 AVTCKPTB EQU AVTCKPQB 00601000 AVTCKPEC EQU AVTCKPQB+4 00602000 AVTCKPCC EQU AVTCKPEC 00603000 AVTOPCQB EQU IEDQAVTD+744 00604000 AVTOPCOB EQU AVTOPCQB 00605000 AVTOPCEC EQU AVTOPCQB+4 00606000 AVTOPCCC EQU AVTOPCEC 00607000 AVTOLTQB EQU IEDQAVTD+756 00608000 AVTCWPM1 EQU IEDQAVTD+844 00609000 AVTCWEC1 EQU IEDQAVTD+848 00610000 AVTCWFL1 EQU IEDQAVTD+852 00611000 AVTCWFL2 EQU IEDQAVTD+853 00612000 AVTCWTS1 EQU IEDQAVTD+854 00613000 AVTCWTS2 EQU IEDQAVTD+855 00614000 AVTCWPM2 EQU IEDQAVTD+856 00615000 AVTCWEC2 EQU IEDQAVTD+860 00616000 AVTSUBT EQU IEDQAVTD+876 00617000 AVTIOTR EQU IEDQAVTD+877 00618000 AVTKEYLE EQU IEDQAVTD+960 00619000 AVTBIT1 EQU IEDQAVTD+978 00620000 AVTBIT2 EQU IEDQAVTD+979 00621000 AVTBIT3 EQU IEDQAVTD+980 00622000 AVTDDFT EQU IEDQAVTD+992 00623000 AVTBIT4 EQU IEDQAVTD+1064 00624000 @NM00083 EQU IEDQAVTD+1160 00625000 IEDNSVTD EQU 0 00626000 SAVTDIAG EQU IEDNSVTD 00627000 SAVTDIAF EQU SAVTDIAG 00628000 SAVTLUSQ EQU IEDNSVTD+88 00629000 SAVTTCPU EQU IEDNSVTD+238 00630000 SAVTZELM EQU IEDNSVTD+270 00631000 SAVTRDRV EQU IEDNSVTD+284 00632000 SAVTCKQB EQU IEDNSVTD+300 00633000 SAVTCKTB EQU SAVTCKQB 00634000 SAVTCKEC EQU SAVTCKQB+4 00635000 SAVTCKCC EQU SAVTCKEC 00636000 IEDHED EQU 0 00637000 HEDFSTHF EQU IEDHED+9 00638000 HEDSWCHS EQU IEDHED+12 00639000 HEDTBL1 EQU HEDSWCHS 00640000 HEDFULL1 EQU HEDSWCHS 00641000 HEDFULL2 EQU HEDSWCHS 00642000 HEDECBAV EQU HEDSWCHS 00643000 HEDSECHF EQU IEDHED+13 00644000 HEDTBPOS EQU IEDHED+16 00645000 HEDSEQCT EQU IEDHED+20 00646000 HEDREMLN EQU IEDHED+22 00647000 HEDHLFSZ EQU IEDHED+24 00648000 HEDDATLN EQU IEDHED+26 00649000 HEDLIST EQU IEDHED+28 00650000 HEDAREA EQU HEDLIST 00651000 HEDFLAG EQU HEDLIST+5 00652000 HEDCWOK EQU HEDFLAG 00653000 HEDLNTH EQU HEDLIST+6 00654000 HEDID EQU HEDLIST+12 00655000 IEDNCP EQU 0 00656000 NCPFLAG1 EQU IEDNCP+1 00657000 NCPTRACE EQU NCPFLAG1 00658000 NCPLTRAC EQU IEDNCP+26 00659000 IEDQPRF EQU 0 00660000 PRFRCB EQU IEDQPRF 00661000 PRFKEY EQU PRFRCB 00662000 PRFQCBA EQU PRFRCB+1 00663000 PRFPRI EQU PRFRCB+4 00664000 PRFLINK EQU PRFRCB+5 00665000 PRFTIC EQU IEDQPRF+8 00666000 PRFTICC EQU PRFTIC 00667000 PRFNBUNT EQU IEDQPRF+12 00668000 PRFSUNIT EQU PRFNBUNT 00669000 PRFPLQCB EQU PRFSUNIT 00670000 PRFPIUO EQU PRFPLQCB 00671000 @NM00114 EQU IEDQPRF+16 00672000 PRFSVFFO EQU @NM00114 00673000 PRFSTAT1 EQU IEDQPRF+20 00674000 PRFEOFN EQU PRFSTAT1 00675000 PRFCORE EQU IEDQPRF+21 00676000 PRFXTRA EQU PRFCORE 00677000 PRFSCAN EQU IEDQPRF+24 00678000 PRFTQBCK EQU IEDQPRF+26 00679000 PRFNTXT EQU PRFTQBCK 00680000 PRFEOBOF EQU PRFNTXT 00681000 PRFCHDR EQU IEDQPRF+32 00682000 PRFHQBCK EQU IEDQPRF+35 00683000 IEDPF1 EQU 0 00684000 PRF1FLG1 EQU IEDPF1+3 00685000 PRF1WD2 EQU IEDPF1+4 00686000 PRF1SEQP EQU PRF1WD2 00687000 PRF1SQID EQU PRF1SEQP 00688000 PRF1TAG1 EQU PRF1SQID 00689000 IEDPF2 EQU 0 00690000 PRF2FLG2 EQU IEDPF2 00691000 PRF2WD2 EQU IEDPF2+4 00692000 IEDRH EQU 0 00693000 TRHBYTE0 EQU IEDRH 00694000 TRHBYTE1 EQU IEDRH+1 00695000 TRHBYTE2 EQU IEDRH+2 00696000 IEDQTRM EQU 0 00697000 TRMSTATE EQU IEDQTRM 00698000 TRMLOG EQU TRMSTATE 00699000 TRMINSEQ EQU IEDQTRM+4 00700000 TLISTCNT EQU TRMINSEQ 00701000 TRMOUTSQ EQU IEDQTRM+6 00702000 TLISTEN EQU TRMOUTSQ 00703000 TRMDSORG EQU TLISTEN 00704000 TRMALTD EQU IEDQTRM+8 00705000 TRMDEVFL EQU IEDQTRM+10 00706000 TRMSTAT EQU IEDQTRM+12 00707000 IEDNTRM EQU 0 00708000 TRMBYTE4 EQU IEDNTRM 00709000 TRMBYTE3 EQU IEDNTRM+1 00710000 TRMBYTE2 EQU IEDNTRM+2 00711000 TRMINPG EQU TRMBYTE2 00712000 TRMBYTE1 EQU IEDNTRM+3 00713000 TRMSCPRQ EQU TRMBYTE1 00714000 TRMBYTE0 EQU IEDNTRM+6 00715000 TRMSIBPT EQU IEDNTRM+7 00716000 IEDTH EQU 0 00717000 TTHBYTE0 EQU IEDTH 00718000 TTHOAF EQU IEDTH+4 00719000 TTHSNF EQU IEDTH+6 00720000 TTHTAG EQU TTHSNF 00721000 TTHTAG1 EQU TTHTAG 00722000 TTHDCF EQU IEDTH+8 00723000 RLTDRU EQU 0 00724000 RLTDTI EQU RLTDRU+5 00725000 RLTDT3 EQU RLTDTI 00726000 RLTDTSTS EQU RLTDRU+8 00727000 RLTDIN EQU RLTDTSTS 00728000 RLTDTE EQU RLTDTSTS 00729000 TABHALF EQU 0 00730000 TABSEQCT EQU TABHALF+12 00731000 TABGRPLN EQU TABHALF+16 00732000 IEDQTNT EQU 0 00733000 IEDQTL EQU 0 00734000 TRMPRE1 EQU TRMBYTE4 00735000 TRMNCP1 EQU TRMBYTE4 00736000 TRMPRE EQU TRMBYTE3 00737000 TRMNCP EQU TRMBYTE3 00738000 TRMPU EQU TRMBYTE3 00739000 TRMLU EQU TRMBYTE3 00740000 TRMLINK EQU TRMBYTE3 00741000 PRFSHDR EQU IEDQPRF+42 00742000 TRMOPT EQU IEDQTRM+20 00743000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00744000 @NM00134 EQU TRMLINK 00745000 TRMLSTAT EQU TRMLINK 00746000 TRMLINT EQU TRMLINK 00747000 TRMEPMOD EQU TRMLINK 00748000 TRMLULOG EQU TRMLU 00749000 TRMINERR EQU TRMLU 00750000 TRMLUREQ EQU TRMLU 00751000 TRMSESRQ EQU TRMLU 00752000 TRMTDIFF EQU TRMLU 00753000 TRMLUTM EQU TRMLU 00754000 TRMLUIT EQU TRMLU 00755000 TRMAUTO EQU TRMLU 00756000 TRMPCONT EQU TRMPU 00757000 @NM00133 EQU TRMPU 00758000 TRMNCONT EQU TRMNCP 00759000 TRMQUCKN EQU TRMNCP 00760000 TRMSLOWN EQU TRMNCP 00761000 TRMSYGEN EQU TRMNCP 00762000 TRMNCPCL EQU TRMNCP 00763000 TRMIPLDM EQU TRMNCP 00764000 TRMINOUT EQU TRMPRE 00765000 TRMRDOUT EQU TRMPRE 00766000 TRMNLOUT EQU TRMPRE 00767000 TRMWROUT EQU TRMPRE 00768000 TRMASNXI EQU TRMPRE 00769000 TRMSTMM EQU TRMPRE 00770000 TRMCMODE EQU TRMPRE 00771000 TRMSTPND EQU TRMPRE 00772000 @NM00132 EQU TRMNCP1 00773000 TRMINOP EQU TRMNCP1 00774000 TRMLYNCH EQU TRMPRE1 00775000 TRMSPOUT EQU TRMPRE1 00776000 TRMERLCK EQU TRMPRE1 00777000 TRMQNPL EQU TRMPRE1 00778000 TRMSPACT EQU TRMPRE1 00779000 TRMOCNI EQU TRMPRE1 00780000 TRMSESSN EQU TRMPRE1 00781000 TRMCONT EQU TRMPRE1 00782000 TABRLN EQU TABGRPLN+9 00783000 TABCOMMA EQU TABGRPLN+8 00784000 TABLINUM EQU TABGRPLN 00785000 @NM00141 EQU TABHALF 00786000 @NM00140 EQU RLTDTSTS 00787000 RLTDRES EQU RLTDRU+7 00788000 RLTDTS EQU RLTDRU+6 00789000 @NM00139 EQU RLTDTI 00790000 @NM00138 EQU RLTDTI 00791000 RLTDNA EQU RLTDRU+3 00792000 RLTDRC EQU RLTDRU+2 00793000 RLTDPS EQU RLTDRU+1 00794000 RLTDNS EQU RLTDRU 00795000 TTHTAG2 EQU TTHTAG+1 00796000 @NM00136 EQU TTHTAG1 00797000 TTHTAGS EQU TTHTAG1 00798000 TTHDAF EQU IEDTH+2 00799000 TTHBYTE1 EQU IEDTH+1 00800000 TTHEFI EQU TTHBYTE0 00801000 @NM00135 EQU TTHBYTE0 00802000 TTHEBIU EQU TTHBYTE0 00803000 TTHBBIU EQU TTHBYTE0 00804000 TTHFTYPE EQU TTHBYTE0 00805000 TRMSUBST EQU IEDNTRM+12 00806000 TRMTYPE EQU IEDNTRM+11 00807000 TRMRLMCT EQU IEDNTRM+10 00808000 TRMCOHTG EQU TRMSIBPT+1 00809000 TRMGPCNT EQU TRMSIBPT 00810000 TRMBUFRD EQU TRMBYTE0 00811000 TRMSNA EQU TRMBYTE0 00812000 TRMGP EQU TRMBYTE0 00813000 TRMDIAL EQU TRMBYTE0 00814000 @NM00131 EQU TRMBYTE0 00815000 TRMOUTPT EQU TRMBYTE0 00816000 TRMINPUT EQU TRMBYTE0 00817000 TRMUDEF EQU TRMBYTE0 00818000 TRMCOHRT EQU IEDNTRM+4 00819000 TRMSTOTE EQU TRMBYTE1 00820000 TRMCKPRN EQU TRMBYTE1 00821000 TRMTSATN EQU TRMBYTE1 00822000 TRMTRACE EQU TRMBYTE1 00823000 TRMSWBCK EQU TRMBYTE1 00824000 TRMAUTOC EQU TRMBYTE1 00825000 TRMINPTP EQU TRMBYTE1 00826000 TRMWTNEG EQU TRMSCPRQ 00827000 TRMWRBRK EQU TRMBYTE2 00828000 TRMNOSND EQU TRMBYTE2 00829000 TRMPREP EQU TRMBYTE2 00830000 TRMGPACT EQU TRMBYTE2 00831000 TRMANDL EQU TRMBYTE2 00832000 TRMCLOSN EQU TRMINPG 00833000 TRMREMB EQU TRMBYTE2 00834000 TRMRSACT EQU TRMBYTE2 00835000 TRMOPTBL EQU IEDQTRM+18 00836000 TRMOPNO EQU IEDQTRM+17 00837000 TRMCHCIN EQU IEDQTRM+16 00838000 TRMSENSE EQU TRMSTAT+3 00839000 TRMTEMPR EQU TRMSTAT+2 00840000 TRMSIO EQU TRMSTAT 00841000 @NM00130 EQU TRMDEVFL+1 00842000 TRMTPIN EQU TRMDEVFL+1 00843000 TRMNCPI EQU TRMDEVFL+1 00844000 TRMRNTRM EQU TRMDEVFL+1 00845000 @NM00129 EQU TRMDEVFL+1 00846000 TRMLMD EQU TRMDEVFL+1 00847000 TRMCONC EQU TRMDEVFL+1 00848000 TRMTSOB EQU TRMDEVFL 00849000 TRMBFDY EQU TRMDEVFL 00850000 TRMTBLK EQU TRMDEVFL 00851000 TRMSBLK EQU TRMDEVFL 00852000 TRMBLKS EQU TRMDEVFL 00853000 TRMADDC EQU TRMDEVFL 00854000 TRMDDIG EQU TRMDEVFL 00855000 TRMBUFS EQU TRMDEVFL 00856000 TRMPRILK EQU TRMALTD 00857000 TRMLGB EQU TRMDSORG 00858000 TRMUTERM EQU TLISTCNT 00859000 TRMDESTQ EQU IEDQTRM+1 00860000 TRMSCNYN EQU TRMSTATE 00861000 TRMOPTFN EQU TRMSTATE 00862000 TRMHELDN EQU TRMSTATE 00863000 TRMACPTN EQU TRMSTATE 00864000 TRMPREF EQU TRMSTATE 00865000 TRMPROC EQU TRMLOG 00866000 TRMLIST EQU TRMLOG 00867000 TRMLINE EQU TRMSTATE 00868000 @NM00128 EQU TRHBYTE2 00869000 @NM00127 EQU TRHBYTE2 00870000 @NM00126 EQU TRHBYTE2 00871000 TRHCSI EQU TRHBYTE2 00872000 @NM00125 EQU TRHBYTE2 00873000 TRHCDI EQU TRHBYTE2 00874000 TRHEB EQU TRHBYTE2 00875000 TRHBB EQU TRHBYTE2 00876000 TRHPI EQU TRHBYTE1 00877000 @NM00124 EQU TRHBYTE1 00878000 @NM00123 EQU TRHBYTE1 00879000 @NM00122 EQU TRHBYTE1 00880000 TRHER EQU TRHBYTE1 00881000 TRHDR2 EQU TRHBYTE1 00882000 @NM00121 EQU TRHBYTE1 00883000 TRHDR1 EQU TRHBYTE1 00884000 TRHEC EQU TRHBYTE0 00885000 TRHBC EQU TRHBYTE0 00886000 TRHSDI EQU TRHBYTE0 00887000 TRHFI EQU TRHBYTE0 00888000 @NM00120 EQU TRHBYTE0 00889000 TRHRUCAT EQU TRHBYTE0 00890000 TRHTYPE EQU TRHBYTE0 00891000 PRF2SEQP EQU PRF2WD2 00892000 @NM00119 EQU IEDPF2+1 00893000 @NM00118 EQU PRF2FLG2 00894000 PRF2SMI EQU PRF2FLG2 00895000 PRF2FORM EQU PRF2FLG2 00896000 PRF2TNTI EQU PRF2FLG2 00897000 PRF1RULN EQU PRF1SEQP+2 00898000 PRF1TAG2 EQU PRF1SQID+1 00899000 @NM00117 EQU PRF1TAG1 00900000 PRF1TAGS EQU PRF1TAG1 00901000 @NM00116 EQU PRF1FLG1 00902000 PRF1LOGD EQU PRF1FLG1 00903000 PRF1USS EQU PRF1FLG1 00904000 PRF1FORM EQU PRF1FLG1 00905000 PRF1EXPI EQU PRF1FLG1 00906000 PRF1FIDI EQU PRF1FLG1 00907000 PRF1RH EQU IEDPF1 00908000 PRFDEST EQU IEDQPRF+40 00909000 PRFISEQ EQU IEDQPRF+38 00910000 PRFSTXT EQU PRFHQBCK 00911000 PRFNHDR EQU PRFCHDR 00912000 PRFCRCD EQU IEDQPRF+29 00913000 PRFSVSEQ EQU PRFNTXT+1 00914000 PRFSVPRI EQU PRFEOBOF 00915000 PRFISIZE EQU PRFSCAN+1 00916000 @NM00115 EQU PRFSCAN 00917000 PRFEOB EQU PRFXTRA+1 00918000 PRFSTSO EQU PRFXTRA 00919000 PRFNHDRN EQU PRFSTAT1 00920000 PRFNLSTN EQU PRFSTAT1 00921000 PRFLOCK EQU PRFEOFN 00922000 PRFDUPLN EQU PRFSTAT1 00923000 PRFTSMSG EQU PRFSTAT1 00924000 PRFITCPN EQU PRFSTAT1 00925000 PRFERMGN EQU PRFSTAT1 00926000 PRFCNCLN EQU PRFSTAT1 00927000 PRFSVFLG EQU @NM00114+3 00928000 PRFSIZE EQU PRFSVFFO+2 00929000 PRFSRCE EQU PRFSVFFO 00930000 PRFLCB EQU IEDQPRF+13 00931000 PRFTI0 EQU PRFTIC+1 00932000 @NM00113 EQU PRFTICC 00933000 @NM00112 EQU PRFTICC 00934000 @NM00111 EQU PRFTICC 00935000 PRFTICON EQU PRFTICC 00936000 @NM00110 EQU PRFTICC 00937000 @NM00109 EQU PRFTICC 00938000 PRFBFMM EQU PRFTICC 00939000 PRFEOMSG EQU PRFTICC 00940000 PRFCOUNT EQU PRFLINK+1 00941000 @NM00108 EQU PRFLINK 00942000 PRFFLAGS EQU PRFPRI 00943000 PRFIOADR EQU PRFQCBA 00944000 PRFOPCDE EQU PRFKEY 00945000 NCPCKPT EQU IEDNCP+22 00946000 NCPDPDCB EQU IEDNCP+18 00947000 NCPTXID EQU IEDNCP+10 00948000 NCPBKUPN EQU IEDNCP+2 00949000 @NM00107 EQU NCPFLAG1 00950000 NCPBKUP EQU NCPFLAG1 00951000 NCPIPLD EQU NCPFLAG1 00952000 NCPREST EQU NCPFLAG1 00953000 NCPBGUP EQU NCPFLAG1 00954000 NCPDAUTO EQU NCPFLAG1 00955000 NCPIAUTO EQU NCPFLAG1 00956000 NCPLEN EQU IEDNCP 00957000 @NM00106 EQU IEDHED+44 00958000 HEDCT EQU HEDLIST+8 00959000 @NM00105 EQU HEDFLAG 00960000 @NM00104 EQU HEDFLAG 00961000 HEDTS EQU HEDLIST+4 00962000 @NM00103 EQU HEDSWCHS 00963000 HEDRLN EQU IEDHED+8 00964000 HEDSIZE EQU IEDHED+4 00965000 HEDTRCAD EQU IEDHED 00966000 SAVTBITN EQU IEDNSVTD+312 00967000 @NM00102 EQU SAVTCKQB+8 00968000 @NM00101 EQU SAVTCKEC+1 00969000 @NM00100 EQU SAVTCKCC 00970000 SAVTCKPO EQU SAVTCKCC 00971000 SAVTCKWA EQU SAVTCKCC 00972000 SAVTCKCH EQU SAVTCKTB+1 00973000 SAVTCKVT EQU SAVTCKTB 00974000 @NM00099 EQU IEDNSVTD+297 00975000 SAVTRDFG EQU SAVTRDRV+12 00976000 @NM00098 EQU SAVTRDRV+5 00977000 SAVTRDPY EQU SAVTRDRV+4 00978000 SAVTRDQB EQU SAVTRDRV+1 00979000 SAVTRDKY EQU SAVTRDRV 00980000 SAVTNID EQU IEDNSVTD+280 00981000 SAVTDVAS EQU IEDNSVTD+276 00982000 SAVTPLSZ EQU IEDNSVTD+274 00983000 @NM00097 EQU IEDNSVTD+273 00984000 SAVTSUBL EQU IEDNSVTD+272 00985000 @NM00096 EQU SAVTZELM+1 00986000 SAVTSUBM EQU SAVTZELM 00987000 SAVTMHDX EQU IEDNSVTD+268 00988000 SAVTNAT1 EQU IEDNSVTD+266 00989000 SAVTSH20 EQU IEDNSVTD+264 00990000 SAVTLCBS EQU IEDNSVTD+260 00991000 SAVTRNMP EQU IEDNSVTD+256 00992000 SAVTTNTX EQU IEDNSVTD+252 00993000 SAVTNAX EQU IEDNSVTD+248 00994000 SAVTSUBV EQU IEDNSVTD+247 00995000 SAVTSUBA EQU IEDNSVTD+246 00996000 SAVTSIBC EQU IEDNSVTD+244 00997000 SAVTBSM EQU IEDNSVTD+240 00998000 SAVTSCPT EQU SAVTTCPU 00999000 SAVTRQTG EQU IEDNSVTD+236 01000000 SAVTRQCH EQU IEDNSVTD+232 01001000 SAVTMAND EQU IEDNSVTD+228 01002000 SAVTSPLN EQU IEDNSVTD+224 01003000 SAVTNADL EQU IEDNSVTD+222 01004000 SAVTNATL EQU IEDNSVTD+220 01005000 SAVTMHTB EQU IEDNSVTD+216 01006000 SAVTSSMH EQU IEDNSVTD+212 01007000 SAVTQRS EQU IEDNSVTD+208 01008000 SAVTRQIN EQU IEDNSVTD+204 01009000 SAVTDFCO EQU IEDNSVTD+200 01010000 SAVTSAO EQU IEDNSVTD+196 01011000 SAVTSARI EQU IEDNSVTD+192 01012000 SAVTSAC EQU IEDNSVTD+188 01013000 SAVTSAI EQU IEDNSVTD+184 01014000 SAVTCSCI EQU IEDNSVTD+180 01015000 SAVTSSRP EQU IEDNSVTD+176 01016000 SAVTSSRQ EQU IEDNSVTD+172 01017000 SAVTSCLU EQU IEDNSVTD+168 01018000 SAVTXTRQ EQU IEDNSVTD+164 01019000 SAVTMVBF EQU IEDNSVTD+160 01020000 @NM00095 EQU IEDNSVTD+148 01021000 SAVTIPCQ EQU IEDNSVTD+144 01022000 @NM00094 EQU IEDNSVTD+136 01023000 SAVTXFMI EQU IEDNSVTD+132 01024000 @NM00093 EQU IEDNSVTD+124 01025000 SAVTXFMO EQU IEDNSVTD+120 01026000 @NM00092 EQU IEDNSVTD+116 01027000 SAVTSSSR EQU IEDNSVTD+112 01028000 SAVTSCPQ EQU IEDNSVTD+108 01029000 SAVTSLCB EQU IEDNSVTD+104 01030000 SAVTLUSR EQU IEDNSVTD+100 01031000 @NM00091 EQU SAVTLUSQ+8 01032000 SAVTLUSP EQU SAVTLUSQ+4 01033000 SAVTLUSB EQU SAVTLUSQ 01034000 @NM00090 EQU IEDNSVTD+84 01035000 SAVTSAT EQU IEDNSVTD+80 01036000 SAVTNAT EQU IEDNSVTD+76 01037000 SAVTCLUP EQU IEDNSVTD+72 01038000 SAVTPIUT EQU IEDNSVTD+68 01039000 SAVTRNTA EQU IEDNSVTD+64 01040000 SAVTDNIR EQU IEDNSVTD+60 01041000 SAVTCNIR EQU IEDNSVTD+56 01042000 SAVTFLDH EQU IEDNSVTD+52 01043000 SAVTSRTN EQU IEDNSVTD+48 01044000 SAVTSREQ EQU IEDNSVTD+44 01045000 SAVTFAIL EQU IEDNSVTD+42 01046000 SAVTSUSE EQU IEDNSVTD+40 01047000 SAVTSIB EQU IEDNSVTD+36 01048000 SAVTPRTN EQU IEDNSVTD+32 01049000 @NM00089 EQU IEDNSVTD+28 01050000 SAVTWH20 EQU IEDNSVTD+26 01051000 SAVTPWT EQU IEDNSVTD+24 01052000 SAVTPRTQ EQU IEDNSVTD+20 01053000 SAVTPREQ EQU IEDNSVTD+16 01054000 SAVTPH20 EQU IEDNSVTD+14 01055000 SAVTPUSE EQU IEDNSVTD+12 01056000 SAVTPLCB EQU IEDNSVTD+8 01057000 SAVTPOOL EQU IEDNSVTD+4 01058000 SAVTPRMT EQU SAVTDIAF 01059000 SAVTVIRT EQU SAVTDIAF 01060000 AVTCPBNO EQU IEDQAVTD+1172 01061000 AVTHRESS EQU IEDQAVTD+1171 01062000 @NM00088 EQU IEDQAVTD+1170 01063000 @NM00087 EQU IEDQAVTD+1169 01064000 @NM00086 EQU IEDQAVTD+1168 01065000 @NM00085 EQU IEDQAVTD+1165 01066000 @NM00084 EQU IEDQAVTD+1164 01067000 AVTHRESE EQU @NM00083 01068000 AVTRADDR EQU IEDQAVTD+1156 01069000 AVTNADDR EQU IEDQAVTD+1152 01070000 AVTHRESN EQU IEDQAVTD+1148 01071000 AVTVOLRN EQU IEDQAVTD+1144 01072000 AVTTOTNN EQU IEDQAVTD+1140 01073000 AVTTRCYN EQU IEDQAVTD+1136 01074000 AVTRCTRN EQU IEDQAVTD+1132 01075000 AVTNOVON EQU IEDQAVTD+1128 01076000 AVTADEBN EQU IEDQAVTD+1124 01077000 AVTVOLRR EQU IEDQAVTD+1120 01078000 AVTTOTNR EQU IEDQAVTD+1116 01079000 AVTTRCYR EQU IEDQAVTD+1112 01080000 AVTRCTRR EQU IEDQAVTD+1108 01081000 AVTNOVOR EQU IEDQAVTD+1104 01082000 AVTADEBR EQU IEDQAVTD+1100 01083000 AVTLODPT EQU IEDQAVTD+1096 01084000 AVTIOBN EQU IEDQAVTD+1092 01085000 AVTIOBR EQU IEDQAVTD+1088 01086000 AVTCPBPT EQU IEDQAVTD+1084 01087000 AVTFCPB EQU IEDQAVTD+1080 01088000 @NM00082 EQU IEDQAVTD+1076 01089000 AVTINCPQ EQU IEDQAVTD+1072 01090000 @NM00081 EQU IEDQAVTD+1068 01091000 @NM00080 EQU IEDQAVTD+1065 01092000 @NM00079 EQU AVTBIT4 01093000 @NM00078 EQU AVTBIT4 01094000 @NM00077 EQU AVTBIT4 01095000 @NM00076 EQU AVTBIT4 01096000 @NM00075 EQU AVTBIT4 01097000 @NM00074 EQU AVTBIT4 01098000 @NM00073 EQU AVTBIT4 01099000 AVTRUFTN EQU AVTBIT4 01100000 @NM00072 EQU IEDQAVTD+1060 01101000 AVTNOBFQ EQU IEDQAVTD+1056 01102000 @NM00071 EQU IEDQAVTD+1052 01103000 AVTDKENQ EQU IEDQAVTD+1048 01104000 @NM00070 EQU IEDQAVTD+1044 01105000 AVTDKAPQ EQU IEDQAVTD+1040 01106000 AVTCOPY EQU IEDQAVTD+1036 01107000 AVTIA EQU IEDQAVTD+1032 01108000 AVTFL EQU IEDQAVTD+1028 01109000 @NM00069 EQU IEDQAVTD+1024 01110000 AVTNCPBQ EQU IEDQAVTD+1020 01111000 AVTTOTNC EQU IEDQAVTD+1016 01112000 AVTCMAX EQU IEDQAVTD+1012 01113000 AVTCMIN EQU IEDQAVTD+1008 01114000 AVTHM02 EQU IEDQAVTD+1004 01115000 AVTOPCIN EQU IEDQAVTD+1002 01116000 AVTDCTLN EQU IEDQAVTD+1000 01117000 AVTOPMSK EQU IEDQAVTD+996 01118000 AVTSTEAL EQU IEDQAVTD+988 01119000 AVTOPTN EQU IEDQAVTD+984 01120000 AVTDSKCT EQU IEDQAVTD+982 01121000 AVTCKRST EQU IEDQAVTD+981 01122000 AVTSTAN EQU AVTBIT3 01123000 AVTSTACN EQU AVTBIT3 01124000 AVTSTAIN EQU AVTBIT3 01125000 AVTSTAYN EQU AVTBIT3 01126000 AVTOLTBN EQU AVTBIT3 01127000 AVTTSAB EQU AVTBIT3 01128000 AVTRFULN EQU AVTBIT3 01129000 AVTRECVN EQU AVTBIT3 01130000 @NM00068 EQU AVTBIT2 01131000 @NM00067 EQU AVTBIT2 01132000 AVTOPEIN EQU AVTBIT2 01133000 AVTSTRTN EQU AVTBIT2 01134000 AVTTOPOL EQU AVTBIT2 01135000 AVTCOPYN EQU AVTBIT2 01136000 AVTREUSN EQU AVTBIT2 01137000 AVTEXTSC EQU AVTBIT2 01138000 AVTDISKN EQU AVTBIT1 01139000 AVTQUCKN EQU AVTBIT1 01140000 AVTCLOSN EQU AVTBIT1 01141000 AVTREADN EQU AVTBIT1 01142000 AVTDLAYN EQU AVTBIT1 01143000 AVTAQTAN EQU AVTBIT1 01144000 AVTTSON EQU AVTBIT1 01145000 AVTAPLKN EQU AVTBIT1 01146000 AVTDUMBR EQU IEDQAVTD+976 01147000 AVTDLQX EQU IEDQAVTD+974 01148000 AVTINTLV EQU IEDQAVTD+972 01149000 AVTSMCNT EQU IEDQAVTD+970 01150000 AVTAVFCT EQU IEDQAVTD+968 01151000 AVTOPCON EQU IEDQAVTD+966 01152000 AVTOPCNT EQU IEDQAVTD+964 01153000 AVTLNCNT EQU IEDQAVTD+962 01154000 AVTHA16 EQU IEDQAVTD+958 01155000 AVTHA7 EQU IEDQAVTD+956 01156000 AVTHA4 EQU IEDQAVTD+954 01157000 AVTHA3 EQU IEDQAVTD+952 01158000 AVTHA2 EQU IEDQAVTD+950 01159000 AVTGETMS EQU IEDQAVTD+949 01160000 @NM00066 EQU IEDQAVTD+948 01161000 AVTGETMD EQU IEDQAVTD+944 01162000 AVTGETMN EQU IEDQAVTD+940 01163000 AVTCWTOT EQU IEDQAVTD+936 01164000 AVTCWINT EQU IEDQAVTD+884 01165000 AVTDTRAP EQU IEDQAVTD+880 01166000 @NM00065 EQU IEDQAVTD+878 01167000 @NM00064 EQU AVTIOTR 01168000 AVTIOTRH EQU AVTIOTR 01169000 AVTIOTRE EQU AVTIOTR 01170000 @NM00063 EQU AVTSUBT 01171000 AVTSUBPT EQU AVTSUBT 01172000 AVTSUBON EQU AVTSUBT 01173000 AVTAFE30 EQU IEDQAVTD+872 01174000 AVTAFE20 EQU IEDQAVTD+868 01175000 AVTAFE10 EQU IEDQAVTD+864 01176000 AVTCWCLD EQU AVTCWFL2 01177000 AVTCWRAP EQU AVTCWFL2 01178000 @NM00062 EQU AVTCWFL2 01179000 @NM00061 EQU AVTCWFL2 01180000 @NM00060 EQU AVTCWFL2 01181000 @NM00059 EQU AVTCWFL2 01182000 @NM00058 EQU AVTCWFL2 01183000 AVTCWACT EQU AVTCWFL2 01184000 @NM00057 EQU AVTCWFL1 01185000 @NM00056 EQU AVTCWFL1 01186000 @NM00055 EQU AVTCWFL1 01187000 @NM00054 EQU AVTCWFL1 01188000 @NM00053 EQU AVTCWFL1 01189000 @NM00052 EQU AVTCWFL1 01190000 @NM00051 EQU AVTCWFL1 01191000 AVTCOMWN EQU AVTCWFL1 01192000 AVTCAREA EQU IEDQAVTD+840 01193000 AVTFZERO EQU IEDQAVTD+836 01194000 AVTCADDR EQU IEDQAVTD+832 01195000 AVTCOREC EQU IEDQAVTD+828 01196000 @NM00050 EQU IEDQAVTD+820 01197000 AVTCPBCB EQU IEDQAVTD+816 01198000 @NM00049 EQU IEDQAVTD+808 01199000 AVTDSIOB EQU IEDQAVTD+804 01200000 @NM00048 EQU IEDQAVTD+796 01201000 AVTCPRMB EQU IEDQAVTD+792 01202000 @NM00047 EQU IEDQAVTD+784 01203000 AVTCLOSB EQU IEDQAVTD+780 01204000 @NM00046 EQU IEDQAVTD+772 01205000 AVTACTIB EQU IEDQAVTD+768 01206000 @NM00045 EQU IEDQAVTD+764 01207000 AVTOLTEB EQU IEDQAVTD+760 01208000 AVTOLTCH EQU AVTOLTQB+1 01209000 AVTOLTVT EQU AVTOLTQB 01210000 @NM00044 EQU AVTOPCQB+8 01211000 @NM00043 EQU AVTOPCEC+1 01212000 @NM00042 EQU AVTOPCCC 01213000 AVTOPCPO EQU AVTOPCCC 01214000 AVTOPCWA EQU AVTOPCCC 01215000 AVTOPCCH EQU AVTOPCOB+1 01216000 AVTOPCVT EQU AVTOPCOB 01217000 @NM00041 EQU AVTCKPQB+9 01218000 AVTCKPTS EQU AVTCKPQB+8 01219000 @NM00040 EQU AVTCKPEC+1 01220000 @NM00039 EQU AVTCKPCC 01221000 AVTCKPPO EQU AVTCKPCC 01222000 AVTCKPWA EQU AVTCKPCC 01223000 AVTCKPCH EQU AVTCKPTB+1 01224000 AVTCKPVT EQU AVTCKPTB 01225000 @NM00038 EQU IEDQAVTD+724 01226000 AVTBFRTB EQU IEDQAVTD+720 01227000 @NM00037 EQU IEDQAVTD+712 01228000 AVTBFREB EQU IEDQAVTD+708 01229000 AVTTIMQ EQU IEDQAVTD+704 01230000 @NM00036 EQU IEDQAVTD+700 01231000 AVTIMQPS EQU IEDQAVTD+696 01232000 AVTINOUT EQU IEDQAVTD+694 01233000 AVTREFTM EQU IEDQAVTD+692 01234000 @NM00035 EQU IEDQAVTD+680 01235000 AVTDELYB EQU IEDQAVTD+676 01236000 AVTOCQPT EQU IEDQAVTD+672 01237000 AVTTSOPT EQU IEDQAVTD+668 01238000 AVTSUPPT EQU IEDQAVTD+664 01239000 AVTCBQCB EQU IEDQAVTD+660 01240000 AVTMSGS EQU IEDQAVTD+657 01241000 @NM00034 EQU AVTSYSER 01242000 @NM00033 EQU AVTSYSER 01243000 @NM00032 EQU AVTSYSER 01244000 @NM00031 EQU AVTSYSER 01245000 @NM00030 EQU AVTSYSER 01246000 @NM00029 EQU AVTSYSER 01247000 AVTCMAXN EQU AVTSYSER 01248000 AVTCMINN EQU AVTSYSER 01249000 AVT2260L EQU IEDQAVTD+652 01250000 AVTABEPL EQU AVTADBUF 01251000 AVTHFF EQU AVTCLRHI+2 01252000 @NM00028 EQU AVTCLRHI 01253000 AVTCCLNK EQU AVTCRELE+5 01254000 AVTCCPRI EQU AVTCRELE+4 01255000 AVTCCQCB EQU AVTCCELE+1 01256000 AVTCCKEY EQU AVTCCELE 01257000 AVTDELAD EQU IEDQAVTD+632 01258000 AVTDELEM EQU IEDQAVTD+628 01259000 AVTBSX EQU AVTCKLNK 01260000 AVTOPETR EQU AVTHG01 01261000 @NM00027 EQU AVTCKBYT 01262000 AVTCKONQ EQU AVTCKBYT 01263000 @NM00026 EQU AVTCKBYT 01264000 @NM00025 EQU AVTCKBYT 01265000 @NM00024 EQU AVTCKBYT 01266000 @NM00023 EQU AVTCKBYT 01267000 @NM00022 EQU AVTCKBYT 01268000 @NM00021 EQU AVTCKBYT 01269000 AVTOPERT EQU IEDQAVTD+618 01270000 AVTOPXCL EQU IEDQAVTD+616 01271000 AVTOPERL EQU IEDQAVTD+615 01272000 @NM00020 EQU IEDQAVTD+614 01273000 AVTCKTIM EQU IEDQAVTD+612 01274000 AVTCKELV EQU IEDQAVTD+610 01275000 AVTCPRCD EQU IEDQAVTD+609 01276000 AVTWARMN EQU AVTCKELF 01277000 AVTCRTLN EQU AVTCKELF 01278000 AVTCPIPN EQU AVTCKELF 01279000 AVTCCLCN EQU AVTCKELF 01280000 AVTCINCN EQU AVTCKELF 01281000 @NM00019 EQU AVTCKELF 01282000 AVTCMCPN EQU AVTCKELF 01283000 AVTCRDYN EQU AVTCKELF 01284000 AVTCKQAD EQU IEDQAVTD+605 01285000 AVTSCBSZ EQU IEDQAVTD+604 01286000 @NM00018 EQU IEDQAVTD+600 01287000 AVTCKELE EQU IEDQAVTD+596 01288000 @NM00017 EQU AVTCKPEL+8 01289000 AVTCKRLK EQU AVTCKPEL+5 01290000 AVTCKRPR EQU AVTCKPEL+4 01291000 AVTCKRMQ EQU AVTCKRMV+1 01292000 AVTCKRKY EQU AVTCKRMV 01293000 AVTHK EQU IEDQAVTD+576 01294000 AVTHI EQU IEDQAVTD+572 01295000 AVTIOT EQU IEDQAVTD+568 01296000 AVTNX EQU IEDQAVTD+564 01297000 AVTTONE EQU IEDQAVTD+560 01298000 AVTA3TL EQU IEDQAVTD+556 01299000 AVTDMECB EQU IEDQAVTD+552 01300000 AVTABEND EQU IEDQAVTD+546 01301000 AVTPLCBN EQU IEDQAVTD+544 01302000 @NM00016 EQU AVTSAVTP+1 01303000 @NM00015 EQU AVTSAVTF 01304000 AVTSNA EQU AVTSAVTF 01305000 AVTONSNA EQU AVTSAVTF 01306000 AVTVTMCP EQU AVTSAVTF 01307000 @NM00014 EQU IEDQAVTD+536 01308000 AVTCMBSS EQU IEDQAVTD+532 01309000 AVTRCV EQU IEDQAVTD+528 01310000 AVTSEND EQU IEDQAVTD+524 01311000 AVTCSCH EQU IEDQAVTD+520 01312000 AVTQ1 EQU IEDQAVTD+516 01313000 AVTE7 EQU IEDQAVTD+512 01314000 AVTHB EQU IEDQAVTD+508 01315000 AVTR1 EQU IEDQAVTD+504 01316000 AVTBZ EQU IEDQAVTD+500 01317000 AVTEZ EQU IEDQAVTD+496 01318000 AVTEC EQU IEDQAVTD+492 01319000 AVTEW EQU IEDQAVTD+488 01320000 AVTNDIAL EQU AVTSCOPT 01321000 AVTN2741 EQU AVTSCOPT 01322000 AVTCONCO EQU AVTSCOPT 01323000 AVTCONC EQU AVTSCOPT 01324000 AVTCMBUF EQU AVTSCOPT 01325000 AVTAPDMP EQU AVTSCOPT 01326000 @NM00013 EQU AVTSCOPT 01327000 AVTHA EQU AVTDISP 01328000 AVTEA EQU IEDQAVTD+476 01329000 AVTAX EQU IEDQAVTD+472 01330000 AVTA3 EQU IEDQAVTD+468 01331000 AVTGD EQU IEDQAVTD+464 01332000 AVTAL EQU IEDQAVTD+460 01333000 AVTOLTST EQU AVTHG02 01334000 AVTE8 EQU IEDQAVTD+452 01335000 AVTUI EQU IEDQAVTD+448 01336000 AVTCOMPT EQU IEDQAVTD+444 01337000 AVTCRSRF EQU IEDQAVTD+440 01338000 @NM00012 EQU IEDQAVTD+436 01339000 AVTKA02 EQU IEDQAVTD+432 01340000 AVTOPTPT EQU IEDQAVTD+428 01341000 AVTPCBPT EQU IEDQAVTD+424 01342000 AVTOSECB EQU IEDQAVTD+420 01343000 AVTOPECA EQU IEDQAVTD+416 01344000 AVTOLECA EQU IEDQAVTD+412 01345000 AVTCKECA EQU IEDQAVTD+408 01346000 AVTCWECA EQU IEDQAVTD+404 01347000 AVTOLTCB EQU IEDQAVTD+396 01348000 AVTOCTCB EQU IEDQAVTD+392 01349000 AVTCKTCB EQU IEDQAVTD+388 01350000 AVTAS EQU IEDQAVTD+384 01351000 AVTNOLBF EQU IEDQAVTD+382 01352000 AVTNCKPR EQU IEDQAVTD+381 01353000 AVTCIB EQU IEDQAVTD+380 01354000 AVTSPLPT EQU IEDQAVTD+376 01355000 AVTMVBFR EQU IEDQAVTD+372 01356000 AVTSBTA EQU IEDQAVTD+368 01357000 AVTRARTN EQU IEDQAVTD+364 01358000 AVTBSCAN EQU IEDQAVTD+360 01359000 AVTRDYA EQU IEDQAVTD+356 01360000 AVTDISTR EQU IEDQAVTD+348 01361000 AVTPARM3 EQU IEDQAVTD+344 01362000 @NM00011 EQU AVTPKF 01363000 @NM00010 EQU AVTPKF 01364000 @NM00009 EQU AVTPKF 01365000 AVTFTCHF EQU AVTPKF 01366000 @NM00008 EQU AVTPKF 01367000 @NM00007 EQU AVTPKF 01368000 @NM00006 EQU AVTPKF 01369000 @NM00005 EQU AVTPKF 01370000 AVTPARM EQU IEDQAVTD+336 01371000 AVTEXS2A EQU IEDQAVTD+330 01372000 AVTEXA2S EQU IEDQAVTD+324 01373000 AVTOCGET EQU IEDQAVTD+320 01374000 AVTCKAVT EQU @NM00003+1 01375000 @NM00004 EQU AVTCKFLG 01376000 AVTCKHLT EQU AVTCKFLG 01377000 AVTCKREQ EQU AVTCKFLG 01378000 AVTCKENV EQU AVTCKFLG 01379000 AVTCKNAC EQU AVTCKFLG 01380000 AVTCKTAC EQU AVTCKFLG 01381000 @NM00002 EQU IEDQAVTD+312 01382000 AVTREADD EQU IEDQAVTD+308 01383000 AVTREADY EQU IEDQAVTD+304 01384000 AVTRACE EQU IEDQAVTD+300 01385000 AVTTCB EQU IEDQAVTD+296 01386000 AVTPASWD EQU IEDQAVTD+288 01387000 AVTCTLCH EQU IEDQAVTD+280 01388000 AVTDOUBL EQU IEDQAVTD+272 01389000 AVTDOUBX EQU IEDQAVTD+264 01390000 AVTDPARM EQU IEDQAVTD+260 01391000 AVTCSTCS EQU IEDQAVTD+256 01392000 AVTDLQ EQU AVTSAVEX+32 01393000 @NM00001 EQU AVTSAVEX 01394000 AVTSAVE4 EQU IEDQAVTD+144 01395000 AVTSAVE2 EQU IEDQAVTD 01396000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01397000 @RC00219 EQU @EL00001 01398000 ENDTEST EQU @EL00003 01399000 @ENDDATA EQU * 01400000 END IEDNLT,(C'PLS0149',0701,77033) 01401000