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