TITLE 'IGCT010D - TCOPY,TCHNG,ICOPY,ICHNG SERVICE RTN' 00001000 IGCT010D CSECT , 0001 00002000 @PROLOG BALR @11,0 0001 00003000 @PSTART DS 0H 0001 00004000 USING @PSTART,@11 0001 00005000 IGCT010D IEDHJN AFTERHJN,HJN MODULE ID MACRO 00006000 * ROPCAVT=REG1; /* ADDRESS OF OP CTL AVT @Y17XAR5*/ 00007000 LR ROPCAVT,REG1 0530 00008000 * PARAM=OCCIB; /* ADDR OF PARAMETER LIST 0531 00009000 * @Y17XAR5*/ 00010000 L @03,OPCCOPCE(,ROPCAVT) 0531 00011000 L PARAM,OCCIB(,@03) 0531 00012000 * AVT=OPCAVTPT; /* ADDRESS OF TCAM AVT @Y17XAR5*/ 00013000 L AVT,OPCAVTPT(,ROPCAVT) 0532 00014000 * RSAVE=ADDR(OPCSAVE); /* ADDRESS OF SAVEAREA @Y17XARW*/ 00015000 LA RSAVE,OPCSAVE(,ROPCAVT) 0533 00016000 * OPCFLAG1=ZERO; /* CLEAR FLAGS @Y17XAR5*/ 00017000 MVI OPCFLAG1(ROPCAVT),X'00' 0534 00018000 * IF OCPARM^=ZERO THEN /* IS THIS A RETURN FORM 0535 00019000 * STARTLINE? @Y17XAR5*/ 00020000 ICM @05,3,OCPARM(@03) 0535 00021000 BNZ @RT00535 0535 00022000 * GO TO FREERU; /* YES @Y17XAR5*/ 00023000 * ELSE 0537 00024000 * IF OCRESP='0'B THEN /* IS IT AN OPCE WITHOUT 0537 00025000 * RESPONSE? @Y17XAR5*/ 00026000 TM OCRESP(@03),B'00000001' 0537 00027000 BZ @RT00537 0537 00028000 * GO TO REQUEST; /* YES - PROCESS REQUEST @Y17XAR5*/ 00029000 * ELSE 0539 00030000 * GO TO ANSWER; /* NO - PROCESS RESPONSE @Y17XAR5*/ 00031000 B ANSWER 0539 00032000 *FREERU: 0540 00033000 * REG1=OPCCOPCE; /* SETUP TO FREE START/STOP OPCE 00034000 * @Y17XAR5*/ 00035000 FREERU L REG1,OPCCOPCE(,ROPCAVT) 0540 00036000 * OPCCOPCE=REG1->OCCIB; /* SETUP REAL OPCE @Y17XAR5*/ 00037000 MVC OPCCOPCE(4,ROPCAVT),OCCIB(REG1) 0541 00038000 * GOTO COMPLETE; /* FINISH PROCESSING ICHNG 0542 00039000 * @Y17XARW*/ 00040000 B COMPLETE 0542 00041000 *REQUEST: /* @Y17XAR5*/ 00042000 * PARAM->WQCBADR=OPCCOPCE; /* SAVE ELEMENT ADDRESS @Y17XAR5*/ 00043000 REQUEST MVC WQCBADR(4,PARAM),OPCCOPCE(ROPCAVT) 0543 00044000 * IF PARAM->WENTCD<=1 THEN /* IS IT TCOPY OR TCHNG? @Y17XAR5*/ 00045000 CLI WENTCD(PARAM),1 0544 00046000 BH @RF00544 0544 00047000 * DO; /* YES @Y17XAR5*/ 00048000 * CALL GETUNIT; /* GET AND BUILD RU @Y17XAR5*/ 00049000 BAL @14,GETUNIT 0546 00050000 * BDUCMND=CD0CTRL; /* SET UP MODIFIER @Y17XAR5*/ 00051000 LA @03,12 0547 00052000 ALR @03,RPRU 0547 00053000 MVI BDUCMND(@03),X'08' 0547 00054000 * BDUMODIF=CD0CCDSI; /* @Y17XAR5*/ 00055000 MVI BDUMODIF(@03),X'21' 0548 00056000 * END; /* @Y17XAR5*/ 00057000 * ELSE 0550 00058000 * DO; /* ICOPY OR ICHNG @Y17XAR5*/ 00059000 B @RC00544 0550 00060000 @RF00544 DS 0H 0551 00061000 * CALL GETUNIT; /* GET AND BUILD RU @Y17XAR5*/ 00062000 BAL @14,GETUNIT 0551 00063000 * RELEASE(PARAM); 0552 00064000 * BDUCMND=CD0CTRL; /* SET UP MODIFIER @Y17XAR5*/ 00065000 LA @05,12 0553 00066000 ALR @05,RPRU 0553 00067000 MVI BDUCMND(@05),X'08' 0553 00068000 * BDUMODIF=CD0CCSII; /* @Y17XAR5*/ 00069000 MVI BDUMODIF(@05),X'05' 0554 00070000 * END; /* @Y17XAR5*/ 00071000 * OPCMODID=MOD02; /* MODULE ID FOR XCTL @Y17XAR5*/ 00072000 @RC00544 MVC OPCMODID(2,ROPCAVT),MOD02 0556 00073000 * GO TO XCTL; /* TRANSFER CONTROL TO DISPATCHER 00074000 * @Y17XAR5*/ 00075000 B XCTL 0557 00076000 * RESTRICT(PARAM); 0558 00077000 * RESPECIFY 0559 00078000 * REG12 RESTRICTED; 0559 00079000 *GETUNIT: 0560 00080000 * 0560 00081000 * /*****************************************************************/ 00082000 * /* */ 00083000 * /* THIS ROUTINE BUILDS A REQUEST UNIT AND SENDS IT TO THE RU */ 00084000 * /* DISPATCHER @Y17XAR5*/ 00085000 * /* */ 00086000 * /*****************************************************************/ 00087000 * 0560 00088000 * RFY 0560 00089000 * REG14 RSTD; /* @Y17XAR5*/ 00090000 GETUNIT DS 0H 0561 00091000 * SAVERET1=REG14; /* SAVE RETURN REG @Y17XAR5*/ 00092000 L @06,OPCWORK(,ROPCAVT) 0561 00093000 ST REG14,SAVERET1(,@06) 0561 00094000 * RFY 0562 00095000 * REG14 UNRSTD; /* @Y17XAR5*/ 00096000 * TNTNDX=WTNTNDX; /* SAVE TRM NAME TABLE INDEX */ 00097000 LH @09,WTNTNDX(,PARAM) 0563 00098000 STH @09,TNTNDX(,@06) 0563 00099000 * IF TNTNDX=ZERO THEN 0564 00100000 LTR @09,@09 0564 00101000 BNZ @RF00564 0564 00102000 * DO; /* @Y17XARW*/ 00103000 * RTRM=WTO-LENGTH(IEDNTRM); /* SETUP TTE @Y17XARW*/ 00104000 L @10,WTO(,PARAM) 0566 00105000 SH @10,@CH00066 0566 00106000 ST @10,RTRM(,ROPCAVT) 0566 00107000 * TNTNDX=OCTRMTBL; /* SETUP TNT @Y17XARW*/ 00108000 L @03,OPCCOPCE(,ROPCAVT) 0567 00109000 MVC TNTNDX(2,@06),OCTRMTBL(@03) 0567 00110000 * END; /* @Y17XARW*/ 00111000 * ELSE 0569 00112000 * DO; /* @Y17XARW*/ 00113000 B @RC00564 0569 00114000 @RF00564 DS 0H 0570 00115000 * REG1=TNTNDX; /* GET TNT INDEX @YM07744*/ 00116000 L @05,OPCWORK(,ROPCAVT) 0570 00117000 LH REG1,TNTNDX(,@05) 0570 00118000 * CALL IEDQTNT; /* GET TTE @YM07744*/ 00119000 L @15,AVTRNMPT(,AVT) 0571 00120000 BALR @14,@15 0571 00121000 * RTRM=REG1-LENGTH(IEDNTRM); /* BACKUP TERM ADDR @Y17XAR5*/ 00122000 LR @03,REG1 0572 00123000 SH @03,@CH00066 0572 00124000 ST @03,RTRM(,ROPCAVT) 0572 00125000 * OCTRMTBL=TNTNDX; /* SETUP TNT IN OPCE @Y17XAR5*/ 00126000 L @05,OPCCOPCE(,ROPCAVT) 0573 00127000 L @06,OPCWORK(,ROPCAVT) 0573 00128000 MVC OCTRMTBL(2,@05),TNTNDX(@06) 0573 00129000 * END; /* @Y17XARW*/ 00130000 * CALL CHK3705; /* CHECK 3705 STATUS @Y17XAR5*/ 00131000 @RC00564 BAL @14,CHK3705 0575 00132000 * IF ERRFLG='1'B THEN 0576 00133000 TM ERRFLG(ROPCAVT),B'10000000' 0576 00134000 BO @RT00576 0576 00135000 * GOTO ERREXIT; /* PROCESS ERROR @Y17XAR5*/ 00136000 * PARAM->WLINK=SAVTRQCH; /* LINK THIS CIB ... S05331*/ 00137000 L @09,AVTSAVTP(,AVT) 0578 00138000 MVC WLINK(3,PARAM),SAVTRQCH+1(@09) 0578 00139000 * SAVTRQCH=PARAM; /* ... AT TOP OF CHAIN S05331*/ 00140000 ST PARAM,SAVTRQCH(,@09) 0579 00141000 * PARAM->WRTCD=0; /* CLEAR THE RETURN CODE @ZA02648*/ 00142000 MVI WRTCD(PARAM),X'00' 0580 00143000 * RFY 0581 00144000 * REG15 RSTD; /* @Y17XARW*/ 00145000 * REG15=OPCGETBF; /* ADDRESS OF GETBUFF RTN 0582 00146000 * @Y17XAR5*/ 00147000 L REG15,OPCGETBF(,ROPCAVT) 0582 00148000 * REG1=ONE; /* SET NUMBER OF UNITS */ 00149000 LA REG1,1 0583 00150000 * GENERATE; 0584 00151000 BALR REG14,REG15 /* LINK TO GET UNIT */ 00152000 * RFY 0585 00153000 * REG15 UNRSTD; /* @Y17XAR5*/ 00154000 *BUILDRU: /* NOW BUILD AN RU @Y17XAR5*/ 00155000 * OCUNIT=REG1; /* SAVE BUF ADDR IN OPCE @Y17XAR5*/ 00156000 BUILDRU L @03,OPCCOPCE(,ROPCAVT) 0586 00157000 ST REG1,OCUNIT(,@03) 0586 00158000 * RPRU=REG1; /* SETUP RU BASE @Y17XAR5*/ 00159000 LR RPRU,REG1 0587 00160000 * PRURH=TRHFID0; /* SET UP RH FLAGS @Y17XAR5*/ 00161000 LR @05,RPRU 0588 00162000 SH @05,@CH00068 0588 00163000 MVC PRURH(3,@05),@CB02216 0588 00164000 * PRUTH=TTH0BYT0; /* SET UP TH FLAGS @Y17XAR5*/ 00165000 MVI PRUTH(@05),X'0C' 0589 00166000 * PRUTTCIN=TNTNDX; /* SET UP TNT @Y17XAR5*/ 00167000 L @06,OPCWORK(,ROPCAVT) 0590 00168000 MVC PRUTTCIN(2,RPRU),TNTNDX(@06) 0590 00169000 * PRUDATCT=LENGTH(IEDBDU); /* SET UP DATA COUNT @Y17XAR5*/ 00170000 MVC PRUDATCT(2,RPRU),@CH00102 0591 00171000 * PRUTIC=INVALTIC; /* SET UP INVALID TIC @Y17XAR5*/ 00172000 MVC PRUTIC(4,RPRU),@CB02709 0592 00173000 * BDUHEADR='1'B; /* TURN ON HDR FLAG @Y17XAR5*/ 00174000 OI BDUHEADR+12(RPRU),B'01000000' 0593 00175000 * OCWTG=MODT0; /* SET UP RETURN TO T0 @Y17XAR5*/ 00176000 MVC OCWTG(2,@03),MODT0 0594 00177000 * OCACTREQ='1'B; /* YES- INDICATE IN OPCE @Y17XAR5*/ 00178000 OI OCACTREQ(@03),B'00001000' 0595 00179000 * OCPTRSAV=INVALTIC; /* INDICATE NO SAVED BUFFERS YET 00180000 * @Y17XAR5*/ 00181000 MVC OCPTRSAV(4,@03),@CF02709 0596 00182000 * REG14=SAVERET1; /* RESTORE RETURN REG @Y17XAR5*/ 00183000 L REG14,SAVERET1(,@06) 0597 00184000 * RETURN; 0598 00185000 @EL00001 DS 0H 0598 00186000 @EF00001 DS 0H 0598 00187000 @ER00001 BR @14 0598 00188000 *ERREXIT: /* YES @Y17XAR5*/ 00189000 * OCUNIT=INVALTIC; /* SET UP INVALID TIC @Y17XAR5*/ 00190000 ERREXIT L @03,OPCCOPCE(,ROPCAVT) 0599 00191000 MVC OCUNIT(4,@03),@CF02709 0599 00192000 * PARAM->WVERB=RNRETCD; /* RETURN FROM 3705 SERVICE 0600 00193000 * ROUTINE FLAG @G36XRRU*/ 00194000 MVI WVERB(PARAM),X'FF' 0600 00195000 * OPCLDNME=MODNAMEA; /* XCTL MODULE NAME @G36XRRU*/ 00196000 MVC OPCLDNME(8,ROPCAVT),MODNAMEA 0601 00197000 * PARAM->WRTCD=BADRSP; /* SAVE RETURN CODE @G36XRRU*/ 00198000 MVI WRTCD(PARAM),X'1C' 0602 00199000 * GO TO XCTL; /* RETURN TO APPLICATION @Y17XAR5*/ 00200000 B XCTL 0603 00201000 *ANSWER: 0604 00202000 * 0604 00203000 * /*****************************************************************/ 00204000 * /* */ 00205000 * /* THIS ROUTINE PROCESSES RESPONSES @Y17XAR5*/ 00206000 * /* */ 00207000 * /*****************************************************************/ 00208000 * 0604 00209000 * CALL CIBLOOP; /* SEARCH FOR CIB @21M*/ 00210000 ANSWER BAL @14,CIBLOOP 0604 00211000 * IF NOCIB='1'B THEN 0605 00212000 TM NOCIB(ROPCAVT),B'01000000' 0605 00213000 BO @RT00605 0605 00214000 * GOTO FREEOPCE; /* IF NO CIB, FREE OPCE AND UNITS 00215000 * @21M*/ 00216000 * IF(ELMNT->WANSCD>TCHNG1A& /* IF FIRST PASS OF @24A*/ 00217000 * ELMNT->WANSCD<=TCHNG1B) /* @24A*/ 00218000 * THEN 0607 00219000 SLR @05,@05 0607 00220000 ICM @05,7,ELMNT(ROPCAVT) 0607 00221000 CLI WANSCD(@05),7 0607 00222000 BNH @RF00607 0607 00223000 CLI WANSCD(@05),11 0607 00224000 BH @RF00607 0607 00225000 * DO; /* TCHNG DO NOT @ZM46809 00226000 * DEQUEUE CIB @ZM46809*/ 00227000 * ELMNT->WENTCD=ELMNT->WANSCD;/* SET ANSWER CODE @24C*/ 00228000 MVC WENTCD(1,@05),WANSCD(@05) 0609 00229000 * GOTO BRANCH; /* PROCESS RESPONSE @ZM46809*/ 00230000 B BRANCH 0610 00231000 * END; 0611 00232000 * IF ELMNT->WANSCD=TCHNG2| /* IS THIS SECOND TCHNG @24C*/ 00233000 * ELMNT->WANSCD=ICOPY| /* IS THIS ICOPY @23C*/ 00234000 * ELMNT->WANSCD=TCOPY /* IS THIS TCOPY @23C*/ 00235000 * THEN 0612 00236000 @RF00607 SLR @06,@06 0612 00237000 ICM @06,7,ELMNT(ROPCAVT) 0612 00238000 CLI WANSCD(@06),12 0612 00239000 BE @RT00612 0612 00240000 CLI WANSCD(@06),4 0612 00241000 BE @RT00612 0612 00242000 CLI WANSCD(@06),0 0612 00243000 BNE @RF00612 0612 00244000 @RT00612 DS 0H 0613 00245000 * DO; 0613 00246000 * PARAM->WLINK=ELMNT->WLINK; /* TAKE CIB OFF CHAIN S05331*/ 00247000 SLR @09,@09 0614 00248000 ICM @09,7,ELMNT(ROPCAVT) 0614 00249000 MVC WLINK(3,PARAM),WLINK(@09) 0614 00250000 * END; /* @Y17XAR5*/ 00251000 * ELSE 0616 00252000 * ELMNT=OCCIB; /* SETUP CIB ADDRESS @22C*/ 00253000 B @RC00612 0616 00254000 @RF00612 L @10,OPCCOPCE(,ROPCAVT) 0616 00255000 MVC ELMNT(3,ROPCAVT),OCCIB+1(@10) 0616 00256000 * ELMNT->WENTCD=ELMNT->WANSCD; /* SET ANSWER CODE */ 00257000 @RC00612 SLR @03,@03 0617 00258000 ICM @03,7,ELMNT(ROPCAVT) 0617 00259000 MVC WENTCD(1,@03),WANSCD(@03) 0617 00260000 * RFY 0618 00261000 * RWORK RSTD; /* @Y17XAR5*/ 00262000 *BRANCH: /* @ZM46809*/ 00263000 * RWORK=ELMNT->WENTCD; /* GET ANSWER CODE @Y17XAR5*/ 00264000 BRANCH SLR @05,@05 0619 00265000 ICM @05,7,ELMNT(ROPCAVT) 0619 00266000 SLR RWORK,RWORK 0619 00267000 IC RWORK,WENTCD(,@05) 0619 00268000 * PARAM=ELMNT; /* SET TO CORRECT CIB @24A*/ 00269000 LR PARAM,@05 0620 00270000 * SRL(RWORK,2); /* SHIFT OUT FLAGS @Y17XAR5*/ 00271000 SRL RWORK,2 0621 00272000 * SLL(RWORK,2); /* RESTORE CODE VALUE @Y17XAR5*/ 00273000 SLL RWORK,2 0622 00274000 * GEN; 0623 00275000 B BRANCHA(RWORK) /* BRANCH TO PROPER ROUTINE */ 00276000 BRANCHA EQU * 00277000 B ATCOPY /* TCOPY RESPONSE ROUTINE */ 00278000 B AICOPY /* ICOPY RESPONSE ROUTINE */ 00279000 B ATCHNG1 /* TCHNG RESPONSE 1 ROUTINE */ 00280000 B ATCHNG2 /* TCHNG RESPONSE 2 ROUTINE */ 00281000 B AICHNG1 /* ICHNG RESPONSE 1 ROUTINE */ 00282000 B AICHNG2 /* ICHNG RESPONSE 2 ROUTINE */ 00283000 * RFY 0624 00284000 * RWORK UNRSTD; /* @Y17XAR5*/ 00285000 *FREEOPCE: /* @Y17XAR5*/ 00286000 * CALL CHAINBUF; /* CHAIN SAVED BUFFS TO OPCE 0625 00287000 * @Y17XAR5*/ 00288000 FREEOPCE BAL @14,CHAINBUF 0625 00289000 * REG1=OPCCOPCE; /* SET UP TO FREE OPCE @Y17XAR5*/ 00290000 L REG1,OPCCOPCE(,ROPCAVT) 0626 00291000 * CALL FREEBUFF; /* FREE OPCE @Y17XAR5*/ 00292000 L @15,OPCFREBF(,ROPCAVT) 0627 00293000 BALR @14,@15 0627 00294000 * REG0=ZERO; /* SETUP FOR NEXT MOD @Y17XAR5*/ 00295000 SLR REG0,REG0 0628 00296000 * OPCMODID=MOD00; /* SETUP NEXT MOD ID @Y17XAR5*/ 00297000 MVC OPCMODID(2,ROPCAVT),MOD00 0629 00298000 * GOTO XCTL; /* XCTL TO NEXT MOD @Y17XAR5*/ 00299000 B XCTL 0630 00300000 *COMPLETE: 0631 00301000 * IF REG1->OCATTACH='1'B THEN 0631 00302000 COMPLETE TM OCATTACH(REG1),B'00000010' 0631 00303000 BNO @RF00631 0631 00304000 * DO; /* ARE THERE ATTACHED OPCES? 0632 00305000 * @Y17XAR5*/ 00306000 * OPCNEXT=REG1->OCELEM; /* CHAIN OPCES TO OP CTL AVT 0633 00307000 * @Y17XAR5*/ 00308000 MVC OPCNEXT(4,ROPCAVT),OCELEM(REG1) 0633 00309000 * REG1->OCELEM=ZERO; /* DETACH OPCES @Y17XAR5*/ 00310000 SLR @03,@03 0634 00311000 ST @03,OCELEM(,REG1) 0634 00312000 * REG1->OCATTACH='0'B; /* INDICATE NO ATTACHED OPCES 0635 00313000 * @Y17XAR5*/ 00314000 NI OCATTACH(REG1),B'11111101' 0635 00315000 * END; /* @Y17XAR5*/ 00316000 * CALL FREEBUFF; /* FREE START/STOP OPCE @Y17XAR5*/ 00317000 @RF00631 L @15,OPCFREBF(,ROPCAVT) 0637 00318000 BALR @14,@15 0637 00319000 * CALL CIBLOOP; /* SEARCH FOR CIB @Y17XAR5*/ 00320000 BAL @14,CIBLOOP 0638 00321000 * IF NOCIB='1'B THEN 0639 00322000 TM NOCIB(ROPCAVT),B'01000000' 0639 00323000 BO @RT00639 0639 00324000 * GOTO FREEOPCE; /* IF NO CIB FOUND,FREE OPCE 0640 00325000 * @Y17XAR5*/ 00326000 * PARAM->WLINK=ELMNT->WLINK; /* DEQUEUE THE CIB @Y17XAR5*/ 00327000 SLR @03,@03 0641 00328000 ICM @03,7,ELMNT(ROPCAVT) 0641 00329000 MVC WLINK(3,PARAM),WLINK(@03) 0641 00330000 *ATCHNG2: 0642 00331000 * RPRU=OCUNIT; /* SET UP RU POINTER @Y17XAR5*/ 00332000 ATCHNG2 L @05,OPCCOPCE(,ROPCAVT) 0642 00333000 L RPRU,OCUNIT(,@05) 0642 00334000 * GEN REFS(RPRU,ROPCAVT,OPCHNEND); 0643 00335000 EX RPRU,OPCHNEND(ROPCAVT) IS THIS END OF UNIT 00336000 * BC(SEVEN,BADRU); /* YES, ERROR @Y17XAR5*/ 00337000 BC 7,BADRU 0644 00338000 * IF PRURHSDI='1'B|BDUSYRSP^=GOODRSP/* IF BAD RESPONSE */ 00339000 * |ELMNT->WRTCD^=ZERO THEN 0645 00340000 LR @09,RPRU 0645 00341000 AL @09,@CF02865 0645 00342000 TM PRURHSDI(@09),B'00000100' 0645 00343000 BO @RT00645 0645 00344000 CLI BDUSYRSP+12(RPRU),X'60' 0645 00345000 BNE @RT00645 0645 00346000 SLR @10,@10 0645 00347000 ICM @10,7,ELMNT(ROPCAVT) 0645 00348000 CLI WRTCD(@10),0 0645 00349000 BNE @RT00645 0645 00350000 * GOTO BADRU; /* GO FREE BUFFERS @Y17XAR5*/ 00351000 * ELSE 0647 00352000 * GOTO GOODRESP; /* PROCESS GOOD RESPONSE @Y17XAR5*/ 00353000 B GOODRESP 0647 00354000 *BADRU: /* @Y17XAR5*/ 00355000 * CALL CHAINBUF; /* CHAIN SAVED BUFFS TO OPCE 0648 00356000 * @Y17XAR5*/ 00357000 BADRU BAL @14,CHAINBUF 0648 00358000 * REG0=BADRSP; /* SETUP BAD RET CODE @Y17XAR5*/ 00359000 LA REG0,28 0649 00360000 * OPCLDNME=MODNAME7; /* SETUP FOR NEXT MOD @Y17XAR5*/ 00361000 MVC OPCLDNME(8,ROPCAVT),MODNAME7 0650 00362000 * GO TO XCTL; /* RETURN TO APPLICATION @Y17XAR5*/ 00363000 B XCTL 0651 00364000 *GOODRESP: /* @Y17XAR5*/ 00365000 * REG1=OCUNIT; /* SET UP TO FREE RU @Y17XAR5*/ 00366000 GOODRESP L @03,OPCCOPCE(,ROPCAVT) 0652 00367000 L REG1,OCUNIT(,@03) 0652 00368000 * CALL FREEBUFF; /* FREE RU @Y17XAR5*/ 00369000 L @15,OPCFREBF(,ROPCAVT) 0653 00370000 BALR @14,@15 0653 00371000 * OCUNIT=OCPTRSAV; /* SETUP CHECKPOINT SAVED BUFFERS 00372000 * @YM08026*/ 00373000 L @03,OPCCOPCE(,ROPCAVT) 0654 00374000 L @05,OCPTRSAV(,@03) 0654 00375000 ST @05,OCUNIT(,@03) 0654 00376000 * REG1=OCPTRSAV; /* ANY SAVED BUFFERS? @Y17XARW*/ 00377000 LR REG1,@05 0655 00378000 * GEN REFS(REG1,ROPCAVT,OPCHNEND); 0656 00379000 EX REG1,OPCHNEND(ROPCAVT) IS THIS END OF UNIT 00380000 * BC(SEVEN,NOCHEKPT); /* YES, NO SAVED BUFFS-RETURN TO 00381000 * APPL @Y17XAR5*/ 00382000 BC 7,NOCHEKPT 0657 00383000 * OCWTG=MOD07; /* SET UP WHERE-TO-GO @Y17XAR5*/ 00384000 L @06,OPCCOPCE(,ROPCAVT) 0658 00385000 MVC OCWTG(2,@06),MOD07 0658 00386000 * REG0=ZERO; /* SETUP FOR CHECKPOINT @Y17XARW*/ 00387000 SLR REG0,REG0 0659 00388000 * OCPARM=ZERO; /* @Y17XAR5*/ 00389000 SLR @03,@03 0660 00390000 STH @03,OCPARM(,@06) 0660 00391000 * IF OCOPTCDE^=OCICHNG THEN /* IF THIS IS NOT ICHNG @Y17XAR5*/ 00392000 CLI OCOPTCDE(@06),X'49' 0661 00393000 BE @RF00661 0661 00394000 * OCOPTCDE=OCTCHNG; /* IT MUST BE A TCHNG ENTRY 0662 00395000 * @Y17XAR5*/ 00396000 MVI OCOPTCDE(@06),X'56' 0662 00397000 * REG1=WTNTNDX; /* PASS TTCIN AS PARM @ZM46777*/ 00398000 @RF00661 LH REG1,WTNTNDX(,PARAM) 0663 00399000 * GEN( LINK EP=IEDQNB02); /* CHECKPOINT RESOURCE @ZM46777*/ 00400000 LINK EP=IEDQNB02 00401000 * OPCLDNME=MODNAME5; /* SETUP FOR NEXT MOD @Y17XAR5*/ 00402000 MVC OPCLDNME(8,ROPCAVT),MODNAME5 0665 00403000 * GO TO XCTL; /* GOTO CHECKPOINT @Y17XAR5*/ 00404000 B XCTL 0666 00405000 *NOCHEKPT: 0667 00406000 * OCWTG=ZERO; /* CLEAR WHERE-TO-GO @Y17XAR5*/ 00407000 NOCHEKPT L @03,OPCCOPCE(,ROPCAVT) 0667 00408000 SLR @05,@05 0667 00409000 STH @05,OCWTG(,@03) 0667 00410000 * REG0=ZERO; /* SETUP GOOD RETURN @Y17XAR5*/ 00411000 SLR REG0,REG0 0668 00412000 * OPCMODID=MOD07; /* SETUP NEXT MOD @Y17XAR5*/ 00413000 MVC OPCMODID(2,ROPCAVT),MOD07 0669 00414000 * GOTO XCTL; /* GO XCTL @Y17XAR5*/ 00415000 B XCTL 0670 00416000 *AICHNG2: 0671 00417000 * RFY 0671 00418000 * RWORK RSTD; /* @Y17XAR5*/ 00419000 AICHNG2 DS 0H 0672 00420000 */* SEARCH FOR START/STOP OPCE ON THE WAITL CHAIN @Y17XAR5*/ 00421000 * 0672 00422000 * RWORK=ADDR(OPCWAITV); /* SETUP ADDR OF WAITV CHAIN 0672 00423000 * @Y17XAR5*/ 00424000 LA RWORK,OPCWAITV(,ROPCAVT) 0672 00425000 * REG1=OPCWAITV; /* GET FIRST ELEM ON CHAIN 0673 00426000 * @Y17XAR5*/ 00427000 L REG1,OPCWAITV(,ROPCAVT) 0673 00428000 * SEARCH='1'B; /* INDICATE SEARCH IN PROGRSS 0674 00429000 * @Y17XAR5*/ 00430000 OI SEARCH(ROPCAVT),B'00100000' 0674 00431000 * DO WHILE(SEARCH='1'B); /* FIND START/STOP OPCE @Y17XAR5*/ 00432000 B @DE00675 0675 00433000 @DL00675 DS 0H 0676 00434000 * IF REG1->OCCIB=OPCCOPCE THEN 0676 00435000 CLC OCCIB(4,REG1),OPCCOPCE(ROPCAVT) 0676 00436000 BNE @RF00676 0676 00437000 * SEARCH='0'B; /* IF FOUND A MATCH @Y17XAR5*/ 00438000 NI SEARCH(ROPCAVT),B'11011111' 0677 00439000 * ELSE 0678 00440000 * DO; /* SETUP TO CHECK NEXT OPCE 0678 00441000 * @Y17XAR5*/ 00442000 B @RC00676 0678 00443000 @RF00676 DS 0H 0679 00444000 * RWORK=REG1; /* SAVE PREVIOUS OPCE @Y17XAR5*/ 00445000 LR RWORK,REG1 0679 00446000 * REG1=REG1->OCLINK; /* POINT TO NEXT OPCE @Y17XAR5*/ 00447000 L REG1,OCLINK(,REG1) 0680 00448000 * END; /* @Y17XAR5*/ 00449000 * END; /* @Y17XAR5*/ 00450000 @RC00676 DS 0H 0682 00451000 @DE00675 TM SEARCH(ROPCAVT),B'00100000' 0682 00452000 BO @DL00675 0682 00453000 * RWORK->OCLINK=REG1->OCLINK; /* DELINK START/STOP OPCE 0683 00454000 * @Y17XAR5*/ 00455000 MVC OCLINK(4,RWORK),OCLINK(REG1) 0683 00456000 * RFY 0684 00457000 * RWORK UNRSTD; /* @Y17XAR5*/ 00458000 * IF REG1->OCSWITCH=OCVARON THEN 0685 00459000 CLI OCSWITCH(REG1),X'D1' 0685 00460000 BNE @RF00685 0685 00461000 * DO; /* SHOULD LINE BE RESTARTED? 0686 00462000 * @Y17XAR5*/ 00463000 * OPCCOPCE=REG1; /* SETUP ADDR OF START/STOP OPCE 00464000 * @Y17XAR5*/ 00465000 ST REG1,OPCCOPCE(,ROPCAVT) 0687 00466000 * OCRESP='0'B; /* CLEAR RESPONSE FIELD @Y17XAR5*/ 00467000 L @03,OPCCOPCE(,ROPCAVT) 0688 00468000 NI OCRESP(@03),B'11111110' 0688 00469000 * OCPARM=ZERO; /* CLEAR PARM FIELD @Y17XAR5*/ 00470000 SLR @05,@05 0689 00471000 STH @05,OCPARM(,@03) 0689 00472000 * OCWTG=MODT0; /* SETUP WHERE-TO-GO @Y17XAR5*/ 00473000 MVC OCWTG(2,@03),MODT0 0690 00474000 * OCALSTAT=ZERO; /* CLEAR 'ALL' STATUS FIELD 0691 00475000 * @Y17XAR5*/ 00476000 MVI OCALSTAT(@03),X'00' 0691 00477000 * OCELMPRI=ZERO; /* CLEAR PRIORITY FIELD @Y17XAR5*/ 00478000 MVI OCELMPRI(@03),X'00' 0692 00479000 * OPCMODID=MODVI; /* XCTL TO NEXT MOD @Y17XAR5*/ 00480000 MVC OPCMODID(2,ROPCAVT),MODVI 0693 00481000 * GOTO XCTL; /* XCTL TO NEXT MOD @Y17XAR5*/ 00482000 B XCTL 0694 00483000 * END; /* @Y17XAR5*/ 00484000 * ELSE /* COMPLETE ICHNG PROCESS 0696 00485000 * @Y17XAR5*/ 00486000 * GOTO COMPLETE; /* COMPLETE ICHNG PROCESSING 0696 00487000 * @Y17XAR5*/ 00488000 *AICHNG1: 0697 00489000 * OPCLDNME=MODNAME3; /* SET NAME FOR XCTL @Y17XAR5*/ 00490000 AICHNG1 MVC OPCLDNME(8,ROPCAVT),MODNAME3 0697 00491000 * REG0=0; /* INDICATE ENTRY FROM T0 */ 00492000 SLR REG0,REG0 0698 00493000 * GOTO XCTL; 0699 00494000 B XCTL 0699 00495000 *AICOPY: 0700 00496000 * OPCLDNME=MODNAME2; /* SET NAME FOR XCTL */ 00497000 AICOPY MVC OPCLDNME(8,ROPCAVT),MODNAME2 0700 00498000 * GO TO XCTL; 0701 00499000 B XCTL 0701 00500000 *ATCOPY: 0702 00501000 *ATCHNG1: 0702 00502000 * OPCLDNME=MODNAME1; /* SET NAME FOR XCTL */ 00503000 ATCOPY DS 0H 0702 00504000 ATCHNG1 MVC OPCLDNME(8,ROPCAVT),MODNAME1 0702 00505000 *XCTL: 0703 00506000 * OPCFLAG1=ZERO; /* CLEAR FLAGS @Y17XAR5*/ 00507000 XCTL MVI OPCFLAG1(ROPCAVT),X'00' 0703 00508000 * REG1=ROPCAVT; /* OP CTL AVT ADDRESS @Y17XAR5*/ 00509000 LR REG1,ROPCAVT 0704 00510000 * DO; /* IEDXCTL */ 00511000 * GEN EXIT REFS(ROPCAVT,OPCTRACE,OPCXCTL) NOSEQFLOW; 0706 00512000 * /* 00513000 LA 15,OPCXCTL(,ROPCAVT) POINT TO OPCXCTL LIST 00514000 EX 0,OPCTRACE(,ROPCAVT) INVOKE XCTL TRACE 00515000 XCTL SF=(E,(15)) XCTL TO NEXT MODULE 00516000 * END; /* END OF IEDXCTL @OZ35627*/ 00517000 *CHK3705: /* @Y17XAR5*/ 00518000 * 0708 00519000 * /*****************************************************************/ 00520000 * /* */ 00521000 * /* THIS ROUTINE GETS THE NCP TTE FOR THE DEVICE AND CHECKS STATUS*/ 00522000 * /* OF NCP @Y17XAR5*/ 00523000 * /* */ 00524000 * /*****************************************************************/ 00525000 * 0708 00526000 * RFY 0708 00527000 * REG14 RSTD; /* @Y17XAR5*/ 00528000 CHK3705 DS 0H 0709 00529000 * SAVERET2=REG14; /* SAVE RETURN REG @Y17XAR5*/ 00530000 L @03,OPCWORK(,ROPCAVT) 0709 00531000 ST REG14,SAVERET2(,@03) 0709 00532000 * RFY 0710 00533000 * REG14 UNRSTD; /* @Y17XAR5*/ 00534000 * RFY 0711 00535000 * REG15 RSTD; /* @Y17XAR5*/ 00536000 * IF TRMCOHRT=ZERO THEN 0712 00537000 L @05,RTRM(,ROPCAVT) 0712 00538000 ICM @06,3,TRMCOHRT(@05) 0712 00539000 BNZ @RF00712 0712 00540000 * DO; /* IF TTE NOT IN HIERARCHY USE 0713 00541000 * NETWRK ADDR TO FIND NCP TTE 0713 00542000 * @Y17XARW*/ 00543000 * IF TRMTYPE=TRMNSDLC THEN 0714 00544000 CLI TRMTYPE(@05),X'20' 0714 00545000 BNE @RF00714 0714 00546000 * ERRFLG='1'B; /* IF THIS IS A LINE, ERROR 0715 00547000 * @Y17XAR5*/ 00548000 OI ERRFLG(ROPCAVT),B'10000000' 0715 00549000 * ELSE 0716 00550000 * DO; /* @Y17XAR5*/ 00551000 B @RC00714 0716 00552000 @RF00714 DS 0H 0717 00553000 * REG1=TNTNDX; /* SET UP TO GET NA @Y17XAR5*/ 00554000 L @09,OPCWORK(,ROPCAVT) 0717 00555000 LH REG1,TNTNDX(,@09) 0717 00556000 * CALL IEDIAP04; /* @Y17XAR5*/ 00557000 L @03,AVTSAVTP(,AVT) 0718 00558000 L @15,SAVTTNTX(,@03) 0718 00559000 BALR @14,@15 0718 00560000 * IF REG15=0 THEN /* IS NCP INACTIVE? @Y17XAR5*/ 00561000 LTR REG15,REG15 0719 00562000 BNZ @RF00719 0719 00563000 * ERRFLG='1'B; /* YES @Y17XAR5*/ 00564000 OI ERRFLG(ROPCAVT),B'10000000' 0720 00565000 * ELSE 0721 00566000 * DO; /* NO @Y17XAR5*/ 00567000 B @RC00719 0721 00568000 @RF00719 DS 0H 0722 00569000 * SALEN='10'X-SAVTSUBL;/* GET LENGTH OF SUBAREA 0722 00570000 * @Y17XAR5*/ 00571000 L @03,OPCWORK(,ROPCAVT) 0722 00572000 L @05,AVTSAVTP(,AVT) 0722 00573000 LA @06,16 0722 00574000 SLR @09,@09 0722 00575000 IC @09,SAVTSUBL(,@05) 0722 00576000 SLR @06,@09 0722 00577000 ST @06,SALEN(,@03) 0722 00578000 * SRL(REG15,SALEN); /* SHIFT OUT NA TO GET SUBAREA 0723 00579000 * @Y17XAR5*/ 00580000 SRL REG15,0(@06) 0723 00581000 * RSAT=SAVTSAT+(LENGTH(IEDSATD)*(REG15-1));/* FIND SAT 00582000 * ENTRY @Y17XAR5*/ 00583000 LR @10,REG15 0724 00584000 BCTR @10,0 0724 00585000 SLA @10,3 0724 00586000 AL @10,SAVTSAT(,@05) 0724 00587000 STCM @10,7,RSAT(@03) 0724 00588000 * LCB=SATRNLCB; /* GET LCB ADDRESS @Y17XAR5*/ 00589000 L @14,SATRNLCB(,@10) 0725 00590000 STCM @14,7,LCB(@03) 0725 00591000 * IF LCB^=0 THEN 0726 00592000 LTR @14,@14 0726 00593000 BZ @RF00726 0726 00594000 * DO; /* IS THERE AN LCB @Y17XAR5*/ 00595000 * REG1=LCBTTCIN; /* YES -SET UP TO FIND NCP TTE 0728 00596000 * @Y17XAR5*/ 00597000 SLR REG1,REG1 0728 00598000 ICM REG1,3,LCBTTCIN(@14) 0728 00599000 * CALL IEDQTNT; /* @Y17XAR5*/ 00600000 L @15,AVTRNMPT(,AVT) 0729 00601000 BALR @14,@15 0729 00602000 * END; /* @Y17XAR5*/ 00603000 * ELSE 0731 00604000 * ERRFLG='1'B; /* NO LCB @Y17XAR5*/ 00605000 B @RC00726 0731 00606000 @RF00726 OI ERRFLG(ROPCAVT),B'10000000' 0731 00607000 * END; /* @Y17XAR5*/ 00608000 * END; /* @Y17XAR5*/ 00609000 * END; /* @Y17XAR5*/ 00610000 * ELSE 0735 00611000 * DO; /* @Y17XAR5*/ 00612000 B @RC00712 0735 00613000 @RF00712 DS 0H 0736 00614000 * RFY 0736 00615000 * REG15 UNRSTD; /* @Y17XAR5*/ 00616000 * SAVETTE=RTRM; /* SAVE TTE BASE @Y17XAR5*/ 00617000 L @03,OPCWORK(,ROPCAVT) 0737 00618000 L @05,RTRM(,ROPCAVT) 0737 00619000 ST @05,SAVETTE(,@03) 0737 00620000 * REG1=RTRM+LENGTH(IEDNTRM); /* SETUP TO FIND NCP TTE @Y17XAR5*/ 00621000 LA @05,32(,@05) 0738 00622000 LR REG1,@05 0738 00623000 * DO UNTIL(TRMTYPE>=TRMNCPLO&TRMTYPE<=TRMNCPHI);/* FIND NCP TTE 00624000 * @22C*/ 00625000 @DL00739 DS 0H 0740 00626000 * CALL COHORTLK; /* @Y17XAR5*/ 00627000 L @15,OPCHORT(,ROPCAVT) 0740 00628000 BALR @14,@15 0740 00629000 * RTRM=REG1-LENGTH(IEDNTRM);/* SETUP TTE BASE @Y17XAR5*/ 00630000 LR @03,REG1 0741 00631000 SH @03,@CH00066 0741 00632000 ST @03,RTRM(,ROPCAVT) 0741 00633000 * END; /* @Y17XAR5*/ 00634000 CLI TRMTYPE(@03),X'01' 0742 00635000 BL @DL00739 0742 00636000 CLI TRMTYPE(@03),X'0F' 0742 00637000 BH @DL00739 0742 00638000 @DE00739 DS 0H 0742 00639000 @DC00739 DS 0H 0743 00640000 * RTRM=SAVETTE; /* RESTORE TTE BASE @Y17XAR5*/ 00641000 L @05,OPCWORK(,ROPCAVT) 0743 00642000 MVC RTRM(4,ROPCAVT),SAVETTE(@05) 0743 00643000 * END; /* @Y17XAR5*/ 00644000 * IF ERRFLG='0'B THEN 0745 00645000 @RC00712 TM ERRFLG(ROPCAVT),B'10000000' 0745 00646000 BNZ @RF00745 0745 00647000 * DO; /* @Y17XAR5*/ 00648000 * REG1=REG1-LENGTH(IEDNTRM); /* ADJUST TTE @Y17XAR5*/ 00649000 SH REG1,@CH00066 0747 00650000 * IF REG1->TRMRSACT='0'B|REG1->TRMINPG='1'B THEN/* IF NCP NOT 00651000 * ACTIVE OR ACT/DEACT IN 0748 00652000 * PROGRESS @Y17XAR5*/ 00653000 TM TRMINPG(REG1),B'00100000' 0748 00654000 BNZ @RT00748 0748 00655000 TM TRMRSACT(REG1),B'10000000' 0748 00656000 BO @RF00748 0748 00657000 @RT00748 DS 0H 0749 00658000 * ERRFLG='1'B; /* SETUP ERROR FLAG @Y17XAR5*/ 00659000 OI ERRFLG(ROPCAVT),B'10000000' 0749 00660000 * END; 0750 00661000 @RF00748 DS 0H 0751 00662000 * REG14=SAVERET2; /* RESTORE RETURN REG @Y17XAR5*/ 00663000 @RF00745 L @06,OPCWORK(,ROPCAVT) 0751 00664000 L REG14,SAVERET2(,@06) 0751 00665000 * RETURN; /* @Y17XAR5*/ 00666000 B @EL00001 0752 00667000 *CIBLOOP: /* @Y17XAR5*/ 00668000 * 0753 00669000 * /*****************************************************************/ 00670000 * /* */ 00671000 * /* THIS ROUTINE SCANS THE CIB CHAIN FOR ORIGINAL APPLICATION CIB.*/ 00672000 * /* IF CIB FOUND, CIB ADDRESS WILL BE STORED IN ELMNT. @Y17XAR5*/ 00673000 * /* */ 00674000 * /*****************************************************************/ 00675000 * 0753 00676000 * RFY 0753 00677000 * REG14 RSTD; 0753 00678000 CIBLOOP DS 0H 0754 00679000 * PARAM=ADDR(SAVTRQCH)-4; /* INITIALIZE FOR LOOP S05331*/ 00680000 L PARAM,AVTSAVTP(,AVT) 0754 00681000 LA PARAM,SAVTRQCH(,PARAM) 0754 00682000 SH PARAM,@CH00284 0754 00683000 *SRCHLOOP: /* S05331*/ 00684000 * ELMNT=PARAM->WLINK; /* GET NEXT CIB ADDR S05331*/ 00685000 SRCHLOOP MVC ELMNT(3,ROPCAVT),WLINK(PARAM) 0755 00686000 * IF ELMNT=ZERO THEN /* END OF CHAIN? @Y17XAR5*/ 00687000 ICM @09,7,ELMNT(ROPCAVT) 0756 00688000 BNZ @RF00756 0756 00689000 * NOCIB='1'B; /* YES - FREE OPCE AND UNIT 0757 00690000 * @Y17XAR5*/ 00691000 OI NOCIB(ROPCAVT),B'01000000' 0757 00692000 * ELSE 0758 00693000 * DO; /* ELSE CONTINUE SEARCH @Y17XAR5*/ 00694000 B @RC00756 0758 00695000 @RF00756 DS 0H 0759 00696000 * IF ELMNT=OCCIB THEN /* FOUND CIB? @Y17XAR5*/ 00697000 SLR @10,@10 0759 00698000 ICM @10,7,ELMNT(ROPCAVT) 0759 00699000 L @15,OPCCOPCE(,ROPCAVT) 0759 00700000 C @10,OCCIB(,@15) 0759 00701000 BE @RT00759 0759 00702000 * GO TO FOUND; /* BRANCH IF YES S05331*/ 00703000 * PARAM=ELMNT; /* UPDATE PREV CIB ADDRS05331 */ 00704000 LR PARAM,@10 0761 00705000 * GO TO SRCHLOOP; 0762 00706000 B SRCHLOOP 0762 00707000 * END; /* @Y17XAR5*/ 00708000 *FOUND: 0764 00709000 * RFY 0764 00710000 * REG14 UNRSTD; 0764 00711000 * RETURN; /* @Y17XAR5*/ 00712000 B @EL00001 0765 00713000 *CHAINBUF: 0766 00714000 * 0766 00715000 * /*****************************************************************/ 00716000 * /* */ 00717000 * /* THIS ROUTINE CHECKS TO SEE IF THERE ARE ANY SAVED BUFFERS */ 00718000 * /* CONTAINING COPIED LINE/DEVICE INFO. IF SO, THE BUFFERS ARE */ 00719000 * /* CHAINED OFF THE LAST RESPONSE UNIT LINKED TO OCUNIT IN THE */ 00720000 * /* OPCE. A RETURN IS THEN MADE TO FREE THE BUFFERS. @Y17XAR5*/ 00721000 * /* */ 00722000 * /*****************************************************************/ 00723000 * 0766 00724000 * RFY 0766 00725000 * REG14 RSTD; 0766 00726000 CHAINBUF DS 0H 0767 00727000 * REG1=OCPTRSAV; /* SETUP PTR TO SAVED BUFFS 0767 00728000 * @Y17XAR5*/ 00729000 L @03,OPCCOPCE(,ROPCAVT) 0767 00730000 L REG1,OCPTRSAV(,@03) 0767 00731000 * GEN REFS(REG1,ROPCAVT,OPCHNEND); 0768 00732000 EX REG1,OPCHNEND(ROPCAVT) IS THIS END OF UNIT 00733000 * BC(SEVEN,NOSAVED); /* IF SO, NO SAVED BUFFS @Y17XAR5*/ 00734000 BC 7,NOSAVED 0769 00735000 * PREVADDR=OPCCOPCE; /* POINT TO OPCE @Y17XAR5*/ 00736000 L @03,OPCCOPCE(,ROPCAVT) 0770 00737000 ST @03,PREVADDR(,ROPCAVT) 0770 00738000 * REG1=OCUNIT; /* SETUP TO FIND LAST UNIT 0771 00739000 * @Y17XAR5*/ 00740000 L REG1,OCUNIT(,@03) 0771 00741000 *FINDLAST: 0772 00742000 * GEN REFS(REG1,ROPCAVT,OPCHNEND); 0772 00743000 FINDLAST DS 0H 0772 00744000 EX REG1,OPCHNEND(ROPCAVT) IS THIS LAST UNIT 00745000 * BC(SEVEN,LASTUNIT); /* IF SO, CHAIN SAVED BUFFS TO 0773 00746000 * THIS UNIT @Y17XAR5*/ 00747000 BC 7,LASTUNIT 0773 00748000 * PREVADDR=REG1; /* SAVE PREVIOUS BUFF ADDR 0774 00749000 * @Y17XAR5*/ 00750000 ST REG1,PREVADDR(,ROPCAVT) 0774 00751000 * REG1=REG1->OCUNIT; /* POINT TO NEXT UNIT @Y17XAR5*/ 00752000 L REG1,OCUNIT(,REG1) 0775 00753000 * GOTO FINDLAST; /* FIND LAST UNIT */ 00754000 B FINDLAST 0776 00755000 *LASTUNIT: 0777 00756000 * PREVADDR->OCUNIT=OCPTRSAV; /* CHAIN SAVED BUFFS TO LAST UNIT 00757000 * @Y17XAR5*/ 00758000 LASTUNIT L @03,PREVADDR(,ROPCAVT) 0777 00759000 L @05,OPCCOPCE(,ROPCAVT) 0777 00760000 MVC OCUNIT(4,@03),OCPTRSAV(@05) 0777 00761000 *NOSAVED: 0778 00762000 * RFY 0778 00763000 * REG14 UNRSTD; 0778 00764000 * RETURN; 0779 00765000 B @EL00001 0779 00766000 * END IGCT010D; 0780 00767000 B @EL00001 0780 00768000 * 0781 00769000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00770000 */*%INCLUDE SYSLIB (TAVTD ) */ 00771000 */*%INCLUDE SYSLIB (TBDUD ) */ 00772000 */*%INCLUDE SYSLIB (TCD0D ) */ 00773000 */*%INCLUDE SYSLIB (TLCBD ) */ 00774000 */*%INCLUDE SYSLIB (TOPCED ) */ 00775000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00776000 */*%INCLUDE SYSLIB (TRHD ) */ 00777000 */*%INCLUDE SYSLIB (TTHD ) */ 00778000 */*%INCLUDE SYSLIB (TTRMD ) */ 00779000 */*%INCLUDE SYSLIB (TPRUD ) */ 00780000 */*%INCLUDE SYSLIB (TSATD ) */ 00781000 @DATA DS 0H 00782000 @CH00284 DC H'4' 00783000 @CH00102 DC H'6' 00784000 @CH00068 DC H'8' 00785000 @CH00066 DC H'32' 00786000 DS 0F 00787000 DS 0F 00788000 @CF02865 DC F'-8' 00789000 @CF02709 DC XL4'08000002' 00790000 DS 0D 00791000 @CB02709 DC X'08000002' 00792000 @CB02216 DC X'0B8000' 00793000 MODT0 DC CL2'T0' 00794000 MODVI DC CL2'VI' 00795000 MOD00 DC CL2'00' 00796000 MOD02 DC CL2'02' 00797000 MOD07 DC CL2'07' 00798000 MODNAMEA DC CL8'IGC0A10D' 00799000 MODNAME1 DC CL8'IGCT110D' 00800000 MODNAME2 DC CL8'IGCT210D' 00801000 MODNAME3 DC CL8'IGCI210D' 00802000 MODNAME5 DC CL8'IGC0610D' 00803000 MODNAME7 DC CL8'IGC0710D' 00804000 DS CL1 00805000 ZAPAREA DC XL104'0' 00806000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00807000 @01 EQU 01 00808000 @02 EQU 02 00809000 @03 EQU 03 00810000 @04 EQU 04 00811000 @05 EQU 05 00812000 @06 EQU 06 00813000 @07 EQU 07 00814000 @08 EQU 08 00815000 @09 EQU 09 00816000 @10 EQU 10 00817000 @11 EQU 11 00818000 @12 EQU 12 00819000 @13 EQU 13 00820000 @14 EQU 14 00821000 @15 EQU 15 00822000 @0 EQU 00 00823000 @1 EQU 01 00824000 @2 EQU 02 00825000 @3 EQU 03 00826000 @4 EQU 04 00827000 @5 EQU 05 00828000 @6 EQU 06 00829000 @7 EQU 07 00830000 @8 EQU 08 00831000 @9 EQU 09 00832000 @A EQU 10 00833000 @B EQU 11 00834000 @C EQU 12 00835000 @D EQU 13 00836000 @E EQU 14 00837000 @F EQU 15 00838000 REG0 EQU @00 00839000 REG1 EQU @01 00840000 ROPCAVT EQU @02 00841000 AVT EQU @04 00842000 RWORK EQU @06 00843000 RPRU EQU @07 00844000 PARAM EQU @08 00845000 RBASE EQU @11 00846000 REG12 EQU @12 00847000 RSAVE EQU @13 00848000 REG14 EQU @14 00849000 REG15 EQU @15 00850000 LCBXPTR EQU @05 00851000 IEDQAPTR EQU 0 00852000 IEDQLPTR EQU 0 00853000 IEDQSATP EQU 0 00854000 IEDPRUQP EQU 0 00855000 ROPCE EQU 0 00856000 IEDQAVTD EQU 0 00857000 AVTSAVEX EQU IEDQAVTD+288 00858000 AVTREADD EQU IEDQAVTD+380 00859000 AVTBUFSW EQU IEDQAVTD+384 00860000 @NM00004 EQU IEDQAVTD+388 00861000 AVTCKFLG EQU @NM00004 00862000 AVTBASE EQU IEDQAVTD+412 00863000 AVTPKF EQU AVTBASE 00864000 AVTRNMPT EQU IEDQAVTD+424 00865000 AVTECBAD EQU IEDQAVTD+492 00866000 AVTPSTFL EQU AVTECBAD 00867000 AVTHG02 EQU IEDQAVTD+528 00868000 AVTDISP EQU IEDQAVTD+552 00869000 AVTHD EQU IEDQAVTD+556 00870000 AVTSCOPT EQU AVTHD 00871000 AVTSAVTP EQU IEDQAVTD+612 00872000 AVTSAVTF EQU AVTSAVTP 00873000 AVTCKPEL EQU IEDQAVTD+652 00874000 AVTCKRMV EQU AVTCKPEL 00875000 AVTCKELF EQU IEDQAVTD+680 00876000 AVTCKBYT EQU IEDQAVTD+691 00877000 AVTHG01 EQU IEDQAVTD+692 00878000 AVTCKLNK EQU IEDQAVTD+696 00879000 AVTCRELE EQU IEDQAVTD+708 00880000 AVTCCELE EQU AVTCRELE 00881000 AVTCLRHI EQU IEDQAVTD+716 00882000 AVTADBUF EQU IEDQAVTD+720 00883000 AVTSYSER EQU IEDQAVTD+728 00884000 AVTBFRFG EQU IEDQAVTD+784 00885000 AVTCKPQB EQU IEDQAVTD+804 00886000 AVTCKPTB EQU AVTCKPQB 00887000 AVTCKPEC EQU AVTCKPQB+4 00888000 AVTCKPCC EQU AVTCKPEC 00889000 AVTOPCQB EQU IEDQAVTD+816 00890000 AVTOPCOB EQU AVTOPCQB 00891000 AVTOPCEC EQU AVTOPCQB+4 00892000 AVTOPCCC EQU AVTOPCEC 00893000 AVTOLTQB EQU IEDQAVTD+828 00894000 AVTCWFL1 EQU IEDQAVTD+924 00895000 AVTCWFL2 EQU IEDQAVTD+925 00896000 AVTSUBT EQU IEDQAVTD+948 00897000 AVTIOTR EQU IEDQAVTD+949 00898000 AVTBIT1 EQU IEDQAVTD+1050 00899000 AVTBIT2 EQU IEDQAVTD+1051 00900000 AVTBIT3 EQU IEDQAVTD+1052 00901000 AVTBIT4 EQU IEDQAVTD+1136 00902000 @NM00078 EQU IEDQAVTD+1232 00903000 AVTBIT5 EQU IEDQAVTD+1280 00904000 IEDNSVTD EQU 0 00905000 SAVTDIAG EQU IEDNSVTD 00906000 SAVTDIAF EQU SAVTDIAG 00907000 SAVTSAT EQU IEDNSVTD+80 00908000 SAVTLUSQ EQU IEDNSVTD+88 00909000 SAVTSCLU EQU IEDNSVTD+168 00910000 SAVTRQCH EQU IEDNSVTD+232 00911000 SAVTTCPU EQU IEDNSVTD+238 00912000 SAVTTNTX EQU IEDNSVTD+252 00913000 SAVTZELM EQU IEDNSVTD+270 00914000 SAVTSUBL EQU IEDNSVTD+272 00915000 SAVTRDRV EQU IEDNSVTD+284 00916000 SAVTCKQB EQU IEDNSVTD+300 00917000 SAVTCKTB EQU SAVTCKQB 00918000 SAVTCKEC EQU SAVTCKQB+4 00919000 SAVTCKCC EQU SAVTCKEC 00920000 SAVTNETF EQU IEDNSVTD+324 00921000 SAVTCDRV EQU IEDNSVTD+332 00922000 IEDBDU EQU 0 00923000 BDUCMND EQU IEDBDU 00924000 BDUMODIF EQU IEDBDU+1 00925000 BDUFNFLG EQU IEDBDU+2 00926000 BDUHEADR EQU BDUFNFLG 00927000 BDUBDUFG EQU IEDBDU+3 00928000 BDURSP EQU IEDBDU+4 00929000 BDUSYRSP EQU BDURSP 00930000 BDUEXRSP EQU BDURSP+1 00931000 BDUEND EQU IEDBDU+6 00932000 IEDQLCB EQU 0 00933000 LCBRCB EQU IEDQLCB 00934000 LCBTSOB EQU IEDQLCB+19 00935000 LCBCHAIN EQU IEDQLCB+20 00936000 LCBSCRNN EQU LCBCHAIN 00937000 LCBTETEN EQU LCBCHAIN 00938000 LCBINSRC EQU IEDQLCB+21 00939000 LCBLKMDE EQU LCBINSRC+2 00940000 LCBNTXT EQU IEDQLCB+24 00941000 LCBSTAT4 EQU LCBNTXT 00942000 LCBPHASE EQU LCBSTAT4 00943000 LCBSCBDA EQU IEDQLCB+25 00944000 LCBMHA EQU IEDQLCB+29 00945000 LCBFLAG1 EQU IEDQLCB+32 00946000 LCBIOBSN EQU IEDQLCB+33 00947000 LCBSNS EQU LCBIOBSN+1 00948000 LCBSENS0 EQU LCBSNS 00949000 LCBLOSDT EQU LCBSENS0 00950000 LCBTMOUT EQU LCBSENS0 00951000 LCBFLAG3 EQU LCBIOBSN+7 00952000 LCBCSW EQU LCBIOBSN+8 00953000 LCBCSWST EQU LCBCSW+3 00954000 LCBCSWUS EQU LCBCSWST 00955000 LCBCSWCS EQU LCBCSWST+1 00956000 LCBSIOCC EQU LCBIOBSN+15 00957000 LCBDCBPT EQU IEDQLCB+52 00958000 LCBRCQCB EQU IEDQLCB+56 00959000 LCBRESTR EQU LCBRCQCB 00960000 @NM00113 EQU LCBRESTR+1 00961000 @NM00115 EQU IEDQLCB+60 00962000 LCBTHSQ EQU @NM00115 00963000 LCBINCAM EQU LCBTHSQ 00964000 LCBERRCT EQU IEDQLCB+62 00965000 LCBLSPCI EQU IEDQLCB+65 00966000 LCBRCBFR EQU LCBLSPCI 00967000 LCBSTATE EQU IEDQLCB+70 00968000 LCBSTAT1 EQU LCBSTATE 00969000 LCBSTAT2 EQU LCBSTATE+1 00970000 LCBBEOTN EQU LCBSTAT2 00971000 LCBSYNC EQU LCBSTAT2 00972000 LCBDIAL EQU LCBSTAT2 00973000 LCBTSTSW EQU IEDQLCB+72 00974000 LCBERB EQU IEDQLCB+76 00975000 LCBERBST EQU IEDQLCB+84 00976000 LCBDLNKN EQU LCBERBST 00977000 LCBERBCT EQU IEDQLCB+88 00978000 LCBRBCT2 EQU LCBERBCT+1 00979000 LCBTTCIN EQU IEDQLCB+90 00980000 LCBMSGFM EQU IEDQLCB+92 00981000 LCBNAK EQU LCBMSGFM 00982000 LCBACKI EQU LCBMSGFM 00983000 LCBTTD EQU LCBMSGFM 00984000 LCBENQ EQU LCBMSGFM 00985000 LCBOBRCH EQU IEDQLCB+96 00986000 LCBERMSK EQU LCBOBRCH 00987000 LCBNXMOD EQU LCBERMSK 00988000 LCBSTAT7 EQU LCBNXMOD 00989000 LCBINVPT EQU LCBOBRCH+1 00990000 LCBBFRW EQU LCBINVPT 00991000 LCBTPCD EQU IEDQLCB+100 00992000 LCBSTAT5 EQU LCBTPCD 00993000 LCBSTAT6 EQU LCBTPCD+4 00994000 LCBRSPSV EQU LCBTPCD+8 00995000 LCBSAVSN EQU IEDQLCB+112 00996000 LCBERCCW EQU IEDQLCB+120 00997000 LCBCPA EQU IEDQLCB+144 00998000 LCBCCW1 EQU LCBCPA 00999000 LCBCCW2 EQU LCBCPA+8 01000000 LCBCCW4 EQU LCBCPA+24 01001000 LCBCCW5 EQU LCBCPA+32 01002000 LCBATTEL EQU LCBCCW5 01003000 LCBQEBPL EQU LCBATTEL 01004000 LCBCNTDD EQU 0 01005000 IEDQLCBX EQU 0 01006000 LCBXCON EQU IEDQLCBX 01007000 LCBXFLAG EQU LCBXCON 01008000 LCBXDCT EQU LCBXCON+1 01009000 LCBXRADR EQU LCBXCON+4 01010000 IEDQOPCE EQU 0 01011000 OCLINK EQU IEDQOPCE 01012000 OCELEM EQU IEDQOPCE+4 01013000 OCELMPRI EQU OCELEM 01014000 OCUNIT EQU IEDQOPCE+8 01015000 OCRUDEST EQU OCUNIT 01016000 OCCKPKEY EQU OCRUDEST 01017000 OCSCAN EQU OCCKPKEY 01018000 @NM00152 EQU OCRUDEST+1 01019000 OCUNITBF EQU @NM00152+2 01020000 OCOPTCDE EQU IEDQOPCE+12 01021000 OCSWITCH EQU IEDQOPCE+13 01022000 OCFLAG EQU IEDQOPCE+14 01023000 OCATTACH EQU OCFLAG 01024000 OCRESP EQU OCFLAG 01025000 OCRLN EQU IEDQOPCE+15 01026000 OCLOCAD EQU OCRLN 01027000 OCCIB EQU IEDQOPCE+16 01028000 OCMSTSAV EQU OCCIB 01029000 OCDEST EQU OCMSTSAV 01030000 OCTRMTBL EQU IEDQOPCE+20 01031000 OCLINENO EQU IEDQOPCE+22 01032000 OCTIOT EQU OCLINENO 01033000 OCWTGB EQU OCTIOT 01034000 OCTRUNIT EQU IEDQOPCE+24 01035000 OCRSID EQU OCTRUNIT 01036000 OCALSTAT EQU OCRSID 01037000 OCFNAALL EQU OCALSTAT 01038000 OCACTREQ EQU OCALSTAT 01039000 OCFLAG1 EQU OCRSID+1 01040000 OCLNTYP EQU OCFLAG1 01041000 OCPARM EQU IEDQOPCE+28 01042000 OCWTG EQU IEDQOPCE+30 01043000 OCBACKUP EQU IEDQOPCE+32 01044000 OCBUFNED EQU OCBACKUP 01045000 OCCOUNT1 EQU OCBUFNED 01046000 OCBUFGOT EQU OCBACKUP+2 01047000 OCCOUNT2 EQU OCBUFGOT 01048000 OCMODNME EQU IEDQOPCE+40 01049000 OCIPLWA EQU OCMODNME 01050000 OCPTRSAV EQU OCMODNME+4 01051000 OCECHOPT EQU OCPTRSAV 01052000 OCCKDATA EQU IEDQOPCE+48 01053000 OCRSTGTM EQU OCCKDATA 01054000 OC379RRT EQU OCRSTGTM 01055000 OCNCP EQU OCRSTGTM+2 01056000 OCOID EQU IEDQOPCE+56 01057000 OCFLOADP EQU IEDQOPCE+60 01058000 OCLSTTC EQU OCFLOADP 01059000 OCOSUBA EQU OCLSTTC 01060000 IEDQOPCN EQU 0 01061000 OCLDNME EQU IEDQOPCN 01062000 OCLINTTE EQU OCLDNME 01063000 OCREQFLG EQU OCLINTTE+2 01064000 OCPREFLG EQU OCLINTTE+3 01065000 IEDQOPCD EQU 0 01066000 OPCAVTPT EQU IEDQOPCD+8 01067000 OPCCOPCE EQU IEDQOPCD+12 01068000 OPCTRACE EQU IEDQOPCD+32 01069000 OPCSAVE EQU IEDQOPCD+56 01070000 OPCWORK EQU IEDQOPCD+140 01071000 OPCFLAG1 EQU IEDQOPCD+146 01072000 OPCAQCTL EQU IEDQOPCD+180 01073000 OPCXCTL EQU IEDQOPCD+204 01074000 OPCLDNME EQU IEDQOPCD+212 01075000 OPCMODID EQU OPCLDNME+3 01076000 OPCHORT EQU IEDQOPCD+256 01077000 OPCNEXT EQU IEDQOPCD+272 01078000 OPCGETBF EQU IEDQOPCD+276 01079000 OPCFREBF EQU IEDQOPCD+280 01080000 OPCSPEC EQU IEDQOPCD+300 01081000 OPCHNEND EQU IEDQOPCD+302 01082000 OPCWRKSP EQU IEDQOPCD+320 01083000 OPCWAITV EQU IEDQOPCD+364 01084000 OPCPWCOB EQU IEDQOPCD+368 01085000 OPCPWQCB EQU OPCPWCOB 01086000 OPCPWECB EQU OPCPWCOB+4 01087000 OPCSESS EQU IEDQOPCD+384 01088000 OPCSFLAG EQU OPCSESS 01089000 OPCCSIB EQU OPCSESS+4 01090000 OPCSENSE EQU OPCSESS+8 01091000 OPCSNSSY EQU OPCSENSE 01092000 OPCSNSUS EQU OPCSENSE+2 01093000 OPCPCID EQU IEDQOPCD+456 01094000 OPCUNIQP EQU OPCPCID+2 01095000 OPCSESSF EQU IEDQOPCD+464 01096000 IEDRH EQU 0 01097000 TRHBYTE0 EQU IEDRH 01098000 TRHBYTE1 EQU IEDRH+1 01099000 TRHBYTE2 EQU IEDRH+2 01100000 IEDTHFD4 EQU 0 01101000 IEDTH4 EQU IEDTHFD4 01102000 TTHFID4 EQU IEDTH4 01103000 TTHRTEN EQU IEDTH4+2 01104000 TTHVRID EQU IEDTH4+3 01105000 TTHVRIND EQU IEDTH4+4 01106000 TTHVRRPC EQU IEDTH4+6 01107000 TTHVRCWR EQU TTHVRRPC 01108000 IEDTRM EQU 0 01109000 IEDNTRM EQU IEDTRM 01110000 TRMBYTEB EQU IEDNTRM+3 01111000 TRMSABPT EQU IEDNTRM+4 01112000 TRMGPTAB EQU TRMSABPT 01113000 TRMACTDV EQU IEDNTRM+8 01114000 TRMDIALQ EQU TRMACTDV+1 01115000 TRMBYTE8 EQU TRMDIALQ+1 01116000 TRMBYTE7 EQU TRMDIALQ+2 01117000 TRMATNDX EQU IEDNTRM+12 01118000 TRMASNDX EQU TRMATNDX 01119000 TRMLKCHN EQU TRMASNDX 01120000 TRMINDEX EQU IEDNTRM+14 01121000 TRMCDST EQU TRMINDEX 01122000 TRMCOHTG EQU IEDNTRM+16 01123000 TRMBYTE6 EQU TRMCOHTG 01124000 TRMCDF0 EQU TRMBYTE6 01125000 TRMBYTE5 EQU TRMCOHTG+1 01126000 TRMBYTE4 EQU IEDNTRM+18 01127000 TRMBYTE3 EQU IEDNTRM+19 01128000 TRMBYTE2 EQU IEDNTRM+20 01129000 TRMRSACT EQU TRMBYTE2 01130000 TRMINPG EQU TRMBYTE2 01131000 TRMBYTE1 EQU IEDNTRM+21 01132000 TRMSCPRQ EQU TRMBYTE1 01133000 TRMCOHRT EQU IEDNTRM+22 01134000 TRMBYTE0 EQU IEDNTRM+24 01135000 TRMNOWCD EQU TRMBYTE0 01136000 TRMSIBPT EQU IEDNTRM+25 01137000 TRMLTRAC EQU TRMSIBPT 01138000 TRMLBUFR EQU TRMLTRAC 01139000 TRMRLMCT EQU IEDNTRM+28 01140000 TRMLGBST EQU TRMRLMCT 01141000 TRMTYPE EQU IEDNTRM+29 01142000 IEDQTRM EQU IEDTRM+32 01143000 TRMSTATE EQU IEDQTRM 01144000 TRMLOG EQU TRMSTATE 01145000 TRMDESTQ EQU IEDQTRM+1 01146000 TRMRSTRT EQU TRMDESTQ+2 01147000 TRMINSEQ EQU IEDQTRM+4 01148000 TLISTCNT EQU TRMINSEQ 01149000 TRMSESCT EQU TLISTCNT 01150000 TRMOUTSQ EQU IEDQTRM+6 01151000 TLISTEN EQU TRMOUTSQ 01152000 TRMDSORG EQU TLISTEN 01153000 TRMPLIM EQU TLISTEN+1 01154000 TRMALTD EQU IEDQTRM+8 01155000 TRMPRILK EQU TRMALTD 01156000 TRMSTEAL EQU TRMPRILK 01157000 TRMTGNUM EQU TRMSTEAL 01158000 TRMDEVFL EQU IEDQTRM+10 01159000 TRMADDC EQU TRMDEVFL 01160000 TRMNCPI EQU TRMDEVFL+1 01161000 TRMSTAT EQU IEDQTRM+12 01162000 TRMAPB EQU TRMSTAT 01163000 TRMSIO EQU TRMAPB 01164000 TRMOWNER EQU TRMSIO 01165000 TRMSENSE EQU TRMAPB+3 01166000 IEDPRUQD EQU 0 01167000 PRUTTCIN EQU IEDPRUQD 01168000 PRUDATCT EQU IEDPRUQD+2 01169000 PRUTIC EQU IEDPRUQD+8 01170000 PRUNUNIT EQU PRUTIC+1 01171000 PRUVTCHK EQU PRUNUNIT+2 01172000 PRUDATA EQU IEDPRUQD+12 01173000 IEDPRUND EQU 0 01174000 PRURHTH EQU IEDPRUND 01175000 PRURH EQU PRURHTH 01176000 PRURHFG0 EQU PRURH 01177000 PRURHSDI EQU PRURHFG0 01178000 PRURHFG1 EQU PRURH+1 01179000 PRURHFG2 EQU PRURH+2 01180000 PRUTH EQU PRURHTH+3 01181000 PRUFIDN EQU PRUTH 01182000 IEDSATD EQU 0 01183000 SATRNLCB EQU IEDSATD 01184000 IEDNTNTD EQU 0 01185000 AREA EQU 0 01186000 SALEN EQU AREA 01187000 LCB EQU AREA+5 01188000 RSAT EQU AREA+9 01189000 TNTNDX EQU AREA+14 01190000 SAVETTE EQU AREA+20 01191000 SAVERET1 EQU AREA+24 01192000 SAVERET2 EQU AREA+28 01193000 WORKAREA EQU 0 01194000 WQCBADR EQU WORKAREA 01195000 WLINK EQU WORKAREA+5 01196000 WVERB EQU WORKAREA+8 01197000 WENTCD EQU WORKAREA+9 01198000 WANSCD EQU WORKAREA+10 01199000 WRTCD EQU WORKAREA+11 01200000 WTO EQU WORKAREA+16 01201000 WTNTNDX EQU WORKAREA+24 01202000 FIELD EQU 0 01203000 IEDQTNT EQU 0 01204000 FREEBUFF EQU 0 01205000 COHORTLK EQU 0 01206000 IEDIAP04 EQU 0 01207000 IEDQTPTR EQU 0 01208000 LCBRSPIN EQU LCBIOBSN 01209000 LCBRHSV EQU LCBRSPIN+2 01210000 LCBLUSNS EQU LCBRSPIN+5 01211000 LCBSCPRS EQU LCBRSPIN+9 01212000 LCBPCTRS EQU LCBSCPRS 01213000 LCBCSWU1 EQU LCBSCPRS+2 01214000 LCBRSPFG EQU LCBRSPIN+15 01215000 LCBCOREQ EQU LCBTPCD 01216000 LCBRXID EQU LCBCCW2 01217000 LCBSXID EQU LCBCCW4 01218000 LCBSVSID EQU LCBSXID+4 01219000 @NM00138 EQU LCBCPA+40 01220000 LCBSTAT EQU @NM00138 01221000 LCBQNX EQU LCBERCCW 01222000 LCBQNXMN EQU LCBQNX 01223000 LCBCANCL EQU LCBSAVSN 01224000 LCBCANFG EQU LCBCANCL 01225000 OCTG EQU OCFLAG1 01226000 @NM00159 EQU OCTG 01227000 OCMISCFG EQU OCFLAG1 01228000 @NM00162 EQU OCCKDATA 01229000 OCCURVR EQU @NM00162 01230000 @NM00164 EQU OCCIB 01231000 OCSTAT EQU @NM00164+1 01232000 OCTSTAT EQU OCSTAT 01233000 OCCKPKY1 EQU OCCKPKEY 01234000 OCCKPTYP EQU OCCKPKY1 01235000 OCICACTN EQU OCMODNME 01236000 OCICDADR EQU OCICACTN 01237000 OCICSW EQU OCICDADR+3 01238000 @NM00170 EQU OCBACKUP 01239000 OCROUTE EQU OCFLAG1 01240000 OCBOTH EQU OCROUTE 01241000 @NM00172 EQU OCCKDATA 01242000 OCMSGFLG EQU OCPREFLG 01243000 OCBKUP1 EQU OCMODNME 01244000 OCTARTTC EQU OCBKUP1+4 01245000 @NM00176 EQU OCMODNME 01246000 OCCSIB EQU @NM00176 01247000 OCCSAB EQU OCCSIB 01248000 OCFLAG2 EQU OCOSUBA 01249000 @NM00180 EQU OCMODNME 01250000 OCGPTFLG EQU @NM00180+4 01251000 @NM00183 EQU OCLDNME 01252000 OCCNMHDR EQU @NM00183 01253000 OCBKUP2 EQU OCCKDATA 01254000 OCBKUP3 EQU OCLDNME 01255000 OCRESPTR EQU OCBKUP3+4 01256000 OCDIALLN EQU OCRESPTR 01257000 OCIPLDMP EQU OCLDNME+4 01258000 @NM00189 EQU OCLDNME 01259000 OCERSTAT EQU @NM00189 01260000 OPCAQWD EQU OPCAQCTL 01261000 OPCAQWD1 EQU OPCAQWD 01262000 OPCAQWD2 EQU OPCAQWD+4 01263000 OPCAQWD3 EQU OPCAQWD+8 01264000 IEDTH EQU IEDTHFD4+16 01265000 @NM00231 EQU IEDTH 01266000 TTHBYTE0 EQU @NM00231 01267000 TTHDEF EQU @NM00231+2 01268000 TTHOEF EQU @NM00231+4 01269000 TTHSNF EQU @NM00231+6 01270000 TTHTAG EQU TTHSNF 01271000 TTHTAG1 EQU TTHTAG 01272000 @NM00242 EQU TRMSTATE 01273000 TRMPUSST EQU TRMBYTE7 01274000 TRMLUFD0 EQU TRMBYTE7 01275000 TRMSNAST EQU TRMBYTE6 01276000 TRMCDFD0 EQU TRMBYTE5 01277000 TRMPRE1 EQU TRMBYTE4 01278000 TRMLS1 EQU TRMBYTE4 01279000 TRMNCP1 EQU TRMBYTE4 01280000 TRMLU1 EQU TRMBYTE4 01281000 TRMLINK1 EQU TRMBYTE4 01282000 TRMDCONS EQU TRMLINK1 01283000 TRMPRE EQU TRMBYTE3 01284000 TRMNCP EQU TRMBYTE3 01285000 TRMIPLDM EQU TRMNCP 01286000 TRMNCP2 EQU TRMBYTE8 01287000 TRMPU EQU TRMBYTE3 01288000 TRMLU EQU TRMBYTE3 01289000 TRMCDMGR EQU TRMBYTE3 01290000 TRMLINK EQU TRMBYTE3 01291000 PTRS EQU OPCWRKSP 01292000 ELMNT EQU PTRS+1 01293000 RTRM EQU PTRS+4 01294000 PREVADDR EQU PTRS+8 01295000 FLAGS EQU OPCFLAG1 01296000 ERRFLG EQU FLAGS 01297000 NOCIB EQU FLAGS 01298000 SEARCH EQU FLAGS 01299000 BDUTEXT EQU BDUEND 01300000 OCCOSNME EQU OCLDNME 01301000 OCGPTRTE EQU OCLDNME 01302000 OCLINRRT EQU OCTRUNIT 01303000 OCPCID EQU OCBACKUP 01304000 OCRCVSZ EQU OCOID 01305000 OCRSNCDE EQU OCALSTAT 01306000 OCSENSE EQU OCBACKUP 01307000 OCSNTSZ EQU OCRLN 01308000 OCSVPCID EQU OCLDNME 01309000 TRMASCMH EQU TRMBYTE1 01310000 TRMOPT EQU IEDQTRM+20 01311000 TRMPOOLP EQU TRMINSEQ 01312000 TRMSRPTR EQU TRMPLIM 01313000 * START UNREFERENCED COMPONENTS 01314000 @NM00273 EQU FLAGS 01315000 @NM00272 EQU PTRS 01316000 TRMLDISC EQU TRMLINK 01317000 TRMVSRL EQU TRMLINK 01318000 TRMLALOC EQU TRMLINK 01319000 TRMLSTAT EQU TRMLINK 01320000 TRMLINT EQU TRMLINK 01321000 TRMEPMOD EQU TRMLINK 01322000 TRMCDLOG EQU TRMCDMGR 01323000 @NM00256 EQU TRMCDMGR 01324000 @NM00255 EQU TRMCDMGR 01325000 @NM00254 EQU TRMCDMGR 01326000 @NM00253 EQU TRMCDMGR 01327000 TRMCDRDR EQU TRMCDMGR 01328000 TRMBKDUP EQU TRMCDMGR 01329000 TRMLULOG EQU TRMLU 01330000 TRMUNAVS EQU TRMLU 01331000 @NM00252 EQU TRMLU 01332000 @NM00251 EQU TRMLU 01333000 TRMTDIFF EQU TRMLU 01334000 TRMNTODS EQU TRMLU 01335000 TRMPCONT EQU TRMPU 01336000 TRMPDOCQ EQU TRMPU 01337000 TRMPULOC EQU TRMPU 01338000 TRMPDNAS EQU TRMPU 01339000 TRMPALOC EQU TRMPU 01340000 @NM00250 EQU TRMNCP2 01341000 TRMFDISC EQU TRMNCP2 01342000 @NM00249 EQU TRMNCP2 01343000 TRMNCONT EQU TRMNCP 01344000 TRMQUCKN EQU TRMNCP 01345000 TRMSLOWN EQU TRMNCP 01346000 TRMSYGEN EQU TRMNCP 01347000 TRMNCPCL EQU TRMNCP 01348000 TRMCONN EQU TRMIPLDM 01349000 TRMINOUT EQU TRMPRE 01350000 TRMRDOUT EQU TRMPRE 01351000 TRMNLOUT EQU TRMPRE 01352000 TRMWROUT EQU TRMPRE 01353000 TRMASNXI EQU TRMPRE 01354000 TRMSTMM EQU TRMPRE 01355000 TRMCMODE EQU TRMPRE 01356000 TRMSTPND EQU TRMPRE 01357000 TRMNCPLK EQU TRMLINK1 01358000 @NM00248 EQU TRMLINK1 01359000 TRMDIRCA EQU TRMLINK1 01360000 TRMDICAL EQU TRMLINK1 01361000 TRMDCONN EQU TRMDCONS 01362000 TRMDCOP EQU TRMDCONS 01363000 TRMPMARY EQU TRMLU1 01364000 TRMLUNAS EQU TRMLU1 01365000 TRMCDSRQ EQU TRMLU1 01366000 TRMLSCVP EQU TRMLU1 01367000 TRMSPURG EQU TRMLU1 01368000 TRMCPOPT EQU TRMLU1 01369000 TRMCPREQ EQU TRMLU1 01370000 TRMINNLK EQU TRMNCP1 01371000 TRMSANDX EQU TRMNCP1 01372000 TRMDYDMP EQU TRMNCP1 01373000 TRMCCPND EQU TRMNCP1 01374000 TRMSNA4 EQU TRMNCP1 01375000 TRMANS EQU TRMNCP1 01376000 TRMLINOP EQU TRMNCP1 01377000 TRMINOP EQU TRMNCP1 01378000 @NM00247 EQU TRMLS1 01379000 TRMCBIU EQU TRMLS1 01380000 TRMLYNCH EQU TRMPRE1 01381000 TRMSPOUT EQU TRMPRE1 01382000 TRMERLCK EQU TRMPRE1 01383000 TRMQNPL EQU TRMPRE1 01384000 TRMSPACT EQU TRMPRE1 01385000 TRMOCNI EQU TRMPRE1 01386000 TRMSESSN EQU TRMPRE1 01387000 TRMCONT EQU TRMPRE1 01388000 TRMINERR EQU TRMCDFD0 01389000 TRMLUTM EQU TRMCDFD0 01390000 TRMLUIT EQU TRMCDFD0 01391000 TRMLUREQ EQU TRMCDFD0 01392000 TRMCDPRE EQU TRMCDFD0 01393000 TRMWASCD EQU TRMCDFD0 01394000 TRMSRPFG EQU TRMCDFD0 01395000 TRMSESRQ EQU TRMCDFD0 01396000 @NM00246 EQU TRMSNAST 01397000 TRMDRSRC EQU TRMSNAST 01398000 @NM00245 EQU TRMLUFD0 01399000 TRMRMTMA EQU TRMLUFD0 01400000 TRMNHDRN EQU TRMLUFD0 01401000 TRMLSESS EQU TRMLUFD0 01402000 TRMASSOC EQU TRMLUFD0 01403000 TRMAUTO EQU TRMLUFD0 01404000 TRMCONTP EQU TRMPUSST 01405000 @NM00244 EQU TRMPUSST 01406000 @NM00243 EQU @NM00242 01407000 TRMENTRY EQU @NM00242 01408000 TTHDCF EQU @NM00231+8 01409000 TTHTAG2 EQU TTHTAG+1 01410000 @NM00233 EQU TTHTAG1 01411000 TTHTAGS EQU TTHTAG1 01412000 TTHOAF EQU TTHOEF 01413000 TTHDAF EQU TTHDEF 01414000 TTHBYTE1 EQU @NM00231+1 01415000 TTHEFI EQU TTHBYTE0 01416000 @NM00232 EQU TTHBYTE0 01417000 TTHEBIU EQU TTHBYTE0 01418000 TTHBBIU EQU TTHBYTE0 01419000 TTHFTYPE EQU TTHBYTE0 01420000 OPCAQLST EQU OPCAQWD3+1 01421000 OPCAQRQ3 EQU OPCAQWD3 01422000 OPCAQSEC EQU OPCAQWD2+1 01423000 OPCAQRQ2 EQU OPCAQWD2 01424000 OPCAQFST EQU OPCAQWD1+1 01425000 OPCAQREQ EQU OPCAQWD1 01426000 @NM00190 EQU @NM00189+5 01427000 OCUNDFER EQU OCERSTAT+4 01428000 OCINOPER EQU OCERSTAT+3 01429000 OCOPER EQU OCERSTAT+2 01430000 OCINACER EQU OCERSTAT+1 01431000 OCACTER EQU OCERSTAT 01432000 @NM00188 EQU OCIPLDMP 01433000 OCCSPDMP EQU OCIPLDMP 01434000 OCMOSDMP EQU OCIPLDMP 01435000 OCDYDMP EQU OCIPLDMP 01436000 OCACTRQ EQU OCIPLDMP 01437000 OCDACRQ EQU OCIPLDMP 01438000 OCIPLRQ EQU OCIPLDMP 01439000 OCDMPRQ EQU OCIPLDMP 01440000 @NM00187 EQU OCRESPTR+2 01441000 OCOHNATA EQU OCDIALLN 01442000 OCRRTPTR EQU OCBKUP3 01443000 @NM00186 EQU OCBKUP2+4 01444000 OCNHITTC EQU OCBKUP2+2 01445000 OCLINTTC EQU OCBKUP2 01446000 @NM00185 EQU @NM00183+6 01447000 OCRQSTYP EQU @NM00183+5 01448000 @NM00184 EQU OCCNMHDR+3 01449000 OCSESTUS EQU OCCNMHDR+2 01450000 OCRVTIND EQU OCCNMHDR 01451000 OCMAXTBL EQU @NM00180+6 01452000 @NM00182 EQU @NM00180+5 01453000 @NM00181 EQU OCGPTFLG 01454000 OCGPTTBS EQU OCGPTFLG 01455000 OCGPT1ST EQU OCGPTFLG 01456000 OCSNASNS EQU @NM00180 01457000 @NM00179 EQU OCFLAG2+1 01458000 @NM00178 EQU OCFLAG2 01459000 OCG1STAL EQU OCFLAG2 01460000 OCGPTLGR EQU OCFLAG2 01461000 OCGPTALL EQU OCFLAG2 01462000 @NM00177 EQU @NM00176+4 01463000 OCLCBA EQU OCCSAB 01464000 @NM00175 EQU OCBKUP1+6 01465000 OCLNKTNT EQU OCTARTTC 01466000 OCSRTTC EQU OCBKUP1+2 01467000 OCRSTTC EQU OCBKUP1 01468000 @NM00174 EQU OCMSGFLG 01469000 OCRRT EQU OCMSGFLG 01470000 OCNAME EQU OCMSGFLG 01471000 OCLU1TTE EQU @NM00172+5 01472000 OCSFLAG EQU @NM00172+4 01473000 OCLU2TTI EQU @NM00172+2 01474000 OCLU1TTI EQU @NM00172 01475000 @NM00171 EQU OCROUTE 01476000 OCTEST EQU OCROUTE 01477000 OCINOP EQU OCBOTH 01478000 OCOP EQU OCBOTH 01479000 OCDISTLN EQU @NM00170+6 01480000 OCDISTAD EQU @NM00170+2 01481000 OCDISTNA EQU @NM00170 01482000 OCICINAC EQU OCICSW 01483000 @NM00169 EQU OCICSW 01484000 OCICATST EQU OCICDADR+1 01485000 OCICTYPE EQU OCICDADR 01486000 @NM00168 EQU OCCKPKY1 01487000 OCCKPENV EQU OCCKPKY1 01488000 OCCKPRST EQU OCCKPTYP 01489000 OCCKPNCP EQU OCCKPTYP 01490000 OCCKPINC EQU OCCKPTYP 01491000 @NM00167 EQU @NM00164+2 01492000 OCLINETR EQU OCSTAT 01493000 @NM00166 EQU OCSTAT 01494000 OCSITTR EQU OCSTAT 01495000 @NM00165 EQU OCSTAT 01496000 OCDCDRM EQU OCSTAT 01497000 OCGPTTR EQU OCTSTAT 01498000 OCTGTR EQU OCTSTAT 01499000 OCREASON EQU @NM00164 01500000 @NM00163 EQU @NM00162+4 01501000 OCOIDEP EQU OCCURVR 01502000 @NM00161 EQU OCMISCFG 01503000 OCCONRRT EQU OCMISCFG 01504000 OCINTRNL EQU OCMISCFG 01505000 OCLSCBS EQU OCMISCFG 01506000 OCTGTRRQ EQU OCMISCFG 01507000 OCTRMRQD EQU OCMISCFG 01508000 OCNODISC EQU OCMISCFG 01509000 @NM00160 EQU OCTG 01510000 OCALLNKS EQU OCTG 01511000 OCINACT EQU @NM00159 01512000 OCACT EQU @NM00159 01513000 @NM00145 EQU LCBCANCL+3 01514000 LCBCANTH EQU LCBCANCL+1 01515000 @NM00144 EQU LCBCANFG 01516000 LCBCANCD EQU LCBCANFG 01517000 @NM00143 EQU LCBCANFG 01518000 LCBCANEB EQU LCBCANFG 01519000 LCBCANXT EQU LCBCANFG 01520000 LCBUNADD EQU LCBQNX+21 01521000 LCBUASZE EQU LCBQNX+20 01522000 LCBDSTEA EQU LCBQNX+16 01523000 @NM00142 EQU LCBQNX+8 01524000 LCBIOSBS EQU LCBQNX+5 01525000 @NM00141 EQU LCBQNX+4 01526000 LCBSTSAV EQU LCBQNX+1 01527000 @NM00140 EQU LCBQNXMN 01528000 LCBNX509 EQU LCBQNXMN 01529000 LCBNX162 EQU LCBQNXMN 01530000 LCBNX142 EQU LCBQNXMN 01531000 LCBNX064 EQU LCBQNXMN 01532000 LCBCRSV4 EQU @NM00138+24 01533000 LCBCRSV3 EQU @NM00138+20 01534000 LCBCRSV2 EQU @NM00138+16 01535000 LCBCRSV1 EQU @NM00138+12 01536000 LCBSIBPT EQU @NM00138+8 01537000 LCBSUSPT EQU @NM00138+4 01538000 LCBNCPPT EQU @NM00138+1 01539000 @NM00139 EQU LCBSTAT 01540000 LCBPSTB EQU LCBSTAT 01541000 LCBVSTP EQU LCBSTAT 01542000 LCBSVDSC EQU LCBSVSID 01543000 @NM00137 EQU LCBSXID 01544000 LCBSVRID EQU LCBRXID+4 01545000 @NM00136 EQU LCBRXID 01546000 LCBWRSCH EQU LCBCOREQ+8 01547000 LCBCQLNK EQU LCBCOREQ+4 01548000 LCBCQELE EQU LCBCOREQ 01549000 LCBPAKCH EQU LCBRSPIN+16 01550000 @NM00135 EQU LCBRSPFG 01551000 LCBRSPDF EQU LCBRSPFG 01552000 LCBRSPST EQU LCBRSPFG 01553000 LCBIMRSP EQU LCBRSPFG 01554000 LCBPRSPO EQU LCBRSPFG 01555000 LCBRSRH EQU LCBRSPFG 01556000 LCBEXPI EQU LCBRSPFG 01557000 @NM00134 EQU LCBRSPIN+12 01558000 LCBUSUE1 EQU LCBCSWU1 01559000 @NM00133 EQU LCBCSWU1 01560000 @NM00132 EQU LCBPCTRS+1 01561000 LCBDFCMD EQU LCBPCTRS 01562000 LCBUSER EQU LCBLUSNS+2 01563000 LCBSMIN EQU LCBLUSNS+1 01564000 LCBSMAJ EQU LCBLUSNS 01565000 LCBPACRS EQU LCBRHSV 01566000 @NM00131 EQU LCBRHSV 01567000 LCBSNS0 EQU LCBRSPIN+1 01568000 @NM00130 EQU LCBRSPIN 01569000 LCBDSCRJ EQU LCBRSPIN 01570000 FCOUNT EQU FIELD 01571000 WRQTG EQU WORKAREA+26 01572000 WFROM EQU WORKAREA+20 01573000 WECBA EQU WORKAREA+12 01574000 WPRI EQU WORKAREA+4 01575000 RLNGTH EQU AREA+16 01576000 @NM00271 EQU AREA+12 01577000 @NM00270 EQU AREA+8 01578000 @NM00269 EQU AREA+4 01579000 TNTFIRST EQU IEDNTNTD+82 01580000 @NM00268 EQU IEDNTNTD+41 01581000 TNTENLEN EQU IEDNTNTD+40 01582000 @NM00267 EQU IEDNTNTD 01583000 SATRNRVT EQU IEDSATD+4 01584000 PRUREQSQ EQU IEDPRUND+6 01585000 PRUTAG EQU IEDPRUND+4 01586000 PRUTHEFI EQU PRUFIDN 01587000 PRUTHUSS EQU PRUFIDN 01588000 PRUTHEIU EQU PRUFIDN 01589000 PRUTHBIU EQU PRUFIDN 01590000 PRUTHTYE EQU PRUFIDN 01591000 @NM00266 EQU PRURHFG2 01592000 PRURHCSI EQU PRURHFG2 01593000 @NM00265 EQU PRURHFG2 01594000 PRURHCDI EQU PRURHFG2 01595000 PRURHEB EQU PRURHFG2 01596000 PRURHBB EQU PRURHFG2 01597000 PRURHPI EQU PRURHFG1 01598000 @NM00264 EQU PRURHFG1 01599000 PRURHER EQU PRURHFG1 01600000 PRURHDR2 EQU PRURHFG1 01601000 @NM00263 EQU PRURHFG1 01602000 PRURHDR1 EQU PRURHFG1 01603000 PRURHEC EQU PRURHFG0 01604000 PRURHBC EQU PRURHFG0 01605000 PRURHFI EQU PRURHFG0 01606000 @NM00262 EQU PRURHFG0 01607000 PRURUCAT EQU PRURHFG0 01608000 PRURHTYP EQU PRURHFG0 01609000 @NM00261 EQU PRUVTCHK 01610000 PRUITSET EQU PRUVTCHK 01611000 @NM00260 EQU PRUVTCHK 01612000 @NM00259 EQU PRUNUNIT 01613000 @NM00258 EQU PRUTIC 01614000 @NM00257 EQU IEDPRUQD+4 01615000 TRMOPTBL EQU IEDQTRM+18 01616000 TRMOPNO EQU IEDQTRM+17 01617000 TRMCHCIN EQU IEDQTRM+16 01618000 TRMLOCAD EQU TRMSENSE 01619000 TRMTEMPR EQU TRMAPB+2 01620000 TRMNADDR EQU TRMOWNER 01621000 @NM00241 EQU TRMDEVFL+1 01622000 TRMTPIN EQU TRMDEVFL+1 01623000 @NM00240 EQU TRMNCPI 01624000 TRMRNTRM EQU TRMDEVFL+1 01625000 @NM00239 EQU TRMDEVFL+1 01626000 TRMLMD EQU TRMDEVFL+1 01627000 TRMCONC EQU TRMDEVFL+1 01628000 TRMTSOB EQU TRMDEVFL 01629000 TRMBFDY EQU TRMDEVFL 01630000 TRMTBLK EQU TRMDEVFL 01631000 TRMSBLK EQU TRMDEVFL 01632000 TRMBLKS EQU TRMDEVFL 01633000 TRMSCV EQU TRMADDC 01634000 TRMDDIG EQU TRMDEVFL 01635000 TRMBUFS EQU TRMDEVFL 01636000 TRMTGCON EQU TRMTGNUM+1 01637000 TRMTGRRT EQU TRMTGNUM 01638000 TRMLGB EQU TRMDSORG 01639000 TRMUTERM EQU TRMSESCT 01640000 TRMVERIF EQU TRMRSTRT 01641000 @NM00238 EQU TRMRSTRT 01642000 @NM00237 EQU TRMDESTQ 01643000 TRMSCNYN EQU TRMSTATE 01644000 TRMOPTFN EQU TRMSTATE 01645000 TRMHELDN EQU TRMSTATE 01646000 TRMACPTN EQU TRMSTATE 01647000 TRMPREF EQU TRMSTATE 01648000 TRMPROC EQU TRMLOG 01649000 TRMLIST EQU TRMLOG 01650000 TRMLINE EQU TRMSTATE 01651000 TRMSUBST EQU IEDNTRM+30 01652000 TRMPRIME EQU TRMLGBST 01653000 TRMOWNR EQU TRMLBUFR+1 01654000 TRMGPCNT EQU TRMLBUFR 01655000 TRMBUFRD EQU TRMBYTE0 01656000 TRMSNA EQU TRMBYTE0 01657000 TRMGP EQU TRMBYTE0 01658000 TRMDIAL EQU TRMBYTE0 01659000 TRMACDC EQU TRMNOWCD 01660000 TRMOUTPT EQU TRMBYTE0 01661000 TRMINPUT EQU TRMBYTE0 01662000 TRMUDEF EQU TRMBYTE0 01663000 TRMSTOTE EQU TRMBYTE1 01664000 TRMCKPRN EQU TRMBYTE1 01665000 TRMTSATN EQU TRMBYTE1 01666000 TRMTRACE EQU TRMBYTE1 01667000 TRMSWBCK EQU TRMBYTE1 01668000 TRMAUTOC EQU TRMBYTE1 01669000 TRMINPTP EQU TRMBYTE1 01670000 TRMWTNEG EQU TRMSCPRQ 01671000 TRMWRBRK EQU TRMBYTE2 01672000 TRMNOSND EQU TRMBYTE2 01673000 TRMPREP EQU TRMBYTE2 01674000 TRMGPACT EQU TRMBYTE2 01675000 TRMANDL EQU TRMBYTE2 01676000 TRMCLOSN EQU TRMINPG 01677000 TRMREMB EQU TRMBYTE2 01678000 TRMCINOP EQU TRMCDF0 01679000 TRMRSTPD EQU TRMCDF0 01680000 TRMCLNXI EQU TRMCDF0 01681000 TRMDVAS0 EQU TRMCDF0 01682000 TRMPURGE EQU TRMCDF0 01683000 TRMLSNCP EQU TRMCDST 01684000 TRMDRTYC EQU TRMLKCHN 01685000 @NM00236 EQU TRMBYTE8 01686000 TRMSAVFY EQU TRMBYTE8 01687000 TRMBYTE9 EQU TRMDIALQ 01688000 TRMBYTEA EQU TRMACTDV 01689000 TRMRECON EQU TRMGPTAB+2 01690000 TRMILSA EQU TRMGPTAB 01691000 @NM00235 EQU TRMBYTEB 01692000 TRMNLDMT EQU TRMBYTEB 01693000 TRMF0SEQ EQU IEDNTRM+2 01694000 @NM00234 EQU IEDNTRM 01695000 TTHOSAF EQU IEDTH4+12 01696000 TTHDSAF EQU IEDTH4+8 01697000 TTHVRSNF EQU TTHVRRPC 01698000 TTHVRRWI EQU TTHVRRPC 01699000 @NM00230 EQU TTHVRCWR 01700000 TTHVRPRS EQU TTHVRRPC 01701000 TTHVRPRQ EQU TTHVRRPC 01702000 TTHTGSNF EQU TTHVRIND 01703000 TTHVRSQI EQU TTHVRIND 01704000 TTHTGNFI EQU TTHVRIND 01705000 TTHVRCWI EQU TTHVRIND 01706000 TTHTPF EQU TTHVRID 01707000 @NM00229 EQU TTHVRID 01708000 TTHVRN EQU TTHVRID 01709000 TTHERN EQU TTHRTEN 01710000 TTHIERN EQU TTHRTEN 01711000 @NM00228 EQU IEDTH4+1 01712000 TTHNWKPI EQU TTHFID4 01713000 TTHVRPCI EQU TTHFID4 01714000 TTHEVRSI EQU TTHFID4 01715000 TTHSWPTG EQU TTHFID4 01716000 TTHFIDI EQU TTHFID4 01717000 @NM00227 EQU TRHBYTE2 01718000 TRHPDI EQU TRHBYTE2 01719000 TRHEDI EQU TRHBYTE2 01720000 TRHCSI EQU TRHBYTE2 01721000 @NM00226 EQU TRHBYTE2 01722000 TRHCDI EQU TRHBYTE2 01723000 TRHEB EQU TRHBYTE2 01724000 TRHBB EQU TRHBYTE2 01725000 TRHPI EQU TRHBYTE1 01726000 TRHQRI EQU TRHBYTE1 01727000 @NM00225 EQU TRHBYTE1 01728000 @NM00224 EQU TRHBYTE1 01729000 TRHER EQU TRHBYTE1 01730000 TRHDR2 EQU TRHBYTE1 01731000 @NM00223 EQU TRHBYTE1 01732000 TRHDR1 EQU TRHBYTE1 01733000 TRHEC EQU TRHBYTE0 01734000 TRHBC EQU TRHBYTE0 01735000 TRHSDI EQU TRHBYTE0 01736000 TRHFI EQU TRHBYTE0 01737000 @NM00222 EQU TRHBYTE0 01738000 TRHRUCAT EQU TRHBYTE0 01739000 TRHTYPE EQU TRHBYTE0 01740000 OPCBOTTM EQU IEDQOPCD+11944 01741000 OPCTNLEX EQU IEDQOPCD+11928 01742000 @NM00221 EQU IEDQOPCD+7160 01743000 OPCTNIEX EQU IEDQOPCD+7144 01744000 OPCTNHEX EQU IEDQOPCD+7128 01745000 OPCTCLEX EQU IEDQOPCD+7112 01746000 @NM00220 EQU IEDQOPCD+2344 01747000 OPCTCIEX EQU IEDQOPCD+2328 01748000 OPCTCHEX EQU IEDQOPCD+2312 01749000 @NM00219 EQU IEDQOPCD+2280 01750000 @NM00218 EQU IEDQOPCD+2274 01751000 OPCTTRC EQU IEDQOPCD+2108 01752000 OPCNLRFM EQU IEDQOPCD+2104 01753000 OPCRHOLD EQU IEDQOPCD+2040 01754000 OPCADCB EQU IEDQOPCD+1864 01755000 OPCTRCAD EQU IEDQOPCD+1860 01756000 OPCADROP EQU IEDQOPCD+1856 01757000 @NM00217 EQU IEDQOPCD+1806 01758000 OPCNAM EQU IEDQOPCD+1798 01759000 @NM00216 EQU IEDQOPCD+1796 01760000 OPCBLIST EQU IEDQOPCD+1794 01761000 @NM00215 EQU IEDQOPCD+1793 01762000 @NM00214 EQU IEDQOPCD+1792 01763000 @NM00213 EQU IEDQOPCD+1789 01764000 @NM00212 EQU IEDQOPCD+1788 01765000 OPCBLDL EQU IEDQOPCD+1784 01766000 @NM00211 EQU IEDQOPCD+1712 01767000 OPCDSRWT EQU IEDQOPCD+1708 01768000 @NM00210 EQU IEDQOPCD+1616 01769000 @NM00209 EQU IEDQOPCD+1420 01770000 @NM00208 EQU IEDQOPCD+1412 01771000 @NM00207 EQU IEDQOPCD+612 01772000 @NM00206 EQU IEDQOPCD+611 01773000 OPCLSSEQ EQU IEDQOPCD+610 01774000 OPCRCTCH EQU IEDQOPCD+608 01775000 OPCRSASC EQU IEDQOPCD+604 01776000 OPCRECON EQU IEDQOPCD+600 01777000 OPCGETSA EQU IEDQOPCD+596 01778000 OPCSAASC EQU IEDQOPCD+592 01779000 OPCLKASC EQU IEDQOPCD+588 01780000 OPCDCBCH EQU IEDQOPCD+584 01781000 OPCCDSER EQU IEDQOPCD+580 01782000 OPCGTCDT EQU IEDQOPCD+576 01783000 OPCSRSCE EQU IEDQOPCD+572 01784000 OPCGTNSP EQU IEDQOPCD+568 01785000 OPCFGXPT EQU IEDQOPCD+564 01786000 OPCNCPLC EQU IEDQOPCD+560 01787000 OPCCTVRL EQU IEDQOPCD+556 01788000 OPCSYNSB EQU IEDQOPCD+552 01789000 OPCRVRLT EQU IEDQOPCD+548 01790000 OPCRCOSN EQU IEDQOPCD+544 01791000 OPCLOCLS EQU IEDQOPCD+540 01792000 OPCFXNAD EQU IEDQOPCD+536 01793000 @NM00205 EQU IEDQOPCD+532 01794000 OPCCDRDR EQU IEDQOPCD+528 01795000 OPCRSTRS EQU IEDQOPCD+524 01796000 OPCSAVES EQU IEDQOPCD+520 01797000 OPCRSPBD EQU IEDQOPCD+516 01798000 OPCNFY03 EQU IEDQOPCD+512 01799000 OPCNFY01 EQU IEDQOPCD+508 01800000 OPCURC EQU IEDQOPCD+504 01801000 OPCCINBD EQU IEDQOPCD+500 01802000 OPCCRKEY EQU IEDQOPCD+496 01803000 OPCDRSET EQU IEDQOPCD+492 01804000 OPCDRCLN EQU IEDQOPCD+488 01805000 OPCDRDEL EQU IEDQOPCD+484 01806000 OPCDRLOD EQU IEDQOPCD+480 01807000 OPCDRLOC EQU IEDQOPCD+476 01808000 OPCDRCVT EQU IEDQOPCD+472 01809000 OPCDRFST EQU IEDQOPCD+468 01810000 OPCLSABC EQU IEDQOPCD+466 01811000 @NM00204 EQU IEDQOPCD+465 01812000 @NM00203 EQU OPCSESSF 01813000 OPCGTSAB EQU OPCSESSF 01814000 @NM00202 EQU OPCSESSF 01815000 OPCUNIQV EQU OPCUNIQP+2 01816000 OPCUNIQU EQU OPCUNIQP 01817000 OPCOSSCP EQU OPCPCID 01818000 @NM00201 EQU IEDQOPCD+452 01819000 @NM00200 EQU IEDQOPCD+448 01820000 OPCSDUPU EQU IEDQOPCD+444 01821000 OPCSDULU EQU IEDQOPCD+440 01822000 OPCSDRVT EQU IEDQOPCD+436 01823000 OPCSDRET EQU IEDQOPCD+432 01824000 OPCSDHSY EQU IEDQOPCD+428 01825000 OPCSDENQ EQU IEDQOPCD+424 01826000 OPCSDDIA EQU IEDQOPCD+420 01827000 OPCSDAPU EQU IEDQOPCD+416 01828000 OPCSDALU EQU IEDQOPCD+412 01829000 OPCCSKEY EQU IEDQOPCD+408 01830000 OPCSSKEY EQU IEDQOPCD+404 01831000 OPCPRTTE EQU IEDQOPCD+400 01832000 OPCLU2TT EQU OPCSESS+14 01833000 OPCLU1TT EQU OPCSESS+12 01834000 OPCSNSU2 EQU OPCSNSUS+1 01835000 OPCSNSU1 EQU OPCSNSUS 01836000 OPCSNSMN EQU OPCSNSSY+1 01837000 OPCSNSMJ EQU OPCSNSSY 01838000 OPCCSAB EQU OPCCSIB 01839000 OPCCTTE EQU OPCSESS+1 01840000 OPCARSRT EQU OPCSFLAG 01841000 OPCISQUD EQU OPCSFLAG 01842000 OPCISQAV EQU OPCSFLAG 01843000 OPCLUREQ EQU OPCSFLAG 01844000 OPCISRSP EQU OPCSFLAG 01845000 OPCISQUE EQU OPCSFLAG 01846000 OPCRAPMH EQU OPCSFLAG 01847000 OPCRAPI EQU OPCSFLAG 01848000 OPCGTSIB EQU IEDQOPCD+380 01849000 @NM00199 EQU OPCPWCOB+9 01850000 @NM00198 EQU OPCPWCOB+8 01851000 @NM00197 EQU OPCPWECB+1 01852000 OPCPWCCC EQU OPCPWECB 01853000 OPCPWCHN EQU OPCPWQCB+1 01854000 OPCPWVTO EQU OPCPWQCB 01855000 OPCTOTCK EQU IEDQOPCD+360 01856000 OPCAPXTL EQU IEDQOPCD+356 01857000 OPCDECR EQU IEDQOPCD+352 01858000 OPCBUFWT EQU IEDQOPCD+348 01859000 OPCADGOT EQU IEDQOPCD+318 01860000 OPCRQCNT EQU IEDQOPCD+316 01861000 OPPOLSTP EQU IEDQOPCD+312 01862000 OPCCKCIB EQU IEDQOPCD+308 01863000 OPCEND EQU IEDQOPCD+307 01864000 OPCSTCBS EQU IEDQOPCD+306 01865000 OPCOQSW EQU IEDQOPCD+301 01866000 @NM00196 EQU OPCSPEC 01867000 @NM00195 EQU OPCSPEC 01868000 @NM00194 EQU OPCSPEC 01869000 @NM00193 EQU OPCSPEC 01870000 OPCFRMCA EQU OPCSPEC 01871000 OPCRSTRT EQU OPCSPEC 01872000 OPCPART EQU OPCSPEC 01873000 OPCALTD EQU OPCSPEC 01874000 OPCXLOAD EQU IEDQOPCD+296 01875000 OPCBFIRS EQU IEDQOPCD+292 01876000 OPCAVBUF EQU IEDQOPCD+290 01877000 OPCIPLCT EQU IEDQOPCD+289 01878000 OPCCLNTS EQU IEDQOPCD+288 01879000 OPCHA8 EQU IEDQOPCD+286 01880000 OPCBFREQ EQU IEDQOPCD+284 01881000 OPCFMDFC EQU IEDQOPCD+268 01882000 OPCSCNC EQU IEDQOPCD+264 01883000 OPCHORTG EQU IEDQOPCD+260 01884000 OPCCKPTL EQU IEDQOPCD+252 01885000 OPCCKPTF EQU IEDQOPCD+248 01886000 OPCWAITA EQU IEDQOPCD+244 01887000 OPCWAITR EQU IEDQOPCD+240 01888000 OPCWAITP EQU IEDQOPCD+236 01889000 OPCWAITO EQU IEDQOPCD+232 01890000 OPCWAITN EQU IEDQOPCD+228 01891000 OPCWAITL EQU IEDQOPCD+224 01892000 OPCWAITC EQU IEDQOPCD+220 01893000 @NM00192 EQU OPCLDNME+5 01894000 @NM00191 EQU OPCLDNME 01895000 OPCWAIT EQU IEDQOPCD+192 01896000 OPCCKERB EQU IEDQOPCD+164 01897000 OPCBFERB EQU IEDQOPCD+148 01898000 OPCFLAG2 EQU IEDQOPCD+147 01899000 OPCWRKSZ EQU IEDQOPCD+144 01900000 OPCRSAVE EQU IEDQOPCD+132 01901000 OPCQCBAD EQU IEDQOPCD+128 01902000 OPCTRMWA EQU IEDQOPCD+52 01903000 OPCPSTWT EQU IEDQOPCD+48 01904000 OPCTNTEA EQU IEDQOPCD+44 01905000 OPCPGCK EQU IEDQOPCD+40 01906000 OPCLCB EQU IEDQOPCD+36 01907000 OPCIPLAD EQU IEDQOPCD+28 01908000 OPCTOFLK EQU IEDQOPCD+24 01909000 OPCOPTLK EQU IEDQOPCD+20 01910000 OPCDCBLK EQU IEDQOPCD+16 01911000 OPCDOUBL EQU IEDQOPCD 01912000 @NM00173 EQU OCLDNME+6 01913000 OC1SQID EQU OCLDNME+4 01914000 OCWAITPC EQU OCPREFLG 01915000 OCSRCCLN EQU OCPREFLG 01916000 OCREMCON EQU OCPREFLG 01917000 OCCLNUP EQU OCPREFLG 01918000 OCTOTEP EQU OCPREFLG 01919000 OCREPOST EQU OCPREFLG 01920000 OCRSPSNT EQU OCPREFLG 01921000 OCBFREQ EQU OCPREFLG 01922000 OCIDLE EQU OCREQFLG 01923000 OCFORCE EQU OCREQFLG 01924000 OCDCARD EQU OCREQFLG 01925000 OCPARTAL EQU OCREQFLG 01926000 OCADNCP EQU OCREQFLG 01927000 OCRMPORQ EQU OCREQFLG 01928000 OCCDLACT EQU OCREQFLG 01929000 OCFLUSHZ EQU OCREQFLG 01930000 OCRESPCT EQU OCLINTTE 01931000 OCDSUBA EQU OCFLOADP+2 01932000 OCURC EQU OCOID 01933000 OCCKPTWA EQU OCCKDATA+4 01934000 OCSRCTTC EQU OCNCP 01935000 OCCKDAT2 EQU OC379RRT+1 01936000 OCCKDAT1 EQU OC379RRT 01937000 OCVRLST EQU OCECHOPT 01938000 OCPUADR EQU OCIPLWA+2 01939000 OCWTGSAV EQU OCIPLWA 01940000 OCDVRDCT EQU OCBACKUP+6 01941000 @NM00158 EQU OCBACKUP+4 01942000 OCBUFRET EQU OCCOUNT2 01943000 OCBUFUSD EQU OCCOUNT1 01944000 OCRESNUM EQU OCPARM 01945000 OCSEQ EQU OCTRUNIT+2 01946000 OCPEND EQU OCLNTYP 01947000 OCQUED EQU OCLNTYP 01948000 OCDOWN EQU OCLNTYP 01949000 OCALACT EQU OCLNTYP 01950000 @NM00157 EQU OCFLAG1 01951000 OCTYPTRM EQU OCFLAG1 01952000 OCNONE EQU OCALSTAT 01953000 OCSOME EQU OCALSTAT 01954000 OCALLFLG EQU OCALSTAT 01955000 OCREDRVE EQU OCALSTAT 01956000 OCSEQIND EQU OCALSTAT 01957000 OCDACTIP EQU OCFNAALL 01958000 OCRENTRD EQU OCALSTAT 01959000 OCDIALX EQU OCWTGB 01960000 OCATNDX EQU OCMSTSAV+2 01961000 OCREQVAL EQU OCDEST+1 01962000 OCCONID EQU OCDEST 01963000 OCTGN EQU OCLOCAD 01964000 OCSSCP EQU OCFLAG 01965000 OCOUTPUT EQU OCFLAG 01966000 OCLINE EQU OCFLAG 01967000 OCMPP EQU OCFLAG 01968000 OCTOTE EQU OCFLAG 01969000 OCCONSOL EQU OCFLAG 01970000 OCIMMED EQU OCSWITCH 01971000 @NM00156 EQU OCSWITCH 01972000 OCQUCKN EQU OCSWITCH 01973000 OCPRIFLG EQU OCOPTCDE 01974000 @NM00155 EQU OCUNITBF 01975000 OCINVTIC EQU OCUNITBF 01976000 @NM00154 EQU OCUNITBF 01977000 @NM00153 EQU @NM00152 01978000 @NM00151 EQU OCSCAN 01979000 OCNOTUCB EQU OCSCAN 01980000 OCNONAME EQU OCSCAN 01981000 OCALLRLN EQU OCSCAN 01982000 OCDDNAME EQU OCSCAN 01983000 OCDDNRLN EQU OCSCAN 01984000 OCADDR EQU OCSCAN 01985000 OCELMPTR EQU OCELEM+1 01986000 LCBERADR EQU LCBXRADR+1 01987000 LCBPCIRC EQU LCBXRADR 01988000 LCBDCT3 EQU LCBXDCT+2 01989000 LCBDCT2 EQU LCBXDCT+1 01990000 LCBDCT1 EQU LCBXDCT 01991000 @NM00150 EQU LCBXFLAG 01992000 LCBERPND EQU LCBXFLAG 01993000 LCBSRCPF EQU LCBXFLAG 01994000 LCBGPCTV EQU LCBXFLAG 01995000 @NM00149 EQU LCBXFLAG 01996000 @NM00148 EQU LCBXFLAG 01997000 @NM00147 EQU LCBXFLAG 01998000 @NM00146 EQU LCBXFLAG 01999000 LCBSVCTD EQU LCBCNTDD 02000000 LCBCCW10 EQU LCBCPA+72 02001000 LCBCCW9 EQU LCBCPA+64 02002000 LCBCCW8 EQU LCBCPA+56 02003000 LCBCCW7 EQU LCBCPA+48 02004000 LCBCCW6 EQU LCBCPA+40 02005000 LCBCP EQU LCBQEBPL+4 02006000 LCBIOSB EQU LCBQEBPL+1 02007000 LCBSIO EQU LCBQEBPL 02008000 LCBCCW3 EQU LCBCPA+16 02009000 @NM00129 EQU LCBERCCW+16 02010000 LCBATL05 EQU LCBERCCW+8 02011000 @NM00128 EQU LCBERCCW 02012000 LCBCSWSV EQU LCBSAVSN+1 02013000 LCBSNSV EQU LCBSAVSN 02014000 LCBBFSNS EQU LCBRSPSV 02015000 LCBWAITC EQU LCBTPCD+5 02016000 LCBINPAK EQU LCBSTAT6 02017000 LCBMHBID EQU LCBSTAT6 02018000 @NM00127 EQU LCBSTAT6 02019000 LCBHDRPD EQU LCBSTAT6 02020000 LCBCHN EQU LCBSTAT6 02021000 LCBBFRSV EQU LCBTPCD+1 02022000 @NM00126 EQU LCBSTAT5 02023000 LCBWCD EQU LCBSTAT5 02024000 LCBWSIGR EQU LCBSTAT5 02025000 LCBRAPMH EQU LCBSTAT5 02026000 LCBSUSFG EQU LCBSTAT5 02027000 LCBLUS EQU LCBSTAT5 02028000 LCBLUNIT EQU LCBSTAT5 02029000 LCBPERM EQU LCBSTAT5 02030000 LCBNXCMD EQU LCBBFRW 02031000 @NM00125 EQU LCBSTAT7 02032000 LCBCDFD0 EQU LCBSTAT7 02033000 LCBSCBA EQU IEDQLCB+93 02034000 LCBOLT EQU LCBMSGFM 02035000 LCBEOT EQU LCBMSGFM 02036000 LCBFMCHN EQU LCBENQ 02037000 LCBFMHDR EQU LCBTTD 02038000 LCBRSTRT EQU LCBMSGFM 02039000 LCBVSTRT EQU LCBMSGFM 02040000 LCBENCIP EQU LCBACKI 02041000 LCBSCRSP EQU LCBNAK 02042000 @NM00124 EQU LCBRBCT2 02043000 LCBDCNT EQU LCBRBCT2 02044000 LCBRBCT1 EQU LCBERBCT 02045000 LCBERBCH EQU IEDQLCB+85 02046000 LCBCOMPL EQU LCBDLNKN 02047000 LCBPRCPG EQU LCBERBST 02048000 LCBERROR EQU LCBERBST 02049000 LCBLOGDV EQU LCBERBST 02050000 LCBINQ EQU LCBERBST 02051000 LCBRDERR EQU LCBERBST 02052000 LCBEOMSG EQU LCBERBST 02053000 LCBMSG EQU LCBERBST 02054000 LCBERBLK EQU IEDQLCB+81 02055000 LCBERBPY EQU IEDQLCB+80 02056000 LCBERBQB EQU LCBERB+1 02057000 LCBERBKY EQU LCBERB 02058000 LCBRECAD EQU IEDQLCB+73 02059000 @NM00123 EQU LCBTSTSW 02060000 @NM00122 EQU LCBTSTSW 02061000 @NM00121 EQU LCBTSTSW 02062000 @NM00120 EQU LCBTSTSW 02063000 @NM00119 EQU LCBTSTSW 02064000 @NM00118 EQU LCBTSTSW 02065000 @NM00117 EQU LCBTSTSW 02066000 LCBCONCT EQU LCBTSTSW 02067000 LCBRESP EQU LCBSTAT2 02068000 LCBBFRAV EQU LCBDIAL 02069000 LCBATTN EQU LCBSYNC 02070000 LCBNEGRP EQU LCBSTAT2 02071000 LCBSNDPR EQU LCBSTAT2 02072000 LCBCONNN EQU LCBBEOTN 02073000 LCBMSGNN EQU LCBSTAT2 02074000 LCBTRACE EQU LCBSTAT2 02075000 LCBSENDN EQU LCBSTAT1 02076000 LCBRECVN EQU LCBSTAT1 02077000 LCBFREEN EQU LCBSTAT1 02078000 LCBCONT EQU LCBSTAT1 02079000 LCBINITN EQU LCBSTAT1 02080000 LCBOCNI EQU LCBSTAT1 02081000 LCBOCWTN EQU LCBSTAT1 02082000 LCBRCLLN EQU LCBSTAT1 02083000 LCBRECOF EQU IEDQLCB+68 02084000 LCBRDBFR EQU LCBRCBFR 02085000 LCBUCBX EQU IEDQLCB+64 02086000 LCBTTBIN EQU LCBERRCT 02087000 LCBINTBF EQU LCBINCAM+1 02088000 @NM00116 EQU LCBINCAM 02089000 LCBEBHLD EQU LCBINCAM 02090000 LCBVRBLK EQU LCBINCAM 02091000 LCBGETMN EQU LCBINCAM 02092000 @NM00114 EQU @NM00113+2 02093000 LCBCPS EQU @NM00113 02094000 LCBCMDSV EQU LCBRESTR 02095000 LCBPCILK EQU LCBDCBPT 02096000 LCBSTART EQU LCBIOBSN+16 02097000 LCBAP4OL EQU LCBSIOCC 02098000 LCBAP3OL EQU LCBSIOCC 02099000 LCBAP2OL EQU LCBSIOCC 02100000 LCBAP1OL EQU LCBSIOCC 02101000 LCBSIOC2 EQU LCBSIOCC 02102000 LCBSIOC1 EQU LCBSIOCC 02103000 @NM00112 EQU LCBSIOCC 02104000 LCBCSWRC EQU LCBCSW+5 02105000 LCBCSCHC EQU LCBCSWCS 02106000 LCBCSICC EQU LCBCSWCS 02107000 LCBCSCCC EQU LCBCSWCS 02108000 LCBCSCDC EQU LCBCSWCS 02109000 LCBCSPTC EQU LCBCSWCS 02110000 LCBCSPGC EQU LCBCSWCS 02111000 LCBCSIL EQU LCBCSWCS 02112000 LCBCSPCI EQU LCBCSWCS 02113000 LCBUSUE EQU LCBCSWUS 02114000 LCBUSUC EQU LCBCSWUS 02115000 LCBUSDE EQU LCBCSWUS 02116000 LCBUSCE EQU LCBCSWUS 02117000 LCBUSBSY EQU LCBCSWUS 02118000 LCBUSCUE EQU LCBCSWUS 02119000 LCBUSSM EQU LCBCSWUS 02120000 LCBUSAT EQU LCBCSWUS 02121000 LCBCSWCA EQU LCBCSW 02122000 LCBOBR EQU LCBFLAG3 02123000 LCBOBRRD EQU LCBFLAG3 02124000 LCBIOMSG EQU LCBFLAG3 02125000 LCBSOHC EQU LCBFLAG3 02126000 LCBRLAD EQU LCBFLAG3 02127000 LCBSOHR EQU LCBFLAG3 02128000 @NM00111 EQU LCBFLAG3 02129000 LCBECBPT EQU LCBIOBSN+4 02130000 LCBECBCC EQU LCBIOBSN+3 02131000 LCBSENS1 EQU LCBSNS+1 02132000 LCBABORT EQU LCBTMOUT 02133000 LCBNOTIN EQU LCBLOSDT 02134000 LCBOVRUN EQU LCBSENS0 02135000 LCBDATCK EQU LCBSENS0 02136000 LCBEQUCK EQU LCBSENS0 02137000 LCBBUSCK EQU LCBSENS0 02138000 LCBINTRQ EQU LCBSENS0 02139000 LCBCMDRJ EQU LCBSENS0 02140000 LCBFLAG2 EQU LCBIOBSN 02141000 @NM00110 EQU LCBFLAG1 02142000 LCBUNREL EQU LCBFLAG1 02143000 LCBEXCPN EQU LCBFLAG1 02144000 @NM00109 EQU LCBFLAG1 02145000 LCBERPIN EQU LCBFLAG1 02146000 @NM00108 EQU LCBFLAG1 02147000 LCBFSBFR EQU LCBMHA 02148000 LCBISZE EQU IEDQLCB+28 02149000 LCBLNENT EQU LCBSCBDA+1 02150000 @NM00107 EQU LCBSCBDA 02151000 LCBCPGMH EQU LCBSTAT4 02152000 LCBREAL EQU LCBPHASE 02153000 LCBCONRQ EQU LCBSTAT4 02154000 LCBACTRQ EQU LCBSTAT4 02155000 LCBIPLRQ EQU LCBSTAT4 02156000 LCBDACRQ EQU LCBSTAT4 02157000 LCBDMPRQ EQU LCBSTAT4 02158000 @NM00106 EQU LCBLKMDE 02159000 LCBDELAY EQU LCBLKMDE 02160000 @NM00105 EQU LCBLKMDE 02161000 LCBLOCKI EQU LCBLKMDE 02162000 LCBLOCKR EQU LCBLKMDE 02163000 LCBHMFLG EQU LCBLKMDE 02164000 LCBBDFLG EQU LCBLKMDE 02165000 LCBLKDST EQU LCBINSRC 02166000 LCBABRTN EQU LCBCHAIN 02167000 LCBCTLMD EQU LCBTETEN 02168000 LCBBFRSZ EQU LCBCHAIN 02169000 LCBUREQN EQU LCBCHAIN 02170000 LCBNORTY EQU LCBCHAIN 02171000 LCBERMSG EQU LCBCHAIN 02172000 LCBEXCP EQU LCBCHAIN 02173000 LCBINVRQ EQU LCBSCRNN 02174000 LCB2741N EQU LCBTSOB 02175000 LCBINHBN EQU LCBTSOB 02176000 LCBCIRCD EQU LCBTSOB 02177000 LCBPREP EQU LCBTSOB 02178000 LCBSOPL EQU LCBTSOB 02179000 LCBSATRD EQU LCBTSOB 02180000 LCBTSBUF EQU LCBTSOB 02181000 LCBWRBRK EQU LCBTSOB 02182000 LCBTDL EQU IEDQLCB+18 02183000 LCBEOLTD EQU IEDQLCB+16 02184000 LCBRSLNK EQU IEDQLCB+13 02185000 LCBRSPRI EQU IEDQLCB+12 02186000 LCBSTCBA EQU IEDQLCB+9 02187000 LCBRSKEY EQU IEDQLCB+8 02188000 LCBLINK EQU LCBRCB+5 02189000 LCBPRI EQU LCBRCB+4 02190000 LCBQCBA EQU LCBRCB+1 02191000 LCBKEY EQU LCBRCB 02192000 BDUXGRPH EQU BDUEXRSP 02193000 BDUXFINL EQU BDUEXRSP 02194000 BDUXINIT EQU BDUEXRSP 02195000 BDURESP EQU BDUSYRSP 02196000 BDUPHASE EQU BDUSYRSP 02197000 BDUERROR EQU BDUSYRSP 02198000 BDUXERLK EQU BDUBDUFG 02199000 BDUALTAK EQU BDUFNFLG 02200000 BDUNEGAK EQU BDUFNFLG 02201000 BDUPOSAK EQU BDUFNFLG 02202000 BDUTPTX EQU BDUFNFLG 02203000 BDUFRSTB EQU BDUFNFLG 02204000 BDULEADG EQU BDUFNFLG 02205000 BDUSTHDR EQU BDUFNFLG 02206000 SAVTEND EQU IEDNSVTD+824 02207000 SAVTPUSN EQU IEDNSVTD+816 02208000 SAVTNTR EQU IEDNSVTD+812 02209000 SAVTNPT EQU IEDNSVTD+808 02210000 SAVTGPE2 EQU IEDNSVTD+804 02211000 SAVTGPP2 EQU IEDNSVTD+800 02212000 SAVTGPT2 EQU IEDNSVTD+799 02213000 SAVTGPT1 EQU IEDNSVTD+798 02214000 SAVTGPTS EQU IEDNSVTD+796 02215000 SAVTGPE1 EQU IEDNSVTD+792 02216000 SAVTGPP1 EQU IEDNSVTD+788 02217000 SAVTNLDM EQU IEDNSVTD+784 02218000 SAVTASRT EQU IEDNSVTD+780 02219000 SAVTATNT EQU IEDNSVTD+776 02220000 SAVTAUXC EQU IEDNSVTD+772 02221000 SAVTSCAN EQU IEDNSVTD+768 02222000 SAVTFCSP EQU IEDNSVTD+764 02223000 SAVTFCSN EQU IEDNSVTD+760 02224000 SAVTFCLI EQU IEDNSVTD+756 02225000 SAVTVARR EQU IEDNSVTD+752 02226000 SAVTFCIN EQU IEDNSVTD+748 02227000 SAVTPTNT EQU IEDNSVTD+744 02228000 SAVTFSAB EQU IEDNSVTD+740 02229000 SAVTGSAB EQU IEDNSVTD+736 02230000 SAVTARSI EQU IEDNSVTD+728 02231000 SAVTARSQ EQU IEDNSVTD+724 02232000 SAVTSABP EQU IEDNSVTD+720 02233000 SAVTPUS EQU IEDNSVTD+716 02234000 SAVTEACR EQU IEDNSVTD+712 02235000 SAVTERAV EQU IEDNSVTD+708 02236000 SAVTCINO EQU IEDNSVTD+704 02237000 SAVTEAVR EQU IEDNSVTD+700 02238000 SAVTEVRP EQU IEDNSVTD+696 02239000 SAVTNLSA EQU IEDNSVTD+692 02240000 SAVTENOP EQU IEDNSVTD+688 02241000 SAVTEROP EQU IEDNSVTD+684 02242000 SAVTEACT EQU IEDNSVTD+680 02243000 SAVTEMGR EQU IEDNSVTD+676 02244000 SAVTEBRQ EQU IEDNSVTD+672 02245000 @NM00104 EQU IEDNSVTD+668 02246000 SAVTERFB EQU IEDNSVTD+664 02247000 SAVTERRB EQU IEDNSVTD+660 02248000 SAVTRTSB EQU IEDNSVTD+656 02249000 SAVTERCQ EQU IEDNSVTD+652 02250000 SAVTVPMG EQU IEDNSVTD+648 02251000 SAVTVNFY EQU IEDNSVTD+644 02252000 SAVTVNOP EQU IEDNSVTD+640 02253000 SAVTVDVR EQU IEDNSVTD+636 02254000 SAVTVDAC EQU IEDNSVTD+632 02255000 SAVTVACT EQU IEDNSVTD+628 02256000 SAVTVAVR EQU IEDNSVTD+624 02257000 SAVTVCVD EQU IEDNSVTD+620 02258000 SAVTVCVA EQU IEDNSVTD+616 02259000 SAVTVMGR EQU IEDNSVTD+612 02260000 SAVTVRIT EQU IEDNSVTD+608 02261000 SAVTERTP EQU IEDNSVTD+604 02262000 SAVTVRTE EQU IEDNSVTD+600 02263000 SAVTERMP EQU IEDNSVTD+596 02264000 SAVTVRTP EQU IEDNSVTD+592 02265000 SAVTWSET EQU IEDNSVTD+588 02266000 SAVTCOSP EQU IEDNSVTD+584 02267000 SAVTINIQ EQU IEDNSVTD+580 02268000 SAVTVRMM EQU IEDNSVTD+576 02269000 SAVTVERI EQU IEDNSVTD+572 02270000 SAVTVRER EQU IEDNSVTD+568 02271000 SAVTFCTL EQU IEDNSVTD+564 02272000 SAVTCNOT EQU IEDNSVTD+560 02273000 SAVTCMMD EQU IEDNSVTD+556 02274000 SAVTCGBU EQU IEDNSVTD+552 02275000 SAVTCBND EQU IEDNSVTD+548 02276000 SAVTPCT2 EQU IEDNSVTD+544 02277000 @NM00103 EQU IEDNSVTD+540 02278000 SAVTERTS EQU IEDNSVTD+536 02279000 SAVTERVR EQU IEDNSVTD+532 02280000 SAVTLST0 EQU IEDNSVTD+530 02281000 SAVTVRTM EQU IEDNSVTD+528 02282000 SAVTVRTC EQU IEDNSVTD+526 02283000 SAVTVRTN EQU IEDNSVTD+524 02284000 SAVTMTPF EQU IEDNSVTD+523 02285000 SAVTMERN EQU IEDNSVTD+522 02286000 SAVTMVRN EQU IEDNSVTD+521 02287000 SAVTSAVR EQU IEDNSVTD+520 02288000 SAVTDEFA EQU IEDNSVTD+516 02289000 SAVTDEFR EQU IEDNSVTD+515 02290000 @NM00102 EQU IEDNSVTD+514 02291000 SAVTDEFL EQU IEDNSVTD+512 02292000 SAVTTDEF EQU IEDNSVTD+508 02293000 SAVTSESN EQU IEDNSVTD+504 02294000 SAVTLCNT EQU IEDNSVTD+502 02295000 SAVTSMAX EQU IEDNSVTD+500 02296000 SAVTSINO EQU IEDNSVTD+498 02297000 SAVTAMAX EQU IEDNSVTD+496 02298000 SAVTAENO EQU IEDNSVTD+494 02299000 SAVTAINO EQU IEDNSVTD+492 02300000 SAVTNMAX EQU IEDNSVTD+490 02301000 SAVTNENO EQU IEDNSVTD+488 02302000 SAVTNINO EQU IEDNSVTD+486 02303000 SAVTRSZE EQU IEDNSVTD+484 02304000 SAVTRMAX EQU IEDNSVTD+482 02305000 SAVTRENO EQU IEDNSVTD+480 02306000 SAVTRINO EQU IEDNSVTD+478 02307000 SAVTRMIN EQU IEDNSVTD+476 02308000 SAVTPMID EQU IEDNSVTD+474 02309000 SAVTRRTC EQU IEDNSVTD+472 02310000 SAVTLUSG EQU IEDNSVTD+468 02311000 SAVTACNQ EQU IEDNSVTD+464 02312000 SAVTCM20 EQU IEDNSVTD+460 02313000 SAVTCFDC EQU IEDNSVTD+456 02314000 SAVTCMOT EQU IEDNSVTD+452 02315000 SAVTCMIN EQU IEDNSVTD+448 02316000 SAVTCPCH EQU IEDNSVTD+444 02317000 SAVTCRGT EQU IEDNSVTD+440 02318000 SAVTNALC EQU IEDNSVTD+436 02319000 SAVTATCT EQU IEDNSVTD+434 02320000 SAVTCRIU EQU IEDNSVTD+432 02321000 SAVTCRHI EQU IEDNSVTD+430 02322000 SAVTCRIB EQU IEDNSVTD+428 02323000 SAVTLCQ EQU IEDNSVTD+424 02324000 SAVTDRSR EQU IEDNSVTD+420 02325000 SAVTATPT EQU IEDNSVTD+416 02326000 SAVTCSMI EQU IEDNSVTD+412 02327000 SAVTNXCR EQU IEDNSVTD+408 02328000 SAVTCRPT EQU IEDNSVTD+404 02329000 SAVTCIPH EQU IEDNSVTD+400 02330000 SAVTBTCO EQU IEDNSVTD+396 02331000 SAVTBTCI EQU IEDNSVTD+392 02332000 SAVTBPCO EQU IEDNSVTD+388 02333000 SAVTBPCI EQU IEDNSVTD+384 02334000 SAVTLLCB EQU IEDNSVTD+380 02335000 SAVTSCF0 EQU IEDNSVTD+376 02336000 SAVTLSNY EQU IEDNSVTD+372 02337000 SAVTLSZP EQU IEDNSVTD+368 02338000 SAVTOMSU EQU IEDNSVTD+364 02339000 SAVTGTSB EQU IEDNSVTD+360 02340000 SAVTHIBL EQU IEDNSVTD+356 02341000 SAVTHISY EQU IEDNSVTD+352 02342000 SAVTNAX2 EQU IEDNSVTD+348 02343000 SAVTCDRU EQU IEDNSVTD+344 02344000 SAVTPOLC EQU IEDNSVTD+342 02345000 SAVTPOLM EQU IEDNSVTD+340 02346000 SAVTPOLR EQU IEDNSVTD+336 02347000 SAVTCDRN EQU SAVTCDRV 02348000 SAVTPOLL EQU IEDNSVTD+328 02349000 SAVTPOLN EQU IEDNSVTD+326 02350000 @NM00101 EQU IEDNSVTD+325 02351000 @NM00100 EQU SAVTNETF 02352000 SAVTPTRC EQU SAVTNETF 02353000 SAVTSDIS EQU SAVTNETF 02354000 SAVTROUT EQU SAVTNETF 02355000 SAVTNETW EQU SAVTNETF 02356000 SAVTDIAL EQU IEDNSVTD+320 02357000 SAVTRQUT EQU IEDNSVTD+316 02358000 SAVTBITN EQU IEDNSVTD+312 02359000 @NM00099 EQU SAVTCKQB+8 02360000 @NM00098 EQU SAVTCKEC+1 02361000 @NM00097 EQU SAVTCKCC 02362000 SAVTCKPO EQU SAVTCKCC 02363000 SAVTCKWA EQU SAVTCKCC 02364000 SAVTCKCH EQU SAVTCKTB+1 02365000 SAVTCKVT EQU SAVTCKTB 02366000 @NM00096 EQU IEDNSVTD+297 02367000 SAVTRDFG EQU SAVTRDRV+12 02368000 @NM00095 EQU SAVTRDRV+5 02369000 SAVTRDPY EQU SAVTRDRV+4 02370000 SAVTRDQB EQU SAVTRDRV+1 02371000 SAVTRDKY EQU SAVTRDRV 02372000 SAVTNID EQU IEDNSVTD+280 02373000 SAVTDVAS EQU IEDNSVTD+276 02374000 SAVTPLSZ EQU IEDNSVTD+274 02375000 @NM00094 EQU IEDNSVTD+273 02376000 @NM00093 EQU SAVTZELM+1 02377000 SAVTSUBM EQU SAVTZELM 02378000 SAVTMHDX EQU IEDNSVTD+268 02379000 SAVTNAT1 EQU IEDNSVTD+266 02380000 SAVTSH20 EQU IEDNSVTD+264 02381000 SAVTLCBS EQU IEDNSVTD+260 02382000 SAVTRNMP EQU IEDNSVTD+256 02383000 SAVTNAX EQU IEDNSVTD+248 02384000 SAVTSUBV EQU IEDNSVTD+247 02385000 SAVTSUBA EQU IEDNSVTD+246 02386000 SAVTSIBC EQU IEDNSVTD+244 02387000 SAVTBSM EQU IEDNSVTD+240 02388000 SAVTSCPT EQU SAVTTCPU 02389000 SAVTRQTG EQU IEDNSVTD+236 02390000 SAVTMAND EQU IEDNSVTD+228 02391000 SAVTSPLN EQU IEDNSVTD+224 02392000 SAVTNADL EQU IEDNSVTD+222 02393000 SAVTNATL EQU IEDNSVTD+220 02394000 SAVTMHTB EQU IEDNSVTD+216 02395000 SAVTSSMH EQU IEDNSVTD+212 02396000 SAVTQRS EQU IEDNSVTD+208 02397000 SAVTRQIN EQU IEDNSVTD+204 02398000 SAVTDFCO EQU IEDNSVTD+200 02399000 SAVTSAO EQU IEDNSVTD+196 02400000 SAVTSARI EQU IEDNSVTD+192 02401000 SAVTSAC EQU IEDNSVTD+188 02402000 SAVTSAI EQU IEDNSVTD+184 02403000 SAVTCSCI EQU IEDNSVTD+180 02404000 SAVTSSRP EQU IEDNSVTD+176 02405000 SAVTSSRQ EQU IEDNSVTD+172 02406000 SAVTEP EQU SAVTSCLU 02407000 SAVTXTRQ EQU IEDNSVTD+164 02408000 SAVTMVBF EQU IEDNSVTD+160 02409000 @NM00092 EQU IEDNSVTD+148 02410000 SAVTIPCQ EQU IEDNSVTD+144 02411000 @NM00091 EQU IEDNSVTD+136 02412000 SAVTXFMI EQU IEDNSVTD+132 02413000 @NM00090 EQU IEDNSVTD+124 02414000 SAVTXFMO EQU IEDNSVTD+120 02415000 @NM00089 EQU IEDNSVTD+116 02416000 SAVTSSSR EQU IEDNSVTD+112 02417000 SAVTSCPQ EQU IEDNSVTD+108 02418000 SAVTSLCB EQU IEDNSVTD+104 02419000 SAVTLUSR EQU IEDNSVTD+100 02420000 @NM00088 EQU SAVTLUSQ+8 02421000 SAVTLUSP EQU SAVTLUSQ+4 02422000 SAVTLUSB EQU SAVTLUSQ 02423000 @NM00087 EQU IEDNSVTD+84 02424000 SAVTNAT EQU IEDNSVTD+76 02425000 SAVTCLUP EQU IEDNSVTD+72 02426000 SAVTPIUT EQU IEDNSVTD+68 02427000 SAVTRNTA EQU IEDNSVTD+64 02428000 SAVTDNIR EQU IEDNSVTD+60 02429000 SAVTCNIR EQU IEDNSVTD+56 02430000 SAVTFLDH EQU IEDNSVTD+52 02431000 SAVTSRTN EQU IEDNSVTD+48 02432000 SAVTSREQ EQU IEDNSVTD+44 02433000 SAVTFAIL EQU IEDNSVTD+42 02434000 SAVTSUSE EQU IEDNSVTD+40 02435000 SAVTSIB EQU IEDNSVTD+36 02436000 SAVTPRTN EQU IEDNSVTD+32 02437000 @NM00086 EQU IEDNSVTD+28 02438000 SAVTWH20 EQU IEDNSVTD+26 02439000 SAVTPWT EQU IEDNSVTD+24 02440000 SAVTPRTQ EQU IEDNSVTD+20 02441000 SAVTPREQ EQU IEDNSVTD+16 02442000 SAVTPH20 EQU IEDNSVTD+14 02443000 SAVTPUSE EQU IEDNSVTD+12 02444000 SAVTPLCB EQU IEDNSVTD+8 02445000 SAVTPOOL EQU IEDNSVTD+4 02446000 SAVTPRMT EQU SAVTDIAF 02447000 SAVTVIRT EQU SAVTDIAF 02448000 AVTEND EQU IEDQAVTD+1284 02449000 AVTREUMI EQU IEDQAVTD+1281 02450000 @NM00085 EQU AVTBIT5 02451000 AVTMIGRM EQU AVTBIT5 02452000 AVTAUACT EQU AVTBIT5 02453000 AVTREUSR EQU AVTBIT5 02454000 AVTQHMCQ EQU IEDQAVTD+1276 02455000 AVTQHMDA EQU IEDQAVTD+1272 02456000 AVTTVT EQU IEDQAVTD+1268 02457000 AVTSITS EQU IEDQAVTD+1264 02458000 AVTMSUHI EQU IEDQAVTD+1260 02459000 AVTSITU EQU IEDQAVTD+1256 02460000 AVTSITP EQU IEDQAVTD+1252 02461000 AVTPADDR EQU IEDQAVTD+1248 02462000 @NM00084 EQU IEDQAVTD+1246 02463000 AVTCPBNO EQU IEDQAVTD+1244 02464000 AVTHRESS EQU IEDQAVTD+1243 02465000 @NM00083 EQU IEDQAVTD+1242 02466000 @NM00082 EQU IEDQAVTD+1241 02467000 @NM00081 EQU IEDQAVTD+1240 02468000 @NM00080 EQU IEDQAVTD+1237 02469000 @NM00079 EQU IEDQAVTD+1236 02470000 AVTHRESE EQU @NM00078 02471000 AVTRADDR EQU IEDQAVTD+1228 02472000 AVTNADDR EQU IEDQAVTD+1224 02473000 AVTHRESN EQU IEDQAVTD+1220 02474000 AVTVOLRN EQU IEDQAVTD+1216 02475000 AVTTOTNN EQU IEDQAVTD+1212 02476000 AVTTRCYN EQU IEDQAVTD+1208 02477000 AVTRCTRN EQU IEDQAVTD+1204 02478000 AVTNOVON EQU IEDQAVTD+1200 02479000 AVTADEBN EQU IEDQAVTD+1196 02480000 AVTVOLRR EQU IEDQAVTD+1192 02481000 AVTTOTNR EQU IEDQAVTD+1188 02482000 AVTTRCYR EQU IEDQAVTD+1184 02483000 AVTRCTRR EQU IEDQAVTD+1180 02484000 AVTNOVOR EQU IEDQAVTD+1176 02485000 AVTADEBR EQU IEDQAVTD+1172 02486000 AVTLODPT EQU IEDQAVTD+1168 02487000 AVTIOBN EQU IEDQAVTD+1164 02488000 AVTIOBR EQU IEDQAVTD+1160 02489000 AVTCPBPT EQU IEDQAVTD+1156 02490000 AVTFCPB EQU IEDQAVTD+1152 02491000 @NM00077 EQU IEDQAVTD+1148 02492000 AVTINCPQ EQU IEDQAVTD+1144 02493000 @NM00076 EQU IEDQAVTD+1140 02494000 @NM00075 EQU IEDQAVTD+1137 02495000 @NM00074 EQU AVTBIT4 02496000 @NM00073 EQU AVTBIT4 02497000 @NM00072 EQU AVTBIT4 02498000 @NM00071 EQU AVTBIT4 02499000 @NM00070 EQU AVTBIT4 02500000 @NM00069 EQU AVTBIT4 02501000 @NM00068 EQU AVTBIT4 02502000 AVTRUFTN EQU AVTBIT4 02503000 @NM00067 EQU IEDQAVTD+1132 02504000 AVTNOBFQ EQU IEDQAVTD+1128 02505000 @NM00066 EQU IEDQAVTD+1124 02506000 AVTDKENQ EQU IEDQAVTD+1120 02507000 @NM00065 EQU IEDQAVTD+1116 02508000 AVTDKAPQ EQU IEDQAVTD+1112 02509000 AVTCOPY EQU IEDQAVTD+1108 02510000 AVTIA EQU IEDQAVTD+1104 02511000 AVTFL EQU IEDQAVTD+1100 02512000 @NM00064 EQU IEDQAVTD+1096 02513000 AVTNCPBQ EQU IEDQAVTD+1092 02514000 AVTTOTNC EQU IEDQAVTD+1088 02515000 AVTCMAX EQU IEDQAVTD+1084 02516000 AVTCMIN EQU IEDQAVTD+1080 02517000 AVTQHM03 EQU IEDQAVTD+1076 02518000 AVTOPCIN EQU IEDQAVTD+1074 02519000 AVTDCTLN EQU IEDQAVTD+1072 02520000 AVTOPMSK EQU IEDQAVTD+1068 02521000 AVTDDFT EQU IEDQAVTD+1064 02522000 AVTSTEAL EQU IEDQAVTD+1060 02523000 AVTOPTN EQU IEDQAVTD+1056 02524000 AVTDSKCT EQU IEDQAVTD+1054 02525000 AVTCKRST EQU IEDQAVTD+1053 02526000 AVTSTAN EQU AVTBIT3 02527000 AVTSTACN EQU AVTBIT3 02528000 AVTSTAIN EQU AVTBIT3 02529000 AVTSTAYN EQU AVTBIT3 02530000 AVTOLTBN EQU AVTBIT3 02531000 AVTTSAB EQU AVTBIT3 02532000 AVTRFULN EQU AVTBIT3 02533000 AVTRECVN EQU AVTBIT3 02534000 @NM00063 EQU AVTBIT2 02535000 @NM00062 EQU AVTBIT2 02536000 AVTOPEIN EQU AVTBIT2 02537000 AVTSTRTN EQU AVTBIT2 02538000 AVTTOPOL EQU AVTBIT2 02539000 AVTCOPYN EQU AVTBIT2 02540000 AVTREUSN EQU AVTBIT2 02541000 AVTEXTSC EQU AVTBIT2 02542000 AVTDISKN EQU AVTBIT1 02543000 AVTQUCKN EQU AVTBIT1 02544000 AVTCLOSN EQU AVTBIT1 02545000 AVTREADN EQU AVTBIT1 02546000 AVTDLAYN EQU AVTBIT1 02547000 AVTAQTAN EQU AVTBIT1 02548000 AVTTSON EQU AVTBIT1 02549000 AVTAPLKN EQU AVTBIT1 02550000 AVTDUMBR EQU IEDQAVTD+1048 02551000 AVTDLQX EQU IEDQAVTD+1046 02552000 AVTINTLV EQU IEDQAVTD+1044 02553000 AVTSMCNT EQU IEDQAVTD+1042 02554000 AVTAVFCT EQU IEDQAVTD+1040 02555000 AVTOPCON EQU IEDQAVTD+1038 02556000 AVTOPCNT EQU IEDQAVTD+1036 02557000 AVTLNCNT EQU IEDQAVTD+1034 02558000 AVTKEYLE EQU IEDQAVTD+1032 02559000 AVTHA16 EQU IEDQAVTD+1030 02560000 AVTHA7 EQU IEDQAVTD+1028 02561000 AVTHA4 EQU IEDQAVTD+1026 02562000 AVTHA3 EQU IEDQAVTD+1024 02563000 AVTHA2 EQU IEDQAVTD+1022 02564000 AVTGETMS EQU IEDQAVTD+1021 02565000 @NM00061 EQU IEDQAVTD+1020 02566000 AVTGETMD EQU IEDQAVTD+1016 02567000 AVTGETMN EQU IEDQAVTD+1012 02568000 AVTCWTOT EQU IEDQAVTD+1008 02569000 AVTCWINT EQU IEDQAVTD+960 02570000 AVTCCECB EQU IEDQAVTD+956 02571000 AVTDTRAP EQU IEDQAVTD+952 02572000 @NM00060 EQU IEDQAVTD+951 02573000 AVTGPTSQ EQU IEDQAVTD+950 02574000 @NM00059 EQU AVTIOTR 02575000 AVTIOTRH EQU AVTIOTR 02576000 AVTIOTRE EQU AVTIOTR 02577000 @NM00058 EQU AVTSUBT 02578000 AVTSUBEX EQU AVTSUBT 02579000 AVTSUBPT EQU AVTSUBT 02580000 AVTSUBON EQU AVTSUBT 02581000 AVTAFE30 EQU IEDQAVTD+944 02582000 AVTAFE20 EQU IEDQAVTD+940 02583000 AVTAFE10 EQU IEDQAVTD+936 02584000 AVTCWEC2 EQU IEDQAVTD+932 02585000 AVTCWPM2 EQU IEDQAVTD+928 02586000 AVTCWTS2 EQU IEDQAVTD+927 02587000 AVTCWTS1 EQU IEDQAVTD+926 02588000 AVTCWCLD EQU AVTCWFL2 02589000 AVTCWRAP EQU AVTCWFL2 02590000 AVTCFE50 EQU AVTCWFL2 02591000 AVTCFE30 EQU AVTCWFL2 02592000 AVTCFE10 EQU AVTCWFL2 02593000 AVTCFE20 EQU AVTCWFL2 02594000 AVTCFE40 EQU AVTCWFL2 02595000 AVTCWACT EQU AVTCWFL2 02596000 AVTCFE60 EQU AVTCWFL1 02597000 @NM00057 EQU AVTCWFL1 02598000 @NM00056 EQU AVTCWFL1 02599000 @NM00055 EQU AVTCWFL1 02600000 @NM00054 EQU AVTCWFL1 02601000 @NM00053 EQU AVTCWFL1 02602000 @NM00052 EQU AVTCWFL1 02603000 AVTCOMWN EQU AVTCWFL1 02604000 AVTCWEC1 EQU IEDQAVTD+920 02605000 AVTCWPM1 EQU IEDQAVTD+916 02606000 AVTCAREA EQU IEDQAVTD+912 02607000 AVTFZERO EQU IEDQAVTD+908 02608000 AVTCADDR EQU IEDQAVTD+904 02609000 AVTCOREC EQU IEDQAVTD+900 02610000 @NM00051 EQU IEDQAVTD+892 02611000 AVTCPBCB EQU IEDQAVTD+888 02612000 @NM00050 EQU IEDQAVTD+880 02613000 AVTDSIOB EQU IEDQAVTD+876 02614000 @NM00049 EQU IEDQAVTD+868 02615000 AVTCPRMB EQU IEDQAVTD+864 02616000 @NM00048 EQU IEDQAVTD+856 02617000 AVTCLOSB EQU IEDQAVTD+852 02618000 @NM00047 EQU IEDQAVTD+844 02619000 AVTACTIB EQU IEDQAVTD+840 02620000 @NM00046 EQU IEDQAVTD+836 02621000 AVTOLTEB EQU IEDQAVTD+832 02622000 AVTOLTCH EQU AVTOLTQB+1 02623000 AVTOLTVT EQU AVTOLTQB 02624000 @NM00045 EQU AVTOPCQB+8 02625000 @NM00044 EQU AVTOPCEC+1 02626000 @NM00043 EQU AVTOPCCC 02627000 AVTOPCPO EQU AVTOPCCC 02628000 AVTOPCWA EQU AVTOPCCC 02629000 AVTOPCCH EQU AVTOPCOB+1 02630000 AVTOPCVT EQU AVTOPCOB 02631000 @NM00042 EQU AVTCKPQB+9 02632000 AVTCKPTS EQU AVTCKPQB+8 02633000 @NM00041 EQU AVTCKPEC+1 02634000 @NM00040 EQU AVTCKPCC 02635000 AVTCKPPO EQU AVTCKPCC 02636000 AVTCKPWA EQU AVTCKPCC 02637000 AVTCKPCH EQU AVTCKPTB+1 02638000 AVTCKPVT EQU AVTCKPTB 02639000 @NM00039 EQU IEDQAVTD+796 02640000 AVTBFRTB EQU IEDQAVTD+792 02641000 @NM00038 EQU IEDQAVTD+788 02642000 AVTSELCH EQU IEDQAVTD+785 02643000 AVTBFRTN EQU AVTBFRFG 02644000 AVTBFREB EQU IEDQAVTD+780 02645000 AVTTIMQ EQU IEDQAVTD+776 02646000 @NM00037 EQU IEDQAVTD+772 02647000 AVTIMQPS EQU IEDQAVTD+768 02648000 AVTINOUT EQU IEDQAVTD+766 02649000 AVTREFTM EQU IEDQAVTD+764 02650000 @NM00036 EQU IEDQAVTD+752 02651000 AVTDELYB EQU IEDQAVTD+748 02652000 AVTOCQPT EQU IEDQAVTD+744 02653000 AVTTSOPT EQU IEDQAVTD+740 02654000 AVTSUPPT EQU IEDQAVTD+736 02655000 AVTCBQCB EQU IEDQAVTD+732 02656000 AVTMSGS EQU IEDQAVTD+729 02657000 @NM00035 EQU AVTSYSER 02658000 @NM00034 EQU AVTSYSER 02659000 @NM00033 EQU AVTSYSER 02660000 @NM00032 EQU AVTSYSER 02661000 @NM00031 EQU AVTSYSER 02662000 @NM00030 EQU AVTSYSER 02663000 AVTCMAXN EQU AVTSYSER 02664000 AVTCMINN EQU AVTSYSER 02665000 AVT2260L EQU IEDQAVTD+724 02666000 AVTABEPL EQU AVTADBUF 02667000 AVTHFF EQU AVTCLRHI+2 02668000 @NM00029 EQU AVTCLRHI 02669000 AVTCCLNK EQU AVTCRELE+5 02670000 AVTCCPRI EQU AVTCRELE+4 02671000 AVTCCQCB EQU AVTCCELE+1 02672000 AVTCCKEY EQU AVTCCELE 02673000 AVTDELAD EQU IEDQAVTD+704 02674000 AVTDELEM EQU IEDQAVTD+700 02675000 AVTBSX EQU AVTCKLNK 02676000 AVTOPETR EQU AVTHG01 02677000 @NM00028 EQU AVTCKBYT 02678000 AVTCKONQ EQU AVTCKBYT 02679000 @NM00027 EQU AVTCKBYT 02680000 @NM00026 EQU AVTCKBYT 02681000 @NM00025 EQU AVTCKBYT 02682000 @NM00024 EQU AVTCKBYT 02683000 @NM00023 EQU AVTCKBYT 02684000 @NM00022 EQU AVTCKBYT 02685000 AVTOPERT EQU IEDQAVTD+690 02686000 AVTOPXCL EQU IEDQAVTD+688 02687000 AVTOPERL EQU IEDQAVTD+687 02688000 @NM00021 EQU IEDQAVTD+686 02689000 AVTCKTIM EQU IEDQAVTD+684 02690000 AVTCKELV EQU IEDQAVTD+682 02691000 AVTCPRCD EQU IEDQAVTD+681 02692000 AVTWARMN EQU AVTCKELF 02693000 AVTCRTLN EQU AVTCKELF 02694000 AVTCPIPN EQU AVTCKELF 02695000 AVTCCLCN EQU AVTCKELF 02696000 AVTCINCN EQU AVTCKELF 02697000 @NM00020 EQU AVTCKELF 02698000 AVTCMCPN EQU AVTCKELF 02699000 AVTNQBCK EQU AVTCKELF 02700000 AVTCKQAD EQU IEDQAVTD+677 02701000 AVTSCBSZ EQU IEDQAVTD+676 02702000 @NM00019 EQU IEDQAVTD+672 02703000 AVTCKELE EQU IEDQAVTD+668 02704000 @NM00018 EQU AVTCKPEL+8 02705000 AVTCKRLK EQU AVTCKPEL+5 02706000 AVTCKRPR EQU AVTCKPEL+4 02707000 AVTCKRMQ EQU AVTCKRMV+1 02708000 AVTCKRKY EQU AVTCKRMV 02709000 AVTHK EQU IEDQAVTD+648 02710000 AVTHI EQU IEDQAVTD+644 02711000 AVTIOT EQU IEDQAVTD+640 02712000 AVTNX EQU IEDQAVTD+636 02713000 AVTTONE EQU IEDQAVTD+632 02714000 AVTA3TL EQU IEDQAVTD+628 02715000 AVTDMECB EQU IEDQAVTD+624 02716000 AVTABEND EQU IEDQAVTD+618 02717000 AVTPLCBN EQU IEDQAVTD+616 02718000 @NM00017 EQU AVTSAVTP+1 02719000 @NM00016 EQU AVTSAVTF 02720000 AVTRAPI EQU AVTSAVTF 02721000 AVTLCLST EQU AVTSAVTF 02722000 AVT370X EQU AVTSAVTF 02723000 AVTSNA EQU AVTSAVTF 02724000 AVTONSNA EQU AVTSAVTF 02725000 AVTVTMCP EQU AVTSAVTF 02726000 AVTTRNOS EQU IEDQAVTD+608 02727000 AVTCMBSS EQU IEDQAVTD+604 02728000 AVTRCV EQU IEDQAVTD+600 02729000 AVTSEND EQU IEDQAVTD+596 02730000 AVTCSCH EQU IEDQAVTD+592 02731000 AVTQ1 EQU IEDQAVTD+588 02732000 AVTE7 EQU IEDQAVTD+584 02733000 AVTHB EQU IEDQAVTD+580 02734000 AVTR1 EQU IEDQAVTD+576 02735000 AVTBZ EQU IEDQAVTD+572 02736000 AVTEZ EQU IEDQAVTD+568 02737000 AVTEC EQU IEDQAVTD+564 02738000 AVTEW EQU IEDQAVTD+560 02739000 AVTNDIAL EQU AVTSCOPT 02740000 AVTN2741 EQU AVTSCOPT 02741000 AVTCONCO EQU AVTSCOPT 02742000 AVTCONC EQU AVTSCOPT 02743000 AVTCMBUF EQU AVTSCOPT 02744000 AVTAPDMP EQU AVTSCOPT 02745000 @NM00015 EQU AVTSCOPT 02746000 AVTHA EQU AVTDISP 02747000 AVTEA EQU IEDQAVTD+548 02748000 AVTAX EQU IEDQAVTD+544 02749000 AVTA3 EQU IEDQAVTD+540 02750000 AVTGD EQU IEDQAVTD+536 02751000 AVTAL EQU IEDQAVTD+532 02752000 AVTOLTST EQU AVTHG02 02753000 AVTE8 EQU IEDQAVTD+524 02754000 AVTUI EQU IEDQAVTD+520 02755000 AVTCOMPT EQU IEDQAVTD+516 02756000 AVTCRSRF EQU IEDQAVTD+512 02757000 @NM00014 EQU IEDQAVTD+508 02758000 AVTKA02 EQU IEDQAVTD+504 02759000 AVTOPTPT EQU IEDQAVTD+500 02760000 AVTPCBPT EQU IEDQAVTD+496 02761000 AVTECBPT EQU AVTECBAD+1 02762000 @NM00013 EQU AVTPSTFL 02763000 AVTCLPST EQU AVTPSTFL 02764000 AVTOPECA EQU IEDQAVTD+488 02765000 AVTOLECA EQU IEDQAVTD+484 02766000 AVTCKECA EQU IEDQAVTD+480 02767000 AVTCWECA EQU IEDQAVTD+476 02768000 AVTCWTCB EQU IEDQAVTD+472 02769000 AVTOLTCB EQU IEDQAVTD+468 02770000 AVTOCTCB EQU IEDQAVTD+464 02771000 AVTCKTCB EQU IEDQAVTD+460 02772000 AVTAS EQU IEDQAVTD+456 02773000 AVTNOLBF EQU IEDQAVTD+454 02774000 AVTNCKPR EQU IEDQAVTD+453 02775000 AVTCIB EQU IEDQAVTD+452 02776000 AVTSPLPT EQU IEDQAVTD+448 02777000 AVTMVBFR EQU IEDQAVTD+444 02778000 AVTSBTA EQU IEDQAVTD+440 02779000 AVTRARTN EQU IEDQAVTD+436 02780000 AVTBSCAN EQU IEDQAVTD+432 02781000 AVTRDYA EQU IEDQAVTD+428 02782000 AVTDISTR EQU IEDQAVTD+420 02783000 AVTPARM3 EQU IEDQAVTD+416 02784000 @NM00012 EQU AVTPKF 02785000 @NM00011 EQU AVTPKF 02786000 @NM00010 EQU AVTPKF 02787000 AVTFTCHF EQU AVTPKF 02788000 @NM00009 EQU AVTPKF 02789000 @NM00008 EQU AVTPKF 02790000 @NM00007 EQU AVTPKF 02791000 @NM00006 EQU AVTPKF 02792000 AVTPARM EQU IEDQAVTD+408 02793000 AVTEXS2A EQU IEDQAVTD+402 02794000 AVTEXA2S EQU IEDQAVTD+396 02795000 AVTOCGET EQU IEDQAVTD+392 02796000 AVTCKAVT EQU @NM00004+1 02797000 @NM00005 EQU AVTCKFLG 02798000 AVTCKECB EQU AVTCKFLG 02799000 AVTCKHLT EQU AVTCKFLG 02800000 AVTCKREQ EQU AVTCKFLG 02801000 AVTCKENV EQU AVTCKFLG 02802000 AVTCKNAC EQU AVTCKFLG 02803000 AVTCKTAC EQU AVTCKFLG 02804000 AVTBUENT EQU IEDQAVTD+386 02805000 @NM00003 EQU IEDQAVTD+385 02806000 AVTFULLT EQU AVTBUFSW 02807000 AVTUNCON EQU AVTBUFSW 02808000 AVTTRAPI EQU AVTBUFSW 02809000 @NM00002 EQU AVTBUFSW 02810000 AVTBUFTR EQU AVTREADD 02811000 AVTREADY EQU IEDQAVTD+376 02812000 AVTRACE EQU IEDQAVTD+372 02813000 AVTTCB EQU IEDQAVTD+368 02814000 AVTPASWD EQU IEDQAVTD+360 02815000 AVTCTLCH EQU IEDQAVTD+352 02816000 AVTDOUBL EQU IEDQAVTD+344 02817000 AVTDOUBX EQU IEDQAVTD+336 02818000 AVTDPARM EQU IEDQAVTD+332 02819000 AVTCSTCS EQU IEDQAVTD+328 02820000 AVTDLQ EQU AVTSAVEX+32 02821000 @NM00001 EQU AVTSAVEX 02822000 AVTSAVE4 EQU IEDQAVTD+216 02823000 AVTSAVE3 EQU IEDQAVTD+144 02824000 AVTSAVE2 EQU IEDQAVTD+72 02825000 AVTSAVE1 EQU IEDQAVTD 02826000 * END UNREFERENCED COMPONENTS 02827000 @RT00535 EQU FREERU 02828000 @RT00537 EQU REQUEST 02829000 @RF00537 EQU ANSWER 02830000 @RT00576 EQU ERREXIT 02831000 @RT00605 EQU FREEOPCE 02832000 @RT00639 EQU FREEOPCE 02833000 @RT00645 EQU BADRU 02834000 @RF00645 EQU GOODRESP 02835000 @RF00685 EQU COMPLETE 02836000 @RC00714 EQU @RC00712 02837000 @RC00719 EQU @RC00712 02838000 @RC00726 EQU @RC00712 02839000 @RC00756 EQU @EL00001 02840000 FOUND EQU @EL00001 02841000 NOSAVED EQU @EL00001 02842000 @RT00759 EQU FOUND 02843000 @EL01 EQU @EL00001 02844000 DS 0D 02845000 @ENDDATA EQU * 02846000 @DATEND EQU * 02847000 END IGCT010D 02848000