TITLE 'IEDDVAS, CONTROL BLOCK ASSIGNMENT SUBROUTINE *00001000 ' 00002000 IEDDVAS CSECT , 0001 00003000 @PROLOG STM @14,@12,12(@13) 0001 00004000 BALR @12,0 0001 00005000 @PSTART DS 0H 0001 00006000 USING @PSTART,@12 0001 00007000 ST @13,@SA00001+4 0001 00008000 LA @14,@SA00001 0001 00009000 ST @14,8(,@13) 0001 00010000 LR @13,@14 0001 00011000 * /* 00012000 IEDDVAS IEDHJN START,HJN IDENTIFICATION MACRO 00013000 * 0258 00014000 * /*****************************************************************/ 00015000 * /* */ 00016000 * /* CONTROL BLOCK POINTERS AT ENTRY ARE: */ 00017000 * /* LINETRM-->CTERMTRM-->CTERMQCB-->PLCB. CONTROL BLOCK POINTERS */ 00018000 * /* AFTER DEVICE ASSOCIATION WILL BE: */ 00019000 * /* LINETRM-->LCITRM-->LCIQCB-->PLCB. BEFORE ANY POINTERS ARE */ 00020000 * /* MOVED, ADDRESSABILITY WILL BE ESTABLISHED TO NEEDED CONTROL */ 00021000 * /* BLOCKS. */ 00022000 * /* */ 00023000 * /*****************************************************************/ 00024000 * 0258 00025000 * IEDQAPTR=TCXAVT; /* ADDRESSABILITY TO AVT */ 00026000 L @09,CVTPTR 0258 00027000 L @09,TCXPTR(,@09) 0258 00028000 L @09,TCXAVT(,@09) 0258 00029000 ST @09,IEDQAPTR 0258 00030000 * RDISP=AVTEA; /* SET DISPATCHER BASE @YM05686*/ 00031000 L RDISP,AVTEA(,@09) 0259 00032000 * CTERMCIN=RZERO; /* SAVE TTCIN OF CTERM */ 00033000 STH RZERO,CTERMCIN 0260 00034000 * LCICIN=RPARM; /* SAVE TTCIN OF LCI TERMINAL */ 00035000 STH RPARM,LCICIN 0261 00036000 * CALL IEDQTNT; /* CONVERT LCI TTCIN TO TRM ADDR */ 00037000 L @15,AVTRNMPT(,@09) 0262 00038000 BALR @14,@15 0262 00039000 * RPARM=RPARM-LENGTH(IEDNTRM); /* SET POINTER TO START OF 0263 00040000 * CONTROL BLOCK PREFIX */ 00041000 SL RPARM,@CF01964 0263 00042000 * RTRM=RPARM; /* ADDRESSABILITY TO LCI TRM */ 00043000 LR RTRM,RPARM 0264 00044000 * RPARM=CTERMCIN; /* SET PARM FOR IEDQTNT */ 00045000 LH RPARM,CTERMCIN 0265 00046000 N RPARM,@CF02175 0265 00047000 * CALL IEDQTNT; /* CONVERT CTERM TTCIN TO TRM ADR*/ 00048000 L @09,IEDQAPTR 0266 00049000 L @15,AVTRNMPT(,@09) 0266 00050000 BALR @14,@15 0266 00051000 * RPARM=RPARM-LENGTH(IEDNTRM); /* SET POINTER TO START OF CNTRL 00052000 * BLOCK PREFIX */ 00053000 SL RPARM,@CF01964 0267 00054000 * CTRM=RPARM; /* ADDRESSABILITY TO CTERM TRM */ 00055000 ST RPARM,CTRM 0268 00056000 * CQCB=CTRM->TRMDESTQ; /* ADDRESSABILITY TO CTERM QCB */ 00057000 L @09,CTRM 0269 00058000 SLR CQCB,CQCB 0269 00059000 ICM CQCB,7,TRMDESTQ(@09) 0269 00060000 * CQCB=CQCB-LENGTH(IEDNQCB); /* POINT TO NEG PREFIX @XM05693*/ 00061000 SL CQCB,@CF00046 0270 00062000 * RQCB=TRMDESTQ; /* ADDRESSABILITY TO LCI QCB */ 00063000 SLR RQCB,RQCB 0271 00064000 ICM RQCB,7,TRMDESTQ(RTRM) 0271 00065000 * IF QCBSTPRI=QCBCNTVL&QCBDELAY=ON THEN/* IS TO QCB CINTVL */ 00066000 CLI QCBSTPRI(IEDQQPTR),X'70' 0272 00067000 BNE @RF00272 0272 00068000 TM QCBDELAY(IEDQQPTR),B'00000010' 0272 00069000 BNO @RF00272 0272 00070000 * DO; /* AND ON TIME DELAY @XM05693*/ 00071000 * RPARM=RQCB; /* YES SO TAKE OFF TIME DELAY 0274 00072000 * @XM05693*/ 00073000 LR RPARM,RQCB 0274 00074000 * CALL IEDQHG02; /* INVOKE TIME DELAY DEQUEUE 0275 00075000 * @XM05693*/ 00076000 L @09,IEDQAPTR 0275 00077000 L @15,AVTHG02(,@09) 0275 00078000 BALR @14,@15 0275 00079000 * END; /* @XM05693*/ 00080000 * ELSE 0277 00081000 * ; /* NOT CINTVL AND ON TDQ @XM05693*/ 00082000 @RF00272 DS 0H 0278 00083000 * LINECIN=CTRM->TRMCOHRT; /* SAVE LINE TNT IND @YM07428*/ 00084000 L @09,CTRM 0278 00085000 LH @09,TRMCOHRT(,@09) 0278 00086000 N @09,@CF02175 0278 00087000 STH @09,LINECIN 0278 00088000 * RPARM=CTRM->TRMCOHRT; /* SET PARM FOR IEDQTNT */ 00089000 LR RPARM,@09 0279 00090000 * CALL IEDQTNT; /* CONVERT LINE TTCIN TO TRM ADDR*/ 00091000 L @09,IEDQAPTR 0280 00092000 L @15,AVTRNMPT(,@09) 0280 00093000 BALR @14,@15 0280 00094000 * RPARM=RPARM-LENGTH(IEDNTRM); /* SET POINTER TO START OF CNTRL 00095000 * BLK PREFIX */ 00096000 SL RPARM,@CF01964 0281 00097000 * LINETRM=RPARM; /* ADDRESSABILITY TO LINE TRM */ 00098000 LR LINETRM,RPARM 0282 00099000 * RLCB=CQCB->QCBPLCBA; /* PLCB ADDRESSABILITY @YM05686*/ 00100000 L @09,QCBPLCBA-1(,CQCB) 0283 00101000 LA @09,0(,@09) 0283 00102000 LR RLCB,@09 0283 00103000 * 0284 00104000 * /*****************************************************************/ 00105000 * /* */ 00106000 * /* IN THE HEIRARCHIAL CONTROL BLOCK STRUCTURE, REPLACE THE */ 00107000 * /* CTERM'S TRM AND QCB WITH THE LCI'S TRM AND QCB. ASSIGN THE */ 00108000 * /* CTERM'S PLCB TO THE LCI'S QCB. */ 00109000 * /* */ 00110000 * /*****************************************************************/ 00111000 * 0284 00112000 * LINETRM->TRMSUBST=LCICIN; /* LINE TRM MUST POINT TO TRM OF 00113000 * LCI */ 00114000 LH @06,LCICIN 0284 00115000 N @06,@CF02175 0284 00116000 STH @06,TRMSUBST(,LINETRM) 0284 00117000 * TRMCOHRT=CTRM->TRMCOHRT; /* LCI TRM MUST POINT TO TRM OF 00118000 * LINE */ 00119000 L @06,CTRM 0285 00120000 LH @05,TRMCOHRT(,@06) 0285 00121000 N @05,@CF02175 0285 00122000 STH @05,TRMCOHRT(,RTRM) 0285 00123000 * QCBPLCBA=CQCB->QCBPLCBA; /* MOVE PLCB FROM CTERM TO LCI */ 00124000 LR @05,IEDQQPTR 0286 00125000 SL @05,@CF00046 0286 00126000 STCM @09,7,QCBPLCBA(@05) 0286 00127000 * CQCB->QCBPLCBN=OFF; /* INDICATE CTERM HAS NO PLCB */ 00128000 NI QCBPLCBN(CQCB),B'01111111' 0287 00129000 * QCBPLCBN=ON; /* INDICATE LCI HAS A PLCB */ 00130000 OI QCBPLCBN(@05),B'10000000' 0288 00131000 * CQCB->QCBTTCIN=CTERMCIN; /* ASSIGN CTERM'S TTCIN TO QCB */ 00132000 LH @09,CTERMCIN 0289 00133000 N @09,@CF02175 0289 00134000 STH @09,QCBTTCIN(,CQCB) 0289 00135000 * LCBTTCIN=LCICIN; /* ASSIGN LCI TTCIN TO PLCB 0290 00136000 * @YM04678*/ 00137000 LH @09,LCICIN 0290 00138000 N @09,@CF02175 0290 00139000 STH @09,LCBTTCIN(,RLCB) 0290 00140000 * IF CTRM->TRMCLOSN=ON THEN /* COPY TRMCLOSN BIT IF ON 0291 00141000 * @YM09106*/ 00142000 TM TRMCLOSN(@06),B'00100000' 0291 00143000 BNO @RF00291 0291 00144000 * TRMCLOSN=ON; /* TO LCI ENTRY @YM09106*/ 00145000 LA @05,TRMCLOSN(,RTRM) 0292 00146000 LR @15,@05 0292 00147000 LA @09,3 0292 00148000 NR @15,@09 0292 00149000 LCR @15,@15 0292 00150000 ALR @05,@15 0292 00151000 L @09,0(,@05) 0292 00152000 @GL00002 LR @06,@09 0292 00153000 O @06,@CB02178+3(@15) 0292 00154000 CS @09,@06,0(@05) 0292 00155000 BNE @GL00002 0292 00156000 * IF CTRM->TRMOCNI=ON THEN /* COPY TRMOCNI BIT IF ON 0293 00157000 * @YM09106*/ 00158000 @RF00291 L @09,CTRM 0293 00159000 TM TRMOCNI(@09),B'00100000' 0293 00160000 BNO @RF00293 0293 00161000 * TRMOCNI=ON; /* TO LCI ENTRY @YM09106*/ 00162000 OI TRMOCNI(RTRM),B'00100000' 0294 00163000 * CTRM->TRMCLOSN=OFF; /* RESET TRMCLOSN IN CTRM ENTRY 00164000 * @YM09106*/ 00165000 @RF00293 L @14,CTRM 0295 00166000 LA @05,TRMCLOSN(,@14) 0295 00167000 LR @15,@05 0295 00168000 LA @09,3 0295 00169000 NR @15,@09 0295 00170000 LCR @15,@15 0295 00171000 ALR @05,@15 0295 00172000 L @09,0(,@05) 0295 00173000 @GL00003 LR @06,@09 0295 00174000 N @06,@CB02183+3(@15) 0295 00175000 CS @09,@06,0(@05) 0295 00176000 BNE @GL00003 0295 00177000 * CTRM->TRMOCNI=OFF; /* RESET TRMOCNI IN CTRM ENTRY 0296 00178000 * @YM09106*/ 00179000 L @09,CTRM 0296 00180000 NI TRMOCNI(@09),B'11011111' 0296 00181000 * IF TRMOCNI=ON|TRMCLOSN=ON THEN 0297 00182000 TM TRMOCNI(RTRM),B'00100000' 0297 00183000 BO @RT00297 0297 00184000 TM TRMCLOSN(RTRM),B'00100000' 0297 00185000 BNO @RF00297 0297 00186000 @RT00297 DS 0H 0298 00187000 * LCBLNENT=LINECIN; /* SET LCBLNENT FOR OPERATOR CNTL 00188000 * @YM07428*/ 00189000 LH @09,LINECIN 0298 00190000 N @09,@CF02175 0298 00191000 STH @09,LCBLNENT(,RLCB) 0298 00192000 * ELSE /* NOT STOPLINE OR CLOSEDOWN 0299 00193000 * @YM07428*/ 00194000 * LCBLNENT=LCBTTCIN; /* SET LCBLNENT FOR OLD CODE 0299 00195000 * @YM07750*/ 00196000 B @RC00297 0299 00197000 @RF00297 LH @09,LCBTTCIN(,RLCB) 0299 00198000 N @09,@CF02175 0299 00199000 STH @09,LCBLNENT(,RLCB) 0299 00200000 * 0300 00201000 * /*****************************************************************/ 00202000 * /* */ 00203000 * /* PRIME SENDING IF NECESSARY @YM05686*/ 00204000 * /* */ 00205000 * /*****************************************************************/ 00206000 * 0300 00207000 * RFY 0300 00208000 * RRETCODE RSTD; /* RESTRICT RRETCODE @YM05686*/ 00209000 @RC00297 DS 0H 0301 00210000 * IF LCBSTCBA->STCBVTO=DSPSEND THEN/* IF SS STILL IN PLCB @YM05686*/ 00211000 L @14,LCBSTCBA-1(,RLCB) 0301 00212000 CLI STCBVTO(@14),X'22' 0301 00213000 BNE @RF00301 0301 00214000 * DO; /* @YM05686*/ 00215000 * SAVEQCB=RQCB; /* SAVE RQCB @YM05686*/ 00216000 LR SAVEQCB,RQCB 0303 00217000 * RTOQCB=CTRM->TRMDESTQ; /* SET TO QCB TO FROM-TRM'S QCB 00218000 * @YM05686*/ 00219000 L @14,CTRM 0304 00220000 SLR RTOQCB,RTOQCB 0304 00221000 ICM RTOQCB,7,TRMDESTQ(@14) 0304 00222000 * RFROMQCB=RLCB; /* SET FROM QCB TO PLCB @YM05686*/ 00223000 LR RFROMQCB,RLCB 0305 00224000 * RZERO=RAVT; /* SAVE SAVEAREA PTR @YM08132*/ 00225000 LR RZERO,RAVT 0306 00226000 * RAVT=ADDR(AVTSAVE2); /* GET AVT ADDRESS @YM08132*/ 00227000 L RAVT,IEDQAPTR 0307 00228000 LA RAVT,AVTSAVE2(,RAVT) 0307 00229000 * CALL DSPUNAVR; /* REMOVE FROM-TRM'S SS @YM05686*/ 00230000 LA @15,DSPUNAVR(,RDISP) 0308 00231000 BALR @14,@15 0308 00232000 * RAVT=RZERO; /* RESTORE SAVEAREA PTR @YM08132*/ 00233000 LR RAVT,RZERO 0309 00234000 * RQCB=SAVEQCB; /* RESTORE RQCB @YM05686*/ 00235000 LR RQCB,SAVEQCB 0310 00236000 * IF CTRM->TRMOCNI=OFF&CTRM->TRMCLOSN=OFF THEN/* NOT STOPLINE 00237000 * NOR CLOSEDOWN @YM08570*/ 00238000 L @14,CTRM 0311 00239000 TM TRMOCNI(@14),B'00100000' 0311 00240000 BNZ @RF00311 0311 00241000 TM TRMCLOSN(@14),B'00100000' 0311 00242000 BNZ @RF00311 0311 00243000 * DO; /* @YM08570*/ 00244000 * CQCB->QCBSNDRQ=ON; /* REQ. SS FOR FROM-TRM @YM05686*/ 00245000 OI QCBSNDRQ(CQCB),B'00100000' 0313 00246000 * IF CTRM->TRMTYPE^=TRMCTERM&/* IF FROM-TRM NOT CTERM AND 00247000 * NOT CALL-IN ONLY THEN @YM05686*/ 00248000 * CTRM->TRMDESTQ->QCBSTPRI^=QCBCALLN THEN 0314 00249000 CLI TRMTYPE(@14),X'48' 0314 00250000 BE @RF00314 0314 00251000 SLR @09,@09 0314 00252000 ICM @09,7,TRMDESTQ(@14) 0314 00253000 CLI QCBSTPRI(@09),X'50' 0314 00254000 BE @RF00314 0314 00255000 * DO; /* @YM05686*/ 00256000 * CQCB->QCBRCVRQ=ON; /* SET PLCB REQUESTED @YM05686*/ 00257000 OI QCBRCVRQ(CQCB),B'00010000' 0316 00258000 * RPARM=CTRM->TRMDESTQ;/* PASS FROM-TRM'S QCB @YM05686*/ 00259000 LR RPARM,@09 0317 00260000 * CALL IEDIAP01; /* REQUEST A PLCB @YM05686*/ 00261000 L @10,IEDQAPTR 0318 00262000 L @10,AVTSAVTP(,@10) 0318 00263000 L @15,SAVTPREQ(,@10) 0318 00264000 BALR @14,@15 0318 00265000 * IF RRETCODE^=0 THEN /* IF PLCB ASSIGNED THEN @YM05686*/ 00266000 LTR RRETCODE,RRETCODE 0319 00267000 BZ @RF00319 0319 00268000 * DO; /* @YM05686*/ 00269000 * RPARM=RRETCODE; /* SET ELEMENT REG @YM05686*/ 00270000 LR RPARM,RRETCODE 0321 00271000 * RPARM->LCBQCBA=RPARM;/* TPOST TO ITSELF @YM05686*/ 00272000 STCM RPARM,7,LCBQCBA(RPARM) 0322 00273000 * RPARM->LCBPRI=PRILNFRE;/* SET PRIORITY @YM05686*/ 00274000 MVI LCBPRI(RPARM),X'E0' 0323 00275000 * SAVEQCB=RQCB; /* SAVE RQCB @YM05686*/ 00276000 LR SAVEQCB,RQCB 0324 00277000 * RZERO=RAVT; /* SAVE SAVEAREA PTR @YM08132*/ 00278000 LR RZERO,RAVT 0325 00279000 * RAVT=ADDR(AVTSAVE2);/* GET AVT ADDRESS @YM08132*/ 00280000 L RAVT,IEDQAPTR 0326 00281000 LA RAVT,AVTSAVE2(,RAVT) 0326 00282000 * CALL DSPPOSTR; /* TPOST PLCB TO ITSELF @YM05686*/ 00283000 LA @15,DSPPOSTR(,RDISP) 0327 00284000 BALR @14,@15 0327 00285000 * RAVT=RZERO; /* RESTORE SAVEAREA PTR @YM08132*/ 00286000 LR RAVT,RZERO 0328 00287000 * RQCB=SAVEQCB; /* RESTORE RQCB @YM05686*/ 00288000 LR RQCB,SAVEQCB 0329 00289000 * END; /* @YM05686*/ 00290000 * END; /* @YM05686*/ 00291000 * END; /* @YM05686*/ 00292000 * END; /* @YM05686*/ 00293000 * ELSE 0334 00294000 * DO; 0334 00295000 B @RC00301 0334 00296000 @RF00301 DS 0H 0335 00297000 * CQCB=CQCB+LENGTH(IEDNQCB); /* POINT TO FROM QCB @XM05693*/ 00298000 AL CQCB,@CF00046 0335 00299000 * IF CQCB->QCBSTPRI=QCBCNTVL&CQCB->QCBDELAY=OFF&/* @XM05693*/ 00300000 * CQCB->QCBINTVL>0&CTRM->TRMOCNI=OFF&/* @ZM47635*/ 00301000 * CTRM->TRMCLOSN=OFF THEN /* QCB=CINTVAL AND OFF TDQ 0336 00302000 * @ZM47635*/ 00303000 CLI QCBSTPRI(CQCB),X'70' 0336 00304000 BNE @RF00336 0336 00305000 TM QCBDELAY(CQCB),B'00000010' 0336 00306000 BNZ @RF00336 0336 00307000 LH @14,QCBINTVL(,CQCB) 0336 00308000 N @14,@CF02175 0336 00309000 LTR @14,@14 0336 00310000 BNP @RF00336 0336 00311000 L @09,CTRM 0336 00312000 TM TRMOCNI(@09),B'00100000' 0336 00313000 BNZ @RF00336 0336 00314000 TM TRMCLOSN(@09),B'00100000' 0336 00315000 BNZ @RF00336 0336 00316000 * DO; /* AND CINTVAL>0 AND NOT STOPLINE 00317000 * OR CLOSEDOWN @XM05693*/ 00318000 * RTIME=CQCB->QCBINTVL; /* PICK UP CINTVL @XM05693*/ 00319000 LR RTIME,@14 0338 00320000 * IF RTIME>SEC12HR THEN /* IS IT GREATER THAN 12 HOURS 0339 00321000 * @XM05693*/ 00322000 L @14,@CF02155 0339 00323000 CR RTIME,@14 0339 00324000 BNH @RF00339 0339 00325000 * DO; /* YES @XM05693*/ 00326000 * RTIME=RTIME-SEC12HR;/* SUBTRACT 12 HOURS @XM05693*/ 00327000 SLR RTIME,@14 0341 00328000 * CQCB->QCBTIME=ON; /* INDICATE 12 HOURS @XM05693*/ 00329000 OI QCBTIME(CQCB),B'00000001' 0342 00330000 * END; /* @XM05693*/ 00331000 * ELSE 0344 00332000 * ; /* CINTVL LESS THAN 12 HOURS 0344 00333000 * @XM05693*/ 00334000 @RF00339 DS 0H 0345 00335000 * CQCB->QCBEOLDT=RTIME; /* SET DELAY INTERVAL @XM05693*/ 00336000 STH RTIME,QCBEOLDT(,CQCB) 0345 00337000 * CQCB->QCBLKRLN=0; /* ZERO LOCK RELATED LINE NUM 0346 00338000 * @XM05693*/ 00339000 MVI QCBLKRLN(CQCB),X'00' 0346 00340000 * CQCB->QCBELCHN=CQCB; /* SET QCB ADDR IN ELEMENT 0347 00341000 * @XM05693*/ 00342000 STCM CQCB,7,QCBELCHN(CQCB) 0347 00343000 * CQCB->QCBPRI=PRIMHUNT; /* SET PRIORITY ON RETURN 0348 00344000 * @XM05693*/ 00345000 MVI QCBPRI(CQCB),X'E8' 0348 00346000 * CQCB->QCBSTCHN=CQCB->QCBSLINK;/* PUT DEST SCHED IN 0349 00347000 * @XM05693*/ 00348000 MVC QCBSTCHN(3,CQCB),QCBSLINK(CQCB) 0349 00349000 * RPARM=CQCB; /* POINT TO ELEMENT QCB @XM05693*/ 00350000 LR RPARM,CQCB 0350 00351000 * CALL IEDQHG01; /* PUT ON TIME DELAY @XM05693*/ 00352000 L @09,IEDQAPTR 0351 00353000 L @15,AVTHG01(,@09) 0351 00354000 BALR @14,@15 0351 00355000 * END; /* @XM05693*/ 00356000 * CQCB=CQCB-LENGTH(IEDNQCB); /* BACK UP TO PREF @XM05693*/ 00357000 @RF00336 SL CQCB,@CF00046 0353 00358000 * END; /* @XM05693*/ 00359000 * IF TRMTYPE^=TRMCTERM THEN /* IF TO-TRM IS NOT THE CTERM */ 00360000 @RC00301 CLI TRMTYPE(RTRM),X'48' 0355 00361000 BE @RF00355 0355 00362000 * IF QCBSNDRQ=ON THEN /* IF SS REQUESTED THEN @YM05686*/ 00363000 LR @14,IEDQQPTR 0356 00364000 SL @14,@CF00046 0356 00365000 TM QCBSNDRQ(@14),B'00100000' 0356 00366000 BNO @RF00356 0356 00367000 * DO; /* @YM05686*/ 00368000 * QCBSNDRQ=OFF; /* RESET SS REQUESTED @YM05686*/ 00369000 NI QCBSNDRQ(@14),B'11011111' 0358 00370000 * SAVEQCB=RQCB; /* SAVE RQCB @YM05686*/ 00371000 LR SAVEQCB,RQCB 0359 00372000 * RTOQCB=RLCB; /* SET TO QCB TO PLCB @YM05686*/ 00373000 LR RTOQCB,RLCB 0360 00374000 * RFROMQCB=TRMDESTQ; /* SET FROM QCB TO TO-TRM'S QCB 00375000 * @YM05686*/ 00376000 SLR RFROMQCB,RFROMQCB 0361 00377000 ICM RFROMQCB,7,TRMDESTQ(RTRM) 0361 00378000 * RZERO=RAVT; /* SAVE SAVEAREA PTR @YM08132*/ 00379000 LR RZERO,RAVT 0362 00380000 * RAVT=ADDR(AVTSAVE2); /* GET AVT ADDRESS @YM08132*/ 00381000 L RAVT,IEDQAPTR 0363 00382000 LA RAVT,AVTSAVE2(,RAVT) 0363 00383000 * CALL DSPUNAVR; /* INSERT TO-TRM'S SS @YM05686*/ 00384000 LA @15,DSPUNAVR(,RDISP) 0364 00385000 BALR @14,@15 0364 00386000 * RAVT=RZERO; /* RESTORE SAVEAREA PTR @YM08132*/ 00387000 LR RAVT,RZERO 0365 00388000 * RQCB=SAVEQCB; /* RESTORE RQCB @YM05686*/ 00389000 LR RQCB,SAVEQCB 0366 00390000 * END; /* @YM05686*/ 00391000 * RFY 0368 00392000 * RRETCODE UNRSTD; /* FREE REG @YM05686*/ 00393000 @RF00356 DS 0H 0368 00394000 @RF00355 DS 0H 0369 00395000 * 0369 00396000 * /*****************************************************************/ 00397000 * /* */ 00398000 * /* WHEN SENDING AND RECEIVING, TCAM'S TTCIN'S ARE TRANSLATED TO */ 00399000 * /* AND FROM NETWORK ADDRESSES VIA TWO TABLES: THE RESOURCE VECTOR*/ 00400000 * /* TABLE (RVT) ON RECEIVE AND THE NETWORK ADDRESS TABLE (NAT) ON */ 00401000 * /* SEND. SINCE THE NCP COMMUNICATES ONLY WITH THE CTERM, IF TCAM */ 00402000 * /* IS SENDING TO A LOGICAL CONNECTION INDEX, THE LCI'S TTCIN MUST*/ 00403000 * /* BE TRANSLATED TO THE CTERM'S NETWORK ADDRESS. ON RECEIVE THE */ 00404000 * /* CTERM'S NETWORK ADDRESS MUST BE TRANSLATED TO THE LCI'S TTCIN.*/ 00405000 * /* THIS IS ACCOMPLISHED BY SWAPPING THE CTERM AND LCI ENTRIES IN */ 00406000 * /* THE RVT AND NAT TABLES. THE ELEMENT PORTION OF A NETWORK */ 00407000 * /* ADDRESS IS AN INDEX INTO THE RVT. A TTCIN IS AN INDEX INTO THE*/ 00408000 * /* NAT. FOR EACH NCP IN THE SYSTEM, THERE IS A UNIQUE RVT. THE */ 00409000 * /* SUBAREA TABLE (SAT) IS A TABLE OF POINTERS TO THESE RVT'S. THE*/ 00410000 * /* SUBAREA TABLE IS INDEXED BY THE SUBAREA PORTION OF THE NETWORK*/ 00411000 * /* ADDRESS. */ 00412000 * /* */ 00413000 * /*****************************************************************/ 00414000 * 0369 00415000 */* */ 00416000 */*CALL IEDIAP04 TO CONVERT THE LCI'S TTCIN TO A NETWORK ADDRESS */ 00417000 */* */ 00418000 * 0369 00419000 * RPARM=LCICIN; /* PARM PASSED IS TTCIN OF LCI */ 00420000 LH RPARM,LCICIN 0369 00421000 N RPARM,@CF02175 0369 00422000 * RFY 0370 00423000 * RLINK RSTD; 0370 00424000 * CALL IEDIAP04; /* ON RETURN, RLINK WILL CONTAIN 00425000 * THE NETWORK ADDRESS */ 00426000 L @09,IEDQAPTR 0371 00427000 L @09,AVTSAVTP(,@09) 0371 00428000 L @15,SAVTTNTX(,@09) 0371 00429000 BALR @14,@15 0371 00430000 * LCISUBA=RLINK; /* SAVE THE NETWORK ADDRESS IN 0372 00431000 * TWO LOCATIONS */ 00432000 STCM RLINK,3,LCISUBA 0372 00433000 * LCIELEM=RLINK; 0373 00434000 * 0373 00435000 STCM RLINK,3,LCIELEM 0373 00436000 */* */ 00437000 */*SEPARATE THE LCI'S NETWORK ADDRESS INTO SUBAREA AND ELEMENT */ 00438000 */* */ 00439000 * 0374 00440000 * SLL(LCIELEM,SAVTSUBL); /* TO GET ELEMENT ADDRESS, SHIFT 00441000 * SUBAREA'S ADDRESS OUT OF 0374 00442000 * NETWORK ADDRESS */ 00443000 SLR @14,@14 0374 00444000 ICM @14,3,LCIELEM 0374 00445000 L @09,IEDQAPTR 0374 00446000 L @09,AVTSAVTP(,@09) 0374 00447000 SLR @06,@06 0374 00448000 IC @06,SAVTSUBL(,@09) 0374 00449000 SLL @14,0(@06) 0374 00450000 STCM @14,3,LCIELEM 0374 00451000 * SRL(LCIELEM,SAVTSUBL); /* RIGHT ADJUST ELEMENT ADDRESS */ 00452000 SLR @14,@14 0375 00453000 ICM @14,3,LCIELEM 0375 00454000 SRL @14,0(@06) 0375 00455000 STCM @14,3,LCIELEM 0375 00456000 */* */ 00457000 * 0376 00458000 * ELEMLEN=NABITLEN-SAVTSUBL; /* CALC LENGTH OF ELEMENT'S 0376 00459000 * ADDRESS */ 00460000 LCR @06,@06 0376 00461000 AL @06,@CF00464 0376 00462000 LR ELEMLEN,@06 0376 00463000 * SRL(LCISUBA,ELEMLEN); /* TO GET SUBAREA ADDRESS, SHIFT 00464000 * ELEMENT'S ADDRESS OUT OF 0377 00465000 * NETWORK ADDRESS */ 00466000 SLR @14,@14 0377 00467000 ICM @14,3,LCISUBA 0377 00468000 SRL @14,0(ELEMLEN) 0377 00469000 STCM @14,3,LCISUBA 0377 00470000 */* */ 00471000 */*CALL IEDIAP04 TO CONVERT THE CTERM'S TTCIN TO A NETWORK ADDRESS */ 00472000 */* */ 00473000 * 0378 00474000 * RPARM=CTERMCIN; /* PARM PASSED IS THE CTERM TTCIN*/ 00475000 LH RPARM,CTERMCIN 0378 00476000 N RPARM,@CF02175 0378 00477000 * CALL IEDIAP04; /* ON RETURN RLINK CONTAINS THE 00478000 * NETWORK ADDRESS */ 00479000 L @15,SAVTTNTX(,@09) 0379 00480000 BALR @14,@15 0379 00481000 * CTRMELEM=RLINK; /* SAVE THE CTERM'S NETWORK 0380 00482000 * ADDRESS.... */ 00483000 STCM RLINK,3,CTRMELEM 0380 00484000 * CTRMSUBA=RLINK; /* ....IN TWO LOCATIONS */ 00485000 STCM RLINK,3,CTRMSUBA 0381 00486000 * RFY 0382 00487000 * RLINK UNRSTD; 0382 00488000 * 0382 00489000 */* */ 00490000 */*SEPARATE THE CTERM'S NETWORK ADDRESS INTO SUBAREA AND ELEMENT */ 00491000 */* */ 00492000 * 0383 00493000 * SLL(CTRMELEM,SAVTSUBL); /* SHIFT THE SUBAREA PORTION OUT 00494000 * OF THE .... */ 00495000 SLR @09,@09 0383 00496000 ICM @09,3,CTRMELEM 0383 00497000 L @06,IEDQAPTR 0383 00498000 L @06,AVTSAVTP(,@06) 0383 00499000 SLR @05,@05 0383 00500000 IC @05,SAVTSUBL(,@06) 0383 00501000 SLL @09,0(@05) 0383 00502000 STCM @09,3,CTRMELEM 0383 00503000 * SRL(CTRMELEM,SAVTSUBL); /* ...CTERM'S NETWORK ADDRESS */ 00504000 SLR @09,@09 0384 00505000 ICM @09,3,CTRMELEM 0384 00506000 SRL @09,0(@05) 0384 00507000 STCM @09,3,CTRMELEM 0384 00508000 * SRL(CTRMSUBA,ELEMLEN); /* SHIFT ELEMENTS ADDRESS OUT OF 00509000 * NETWORK ADDR */ 00510000 SLR @09,@09 0385 00511000 ICM @09,3,CTRMSUBA 0385 00512000 SRL @09,0(ELEMLEN) 0385 00513000 STCM @09,3,CTRMSUBA 0385 00514000 */* */ 00515000 */*SETUP ADDRESSABILITY TO LCI'S AND CTERM'S RESOURCE VECTOR TABLES */ 00516000 */* */ 00517000 * 0386 00518000 * IEDQSATP=SAVTSAT+(LENGTH(IEDSATD)*(LCISUBA-1));/* FIND LCI SAT 0386 00519000 * ENTRY */ 00520000 L @09,SAVTSAT(,@06) 0386 00521000 SLR IEDQSATP,IEDQSATP 0386 00522000 ICM IEDQSATP,3,LCISUBA 0386 00523000 BCTR IEDQSATP,0 0386 00524000 SLA IEDQSATP,3 0386 00525000 ALR IEDQSATP,@09 0386 00526000 * LCIRVTP=SATRNRVT; /* PTR TO LCI RVT */ 00527000 L @05,SATRNRVT(,IEDQSATP) 0387 00528000 ST @05,LCIRVTP 0387 00529000 * IEDQSATP=SAVTSAT+(LENGTH(IEDSATD)*(CTRMSUBA-1));/* FIND CTERM SAT 00530000 * ENTRY */ 00531000 SLR IEDQSATP,IEDQSATP 0388 00532000 ICM IEDQSATP,3,CTRMSUBA 0388 00533000 BCTR IEDQSATP,0 0388 00534000 SLA IEDQSATP,3 0388 00535000 ALR @09,IEDQSATP 0388 00536000 LR IEDQSATP,@09 0388 00537000 * IEDQRVTP=SATRNRVT; /* PTR TO CTERM RVT */ 00538000 L @09,SATRNRVT(,IEDQSATP) 0389 00539000 ST @09,IEDQRVTP 0389 00540000 */* */ 00541000 */*SWAP THE LCI AND CTERM ENTRIES IN THE RVT */ 00542000 */* */ 00543000 * 0390 00544000 * IEDQRVTP=IEDQRVTP+(CTRMELEM*LENGTH(RVTINDEX));/* CTERM ENTRY 0390 00545000 * @YM05649*/ 00546000 SLR @15,@15 0390 00547000 ICM @15,3,CTRMELEM 0390 00548000 ALR @15,@15 0390 00549000 ALR @09,@15 0390 00550000 ST @09,IEDQRVTP 0390 00551000 * SAVINDEX=RVTINDEX; /* SAVE CTERM ENTRY */ 00552000 LH SAVINDEX,RVTINDEX(,@09) 0391 00553000 * LCIRVTP=LCIRVTP+(LCIELEM*LENGTH(RVTINDEX));/* LCI ENTRY @YM05649*/ 00554000 SLR @15,@15 0392 00555000 ICM @15,3,LCIELEM 0392 00556000 ALR @15,@15 0392 00557000 ALR @05,@15 0392 00558000 ST @05,LCIRVTP 0392 00559000 * RVTINDEX=LCIRVTP->RVTINDEX; /* REPLACE CTERM ENTRY WITH LCI 00560000 * ENTRY */ 00561000 LH @15,RVTINDEX(,@05) 0393 00562000 STH @15,RVTINDEX(,@09) 0393 00563000 * LCIRVTP->RVTINDEX=SAVINDEX; /* REPLACE LCI ENTRY WITH CTERM 00564000 * ENTRY */ 00565000 STH SAVINDEX,RVTINDEX(,@05) 0394 00566000 */* */ 00567000 */*SWAP THE LCI AND CTERM ENTRIES IN THE NAT */ 00568000 */* */ 00569000 * 0395 00570000 * IEDQNATP=SAVTNAT+((CTERMCIN-1)*(LENGTH(IEDNATD)));/* SET PTR TO 00571000 * CTERM ENTRY */ 00572000 L @09,SAVTNAT(,@06) 0395 00573000 LH @06,CTERMCIN 0395 00574000 N @06,@CF02175 0395 00575000 BCTR @06,0 0395 00576000 ALR @06,@06 0395 00577000 ALR @06,@09 0395 00578000 ST @06,IEDQNATP 0395 00579000 * SAVNA=NATODAF; /* SAVE CTERM ENTRY */ 00580000 LH @05,NATODAF(,@06) 0396 00581000 N @05,@CF02175 0396 00582000 STH @05,SAVNA 0396 00583000 * LCINATPT=SAVTNAT+((LCICIN-1)*(LENGTH(IEDNATD)));/* SET PTR TO LCI 00584000 * ENTRY */ 00585000 LH LCINATPT,LCICIN 0397 00586000 N LCINATPT,@CF02175 0397 00587000 BCTR LCINATPT,0 0397 00588000 ALR LCINATPT,LCINATPT 0397 00589000 ALR @09,LCINATPT 0397 00590000 LR LCINATPT,@09 0397 00591000 * NATODAF=LCINATPT->NATODAF; /* REPLACE CTERM ENTRY WIHT LCI 00592000 * ENTRY */ 00593000 MVC NATODAF(2,@06),NATODAF(LCINATPT) 0398 00594000 * LCINATPT->NATODAF=SAVNA; /* REPALCE LCI ENTRY WITH CTERM 00595000 * ENTRY */ 00596000 LH @09,SAVNA 0399 00597000 N @09,@CF02175 0399 00598000 STH @09,NATODAF(,LCINATPT) 0399 00599000 * 0400 00600000 * /*****************************************************************/ 00601000 * /* */ 00602000 * /* STATE BITS MUST BE PROPOGATED BETWEEN THE TWO TRM CONTROL */ 00603000 * /* BLOCKS. */ 00604000 * /* */ 00605000 * /*****************************************************************/ 00606000 * 0400 00607000 * IF CTRM->TRMSESSN=ON THEN /* @YM04682*/ 00608000 L @10,CTRM 0400 00609000 TM TRMSESSN(@10),B'01000000' 0400 00610000 BNO @RF00400 0400 00611000 * DO; /* @YM04682*/ 00612000 * CTRM->TRMSESSN=OFF; /* @YM04682*/ 00613000 NI TRMSESSN(@10),B'10111111' 0402 00614000 * TRMSESSN=ON; /* @YM04682*/ 00615000 OI TRMSESSN(RTRM),B'01000000' 0403 00616000 * END; /* @YM04682*/ 00617000 * IF CTRM->TRMUDEF=ON THEN /* @YM04682*/ 00618000 @RF00400 L @10,CTRM 0405 00619000 TM TRMUDEF(@10),B'10000000' 0405 00620000 BNO @RF00405 0405 00621000 * DO; /* @YM04682*/ 00622000 * CTRM->TRMUDEF=OFF; /* @YM04682*/ 00623000 NI TRMUDEF(@10),B'01111111' 0407 00624000 * TRMUDEF=ON; /* @YM04682*/ 00625000 OI TRMUDEF(RTRM),B'10000000' 0408 00626000 * END; /* @YM04682*/ 00627000 * IF CTRM->TRMOCNI=ON THEN /* @YM04682*/ 00628000 @RF00405 L @10,CTRM 0410 00629000 TM TRMOCNI(@10),B'00100000' 0410 00630000 BNO @RF00410 0410 00631000 * DO; /* @YM04682*/ 00632000 * CTRM->TRMOCNI=OFF; /* @YM04682*/ 00633000 NI TRMOCNI(@10),B'11011111' 0412 00634000 * TRMOCNI=ON; /* @YM04682*/ 00635000 OI TRMOCNI(RTRM),B'00100000' 0413 00636000 * END; /* @YM04682*/ 00637000 * IF CTRM->TRMERLCK=ON THEN /* @YM04682*/ 00638000 @RF00410 L @10,CTRM 0415 00639000 TM TRMERLCK(@10),B'00000100' 0415 00640000 BNO @RF00415 0415 00641000 * DO; /* @YM04682*/ 00642000 * CTRM->TRMERLCK=OFF; /* @YM04682*/ 00643000 NI TRMERLCK(@10),B'11111011' 0417 00644000 * TRMERLCK=ON; /* @YM04682*/ 00645000 OI TRMERLCK(RTRM),B'00000100' 0418 00646000 * END; /* @YM04682*/ 00647000 * IF CTRM->TRMASNXI=ON THEN /* @YM04682*/ 00648000 @RF00415 L @10,CTRM 0420 00649000 TM TRMASNXI(@10),B'00010000' 0420 00650000 BNO @RF00420 0420 00651000 * DO; /* @YM04682*/ 00652000 * CTRM->TRMASNXI=OFF; /* @YM04682*/ 00653000 NI TRMASNXI(@10),B'11101111' 0422 00654000 * TRMASNXI=ON; /* @YM04682*/ 00655000 OI TRMASNXI(RTRM),B'00010000' 0423 00656000 * END; /* @YM04682*/ 00657000 * IF CTRM->TRMSTMM=ON THEN /* @YM04682*/ 00658000 @RF00420 L @10,CTRM 0425 00659000 TM TRMSTMM(@10),B'00100000' 0425 00660000 BNO @RF00425 0425 00661000 * DO; /* @YM04682*/ 00662000 * CTRM->TRMSTMM=OFF; /* @YM04682*/ 00663000 NI TRMSTMM(@10),B'11011111' 0427 00664000 * TRMSTMM=ON; /* @YM04682*/ 00665000 OI TRMSTMM(RTRM),B'00100000' 0428 00666000 * END; /* @YM04682*/ 00667000 * IF CTRM->TRMTRACE=ON THEN /* @YM04682*/ 00668000 @RF00425 L @10,CTRM 0430 00669000 TM TRMTRACE(@10),B'00001000' 0430 00670000 BNO @RF00430 0430 00671000 * DO; /* @YM04682*/ 00672000 * CTRM->TRMTRACE=OFF; /* @YM04682*/ 00673000 NI TRMTRACE(@10),B'11110111' 0432 00674000 * TRMTRACE=ON; /* @YM04682*/ 00675000 OI TRMTRACE(RTRM),B'00001000' 0433 00676000 * END; /* @YM04682*/ 00677000 * END IEDDVAS 0435 00678000 * 0435 00679000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00680000 */*%INCLUDE SYSLIB (TAVTD ) */ 00681000 */*%INCLUDE SYSLIB (CVT ) */ 00682000 */*%INCLUDE SYSLIB (TDISPD ) */ 00683000 */*%INCLUDE SYSLIB (TLCBD ) */ 00684000 */*%INCLUDE SYSLIB (TNATD ) */ 00685000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00686000 */*%INCLUDE SYSLIB (TQCBD ) */ 00687000 */*%INCLUDE SYSLIB (TRVTD ) */ 00688000 */*%INCLUDE SYSLIB (TSATD ) */ 00689000 */*%INCLUDE SYSLIB (TSTCBD ) */ 00690000 */*%INCLUDE SYSLIB (TTCXD ) */ 00691000 */*%INCLUDE SYSLIB (TTRMD ) */ 00692000 * 0435 00693000 * ; 0435 00694000 @EL00001 L @13,4(,@13) 0435 00695000 @EF00001 DS 0H 0435 00696000 @ER00001 LM @14,@12,12(@13) 0435 00697000 BR @14 0435 00698000 @DATA DS 0H 00699000 DS 0F 00700000 @SA00001 DS 18F 00701000 DS 0F 00702000 @CF00046 DC F'8' 00703000 @CF01964 DC F'14' 00704000 @CF02155 DC F'43200' 00705000 @CF02175 DC XL4'0000FFFF' 00706000 @CF00464 DC XL4'10' 00707000 DS 0D 00708000 IEDQAPTR DS A 00709000 IEDQNATP DS A 00710000 IEDQRVTP DS A 00711000 LCIRVTP DS A 00712000 CTRM DS A 00713000 SAVNA DS H 00714000 CTERMCIN DS H 00715000 LCICIN DS H 00716000 LINECIN DC AL2(0) 00717000 @CB02178 DC B'000000000000000000000000001000000000000000000000000000C00718000 00' 00719000 @CB02183 DC B'111111111111111111111111110111111111111111111111111111C00720000 11' 00721000 CTRMSUBA DS BL2 00722000 LCISUBA DS BL2 00723000 LCIELEM DS BL2 00724000 CTRMELEM DS BL2 00725000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00726000 @01 EQU 01 00727000 @02 EQU 02 00728000 @03 EQU 03 00729000 @04 EQU 04 00730000 @05 EQU 05 00731000 @06 EQU 06 00732000 @07 EQU 07 00733000 @08 EQU 08 00734000 @09 EQU 09 00735000 @10 EQU 10 00736000 @11 EQU 11 00737000 @12 EQU 12 00738000 @13 EQU 13 00739000 @14 EQU 14 00740000 @15 EQU 15 00741000 SAVEQCB EQU @06 00742000 ELEMLEN EQU @10 00743000 LINETRM EQU @05 00744000 CQCB EQU @10 00745000 SAVINDEX EQU @10 00746000 LCINATPT EQU @10 00747000 IEDQSATP EQU @10 00748000 RDISP EQU @11 00749000 IEDQLPTR EQU @04 00750000 LCBXPTR EQU @05 00751000 IEDQQPTR EQU @07 00752000 RTRM EQU @08 00753000 RLCB EQU @04 00754000 RPARM EQU @01 00755000 RZERO EQU @00 00756000 RLINK EQU @15 00757000 RTIME EQU @02 00758000 RTOQCB EQU @03 00759000 RFROMQCB EQU @07 00760000 RQCB EQU @07 00761000 RBASE EQU @12 00762000 RAVT EQU @13 00763000 RRETCODE EQU @15 00764000 RRETURN EQU @14 00765000 CVTPTR EQU 16 00766000 IEDQAVTD EQU 0 00767000 AVTSAVE2 EQU IEDQAVTD+72 00768000 AVTSAVEX EQU IEDQAVTD+288 00769000 @NM00003 EQU IEDQAVTD+388 00770000 AVTCKFLG EQU @NM00003 00771000 AVTBASE EQU IEDQAVTD+412 00772000 AVTPKF EQU AVTBASE 00773000 AVTRNMPT EQU IEDQAVTD+424 00774000 AVTOSECB EQU IEDQAVTD+492 00775000 AVTECB1 EQU AVTOSECB 00776000 AVTHG02 EQU IEDQAVTD+528 00777000 AVTEA EQU IEDQAVTD+548 00778000 AVTDISP EQU IEDQAVTD+552 00779000 AVTHD EQU IEDQAVTD+556 00780000 AVTSCOPT EQU AVTHD 00781000 AVTSAVTP EQU IEDQAVTD+612 00782000 AVTSAVTF EQU AVTSAVTP 00783000 AVTCKPEL EQU IEDQAVTD+652 00784000 AVTCKRMV EQU AVTCKPEL 00785000 AVTCKELF EQU IEDQAVTD+680 00786000 AVTCKBYT EQU IEDQAVTD+691 00787000 AVTHG01 EQU IEDQAVTD+692 00788000 AVTCKLNK EQU IEDQAVTD+696 00789000 AVTCRELE EQU IEDQAVTD+708 00790000 AVTCCELE EQU AVTCRELE 00791000 AVTCLRHI EQU IEDQAVTD+716 00792000 AVTADBUF EQU IEDQAVTD+720 00793000 AVTSYSER EQU IEDQAVTD+728 00794000 AVTCKPQB EQU IEDQAVTD+804 00795000 AVTCKPTB EQU AVTCKPQB 00796000 AVTCKPEC EQU AVTCKPQB+4 00797000 AVTCKPCC EQU AVTCKPEC 00798000 AVTOPCQB EQU IEDQAVTD+816 00799000 AVTOPCOB EQU AVTOPCQB 00800000 AVTOPCEC EQU AVTOPCQB+4 00801000 AVTOPCCC EQU AVTOPCEC 00802000 AVTOLTQB EQU IEDQAVTD+828 00803000 AVTCWFL1 EQU IEDQAVTD+924 00804000 AVTCWFL2 EQU IEDQAVTD+925 00805000 AVTSUBT EQU IEDQAVTD+948 00806000 AVTIOTR EQU IEDQAVTD+949 00807000 AVTBIT1 EQU IEDQAVTD+1050 00808000 AVTBIT2 EQU IEDQAVTD+1051 00809000 AVTBIT3 EQU IEDQAVTD+1052 00810000 AVTBIT4 EQU IEDQAVTD+1136 00811000 @NM00085 EQU IEDQAVTD+1232 00812000 IEDNSVTD EQU 0 00813000 SAVTDIAG EQU IEDNSVTD 00814000 SAVTDIAF EQU SAVTDIAG 00815000 SAVTPREQ EQU IEDNSVTD+16 00816000 SAVTNAT EQU IEDNSVTD+76 00817000 SAVTSAT EQU IEDNSVTD+80 00818000 SAVTLUSQ EQU IEDNSVTD+88 00819000 SAVTTCPU EQU IEDNSVTD+238 00820000 SAVTTNTX EQU IEDNSVTD+252 00821000 SAVTZELM EQU IEDNSVTD+270 00822000 SAVTSUBL EQU IEDNSVTD+272 00823000 SAVTRDRV EQU IEDNSVTD+284 00824000 SAVTCKQB EQU IEDNSVTD+300 00825000 SAVTCKTB EQU SAVTCKQB 00826000 SAVTCKEC EQU SAVTCKQB+4 00827000 SAVTCKCC EQU SAVTCKEC 00828000 CVTMAP EQU 0 00829000 CVTDAR EQU CVTMAP+72 00830000 CVTFLGS1 EQU CVTDAR 00831000 CVTDCB EQU CVTMAP+116 00832000 CVTIERLC EQU CVTMAP+144 00833000 CVTOPTA EQU CVTMAP+182 00834000 CVTOPTB EQU CVTMAP+183 00835000 CVTGTF EQU CVTMAP+236 00836000 CVTGTFST EQU CVTGTF 00837000 CVTGTFS EQU CVTGTFST 00838000 CVTSTATE EQU CVTGTFST 00839000 CVTTMODE EQU CVTGTFST 00840000 CVTFORM EQU CVTGTFST 00841000 CVTAQAVT EQU CVTMAP+240 00842000 CVTTCMFG EQU CVTAQAVT 00843000 CVTVOLM2 EQU CVTMAP+244 00844000 CVTTATA EQU CVTVOLM2 00845000 CVTTSKS EQU CVTTATA 00846000 CVTVOLF2 EQU CVTTSKS 00847000 CVTTAT EQU CVTTATA+1 00848000 CVTATER EQU CVTMAP+248 00849000 CVTEXT1 EQU CVTMAP+252 00850000 CVTPURG EQU CVTMAP+260 00851000 CVTQMSG EQU CVTMAP+268 00852000 CVTDMSR EQU CVTMAP+272 00853000 CVTRSV37 EQU CVTDMSR 00854000 CVTDMSRF EQU CVTRSV37 00855000 CVTERPV EQU CVTMAP+316 00856000 CVTINTLA EQU CVTMAP+320 00857000 CVTAPF EQU CVTMAP+324 00858000 CVTEXT2 EQU CVTMAP+328 00859000 CVTHJES EQU CVTMAP+332 00860000 CVTPGSIA EQU CVTMAP+348 00861000 CVTA1F1 EQU CVTMAP+356 00862000 CVTSYSK EQU CVTMAP+357 00863000 CVTVOLM1 EQU CVTMAP+380 00864000 CVTVOLF1 EQU CVTVOLM1 00865000 CVTATMCT EQU CVTMAP+388 00866000 CVTXTNT1 EQU 0 00867000 CVTXTNT2 EQU 0 00868000 CVTDSSV EQU CVTXTNT2 00869000 CVTFLGBT EQU CVTXTNT2+5 00870000 CVTQID EQU CVTXTNT2+24 00871000 CVTSHS EQU CVTXTNT2+40 00872000 CVTRV400 EQU CVTXTNT2+52 00873000 CVTRV409 EQU CVTXTNT2+53 00874000 CVTATCVT EQU CVTXTNT2+64 00875000 CVTRV429 EQU CVTXTNT2+84 00876000 CVTRV438 EQU CVTXTNT2+85 00877000 CVTRV457 EQU CVTXTNT2+112 00878000 CVTRV466 EQU CVTXTNT2+113 00879000 CVTFIX EQU 0 00880000 CVTRELNO EQU CVTFIX+252 00881000 IEDQDISP EQU 0 00882000 DSPPOSTR EQU 28 00883000 DSPUNAVR EQU 44 00884000 IEDQLCB EQU 0 00885000 LCBRCB EQU IEDQLCB 00886000 LCBQCBA EQU LCBRCB+1 00887000 LCBPRI EQU LCBRCB+4 00888000 LCBSTCBA EQU IEDQLCB+9 00889000 LCBTSOB EQU IEDQLCB+19 00890000 LCBCHAIN EQU IEDQLCB+20 00891000 LCBSCRNN EQU LCBCHAIN 00892000 LCBTETEN EQU LCBCHAIN 00893000 LCBINSRC EQU IEDQLCB+21 00894000 LCBLKMDE EQU LCBINSRC+2 00895000 LCBNTXT EQU IEDQLCB+24 00896000 LCBSTAT4 EQU LCBNTXT 00897000 LCBPHASE EQU LCBSTAT4 00898000 LCBSCBDA EQU IEDQLCB+25 00899000 LCBLNENT EQU LCBSCBDA+1 00900000 LCBMHA EQU IEDQLCB+29 00901000 LCBFLAG1 EQU IEDQLCB+32 00902000 LCBIOBSN EQU IEDQLCB+33 00903000 LCBSNS EQU LCBIOBSN+1 00904000 LCBSENS0 EQU LCBSNS 00905000 LCBLOSDT EQU LCBSENS0 00906000 LCBTMOUT EQU LCBSENS0 00907000 LCBFLAG3 EQU LCBIOBSN+7 00908000 LCBCSW EQU LCBIOBSN+8 00909000 LCBCSWST EQU LCBCSW+3 00910000 LCBCSWUS EQU LCBCSWST 00911000 LCBCSWCS EQU LCBCSWST+1 00912000 LCBSIOCC EQU LCBIOBSN+15 00913000 LCBDCBPT EQU IEDQLCB+52 00914000 LCBRCQCB EQU IEDQLCB+56 00915000 LCBTHSQ EQU IEDQLCB+60 00916000 LCBINCAM EQU LCBTHSQ 00917000 LCBERRCT EQU IEDQLCB+62 00918000 LCBLSPCI EQU IEDQLCB+65 00919000 LCBRCBFR EQU LCBLSPCI 00920000 LCBSTATE EQU IEDQLCB+70 00921000 LCBSTAT1 EQU LCBSTATE 00922000 LCBSTAT2 EQU LCBSTATE+1 00923000 LCBBEOTN EQU LCBSTAT2 00924000 LCBSYNC EQU LCBSTAT2 00925000 LCBDIAL EQU LCBSTAT2 00926000 LCBTSTSW EQU IEDQLCB+72 00927000 LCBERB EQU IEDQLCB+76 00928000 LCBERBST EQU IEDQLCB+84 00929000 LCBDLNKN EQU LCBERBST 00930000 LCBERBCT EQU IEDQLCB+88 00931000 LCBRBCT2 EQU LCBERBCT+1 00932000 LCBTTCIN EQU IEDQLCB+90 00933000 LCBMSGFM EQU IEDQLCB+92 00934000 LCBOBRCH EQU IEDQLCB+96 00935000 LCBINVPT EQU LCBOBRCH+1 00936000 LCBBFRW EQU LCBINVPT 00937000 LCBTPCD EQU IEDQLCB+100 00938000 LCBSTAT5 EQU LCBTPCD 00939000 LCBSTAT6 EQU LCBTPCD+4 00940000 LCBRSPSV EQU LCBTPCD+8 00941000 LCBSAVSN EQU IEDQLCB+112 00942000 LCBERCCW EQU IEDQLCB+120 00943000 LCBCPA EQU IEDQLCB+144 00944000 LCBCCW5 EQU LCBCPA+32 00945000 LCBATTEL EQU LCBCCW5 00946000 LCBQEBPL EQU LCBATTEL 00947000 IEDQLCBX EQU 0 00948000 LCBXCON EQU IEDQLCBX 00949000 LCBXFLAG EQU LCBXCON 00950000 LCBXDCT EQU LCBXCON+1 00951000 LCBXRADR EQU LCBXCON+4 00952000 IEDNATD EQU 0 00953000 NATODAF EQU IEDNATD 00954000 IEDQQCB EQU 0 00955000 QCBDSFLG EQU IEDQQCB 00956000 QCBDISK EQU QCBDSFLG 00957000 QCBELCHN EQU IEDQQCB+1 00958000 QCBPRI EQU IEDQQCB+4 00959000 QCBSTCHN EQU IEDQQCB+9 00960000 QCBSTPRI EQU IEDQQCB+12 00961000 QCBSLINK EQU IEDQQCB+13 00962000 QCBEOLDT EQU IEDQQCB+16 00963000 QCBBYTE1 EQU QCBEOLDT+1 00964000 QCBLKRLN EQU IEDQQCB+18 00965000 QCBRETCT EQU QCBLKRLN 00966000 QCBSTAT EQU IEDQQCB+19 00967000 QCBTIME EQU QCBSTAT 00968000 QCBINSRC EQU IEDQQCB+21 00969000 @NM00150 EQU QCBINSRC 00970000 QCBTSOF2 EQU @NM00150+1 00971000 QCBTSOF1 EQU @NM00150+2 00972000 QCBDELAY EQU QCBTSOF1 00973000 QCBINTVL EQU IEDQQCB+24 00974000 QCBPREN EQU IEDQQCB+28 00975000 QCBLKRRN EQU QCBPREN+1 00976000 QCBDCBAD EQU IEDQQCB+33 00977000 QCBFLAG EQU IEDQQCB+36 00978000 IEDQPQCB EQU 0 00979000 QCBFHDLZ EQU IEDQPQCB+3 00980000 QCBPFEFO EQU QCBFHDLZ+1 00981000 QCBFHDTZ EQU IEDQPQCB+6 00982000 QCBINTLF EQU IEDQPQCB+12 00983000 IEDNQCB EQU 0 00984000 QCBSTAT1 EQU IEDNQCB+4 00985000 QCBPLCBN EQU QCBSTAT1 00986000 QCBSNDRQ EQU QCBSTAT1 00987000 QCBRCVRQ EQU QCBSTAT1 00988000 QCBPLCBA EQU IEDNQCB+5 00989000 QCBTTCIN EQU QCBPLCBA+1 00990000 IEDRVTD EQU 0 00991000 RVTINDEX EQU IEDRVTD+2 00992000 IEDSATD EQU 0 00993000 SATRNRVT EQU IEDSATD+4 00994000 IEDQSTCB EQU 0 00995000 STCBVTO EQU IEDQSTCB 00996000 IEDQTCXD EQU 0 00997000 TCXAVT EQU IEDQTCXD 00998000 TCXATTEN EQU IEDQTCXD+4 00999000 TCXFLAG1 EQU IEDQTCXD+34 01000000 TCXBUFA EQU IEDQTCXD+80 01001000 TCXDSAVE EQU IEDQTCXD+104 01002000 TCXQE8 EQU IEDQTCXD+216 01003000 IEDTRM EQU 0 01004000 IEDNTRM EQU IEDTRM 01005000 TRMBYTE4 EQU IEDNTRM 01006000 TRMBYTE3 EQU IEDNTRM+1 01007000 TRMBYTE2 EQU IEDNTRM+2 01008000 TRMINPG EQU TRMBYTE2 01009000 TRMCLOSN EQU TRMINPG 01010000 TRMBYTE1 EQU IEDNTRM+3 01011000 TRMSCPRQ EQU TRMBYTE1 01012000 TRMTRACE EQU TRMBYTE1 01013000 TRMCOHRT EQU IEDNTRM+4 01014000 TRMBYTE0 EQU IEDNTRM+6 01015000 TRMUDEF EQU TRMBYTE0 01016000 TRMSIBPT EQU IEDNTRM+7 01017000 TRMTYPE EQU IEDNTRM+11 01018000 TRMSUBST EQU IEDNTRM+12 01019000 IEDQTRM EQU IEDTRM+14 01020000 TRMSTATE EQU IEDQTRM 01021000 TRMLOG EQU TRMSTATE 01022000 TRMDESTQ EQU IEDQTRM+1 01023000 TRMINSEQ EQU IEDQTRM+4 01024000 TLISTCNT EQU TRMINSEQ 01025000 TRMOUTSQ EQU IEDQTRM+6 01026000 TLISTEN EQU TRMOUTSQ 01027000 TRMDSORG EQU TLISTEN 01028000 TRMALTD EQU IEDQTRM+8 01029000 TRMDEVFL EQU IEDQTRM+10 01030000 TRMSTAT EQU IEDQTRM+12 01031000 IEDQTNT EQU 0 01032000 IEDQHG02 EQU 0 01033000 IEDQHG01 EQU 0 01034000 IEDIAP01 EQU 0 01035000 IEDIAP04 EQU 0 01036000 DSPBYPAS EQU 20 01037000 DSPCHAIN EQU 12 01038000 DSPDISP EQU 4 01039000 DSPLIFO EQU 56 01040000 DSPLIFOR EQU 60 01041000 DSPLIST EQU 8 01042000 DSPPOST EQU 24 01043000 DSPPRIO EQU 48 01044000 DSPPRIOR EQU 52 01045000 DSPTRACE EQU 64 01046000 DSPTSTQ EQU 32 01047000 DSPTSTQR EQU 36 01048000 DSPUNAV EQU 40 01049000 DSPWAIT EQU 16 01050000 QCBLDCB EQU 0 01051000 CVTS01 EQU CVTPGSIA 01052000 CVTLPDIA EQU CVTS01+12 01053000 CVTDIRST EQU CVTLPDIA 01054000 CVTSLIDA EQU CVTS01+24 01055000 CVTCTLFG EQU CVTS01+50 01056000 CVTRV210 EQU CVTS01+424 01057000 CVTRV219 EQU CVTS01+425 01058000 CVTRV228 EQU CVTS01+426 01059000 CVTRV237 EQU CVTS01+427 01060000 CVTMFRTR EQU CVTS01+452 01061000 CVTRV262 EQU CVTS01+468 01062000 CVTRV271 EQU CVTS01+469 01063000 CVTRV280 EQU CVTS01+470 01064000 CVTRV289 EQU CVTS01+471 01065000 CVTGSDA EQU CVTS01+600 01066000 LCBRSPIN EQU LCBIOBSN 01067000 LCBLUSNS EQU LCBRSPIN+5 01068000 LCBSCPRS EQU LCBRSPIN+9 01069000 LCBCSWU1 EQU LCBSCPRS+2 01070000 LCBRSPFG EQU LCBRSPIN+15 01071000 LCBCOREQ EQU LCBTPCD 01072000 @NM00134 EQU LCBCPA+40 01073000 LCBQNX EQU LCBERCCW 01074000 LCBQNXMN EQU LCBQNX 01075000 LCBCANCL EQU LCBSAVSN 01076000 LCBCANFG EQU LCBCANCL 01077000 TCXPTR EQU CVTAQAVT 01078000 TRMPRE1 EQU TRMBYTE4 01079000 TRMSESSN EQU TRMPRE1 01080000 TRMOCNI EQU TRMPRE1 01081000 TRMERLCK EQU TRMPRE1 01082000 TRMNCP1 EQU TRMBYTE4 01083000 TRMPRE EQU TRMBYTE3 01084000 TRMSTMM EQU TRMPRE 01085000 TRMASNXI EQU TRMPRE 01086000 TRMNCP EQU TRMBYTE3 01087000 TRMPU EQU TRMBYTE3 01088000 TRMLU EQU TRMBYTE3 01089000 TRMLINK EQU TRMBYTE3 01090000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01091000 @NM00162 EQU TRMLINK 01092000 TRMLSTAT EQU TRMLINK 01093000 TRMLINT EQU TRMLINK 01094000 TRMEPMOD EQU TRMLINK 01095000 TRMLULOG EQU TRMLU 01096000 TRMINERR EQU TRMLU 01097000 TRMLUREQ EQU TRMLU 01098000 TRMSESRQ EQU TRMLU 01099000 TRMTDIFF EQU TRMLU 01100000 TRMLUTM EQU TRMLU 01101000 TRMLUIT EQU TRMLU 01102000 TRMAUTO EQU TRMLU 01103000 TRMPCONT EQU TRMPU 01104000 @NM00161 EQU TRMPU 01105000 TRMNCONT EQU TRMNCP 01106000 TRMQUCKN EQU TRMNCP 01107000 TRMSLOWN EQU TRMNCP 01108000 TRMSYGEN EQU TRMNCP 01109000 TRMNCPCL EQU TRMNCP 01110000 TRMIPLDM EQU TRMNCP 01111000 TRMINOUT EQU TRMPRE 01112000 TRMRDOUT EQU TRMPRE 01113000 TRMNLOUT EQU TRMPRE 01114000 TRMWROUT EQU TRMPRE 01115000 TRMCMODE EQU TRMPRE 01116000 TRMSTPND EQU TRMPRE 01117000 @NM00160 EQU TRMNCP1 01118000 TRMINOP EQU TRMNCP1 01119000 TRMLYNCH EQU TRMPRE1 01120000 TRMSPOUT EQU TRMPRE1 01121000 TRMQNPL EQU TRMPRE1 01122000 TRMSPACT EQU TRMPRE1 01123000 TRMCONT EQU TRMPRE1 01124000 @NM00142 EQU LCBCANCL+3 01125000 LCBCANTH EQU LCBCANCL+1 01126000 @NM00141 EQU LCBCANFG 01127000 LCBCANCD EQU LCBCANFG 01128000 @NM00140 EQU LCBCANFG 01129000 LCBCANEB EQU LCBCANFG 01130000 LCBCANXT EQU LCBCANFG 01131000 LCBUNADD EQU LCBQNX+21 01132000 LCBUASZE EQU LCBQNX+20 01133000 LCBDSTEA EQU LCBQNX+16 01134000 @NM00139 EQU LCBQNX+8 01135000 LCBIOSBS EQU LCBQNX+5 01136000 @NM00138 EQU LCBQNX+4 01137000 LCBSTSAV EQU LCBQNX+1 01138000 @NM00137 EQU LCBQNXMN 01139000 LCBNX509 EQU LCBQNXMN 01140000 LCBNX162 EQU LCBQNXMN 01141000 LCBNX142 EQU LCBQNXMN 01142000 LCBNX064 EQU LCBQNXMN 01143000 @NM00136 EQU @NM00134+4 01144000 LCBNCPPT EQU @NM00134+1 01145000 @NM00135 EQU @NM00134 01146000 LCBWRSCH EQU LCBCOREQ+8 01147000 LCBCQLNK EQU LCBCOREQ+4 01148000 LCBCQELE EQU LCBCOREQ 01149000 LCBPAKCH EQU LCBRSPIN+16 01150000 @NM00133 EQU LCBRSPFG 01151000 LCBRSRH EQU LCBRSPFG 01152000 LCBEXPI EQU LCBRSPFG 01153000 @NM00132 EQU LCBRSPIN+12 01154000 LCBUSUE1 EQU LCBCSWU1 01155000 @NM00131 EQU LCBCSWU1 01156000 @NM00130 EQU LCBSCPRS+1 01157000 LCBDFCMD EQU LCBSCPRS 01158000 LCBUSER EQU LCBLUSNS+2 01159000 LCBSMIN EQU LCBLUSNS+1 01160000 LCBSMAJ EQU LCBLUSNS 01161000 LCBRHSV EQU LCBRSPIN+2 01162000 LCBSNS0 EQU LCBRSPIN+1 01163000 @NM00129 EQU LCBRSPIN 01164000 CVTRV628 EQU CVTS01+728 01165000 CVTRV627 EQU CVTS01+724 01166000 CVTRV626 EQU CVTS01+720 01167000 CVTRV625 EQU CVTS01+716 01168000 CVTRV624 EQU CVTS01+712 01169000 CVTRV623 EQU CVTS01+708 01170000 CVTRV622 EQU CVTS01+704 01171000 CVTRV621 EQU CVTS01+700 01172000 CVTRV620 EQU CVTS01+696 01173000 CVTRV619 EQU CVTS01+692 01174000 CVTRV618 EQU CVTS01+688 01175000 CVTRV617 EQU CVTS01+684 01176000 CVTRV616 EQU CVTS01+680 01177000 CVTRV615 EQU CVTS01+676 01178000 CVTRV614 EQU CVTS01+672 01179000 CVTRV613 EQU CVTS01+668 01180000 CVTTCASP EQU CVTS01+664 01181000 CVT0PT03 EQU CVTS01+660 01182000 CVT0PT0E EQU CVTS01+656 01183000 CVTIRM EQU CVTS01+652 01184000 CVTCGK EQU CVTS01+648 01185000 CVTRV607 EQU CVTS01+644 01186000 CVTRV606 EQU CVTS01+640 01187000 CVTRV605 EQU CVTS01+636 01188000 CVTRV604 EQU CVTS01+632 01189000 CVTEFF02 EQU CVTS01+628 01190000 CVTCBBR EQU CVTS01+624 01191000 CVTSSCR EQU CVTS01+620 01192000 CVTEVENT EQU CVTS01+616 01193000 CVTCRCA EQU CVTS01+612 01194000 CVTTPIO EQU CVTS01+608 01195000 CVTADV EQU CVTS01+604 01196000 CVTGSDAB EQU CVTGSDA 01197000 CVTQV3 EQU CVTS01+596 01198000 CVTQV2 EQU CVTS01+592 01199000 CVTQV1 EQU CVTS01+588 01200000 CVTRPT EQU CVTS01+584 01201000 CVTSSRB EQU CVTS01+580 01202000 CVTCSDRL EQU CVTS01+576 01203000 CVTEXP1 EQU CVTS01+572 01204000 CVTRMPMT EQU CVTS01+568 01205000 CVTRMPTT EQU CVTS01+564 01206000 CVTVPSA EQU CVTS01+560 01207000 CVTVSTOP EQU CVTS01+556 01208000 CVTGTFR8 EQU CVTS01+552 01209000 CVTQUIT EQU CVTS01+548 01210000 CVTVACR EQU CVTS01+544 01211000 CVTWTCB EQU CVTS01+540 01212000 CVTSTPRS EQU CVTS01+536 01213000 CVT0PT02 EQU CVTS01+532 01214000 CVTDARCM EQU CVTS01+528 01215000 CVTIRECM EQU CVTS01+524 01216000 CVTJRECM EQU CVTS01+520 01217000 CVTVEMS0 EQU CVTS01+516 01218000 CVTSPFRR EQU CVTS01+512 01219000 CVTRLSTG EQU CVTS01+508 01220000 CVT0TC0A EQU CVTS01+504 01221000 CVTGMBR EQU CVTS01+500 01222000 CVTLFRM EQU CVTS01+496 01223000 CVTRMBR EQU CVTS01+492 01224000 CVTVIOP EQU CVTS01+488 01225000 CVTRV307 EQU CVTS01+486 01226000 CVTRV306 EQU CVTS01+484 01227000 CVTRV305 EQU CVTS01+482 01228000 CVTRV304 EQU CVTS01+480 01229000 CVTRV303 EQU CVTS01+478 01230000 CVTRV302 EQU CVTS01+476 01231000 CVTTRCA EQU CVTS01+472 01232000 CVTRV297 EQU CVTRV289 01233000 CVTRV296 EQU CVTRV289 01234000 CVTRV295 EQU CVTRV289 01235000 CVTRV294 EQU CVTRV289 01236000 CVTRV293 EQU CVTRV289 01237000 CVTRV292 EQU CVTRV289 01238000 CVTRV291 EQU CVTRV289 01239000 CVTRV290 EQU CVTRV289 01240000 CVTRV288 EQU CVTRV280 01241000 CVTRV287 EQU CVTRV280 01242000 CVTRV286 EQU CVTRV280 01243000 CVTRV285 EQU CVTRV280 01244000 CVTRV284 EQU CVTRV280 01245000 CVTRV283 EQU CVTRV280 01246000 CVTRV282 EQU CVTRV280 01247000 CVTRV281 EQU CVTRV280 01248000 CVTRV279 EQU CVTRV271 01249000 CVTRV278 EQU CVTRV271 01250000 CVTRV277 EQU CVTRV271 01251000 CVTRV276 EQU CVTRV271 01252000 CVTRV275 EQU CVTRV271 01253000 CVTRV274 EQU CVTRV271 01254000 CVTRV273 EQU CVTRV271 01255000 CVTRV272 EQU CVTRV271 01256000 CVTRV270 EQU CVTRV262 01257000 CVTRV269 EQU CVTRV262 01258000 CVTRV268 EQU CVTRV262 01259000 CVTRV267 EQU CVTRV262 01260000 CVTRV266 EQU CVTRV262 01261000 CVTRV265 EQU CVTRV262 01262000 CVTRV264 EQU CVTRV262 01263000 CVTRV263 EQU CVTRV262 01264000 CVTVFP EQU CVTS01+464 01265000 CVTVSI EQU CVTS01+460 01266000 CVTVPSIB EQU CVTS01+456 01267000 CVTMFACT EQU CVTMFRTR 01268000 CVTMFCTL EQU CVTS01+448 01269000 CVTPVBP EQU CVTS01+444 01270000 CVTPWI EQU CVTS01+440 01271000 CVTRV254 EQU CVTS01+438 01272000 CVTRV253 EQU CVTS01+436 01273000 CVTRV252 EQU CVTS01+434 01274000 CVTRV251 EQU CVTS01+433 01275000 CVTRV250 EQU CVTS01+432 01276000 CVTRV249 EQU CVTS01+431 01277000 CVTRV248 EQU CVTS01+430 01278000 CVTRV247 EQU CVTS01+429 01279000 CVTRV246 EQU CVTS01+428 01280000 CVTRV245 EQU CVTRV237 01281000 CVTRV244 EQU CVTRV237 01282000 CVTRV243 EQU CVTRV237 01283000 CVTRV242 EQU CVTRV237 01284000 CVTRV241 EQU CVTRV237 01285000 CVTRV240 EQU CVTRV237 01286000 CVTRV239 EQU CVTRV237 01287000 CVTRV238 EQU CVTRV237 01288000 CVTRV236 EQU CVTRV228 01289000 CVTRV235 EQU CVTRV228 01290000 CVTRV234 EQU CVTRV228 01291000 CVTRV233 EQU CVTRV228 01292000 CVTRV232 EQU CVTRV228 01293000 CVTRV231 EQU CVTRV228 01294000 CVTRV230 EQU CVTRV228 01295000 CVTRV229 EQU CVTRV228 01296000 CVTRV227 EQU CVTRV219 01297000 CVTRV226 EQU CVTRV219 01298000 CVTRV225 EQU CVTRV219 01299000 CVTRV224 EQU CVTRV219 01300000 CVTRV223 EQU CVTRV219 01301000 CVTRV222 EQU CVTRV219 01302000 CVTRV221 EQU CVTRV219 01303000 CVTRV220 EQU CVTRV219 01304000 CVTRV218 EQU CVTRV210 01305000 CVTRV217 EQU CVTRV210 01306000 CVTRV216 EQU CVTRV210 01307000 CVTRV215 EQU CVTRV210 01308000 CVTRV214 EQU CVTRV210 01309000 CVTRV213 EQU CVTRV210 01310000 CVTRV212 EQU CVTRV210 01311000 CVTRV211 EQU CVTRV210 01312000 CVTLCCAT EQU CVTS01+420 01313000 CVTPCCAT EQU CVTS01+416 01314000 CVTIPCRP EQU CVTS01+412 01315000 CVTIPCRI EQU CVTS01+408 01316000 CVTIPCDS EQU CVTS01+404 01317000 CVTAIDVT EQU CVTS01+400 01318000 CVTSSAP EQU CVTS01+396 01319000 CVTEHCIR EQU CVTS01+392 01320000 CVTEHDEF EQU CVTS01+388 01321000 CVTDAIR EQU CVTS01+384 01322000 CVTPERFM EQU CVTS01+380 01323000 CVT044R2 EQU CVTS01+376 01324000 CVTFETCH EQU CVTS01+372 01325000 CVTRSTWD EQU CVTS01+368 01326000 CVTSPOST EQU CVTS01+364 01327000 CVTIOBP EQU CVTS01+360 01328000 CVTASMVT EQU CVTS01+356 01329000 CVTRECRQ EQU CVTS01+352 01330000 CVTWSAC EQU CVTS01+348 01331000 CVTRV149 EQU CVTS01+344 01332000 CVTWSAL EQU CVTS01+340 01333000 CVTSPSA EQU CVTS01+336 01334000 CVTGLMN EQU CVTS01+332 01335000 CVTVEAC0 EQU CVTS01+328 01336000 CVT062R1 EQU CVTS01+324 01337000 CVTRPOST EQU CVTS01+320 01338000 CVTDQIQE EQU CVTS01+316 01339000 CVTCSD EQU CVTS01+312 01340000 CVTLKRMA EQU CVTS01+308 01341000 CVTRSPIE EQU CVTS01+304 01342000 CVTRENQ EQU CVTS01+300 01343000 CVTLQCB EQU CVTS01+296 01344000 CVTFQCB EQU CVTS01+292 01345000 CVTQCS01 EQU CVTS01+288 01346000 CVTAPFT EQU CVTS01+284 01347000 CVTPARRL EQU CVTS01+280 01348000 CVTVWAIT EQU CVTS01+276 01349000 CVTGSPL EQU CVTS01+272 01350000 CVTLSMQ EQU CVTS01+268 01351000 CVTGSMQ EQU CVTS01+264 01352000 CVTEXPRO EQU CVTS01+260 01353000 CVTOPCTP EQU CVTS01+256 01354000 CVTSIC EQU CVTS01+252 01355000 CVTTPIOS EQU CVTS01+248 01356000 CVTRTMS EQU CVTS01+244 01357000 CVTSDBF EQU CVTS01+240 01358000 CVTSCBP EQU CVTS01+236 01359000 CVTSDMP EQU CVTS01+232 01360000 CVTSV60 EQU CVTS01+228 01361000 CVTRTMCT EQU CVTS01+224 01362000 CVTASCBL EQU CVTS01+220 01363000 CVTASCBH EQU CVTS01+216 01364000 CVTGDA EQU CVTS01+212 01365000 CVTASVT EQU CVTS01+208 01366000 CVTVVMDI EQU CVTS01+204 01367000 CVTAQTOP EQU CVTS01+200 01368000 CVTIOSCS EQU CVTS01+196 01369000 CVTSDRM EQU CVTS01+192 01370000 CVTOPTE EQU CVTS01+188 01371000 CVTSTXU EQU CVTS01+184 01372000 CVTQUIS EQU CVTS01+180 01373000 CVTPARS EQU CVTS01+176 01374000 CVTS1EE EQU CVTS01+172 01375000 CVTFRAS EQU CVTS01+168 01376000 CVTQSAS EQU CVTS01+164 01377000 CVTCRAS EQU CVTS01+160 01378000 CVTCRMN EQU CVTS01+156 01379000 CVTDELCP EQU CVTS01+152 01380000 CVTFRECL EQU CVTS01+148 01381000 CVTGETCL EQU CVTS01+144 01382000 CVTBLDCP EQU CVTS01+140 01383000 CVTAUTHL EQU CVTS01+136 01384000 CVTSCAN EQU CVTS01+132 01385000 CVTRV144 EQU CVTS01+130 01386000 CVTMAXMP EQU CVTS01+128 01387000 CVTSTCK EQU CVTS01+124 01388000 CVTRV139 EQU CVTS01+123 01389000 CVTDSSAC EQU CVTS01+122 01390000 CVTRV513 EQU CVTS01+121 01391000 CVTIOSPL EQU CVTS01+120 01392000 CVTPTGT EQU CVTS01+116 01393000 CVTCSPIE EQU CVTS01+112 01394000 CVTSMFEX EQU CVTS01+108 01395000 CVTOLT0A EQU CVTS01+104 01396000 CVTSRBRT EQU CVTS01+100 01397000 CVTPUTL EQU CVTS01+96 01398000 CVTASCRL EQU CVTS01+92 01399000 CVTASCRF EQU CVTS01+88 01400000 CVTRV326 EQU CVTS01+84 01401000 CVTRV325 EQU CVTS01+80 01402000 CVTRV324 EQU CVTS01+76 01403000 CVT0VL01 EQU CVTS01+72 01404000 CVTSHRVM EQU CVTS01+68 01405000 CVTRV332 EQU CVTS01+64 01406000 CVTTAS EQU CVTS01+60 01407000 CVTRSCN EQU CVTS01+56 01408000 CVTTRAC2 EQU CVTS01+54 01409000 CVTTRACE EQU CVTS01+52 01410000 CVTAPG EQU CVTS01+51 01411000 CVTSDTRC EQU CVTCTLFG 01412000 CVTGTRCE EQU CVTCTLFG 01413000 CVTNOMP EQU CVTCTLFG 01414000 CVTRSV79 EQU CVTCTLFG 01415000 CVTDSTAT EQU CVTCTLFG 01416000 CVTRSV78 EQU CVTCTLFG 01417000 CVTRV333 EQU CVTCTLFG 01418000 CVTRV323 EQU CVTCTLFG 01419000 CVTSPVLK EQU CVTS01+49 01420000 CVTRSV77 EQU CVTS01+48 01421000 CVTRV331 EQU CVTS01+44 01422000 CVTRV330 EQU CVTS01+40 01423000 CVTRV329 EQU CVTS01+36 01424000 CVTRV328 EQU CVTS01+32 01425000 CVTRV322 EQU CVTS01+28 01426000 CVTSLID EQU CVTSLIDA+1 01427000 CVTSYLK EQU CVTSLIDA 01428000 CVTRV321 EQU CVTS01+20 01429000 CVTRV320 EQU CVTS01+16 01430000 CVTLPDIR EQU CVTLPDIA+1 01431000 CVTRSV69 EQU CVTDIRST 01432000 CVTRSV68 EQU CVTDIRST 01433000 CVTRSV67 EQU CVTDIRST 01434000 CVTRSV66 EQU CVTDIRST 01435000 CVTRSV65 EQU CVTDIRST 01436000 CVTRSV64 EQU CVTDIRST 01437000 CVTRSV63 EQU CVTDIRST 01438000 CVTDICOM EQU CVTDIRST 01439000 CVTPVTP EQU CVTS01+8 01440000 CVTLPDSR EQU CVTS01+4 01441000 CVTGETL EQU CVTS01 01442000 TRMOPT EQU IEDTRM+34 01443000 TRMOPTBL EQU IEDQTRM+18 01444000 TRMOPNO EQU IEDQTRM+17 01445000 TRMCHCIN EQU IEDQTRM+16 01446000 TRMSENSE EQU TRMSTAT+3 01447000 TRMTEMPR EQU TRMSTAT+2 01448000 TRMSIO EQU TRMSTAT 01449000 @NM00159 EQU TRMDEVFL+1 01450000 TRMTPIN EQU TRMDEVFL+1 01451000 TRMNCPI EQU TRMDEVFL+1 01452000 TRMRNTRM EQU TRMDEVFL+1 01453000 @NM00158 EQU TRMDEVFL+1 01454000 TRMLMD EQU TRMDEVFL+1 01455000 TRMCONC EQU TRMDEVFL+1 01456000 TRMTSOB EQU TRMDEVFL 01457000 TRMBFDY EQU TRMDEVFL 01458000 TRMTBLK EQU TRMDEVFL 01459000 TRMSBLK EQU TRMDEVFL 01460000 TRMBLKS EQU TRMDEVFL 01461000 TRMADDC EQU TRMDEVFL 01462000 TRMDDIG EQU TRMDEVFL 01463000 TRMBUFS EQU TRMDEVFL 01464000 TRMPRILK EQU TRMALTD 01465000 TRMLGB EQU TRMDSORG 01466000 TRMUTERM EQU TLISTCNT 01467000 TRMSCNYN EQU TRMSTATE 01468000 TRMOPTFN EQU TRMSTATE 01469000 TRMHELDN EQU TRMSTATE 01470000 TRMACPTN EQU TRMSTATE 01471000 TRMPREF EQU TRMSTATE 01472000 TRMPROC EQU TRMLOG 01473000 TRMLIST EQU TRMLOG 01474000 TRMLINE EQU TRMSTATE 01475000 TRMRLMCT EQU IEDNTRM+10 01476000 TRMCOHTG EQU TRMSIBPT+1 01477000 TRMGPCNT EQU TRMSIBPT 01478000 TRMBUFRD EQU TRMBYTE0 01479000 TRMSNA EQU TRMBYTE0 01480000 TRMGP EQU TRMBYTE0 01481000 TRMDIAL EQU TRMBYTE0 01482000 @NM00157 EQU TRMBYTE0 01483000 TRMOUTPT EQU TRMBYTE0 01484000 TRMINPUT EQU TRMBYTE0 01485000 TRMSTOTE EQU TRMBYTE1 01486000 TRMCKPRN EQU TRMBYTE1 01487000 TRMTSATN EQU TRMBYTE1 01488000 TRMSWBCK EQU TRMBYTE1 01489000 TRMAUTOC EQU TRMBYTE1 01490000 TRMINPTP EQU TRMBYTE1 01491000 TRMWTNEG EQU TRMSCPRQ 01492000 TRMWRBRK EQU TRMBYTE2 01493000 TRMNOSND EQU TRMBYTE2 01494000 TRMPREP EQU TRMBYTE2 01495000 TRMGPACT EQU TRMBYTE2 01496000 TRMANDL EQU TRMBYTE2 01497000 TRMREMB EQU TRMBYTE2 01498000 TRMRSACT EQU TRMBYTE2 01499000 TCXEND EQU IEDQTCXD+224 01500000 TCXNCPIO EQU IEDQTCXD+220 01501000 TCXACTE8 EQU TCXQE8 01502000 TCXABEPL EQU IEDQTCXD+212 01503000 TCXSRBS EQU IEDQTCXD+208 01504000 TCXSIOSB EQU IEDQTCXD+204 01505000 TCXESAVE EQU IEDQTCXD+132 01506000 TCXERPPM EQU IEDQTCXD+128 01507000 TCXERPSV EQU IEDQTCXD+116 01508000 TCXSATTN EQU IEDQTCXD+112 01509000 @NM00156 EQU TCXDSAVE+4 01510000 @NM00155 EQU TCXDSAVE 01511000 TCXPLCB EQU IEDQTCXD+100 01512000 TCXBITS EQU IEDQTCXD+98 01513000 TCXSCBSZ EQU IEDQTCXD+97 01514000 TCXBIT1 EQU IEDQTCXD+96 01515000 TCXCOMPT EQU IEDQTCXD+92 01516000 TCXAVAIL EQU IEDQTCXD+88 01517000 TCXBUFL EQU IEDQTCXD+84 01518000 TCXTOTE EQU TCXBUFA 01519000 TCXCKPM EQU IEDQTCXD+79 01520000 TCXNCKPR EQU IEDQTCXD+78 01521000 TCXSZAIB EQU IEDQTCXD+76 01522000 TCXAIBC EQU IEDQTCXD+72 01523000 TCXPEBC EQU IEDQTCXD+68 01524000 TCXPEWAC EQU IEDQTCXD+64 01525000 TCXQRQ EQU IEDQTCXD+60 01526000 TCXOCQ EQU IEDQTCXD+56 01527000 TCXPNTQ EQU IEDQTCXD+52 01528000 TCXPUTQ EQU IEDQTCXD+48 01529000 TCXGETQ EQU IEDQTCXD+44 01530000 TCXTSI EQU IEDQTCXD+40 01531000 TCXRPT EQU IEDQTCXD+36 01532000 TCXCC3TS EQU IEDQTCXD+35 01533000 TCXAPDMP EQU TCXFLAG1 01534000 TCXAPPL EQU TCXFLAG1 01535000 TCXRTM EQU TCXFLAG1 01536000 TCXMCPCD EQU TCXFLAG1 01537000 TCXAUTH EQU TCXFLAG1 01538000 TCXASID EQU IEDQTCXD+32 01539000 TCXASCB EQU IEDQTCXD+28 01540000 TCXREADY EQU IEDQTCXD+24 01541000 TCXPASWD EQU IEDQTCXD+16 01542000 TCXDISP EQU IEDQTCXD+12 01543000 TCXTCB EQU IEDQTCXD+8 01544000 TCXATTLN EQU TCXATTEN 01545000 STCBLINK EQU IEDQSTCB+5 01546000 STCBPRI EQU IEDQSTCB+4 01547000 STCBTCIN EQU IEDQSTCB+2 01548000 STCBINDX EQU IEDQSTCB+1 01549000 SATRNLCB EQU IEDSATD 01550000 RVTNUM EQU IEDRVTD 01551000 @NM00154 EQU QCBPLCBA 01552000 @NM00153 EQU QCBSTAT1 01553000 QCBFLUSH EQU QCBSTAT1 01554000 QCBNDXRQ EQU QCBSTAT1 01555000 QCBESIG EQU QCBSTAT1 01556000 QCBWAITC EQU QCBSTAT1 01557000 QCBCHAIN EQU IEDNQCB 01558000 QCBPQBCK EQU IEDQPQCB+25 01559000 QCBPRIPQ EQU IEDQPQCB+24 01560000 QCBCFHDR EQU IEDQPQCB+21 01561000 QCBLFEFO EQU IEDQPQCB+18 01562000 QCBFFEFO EQU IEDQPQCB+15 01563000 QCBPREVF EQU QCBINTLF 01564000 QCBINTFF EQU IEDQPQCB+9 01565000 QCBDATSQ EQU QCBFHDTZ+1 01566000 @NM00152 EQU QCBFHDTZ 01567000 @NM00151 EQU QCBPFEFO 01568000 QCBDATFL EQU QCBFHDLZ 01569000 QCBDNHDR EQU IEDQPQCB 01570000 QCBQBACK EQU IEDQQCB+37 01571000 QCBCKPT EQU QCBFLAG 01572000 QCBPROC EQU QCBFLAG 01573000 QCBSDFFO EQU QCBFLAG 01574000 QCBTERMQ EQU QCBFLAG 01575000 QCBRSRV EQU QCBFLAG 01576000 QCBREAD EQU QCBFLAG 01577000 QCBNOBRK EQU QCBFLAG 01578000 QCBTSSES EQU QCBFLAG 01579000 QCBLGBAD EQU QCBDCBAD 01580000 QCBRELLN EQU IEDQQCB+32 01581000 QCBTJID EQU QCBLKRRN+1 01582000 QCBCARCT EQU QCBLKRRN 01583000 QCBPRLVL EQU QCBPREN 01584000 QCBMSGCT EQU IEDQQCB+26 01585000 QCBEXTO EQU QCBINTVL 01586000 QCBDISC EQU QCBTSOF1 01587000 QCBPARTO EQU QCBTSOF1 01588000 QCBSATRD EQU QCBTSOF1 01589000 QCBNOBUF EQU QCBTSOF1 01590000 QCBTPUT EQU QCBTSOF1 01591000 QCBTGET EQU QCBTSOF1 01592000 QCBWRBRK EQU QCBTSOF1 01593000 QCBSATLC EQU QCBTSOF2 01594000 QCBSATTI EQU QCBTSOF2 01595000 QCBSATCH EQU QCBTSOF2 01596000 QCBSIMRD EQU QCBTSOF2 01597000 QCBDSSMI EQU QCBTSOF2 01598000 QCBPOSTO EQU QCBTSOF2 01599000 QCBBUFQ EQU QCBTSOF2 01600000 QCBINHBN EQU QCBTSOF2 01601000 QCBSATCT EQU @NM00150 01602000 QCBSCBOF EQU IEDQQCB+20 01603000 QCBCLOCK EQU QCBSTAT 01604000 QCBSCHDL EQU QCBSTAT 01605000 QCBSMODE EQU QCBSTAT 01606000 QCBSEND EQU QCBSTAT 01607000 QCBBUFRD EQU QCBSTAT 01608000 QCBTRMHO EQU QCBSTAT 01609000 QCBEOM EQU QCBSTAT 01610000 QCBHUCT EQU QCBRETCT 01611000 QCBIEND EQU QCBRETCT 01612000 QCBEND EQU QCBRETCT 01613000 QCBNL EQU QCBRETCT 01614000 QCBLOGCT EQU QCBRETCT 01615000 @NM00149 EQU QCBBYTE1 01616000 QCBRITRM EQU QCBBYTE1 01617000 @NM00148 EQU QCBEOLDT 01618000 QCBSTVTO EQU IEDQQCB+8 01619000 QCBLINK EQU IEDQQCB+5 01620000 QCBHELD EQU QCBDSFLG 01621000 QCBFQCB EQU QCBDSFLG 01622000 QCBDRQQ EQU QCBDSFLG 01623000 QCBALTMH EQU QCBDSFLG 01624000 QCBREUS EQU QCBDISK 01625000 QCBNREUS EQU QCBDISK 01626000 QCBCORE EQU QCBDSFLG 01627000 QCBTSQ EQU QCBDSFLG 01628000 LCBERADR EQU LCBXRADR+1 01629000 LCBPCIRC EQU LCBXRADR 01630000 LCBDCT3 EQU LCBXDCT+2 01631000 LCBDCT2 EQU LCBXDCT+1 01632000 LCBDCT1 EQU LCBXDCT 01633000 @NM00147 EQU LCBXFLAG 01634000 LCBERPND EQU LCBXFLAG 01635000 LCBSRCPF EQU LCBXFLAG 01636000 LCBGPCTV EQU LCBXFLAG 01637000 @NM00146 EQU LCBXFLAG 01638000 @NM00145 EQU LCBXFLAG 01639000 @NM00144 EQU LCBXFLAG 01640000 @NM00143 EQU LCBXFLAG 01641000 LCBCCW10 EQU LCBCPA+72 01642000 LCBCCW9 EQU LCBCPA+64 01643000 LCBCCW8 EQU LCBCPA+56 01644000 LCBCCW7 EQU LCBCPA+48 01645000 LCBCCW6 EQU LCBCPA+40 01646000 LCBCP EQU LCBQEBPL+4 01647000 LCBIOSB EQU LCBQEBPL+1 01648000 LCBSIO EQU LCBQEBPL 01649000 LCBCCW4 EQU LCBCPA+24 01650000 LCBCCW3 EQU LCBCPA+16 01651000 LCBCCW2 EQU LCBCPA+8 01652000 LCBCCW1 EQU LCBCPA 01653000 @NM00128 EQU LCBERCCW+16 01654000 LCBATL05 EQU LCBERCCW+8 01655000 @NM00127 EQU LCBERCCW 01656000 LCBCSWSV EQU LCBSAVSN+1 01657000 LCBSNSV EQU LCBSAVSN 01658000 LCBBFSNS EQU LCBRSPSV 01659000 LCBWAITC EQU LCBTPCD+5 01660000 LCBINPAK EQU LCBSTAT6 01661000 LCBMHBID EQU LCBSTAT6 01662000 LCBRTRRO EQU LCBSTAT6 01663000 LCBHDRPD EQU LCBSTAT6 01664000 LCBCHN EQU LCBSTAT6 01665000 LCBBFRSV EQU LCBTPCD+1 01666000 @NM00126 EQU LCBSTAT5 01667000 LCBLUS EQU LCBSTAT5 01668000 LCBLUNIT EQU LCBSTAT5 01669000 LCBPERM EQU LCBSTAT5 01670000 LCBNXCMD EQU LCBBFRW 01671000 LCBERMSK EQU LCBOBRCH 01672000 LCBSCBA EQU IEDQLCB+93 01673000 LCBOLT EQU LCBMSGFM 01674000 LCBEOT EQU LCBMSGFM 01675000 LCBENQ EQU LCBMSGFM 01676000 LCBTTD EQU LCBMSGFM 01677000 LCBRSTRT EQU LCBMSGFM 01678000 LCBVSTRT EQU LCBMSGFM 01679000 LCBACKI EQU LCBMSGFM 01680000 LCBNAK EQU LCBMSGFM 01681000 @NM00125 EQU LCBRBCT2 01682000 LCBDCNT EQU LCBRBCT2 01683000 LCBRBCT1 EQU LCBERBCT 01684000 LCBERBCH EQU IEDQLCB+85 01685000 LCBCOMPL EQU LCBDLNKN 01686000 LCBPRCPG EQU LCBERBST 01687000 LCBERROR EQU LCBERBST 01688000 @NM00124 EQU LCBERBST 01689000 LCBINQ EQU LCBERBST 01690000 LCBRDERR EQU LCBERBST 01691000 LCBEOMSG EQU LCBERBST 01692000 LCBMSG EQU LCBERBST 01693000 LCBERBLK EQU IEDQLCB+81 01694000 LCBERBPY EQU IEDQLCB+80 01695000 LCBERBQB EQU LCBERB+1 01696000 LCBERBKY EQU LCBERB 01697000 LCBRECAD EQU IEDQLCB+73 01698000 @NM00123 EQU LCBTSTSW 01699000 @NM00122 EQU LCBTSTSW 01700000 @NM00121 EQU LCBTSTSW 01701000 @NM00120 EQU LCBTSTSW 01702000 @NM00119 EQU LCBTSTSW 01703000 @NM00118 EQU LCBTSTSW 01704000 @NM00117 EQU LCBTSTSW 01705000 LCBCONCT EQU LCBTSTSW 01706000 LCBRESP EQU LCBSTAT2 01707000 LCBBFRAV EQU LCBDIAL 01708000 LCBATTN EQU LCBSYNC 01709000 LCBNEGRP EQU LCBSTAT2 01710000 LCBSNDPR EQU LCBSTAT2 01711000 LCBCONNN EQU LCBBEOTN 01712000 LCBMSGNN EQU LCBSTAT2 01713000 LCBTRACE EQU LCBSTAT2 01714000 LCBSENDN EQU LCBSTAT1 01715000 LCBRECVN EQU LCBSTAT1 01716000 LCBFREEN EQU LCBSTAT1 01717000 LCBCONT EQU LCBSTAT1 01718000 LCBINITN EQU LCBSTAT1 01719000 LCBOCNI EQU LCBSTAT1 01720000 LCBOCWTN EQU LCBSTAT1 01721000 LCBRCLLN EQU LCBSTAT1 01722000 LCBRECOF EQU IEDQLCB+68 01723000 LCBRDBFR EQU LCBRCBFR 01724000 LCBUCBX EQU IEDQLCB+64 01725000 LCBTTBIN EQU LCBERRCT 01726000 @NM00116 EQU LCBINCAM 01727000 LCBGETMN EQU LCBINCAM 01728000 LCBRESTR EQU LCBRCQCB 01729000 LCBPCILK EQU LCBDCBPT 01730000 LCBSTART EQU LCBIOBSN+16 01731000 LCBAP4OL EQU LCBSIOCC 01732000 LCBAP3OL EQU LCBSIOCC 01733000 LCBAP2OL EQU LCBSIOCC 01734000 LCBAP1OL EQU LCBSIOCC 01735000 LCBSIOC2 EQU LCBSIOCC 01736000 LCBSIOC1 EQU LCBSIOCC 01737000 @NM00115 EQU LCBSIOCC 01738000 LCBCSWRC EQU LCBCSW+5 01739000 LCBCSCHC EQU LCBCSWCS 01740000 LCBCSICC EQU LCBCSWCS 01741000 LCBCSCCC EQU LCBCSWCS 01742000 LCBCSCDC EQU LCBCSWCS 01743000 LCBCSPTC EQU LCBCSWCS 01744000 LCBCSPGC EQU LCBCSWCS 01745000 LCBCSIL EQU LCBCSWCS 01746000 LCBCSPCI EQU LCBCSWCS 01747000 LCBUSUE EQU LCBCSWUS 01748000 LCBUSUC EQU LCBCSWUS 01749000 LCBUSDE EQU LCBCSWUS 01750000 LCBUSCE EQU LCBCSWUS 01751000 LCBUSBSY EQU LCBCSWUS 01752000 LCBUSCUE EQU LCBCSWUS 01753000 LCBUSSM EQU LCBCSWUS 01754000 LCBUSAT EQU LCBCSWUS 01755000 LCBCSWCA EQU LCBCSW 01756000 LCBOBR EQU LCBFLAG3 01757000 LCBOBRRD EQU LCBFLAG3 01758000 LCBIOMSG EQU LCBFLAG3 01759000 LCBSOHC EQU LCBFLAG3 01760000 LCBRLAD EQU LCBFLAG3 01761000 LCBSOHR EQU LCBFLAG3 01762000 @NM00114 EQU LCBFLAG3 01763000 LCBECBPT EQU LCBIOBSN+4 01764000 LCBECBCC EQU LCBIOBSN+3 01765000 LCBSENS1 EQU LCBSNS+1 01766000 LCBABORT EQU LCBTMOUT 01767000 LCBNOTIN EQU LCBLOSDT 01768000 LCBOVRUN EQU LCBSENS0 01769000 LCBDATCK EQU LCBSENS0 01770000 LCBEQUCK EQU LCBSENS0 01771000 LCBBUSCK EQU LCBSENS0 01772000 LCBINTRQ EQU LCBSENS0 01773000 LCBCMDRJ EQU LCBSENS0 01774000 LCBFLAG2 EQU LCBIOBSN 01775000 @NM00113 EQU LCBFLAG1 01776000 LCBUNREL EQU LCBFLAG1 01777000 LCBEXCPN EQU LCBFLAG1 01778000 @NM00112 EQU LCBFLAG1 01779000 LCBERPIN EQU LCBFLAG1 01780000 @NM00111 EQU LCBFLAG1 01781000 LCBFSBFR EQU LCBMHA 01782000 LCBISZE EQU IEDQLCB+28 01783000 @NM00110 EQU LCBSCBDA 01784000 LCBCPGMH EQU LCBSTAT4 01785000 LCBREAL EQU LCBPHASE 01786000 @NM00109 EQU LCBSTAT4 01787000 LCBACTRQ EQU LCBSTAT4 01788000 LCBIPLRQ EQU LCBSTAT4 01789000 LCBDACRQ EQU LCBSTAT4 01790000 LCBDMPRQ EQU LCBSTAT4 01791000 @NM00108 EQU LCBLKMDE 01792000 LCBLOCKI EQU LCBLKMDE 01793000 LCBLOCKR EQU LCBLKMDE 01794000 LCBHMFLG EQU LCBLKMDE 01795000 LCBBDFLG EQU LCBLKMDE 01796000 @NM00107 EQU LCBINSRC 01797000 LCBABRTN EQU LCBCHAIN 01798000 LCBCTLMD EQU LCBTETEN 01799000 LCBBFRSZ EQU LCBCHAIN 01800000 LCBUREQN EQU LCBCHAIN 01801000 LCBNORTY EQU LCBCHAIN 01802000 LCBERMSG EQU LCBCHAIN 01803000 LCBEXCP EQU LCBCHAIN 01804000 LCBINVRQ EQU LCBSCRNN 01805000 LCB2741N EQU LCBTSOB 01806000 LCBINHBN EQU LCBTSOB 01807000 LCBCIRCD EQU LCBTSOB 01808000 LCBPREP EQU LCBTSOB 01809000 LCBSOPL EQU LCBTSOB 01810000 LCBSATRD EQU LCBTSOB 01811000 LCBTSBUF EQU LCBTSOB 01812000 LCBWRBRK EQU LCBTSOB 01813000 LCBTDL EQU IEDQLCB+18 01814000 LCBEOLTD EQU IEDQLCB+16 01815000 LCBRSLNK EQU IEDQLCB+13 01816000 LCBRSPRI EQU IEDQLCB+12 01817000 LCBRSKEY EQU IEDQLCB+8 01818000 LCBLINK EQU LCBRCB+5 01819000 LCBKEY EQU LCBRCB 01820000 CVTLEVL EQU CVTRELNO+2 01821000 CVTNUMB EQU CVTRELNO 01822000 CVTMDL EQU CVTFIX+250 01823000 @NM00106 EQU CVTFIX+248 01824000 @NM00105 EQU CVTFIX 01825000 CVTRV482 EQU CVTXTNT2+128 01826000 CVTRV481 EQU CVTXTNT2+124 01827000 CVTRV480 EQU CVTXTNT2+120 01828000 CVTRV479 EQU CVTXTNT2+118 01829000 CVTRV478 EQU CVTXTNT2+117 01830000 CVTRV477 EQU CVTXTNT2+116 01831000 CVTRV476 EQU CVTXTNT2+115 01832000 CVTRV475 EQU CVTXTNT2+114 01833000 CVTRV474 EQU CVTRV466 01834000 CVTRV473 EQU CVTRV466 01835000 CVTRV472 EQU CVTRV466 01836000 CVTRV471 EQU CVTRV466 01837000 CVTRV470 EQU CVTRV466 01838000 CVTRV469 EQU CVTRV466 01839000 CVTRV468 EQU CVTRV466 01840000 CVTRV467 EQU CVTRV466 01841000 CVTRV465 EQU CVTRV457 01842000 CVTRV464 EQU CVTRV457 01843000 CVTRV463 EQU CVTRV457 01844000 CVTRV462 EQU CVTRV457 01845000 CVTRV461 EQU CVTRV457 01846000 CVTRV460 EQU CVTRV457 01847000 CVTRV459 EQU CVTRV457 01848000 CVTRV458 EQU CVTRV457 01849000 CVTRV456 EQU CVTXTNT2+108 01850000 CVTRV455 EQU CVTXTNT2+104 01851000 CVTRV454 EQU CVTXTNT2+100 01852000 CVTRV453 EQU CVTXTNT2+96 01853000 CVTRV452 EQU CVTXTNT2+94 01854000 CVTRV451 EQU CVTXTNT2+92 01855000 CVTRV450 EQU CVTXTNT2+90 01856000 CVTRV449 EQU CVTXTNT2+88 01857000 CVTRV448 EQU CVTXTNT2+87 01858000 CVTRV447 EQU CVTXTNT2+86 01859000 CVTRV446 EQU CVTRV438 01860000 CVTRV445 EQU CVTRV438 01861000 CVTRV444 EQU CVTRV438 01862000 CVTRV443 EQU CVTRV438 01863000 CVTRV442 EQU CVTRV438 01864000 CVTRV441 EQU CVTRV438 01865000 CVTRV440 EQU CVTRV438 01866000 CVTRV439 EQU CVTRV438 01867000 CVTRV437 EQU CVTRV429 01868000 CVTRV436 EQU CVTRV429 01869000 CVTRV435 EQU CVTRV429 01870000 CVTRV434 EQU CVTRV429 01871000 CVTRV433 EQU CVTRV429 01872000 CVTRV432 EQU CVTRV429 01873000 CVTRV431 EQU CVTRV429 01874000 CVTRV430 EQU CVTRV429 01875000 CVTRV428 EQU CVTXTNT2+80 01876000 CVTRV427 EQU CVTXTNT2+76 01877000 CVTRV426 EQU CVTXTNT2+72 01878000 CVTRV425 EQU CVTXTNT2+68 01879000 CVTATACT EQU CVTATCVT 01880000 CVTRV423 EQU CVTXTNT2+62 01881000 CVTRV422 EQU CVTXTNT2+60 01882000 CVTRV421 EQU CVTXTNT2+58 01883000 CVTRV420 EQU CVTXTNT2+56 01884000 CVTRV419 EQU CVTXTNT2+55 01885000 CVTRV418 EQU CVTXTNT2+54 01886000 CVTRV417 EQU CVTRV409 01887000 CVTRV416 EQU CVTRV409 01888000 CVTRV415 EQU CVTRV409 01889000 CVTRV414 EQU CVTRV409 01890000 CVTRV413 EQU CVTRV409 01891000 CVTRV412 EQU CVTRV409 01892000 CVTRV411 EQU CVTRV409 01893000 CVTRV410 EQU CVTRV409 01894000 CVTRV408 EQU CVTRV400 01895000 CVTRV407 EQU CVTRV400 01896000 CVTRV406 EQU CVTRV400 01897000 CVTRV405 EQU CVTRV400 01898000 CVTRV404 EQU CVTRV400 01899000 CVTRV403 EQU CVTRV400 01900000 CVTRV402 EQU CVTRV400 01901000 CVTRV401 EQU CVTRV400 01902000 CVTICB EQU CVTXTNT2+48 01903000 CVTSKTA EQU CVTXTNT2+44 01904000 CVTSHSB EQU CVTSHS 01905000 CVTRSV98 EQU CVTXTNT2+36 01906000 CVTRSV97 EQU CVTXTNT2+34 01907000 CVTRSV96 EQU CVTXTNT2+32 01908000 CVTOLTEP EQU CVTXTNT2+28 01909000 CVTQIDA EQU CVTQID+1 01910000 CVTRSV95 EQU CVTQID 01911000 CVTRSV94 EQU CVTXTNT2+20 01912000 CVTRSV93 EQU CVTXTNT2+16 01913000 CVTRSV92 EQU CVTXTNT2+12 01914000 CVTDEBVR EQU CVTXTNT2+8 01915000 CVTRSV91 EQU CVTXTNT2+6 01916000 CVTRSV9H EQU CVTFLGBT 01917000 CVTRSV9G EQU CVTFLGBT 01918000 CVTRSV9F EQU CVTFLGBT 01919000 CVTRSV9E EQU CVTFLGBT 01920000 CVTRSV9D EQU CVTFLGBT 01921000 CVTRSV9C EQU CVTFLGBT 01922000 CVTVME EQU CVTFLGBT 01923000 CVTNPE EQU CVTFLGBT 01924000 CVTNUCLS EQU CVTXTNT2+4 01925000 CVTDSSVA EQU CVTDSSV+1 01926000 CVTRSV89 EQU CVTDSSV 01927000 CVTRSV88 EQU CVTXTNT1+8 01928000 CVTRSV87 EQU CVTXTNT1+4 01929000 CVTFACHN EQU CVTXTNT1 01930000 CVTRV488 EQU CVTMAP+412 01931000 CVTRV487 EQU CVTMAP+408 01932000 CVTRV486 EQU CVTMAP+404 01933000 CVTRV485 EQU CVTMAP+400 01934000 CVTACTAP EQU CVTMAP+396 01935000 CVTAUTH EQU CVTMAP+392 01936000 CVTATMCA EQU CVTATMCT+1 01937000 CVTATMST EQU CVTATMCT 01938000 CVTRSV61 EQU CVTMAP+384 01939000 CVTVOLT1 EQU CVTVOLM1+1 01940000 CVTVOLI1 EQU CVTVOLF1 01941000 CVTSTOA EQU CVTMAP+376 01942000 CVTRSV58 EQU CVTMAP+374 01943000 CVTRSV57 EQU CVTMAP+372 01944000 CVTDDCE EQU CVTMAP+368 01945000 CVTPNWFR EQU CVTMAP+364 01946000 CVTSMF EQU CVTMAP+360 01947000 CVTSULK EQU CVTMAP+358 01948000 CVTSLKO EQU CVTSYSK 01949000 CVTSLKP EQU CVTSYSK 01950000 CVTSLKQ EQU CVTSYSK 01951000 CVTSLKR EQU CVTSYSK 01952000 CVTRSV56 EQU CVTSYSK 01953000 CVTRSV55 EQU CVTSYSK 01954000 CVTRSV54 EQU CVTSYSK 01955000 CVTRSV53 EQU CVTSYSK 01956000 CVTRSV52 EQU CVTA1F1 01957000 CVTRSV51 EQU CVTA1F1 01958000 CVTRSV50 EQU CVTA1F1 01959000 CVTRSV49 EQU CVTA1F1 01960000 CVTRSV48 EQU CVTA1F1 01961000 CVTRSV47 EQU CVTA1F1 01962000 CVTSRSW EQU CVTA1F1 01963000 CVTPFSW EQU CVTA1F1 01964000 CVTPCVT EQU CVTMAP+352 01965000 CVTRSV46 EQU CVTMAP+344 01966000 CVTRSV45 EQU CVTMAP+340 01967000 CVTRSV44 EQU CVTMAP+338 01968000 CVTRSV43 EQU CVTMAP+336 01969000 CVTHJESA EQU CVTHJES+1 01970000 CVTRSV42 EQU CVTHJES 01971000 CVTEXT2A EQU CVTEXT2+1 01972000 CVTRSV41 EQU CVTEXT2 01973000 CVTAPFA EQU CVTAPF+1 01974000 CVTRSV40 EQU CVTAPF 01975000 CVTRV518 EQU CVTINTLA 01976000 CVTRV517 EQU CVTERPV 01977000 CVTEORM EQU CVTMAP+312 01978000 CVTMCHPR EQU CVTMAP+308 01979000 CVTTZ EQU CVTMAP+304 01980000 CVTJEPS EQU CVTMAP+300 01981000 CVTJESCT EQU CVTMAP+296 01982000 CVTMODE EQU CVTMAP+292 01983000 CVTPTRV EQU CVTMAP+288 01984000 CVTREAL EQU CVTMAP+284 01985000 CVTRSV39 EQU CVTMAP+280 01986000 CVTRSV38 EQU CVTMAP+276 01987000 CVTDMSRA EQU CVTDMSR+1 01988000 CVTRV634 EQU CVTDMSRF 01989000 CVTRV633 EQU CVTDMSRF 01990000 CVTRV632 EQU CVTDMSRF 01991000 CVTRV631 EQU CVTDMSRF 01992000 CVTRV630 EQU CVTDMSRF 01993000 CVTRV629 EQU CVTDMSRF 01994000 CVTUDUMP EQU CVTDMSRF 01995000 CVTSDUMP EQU CVTDMSRF 01996000 CVTQMSGA EQU CVTQMSG+1 01997000 CVTRSV36 EQU CVTQMSG 01998000 CVTAMFF EQU CVTMAP+264 01999000 CVTPURGA EQU CVTPURG+1 02000000 CVTRSV35 EQU CVTPURG 02001000 CVTCBSP EQU CVTMAP+256 02002000 CVTATERA EQU CVTATER+1 02003000 CVTSYST EQU CVTATER 02004000 CVTVOLT2 EQU CVTTAT 02005000 CVTVOLI2 EQU CVTVOLF2 02006000 CVTAQAVB EQU CVTAQAVT+1 02007000 CVTRSV34 EQU CVTTCMFG 02008000 CVTRSV33 EQU CVTTCMFG 02009000 CVTRSV32 EQU CVTTCMFG 02010000 CVTRSV31 EQU CVTTCMFG 02011000 CVTRSV30 EQU CVTTCMFG 02012000 CVTRSV29 EQU CVTTCMFG 02013000 CVTRSV28 EQU CVTTCMFG 02014000 CVTTCRDY EQU CVTTCMFG 02015000 CVTGTFA EQU CVTGTF+1 02016000 CVTRSV27 EQU CVTGTFST 02017000 CVTRNIO EQU CVTGTFST 02018000 CVTUSR EQU CVTGTFST 02019000 CVTRV318 EQU CVTFORM 02020000 CVTRV317 EQU CVTTMODE 02021000 CVTRV316 EQU CVTSTATE 02022000 CVTRV315 EQU CVTGTFS 02023000 CVTGTFAV EQU CVTGTFS 02024000 CVT0SCR1 EQU CVTMAP+232 02025000 CVTRV515 EQU CVTMAP+228 02026000 CVTRMS EQU CVTMAP+224 02027000 CVTPATCH EQU CVTMAP+220 02028000 CVTTSCE EQU CVTMAP+216 02029000 CVTLNKSC EQU CVTMAP+214 02030000 CVTQABST EQU CVTMAP+212 02031000 CVTMDLDS EQU CVTMAP+208 02032000 CVTUSER EQU CVTMAP+204 02033000 CVTABEND EQU CVTMAP+200 02034000 CVTSMCA EQU CVTMAP+196 02035000 CVTRSV18 EQU CVTMAP+192 02036000 CVTQLPAQ EQU CVTMAP+188 02037000 CVTQCDSR EQU CVTMAP+184 02038000 CVTRSV17 EQU CVTOPTB 02039000 CVTRSV16 EQU CVTOPTB 02040000 CVTFP EQU CVTOPTB 02041000 CVTAPTHR EQU CVTOPTB 02042000 CVTNLOG EQU CVTOPTB 02043000 CVTTOD EQU CVTOPTB 02044000 CVTCTIMS EQU CVTOPTB 02045000 CVTPROT EQU CVTOPTB 02046000 CVTXPFP EQU CVTOPTA 02047000 CVTASCII EQU CVTOPTA 02048000 CVTRSV13 EQU CVTOPTA 02049000 CVTRSV12 EQU CVTOPTA 02050000 CVTNIP EQU CVTOPTA 02051000 CVTDDR EQU CVTOPTA 02052000 CVTAPR EQU CVTOPTA 02053000 CVTCCH EQU CVTOPTA 02054000 CVTSNCTR EQU CVTMAP+180 02055000 CVTQMWR EQU CVTMAP+176 02056000 CVTQOCR EQU CVTMAP+172 02057000 CVT1EF00 EQU CVTMAP+168 02058000 CVTMZ00 EQU CVTMAP+164 02059000 CVTHEAD EQU CVTMAP+160 02060000 CVTRSV11 EQU CVTMAP+156 02061000 CVT0PT01 EQU CVTMAP+152 02062000 CVTMSER EQU CVTMAP+148 02063000 CVTRV516 EQU CVTIERLC 02064000 CVTILCH EQU CVTMAP+140 02065000 CVT0DS EQU CVTMAP+136 02066000 CVTFBOSV EQU CVTMAP+132 02067000 CVTNUCB EQU CVTMAP+128 02068000 CVTIXAVL EQU CVTMAP+124 02069000 CVTIOQET EQU CVTMAP+120 02070000 CVTDCBA EQU CVTMAP+117 02071000 CVTMVS2 EQU CVTDCB 02072000 CVT6DAT EQU CVTDCB 02073000 CVT4MPS EQU CVTDCB 02074000 CVTRSV09 EQU CVTDCB 02075000 CVT4MS1 EQU CVTDCB 02076000 CVT2SPS EQU CVTDCB 02077000 CVT1SSS EQU CVTDCB 02078000 CVTRSV08 EQU CVTDCB 02079000 CVTSTB EQU CVTMAP+112 02080000 CVTQTD00 EQU CVTMAP+108 02081000 CVTQTE00 EQU CVTMAP+104 02082000 CVTCUCB EQU CVTMAP+100 02083000 CVTSJQ EQU CVTMAP+96 02084000 CVTPBLDL EQU CVTMAP+92 02085000 CVTTPC EQU CVTMAP+88 02086000 CVTSVDCB EQU CVTMAP+84 02087000 CVTBRET EQU CVTMAP+82 02088000 CVTEXIT EQU CVTMAP+80 02089000 CVT0FN00 EQU CVTMAP+76 02090000 CVTDARA EQU CVTDAR+1 02091000 CVTRSV07 EQU CVTFLGS1 02092000 CVTRSV06 EQU CVTFLGS1 02093000 CVTRSV05 EQU CVTFLGS1 02094000 CVTRSV04 EQU CVTFLGS1 02095000 CVTRSV03 EQU CVTFLGS1 02096000 CVTRSV02 EQU CVTFLGS1 02097000 CVTRSV01 EQU CVTFLGS1 02098000 CVTDMPLK EQU CVTFLGS1 02099000 CVTXITP EQU CVTMAP+68 02100000 CVTZDTAB EQU CVTMAP+64 02101000 CVTMSLT EQU CVTMAP+60 02102000 CVTDATE EQU CVTMAP+56 02103000 CVTBTERM EQU CVTMAP+52 02104000 CVTSYSAD EQU CVTMAP+48 02105000 CVTXTLER EQU CVTMAP+44 02106000 CVTILK2 EQU CVTMAP+40 02107000 CVTILK1 EQU CVTMAP+36 02108000 CVTPRLTV EQU CVTMAP+32 02109000 CVTPCNVT EQU CVTMAP+28 02110000 CVT0VL00 EQU CVTMAP+24 02111000 CVTXAPG EQU CVTMAP+20 02112000 CVTBUF EQU CVTMAP+16 02113000 CVTJOB EQU CVTMAP+12 02114000 CVTLINK EQU CVTMAP+8 02115000 CVT0EF00 EQU CVTMAP+4 02116000 CVTTCBP EQU CVTMAP 02117000 CVT EQU CVTMAP 02118000 SAVTBITN EQU IEDNSVTD+312 02119000 @NM00104 EQU SAVTCKQB+8 02120000 @NM00103 EQU SAVTCKEC+1 02121000 @NM00102 EQU SAVTCKCC 02122000 SAVTCKPO EQU SAVTCKCC 02123000 SAVTCKWA EQU SAVTCKCC 02124000 SAVTCKCH EQU SAVTCKTB+1 02125000 SAVTCKVT EQU SAVTCKTB 02126000 @NM00101 EQU IEDNSVTD+297 02127000 SAVTRDFG EQU SAVTRDRV+12 02128000 @NM00100 EQU SAVTRDRV+5 02129000 SAVTRDPY EQU SAVTRDRV+4 02130000 SAVTRDQB EQU SAVTRDRV+1 02131000 SAVTRDKY EQU SAVTRDRV 02132000 SAVTNID EQU IEDNSVTD+280 02133000 SAVTDVAS EQU IEDNSVTD+276 02134000 SAVTPLSZ EQU IEDNSVTD+274 02135000 @NM00099 EQU IEDNSVTD+273 02136000 @NM00098 EQU SAVTZELM+1 02137000 SAVTSUBM EQU SAVTZELM 02138000 SAVTMHDX EQU IEDNSVTD+268 02139000 SAVTNAT1 EQU IEDNSVTD+266 02140000 SAVTSH20 EQU IEDNSVTD+264 02141000 SAVTLCBS EQU IEDNSVTD+260 02142000 SAVTRNMP EQU IEDNSVTD+256 02143000 SAVTNAX EQU IEDNSVTD+248 02144000 SAVTSUBV EQU IEDNSVTD+247 02145000 SAVTSUBA EQU IEDNSVTD+246 02146000 SAVTSIBC EQU IEDNSVTD+244 02147000 SAVTBSM EQU IEDNSVTD+240 02148000 SAVTSCPT EQU SAVTTCPU 02149000 SAVTRQTG EQU IEDNSVTD+236 02150000 SAVTRQCH EQU IEDNSVTD+232 02151000 SAVTMAND EQU IEDNSVTD+228 02152000 SAVTSPLN EQU IEDNSVTD+224 02153000 SAVTNADL EQU IEDNSVTD+222 02154000 SAVTNATL EQU IEDNSVTD+220 02155000 SAVTMHTB EQU IEDNSVTD+216 02156000 SAVTSSMH EQU IEDNSVTD+212 02157000 SAVTQRS EQU IEDNSVTD+208 02158000 SAVTRQIN EQU IEDNSVTD+204 02159000 SAVTDFCO EQU IEDNSVTD+200 02160000 SAVTSAO EQU IEDNSVTD+196 02161000 SAVTSARI EQU IEDNSVTD+192 02162000 SAVTSAC EQU IEDNSVTD+188 02163000 SAVTSAI EQU IEDNSVTD+184 02164000 SAVTCSCI EQU IEDNSVTD+180 02165000 SAVTSSRP EQU IEDNSVTD+176 02166000 SAVTSSRQ EQU IEDNSVTD+172 02167000 SAVTSCLU EQU IEDNSVTD+168 02168000 SAVTXTRQ EQU IEDNSVTD+164 02169000 SAVTMVBF EQU IEDNSVTD+160 02170000 @NM00097 EQU IEDNSVTD+148 02171000 SAVTIPCQ EQU IEDNSVTD+144 02172000 @NM00096 EQU IEDNSVTD+136 02173000 SAVTXFMI EQU IEDNSVTD+132 02174000 @NM00095 EQU IEDNSVTD+124 02175000 SAVTXFMO EQU IEDNSVTD+120 02176000 @NM00094 EQU IEDNSVTD+116 02177000 SAVTSSSR EQU IEDNSVTD+112 02178000 SAVTSCPQ EQU IEDNSVTD+108 02179000 SAVTSLCB EQU IEDNSVTD+104 02180000 SAVTLUSR EQU IEDNSVTD+100 02181000 @NM00093 EQU SAVTLUSQ+8 02182000 SAVTLUSP EQU SAVTLUSQ+4 02183000 SAVTLUSB EQU SAVTLUSQ 02184000 @NM00092 EQU IEDNSVTD+84 02185000 SAVTCLUP EQU IEDNSVTD+72 02186000 SAVTPIUT EQU IEDNSVTD+68 02187000 SAVTRNTA EQU IEDNSVTD+64 02188000 SAVTDNIR EQU IEDNSVTD+60 02189000 SAVTCNIR EQU IEDNSVTD+56 02190000 SAVTFLDH EQU IEDNSVTD+52 02191000 SAVTSRTN EQU IEDNSVTD+48 02192000 SAVTSREQ EQU IEDNSVTD+44 02193000 SAVTFAIL EQU IEDNSVTD+42 02194000 SAVTSUSE EQU IEDNSVTD+40 02195000 SAVTSIB EQU IEDNSVTD+36 02196000 SAVTPRTN EQU IEDNSVTD+32 02197000 @NM00091 EQU IEDNSVTD+28 02198000 SAVTWH20 EQU IEDNSVTD+26 02199000 SAVTPWT EQU IEDNSVTD+24 02200000 SAVTPRTQ EQU IEDNSVTD+20 02201000 SAVTPH20 EQU IEDNSVTD+14 02202000 SAVTPUSE EQU IEDNSVTD+12 02203000 SAVTPLCB EQU IEDNSVTD+8 02204000 SAVTPOOL EQU IEDNSVTD+4 02205000 SAVTPRMT EQU SAVTDIAF 02206000 SAVTVIRT EQU SAVTDIAF 02207000 AVTCPBNO EQU IEDQAVTD+1244 02208000 AVTHRESS EQU IEDQAVTD+1243 02209000 @NM00090 EQU IEDQAVTD+1242 02210000 @NM00089 EQU IEDQAVTD+1241 02211000 @NM00088 EQU IEDQAVTD+1240 02212000 @NM00087 EQU IEDQAVTD+1237 02213000 @NM00086 EQU IEDQAVTD+1236 02214000 AVTHRESE EQU @NM00085 02215000 AVTRADDR EQU IEDQAVTD+1228 02216000 AVTNADDR EQU IEDQAVTD+1224 02217000 AVTHRESN EQU IEDQAVTD+1220 02218000 AVTVOLRN EQU IEDQAVTD+1216 02219000 AVTTOTNN EQU IEDQAVTD+1212 02220000 AVTTRCYN EQU IEDQAVTD+1208 02221000 AVTRCTRN EQU IEDQAVTD+1204 02222000 AVTNOVON EQU IEDQAVTD+1200 02223000 AVTADEBN EQU IEDQAVTD+1196 02224000 AVTVOLRR EQU IEDQAVTD+1192 02225000 AVTTOTNR EQU IEDQAVTD+1188 02226000 AVTTRCYR EQU IEDQAVTD+1184 02227000 AVTRCTRR EQU IEDQAVTD+1180 02228000 AVTNOVOR EQU IEDQAVTD+1176 02229000 AVTADEBR EQU IEDQAVTD+1172 02230000 AVTLODPT EQU IEDQAVTD+1168 02231000 AVTIOBN EQU IEDQAVTD+1164 02232000 AVTIOBR EQU IEDQAVTD+1160 02233000 AVTCPBPT EQU IEDQAVTD+1156 02234000 AVTFCPB EQU IEDQAVTD+1152 02235000 @NM00084 EQU IEDQAVTD+1148 02236000 AVTINCPQ EQU IEDQAVTD+1144 02237000 @NM00083 EQU IEDQAVTD+1140 02238000 @NM00082 EQU IEDQAVTD+1137 02239000 @NM00081 EQU AVTBIT4 02240000 @NM00080 EQU AVTBIT4 02241000 @NM00079 EQU AVTBIT4 02242000 @NM00078 EQU AVTBIT4 02243000 @NM00077 EQU AVTBIT4 02244000 @NM00076 EQU AVTBIT4 02245000 @NM00075 EQU AVTBIT4 02246000 AVTRUFTN EQU AVTBIT4 02247000 @NM00074 EQU IEDQAVTD+1132 02248000 AVTNOBFQ EQU IEDQAVTD+1128 02249000 @NM00073 EQU IEDQAVTD+1124 02250000 AVTDKENQ EQU IEDQAVTD+1120 02251000 @NM00072 EQU IEDQAVTD+1116 02252000 AVTDKAPQ EQU IEDQAVTD+1112 02253000 AVTCOPY EQU IEDQAVTD+1108 02254000 AVTIA EQU IEDQAVTD+1104 02255000 AVTFL EQU IEDQAVTD+1100 02256000 @NM00071 EQU IEDQAVTD+1096 02257000 AVTNCPBQ EQU IEDQAVTD+1092 02258000 AVTTOTNC EQU IEDQAVTD+1088 02259000 AVTCMAX EQU IEDQAVTD+1084 02260000 AVTCMIN EQU IEDQAVTD+1080 02261000 AVTHM02 EQU IEDQAVTD+1076 02262000 AVTOPCIN EQU IEDQAVTD+1074 02263000 AVTDCTLN EQU IEDQAVTD+1072 02264000 AVTOPMSK EQU IEDQAVTD+1068 02265000 AVTDDFT EQU IEDQAVTD+1064 02266000 AVTSTEAL EQU IEDQAVTD+1060 02267000 AVTOPTN EQU IEDQAVTD+1056 02268000 AVTDSKCT EQU IEDQAVTD+1054 02269000 AVTCKRST EQU IEDQAVTD+1053 02270000 AVTSTAN EQU AVTBIT3 02271000 AVTSTACN EQU AVTBIT3 02272000 AVTSTAIN EQU AVTBIT3 02273000 AVTSTAYN EQU AVTBIT3 02274000 AVTOLTBN EQU AVTBIT3 02275000 AVTTSAB EQU AVTBIT3 02276000 AVTRFULN EQU AVTBIT3 02277000 AVTRECVN EQU AVTBIT3 02278000 @NM00070 EQU AVTBIT2 02279000 @NM00069 EQU AVTBIT2 02280000 AVTOPEIN EQU AVTBIT2 02281000 AVTSTRTN EQU AVTBIT2 02282000 AVTTOPOL EQU AVTBIT2 02283000 AVTCOPYN EQU AVTBIT2 02284000 AVTREUSN EQU AVTBIT2 02285000 AVTEXTSC EQU AVTBIT2 02286000 AVTDISKN EQU AVTBIT1 02287000 AVTQUCKN EQU AVTBIT1 02288000 AVTCLOSN EQU AVTBIT1 02289000 AVTREADN EQU AVTBIT1 02290000 AVTDLAYN EQU AVTBIT1 02291000 AVTAQTAN EQU AVTBIT1 02292000 AVTTSON EQU AVTBIT1 02293000 AVTAPLKN EQU AVTBIT1 02294000 AVTDUMBR EQU IEDQAVTD+1048 02295000 AVTDLQX EQU IEDQAVTD+1046 02296000 AVTINTLV EQU IEDQAVTD+1044 02297000 AVTSMCNT EQU IEDQAVTD+1042 02298000 AVTAVFCT EQU IEDQAVTD+1040 02299000 AVTOPCON EQU IEDQAVTD+1038 02300000 AVTOPCNT EQU IEDQAVTD+1036 02301000 AVTLNCNT EQU IEDQAVTD+1034 02302000 AVTKEYLE EQU IEDQAVTD+1032 02303000 AVTHA16 EQU IEDQAVTD+1030 02304000 AVTHA7 EQU IEDQAVTD+1028 02305000 AVTHA4 EQU IEDQAVTD+1026 02306000 AVTHA3 EQU IEDQAVTD+1024 02307000 AVTHA2 EQU IEDQAVTD+1022 02308000 AVTGETMS EQU IEDQAVTD+1021 02309000 @NM00068 EQU IEDQAVTD+1020 02310000 AVTGETMD EQU IEDQAVTD+1016 02311000 AVTGETMN EQU IEDQAVTD+1012 02312000 AVTCWTOT EQU IEDQAVTD+1008 02313000 AVTCWINT EQU IEDQAVTD+956 02314000 AVTDTRAP EQU IEDQAVTD+952 02315000 @NM00067 EQU IEDQAVTD+950 02316000 @NM00066 EQU AVTIOTR 02317000 AVTIOTRH EQU AVTIOTR 02318000 AVTIOTRE EQU AVTIOTR 02319000 @NM00065 EQU AVTSUBT 02320000 AVTSUBPT EQU AVTSUBT 02321000 AVTSUBON EQU AVTSUBT 02322000 AVTAFE30 EQU IEDQAVTD+944 02323000 AVTAFE20 EQU IEDQAVTD+940 02324000 AVTAFE10 EQU IEDQAVTD+936 02325000 AVTCWEC2 EQU IEDQAVTD+932 02326000 AVTCWPM2 EQU IEDQAVTD+928 02327000 AVTCWTS2 EQU IEDQAVTD+927 02328000 AVTCWTS1 EQU IEDQAVTD+926 02329000 AVTCWCLD EQU AVTCWFL2 02330000 AVTCWRAP EQU AVTCWFL2 02331000 @NM00064 EQU AVTCWFL2 02332000 @NM00063 EQU AVTCWFL2 02333000 @NM00062 EQU AVTCWFL2 02334000 @NM00061 EQU AVTCWFL2 02335000 @NM00060 EQU AVTCWFL2 02336000 AVTCWACT EQU AVTCWFL2 02337000 @NM00059 EQU AVTCWFL1 02338000 @NM00058 EQU AVTCWFL1 02339000 @NM00057 EQU AVTCWFL1 02340000 @NM00056 EQU AVTCWFL1 02341000 @NM00055 EQU AVTCWFL1 02342000 @NM00054 EQU AVTCWFL1 02343000 @NM00053 EQU AVTCWFL1 02344000 AVTCOMWN EQU AVTCWFL1 02345000 AVTCWEC1 EQU IEDQAVTD+920 02346000 AVTCWPM1 EQU IEDQAVTD+916 02347000 AVTCAREA EQU IEDQAVTD+912 02348000 AVTFZERO EQU IEDQAVTD+908 02349000 AVTCADDR EQU IEDQAVTD+904 02350000 AVTCOREC EQU IEDQAVTD+900 02351000 @NM00052 EQU IEDQAVTD+892 02352000 AVTCPBCB EQU IEDQAVTD+888 02353000 @NM00051 EQU IEDQAVTD+880 02354000 AVTDSIOB EQU IEDQAVTD+876 02355000 @NM00050 EQU IEDQAVTD+868 02356000 AVTCPRMB EQU IEDQAVTD+864 02357000 @NM00049 EQU IEDQAVTD+856 02358000 AVTCLOSB EQU IEDQAVTD+852 02359000 @NM00048 EQU IEDQAVTD+844 02360000 AVTACTIB EQU IEDQAVTD+840 02361000 @NM00047 EQU IEDQAVTD+836 02362000 AVTOLTEB EQU IEDQAVTD+832 02363000 AVTOLTCH EQU AVTOLTQB+1 02364000 AVTOLTVT EQU AVTOLTQB 02365000 @NM00046 EQU AVTOPCQB+8 02366000 @NM00045 EQU AVTOPCEC+1 02367000 @NM00044 EQU AVTOPCCC 02368000 AVTOPCPO EQU AVTOPCCC 02369000 AVTOPCWA EQU AVTOPCCC 02370000 AVTOPCCH EQU AVTOPCOB+1 02371000 AVTOPCVT EQU AVTOPCOB 02372000 @NM00043 EQU AVTCKPQB+9 02373000 AVTCKPTS EQU AVTCKPQB+8 02374000 @NM00042 EQU AVTCKPEC+1 02375000 @NM00041 EQU AVTCKPCC 02376000 AVTCKPPO EQU AVTCKPCC 02377000 AVTCKPWA EQU AVTCKPCC 02378000 AVTCKPCH EQU AVTCKPTB+1 02379000 AVTCKPVT EQU AVTCKPTB 02380000 @NM00040 EQU IEDQAVTD+796 02381000 AVTBFRTB EQU IEDQAVTD+792 02382000 @NM00039 EQU IEDQAVTD+784 02383000 AVTBFREB EQU IEDQAVTD+780 02384000 AVTTIMQ EQU IEDQAVTD+776 02385000 @NM00038 EQU IEDQAVTD+772 02386000 AVTIMQPS EQU IEDQAVTD+768 02387000 AVTINOUT EQU IEDQAVTD+766 02388000 AVTREFTM EQU IEDQAVTD+764 02389000 @NM00037 EQU IEDQAVTD+752 02390000 AVTDELYB EQU IEDQAVTD+748 02391000 AVTOCQPT EQU IEDQAVTD+744 02392000 AVTTSOPT EQU IEDQAVTD+740 02393000 AVTSUPPT EQU IEDQAVTD+736 02394000 AVTCBQCB EQU IEDQAVTD+732 02395000 AVTMSGS EQU IEDQAVTD+729 02396000 @NM00036 EQU AVTSYSER 02397000 @NM00035 EQU AVTSYSER 02398000 @NM00034 EQU AVTSYSER 02399000 @NM00033 EQU AVTSYSER 02400000 @NM00032 EQU AVTSYSER 02401000 @NM00031 EQU AVTSYSER 02402000 AVTCMAXN EQU AVTSYSER 02403000 AVTCMINN EQU AVTSYSER 02404000 AVT2260L EQU IEDQAVTD+724 02405000 AVTABEPL EQU AVTADBUF 02406000 AVTHFF EQU AVTCLRHI+2 02407000 @NM00030 EQU AVTCLRHI 02408000 AVTCCLNK EQU AVTCRELE+5 02409000 AVTCCPRI EQU AVTCRELE+4 02410000 AVTCCQCB EQU AVTCCELE+1 02411000 AVTCCKEY EQU AVTCCELE 02412000 AVTDELAD EQU IEDQAVTD+704 02413000 AVTDELEM EQU IEDQAVTD+700 02414000 AVTBSX EQU AVTCKLNK 02415000 AVTOPETR EQU AVTHG01 02416000 @NM00029 EQU AVTCKBYT 02417000 AVTCKONQ EQU AVTCKBYT 02418000 @NM00028 EQU AVTCKBYT 02419000 @NM00027 EQU AVTCKBYT 02420000 @NM00026 EQU AVTCKBYT 02421000 @NM00025 EQU AVTCKBYT 02422000 @NM00024 EQU AVTCKBYT 02423000 @NM00023 EQU AVTCKBYT 02424000 AVTOPERT EQU IEDQAVTD+690 02425000 AVTOPXCL EQU IEDQAVTD+688 02426000 AVTOPERL EQU IEDQAVTD+687 02427000 @NM00022 EQU IEDQAVTD+686 02428000 AVTCKTIM EQU IEDQAVTD+684 02429000 AVTCKELV EQU IEDQAVTD+682 02430000 AVTCPRCD EQU IEDQAVTD+681 02431000 AVTWARMN EQU AVTCKELF 02432000 AVTCRTLN EQU AVTCKELF 02433000 AVTCPIPN EQU AVTCKELF 02434000 AVTCCLCN EQU AVTCKELF 02435000 AVTCINCN EQU AVTCKELF 02436000 @NM00021 EQU AVTCKELF 02437000 AVTCMCPN EQU AVTCKELF 02438000 AVTNQBCK EQU AVTCKELF 02439000 AVTCKQAD EQU IEDQAVTD+677 02440000 AVTSCBSZ EQU IEDQAVTD+676 02441000 @NM00020 EQU IEDQAVTD+672 02442000 AVTCKELE EQU IEDQAVTD+668 02443000 @NM00019 EQU AVTCKPEL+8 02444000 AVTCKRLK EQU AVTCKPEL+5 02445000 AVTCKRPR EQU AVTCKPEL+4 02446000 AVTCKRMQ EQU AVTCKRMV+1 02447000 AVTCKRKY EQU AVTCKRMV 02448000 AVTHK EQU IEDQAVTD+648 02449000 AVTHI EQU IEDQAVTD+644 02450000 AVTIOT EQU IEDQAVTD+640 02451000 AVTNX EQU IEDQAVTD+636 02452000 AVTTONE EQU IEDQAVTD+632 02453000 AVTA3TL EQU IEDQAVTD+628 02454000 AVTDMECB EQU IEDQAVTD+624 02455000 AVTABEND EQU IEDQAVTD+618 02456000 AVTPLCBN EQU IEDQAVTD+616 02457000 @NM00018 EQU AVTSAVTP+1 02458000 @NM00017 EQU AVTSAVTF 02459000 AVTSNA EQU AVTSAVTF 02460000 AVTONSNA EQU AVTSAVTF 02461000 AVTVTMCP EQU AVTSAVTF 02462000 @NM00016 EQU IEDQAVTD+608 02463000 AVTCMBSS EQU IEDQAVTD+604 02464000 AVTRCV EQU IEDQAVTD+600 02465000 AVTSEND EQU IEDQAVTD+596 02466000 AVTCSCH EQU IEDQAVTD+592 02467000 AVTQ1 EQU IEDQAVTD+588 02468000 AVTE7 EQU IEDQAVTD+584 02469000 AVTHB EQU IEDQAVTD+580 02470000 AVTR1 EQU IEDQAVTD+576 02471000 AVTBZ EQU IEDQAVTD+572 02472000 AVTEZ EQU IEDQAVTD+568 02473000 AVTEC EQU IEDQAVTD+564 02474000 AVTEW EQU IEDQAVTD+560 02475000 AVTNDIAL EQU AVTSCOPT 02476000 AVTN2741 EQU AVTSCOPT 02477000 AVTCONCO EQU AVTSCOPT 02478000 AVTCONC EQU AVTSCOPT 02479000 AVTCMBUF EQU AVTSCOPT 02480000 AVTAPDMP EQU AVTSCOPT 02481000 @NM00015 EQU AVTSCOPT 02482000 AVTHA EQU AVTDISP 02483000 AVTAX EQU IEDQAVTD+544 02484000 AVTA3 EQU IEDQAVTD+540 02485000 AVTGD EQU IEDQAVTD+536 02486000 AVTAL EQU IEDQAVTD+532 02487000 AVTOLTST EQU AVTHG02 02488000 AVTE8 EQU IEDQAVTD+524 02489000 AVTUI EQU IEDQAVTD+520 02490000 AVTCOMPT EQU IEDQAVTD+516 02491000 AVTCRSRF EQU IEDQAVTD+512 02492000 @NM00014 EQU IEDQAVTD+508 02493000 AVTKA02 EQU IEDQAVTD+504 02494000 AVTOPTPT EQU IEDQAVTD+500 02495000 AVTPCBPT EQU IEDQAVTD+496 02496000 @NM00013 EQU AVTECB1 02497000 AVTCOMP EQU AVTECB1 02498000 @NM00012 EQU AVTECB1 02499000 AVTOPECA EQU IEDQAVTD+488 02500000 AVTOLECA EQU IEDQAVTD+484 02501000 AVTCKECA EQU IEDQAVTD+480 02502000 AVTCWECA EQU IEDQAVTD+476 02503000 AVTCWTCB EQU IEDQAVTD+472 02504000 AVTOLTCB EQU IEDQAVTD+468 02505000 AVTOCTCB EQU IEDQAVTD+464 02506000 AVTCKTCB EQU IEDQAVTD+460 02507000 AVTAS EQU IEDQAVTD+456 02508000 AVTNOLBF EQU IEDQAVTD+454 02509000 AVTNCKPR EQU IEDQAVTD+453 02510000 AVTCIB EQU IEDQAVTD+452 02511000 AVTSPLPT EQU IEDQAVTD+448 02512000 AVTMVBFR EQU IEDQAVTD+444 02513000 AVTSBTA EQU IEDQAVTD+440 02514000 AVTRARTN EQU IEDQAVTD+436 02515000 AVTBSCAN EQU IEDQAVTD+432 02516000 AVTRDYA EQU IEDQAVTD+428 02517000 AVTDISTR EQU IEDQAVTD+420 02518000 AVTPARM3 EQU IEDQAVTD+416 02519000 @NM00011 EQU AVTPKF 02520000 @NM00010 EQU AVTPKF 02521000 @NM00009 EQU AVTPKF 02522000 AVTFTCHF EQU AVTPKF 02523000 @NM00008 EQU AVTPKF 02524000 @NM00007 EQU AVTPKF 02525000 @NM00006 EQU AVTPKF 02526000 @NM00005 EQU AVTPKF 02527000 AVTPARM EQU IEDQAVTD+408 02528000 AVTEXS2A EQU IEDQAVTD+402 02529000 AVTEXA2S EQU IEDQAVTD+396 02530000 AVTOCGET EQU IEDQAVTD+392 02531000 AVTCKAVT EQU @NM00003+1 02532000 @NM00004 EQU AVTCKFLG 02533000 AVTCKHLT EQU AVTCKFLG 02534000 AVTCKREQ EQU AVTCKFLG 02535000 AVTCKENV EQU AVTCKFLG 02536000 AVTCKNAC EQU AVTCKFLG 02537000 AVTCKTAC EQU AVTCKFLG 02538000 @NM00002 EQU IEDQAVTD+384 02539000 AVTREADD EQU IEDQAVTD+380 02540000 AVTREADY EQU IEDQAVTD+376 02541000 AVTRACE EQU IEDQAVTD+372 02542000 AVTTCB EQU IEDQAVTD+368 02543000 AVTPASWD EQU IEDQAVTD+360 02544000 AVTCTLCH EQU IEDQAVTD+352 02545000 AVTDOUBL EQU IEDQAVTD+344 02546000 AVTDOUBX EQU IEDQAVTD+336 02547000 AVTDPARM EQU IEDQAVTD+332 02548000 AVTCSTCS EQU IEDQAVTD+328 02549000 AVTDLQ EQU AVTSAVEX+32 02550000 @NM00001 EQU AVTSAVEX 02551000 AVTSAVE4 EQU IEDQAVTD+216 02552000 AVTSAVE3 EQU IEDQAVTD+144 02553000 AVTSAVE1 EQU IEDQAVTD 02554000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02555000 @RF00311 EQU @RC00301 02556000 @RF00314 EQU @RC00301 02557000 @RF00319 EQU @RC00301 02558000 @RF00430 EQU @EL00001 02559000 @ENDDATA EQU * 02560000 END IEDDVAS,(C'PLS2028',0701,77187) 02561000