TITLE 'IGCI310D, ICHNG FOR SWITCHED ID' 00001000 IGCI310D CSECT , 0001 00002000 @PROLOG BALR @11,0 0001 00003000 @PSTART DS 0H 0001 00004000 USING @PSTART,@11 0001 00005000 * /* @Y17XAR5*/ 00006000 IGCI310D IEDHJN AFTERHJN,HJN /* @Y17XAR5*/ 00007000 * ROPCAVT=REG1; /* SET PTR TO OPCTL AVT @Y17XAR5*/ 00008000 LR ROPCAVT,REG1 0461 00009000 * ELMNT=OCCIB; /* ADDR OF CIB @Y17XAR5*/ 00010000 L @12,OPCWORK(,ROPCAVT) 0462 00011000 L @08,ROPCE(,ROPCAVT) 0462 00012000 L @06,OCCIB(,@08) 0462 00013000 ST @06,ELMNT(,@12) 0462 00014000 * UNIT=OCUNIT; /* ADDR OF RESPONSE UNIT @Y17XAR5*/ 00015000 L UNIT,OCUNIT(,@08) 0463 00016000 * RWRK1=UNIT; /* EST. THE FIRST UNIT @YM07777*/ 00017000 LR RWRK1,UNIT 0464 00018000 * RAVT=OPCAVTPT; /* ADDR OF TCAM AVT @Y17XAR5*/ 00019000 L RAVT,OPCAVTPT(,ROPCAVT) 0465 00020000 * IF OPCRSTRT='1'B THEN /* IF RESTART, BRANCH @Y17XAR5*/ 00021000 TM OPCRSTRT(ROPCAVT),B'00100000' 0466 00022000 BO @RT00466 0466 00023000 * GO TO RESTART; /* @Y17XAR5*/ 00024000 * DATA=ADDR(IEDBDU)+LENGTH(IEDBDU)+LVLBYTE;/* ADDR OF RESPONSE DATA 00025000 * @Y17XAR5*/ 00026000 LA DATA,19(,UNIT) 0468 00027000 * RAREA=ELMNT->WFROM; /* ADDR OF USER WORK AREA 0469 00028000 * @Y17XAR5*/ 00029000 L RAREA,WFROM(,@06) 0469 00030000 * RFY 0470 00031000 * RFROM RSTD; /* @Y17XAR5*/ 00032000 * RFROM=RAREA+8; /* ADDR OF FIRST ENTRY @Y17XAR5*/ 00033000 LA RFROM,8(,RAREA) 0471 00034000 * GENERATE; 0472 00035000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00036000 * GO TO SWTCHID; /* GO PROCESS */ 00037000 B SWTCHID 0473 00038000 * RFY 0474 00039000 * REG12 RSTD; /* @Y17XAR5*/ 00040000 * RFY 0475 00041000 * RWRK1 RSTD; /* @Y17XAR5*/ 00042000 *CHKUNIT: 0476 00043000 * IF DATA>=ENDUNIT /* PAST END OF UNIT? @Y17XAR5*/ 00044000 * THEN 0476 00045000 CHKUNIT L @06,OPCWORK(,ROPCAVT) 0476 00046000 L @15,ENDUNIT(,@06) 0476 00047000 CR DATA,@15 0476 00048000 BL @RF00476 0476 00049000 * DO; /* YES, */ 00050000 * DATA=RWRK1->PRFTIC+12+DATA-ENDUNIT;/* DATA ADDRESS FOR NEW 0478 00051000 * UNIT @Y17XAR5*/ 00052000 LA @14,12 0478 00053000 L @01,PRFTIC(,RWRK1) 0478 00054000 LR @00,@01 0478 00055000 ALR @00,@14 0478 00056000 ALR @00,DATA 0478 00057000 SLR @00,@15 0478 00058000 LR DATA,@00 0478 00059000 * ENDUNIT=RWRK1->PRFTIC+AVTKEYLE+12;/* END OF NEXT UNIT ADDRESS 00060000 * @Y17XAR5*/ 00061000 LH @15,AVTKEYLE(,RAVT) 0479 00062000 ALR @15,@01 0479 00063000 ALR @15,@14 0479 00064000 ST @15,ENDUNIT(,@06) 0479 00065000 * RWRK1=RWRK1->PRFTIC; /* NEXT UNIT ADDRESS */ 00066000 LR RWRK1,@01 0480 00067000 * GO TO CHKUNIT; 0481 00068000 B CHKUNIT 0481 00069000 * END; 0482 00070000 * GENERATE; 0483 00071000 @RF00476 DS 0H 0483 00072000 BR REG12 /* RETURN TO CALLER */ 00073000 * RFY 0484 00074000 * REG12 UNRSTD; /* @Y17XAR5*/ 00075000 *SWTCHID: 0485 00076000 * OCICTYPE=OCICSID; /* SET SWITCHID INDICATOR 0485 00077000 * @Y17XAR5*/ 00078000 SWTCHID L @12,ROPCE(,ROPCAVT) 0485 00079000 MVI OCICTYPE(@12),X'00' 0485 00080000 * DATA=DATA+1; /* SKIP DESCRIPTOR BYTE @Y17XAR5*/ 00081000 LA DATA,1(,DATA) 0486 00082000 * GEN; 0487 00083000 * /* @Y17XAR5*/ 00084000 BAL REG12,CHKUNIT /* CK END OF UNIT EXCEEDED@Y17XAR5*/ 00085000 * DATA=DATA+DATA->FCOUNT+2; /* SKIP DEVICE RECORD */ 00086000 LR @12,DATA 0488 00087000 SLR @06,@06 0488 00088000 IC @06,FCOUNT(,DATA) 0488 00089000 ALR @12,@06 0488 00090000 LA @12,2(,@12) 0488 00091000 LR DATA,@12 0488 00092000 * GENERATE; 0489 00093000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00094000 *MOVENTRY: 0490 00095000 * RLNGTH=RAREA->FIELD(3)-1; /* DATA LENGTH MINUS INDEX BYTE 00096000 * @Y17XAR5*/ 00097000 MOVENTRY SLR RLNGTH,RLNGTH 0490 00098000 IC RLNGTH,FIELD+2(,RAREA) 0490 00099000 BCTR RLNGTH,0 0490 00100000 * DATA=DATA+1; /* POINT TO ENTRY FLAGS */ 00101000 LA DATA,1(,DATA) 0491 00102000 * GEN; 0492 00103000 * /* @Y17XAR5*/ 00104000 BAL REG12,CHKUNIT /* CK END OF UNIT EXCEEDED@Y17XAR5*/ 00105000 * IF DATA->DEVASSO='1'B THEN 0493 00106000 TM DEVASSO(DATA),B'10000000' 0493 00107000 BNO @RF00493 0493 00108000 * DO; /* IS RSID IN DATA? @Y17XAR5*/ 00109000 * DATA=DATA+2; /* MOVE PTR PAST RSID @Y17XAR5*/ 00110000 LA DATA,2(,DATA) 0495 00111000 * GEN; 0496 00112000 * /* @Y17XAR5*/ 00113000 BAL REG12,CHKUNIT /* CK END OF UNIT EXCEEDED@Y17XAR5*/ 00114000 * END; /* @Y17XAR5*/ 00115000 *MOVID: 0498 00116000 * DATA=DATA+1; /* UPDATE POINTER */ 00117000 @RF00493 DS 0H 0498 00118000 MOVID LA DATA,1(,DATA) 0498 00119000 * GENERATE; 0499 00120000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00121000 * DATA->FIELD(1)=RFROM->FIELD(1); /* MOVE ONE BYTE OF DATA */ 00122000 MVC FIELD(1,DATA),FIELD(RFROM) 0500 00123000 * RFROM=RFROM+1; /* UPDATE POINTER */ 00124000 LA @12,1 0501 00125000 ALR RFROM,@12 0501 00126000 * RLNGTH=RLNGTH-1; /* REDUCE AMOUNT TO MOVE */ 00127000 BCTR RLNGTH,0 0502 00128000 * IF RLNGTH^=0 /* HAS ALL DATA BEEN MOVED */ 00129000 * THEN 0503 00130000 LTR RLNGTH,RLNGTH 0503 00131000 BNZ @RT00503 0503 00132000 * GO TO MOVID; /* NO, GO MOVE MORE */ 00133000 * RFROM=RFROM+1; /* BYPASS INDEX BYTE @Y17XAR5*/ 00134000 ALR RFROM,@12 0505 00135000 * IF RFROM->FIELD(1)='FE'X /* END OF ACTIVE ENTRIES */ 00136000 * THEN 0506 00137000 CLI FIELD(RFROM),X'FE' 0506 00138000 BE @RT00506 0506 00139000 * GO TO ALLDONE; /* YES-PROCESSING COMPLETE 0507 00140000 * @Y17XARL*/ 00141000 * DATA=DATA+1; /* UPDATE POINTER */ 00142000 ALR DATA,@12 0508 00143000 * GENERATE; 0509 00144000 BAL REG12,CHKUNIT /* CHECK END OF UNIT EXCEEDED */ 00145000 * GO TO MOVENTRY; /* MOVE NEXT ENTRY */ 00146000 B MOVENTRY 0510 00147000 * RFY 0511 00148000 * RFROM UNRSTD; /* @Y17XAR5*/ 00149000 *ALLDONE: 0512 00150000 * ELMNT->WANSCD='14'X; /* SET ENTRY CODE FOR ANSWER */ 00151000 ALLDONE L @12,OPCWORK(,ROPCAVT) 0512 00152000 L @12,ELMNT(,@12) 0512 00153000 MVI WANSCD(@12),X'14' 0512 00154000 */* SET UP FOR EXIT TO '02' @Y17XAR5*/ 00155000 * 0513 00156000 * OCPARM=0; /* CLEAR OCPARM @Y17XAR5*/ 00157000 L @08,ROPCE(,ROPCAVT) 0513 00158000 SLR @06,@06 0513 00159000 STH @06,OCPARM(,@08) 0513 00160000 * OCRESP='0'B; /* RESET RESPONSE INDICATOR 0514 00161000 * @Y17XARL*/ 00162000 NI OCRESP(@08),B'11111110' 0514 00163000 * OCWTG=MODT0; /* NEXT MODULE IS T0 @Y17XAR5*/ 00164000 MVC OCWTG(2,@08),MODT0 0515 00165000 * OCACTREQ='1'B; /* RETURN ON ERROR @Y17XAR5*/ 00166000 OI OCACTREQ(@08),B'00001000' 0516 00167000 * PRURH=TRHFID0; /* SET RH @Y17XAR5*/ 00168000 LR @08,UNIT 0517 00169000 SL @08,@CF00071 0517 00170000 MVC PRURH(3,@08),@CB01317 0517 00171000 * PRUTH=TTH0BYT0; /* SET TH @Y17XAR5*/ 00172000 MVI PRUTH(@08),X'0C' 0518 00173000 * BDUMODIF=CD0CRSII; /* REPLACE SESSION INFO @Y17XAR5*/ 00174000 LA @08,12 0519 00175000 ALR @08,UNIT 0519 00176000 MVI BDUMODIF(@08),X'02' 0519 00177000 * BDUHEADR='1'B; /* HEADER @Y17XAR5*/ 00178000 OI BDUHEADR(@08),B'01000000' 0520 00179000 * BDUSYRSP=''B; /* CLEAR RESPOSE @Y17XAR5*/ 00180000 MVI BDUSYRSP(@08),X'00' 0521 00181000 * OPCMODID=MODID02; /* GO TO IGC0210D @Y17XAR5*/ 00182000 MVC OPCMODID(2,ROPCAVT),MODID02 0522 00183000 * IF AVTSTAIN='1'B THEN /* CAN CHKPT BE TAKEN? @Y17XAR5*/ 00184000 TM AVTSTAIN(RAVT),B'00000100' 0523 00185000 BNO @RF00523 0523 00186000 * IF ELMNT->WRTCD='00'X THEN /* YES, GOOD RETURN CODE? 0524 00187000 * @Y17XAR5*/ 00188000 CLI WRTCD(@12),X'00' 0524 00189000 BNE @RF00524 0524 00190000 * CALL CHKPT; /* YES, SET UP FOR CHKPT @Y17XAR5*/ 00191000 BAL @14,CHKPT 0525 00192000 *XCTL: /* @Y17XAR5*/ 00193000 * REG1=ROPCAVT; /* RETURN PARAMETER @Y17XAR5*/ 00194000 @RF00524 DS 0H 0526 00195000 @RF00523 DS 0H 0526 00196000 XCTL LR REG1,ROPCAVT 0526 00197000 * DO; /* IEDXCTL */ 00198000 * GEN EXIT REFS(ROPCAVT,OPCTRACE,OPCXCTL) NOSEQFLOW; 0528 00199000 * /* 00200000 LA 15,OPCXCTL(,ROPCAVT) POINT TO OPCXCTL LIST 00201000 EX 0,OPCTRACE(,ROPCAVT) INVOKE XCTL TRACE 00202000 XCTL SF=(E,(15)) XCTL TO NEXT MODULE 00203000 * END; /* END OF IEDXCTL */ 00204000 * 0529 00205000 * /*****************************************************************/ 00206000 * /* */ 00207000 * /* TRANSFER CONTROL @OZ35627*/ 00208000 * /* */ 00209000 * /*****************************************************************/ 00210000 * 0530 00211000 *ERREXIT: 0530 00212000 * ELMNT->WRTCD='1C'X; /* SET RETURN CODE */ 00213000 ERREXIT L @12,OPCWORK(,ROPCAVT) 0530 00214000 L @12,ELMNT(,@12) 0530 00215000 MVI WRTCD(@12),X'1C' 0530 00216000 * GO TO ALLDONE; /* TELL APPLICATION PROGRAM */ 00217000 B ALLDONE 0531 00218000 * RFY 0532 00219000 * REG1 RSTD; /* @Y17XAR5*/ 00220000 *CHKPT: /* @Y17XAR5*/ 00221000 * SAVE14=REG14; /* SAVE RETURN REG @Y17XARL*/ 00222000 CHKPT ST REG14,SAVE14(,ROPCAVT) 0533 00223000 * RWRK1=UNIT; /* @Y17XAR5*/ 00224000 LR RWRK1,UNIT 0534 00225000 * REG1=0; /* @Y17XAR5*/ 00226000 SLR REG1,REG1 0535 00227000 *VALIDCHK: /* @Y17XAR5*/ 00228000 * GEN REFS(RWRK1,OPCHNEND); 0536 00229000 VALIDCHK DS 0H 0536 00230000 * /* @Y17XAR5*/ 00231000 EX RWRK1,OPCHNEND(,ROPCAVT) /* RWRK1 VALID ADDR? @Y17XAR5*/ 00232000 BC 7,GETBUF /* NO @Y17XAR5*/ 00233000 * REG1=REG1+1; /* YES- INCREMENT @Y17XAR5*/ 00234000 LA REG1,1(,REG1) 0537 00235000 * RWRK1=RWRK1->PRFTIC; /* GET NXT UNIT ADDR @Y17XAR5*/ 00236000 L RWRK1,PRFTIC(,RWRK1) 0538 00237000 * GO TO VALIDCHK; /* VALIDATE IT @Y17XAR5*/ 00238000 B VALIDCHK 0539 00239000 * RFY 0540 00240000 * RWRK1 UNRSTD; /* @Y17XAR5*/ 00241000 *GETBUF: /* @Y17XAR5*/ 00242000 * CALL ALLOCBUF; /* @Y17XAR5*/ 00243000 GETBUF L @15,OPCGETBF(,ROPCAVT) 0541 00244000 BALR @14,@15 0541 00245000 * UNITADDR=REG1; /* SAVE 1ST UNIT ADDR @Y17XAR5*/ 00246000 L @12,OPCWORK(,ROPCAVT) 0542 00247000 ST REG1,UNITADDR(,@12) 0542 00248000 * REG1=ADDR(MVPARAMS); /* REF WORK AREA @Y17XAR5*/ 00249000 LA REG1,MVPARAMS(,@12) 0543 00250000 * IEDPLMV=''B; /* CLEAR WORK AREA @Y17XAR5*/ 00251000 XC IEDPLMV(24,REG1),IEDPLMV(REG1) 0544 00252000 * PLMVTU=UNITADDR; /* SET UP PARAMS FOR CALL 0545 00253000 * @Y17XAR5*/ 00254000 L @12,OPCWORK(,ROPCAVT) 0545 00255000 L @12,UNITADDR(,@12) 0545 00256000 ST @12,PLMVTU(,REG1) 0545 00257000 * PLMVTD=UNITADDR+12; /* TO IEDMVBFR @Y17XAR5*/ 00258000 LA @08,12 0546 00259000 ALR @12,@08 0546 00260000 ST @12,PLMVTD(,REG1) 0546 00261000 * PLMVSU=UNIT; /* @Y17XAR5*/ 00262000 ST UNIT,PLMVSU(,REG1) 0547 00263000 * PLMVSD=UNIT+12; /* @Y17XAR5*/ 00264000 ALR @08,UNIT 0548 00265000 ST @08,PLMVSD(,REG1) 0548 00266000 * PLMVLNTH=PRUDATCT; /* @Y17XAR5*/ 00267000 LH @12,PRUDATCT(,UNIT) 0549 00268000 STH @12,PLMVLNTH(,REG1) 0549 00269000 * RSAVE=ADDR(OPCSAVE); /* SET SAVEAREA ADDR @Y17XAR5*/ 00270000 LA RSAVE,OPCSAVE(,ROPCAVT) 0550 00271000 * CALL IEDMVBFR; /* NOW CALL IT @Y17XAR5*/ 00272000 L @12,AVTSAVTP(,RAVT) 0551 00273000 L @15,SAVTMVBF(,@12) 0551 00274000 BALR @14,@15 0551 00275000 * OCPTRSAV=UNITADDR; /* 1ST UNIT ADDR IN OPCE @Y17XAR5*/ 00276000 L @12,ROPCE(,ROPCAVT) 0552 00277000 L @08,OPCWORK(,ROPCAVT) 0552 00278000 L @08,UNITADDR(,@08) 0552 00279000 ST @08,OCPTRSAV(,@12) 0552 00280000 * REG15=UNITADDR; /* REF 1ST UNIT @Y17XAR5*/ 00281000 LR REG15,@08 0553 00282000 * REG15->PRUTTCIN=PRUTTCIN; /* MOVE FIELDS TO COPIED @Y17XAR5*/ 00283000 LH @14,PRUTTCIN(,UNIT) 0554 00284000 N @14,@CF02218 0554 00285000 STH @14,PRUTTCIN(,REG15) 0554 00286000 * REG15->PRUDATCT=PRUDATCT; /* UNIT @Y17XAR5*/ 00287000 LH @14,PRUDATCT(,UNIT) 0555 00288000 STH @14,PRUDATCT(,REG15) 0555 00289000 * REG14=SAVE14; /* RESTORE RETURN REG @Y17XARL*/ 00290000 L REG14,SAVE14(,ROPCAVT) 0556 00291000 * RETURN; /* RETURN @Y17XARL*/ 00292000 @EL00001 DS 0H 0557 00293000 @EF00001 DS 0H 0557 00294000 @ER00001 BR @14 0557 00295000 *RESTART: /* @Y17XARW*/ 00296000 * IF OCICTYPE=OCICLES THEN 0558 00297000 RESTART L @12,ROPCE(,ROPCAVT) 0558 00298000 CLI OCICTYPE(@12),1 0558 00299000 BNE @RF00558 0558 00300000 * DO; /* IS THIS A LEASED LINE @Y17XARW*/ 00301000 * RFY 0560 00302000 * REG0 RSTD; /* @YM07394*/ 00303000 * REG1=OCTRMTBL; /* SETUP TTCIN @Y17XARW*/ 00304000 LH REG1,OCTRMTBL(,@12) 0561 00305000 N REG1,@CF02218 0561 00306000 * CALL IEDQTNT; /* GET TNT @Y17XARW*/ 00307000 L @15,AVTRNMPT(,RAVT) 0562 00308000 BALR @14,@15 0562 00309000 * RTRM=REG1-LENGTH(IEDNTRM); /* ADJUST TTE POINTER @Y17XARW*/ 00310000 LR @12,REG1 0563 00311000 SL @12,@CF00045 0563 00312000 ST @12,RTRM(,ROPCAVT) 0563 00313000 * IF OCICINAC='1'B THEN /* IS THIS A DEACT REQUEST 0564 00314000 * @Y17XARW*/ 00315000 L @08,ROPCE(,ROPCAVT) 0564 00316000 TM OCICINAC(@08),B'00000001' 0564 00317000 BNO @RF00564 0564 00318000 * TRMRSACT='0'B; /* MARK RESOURCE INACTIVE 0565 00319000 * @Y17XARW*/ 00320000 L @08,TRMRSACT(,@12) 0565 00321000 @GL00001 LR @06,@08 0565 00322000 N @06,@CF02219 0565 00323000 CS @08,@06,TRMRSACT(@12) 0565 00324000 BNE @GL00001 0565 00325000 * ELSE /* INACT REQUEST */ 00326000 * TRMRSACT='1'B; /* MARK RESOURCE ACTIVE @Y17XARW*/ 00327000 B @RC00564 0566 00328000 @RF00564 L @06,RTRM(,ROPCAVT) 0566 00329000 L @12,TRMRSACT(,@06) 0566 00330000 @GL00002 LR @08,@12 0566 00331000 O @08,@CF02222 0566 00332000 CS @12,@08,TRMRSACT(@06) 0566 00333000 BNE @GL00002 0566 00334000 * RFY 0567 00335000 * REG0 UNRSTD; /* @YM07394*/ 00336000 @RC00564 DS 0H 0568 00337000 * END; /* @Y17XARW*/ 00338000 * ELSE 0569 00339000 * DO; /* NOT A LEASED LINE @Y17XARW*/ 00340000 B @RC00558 0569 00341000 @RF00558 DS 0H 0570 00342000 * TNTOUNT=OCUNIT; /* SETUP UNIT PTR @Y17XARW*/ 00343000 L @12,OPCWORK(,ROPCAVT) 0570 00344000 L @08,ROPCE(,ROPCAVT) 0570 00345000 L @08,OCUNIT(,@08) 0570 00346000 ST @08,TNTOUNT(,@12) 0570 00347000 * TNTOPTR=ADDR(CPINFO); /* POINT TO IST TNT OFFSET 0571 00348000 * @Y17XARW*/ 00349000 LA @06,CPINFO(,@08) 0571 00350000 ST @06,TNTOPTR(,@12) 0571 00351000 * TNTOLEN=CPLEN-3; /* SETUP LENGTH OF DATA @Y17XARW*/ 00352000 SLR @06,@06 0572 00353000 IC @06,CPLEN(,@08) 0572 00354000 SL @06,@CF00101 0572 00355000 STH @06,TNTOLEN(,@12) 0572 00356000 * RCOUNT=CPNUMOFF; /* SETUP NUMBER OF TNT OFFSETS 0573 00357000 * @Y17XARW*/ 00358000 SLR @06,@06 0573 00359000 ICM @06,3,CPNUMOFF(@08) 0573 00360000 ST @06,RCOUNT(,@12) 0573 00361000 * DO UNTIL RCOUNT=0; /* DO UNTIL NO MORE OFFSETS 0574 00362000 * @Y17XARW*/ 00363000 @DL00574 DS 0H 0575 00364000 * LENDATA=3; /* SETUP MAX LENGTH @Y17XARW*/ 00365000 L @12,OPCWORK(,ROPCAVT) 0575 00366000 MVI LENDATA(@12),X'03' 0575 00367000 * EPTR=ADDR(OFFSET); /* SETUP TARGET POINTER @Y17XARW*/ 00368000 LA @08,OFFSET(,@12) 0576 00369000 ST @08,EPTR(,ROPCAVT) 0576 00370000 * LENMOVE=TNTOLEN; /* SETUP LENGTH TO MOVE @Y17XARW*/ 00371000 LH @08,TNTOLEN(,@12) 0577 00372000 STC @08,LENMOVE(,@12) 0577 00373000 * IF LENMOVE>LENDATA THEN /* IF TOTAL LENGTH > MAX LENGTH 00374000 * THEN @Y17XARW*/ 00375000 CLC LENMOVE(1,@12),LENDATA(@12) 0578 00376000 BNH @RF00578 0578 00377000 * LENMOVE=LENDATA; /* SETUP DATA LENGTH TO MAX 0579 00378000 * @Y17XARW*/ 00379000 IC @08,LENDATA(,@12) 0579 00380000 STC @08,LENMOVE(,@12) 0579 00381000 * DO WHILE(LENMOVE>0); /* MOVE ALL DATA @Y17XARW*/ 00382000 @RF00578 B @DE00580 0580 00383000 @DL00580 DS 0H 0581 00384000 * EPTR->MOVCHARS(1:LENMOVE)=TNTOPTR->MOVCHARS(1:LENMOVE);/* 00385000 * MOVE DATA @Y17XARW*/ 00386000 L @12,EPTR(,ROPCAVT) 0581 00387000 L @08,OPCWORK(,ROPCAVT) 0581 00388000 SLR @06,@06 0581 00389000 IC @06,LENMOVE(,@08) 0581 00390000 LR @03,@06 0581 00391000 BCTR @03,0 0581 00392000 L @15,TNTOPTR(,@08) 0581 00393000 EX @03,@SM02225 0581 00394000 * EPTR=EPTR+LENMOVE; /* BUMP PTR @Y17XARW*/ 00395000 ALR @12,@06 0582 00396000 ST @12,EPTR(,ROPCAVT) 0582 00397000 * TNTOPTR=TNTOPTR+LENMOVE;/* BUMP PTR @Y17XARW*/ 00398000 ALR @15,@06 0583 00399000 ST @15,TNTOPTR(,@08) 0583 00400000 * TNTOLEN=TNTOLEN-LENMOVE;/* DECREMENT TOTAL LENGTH 0584 00401000 * @Y17XARW*/ 00402000 LCR @06,@06 0584 00403000 AH @06,TNTOLEN(,@08) 0584 00404000 STH @06,TNTOLEN(,@08) 0584 00405000 * IF TNTOLEN<=0 THEN 0585 00406000 LTR @06,@06 0585 00407000 BP @RF00585 0585 00408000 * DO; /* IF NO MORE DATA, CONTINUE 0586 00409000 * @Y17XARW*/ 00410000 * TNTOUNT=CPTIC; /* GET NEXT UNIT @Y17XARW*/ 00411000 L @12,TNTOUNT(,@08) 0587 00412000 L @12,CPTIC(,@12) 0587 00413000 ST @12,TNTOUNT(,@08) 0587 00414000 * TNTOPTR=ADDR(CPDATA)-TNTOLEN;/* GET DATA SOURCE PTR 00415000 * @Y17XARW*/ 00416000 LA @03,CPDATA(,@12) 0588 00417000 SLR @03,@06 0588 00418000 ST @03,TNTOPTR(,@08) 0588 00419000 * TNTOLEN=CPLEN+TNTOLEN;/* RESET LENGTH @Y17XARW*/ 00420000 SLR @03,@03 0589 00421000 IC @03,CPLEN(,@12) 0589 00422000 ALR @06,@03 0589 00423000 STH @06,TNTOLEN(,@08) 0589 00424000 * END; /* @Y17XARW*/ 00425000 * LENDATA=LENDATA-LENMOVE;/* RESET MOVE LENGTH @Y17XARW*/ 00426000 @RF00585 L @12,OPCWORK(,ROPCAVT) 0591 00427000 SLR @08,@08 0591 00428000 IC @08,LENDATA(,@12) 0591 00429000 SLR @06,@06 0591 00430000 IC @06,LENMOVE(,@12) 0591 00431000 SLR @08,@06 0591 00432000 STC @08,LENDATA(,@12) 0591 00433000 * LENMOVE=LENDATA; /* @Y17XARW*/ 00434000 STC @08,LENMOVE(,@12) 0592 00435000 * END; /* @Y17XARW*/ 00436000 @DE00580 L @12,OPCWORK(,ROPCAVT) 0593 00437000 CLI LENMOVE(@12),0 0593 00438000 BH @DL00580 0593 00439000 * IF OFFSET^=0 THEN 0594 00440000 LH @12,OFFSET(,@12) 0594 00441000 N @12,@CF02218 0594 00442000 LTR @12,@12 0594 00443000 BZ @RF00594 0594 00444000 * DO; /* ZERO TNT OFFSET @Y17XARW*/ 00445000 * RFY 0596 00446000 * REG0 RSTD; /* @YM07394*/ 00447000 * REG1=OFFSET; /* SETUP OFFSET @Y17XARW*/ 00448000 LR REG1,@12 0597 00449000 * CALL IEDQTNT; /* GET TTE ADDRESS @Y17XARW*/ 00450000 L @15,AVTRNMPT(,RAVT) 0598 00451000 BALR @14,@15 0598 00452000 * RTRM=REG1-LENGTH(IEDNTRM);/* ADJUST TTE POINTER 0599 00453000 * @Y17XARW*/ 00454000 LR @12,REG1 0599 00455000 SL @12,@CF00045 0599 00456000 ST @12,RTRM(,ROPCAVT) 0599 00457000 * IF STATUS=TNTOINAC THEN 0600 00458000 L @08,OPCWORK(,ROPCAVT) 0600 00459000 CLI STATUS(@08),1 0600 00460000 BNE @RF00600 0600 00461000 * TRMRSACT='0'B; /* IF REQUEST IS INACTIVE MARK 0601 00462000 * RESOURCE INACTIVE @Y17XARW*/ 00463000 L @08,TRMRSACT(,@12) 0601 00464000 @GL00003 LR @06,@08 0601 00465000 N @06,@CF02219 0601 00466000 CS @08,@06,TRMRSACT(@12) 0601 00467000 BNE @GL00003 0601 00468000 * ELSE 0602 00469000 * TRMRSACT='1'B; /* MARK RESOURCE ACTIVE @Y17XARW*/ 00470000 B @RC00600 0602 00471000 @RF00600 L @06,RTRM(,ROPCAVT) 0602 00472000 L @12,TRMRSACT(,@06) 0602 00473000 @GL00004 LR @08,@12 0602 00474000 O @08,@CF02222 0602 00475000 CS @12,@08,TRMRSACT(@06) 0602 00476000 BNE @GL00004 0602 00477000 * RFY 0603 00478000 * REG0 UNRSTD; /* @YM07394*/ 00479000 @RC00600 DS 0H 0604 00480000 * END; /* @Y17XARW*/ 00481000 * RCOUNT=RCOUNT-1; /* DECREMENT COUNT @Y17XARW*/ 00482000 @RF00594 L @12,OPCWORK(,ROPCAVT) 0605 00483000 L @08,RCOUNT(,@12) 0605 00484000 BCTR @08,0 0605 00485000 ST @08,RCOUNT(,@12) 0605 00486000 * END; /* @Y17XARW*/ 00487000 @DE00574 L @12,OPCWORK(,ROPCAVT) 0606 00488000 L @12,RCOUNT(,@12) 0606 00489000 LTR @12,@12 0606 00490000 BNZ @DL00574 0606 00491000 * END; /* @Y17XARW*/ 00492000 * OPCMODID=MODNAME3; /* SETUP MODID @Y17XARW*/ 00493000 @RC00558 MVC OPCMODID(2,ROPCAVT),MODNAME3 0608 00494000 * GOTO XCTL; /* XCTL TO NEXT MOD @Y17XARW*/ 00495000 B XCTL 0609 00496000 * RFY 0610 00497000 * REG1 UNRSTD; /* @Y17XAR5*/ 00498000 * END IGCI310D /* @Y17XAR5*/ 00499000 * 0611 00500000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00501000 */*%INCLUDE SYSLIB (TAVTD ) */ 00502000 */*%INCLUDE SYSLIB (TTRMD ) */ 00503000 */*%INCLUDE SYSLIB (TPRFD ) */ 00504000 */*%INCLUDE SYSLIB (TPRUD ) */ 00505000 */*%INCLUDE SYSLIB (TBDUD ) */ 00506000 */*%INCLUDE SYSLIB (TTHD ) */ 00507000 */*%INCLUDE SYSLIB (TRHD ) */ 00508000 */*%INCLUDE SYSLIB (TCD0D ) */ 00509000 */*%INCLUDE SYSLIB (TPLMVD ) */ 00510000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00511000 */*%INCLUDE SYSLIB (TOPCED ) */ 00512000 * 0611 00513000 * ; 0611 00514000 B @EL00001 0611 00515000 @DATA DS 0H 00516000 @SM02225 MVC MOVCHARS(0,@12),MOVCHARS(@15) 00517000 DS 0F 00518000 DS 0F 00519000 @CF00101 DC F'3' 00520000 @CF00071 DC F'8' 00521000 @CF00045 DC F'24' 00522000 @CF02218 DC XL4'0000FFFF' 00523000 @CF02219 DC BL4'01111111111111111111111111111111' 00524000 @CF02222 DC BL4'10000000000000000000000000000000' 00525000 DS 0D 00526000 AVTOSECB DS F 00527000 @CB01317 DC X'0B8000' 00528000 PATCH DC XL104'0' 00529000 MODT0 DC CL2'T0' 00530000 MODID02 DC CL2'02' 00531000 MODNAME3 DC CL2'06' 00532000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00533000 @01 EQU 01 00534000 @02 EQU 02 00535000 @03 EQU 03 00536000 @04 EQU 04 00537000 @05 EQU 05 00538000 @06 EQU 06 00539000 @07 EQU 07 00540000 @08 EQU 08 00541000 @09 EQU 09 00542000 @10 EQU 10 00543000 @11 EQU 11 00544000 @12 EQU 12 00545000 @13 EQU 13 00546000 @14 EQU 14 00547000 @15 EQU 15 00548000 @0 EQU 00 00549000 @1 EQU 01 00550000 @2 EQU 02 00551000 @3 EQU 03 00552000 @4 EQU 04 00553000 @5 EQU 05 00554000 @6 EQU 06 00555000 @7 EQU 07 00556000 @8 EQU 08 00557000 @9 EQU 09 00558000 @A EQU 10 00559000 @B EQU 11 00560000 @C EQU 12 00561000 @D EQU 13 00562000 @E EQU 14 00563000 @F EQU 15 00564000 REG0 EQU @00 00565000 REG1 EQU @01 00566000 ROPCAVT EQU @02 00567000 RWRK1 EQU @03 00568000 RAVT EQU @04 00569000 UNIT EQU @05 00570000 DATA EQU @07 00571000 PARAM EQU @08 00572000 RFROM EQU @08 00573000 RAREA EQU @09 00574000 RLNGTH EQU @10 00575000 RBASE EQU @11 00576000 REG12 EQU @12 00577000 RSAVE EQU @13 00578000 REG14 EQU @14 00579000 REG15 EQU @15 00580000 IEDQAPTR EQU 0 00581000 IEDQPPTR EQU 0 00582000 IEDPRUQP EQU 0 00583000 IEDPLMVP EQU 0 00584000 IEDQAVTD EQU 0 00585000 AVTSAVEX EQU IEDQAVTD+288 00586000 AVTREADD EQU IEDQAVTD+380 00587000 AVTBUFSW EQU IEDQAVTD+384 00588000 @NM00004 EQU IEDQAVTD+388 00589000 AVTCKFLG EQU @NM00004 00590000 AVTBASE EQU IEDQAVTD+412 00591000 AVTPKF EQU AVTBASE 00592000 AVTRNMPT EQU IEDQAVTD+424 00593000 AVTHG02 EQU IEDQAVTD+528 00594000 AVTDISP EQU IEDQAVTD+552 00595000 AVTHD EQU IEDQAVTD+556 00596000 AVTSCOPT EQU AVTHD 00597000 AVTSAVTP EQU IEDQAVTD+612 00598000 AVTSAVTF EQU AVTSAVTP 00599000 AVTCKPEL EQU IEDQAVTD+652 00600000 AVTCKRMV EQU AVTCKPEL 00601000 AVTCKELF EQU IEDQAVTD+680 00602000 AVTCKBYT EQU IEDQAVTD+691 00603000 AVTHG01 EQU IEDQAVTD+692 00604000 AVTCKLNK EQU IEDQAVTD+696 00605000 AVTCRELE EQU IEDQAVTD+708 00606000 AVTCCELE EQU AVTCRELE 00607000 AVTCLRHI EQU IEDQAVTD+716 00608000 AVTADBUF EQU IEDQAVTD+720 00609000 AVTSYSER EQU IEDQAVTD+728 00610000 AVTBFRFG EQU IEDQAVTD+784 00611000 AVTCKPQB EQU IEDQAVTD+804 00612000 AVTCKPTB EQU AVTCKPQB 00613000 AVTCKPEC EQU AVTCKPQB+4 00614000 AVTCKPCC EQU AVTCKPEC 00615000 AVTOPCQB EQU IEDQAVTD+816 00616000 AVTOPCOB EQU AVTOPCQB 00617000 AVTOPCEC EQU AVTOPCQB+4 00618000 AVTOPCCC EQU AVTOPCEC 00619000 AVTOLTQB EQU IEDQAVTD+828 00620000 AVTCWFL1 EQU IEDQAVTD+924 00621000 AVTCWFL2 EQU IEDQAVTD+925 00622000 AVTSUBT EQU IEDQAVTD+948 00623000 AVTIOTR EQU IEDQAVTD+949 00624000 AVTKEYLE EQU IEDQAVTD+1032 00625000 AVTBIT1 EQU IEDQAVTD+1050 00626000 AVTBIT2 EQU IEDQAVTD+1051 00627000 AVTBIT3 EQU IEDQAVTD+1052 00628000 AVTSTAIN EQU AVTBIT3 00629000 AVTBIT4 EQU IEDQAVTD+1136 00630000 @NM00083 EQU IEDQAVTD+1232 00631000 IEDNSVTD EQU 0 00632000 SAVTDIAG EQU IEDNSVTD 00633000 SAVTDIAF EQU SAVTDIAG 00634000 SAVTLUSQ EQU IEDNSVTD+88 00635000 SAVTMVBF EQU IEDNSVTD+160 00636000 SAVTSCLU EQU IEDNSVTD+168 00637000 SAVTTCPU EQU IEDNSVTD+238 00638000 SAVTZELM EQU IEDNSVTD+270 00639000 SAVTRDRV EQU IEDNSVTD+284 00640000 SAVTCKQB EQU IEDNSVTD+300 00641000 SAVTCKTB EQU SAVTCKQB 00642000 SAVTCKEC EQU SAVTCKQB+4 00643000 SAVTCKCC EQU SAVTCKEC 00644000 SAVTNETF EQU IEDNSVTD+324 00645000 SAVTCDRV EQU IEDNSVTD+332 00646000 IEDTRM EQU 0 00647000 IEDNTRM EQU IEDTRM 00648000 TRMDIALQ EQU IEDNTRM+1 00649000 TRMBYTE7 EQU TRMDIALQ+2 00650000 TRMATNDX EQU IEDNTRM+4 00651000 TRMINDEX EQU IEDNTRM+6 00652000 TRMCOHTG EQU IEDNTRM+8 00653000 TRMBYTE6 EQU TRMCOHTG 00654000 TRMCDF0 EQU TRMBYTE6 00655000 TRMBYTE5 EQU TRMCOHTG+1 00656000 TRMBYTE4 EQU IEDNTRM+10 00657000 TRMBYTE3 EQU IEDNTRM+11 00658000 TRMBYTE2 EQU IEDNTRM+12 00659000 TRMRSACT EQU TRMBYTE2 00660000 TRMINPG EQU TRMBYTE2 00661000 TRMBYTE1 EQU IEDNTRM+13 00662000 TRMSCPRQ EQU TRMBYTE1 00663000 TRMBYTE0 EQU IEDNTRM+16 00664000 TRMNOWCD EQU TRMBYTE0 00665000 TRMSIBPT EQU IEDNTRM+17 00666000 TRMLTRAC EQU TRMSIBPT 00667000 TRMLBUFR EQU TRMLTRAC 00668000 TRMRLMCT EQU IEDNTRM+20 00669000 TRMLGBST EQU TRMRLMCT 00670000 IEDQTRM EQU IEDTRM+24 00671000 TRMSTATE EQU IEDQTRM 00672000 TRMLOG EQU TRMSTATE 00673000 TRMDESTQ EQU IEDQTRM+1 00674000 TRMRSTRT EQU TRMDESTQ+2 00675000 TRMINSEQ EQU IEDQTRM+4 00676000 TLISTCNT EQU TRMINSEQ 00677000 TRMSESCT EQU TLISTCNT 00678000 TRMOUTSQ EQU IEDQTRM+6 00679000 TLISTEN EQU TRMOUTSQ 00680000 TRMDSORG EQU TLISTEN 00681000 TRMPLIM EQU TLISTEN+1 00682000 TRMALTD EQU IEDQTRM+8 00683000 TRMPRILK EQU TRMALTD 00684000 TRMDEVFL EQU IEDQTRM+10 00685000 TRMADDC EQU TRMDEVFL 00686000 TRMNCPI EQU TRMDEVFL+1 00687000 TRMSTAT EQU IEDQTRM+12 00688000 TRMAPB EQU TRMSTAT 00689000 TRMSIO EQU TRMAPB 00690000 TRMOWNER EQU TRMSIO 00691000 TRMSENSE EQU TRMAPB+3 00692000 IEDQPRF EQU 0 00693000 PRFRCB EQU IEDQPRF 00694000 PRFKEY EQU PRFRCB 00695000 PRFQCBA EQU PRFRCB+1 00696000 PRFPRI EQU PRFRCB+4 00697000 PRFLINK EQU PRFRCB+5 00698000 PRFTIC EQU IEDQPRF+8 00699000 PRFTICC EQU PRFTIC 00700000 PRFTI0 EQU PRFTIC+1 00701000 PRFVTCHK EQU PRFTI0+2 00702000 PRFNBUNT EQU IEDQPRF+12 00703000 PRFSUNIT EQU PRFNBUNT 00704000 PRFPLQCB EQU PRFSUNIT 00705000 PRFLCB EQU IEDQPRF+13 00706000 PRFSRCSZ EQU IEDQPRF+16 00707000 PRFSRCE EQU PRFSRCSZ 00708000 PRFSTAT1 EQU IEDQPRF+20 00709000 PRFCORE EQU IEDQPRF+21 00710000 PRFXTRA EQU PRFCORE 00711000 PRFSCAN EQU IEDQPRF+24 00712000 PRFTQBCK EQU IEDQPRF+26 00713000 PRFNTXT EQU PRFTQBCK 00714000 PRFEOBOF EQU PRFNTXT 00715000 PRFLU2TT EQU PRFNTXT+1 00716000 PRFCRCD EQU IEDQPRF+29 00717000 PRFTSOFL EQU PRFCRCD 00718000 PRFCHDR EQU IEDQPRF+32 00719000 PRFNHDR EQU PRFCHDR 00720000 PRFHQBCK EQU IEDQPRF+35 00721000 IEDPF1 EQU 0 00722000 PRF1FLG1 EQU IEDPF1+3 00723000 PRF1WD2 EQU IEDPF1+4 00724000 PRF1SEQP EQU PRF1WD2 00725000 PRF1SQID EQU PRF1SEQP 00726000 PRF1TAG1 EQU PRF1SQID 00727000 IEDPF2 EQU 0 00728000 PRF2FLG2 EQU IEDPF2 00729000 PRF2WD2 EQU IEDPF2+4 00730000 PRF2SEQP EQU PRF2WD2 00731000 PRF2RFLG EQU PRF2SEQP 00732000 IEDPRUQD EQU 0 00733000 PRUTTCIN EQU IEDPRUQD 00734000 PRUDATCT EQU IEDPRUQD+2 00735000 PRUTIC EQU IEDPRUQD+8 00736000 PRUNUNIT EQU PRUTIC+1 00737000 PRUVTCHK EQU PRUNUNIT+2 00738000 PRUDATA EQU IEDPRUQD+12 00739000 IEDPRUND EQU 0 00740000 PRURHTH EQU IEDPRUND 00741000 PRURH EQU PRURHTH 00742000 PRURHFG0 EQU PRURH 00743000 PRURHFG1 EQU PRURH+1 00744000 PRURHFG2 EQU PRURH+2 00745000 PRUTH EQU PRURHTH+3 00746000 PRUFIDN EQU PRUTH 00747000 IEDBDU EQU 0 00748000 BDUMODIF EQU IEDBDU+1 00749000 BDUFNFLG EQU IEDBDU+2 00750000 BDUHEADR EQU BDUFNFLG 00751000 BDUBDUFG EQU IEDBDU+3 00752000 BDURSP EQU IEDBDU+4 00753000 BDUSYRSP EQU BDURSP 00754000 BDUEXRSP EQU BDURSP+1 00755000 BDUEND EQU IEDBDU+6 00756000 IEDTH EQU 0 00757000 TTHBYTE0 EQU IEDTH 00758000 TTHSNF EQU IEDTH+6 00759000 TTHTAG EQU TTHSNF 00760000 TTHTAG1 EQU TTHTAG 00761000 IEDRH EQU 0 00762000 TRHBYTE0 EQU IEDRH 00763000 TRHBYTE1 EQU IEDRH+1 00764000 TRHBYTE2 EQU IEDRH+2 00765000 IEDPLMV EQU 0 00766000 PLMVTU EQU IEDPLMV 00767000 PLMVTD EQU IEDPLMV+4 00768000 PLMVSU EQU IEDPLMV+8 00769000 PLMVSD EQU IEDPLMV+12 00770000 PLMVLNTH EQU IEDPLMV+16 00771000 PLMVFLGS EQU IEDPLMV+18 00772000 PLMVFLG1 EQU PLMVFLGS 00773000 IEDNTNTD EQU 0 00774000 WORKAREA EQU 0 00775000 WANSCD EQU WORKAREA+10 00776000 WRTCD EQU WORKAREA+11 00777000 WFROM EQU WORKAREA+20 00778000 IEDQOPCD EQU 0 00779000 OPCAVTPT EQU IEDQOPCD+8 00780000 OPCCOPCE EQU IEDQOPCD+12 00781000 OPCTRACE EQU IEDQOPCD+32 00782000 OPCSAVE EQU IEDQOPCD+56 00783000 OPCWORK EQU IEDQOPCD+140 00784000 OPCAQCTL EQU IEDQOPCD+180 00785000 OPCXCTL EQU IEDQOPCD+204 00786000 OPCLDNME EQU IEDQOPCD+212 00787000 OPCMODID EQU OPCLDNME+3 00788000 OPCGETBF EQU IEDQOPCD+276 00789000 OPCSPEC EQU IEDQOPCD+300 00790000 OPCRSTRT EQU OPCSPEC 00791000 OPCHNEND EQU IEDQOPCD+302 00792000 OPCWRKSP EQU IEDQOPCD+320 00793000 OPCPWCOB EQU IEDQOPCD+368 00794000 OPCPWQCB EQU OPCPWCOB 00795000 OPCPWECB EQU OPCPWCOB+4 00796000 OPCSESS EQU IEDQOPCD+384 00797000 OPCSFLAG EQU OPCSESS 00798000 OPCSENSE EQU OPCSESS+8 00799000 OPCSNSSY EQU OPCSENSE 00800000 OPCSNSUS EQU OPCSENSE+2 00801000 OPCPCID EQU IEDQOPCD+456 00802000 OPCUNIQP EQU OPCPCID+2 00803000 OPCSESSF EQU IEDQOPCD+464 00804000 IEDQOPCE EQU 0 00805000 OCELEM EQU IEDQOPCE+4 00806000 OCUNIT EQU IEDQOPCE+8 00807000 OCRUDEST EQU OCUNIT 00808000 OCCKPKEY EQU OCRUDEST 00809000 OCSCAN EQU OCCKPKEY 00810000 @NM00198 EQU OCRUDEST+1 00811000 OCUNITBF EQU @NM00198+2 00812000 OCOPTCDE EQU IEDQOPCE+12 00813000 OCSWITCH EQU IEDQOPCE+13 00814000 OCFLAG EQU IEDQOPCE+14 00815000 OCRESP EQU OCFLAG 00816000 OCRLN EQU IEDQOPCE+15 00817000 OCCIB EQU IEDQOPCE+16 00818000 OCMSTSAV EQU OCCIB 00819000 OCDEST EQU OCMSTSAV 00820000 OCTRMTBL EQU IEDQOPCE+20 00821000 OCLINENO EQU IEDQOPCE+22 00822000 OCTIOT EQU OCLINENO 00823000 OCWTGB EQU OCTIOT 00824000 OCTRUNIT EQU IEDQOPCE+24 00825000 OCRSID EQU OCTRUNIT 00826000 OCALSTAT EQU OCRSID 00827000 OCFNAALL EQU OCALSTAT 00828000 OCACTREQ EQU OCALSTAT 00829000 OCFLAG1 EQU OCRSID+1 00830000 OCPARM EQU IEDQOPCE+28 00831000 OCWTG EQU IEDQOPCE+30 00832000 OCBACKUP EQU IEDQOPCE+32 00833000 OCBUFNED EQU OCBACKUP 00834000 OCCOUNT1 EQU OCBUFNED 00835000 OCBUFGOT EQU OCBACKUP+2 00836000 OCCOUNT2 EQU OCBUFGOT 00837000 OCMODNME EQU IEDQOPCE+40 00838000 OCIPLWA EQU OCMODNME 00839000 OCPTRSAV EQU OCMODNME+4 00840000 OCCKDATA EQU IEDQOPCE+48 00841000 OCRSTGTM EQU OCCKDATA 00842000 OC379RRT EQU OCRSTGTM 00843000 OCNCP EQU OCRSTGTM+2 00844000 OCOID EQU IEDQOPCE+56 00845000 IEDQOPCN EQU 0 00846000 OCLDNME EQU IEDQOPCN 00847000 OCLINTTE EQU OCLDNME 00848000 OCREQFLG EQU OCLINTTE+2 00849000 OCPREFLG EQU OCLINTTE+3 00850000 FIELD EQU 0 00851000 FCOUNT EQU FIELD 00852000 FLAGS EQU FCOUNT 00853000 DEVASSO EQU FLAGS 00854000 LASTID EQU FLAGS 00855000 WA EQU 0 00856000 ELMNT EQU WA 00857000 UNITADDR EQU WA+8 00858000 RCOUNT EQU WA+24 00859000 TNTDATA EQU WA+32 00860000 OFFSET EQU TNTDATA 00861000 STATUS EQU TNTDATA+2 00862000 ENDUNIT EQU WA+40 00863000 TNTOPTR EQU WA+44 00864000 TNTOUNT EQU WA+48 00865000 TNTOLEN EQU WA+52 00866000 LENMOVE EQU WA+54 00867000 LENDATA EQU WA+55 00868000 MVPARAMS EQU WA+56 00869000 IEDMVBFR EQU 0 00870000 ALLOCBUF EQU 0 00871000 IEDQTNT EQU 0 00872000 CPUNIT EQU 0 00873000 CPTIC EQU CPUNIT+8 00874000 CPLEN EQU CPUNIT+16 00875000 CPDATA EQU CPUNIT+17 00876000 CPCNTL EQU CPDATA 00877000 CPNUMOFF EQU CPCNTL 00878000 CPINFO EQU CPDATA+3 00879000 MOVCHARS EQU 0 00880000 IEDNBPTR EQU 0 00881000 IEDNLPTR EQU 0 00882000 IEDQLPTR EQU 0 00883000 IEDQQPTR EQU 0 00884000 IEDQTPTR EQU 0 00885000 AVTECBCC EQU AVTOSECB 00886000 @NM00114 EQU TRMSTATE 00887000 TRMLUFD0 EQU TRMBYTE7 00888000 TRMSNAST EQU TRMBYTE6 00889000 TRMCDFD0 EQU TRMBYTE5 00890000 TRMPRE1 EQU TRMBYTE4 00891000 TRMNCP1 EQU TRMBYTE4 00892000 TRMLU1 EQU TRMBYTE4 00893000 TRMLINK1 EQU TRMBYTE4 00894000 TRMDCONS EQU TRMLINK1 00895000 TRMPRE EQU TRMBYTE3 00896000 TRMNCP EQU TRMBYTE3 00897000 TRMIPLDM EQU TRMNCP 00898000 TRMPU EQU TRMBYTE3 00899000 TRMLU EQU TRMBYTE3 00900000 TRMCDMGR EQU TRMBYTE3 00901000 TRMLINK EQU TRMBYTE3 00902000 @NM00145 EQU PRFSRCSZ 00903000 PRFOPCTL EQU PRFNHDR 00904000 OPCAQWD EQU OPCAQCTL 00905000 OPCAQWD1 EQU OPCAQWD 00906000 OPCAQWD2 EQU OPCAQWD+4 00907000 OPCAQWD3 EQU OPCAQWD+8 00908000 ROPCE EQU OPCCOPCE 00909000 @NM00205 EQU OCCKDATA 00910000 @NM00207 EQU OCCIB 00911000 @NM00208 EQU @NM00207+1 00912000 OCCKPKY1 EQU OCCKPKEY 00913000 OCCKPTYP EQU OCCKPKY1 00914000 OCICACTN EQU OCMODNME 00915000 OCICDADR EQU OCICACTN 00916000 OCICTYPE EQU OCICDADR 00917000 OCICSW EQU OCICDADR+3 00918000 OCICINAC EQU OCICSW 00919000 @NM00213 EQU OCBACKUP 00920000 @NM00214 EQU OCCKDATA 00921000 OCMSGFLG EQU OCPREFLG 00922000 OCBKUP1 EQU OCMODNME 00923000 @NM00218 EQU OCMODNME 00924000 OCBKUP2 EQU OCCKDATA 00925000 OCBKUP3 EQU OCLDNME 00926000 OCRESPTR EQU OCBKUP3+4 00927000 OCDIALLN EQU OCRESPTR 00928000 OCIPLDMP EQU OCLDNME+4 00929000 COUNTS EQU PRFSRCE 00930000 FLAGSN EQU COUNTS+2 00931000 PTRS EQU OPCWRKSP 00932000 RTRM EQU PTRS 00933000 EPTR EQU PTRS+4 00934000 SAVE14 EQU PTRS+8 00935000 BDUTEXT EQU BDUEND 00936000 OCLINRRT EQU OCTRUNIT 00937000 OCPCID EQU OCBACKUP 00938000 OCRSNCDE EQU OCALSTAT 00939000 OCSENSE EQU OCBACKUP 00940000 PRFOID EQU PRFCRCD 00941000 PRFSHDR EQU IEDQPRF+42 00942000 TRMOPT EQU IEDQTRM+20 00943000 TRMPOOLP EQU TRMINSEQ 00944000 TRMSRPTR EQU TRMPLIM 00945000 * START UNREFERENCED COMPONENTS 00946000 NOTACT EQU FLAGSN 00947000 NUMPROC EQU COUNTS+1 00948000 NMBENT EQU COUNTS 00949000 @NM00221 EQU OCIPLDMP 00950000 OCACTRQ EQU OCIPLDMP 00951000 OCDACRQ EQU OCIPLDMP 00952000 OCIPLRQ EQU OCIPLDMP 00953000 OCDMPRQ EQU OCIPLDMP 00954000 @NM00220 EQU OCRESPTR+2 00955000 OCOHNATA EQU OCDIALLN 00956000 OCRRTPTR EQU OCBKUP3 00957000 @NM00219 EQU OCBKUP2+4 00958000 OCNHITTC EQU OCBKUP2+2 00959000 OCLINTTC EQU OCBKUP2 00960000 OCCSIB EQU @NM00218 00961000 @NM00217 EQU OCBKUP1+6 00962000 OCTARTTC EQU OCBKUP1+4 00963000 OCSRTTC EQU OCBKUP1+2 00964000 OCRSTTC EQU OCBKUP1 00965000 @NM00216 EQU OCMSGFLG 00966000 OCRRT EQU OCMSGFLG 00967000 OCNAME EQU OCMSGFLG 00968000 OCLU1TTE EQU @NM00214+5 00969000 OCSFLAG EQU @NM00214+4 00970000 OCLU2TTI EQU @NM00214+2 00971000 OCLU1TTI EQU @NM00214 00972000 OCDISTLN EQU @NM00213+6 00973000 OCDISTAD EQU @NM00213+2 00974000 OCDISTNA EQU @NM00213 00975000 @NM00212 EQU OCICSW 00976000 OCICATST EQU OCICDADR+1 00977000 @NM00211 EQU OCCKPKY1 00978000 OCCKPENV EQU OCCKPKY1 00979000 OCCKPRST EQU OCCKPTYP 00980000 OCCKPNCP EQU OCCKPTYP 00981000 OCCKPINC EQU OCCKPTYP 00982000 @NM00210 EQU @NM00207+2 00983000 @NM00209 EQU @NM00208 00984000 OCTSTAT EQU @NM00208 00985000 OCREASON EQU @NM00207 00986000 @NM00206 EQU @NM00205+4 00987000 OCOIDEP EQU @NM00205 00988000 OPCAQLST EQU OPCAQWD3+1 00989000 OPCAQRQ3 EQU OPCAQWD3 00990000 OPCAQSEC EQU OPCAQWD2+1 00991000 OPCAQRQ2 EQU OPCAQWD2 00992000 OPCAQFST EQU OPCAQWD1+1 00993000 OPCAQREQ EQU OPCAQWD1 00994000 @NM00147 EQU PRFOPCTL+2 00995000 PRFOPFLG EQU PRFOPCTL+1 00996000 @NM00146 EQU PRFOPCTL 00997000 PRFSVFLG EQU @NM00145+3 00998000 PRFSVFFO EQU @NM00145 00999000 TRMLDISC EQU TRMLINK 01000000 @NM00133 EQU TRMLINK 01001000 TRMLALOC EQU TRMLINK 01002000 TRMLSTAT EQU TRMLINK 01003000 TRMLINT EQU TRMLINK 01004000 TRMEPMOD EQU TRMLINK 01005000 TRMCDLOG EQU TRMCDMGR 01006000 @NM00132 EQU TRMCDMGR 01007000 @NM00131 EQU TRMCDMGR 01008000 @NM00130 EQU TRMCDMGR 01009000 @NM00129 EQU TRMCDMGR 01010000 @NM00128 EQU TRMCDMGR 01011000 TRMBKDUP EQU TRMCDMGR 01012000 TRMLULOG EQU TRMLU 01013000 @NM00127 EQU TRMLU 01014000 @NM00126 EQU TRMLU 01015000 @NM00125 EQU TRMLU 01016000 TRMTDIFF EQU TRMLU 01017000 @NM00124 EQU TRMLU 01018000 @NM00123 EQU TRMLU 01019000 @NM00122 EQU TRMLU 01020000 TRMPCONT EQU TRMPU 01021000 TRMPDOCQ EQU TRMPU 01022000 TRMPULOC EQU TRMPU 01023000 TRMPDNAS EQU TRMPU 01024000 TRMPALOC EQU TRMPU 01025000 TRMNCONT EQU TRMNCP 01026000 TRMQUCKN EQU TRMNCP 01027000 TRMSLOWN EQU TRMNCP 01028000 TRMSYGEN EQU TRMNCP 01029000 TRMNCPCL EQU TRMNCP 01030000 TRMCONN EQU TRMIPLDM 01031000 TRMINOUT EQU TRMPRE 01032000 TRMRDOUT EQU TRMPRE 01033000 TRMNLOUT EQU TRMPRE 01034000 TRMWROUT EQU TRMPRE 01035000 TRMASNXI EQU TRMPRE 01036000 TRMSTMM EQU TRMPRE 01037000 TRMCMODE EQU TRMPRE 01038000 TRMSTPND EQU TRMPRE 01039000 TRMNCPLK EQU TRMLINK1 01040000 @NM00121 EQU TRMLINK1 01041000 TRMDCONN EQU TRMDCONS 01042000 TRMDCOP EQU TRMDCONS 01043000 TRMPMARY EQU TRMLU1 01044000 TRMLUNAS EQU TRMLU1 01045000 @NM00120 EQU TRMLU1 01046000 TRMLSCVP EQU TRMLU1 01047000 @NM00119 EQU TRMLU1 01048000 TRMCPOPT EQU TRMLU1 01049000 TRMCPREQ EQU TRMLU1 01050000 @NM00118 EQU TRMNCP1 01051000 TRMANS EQU TRMNCP1 01052000 TRMLINOP EQU TRMNCP1 01053000 TRMINOP EQU TRMNCP1 01054000 TRMLYNCH EQU TRMPRE1 01055000 TRMSPOUT EQU TRMPRE1 01056000 TRMERLCK EQU TRMPRE1 01057000 TRMQNPL EQU TRMPRE1 01058000 TRMSPACT EQU TRMPRE1 01059000 TRMOCNI EQU TRMPRE1 01060000 TRMSESSN EQU TRMPRE1 01061000 TRMCONT EQU TRMPRE1 01062000 TRMINERR EQU TRMCDFD0 01063000 TRMLUTM EQU TRMCDFD0 01064000 TRMLUIT EQU TRMCDFD0 01065000 TRMLUREQ EQU TRMCDFD0 01066000 TRMCDPRE EQU TRMCDFD0 01067000 TRMWASCD EQU TRMCDFD0 01068000 TRMSRPFG EQU TRMCDFD0 01069000 TRMSESRQ EQU TRMCDFD0 01070000 @NM00117 EQU TRMSNAST 01071000 TRMDRSRC EQU TRMSNAST 01072000 @NM00116 EQU TRMLUFD0 01073000 TRMNOINP EQU TRMLUFD0 01074000 TRMASSOC EQU TRMLUFD0 01075000 TRMAUTO EQU TRMLUFD0 01076000 @NM00115 EQU @NM00114 01077000 TRMENTRY EQU @NM00114 01078000 AVTECBCP EQU AVTECBCC 01079000 @NM00106 EQU AVTECBCC 01080000 CPNUUNT EQU CPCNTL+2 01081000 @NM00232 EQU CPUNIT+13 01082000 CPICCODE EQU CPUNIT+12 01083000 @NM00231 EQU CPUNIT+4 01084000 @NM00230 EQU CPUNIT 01085000 @NM00229 EQU WA+36 01086000 @NM00228 EQU TNTDATA+3 01087000 @NM00227 EQU WA+28 01088000 @NM00226 EQU WA+20 01089000 @NM00225 EQU WA+16 01090000 @NM00224 EQU WA+12 01091000 SAVR14 EQU WA+4 01092000 FLDLNG EQU FIELD+2 01093000 @NM00223 EQU FIELD+1 01094000 INVSTAT EQU FLAGS 01095000 @NM00222 EQU FLAGS 01096000 CHNGSTAT EQU LASTID 01097000 @NM00215 EQU OCLDNME+6 01098000 OC1SQID EQU OCLDNME+4 01099000 OCWAITPC EQU OCPREFLG 01100000 OCSRCCLN EQU OCPREFLG 01101000 OCREMCON EQU OCPREFLG 01102000 OCCLNUP EQU OCPREFLG 01103000 OCTOTEP EQU OCPREFLG 01104000 OCREPOST EQU OCPREFLG 01105000 OCRSPSNT EQU OCPREFLG 01106000 OCBFREQ EQU OCPREFLG 01107000 OCIDLE EQU OCREQFLG 01108000 OCFORCE EQU OCREQFLG 01109000 OCDCARD EQU OCREQFLG 01110000 OCPARTAL EQU OCREQFLG 01111000 OCADNCP EQU OCREQFLG 01112000 OCRMPORQ EQU OCREQFLG 01113000 OCCDLACT EQU OCREQFLG 01114000 OCFLUSHZ EQU OCREQFLG 01115000 OCRESPCT EQU OCLINTTE 01116000 @NM00204 EQU IEDQOPCE+60 01117000 OCURC EQU OCOID 01118000 OCCKPTWA EQU OCCKDATA+4 01119000 OCSRCTTC EQU OCNCP 01120000 OCCKDAT2 EQU OC379RRT+1 01121000 OCCKDAT1 EQU OC379RRT 01122000 OCECHOPT EQU OCPTRSAV 01123000 OCPUADR EQU OCIPLWA+2 01124000 OCWTGSAV EQU OCIPLWA 01125000 OCDVRDCT EQU OCBACKUP+6 01126000 @NM00203 EQU OCBACKUP+4 01127000 OCBUFRET EQU OCCOUNT2 01128000 OCBUFUSD EQU OCCOUNT1 01129000 OCRESNUM EQU OCPARM 01130000 OCSEQ EQU OCTRUNIT+2 01131000 OCTYPTRM EQU OCFLAG1 01132000 OCNONE EQU OCALSTAT 01133000 OCSOME EQU OCALSTAT 01134000 OCALLFLG EQU OCALSTAT 01135000 OCREDRVE EQU OCALSTAT 01136000 OCSEQIND EQU OCALSTAT 01137000 OCDACTIP EQU OCFNAALL 01138000 OCRENTRD EQU OCALSTAT 01139000 OCDIALX EQU OCWTGB 01140000 OCATNDX EQU OCMSTSAV+2 01141000 OCREQVAL EQU OCDEST+1 01142000 OCCONID EQU OCDEST 01143000 OCLOCAD EQU OCRLN 01144000 OCATTACH EQU OCFLAG 01145000 OCSSCP EQU OCFLAG 01146000 OCOUTPUT EQU OCFLAG 01147000 OCLINE EQU OCFLAG 01148000 OCMPP EQU OCFLAG 01149000 OCTOTE EQU OCFLAG 01150000 OCCONSOL EQU OCFLAG 01151000 @NM00202 EQU OCSWITCH 01152000 OCQUCKN EQU OCSWITCH 01153000 OCPRIFLG EQU OCOPTCDE 01154000 @NM00201 EQU OCUNITBF 01155000 OCINVTIC EQU OCUNITBF 01156000 @NM00200 EQU OCUNITBF 01157000 @NM00199 EQU @NM00198 01158000 @NM00197 EQU OCSCAN 01159000 OCNOTUCB EQU OCSCAN 01160000 OCNONAME EQU OCSCAN 01161000 OCALLRLN EQU OCSCAN 01162000 OCDDNAME EQU OCSCAN 01163000 OCDDNRLN EQU OCSCAN 01164000 OCADDR EQU OCSCAN 01165000 OCELMPTR EQU OCELEM+1 01166000 OCELMPRI EQU OCELEM 01167000 OCLINK EQU IEDQOPCE 01168000 OPCBOTTM EQU IEDQOPCD+3644 01169000 @NM00196 EQU IEDQOPCD+1948 01170000 @NM00195 EQU IEDQOPCD+1860 01171000 @NM00194 EQU IEDQOPCD+1772 01172000 @NM00193 EQU IEDQOPCD+1696 01173000 @NM00192 EQU IEDQOPCD+1620 01174000 OPCDSRWT EQU IEDQOPCD+1616 01175000 @NM00191 EQU IEDQOPCD+1532 01176000 @NM00190 EQU IEDQOPCD+1336 01177000 @NM00189 EQU IEDQOPCD+1328 01178000 @NM00188 EQU IEDQOPCD+528 01179000 OPCRSTRS EQU IEDQOPCD+524 01180000 OPCSAVES EQU IEDQOPCD+520 01181000 OPCRSPBD EQU IEDQOPCD+516 01182000 OPCNFY03 EQU IEDQOPCD+512 01183000 OPCNFY01 EQU IEDQOPCD+508 01184000 OPCURC EQU IEDQOPCD+504 01185000 OPCCINBD EQU IEDQOPCD+500 01186000 OPCCRKEY EQU IEDQOPCD+496 01187000 OPCDRSET EQU IEDQOPCD+492 01188000 OPCDRCLN EQU IEDQOPCD+488 01189000 OPCDRDEL EQU IEDQOPCD+484 01190000 OPCDRLOD EQU IEDQOPCD+480 01191000 OPCDRLOC EQU IEDQOPCD+476 01192000 OPCDRCVT EQU IEDQOPCD+472 01193000 OPCDRFST EQU IEDQOPCD+468 01194000 OPCLSABC EQU IEDQOPCD+466 01195000 @NM00187 EQU IEDQOPCD+465 01196000 @NM00186 EQU OPCSESSF 01197000 OPCUNIQV EQU OPCUNIQP+2 01198000 OPCUNIQU EQU OPCUNIQP 01199000 OPCOSSCP EQU OPCPCID 01200000 @NM00185 EQU IEDQOPCD+452 01201000 @NM00184 EQU IEDQOPCD+448 01202000 OPCSDUPU EQU IEDQOPCD+444 01203000 OPCSDULU EQU IEDQOPCD+440 01204000 OPCSDRVT EQU IEDQOPCD+436 01205000 OPCSDRET EQU IEDQOPCD+432 01206000 OPCSDHSY EQU IEDQOPCD+428 01207000 OPCSDENQ EQU IEDQOPCD+424 01208000 OPCSDDIA EQU IEDQOPCD+420 01209000 OPCSDAPU EQU IEDQOPCD+416 01210000 OPCSDALU EQU IEDQOPCD+412 01211000 OPCCSKEY EQU IEDQOPCD+408 01212000 OPCSSKEY EQU IEDQOPCD+404 01213000 OPCPRTTE EQU IEDQOPCD+400 01214000 OPCLU2TT EQU OPCSESS+14 01215000 OPCLU1TT EQU OPCSESS+12 01216000 OPCSNSU2 EQU OPCSNSUS+1 01217000 OPCSNSU1 EQU OPCSNSUS 01218000 OPCSNSMN EQU OPCSNSSY+1 01219000 OPCSNSMJ EQU OPCSNSSY 01220000 OPCCSIB EQU OPCSESS+4 01221000 OPCCTTE EQU OPCSESS+1 01222000 @NM00183 EQU OPCSFLAG 01223000 OPCISQUD EQU OPCSFLAG 01224000 OPCERRST EQU OPCSFLAG 01225000 OPCISRSP EQU OPCSFLAG 01226000 OPCISQUE EQU OPCSFLAG 01227000 OPCRAPMH EQU OPCSFLAG 01228000 OPCRAPI EQU OPCSFLAG 01229000 OPCGTSIB EQU IEDQOPCD+380 01230000 @NM00182 EQU OPCPWCOB+9 01231000 @NM00181 EQU OPCPWCOB+8 01232000 @NM00180 EQU OPCPWECB+1 01233000 OPCPWCCC EQU OPCPWECB 01234000 OPCPWCHN EQU OPCPWQCB+1 01235000 OPCPWVTO EQU OPCPWQCB 01236000 OPCWAITV EQU IEDQOPCD+364 01237000 OPCTOTCK EQU IEDQOPCD+360 01238000 OPCAPXTL EQU IEDQOPCD+356 01239000 OPCDECR EQU IEDQOPCD+352 01240000 OPCBUFWT EQU IEDQOPCD+348 01241000 OPCADGOT EQU IEDQOPCD+318 01242000 OPCRQCNT EQU IEDQOPCD+316 01243000 OPPOLSTP EQU IEDQOPCD+312 01244000 OPCCKCIB EQU IEDQOPCD+308 01245000 OPCEND EQU IEDQOPCD+307 01246000 OPCSTCBS EQU IEDQOPCD+306 01247000 OPCOQSW EQU IEDQOPCD+301 01248000 @NM00179 EQU OPCSPEC 01249000 @NM00178 EQU OPCSPEC 01250000 @NM00177 EQU OPCSPEC 01251000 @NM00176 EQU OPCSPEC 01252000 OPCFRMCA EQU OPCSPEC 01253000 OPCPART EQU OPCSPEC 01254000 OPCALTD EQU OPCSPEC 01255000 OPCBFEND EQU IEDQOPCD+296 01256000 OPCBFIRS EQU IEDQOPCD+292 01257000 OPCAVBUF EQU IEDQOPCD+290 01258000 OPCIPLCT EQU IEDQOPCD+289 01259000 OPCCLNTS EQU IEDQOPCD+288 01260000 OPCHA8 EQU IEDQOPCD+286 01261000 OPCBFREQ EQU IEDQOPCD+284 01262000 OPCFREBF EQU IEDQOPCD+280 01263000 OPCNEXT EQU IEDQOPCD+272 01264000 OPCFMDFC EQU IEDQOPCD+268 01265000 OPCSCNC EQU IEDQOPCD+264 01266000 OPCHORTG EQU IEDQOPCD+260 01267000 OPCHORT EQU IEDQOPCD+256 01268000 OPCCKPTL EQU IEDQOPCD+252 01269000 OPCCKPTF EQU IEDQOPCD+248 01270000 OPCWAITA EQU IEDQOPCD+244 01271000 OPCWAITR EQU IEDQOPCD+240 01272000 OPCWAITP EQU IEDQOPCD+236 01273000 OPCWAITO EQU IEDQOPCD+232 01274000 OPCWAITN EQU IEDQOPCD+228 01275000 OPCWAITL EQU IEDQOPCD+224 01276000 OPCWAITC EQU IEDQOPCD+220 01277000 @NM00175 EQU OPCLDNME+5 01278000 @NM00174 EQU OPCLDNME 01279000 OPCWAIT EQU IEDQOPCD+192 01280000 OPCCKERB EQU IEDQOPCD+164 01281000 OPCBFERB EQU IEDQOPCD+148 01282000 OPCFLAG2 EQU IEDQOPCD+147 01283000 OPCFLAG1 EQU IEDQOPCD+146 01284000 OPCWRKSZ EQU IEDQOPCD+144 01285000 OPCRSAVE EQU IEDQOPCD+132 01286000 OPCQCBAD EQU IEDQOPCD+128 01287000 OPCTRMWA EQU IEDQOPCD+52 01288000 OPCPSTWT EQU IEDQOPCD+48 01289000 OPCTNTEA EQU IEDQOPCD+44 01290000 OPCPGCK EQU IEDQOPCD+40 01291000 OPCLCB EQU IEDQOPCD+36 01292000 OPCIPLAD EQU IEDQOPCD+28 01293000 OPCTOFLK EQU IEDQOPCD+24 01294000 OPCOPTLK EQU IEDQOPCD+20 01295000 OPCDCBLK EQU IEDQOPCD+16 01296000 OPCDOUBL EQU IEDQOPCD 01297000 WRQTG EQU WORKAREA+26 01298000 WTNTNDX EQU WORKAREA+24 01299000 WTO EQU WORKAREA+16 01300000 WECBA EQU WORKAREA+12 01301000 WENTCD EQU WORKAREA+9 01302000 WVERB EQU WORKAREA+8 01303000 WLINK EQU WORKAREA+5 01304000 WPRI EQU WORKAREA+4 01305000 WQCBADR EQU WORKAREA 01306000 TNTFIRST EQU IEDNTNTD+82 01307000 @NM00173 EQU IEDNTNTD+41 01308000 TNTENLEN EQU IEDNTNTD+40 01309000 @NM00172 EQU IEDNTNTD 01310000 PLMVUNCA EQU IEDPLMV+20 01311000 PLMVFLG2 EQU PLMVFLGS+1 01312000 @NM00171 EQU PLMVFLG1 01313000 PLMVTRIB EQU PLMVFLG1 01314000 PLMVSRIB EQU PLMVFLG1 01315000 PLMVTSKP EQU PLMVFLG1 01316000 PLMVSSKP EQU PLMVFLG1 01317000 PLMVTCTG EQU PLMVFLG1 01318000 PLMVSCTG EQU PLMVFLG1 01319000 PLMVUNCF EQU PLMVFLG1 01320000 @NM00170 EQU TRHBYTE2 01321000 TRHPDI EQU TRHBYTE2 01322000 TRHEDI EQU TRHBYTE2 01323000 TRHCSI EQU TRHBYTE2 01324000 @NM00169 EQU TRHBYTE2 01325000 TRHCDI EQU TRHBYTE2 01326000 TRHEB EQU TRHBYTE2 01327000 TRHBB EQU TRHBYTE2 01328000 TRHPI EQU TRHBYTE1 01329000 TRHQRI EQU TRHBYTE1 01330000 @NM00168 EQU TRHBYTE1 01331000 @NM00167 EQU TRHBYTE1 01332000 TRHER EQU TRHBYTE1 01333000 TRHDR2 EQU TRHBYTE1 01334000 @NM00166 EQU TRHBYTE1 01335000 TRHDR1 EQU TRHBYTE1 01336000 TRHEC EQU TRHBYTE0 01337000 TRHBC EQU TRHBYTE0 01338000 TRHSDI EQU TRHBYTE0 01339000 TRHFI EQU TRHBYTE0 01340000 @NM00165 EQU TRHBYTE0 01341000 TRHRUCAT EQU TRHBYTE0 01342000 TRHTYPE EQU TRHBYTE0 01343000 TTHDCF EQU IEDTH+8 01344000 TTHTAG2 EQU TTHTAG+1 01345000 @NM00164 EQU TTHTAG1 01346000 TTHTAGS EQU TTHTAG1 01347000 TTHOAF EQU IEDTH+4 01348000 TTHDAF EQU IEDTH+2 01349000 TTHBYTE1 EQU IEDTH+1 01350000 TTHEFI EQU TTHBYTE0 01351000 @NM00163 EQU TTHBYTE0 01352000 TTHEBIU EQU TTHBYTE0 01353000 TTHBBIU EQU TTHBYTE0 01354000 TTHFTYPE EQU TTHBYTE0 01355000 BDUXGRPH EQU BDUEXRSP 01356000 BDUXFINL EQU BDUEXRSP 01357000 BDUXINIT EQU BDUEXRSP 01358000 BDURESP EQU BDUSYRSP 01359000 BDUPHASE EQU BDUSYRSP 01360000 BDUERROR EQU BDUSYRSP 01361000 BDUXERLK EQU BDUBDUFG 01362000 BDUALTAK EQU BDUFNFLG 01363000 BDUNEGAK EQU BDUFNFLG 01364000 BDUPOSAK EQU BDUFNFLG 01365000 BDUTPTX EQU BDUFNFLG 01366000 BDUFRSTB EQU BDUFNFLG 01367000 BDULEADG EQU BDUFNFLG 01368000 BDUSTHDR EQU BDUFNFLG 01369000 BDUCMND EQU IEDBDU 01370000 @NM00162 EQU IEDPRUND+6 01371000 PRUTAG EQU IEDPRUND+4 01372000 PRUTHEFI EQU PRUFIDN 01373000 PRUTHUSS EQU PRUFIDN 01374000 PRUTHEIU EQU PRUFIDN 01375000 PRUTHBIU EQU PRUFIDN 01376000 PRUTHTYE EQU PRUFIDN 01377000 @NM00161 EQU PRURHFG2 01378000 PRURHCSI EQU PRURHFG2 01379000 @NM00160 EQU PRURHFG2 01380000 PRURHCDI EQU PRURHFG2 01381000 PRURHEB EQU PRURHFG2 01382000 PRURHBB EQU PRURHFG2 01383000 PRURHPI EQU PRURHFG1 01384000 @NM00159 EQU PRURHFG1 01385000 PRURHER EQU PRURHFG1 01386000 PRURHDR2 EQU PRURHFG1 01387000 @NM00158 EQU PRURHFG1 01388000 PRURHDR1 EQU PRURHFG1 01389000 PRURHEC EQU PRURHFG0 01390000 PRURHBC EQU PRURHFG0 01391000 PRURHSDI EQU PRURHFG0 01392000 PRURHFI EQU PRURHFG0 01393000 @NM00157 EQU PRURHFG0 01394000 PRURUCAT EQU PRURHFG0 01395000 PRURHTYP EQU PRURHFG0 01396000 @NM00156 EQU PRUVTCHK 01397000 PRUITSET EQU PRUVTCHK 01398000 @NM00155 EQU PRUVTCHK 01399000 @NM00154 EQU PRUNUNIT 01400000 @NM00153 EQU PRUTIC 01401000 @NM00152 EQU IEDPRUQD+4 01402000 PRF2RTTI EQU PRF2SEQP+2 01403000 @NM00151 EQU PRF2SEQP+1 01404000 @NM00150 EQU PRF2RFLG 01405000 PRF2RINB EQU PRF2RFLG 01406000 PRF2MDCF EQU IEDPF2+1 01407000 PRF2RAPI EQU PRF2FLG2 01408000 PRF2CSMF EQU PRF2FLG2 01409000 PRF2BNN1 EQU PRF2FLG2 01410000 PRF2NCU2 EQU PRF2FLG2 01411000 PRF2TERM EQU PRF2FLG2 01412000 PRF2SMI EQU PRF2FLG2 01413000 PRF2FORM EQU PRF2FLG2 01414000 PRF2TNTI EQU PRF2FLG2 01415000 PRF1RULN EQU PRF1SEQP+2 01416000 PRF1TAG2 EQU PRF1SQID+1 01417000 @NM00149 EQU PRF1TAG1 01418000 PRF1TAGS EQU PRF1TAG1 01419000 @NM00148 EQU PRF1FLG1 01420000 PRF1LOGD EQU PRF1FLG1 01421000 PRF1USS EQU PRF1FLG1 01422000 PRF1FORM EQU PRF1FLG1 01423000 PRF1EXPI EQU PRF1FLG1 01424000 PRF1FIDI EQU PRF1FLG1 01425000 PRF1RH EQU IEDPF1 01426000 PRFDEST EQU IEDQPRF+40 01427000 PRFISEQ EQU IEDQPRF+38 01428000 PRFSTXT EQU PRFHQBCK 01429000 @NM00144 EQU PRFTSOFL 01430000 PRFNEDIT EQU PRFTSOFL 01431000 PRFSVSEQ EQU PRFLU2TT 01432000 PRFSVPRI EQU PRFEOBOF 01433000 PRFISIZE EQU PRFSCAN+1 01434000 @NM00143 EQU PRFSCAN 01435000 PRFEOB EQU PRFXTRA+1 01436000 PRFSTSO EQU PRFXTRA 01437000 PRFNHDRN EQU PRFSTAT1 01438000 PRFNLSTN EQU PRFSTAT1 01439000 PRFFHP EQU PRFSTAT1 01440000 PRFDUPLN EQU PRFSTAT1 01441000 PRFTSMSG EQU PRFSTAT1 01442000 PRFITCPN EQU PRFSTAT1 01443000 PRFERMGN EQU PRFSTAT1 01444000 PRFCNCLN EQU PRFSTAT1 01445000 PRFSIZE EQU PRFSRCSZ+2 01446000 PRFLU1TT EQU PRFLCB+1 01447000 PRFRCDE EQU PRFLCB 01448000 PRFPIUO EQU PRFPLQCB 01449000 @NM00142 EQU PRFVTCHK 01450000 PRFITSET EQU PRFVTCHK 01451000 @NM00141 EQU PRFVTCHK 01452000 @NM00140 EQU PRFTI0 01453000 @NM00139 EQU PRFTICC 01454000 @NM00138 EQU PRFTICC 01455000 @NM00137 EQU PRFTICC 01456000 PRFTICON EQU PRFTICC 01457000 @NM00136 EQU PRFTICC 01458000 @NM00135 EQU PRFTICC 01459000 PRFBFMM EQU PRFTICC 01460000 PRFEOFN EQU PRFTICC 01461000 PRFCOUNT EQU PRFLINK+1 01462000 @NM00134 EQU PRFLINK 01463000 PRFFLAGS EQU PRFPRI 01464000 PRFIOADR EQU PRFQCBA 01465000 PRFOPCDE EQU PRFKEY 01466000 TRMOPTBL EQU IEDQTRM+18 01467000 TRMOPNO EQU IEDQTRM+17 01468000 TRMCHCIN EQU IEDQTRM+16 01469000 TRMLOCAD EQU TRMSENSE 01470000 TRMTEMPR EQU TRMAPB+2 01471000 TRMNADDR EQU TRMOWNER 01472000 @NM00113 EQU TRMDEVFL+1 01473000 TRMTPIN EQU TRMDEVFL+1 01474000 @NM00112 EQU TRMNCPI 01475000 TRMRNTRM EQU TRMDEVFL+1 01476000 @NM00111 EQU TRMDEVFL+1 01477000 TRMLMD EQU TRMDEVFL+1 01478000 TRMCONC EQU TRMDEVFL+1 01479000 TRMTSOB EQU TRMDEVFL 01480000 TRMBFDY EQU TRMDEVFL 01481000 TRMTBLK EQU TRMDEVFL 01482000 TRMSBLK EQU TRMDEVFL 01483000 TRMBLKS EQU TRMDEVFL 01484000 TRMSCV EQU TRMADDC 01485000 TRMDDIG EQU TRMDEVFL 01486000 TRMBUFS EQU TRMDEVFL 01487000 TRMSTEAL EQU TRMPRILK 01488000 TRMLGB EQU TRMDSORG 01489000 TRMUTERM EQU TRMSESCT 01490000 TRMVERIF EQU TRMRSTRT 01491000 @NM00110 EQU TRMRSTRT 01492000 @NM00109 EQU TRMDESTQ 01493000 TRMSCNYN EQU TRMSTATE 01494000 TRMOPTFN EQU TRMSTATE 01495000 TRMHELDN EQU TRMSTATE 01496000 TRMACPTN EQU TRMSTATE 01497000 TRMPREF EQU TRMSTATE 01498000 TRMPROC EQU TRMLOG 01499000 TRMLIST EQU TRMLOG 01500000 TRMLINE EQU TRMSTATE 01501000 TRMSUBST EQU IEDNTRM+22 01502000 TRMTYPE EQU IEDNTRM+21 01503000 TRMPRIME EQU TRMLGBST 01504000 TRMOWNR EQU TRMLBUFR+1 01505000 TRMGPCNT EQU TRMLBUFR 01506000 TRMBUFRD EQU TRMBYTE0 01507000 TRMSNA EQU TRMBYTE0 01508000 TRMGP EQU TRMBYTE0 01509000 TRMDIAL EQU TRMBYTE0 01510000 TRMACDC EQU TRMNOWCD 01511000 TRMOUTPT EQU TRMBYTE0 01512000 TRMINPUT EQU TRMBYTE0 01513000 TRMUDEF EQU TRMBYTE0 01514000 TRMCOHRT EQU IEDNTRM+14 01515000 TRMSTOTE EQU TRMBYTE1 01516000 TRMCKPRN EQU TRMBYTE1 01517000 TRMTSATN EQU TRMBYTE1 01518000 TRMTRACE EQU TRMBYTE1 01519000 TRMSWBCK EQU TRMBYTE1 01520000 TRMAUTOC EQU TRMBYTE1 01521000 TRMINPTP EQU TRMBYTE1 01522000 TRMWTNEG EQU TRMSCPRQ 01523000 TRMWRBRK EQU TRMBYTE2 01524000 TRMNOSND EQU TRMBYTE2 01525000 TRMPREP EQU TRMBYTE2 01526000 TRMGPACT EQU TRMBYTE2 01527000 TRMANDL EQU TRMBYTE2 01528000 TRMCLOSN EQU TRMINPG 01529000 TRMREMB EQU TRMBYTE2 01530000 TRMCINOP EQU TRMCDF0 01531000 TRMRSTPD EQU TRMCDF0 01532000 TRMCLNXI EQU TRMCDF0 01533000 TRMDVAS0 EQU TRMCDF0 01534000 TRMPURGE EQU TRMCDF0 01535000 TRMCDST EQU TRMINDEX 01536000 TRMASNDX EQU TRMATNDX 01537000 TRMBYTE8 EQU TRMDIALQ+1 01538000 @NM00108 EQU TRMDIALQ 01539000 @NM00107 EQU IEDNTRM 01540000 SAVTSMAX EQU IEDNSVTD+500 01541000 SAVTSINO EQU IEDNSVTD+498 01542000 SAVTAMAX EQU IEDNSVTD+496 01543000 SAVTAENO EQU IEDNSVTD+494 01544000 SAVTAINO EQU IEDNSVTD+492 01545000 SAVTNMAX EQU IEDNSVTD+490 01546000 SAVTNENO EQU IEDNSVTD+488 01547000 SAVTNINO EQU IEDNSVTD+486 01548000 SAVTRSZE EQU IEDNSVTD+484 01549000 SAVTRMAX EQU IEDNSVTD+482 01550000 SAVTRENO EQU IEDNSVTD+480 01551000 SAVTRINO EQU IEDNSVTD+478 01552000 SAVTRMIN EQU IEDNSVTD+476 01553000 SAVTPMID EQU IEDNSVTD+474 01554000 SAVTRRTC EQU IEDNSVTD+472 01555000 SAVTLUSG EQU IEDNSVTD+468 01556000 SAVTACNQ EQU IEDNSVTD+464 01557000 SAVTCM20 EQU IEDNSVTD+460 01558000 SAVTCFDC EQU IEDNSVTD+456 01559000 SAVTCMOT EQU IEDNSVTD+452 01560000 SAVTCMIN EQU IEDNSVTD+448 01561000 SAVTCPCH EQU IEDNSVTD+444 01562000 SAVTCRGT EQU IEDNSVTD+440 01563000 SAVTNALC EQU IEDNSVTD+436 01564000 SAVTATCT EQU IEDNSVTD+434 01565000 SAVTCRIU EQU IEDNSVTD+432 01566000 SAVTCRHI EQU IEDNSVTD+430 01567000 SAVTCRIB EQU IEDNSVTD+428 01568000 SAVTLCQ EQU IEDNSVTD+424 01569000 SAVTDRSR EQU IEDNSVTD+420 01570000 SAVTATPT EQU IEDNSVTD+416 01571000 SAVTCSMI EQU IEDNSVTD+412 01572000 SAVTNXCR EQU IEDNSVTD+408 01573000 SAVTCRPT EQU IEDNSVTD+404 01574000 SAVTCIPH EQU IEDNSVTD+400 01575000 SAVTBTCO EQU IEDNSVTD+396 01576000 SAVTBTCI EQU IEDNSVTD+392 01577000 SAVTBPCO EQU IEDNSVTD+388 01578000 SAVTBPCI EQU IEDNSVTD+384 01579000 SAVTLLCB EQU IEDNSVTD+380 01580000 SAVTSCF0 EQU IEDNSVTD+376 01581000 SAVTLSNY EQU IEDNSVTD+372 01582000 SAVTLSZP EQU IEDNSVTD+368 01583000 SAVTOMSU EQU IEDNSVTD+364 01584000 SAVTGTSB EQU IEDNSVTD+360 01585000 SAVTHIBL EQU IEDNSVTD+356 01586000 SAVTHISY EQU IEDNSVTD+352 01587000 SAVTNAX2 EQU IEDNSVTD+348 01588000 SAVTCDRU EQU IEDNSVTD+344 01589000 SAVTPOLC EQU IEDNSVTD+342 01590000 SAVTPOLM EQU IEDNSVTD+340 01591000 SAVTPOLR EQU IEDNSVTD+336 01592000 SAVTCDRN EQU SAVTCDRV 01593000 SAVTPOLL EQU IEDNSVTD+328 01594000 SAVTPOLN EQU IEDNSVTD+326 01595000 @NM00105 EQU IEDNSVTD+325 01596000 @NM00104 EQU SAVTNETF 01597000 SAVTSDIS EQU SAVTNETF 01598000 SAVTROUT EQU SAVTNETF 01599000 SAVTNETW EQU SAVTNETF 01600000 SAVTDIAL EQU IEDNSVTD+320 01601000 SAVTRQUT EQU IEDNSVTD+316 01602000 SAVTBITN EQU IEDNSVTD+312 01603000 @NM00103 EQU SAVTCKQB+8 01604000 @NM00102 EQU SAVTCKEC+1 01605000 @NM00101 EQU SAVTCKCC 01606000 SAVTCKPO EQU SAVTCKCC 01607000 SAVTCKWA EQU SAVTCKCC 01608000 SAVTCKCH EQU SAVTCKTB+1 01609000 SAVTCKVT EQU SAVTCKTB 01610000 @NM00100 EQU IEDNSVTD+297 01611000 SAVTRDFG EQU SAVTRDRV+12 01612000 @NM00099 EQU SAVTRDRV+5 01613000 SAVTRDPY EQU SAVTRDRV+4 01614000 SAVTRDQB EQU SAVTRDRV+1 01615000 SAVTRDKY EQU SAVTRDRV 01616000 SAVTNID EQU IEDNSVTD+280 01617000 SAVTDVAS EQU IEDNSVTD+276 01618000 SAVTPLSZ EQU IEDNSVTD+274 01619000 @NM00098 EQU IEDNSVTD+273 01620000 SAVTSUBL EQU IEDNSVTD+272 01621000 @NM00097 EQU SAVTZELM+1 01622000 SAVTSUBM EQU SAVTZELM 01623000 SAVTMHDX EQU IEDNSVTD+268 01624000 SAVTNAT1 EQU IEDNSVTD+266 01625000 SAVTSH20 EQU IEDNSVTD+264 01626000 SAVTLCBS EQU IEDNSVTD+260 01627000 SAVTRNMP EQU IEDNSVTD+256 01628000 SAVTTNTX EQU IEDNSVTD+252 01629000 SAVTNAX EQU IEDNSVTD+248 01630000 SAVTSUBV EQU IEDNSVTD+247 01631000 SAVTSUBA EQU IEDNSVTD+246 01632000 SAVTSIBC EQU IEDNSVTD+244 01633000 SAVTBSM EQU IEDNSVTD+240 01634000 SAVTSCPT EQU SAVTTCPU 01635000 SAVTRQTG EQU IEDNSVTD+236 01636000 SAVTRQCH EQU IEDNSVTD+232 01637000 SAVTMAND EQU IEDNSVTD+228 01638000 SAVTSPLN EQU IEDNSVTD+224 01639000 SAVTNADL EQU IEDNSVTD+222 01640000 SAVTNATL EQU IEDNSVTD+220 01641000 SAVTMHTB EQU IEDNSVTD+216 01642000 SAVTSSMH EQU IEDNSVTD+212 01643000 SAVTQRS EQU IEDNSVTD+208 01644000 SAVTRQIN EQU IEDNSVTD+204 01645000 SAVTDFCO EQU IEDNSVTD+200 01646000 SAVTSAO EQU IEDNSVTD+196 01647000 SAVTSARI EQU IEDNSVTD+192 01648000 SAVTSAC EQU IEDNSVTD+188 01649000 SAVTSAI EQU IEDNSVTD+184 01650000 SAVTCSCI EQU IEDNSVTD+180 01651000 SAVTSSRP EQU IEDNSVTD+176 01652000 SAVTSSRQ EQU IEDNSVTD+172 01653000 SAVTEP EQU SAVTSCLU 01654000 SAVTXTRQ EQU IEDNSVTD+164 01655000 @NM00096 EQU IEDNSVTD+148 01656000 SAVTIPCQ EQU IEDNSVTD+144 01657000 @NM00095 EQU IEDNSVTD+136 01658000 SAVTXFMI EQU IEDNSVTD+132 01659000 @NM00094 EQU IEDNSVTD+124 01660000 SAVTXFMO EQU IEDNSVTD+120 01661000 @NM00093 EQU IEDNSVTD+116 01662000 SAVTSSSR EQU IEDNSVTD+112 01663000 SAVTSCPQ EQU IEDNSVTD+108 01664000 SAVTSLCB EQU IEDNSVTD+104 01665000 SAVTLUSR EQU IEDNSVTD+100 01666000 @NM00092 EQU SAVTLUSQ+8 01667000 SAVTLUSP EQU SAVTLUSQ+4 01668000 SAVTLUSB EQU SAVTLUSQ 01669000 @NM00091 EQU IEDNSVTD+84 01670000 SAVTSAT EQU IEDNSVTD+80 01671000 SAVTNAT EQU IEDNSVTD+76 01672000 SAVTCLUP EQU IEDNSVTD+72 01673000 SAVTPIUT EQU IEDNSVTD+68 01674000 SAVTRNTA EQU IEDNSVTD+64 01675000 SAVTDNIR EQU IEDNSVTD+60 01676000 SAVTCNIR EQU IEDNSVTD+56 01677000 SAVTFLDH EQU IEDNSVTD+52 01678000 SAVTSRTN EQU IEDNSVTD+48 01679000 SAVTSREQ EQU IEDNSVTD+44 01680000 SAVTFAIL EQU IEDNSVTD+42 01681000 SAVTSUSE EQU IEDNSVTD+40 01682000 SAVTSIB EQU IEDNSVTD+36 01683000 SAVTPRTN EQU IEDNSVTD+32 01684000 @NM00090 EQU IEDNSVTD+28 01685000 SAVTWH20 EQU IEDNSVTD+26 01686000 SAVTPWT EQU IEDNSVTD+24 01687000 SAVTPRTQ EQU IEDNSVTD+20 01688000 SAVTPREQ EQU IEDNSVTD+16 01689000 SAVTPH20 EQU IEDNSVTD+14 01690000 SAVTPUSE EQU IEDNSVTD+12 01691000 SAVTPLCB EQU IEDNSVTD+8 01692000 SAVTPOOL EQU IEDNSVTD+4 01693000 SAVTPRMT EQU SAVTDIAF 01694000 SAVTVIRT EQU SAVTDIAF 01695000 AVTTVT EQU IEDQAVTD+1268 01696000 AVTSITS EQU IEDQAVTD+1264 01697000 AVTMSUHI EQU IEDQAVTD+1260 01698000 AVTSITU EQU IEDQAVTD+1256 01699000 AVTSITP EQU IEDQAVTD+1252 01700000 AVTPADDR EQU IEDQAVTD+1248 01701000 @NM00089 EQU IEDQAVTD+1246 01702000 AVTCPBNO EQU IEDQAVTD+1244 01703000 AVTHRESS EQU IEDQAVTD+1243 01704000 @NM00088 EQU IEDQAVTD+1242 01705000 @NM00087 EQU IEDQAVTD+1241 01706000 @NM00086 EQU IEDQAVTD+1240 01707000 @NM00085 EQU IEDQAVTD+1237 01708000 @NM00084 EQU IEDQAVTD+1236 01709000 AVTHRESE EQU @NM00083 01710000 AVTRADDR EQU IEDQAVTD+1228 01711000 AVTNADDR EQU IEDQAVTD+1224 01712000 AVTHRESN EQU IEDQAVTD+1220 01713000 AVTVOLRN EQU IEDQAVTD+1216 01714000 AVTTOTNN EQU IEDQAVTD+1212 01715000 AVTTRCYN EQU IEDQAVTD+1208 01716000 AVTRCTRN EQU IEDQAVTD+1204 01717000 AVTNOVON EQU IEDQAVTD+1200 01718000 AVTADEBN EQU IEDQAVTD+1196 01719000 AVTVOLRR EQU IEDQAVTD+1192 01720000 AVTTOTNR EQU IEDQAVTD+1188 01721000 AVTTRCYR EQU IEDQAVTD+1184 01722000 AVTRCTRR EQU IEDQAVTD+1180 01723000 AVTNOVOR EQU IEDQAVTD+1176 01724000 AVTADEBR EQU IEDQAVTD+1172 01725000 AVTLODPT EQU IEDQAVTD+1168 01726000 AVTIOBN EQU IEDQAVTD+1164 01727000 AVTIOBR EQU IEDQAVTD+1160 01728000 AVTCPBPT EQU IEDQAVTD+1156 01729000 AVTFCPB EQU IEDQAVTD+1152 01730000 @NM00082 EQU IEDQAVTD+1148 01731000 AVTINCPQ EQU IEDQAVTD+1144 01732000 @NM00081 EQU IEDQAVTD+1140 01733000 @NM00080 EQU IEDQAVTD+1137 01734000 @NM00079 EQU AVTBIT4 01735000 @NM00078 EQU AVTBIT4 01736000 @NM00077 EQU AVTBIT4 01737000 @NM00076 EQU AVTBIT4 01738000 @NM00075 EQU AVTBIT4 01739000 @NM00074 EQU AVTBIT4 01740000 @NM00073 EQU AVTBIT4 01741000 AVTRUFTN EQU AVTBIT4 01742000 @NM00072 EQU IEDQAVTD+1132 01743000 AVTNOBFQ EQU IEDQAVTD+1128 01744000 @NM00071 EQU IEDQAVTD+1124 01745000 AVTDKENQ EQU IEDQAVTD+1120 01746000 @NM00070 EQU IEDQAVTD+1116 01747000 AVTDKAPQ EQU IEDQAVTD+1112 01748000 AVTCOPY EQU IEDQAVTD+1108 01749000 AVTIA EQU IEDQAVTD+1104 01750000 AVTFL EQU IEDQAVTD+1100 01751000 @NM00069 EQU IEDQAVTD+1096 01752000 AVTNCPBQ EQU IEDQAVTD+1092 01753000 AVTTOTNC EQU IEDQAVTD+1088 01754000 AVTCMAX EQU IEDQAVTD+1084 01755000 AVTCMIN EQU IEDQAVTD+1080 01756000 AVTHM02 EQU IEDQAVTD+1076 01757000 AVTOPCIN EQU IEDQAVTD+1074 01758000 AVTDCTLN EQU IEDQAVTD+1072 01759000 AVTOPMSK EQU IEDQAVTD+1068 01760000 AVTDDFT EQU IEDQAVTD+1064 01761000 AVTSTEAL EQU IEDQAVTD+1060 01762000 AVTOPTN EQU IEDQAVTD+1056 01763000 AVTDSKCT EQU IEDQAVTD+1054 01764000 AVTCKRST EQU IEDQAVTD+1053 01765000 AVTSTAN EQU AVTBIT3 01766000 AVTSTACN EQU AVTBIT3 01767000 AVTSTAYN EQU AVTBIT3 01768000 AVTOLTBN EQU AVTBIT3 01769000 AVTTSAB EQU AVTBIT3 01770000 AVTRFULN EQU AVTBIT3 01771000 AVTRECVN EQU AVTBIT3 01772000 @NM00068 EQU AVTBIT2 01773000 @NM00067 EQU AVTBIT2 01774000 AVTOPEIN EQU AVTBIT2 01775000 AVTSTRTN EQU AVTBIT2 01776000 AVTTOPOL EQU AVTBIT2 01777000 AVTCOPYN EQU AVTBIT2 01778000 AVTREUSN EQU AVTBIT2 01779000 AVTEXTSC EQU AVTBIT2 01780000 AVTDISKN EQU AVTBIT1 01781000 AVTQUCKN EQU AVTBIT1 01782000 AVTCLOSN EQU AVTBIT1 01783000 AVTREADN EQU AVTBIT1 01784000 AVTDLAYN EQU AVTBIT1 01785000 AVTAQTAN EQU AVTBIT1 01786000 AVTTSON EQU AVTBIT1 01787000 AVTAPLKN EQU AVTBIT1 01788000 AVTDUMBR EQU IEDQAVTD+1048 01789000 AVTDLQX EQU IEDQAVTD+1046 01790000 AVTINTLV EQU IEDQAVTD+1044 01791000 AVTSMCNT EQU IEDQAVTD+1042 01792000 AVTAVFCT EQU IEDQAVTD+1040 01793000 AVTOPCON EQU IEDQAVTD+1038 01794000 AVTOPCNT EQU IEDQAVTD+1036 01795000 AVTLNCNT EQU IEDQAVTD+1034 01796000 AVTHA16 EQU IEDQAVTD+1030 01797000 AVTHA7 EQU IEDQAVTD+1028 01798000 AVTHA4 EQU IEDQAVTD+1026 01799000 AVTHA3 EQU IEDQAVTD+1024 01800000 AVTHA2 EQU IEDQAVTD+1022 01801000 AVTGETMS EQU IEDQAVTD+1021 01802000 @NM00066 EQU IEDQAVTD+1020 01803000 AVTGETMD EQU IEDQAVTD+1016 01804000 AVTGETMN EQU IEDQAVTD+1012 01805000 AVTCWTOT EQU IEDQAVTD+1008 01806000 AVTCWINT EQU IEDQAVTD+956 01807000 AVTDTRAP EQU IEDQAVTD+952 01808000 @NM00065 EQU IEDQAVTD+950 01809000 @NM00064 EQU AVTIOTR 01810000 AVTIOTRH EQU AVTIOTR 01811000 AVTIOTRE EQU AVTIOTR 01812000 @NM00063 EQU AVTSUBT 01813000 AVTSUBPT EQU AVTSUBT 01814000 AVTSUBON EQU AVTSUBT 01815000 AVTAFE30 EQU IEDQAVTD+944 01816000 AVTAFE20 EQU IEDQAVTD+940 01817000 AVTAFE10 EQU IEDQAVTD+936 01818000 AVTCWEC2 EQU IEDQAVTD+932 01819000 AVTCWPM2 EQU IEDQAVTD+928 01820000 AVTCWTS2 EQU IEDQAVTD+927 01821000 AVTCWTS1 EQU IEDQAVTD+926 01822000 AVTCWCLD EQU AVTCWFL2 01823000 AVTCWRAP EQU AVTCWFL2 01824000 @NM00062 EQU AVTCWFL2 01825000 @NM00061 EQU AVTCWFL2 01826000 @NM00060 EQU AVTCWFL2 01827000 @NM00059 EQU AVTCWFL2 01828000 @NM00058 EQU AVTCWFL2 01829000 AVTCWACT EQU AVTCWFL2 01830000 @NM00057 EQU AVTCWFL1 01831000 @NM00056 EQU AVTCWFL1 01832000 @NM00055 EQU AVTCWFL1 01833000 @NM00054 EQU AVTCWFL1 01834000 @NM00053 EQU AVTCWFL1 01835000 @NM00052 EQU AVTCWFL1 01836000 @NM00051 EQU AVTCWFL1 01837000 AVTCOMWN EQU AVTCWFL1 01838000 AVTCWEC1 EQU IEDQAVTD+920 01839000 AVTCWPM1 EQU IEDQAVTD+916 01840000 AVTCAREA EQU IEDQAVTD+912 01841000 AVTFZERO EQU IEDQAVTD+908 01842000 AVTCADDR EQU IEDQAVTD+904 01843000 AVTCOREC EQU IEDQAVTD+900 01844000 @NM00050 EQU IEDQAVTD+892 01845000 AVTCPBCB EQU IEDQAVTD+888 01846000 @NM00049 EQU IEDQAVTD+880 01847000 AVTDSIOB EQU IEDQAVTD+876 01848000 @NM00048 EQU IEDQAVTD+868 01849000 AVTCPRMB EQU IEDQAVTD+864 01850000 @NM00047 EQU IEDQAVTD+856 01851000 AVTCLOSB EQU IEDQAVTD+852 01852000 @NM00046 EQU IEDQAVTD+844 01853000 AVTACTIB EQU IEDQAVTD+840 01854000 @NM00045 EQU IEDQAVTD+836 01855000 AVTOLTEB EQU IEDQAVTD+832 01856000 AVTOLTCH EQU AVTOLTQB+1 01857000 AVTOLTVT EQU AVTOLTQB 01858000 @NM00044 EQU AVTOPCQB+8 01859000 @NM00043 EQU AVTOPCEC+1 01860000 @NM00042 EQU AVTOPCCC 01861000 AVTOPCPO EQU AVTOPCCC 01862000 AVTOPCWA EQU AVTOPCCC 01863000 AVTOPCCH EQU AVTOPCOB+1 01864000 AVTOPCVT EQU AVTOPCOB 01865000 @NM00041 EQU AVTCKPQB+9 01866000 AVTCKPTS EQU AVTCKPQB+8 01867000 @NM00040 EQU AVTCKPEC+1 01868000 @NM00039 EQU AVTCKPCC 01869000 AVTCKPPO EQU AVTCKPCC 01870000 AVTCKPWA EQU AVTCKPCC 01871000 AVTCKPCH EQU AVTCKPTB+1 01872000 AVTCKPVT EQU AVTCKPTB 01873000 @NM00038 EQU IEDQAVTD+796 01874000 AVTBFRTB EQU IEDQAVTD+792 01875000 @NM00037 EQU IEDQAVTD+788 01876000 AVTSELCH EQU IEDQAVTD+785 01877000 AVTBFRTN EQU AVTBFRFG 01878000 AVTBFREB EQU IEDQAVTD+780 01879000 AVTTIMQ EQU IEDQAVTD+776 01880000 @NM00036 EQU IEDQAVTD+772 01881000 AVTIMQPS EQU IEDQAVTD+768 01882000 AVTINOUT EQU IEDQAVTD+766 01883000 AVTREFTM EQU IEDQAVTD+764 01884000 @NM00035 EQU IEDQAVTD+752 01885000 AVTDELYB EQU IEDQAVTD+748 01886000 AVTOCQPT EQU IEDQAVTD+744 01887000 AVTTSOPT EQU IEDQAVTD+740 01888000 AVTSUPPT EQU IEDQAVTD+736 01889000 AVTCBQCB EQU IEDQAVTD+732 01890000 AVTMSGS EQU IEDQAVTD+729 01891000 @NM00034 EQU AVTSYSER 01892000 @NM00033 EQU AVTSYSER 01893000 @NM00032 EQU AVTSYSER 01894000 @NM00031 EQU AVTSYSER 01895000 @NM00030 EQU AVTSYSER 01896000 @NM00029 EQU AVTSYSER 01897000 AVTCMAXN EQU AVTSYSER 01898000 AVTCMINN EQU AVTSYSER 01899000 AVT2260L EQU IEDQAVTD+724 01900000 AVTABEPL EQU AVTADBUF 01901000 AVTHFF EQU AVTCLRHI+2 01902000 @NM00028 EQU AVTCLRHI 01903000 AVTCCLNK EQU AVTCRELE+5 01904000 AVTCCPRI EQU AVTCRELE+4 01905000 AVTCCQCB EQU AVTCCELE+1 01906000 AVTCCKEY EQU AVTCCELE 01907000 AVTDELAD EQU IEDQAVTD+704 01908000 AVTDELEM EQU IEDQAVTD+700 01909000 AVTBSX EQU AVTCKLNK 01910000 AVTOPETR EQU AVTHG01 01911000 @NM00027 EQU AVTCKBYT 01912000 AVTCKONQ EQU AVTCKBYT 01913000 @NM00026 EQU AVTCKBYT 01914000 @NM00025 EQU AVTCKBYT 01915000 @NM00024 EQU AVTCKBYT 01916000 @NM00023 EQU AVTCKBYT 01917000 @NM00022 EQU AVTCKBYT 01918000 @NM00021 EQU AVTCKBYT 01919000 AVTOPERT EQU IEDQAVTD+690 01920000 AVTOPXCL EQU IEDQAVTD+688 01921000 AVTOPERL EQU IEDQAVTD+687 01922000 @NM00020 EQU IEDQAVTD+686 01923000 AVTCKTIM EQU IEDQAVTD+684 01924000 AVTCKELV EQU IEDQAVTD+682 01925000 AVTCPRCD EQU IEDQAVTD+681 01926000 AVTWARMN EQU AVTCKELF 01927000 AVTCRTLN EQU AVTCKELF 01928000 AVTCPIPN EQU AVTCKELF 01929000 AVTCCLCN EQU AVTCKELF 01930000 AVTCINCN EQU AVTCKELF 01931000 @NM00019 EQU AVTCKELF 01932000 AVTCMCPN EQU AVTCKELF 01933000 AVTNQBCK EQU AVTCKELF 01934000 AVTCKQAD EQU IEDQAVTD+677 01935000 AVTSCBSZ EQU IEDQAVTD+676 01936000 @NM00018 EQU IEDQAVTD+672 01937000 AVTCKELE EQU IEDQAVTD+668 01938000 @NM00017 EQU AVTCKPEL+8 01939000 AVTCKRLK EQU AVTCKPEL+5 01940000 AVTCKRPR EQU AVTCKPEL+4 01941000 AVTCKRMQ EQU AVTCKRMV+1 01942000 AVTCKRKY EQU AVTCKRMV 01943000 AVTHK EQU IEDQAVTD+648 01944000 AVTHI EQU IEDQAVTD+644 01945000 AVTIOT EQU IEDQAVTD+640 01946000 AVTNX EQU IEDQAVTD+636 01947000 AVTTONE EQU IEDQAVTD+632 01948000 AVTA3TL EQU IEDQAVTD+628 01949000 AVTDMECB EQU IEDQAVTD+624 01950000 AVTABEND EQU IEDQAVTD+618 01951000 AVTPLCBN EQU IEDQAVTD+616 01952000 @NM00016 EQU AVTSAVTP+1 01953000 @NM00015 EQU AVTSAVTF 01954000 AVTRAPI EQU AVTSAVTF 01955000 AVTLCLST EQU AVTSAVTF 01956000 AVT370X EQU AVTSAVTF 01957000 AVTSNA EQU AVTSAVTF 01958000 AVTONSNA EQU AVTSAVTF 01959000 AVTVTMCP EQU AVTSAVTF 01960000 AVTTRNOS EQU IEDQAVTD+608 01961000 AVTCMBSS EQU IEDQAVTD+604 01962000 AVTRCV EQU IEDQAVTD+600 01963000 AVTSEND EQU IEDQAVTD+596 01964000 AVTCSCH EQU IEDQAVTD+592 01965000 AVTQ1 EQU IEDQAVTD+588 01966000 AVTE7 EQU IEDQAVTD+584 01967000 AVTHB EQU IEDQAVTD+580 01968000 AVTR1 EQU IEDQAVTD+576 01969000 AVTBZ EQU IEDQAVTD+572 01970000 AVTEZ EQU IEDQAVTD+568 01971000 AVTEC EQU IEDQAVTD+564 01972000 AVTEW EQU IEDQAVTD+560 01973000 AVTNDIAL EQU AVTSCOPT 01974000 AVTN2741 EQU AVTSCOPT 01975000 AVTCONCO EQU AVTSCOPT 01976000 AVTCONC EQU AVTSCOPT 01977000 AVTCMBUF EQU AVTSCOPT 01978000 AVTAPDMP EQU AVTSCOPT 01979000 @NM00014 EQU AVTSCOPT 01980000 AVTHA EQU AVTDISP 01981000 AVTEA EQU IEDQAVTD+548 01982000 AVTAX EQU IEDQAVTD+544 01983000 AVTA3 EQU IEDQAVTD+540 01984000 AVTGD EQU IEDQAVTD+536 01985000 AVTAL EQU IEDQAVTD+532 01986000 AVTOLTST EQU AVTHG02 01987000 AVTE8 EQU IEDQAVTD+524 01988000 AVTUI EQU IEDQAVTD+520 01989000 AVTCOMPT EQU IEDQAVTD+516 01990000 AVTCRSRF EQU IEDQAVTD+512 01991000 @NM00013 EQU IEDQAVTD+508 01992000 AVTKA02 EQU IEDQAVTD+504 01993000 AVTOPTPT EQU IEDQAVTD+500 01994000 AVTPCBPT EQU IEDQAVTD+496 01995000 AVTECBAD EQU IEDQAVTD+492 01996000 AVTOPECA EQU IEDQAVTD+488 01997000 AVTOLECA EQU IEDQAVTD+484 01998000 AVTCKECA EQU IEDQAVTD+480 01999000 AVTCWECA EQU IEDQAVTD+476 02000000 AVTCWTCB EQU IEDQAVTD+472 02001000 AVTOLTCB EQU IEDQAVTD+468 02002000 AVTOCTCB EQU IEDQAVTD+464 02003000 AVTCKTCB EQU IEDQAVTD+460 02004000 AVTAS EQU IEDQAVTD+456 02005000 AVTNOLBF EQU IEDQAVTD+454 02006000 AVTNCKPR EQU IEDQAVTD+453 02007000 AVTCIB EQU IEDQAVTD+452 02008000 AVTSPLPT EQU IEDQAVTD+448 02009000 AVTMVBFR EQU IEDQAVTD+444 02010000 AVTSBTA EQU IEDQAVTD+440 02011000 AVTRARTN EQU IEDQAVTD+436 02012000 AVTBSCAN EQU IEDQAVTD+432 02013000 AVTRDYA EQU IEDQAVTD+428 02014000 AVTDISTR EQU IEDQAVTD+420 02015000 AVTPARM3 EQU IEDQAVTD+416 02016000 @NM00012 EQU AVTPKF 02017000 @NM00011 EQU AVTPKF 02018000 @NM00010 EQU AVTPKF 02019000 AVTFTCHF EQU AVTPKF 02020000 @NM00009 EQU AVTPKF 02021000 @NM00008 EQU AVTPKF 02022000 @NM00007 EQU AVTPKF 02023000 @NM00006 EQU AVTPKF 02024000 AVTPARM EQU IEDQAVTD+408 02025000 AVTEXS2A EQU IEDQAVTD+402 02026000 AVTEXA2S EQU IEDQAVTD+396 02027000 AVTOCGET EQU IEDQAVTD+392 02028000 AVTCKAVT EQU @NM00004+1 02029000 @NM00005 EQU AVTCKFLG 02030000 AVTCKHLT EQU AVTCKFLG 02031000 AVTCKREQ EQU AVTCKFLG 02032000 AVTCKENV EQU AVTCKFLG 02033000 AVTCKNAC EQU AVTCKFLG 02034000 AVTCKTAC EQU AVTCKFLG 02035000 AVTBUENT EQU IEDQAVTD+386 02036000 @NM00003 EQU IEDQAVTD+385 02037000 AVTFULLT EQU AVTBUFSW 02038000 AVTUNCON EQU AVTBUFSW 02039000 AVTTRAPI EQU AVTBUFSW 02040000 @NM00002 EQU AVTBUFSW 02041000 AVTBUFTR EQU AVTREADD 02042000 AVTREADY EQU IEDQAVTD+376 02043000 AVTRACE EQU IEDQAVTD+372 02044000 AVTTCB EQU IEDQAVTD+368 02045000 AVTPASWD EQU IEDQAVTD+360 02046000 AVTCTLCH EQU IEDQAVTD+352 02047000 AVTDOUBL EQU IEDQAVTD+344 02048000 AVTDOUBX EQU IEDQAVTD+336 02049000 AVTDPARM EQU IEDQAVTD+332 02050000 AVTCSTCS EQU IEDQAVTD+328 02051000 AVTDLQ EQU AVTSAVEX+32 02052000 @NM00001 EQU AVTSAVEX 02053000 AVTSAVE4 EQU IEDQAVTD+216 02054000 AVTSAVE3 EQU IEDQAVTD+144 02055000 AVTSAVE2 EQU IEDQAVTD+72 02056000 AVTSAVE1 EQU IEDQAVTD 02057000 * END UNREFERENCED COMPONENTS 02058000 @RT00466 EQU RESTART 02059000 @RT00503 EQU MOVID 02060000 @RT00506 EQU ALLDONE 02061000 @EL01 EQU @EL00001 02062000 @ENDDATA EQU * 02063000 @DATEND EQU * 02064000 END IGCI310D 02065000