TITLE 'IGCA510D, ACTIVATE PHYSICAL UNIT (NON-NCP) *00001000 ' 00002000 IGCA510D CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 * 0474 00005000 USING *,RBASE 00006000 LR RBASE,RF /* SET UP ADDRESSIBILITY */ 00007000 IGCA510D IEDHJN START,HJN 00008000 */* */ 00009000 * 0475 00010000 * /* INITIALIZATION */ 00011000 * ROPCAVT=RPARM; /* OP CONTROL AVT ADDRESS */ 00012000 LR ROPCAVT,RPARM 0475 00013000 * RELEMENT=OPCCOPCE; /* CURRENT ELEMENT ADDRESS */ 00014000 L RELEMENT,OPCCOPCE(,ROPCAVT) 0476 00015000 * RAVT=OPCAVTPT; /* TCAM AVT ADDRESS */ 00016000 L RAVT,OPCAVTPT(,ROPCAVT) 0477 00017000 * RWORK=OPCWORK; /* OP CONTROL WORK AREA */ 00018000 L RWORK,OPCWORK(,ROPCAVT) 0478 00019000 * RSAVE=ADDR(OPCSAVE); /* OP CONTROL SAVE AREA */ 00020000 LA RSAVE,OPCSAVE(,ROPCAVT) 0479 00021000 */* */ 00022000 * 0480 00023000 * IF RELEMENT->PRFPRI=PRIHIFLG THEN/* ELEMENT AN OPCE */ 00024000 CLI PRFPRI(RELEMENT),X'E9' 0480 00025000 BNE @RF00480 0480 00026000 * DO; /* YES... PROCESS */ 00027000 * RPARM=OCTRMTBL; /* TNT FOR RESOURCE */ 00028000 LH RPARM,OCTRMTBL(,ROPCE) 0482 00029000 N RPARM,@CF01760 0482 00030000 * CALL IEDQTNT; /* CONVERT TNT TO TTE */ 00031000 L @15,AVTRNMPT(,RAVT) 0483 00032000 BALR @14,@15 0483 00033000 * RTRM=RPARM; /* SAVE TTE ADDRESS */ 00034000 LR RTRM,RPARM 0484 00035000 * IF OCRESP=OFF THEN /* REQUEST FOR ACTPU */ 00036000 TM OCRESP(ROPCE),B'00000001' 0485 00037000 BNZ @RF00485 0485 00038000 * CALL ACTPURQ; /* START PROCESS NECESSARY FOR 0486 00039000 * ACTIVATE PU */ 00040000 BAL @14,ACTPURQ 0486 00041000 * ELSE 0487 00042000 * DO; 0487 00043000 B @RC00485 0487 00044000 @RF00485 DS 0H 0488 00045000 * WKCMDADR=ADDR(PRUDATA); /* SET UP PTR TO COMMAND */ 00046000 L @09,OCUNIT(,ROPCE) 0488 00047000 LA @11,PRUDATA(,@09) 0488 00048000 ST @11,WKCMDADR(,RWORK) 0488 00049000 * IF PRURHSDI=ON THEN /* SENSE INCLUDED? */ 00050000 AL @09,@CF01761 0489 00051000 TM PRURHSDI(@09),B'00000100' 0489 00052000 BNO @RF00489 0489 00053000 * WKCMDADR=WKCMDADR+4; /* BUMP COMMAND POINTER */ 00054000 AL @11,@CF00327 0490 00055000 ST @11,WKCMDADR(,RWORK) 0490 00056000 * IF COMMAND=CD1XCON THEN /* RESPONSE TO CONTACT */ 00057000 @RF00489 L @09,WKCMDADR(,RWORK) 0491 00058000 CLC COMMAND(3,@09),@CB00720 0491 00059000 BNE @RF00491 0491 00060000 * CALL CONTCTRP; /* PROCESS CONTACT RESPONSE */ 00061000 BAL @14,CONTCTRP 0492 00062000 * ELSE 0493 00063000 * IF COMMAND(1:1)=CD1ACTPU THEN/* RESPONSE TO ACTPU */ 00064000 B @RC00491 0493 00065000 @RF00491 L @09,WKCMDADR(,RWORK) 0493 00066000 CLI COMMAND(@09),X'11' 0493 00067000 BNE @RF00493 0493 00068000 * CALL ACTPURP; /* PROCESS ACTPU RESPONSE */ 00069000 BAL @14,ACTPURP 0494 00070000 * ELSE 0495 00071000 * CALL DISCONRP; /* PROCESS DISCONTACT RESP */ 00072000 B @RC00493 0495 00073000 @RF00493 BAL @14,DISCONRP 0495 00074000 * END; 0496 00075000 * END; 0497 00076000 * ELSE /* CONTACTED REQUEST */ 00077000 * CALL CONTCTRQ; /* PROCESS CONTACTED */ 00078000 B @RC00480 0498 00079000 @RF00480 BAL @14,CONTCTRQ 0498 00080000 */* */ 00081000 * 0499 00082000 * RPARM=ROPCAVT; /* RPARM HAS OP CNTRL AVT */ 00083000 @RC00480 LR RPARM,ROPCAVT 0499 00084000 * GEN REFS(ROPCAVT,OPCXCTL) EXIT; 0500 00085000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00086000 *ACTPURP: 0501 00087000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0501 00088000 * 0501 00089000 @EL00001 DS 0H 0501 00090000 @EF00001 DS 0H 0501 00091000 @ER00001 BR @14 0501 00092000 ACTPURP DS 0H 0502 00093000 * /*****************************************************************/ 00094000 * /* */ 00095000 * /* THIS ROUTINE PROCESSES RESPONSES TO ACTPU. FOR A GOOD RESPONSE*/ 00096000 * /* IT SETS A GOOD RETURN CODE IN OCPARM AND RETURNS THE RESPONSE */ 00097000 * /* TO THE ORIGINAL REQUESTOR (OP SERVICES). FOR A BAD RESPONSE IT*/ 00098000 * /* FREES THE SIB AND SENDS A DISCONTACT. */ 00099000 * /* */ 00100000 * /*****************************************************************/ 00101000 * 0502 00102000 * SAVE1=RE; /* SAVE REG 14 */ 00103000 ST RE,SAVE1(,RWORK) 0502 00104000 */* */ 00105000 * 0503 00106000 * IF PRURHSDI=OFF|SNSMAJ=SNSRQREJ&SNSMIN=SNSACTV THEN/* GOOD RESP? */ 00107000 L @09,OCUNIT(,ROPCE) 0503 00108000 LR @11,@09 0503 00109000 AL @11,@CF01761 0503 00110000 TM PRURHSDI(@11),B'00000100' 0503 00111000 BZ @RT00503 0503 00112000 AL @09,@CF00235 0503 00113000 CLI SNSMAJ(@09),X'08' 0503 00114000 BNE @RF00503 0503 00115000 CLI SNSMIN(@09),X'15' 0503 00116000 BNE @RF00503 0503 00117000 @RT00503 DS 0H 0504 00118000 * DO; 0504 00119000 * IF PRURHSDI=ON THEN /* SENSE INCLUDED ? */ 00120000 L @09,OCUNIT(,ROPCE) 0505 00121000 AL @09,@CF01761 0505 00122000 TM PRURHSDI(@09),B'00000100' 0505 00123000 BNO @RF00505 0505 00124000 * OCPARM=OCRCGNEG; /* SET GOOD RETURN CODE */ 00125000 MVC OCPARM(2,ROPCE),@CH00127 0506 00126000 * ELSE 0507 00127000 * OCPARM=OCRCGPOS; /* SET GOOD RETURN CODE */ 00128000 B @RC00505 0507 00129000 @RF00505 MVC OCPARM(2,ROPCE),@CH00060 0507 00130000 * OPCMODID=OCWTGB; /* RETURN TO REQUESTOR */ 00131000 @RC00505 MVC OPCMODID(2,ROPCAVT),OCWTGB(ROPCE) 0508 00132000 * OCWTG=0; /* CLEAR 'WHERE TO GO' */ 00133000 SLR @09,@09 0509 00134000 STH @09,OCWTG(,ROPCE) 0509 00135000 * END; 0510 00136000 * 0510 00137000 */* */ 00138000 * 0511 00139000 * ELSE 0511 00140000 * DO; /* BAD RESPONSE TO ACTPU */ 00141000 B @RC00503 0511 00142000 @RF00503 DS 0H 0512 00143000 * REQTYPE=REQSFREE; /* PREPARE TO FREE SIB */ 00144000 MVI REQTYPE+12(RWORK),X'04' 0512 00145000 * CALL SIBRTN; /* FREE THE SIB */ 00146000 BAL @14,SIBRTN 0513 00147000 * OCPARM=OCRCBPOS; /* SET BAD RETURN CODE */ 00148000 MVC OCPARM(2,ROPCE),@CH01130 0514 00149000 * OCRESP=OFF; /* TURN OFF OCRESP */ 00150000 NI OCRESP(ROPCE),B'11111110' 0515 00151000 * CALL DISCONRQ; /* SEND DISCONTACT */ 00152000 BAL @14,DISCONRQ 0516 00153000 * OPCMODID=MODID02; /* XCTL TO IGG0210D */ 00154000 MVC OPCMODID(2,ROPCAVT),@CC01716 0517 00155000 * OCWTG=MODIDA5; /* RETURN TO THIS MODULE */ 00156000 MVC OCWTG(2,ROPCE),@CC01714 0518 00157000 * END; 0519 00158000 * 0519 00159000 */* */ 00160000 * 0520 00161000 * RE=SAVE1; /* RESTORE REG 14 */ 00162000 @RC00503 L RE,SAVE1(,RWORK) 0520 00163000 * END ACTPURP; /* RETURN */ 00164000 @EL00002 DS 0H 0521 00165000 @EF00002 DS 0H 0521 00166000 @ER00002 BR @14 0521 00167000 *ACTPURQ: 0522 00168000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0522 00169000 * 0522 00170000 ACTPURQ DS 0H 0523 00171000 * /*****************************************************************/ 00172000 * /* */ 00173000 * /* THIS ROUTINE HANDLES A REQUEST FROM OP SERVICES TO ACTIVATE A */ 00174000 * /* PHYSICAL UNIT. THIS ROUTINE BUILDS A CONTACT COMMAND AND */ 00175000 * /* PREPARES TO SENT OUT THE COMMAND VIA IGC0210D. */ 00176000 * /* */ 00177000 * /*****************************************************************/ 00178000 * 0523 00179000 * SAVE1=RE; /* SAVE REG 14 */ 00180000 ST RE,SAVE1(,RWORK) 0523 00181000 * RPARM=1; /* SET BUFFER UNIT TO 1 */ 00182000 LA RPARM,1 0524 00183000 * CALL ALLOCBUF; /* GET A BUFFER */ 00184000 L @15,OPCGETBF(,ROPCAVT) 0525 00185000 BALR @14,@15 0525 00186000 * OCUNIT=RPARM; /* SAVE UNIT ADDRESS */ 00187000 ST RPARM,OCUNIT(,ROPCE) 0526 00188000 * WKCMDADR=ADDR(PRUDATA); /* POINTER TO DATA AREA */ 00189000 L @09,OCUNIT(,ROPCE) 0527 00190000 LA @11,PRUDATA(,@09) 0527 00191000 ST @11,WKCMDADR(,RWORK) 0527 00192000 * OCWTGB=OCWTG; /* SAVE "WHERE TO GO" */ 00193000 MVC OCWTGB(2,ROPCE),OCWTG(ROPCE) 0528 00194000 */* */ 00195000 * 0529 00196000 * PRURHTH=RHTHFMD; /* INITIALIZE RH AND TH */ 00197000 LR @10,@09 0529 00198000 AL @10,@CF01761 0529 00199000 MVC PRURHTH(4,@10),@CB01709 0529 00200000 * PRUDATCT=LENGTH(IEDXCOND); /* SET UP DATA COUNT FIELD */ 00201000 MVC PRUDATCT(2,@09),@CH00153 0530 00202000 * XCONCODE=CD1XCON; /* CONTACT COMMAND */ 00203000 MVC XCONCODE(3,@11),@CB00720 0531 00204000 * RPARM=OCTRMTBL; /* RESOURCE TNT */ 00205000 LH RPARM,OCTRMTBL(,ROPCE) 0532 00206000 N RPARM,@CF01760 0532 00207000 * CALL IEDIAP04; /* CONVERT TNT TO NET ADDR */ 00208000 L @09,AVTSAVTP(,RAVT) 0533 00209000 L @15,SAVTTNTX(,@09) 0533 00210000 BALR @14,@15 0533 00211000 * XCONADDR=RF; /* PUT NET ADDR IN RU */ 00212000 L @09,WKCMDADR(,RWORK) 0534 00213000 STCM RF,3,XCONADDR(@09) 0534 00214000 * OCPUADR=RF; /* SAVE NETWORK ADDRESS */ 00215000 STH RF,OCPUADR(,ROPCE) 0535 00216000 */* */ 00217000 * 0536 00218000 * TRMPCONT=TRMCCSNT; /* SET CONTACT SENT STATE */ 00219000 LR @09,RTRM 0536 00220000 AL @09,@CF01763 0536 00221000 NI TRMPCONT-1(@09),B'11111001' 0536 00222000 OI TRMPCONT-1(@09),B'00000001' 0536 00223000 * WKTRMPTR=RTRM; /* SAVE PU'S TTE ADDRESS */ 00224000 ST RTRM,WKTRMPTR(,RWORK) 0537 00225000 * RPARM=RTRM; /* TERM TABLE ADDR OF PU */ 00226000 LR RPARM,RTRM 0538 00227000 * DO UNTIL TRMTYPE=TRMLNCP; /* LOCAL NCP?... NO */ 00228000 @DL00539 DS 0H 0540 00229000 * CALL COHORTLK; /* GET SUPERIOR RESOURCE */ 00230000 L @15,OPCHORT(,ROPCAVT) 0540 00231000 BALR @14,@15 0540 00232000 * RTRM=RPARM; /* NEW TERM TABLE ADDRESS */ 00233000 LR RTRM,RPARM 0541 00234000 * END; 0542 00235000 @DE00539 LR @09,RTRM 0542 00236000 AL @09,@CF01130 0542 00237000 CLI TRMTYPE-11(@09),X'0F' 0542 00238000 BNE @DL00539 0542 00239000 * RTRM=WKTRMPTR; /* RESTORE PU'S TTE ADDR */ 00240000 L RTRM,WKTRMPTR(,RWORK) 0543 00241000 * PRUTTCIN=RZERO; /* SET UP DESTINATION IN RU */ 00242000 L @09,OCUNIT(,ROPCE) 0544 00243000 STH RZERO,PRUTTCIN(,@09) 0544 00244000 * OCNCP=RZERO; /* SAVE LOCAL NCP TNT */ 00245000 STH RZERO,OCNCP(,ROPCE) 0545 00246000 */* */ 00247000 * 0546 00248000 * OPCMODID=MODID02; /* XCTL TO IGC0210D */ 00249000 MVC OPCMODID(2,ROPCAVT),@CC01716 0546 00250000 * OCWTG=MODIDA5; /* SET UP RETURN TO 'A5' */ 00251000 MVC OCWTG(2,ROPCE),@CC01714 0547 00252000 */* */ 00253000 * 0548 00254000 * RE=SAVE1; /* RESTORE REG 14 */ 00255000 L RE,SAVE1(,RWORK) 0548 00256000 * END ACTPURQ; /* RETURN */ 00257000 @EL00003 DS 0H 0549 00258000 @EF00003 DS 0H 0549 00259000 @ER00003 BR @14 0549 00260000 *CNTDPROC: 0550 00261000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0550 00262000 * 0550 00263000 CNTDPROC DS 0H 0551 00264000 * /*****************************************************************/ 00265000 * /* */ 00266000 * /* THIS ROUTINE CONTINUES PROCESSING FOR A CONTACTED REQUEST. THE*/ 00267000 * /* STATUS OF THE CONTACTED IS CHECKED. IF GOOD AN ACTIVATE */ 00268000 * /* PHYSICAL UNIT REQUEST IS BUILT . IF BAD THE CONTACT STATE IS */ 00269000 * /* SET TO RESET. A DISCONTACT COMMAND IS NOT NEEDED BECAUSE THE */ 00270000 * /* NCP HAS ALREADY CLEANED UP THE PHYSICAL UNITS CONTACT STATES. */ 00271000 * /* */ 00272000 * /*****************************************************************/ 00273000 * 0551 00274000 * SAVE2=RE; /* SAVE REG 14 */ 00275000 ST RE,SAVE2(,RWORK) 0551 00276000 * RELEMENT=WKCURRNT; /* SAVE OPCE ADDRESS */ 00277000 L RELEMENT,WKCURRNT(,RWORK) 0552 00278000 * OPCCOPCE=RELEMENT; /* SET UP CURRENT ELEMENT 0553 00279000 * @YM03743*/ 00280000 ST RELEMENT,OPCCOPCE(,ROPCAVT) 0553 00281000 * OCUNIT=WKBUFADR; /* SAVE BUFFER ADDRESS */ 00282000 L @09,WKBUFADR(,RWORK) 0554 00283000 ST @09,OCUNIT(,ROPCE) 0554 00284000 * RPARM=OCTRMTBL; /* TNT OF RESOURCE */ 00285000 LH RPARM,OCTRMTBL(,ROPCE) 0555 00286000 N RPARM,@CF01760 0555 00287000 * CALL IEDQTNT; /* CONVERT TNT TO TTE ADDR */ 00288000 L @15,AVTRNMPT(,RAVT) 0556 00289000 BALR @14,@15 0556 00290000 * RTRM=RPARM; /* SAVE TTE ADDRESS */ 00291000 LR RTRM,RPARM 0557 00292000 */* */ 00293000 * 0558 00294000 * IF XCTDSTAT=STATGD THEN /* GOOD STATUS IN CONTACTED */ 00295000 L @09,WKCMDADR(,RWORK) 0558 00296000 CLI XCTDSTAT(@09),1 0558 00297000 BNE @RF00558 0558 00298000 * DO; 0559 00299000 * REQTYPE=REQSGET; /* SET UP TO GET SIB */ 00300000 MVI REQTYPE+12(RWORK),X'03' 0560 00301000 * CALL SIBRTN; /* TRY TO GET A SIB */ 00302000 BAL @14,SIBRTN 0561 00303000 */* */ 00304000 * 0562 00305000 * IF REQRCD1=0 THEN /* SUCCESSFUL? ... YES */ 00306000 LA @09,12 0562 00307000 LR @11,RWORK 0562 00308000 ALR @11,@09 0562 00309000 CLI REQRCD1(@11),0 0562 00310000 BNE @RF00562 0562 00311000 * DO; 0563 00312000 * TRMPCONT=TRMCACTV; /* SET CONTACT STATE ACTIVE */ 00313000 LR @11,RTRM 0564 00314000 AL @11,@CF01763 0564 00315000 NI TRMPCONT-1(@11),B'11111100' 0564 00316000 OI TRMPCONT-1(@11),B'00000100' 0564 00317000 * PRURHTH=RHTHSC; /* INITIALIZE RH AND TH */ 00318000 L @11,OCUNIT(,ROPCE) 0565 00319000 LR @10,@11 0565 00320000 AL @10,@CF01761 0565 00321000 MVC PRURHTH(4,@10),@CB01711 0565 00322000 * PRUTTCIN=OCTRMTBL; /* SET UP DESTINATION */ 00323000 LH @10,OCTRMTBL(,ROPCE) 0566 00324000 N @10,@CF01760 0566 00325000 STH @10,PRUTTCIN(,@11) 0566 00326000 * PRUDATCT=LENGTH(IEDXAPUD);/* SET UP DATA COUNT FIELD */ 00327000 MVC PRUDATCT(2,@11),@CH01628 0567 00328000 * XAPUCODE=CD1ACTPU; /* SET COMMAND CODE */ 00329000 ALR @11,@09 0568 00330000 MVI XAPUCODE(@11),X'11' 0568 00331000 * XAPUTYPE=TYPECOLD; /* SET TYPE ACTIVATE */ 00332000 MVI XAPUTYPE(@11),X'01' 0569 00333000 * XAPUPROF=PUPROF; /* SET FM AND TS PROFILES */ 00334000 MVI XAPUPROF(@11),X'01' 0570 00335000 * XAPUSSCP=SSCPID; /* SET SSCP IDENTIFICATION */ 00336000 MVC XAPUSSCP(6,@11),@CB01723 0571 00337000 * END; 0572 00338000 * 0572 00339000 */* */ 00340000 * 0573 00341000 * ELSE /* CAN'T GET A SIB */ 00342000 * DO; 0573 00343000 B @RC00562 0573 00344000 @RF00562 DS 0H 0574 00345000 * CALL DISCONRQ; /* BUILD DISCONTACT */ 00346000 BAL @14,DISCONRQ 0574 00347000 * OCPARM=OCRCBSIB; /* SET BAD RETURN CODE */ 00348000 MVC OCPARM(2,ROPCE),@CH01128 0575 00349000 * END; 0576 00350000 * 0576 00351000 */* */ 00352000 * 0577 00353000 * /* PREPARE TO EXIT */ 00354000 * OPCMODID=MODID02; /* SET UP TO XCTL TO "02" */ 00355000 @RC00562 MVC OPCMODID(2,ROPCAVT),@CC01716 0577 00356000 * OCWTG=MODIDA5; /* SET UP RETURN TO "A5" */ 00357000 MVC OCWTG(2,ROPCE),@CC01714 0578 00358000 * END; 0579 00359000 * 0579 00360000 */* */ 00361000 * 0580 00362000 * ELSE /* BAD STATUS IN CONTACTED */ 00363000 * DO; 0580 00364000 B @RC00558 0580 00365000 @RF00558 DS 0H 0581 00366000 * CALL DISCONRP; /* HANDLE AS IF A DISCONTACT 0581 00367000 * RESPONSE WAS RECEIVED */ 00368000 BAL @14,DISCONRP 0581 00369000 * OCPARM=OCRCBNEG; /* SET BAD RETURN CODE */ 00370000 MVC OCPARM(2,ROPCE),@CH01126 0582 00371000 * END; 0583 00372000 * 0583 00373000 */* */ 00374000 * 0584 00375000 * RE=SAVE2; /* RESTORE REG 14 */ 00376000 @RC00558 L RE,SAVE2(,RWORK) 0584 00377000 * END CNTDPROC; 0585 00378000 @EL00004 DS 0H 0585 00379000 @EF00004 DS 0H 0585 00380000 @ER00004 BR @14 0585 00381000 *CONTCTRP: 0586 00382000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0586 00383000 * 0586 00384000 CONTCTRP DS 0H 0587 00385000 * /*****************************************************************/ 00386000 * /* */ 00387000 * /* THIS ROUTINE PROCESSES A RESPONSE TO CONTACT. WHEN A GOOD */ 00388000 * /* RESPONSE IS RECEIVED THIS ROUTINE FREES THE RESPONSE BUFFER , */ 00389000 * /* SETS APPROPRIATE CONTACT STATE AND ENQUEUES THE OPCE. WHEN A */ 00390000 * /* BAD RESPONSE IS RECEIVED THIS ROUTINE SETS A BAD RETURN CODE */ 00391000 * /* IN OCPARM, SETS THE APPROPRIATE CONTACT STATE AND RETURNS TO */ 00392000 * /* THE ORIGINAL REQUESTOR(OP SERVICES). */ 00393000 * /* */ 00394000 * /*****************************************************************/ 00395000 * 0587 00396000 * SAVE1=RE; /* SAVE REG 14 */ 00397000 ST RE,SAVE1(,RWORK) 0587 00398000 */* */ 00399000 * 0588 00400000 * IF PRURHSDI=OFF THEN /* GOOD RESPONSE */ 00401000 L @09,OCUNIT(,ROPCE) 0588 00402000 LR @11,@09 0588 00403000 AL @11,@CF01761 0588 00404000 TM PRURHSDI(@11),B'00000100' 0588 00405000 BNZ @RF00588 0588 00406000 * DO; 0589 00407000 * TRMPCONT=TRMCAPND; /* SET CONTACT ACT PEND */ 00408000 LR @11,RTRM 0590 00409000 AL @11,@CF01763 0590 00410000 NI TRMPCONT-1(@11),B'11111010' 0590 00411000 OI TRMPCONT-1(@11),B'00000010' 0590 00412000 * OCRESP=OFF; /* TURN OFF OCRESP */ 00413000 NI OCRESP(ROPCE),B'11111110' 0591 00414000 * RPARM=OCUNIT; /* ADDR OF UNIT TO BE FREED */ 00415000 LR RPARM,@09 0592 00416000 * CALL FREEBUF; /* FREE THE BUFFER */ 00417000 L @15,OPCFREBF(,ROPCAVT) 0593 00418000 BALR @14,@15 0593 00419000 */* */ 00420000 * 0594 00421000 * OCLINK=OPCWAITP; /* ADD OPCE TO TOP OF CHAIN */ 00422000 L @09,OPCWAITP(,ROPCAVT) 0594 00423000 ST @09,OCLINK(,ROPCE) 0594 00424000 * OPCWAITP=RELEMENT; /* ASSIGN CHAIN POINTER TO NEW 0595 00425000 * OPCE */ 00426000 ST RELEMENT,OPCWAITP(,ROPCAVT) 0595 00427000 * OPCMODID=MODID00; /* SET UP TO XCTL TO '00' */ 00428000 MVC OPCMODID(2,ROPCAVT),@CC01718 0596 00429000 * RZERO=0; /* CLEAR REG 0 @YM03724*/ 00430000 SLR RZERO,RZERO 0597 00431000 */* */ 00432000 * 0598 00433000 * END; 0598 00434000 * 0598 00435000 */* */ 00436000 * 0599 00437000 * ELSE /* BAD RESPONSE */ 00438000 * DO; 0599 00439000 B @RC00588 0599 00440000 @RF00588 DS 0H 0600 00441000 * TRMPCONT=TRMCRSET; /* CONTACT RESET STATE */ 00442000 LR @09,RTRM 0600 00443000 AL @09,@CF01763 0600 00444000 NI TRMPCONT-1(@09),B'11111000' 0600 00445000 * OCPARM=OCRCBNEG; /* SET BAD RETURN CODE */ 00446000 MVC OCPARM(2,ROPCE),@CH01126 0601 00447000 * OPCMODID=OCWTGB; /* SET UP RETURN TO OP SERV */ 00448000 MVC OPCMODID(2,ROPCAVT),OCWTGB(ROPCE) 0602 00449000 * OCWTG=0; /* CLEAR 'WHERE TO GO' */ 00450000 SLR @09,@09 0603 00451000 STH @09,OCWTG(,ROPCE) 0603 00452000 * END; 0604 00453000 * 0604 00454000 */* */ 00455000 * 0605 00456000 * RE=SAVE1; /* RESTORE REG 14 */ 00457000 @RC00588 L RE,SAVE1(,RWORK) 0605 00458000 * END CONTCTRP; /* RETURN */ 00459000 @EL00005 DS 0H 0606 00460000 @EF00005 DS 0H 0606 00461000 @ER00005 BR @14 0606 00462000 *CONTCTRQ: 0607 00463000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0607 00464000 * 0607 00465000 CONTCTRQ DS 0H 0608 00466000 */* ******************************************************************/ 00467000 */* */ 00468000 */* THIS ROUTINE PROCESSES A CONTACTED REQUEST. THERE ARE FOUR */ 00469000 */* POSSIBILITIES TO CONSIDER WHEN THE CONTACTED REQUEST ARRIVES. */ 00470000 */* ... */ 00471000 */* 1. NO OPCE ON THE OPCWAITP CHAIN FOR THIS PU. */ 00472000 */* FOR THIS CASE DO THE FOLLOWING: */ 00473000 */* A. FREE THE CONTACTED BUFFER */ 00474000 */* B. PASS CONTROL TO IGC0010D */ 00475000 */* ... */ 00476000 */* 2. CONTACTED REQUEST CONTAINS BAD STATUS. */ 00477000 */* FOR THIS CASE */ 00478000 */* A. DELINK THE OPCE */ 00479000 */* B. SET BAD RETURN CODE IN OCPARM */ 00480000 */* C. RETURN TO ORIGINAL REQUESTOR */ 00481000 */* ... */ 00482000 */* 3. SIB CAN NOT BE OBTAINED. */ 00483000 */* FOR THIS CASE */ 00484000 */* A. DELINK THE OPCE */ 00485000 */* B. BUILD DISCONTACT REQUEST */ 00486000 */* C. SET BAD RETURN CODE (INDICATING THAT SIB CAN NOT BE */ 00487000 */* OBTAINED) IN OCPARM */ 00488000 */* D. PASS CONTROL TO IGC0210D */ 00489000 */* ... */ 00490000 */* 4. NORMAL NON-ERROR CASE */ 00491000 */* FOR THIS CASE */ 00492000 */* A. DELINK OPCE */ 00493000 */* B. GET A SIB */ 00494000 */* C. BUILD ACTPU REQUEST */ 00495000 */* D. PASS CONTROL TO IGC0210D */ 00496000 */* */ 00497000 */* ******************************************************************/ 00498000 * 0608 00499000 * SAVE1=RE; /* SAVE REG 14 */ 00500000 ST RE,SAVE1(,RWORK) 0608 00501000 * WKBUFADR=RELEMENT; /* SAVE BUFFER ADDRESS */ 00502000 ST RELEMENT,WKBUFADR(,RWORK) 0609 00503000 * WKCMDADR=AVTHDRSZ+ADDR(PRFSUNIT)+PRFISIZE;/* CALCULATE CMD ADDR */ 00504000 L @09,WKBUFADR(,RWORK) 0610 00505000 LA @11,PRFSUNIT(,@09) 0610 00506000 AL @11,@CF00439 0610 00507000 SLR @10,@10 0610 00508000 IC @10,PRFISIZE(,@09) 0610 00509000 ALR @11,@10 0610 00510000 ST @11,WKCMDADR(,RWORK) 0610 00511000 */* */ 00512000 * 0611 00513000 * WKFNDSW=OFF; /* INITIALIZE SWITCH OFF */ 00514000 NI WKFNDSW(RWORK),B'01111111' 0611 00515000 * WKCURRNT=OPCWAITP; /* FIRST OPCE ON CHAIN */ 00516000 L @09,OPCWAITP(,ROPCAVT) 0612 00517000 ST @09,WKCURRNT(,RWORK) 0612 00518000 * WKPREV=ADDR(OPCWAITP); /* SET UP CHAIN ANCHOR */ 00519000 LA @09,OPCWAITP(,ROPCAVT) 0613 00520000 ST @09,WKPREV(,RWORK) 0613 00521000 */* */ 00522000 * 0614 00523000 * DO WHILE WKFNDSW=OFF&WKCURRNT>0;/* NOT END OF CHAIN AND MATCH NOT 00524000 * FOUND */ 00525000 B @DE00614 0614 00526000 @DL00614 DS 0H 0615 00527000 * IF XCTDADDR=WKCURRNT->OCPUADR THEN/* OPCE FOR THIS RESOURCE */ 00528000 L @09,WKCMDADR(,RWORK) 0615 00529000 L @11,WKCURRNT(,RWORK) 0615 00530000 CLC XCTDADDR(2,@09),OCPUADR(@11) 0615 00531000 BNE @RF00615 0615 00532000 * DO; 0616 00533000 * WKPREV->OCLINK=WKCURRNT->OCLINK;/* DELINK OPCE */ 00534000 L @09,WKPREV(,RWORK) 0617 00535000 L @11,OCLINK(,@11) 0617 00536000 ST @11,OCLINK(,@09) 0617 00537000 * WKFNDSW=ON; /* SET FOUND SWITCH */ 00538000 OI WKFNDSW(RWORK),B'10000000' 0618 00539000 * END; 0619 00540000 * ELSE 0620 00541000 * DO; 0620 00542000 B @RC00615 0620 00543000 @RF00615 DS 0H 0621 00544000 * WKPREV=WKCURRNT; /* SAVE ADDR FOE DELINKING */ 00545000 L @09,WKCURRNT(,RWORK) 0621 00546000 ST @09,WKPREV(,RWORK) 0621 00547000 * WKCURRNT=WKCURRNT->OCLINK;/* GET NEXT OPCE ON CHAIN */ 00548000 L @09,OCLINK(,@09) 0622 00549000 ST @09,WKCURRNT(,RWORK) 0622 00550000 * END; 0623 00551000 * END; 0624 00552000 * 0624 00553000 @RC00615 DS 0H 0624 00554000 @DE00614 TM WKFNDSW(RWORK),B'10000000' 0624 00555000 BNZ @DC00614 0624 00556000 L @09,WKCURRNT(,RWORK) 0624 00557000 LTR @09,@09 0624 00558000 BP @DL00614 0624 00559000 @DC00614 DS 0H 0625 00560000 */* */ 00561000 * 0625 00562000 * IF WKFNDSW=ON THEN /* OPCE ON THE CHAIN */ 00563000 TM WKFNDSW(RWORK),B'10000000' 0625 00564000 BNO @RF00625 0625 00565000 * CALL CNTDPROC; /* MORE PROCESSING FOR CONTACTED 00566000 * REQUEST */ 00567000 BAL @14,CNTDPROC 0626 00568000 */* */ 00569000 * 0627 00570000 * ELSE /* NOT WAITING ON CONTACTED */ 00571000 * DO; /* SET UP TO FREE BUFFER */ 00572000 B @RC00625 0627 00573000 @RF00625 DS 0H 0628 00574000 * RPARM=WKBUFADR; /* BUFFER ADDRESS */ 00575000 L RPARM,WKBUFADR(,RWORK) 0628 00576000 * CALL FREEBUF; /* FREE BUFFER */ 00577000 L @15,OPCFREBF(,ROPCAVT) 0629 00578000 BALR @14,@15 0629 00579000 * OPCMODID=MODID00; /* SET UP TO XCTL TO "00" */ 00580000 MVC OPCMODID(2,ROPCAVT),@CC01718 0630 00581000 * RZERO=0; /* CLEAR REG 0 @YM03724*/ 00582000 SLR RZERO,RZERO 0631 00583000 * END; 0632 00584000 * 0632 00585000 */* */ 00586000 * 0633 00587000 * RE=SAVE1; /* RESTORE REG 14 */ 00588000 @RC00625 L RE,SAVE1(,RWORK) 0633 00589000 * END CONTCTRQ; /* RETURN */ 00590000 @EL00006 DS 0H 0634 00591000 @EF00006 DS 0H 0634 00592000 @ER00006 BR @14 0634 00593000 *DISCONRP: 0635 00594000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0635 00595000 * 0635 00596000 DISCONRP DS 0H 0636 00597000 * /*****************************************************************/ 00598000 * /* */ 00599000 * /* THIS ROUTINE PROCESSES A DISCONTACT RESPONSE. THE CONTACT */ 00600000 * /* STATE IS SET AND IT SETS UP FIELDS NECESSARY TO RETURN TO THE */ 00601000 * /* ORIGINAL REQUESTOR (OPERATOR SERVICES). */ 00602000 * /* */ 00603000 * /*****************************************************************/ 00604000 * 0636 00605000 * TRMPCONT=TRMCRSET; /* SET CONTACT RESET STATE */ 00606000 LR @09,RTRM 0636 00607000 AL @09,@CF01763 0636 00608000 NI TRMPCONT-1(@09),B'11111000' 0636 00609000 * OPCMODID=OCWTGB; /* SET UP RETURN TO OP SERV */ 00610000 MVC OPCMODID(2,ROPCAVT),OCWTGB(ROPCE) 0637 00611000 * OCWTG=0; /* CLEAR "WHERE TO GO" */ 00612000 SLR @09,@09 0638 00613000 STH @09,OCWTG(,ROPCE) 0638 00614000 * END DISCONRP; /* RETURN */ 00615000 @EL00007 DS 0H 0639 00616000 @EF00007 DS 0H 0639 00617000 @ER00007 BR @14 0639 00618000 *DISCONRQ: 0640 00619000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0640 00620000 * 0640 00621000 DISCONRQ DS 0H 0641 00622000 * /*****************************************************************/ 00623000 * /* */ 00624000 * /* THIS ROUTINE BUILDS A DISCONTACT REQUEST EITHER IN THE BUFFER */ 00625000 * /* THAT HAS THE CONTACTED REQUEST OR IN THE ACTPU RESPONSE */ 00626000 * /* BUFFER. */ 00627000 * /* */ 00628000 * /*****************************************************************/ 00629000 * 0641 00630000 */* */ 00631000 * 0641 00632000 * WKCMDADR=ADDR(PRUDATA); /* SET UP CMD PTR @YM03746*/ 00633000 L @09,OCUNIT(,ROPCE) 0641 00634000 LA @11,PRUDATA(,@09) 0641 00635000 ST @11,WKCMDADR(,RWORK) 0641 00636000 * PRURHTH=RHTHFMD; /* INITIALIZE RH AND TH */ 00637000 LR @10,@09 0642 00638000 AL @10,@CF01761 0642 00639000 MVC PRURHTH(4,@10),@CB01709 0642 00640000 * PRUDATCT=LENGTH(IEDXDSCD); /* SET UP DATA COUNT FIELD */ 00641000 MVC PRUDATCT(2,@09),@CH00153 0643 00642000 * PRUTTCIN=OCNCP; /* SET UP DESTINATION */ 00643000 LH @10,OCNCP(,ROPCE) 0644 00644000 N @10,@CF01760 0644 00645000 STH @10,PRUTTCIN(,@09) 0644 00646000 * XDSCCODE=CD1XDSC; /* DISCONTACT COMMAND */ 00647000 MVC XDSCCODE(3,@11),@CB00724 0645 00648000 * XDSCADDR=OCPUADR; /* SET UP NETWORK ADDRESS */ 00649000 MVC XDSCADDR(2,@11),OCPUADR(ROPCE) 0646 00650000 * TRMPCONT=TRMCRPND; /* SET DISCONTACT SENT */ 00651000 LR @09,RTRM 0647 00652000 AL @09,@CF01763 0647 00653000 NI TRMPCONT-1(@09),B'11111011' 0647 00654000 OI TRMPCONT-1(@09),B'00000011' 0647 00655000 */* */ 00656000 * 0648 00657000 * END DISCONRQ; /* RETURN */ 00658000 @EL00008 DS 0H 0648 00659000 @EF00008 DS 0H 0648 00660000 @ER00008 BR @14 0648 00661000 *SIBRTN: 0649 00662000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0649 00663000 * 0649 00664000 SIBRTN DS 0H 0650 00665000 * /*****************************************************************/ 00666000 * /* */ 00667000 * /* THIS ROUTINE IS CALLED EITHER TO GET A SIB OR FREE A SIB. IN */ 00668000 * /* ORDER TO ACCOMPLISH THIS TASK A REQUEST ELEMENT MUST BE BUILT */ 00669000 * /* AND PASSED TO THE POSTWAIT SUBROUTINE IN IEDQCA. NOTE: REQTYPE*/ 00670000 * /* MUST BE SET UP BEFORE CALLING THIS ROUTINE. */ 00671000 * /* */ 00672000 * /*****************************************************************/ 00673000 * 0650 00674000 * SAVE3=RE; /* SAVE REG 14 */ 00675000 ST RE,SAVE3(,RWORK) 0650 00676000 */* */ 00677000 * 0651 00678000 * REQQCBA=SAVTXTRQ; /* QCB ADDRESS */ 00679000 LA @09,12 0651 00680000 ALR @09,RWORK 0651 00681000 L @11,AVTSAVTP(,RAVT) 0651 00682000 MVC REQQCBA(3,@09),SAVTXTRQ+1(@11) 0651 00683000 * REQPRI=PRISIBRQ; /* PRIORITY */ 00684000 MVI REQPRI(@09),X'E5' 0652 00685000 * REQRPRI=PRISIBRQ; /* RETURN PRIORITY */ 00686000 MVI REQRPRI(@09),X'E5' 0653 00687000 * REQRQCBA=ADDR(OPCPWQCB); /* RETURN QCB ADDRESS @YM08403*/ 00688000 LA @10,OPCPWQCB(,ROPCAVT) 0654 00689000 STCM @10,7,REQRQCBA(@09) 0654 00690000 * REQSTTE=RTRM; /* TTE OF RESOURCE */ 00691000 ST RTRM,REQSTTE(,@09) 0655 00692000 * REQSTNT=SAVTSCPT; /* TNT INDEX OF SSCP */ 00693000 LH @11,SAVTSCPT(,@11) 0656 00694000 N @11,@CF01760 0656 00695000 STH @11,REQSTNT(,@09) 0656 00696000 */* */ 00697000 * 0657 00698000 * RPARM=ADDR(WKREQELE); /* REQUEST ELEMENT ADDR */ 00699000 LA RPARM,WKREQELE(,RWORK) 0657 00700000 * CALL POSTWAIT; /* GET OR FREE A SIB */ 00701000 L @15,OPCPSTWT(,ROPCAVT) 0658 00702000 BALR @14,@15 0658 00703000 */* */ 00704000 * 0659 00705000 * RE=SAVE3; /* RESTORE REG 14 */ 00706000 L RE,SAVE3(,RWORK) 0659 00707000 * END SIBRTN; /* RETURN TO CALLER */ 00708000 @EL00009 DS 0H 0660 00709000 @EF00009 DS 0H 0660 00710000 @ER00009 BR @14 0660 00711000 * END IGCA510D 0661 00712000 * 0661 00713000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00714000 */*%INCLUDE SYSLIB (TAVTD ) */ 00715000 */*%INCLUDE SYSLIB (TCD1D ) */ 00716000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00717000 */*%INCLUDE SYSLIB (TOPCED ) */ 00718000 */*%INCLUDE SYSLIB (TPRFD ) */ 00719000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00720000 */*%INCLUDE SYSLIB (TPRUD ) */ 00721000 */*%INCLUDE SYSLIB (TREQD ) */ 00722000 */*%INCLUDE SYSLIB (TSNSD ) */ 00723000 */*%INCLUDE SYSLIB (TTRMD ) */ 00724000 */*%INCLUDE SYSLIB (TXAPUD ) */ 00725000 */*%INCLUDE SYSLIB (TXCOND ) */ 00726000 */*%INCLUDE SYSLIB (TXCTDD ) */ 00727000 */*%INCLUDE SYSLIB (TXDSCD ) */ 00728000 * 0661 00729000 * ; 0661 00730000 @DATA DS 0H 00731000 @CH00060 DC H'1' 00732000 @CH00127 DC H'2' 00733000 @CH00153 DC H'5' 00734000 @CH01628 DC H'9' 00735000 @CH01128 DC H'-2' 00736000 @CH01126 DC H'-1' 00737000 DS 0F 00738000 DS 0F 00739000 @CF00327 DC F'4' 00740000 @CF00235 DC F'12' 00741000 @CF01763 DC F'-13' 00742000 @CF01761 DC F'-8' 00743000 @CF01130 DC F'-3' 00744000 @CH01130 EQU @CF01130+2 00745000 @CF01760 DC XL4'0000FFFF' 00746000 @CF00439 DC XL4'1E' 00747000 DS 0D 00748000 @CC01714 DC C'A5' 00749000 @CC01716 DC C'02' 00750000 @CC01718 DC C'00' 00751000 @CB01723 DC X'05000000000A' 00752000 @CB01709 DC X'0B80001C' 00753000 @CB01711 DC X'6B80001D' 00754000 @CB00720 DC X'010201' 00755000 @CB00724 DC X'010202' 00756000 PATCH DC 100X'00' 00757000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00758000 @01 EQU 01 00759000 @02 EQU 02 00760000 @03 EQU 03 00761000 @04 EQU 04 00762000 @05 EQU 05 00763000 @06 EQU 06 00764000 @07 EQU 07 00765000 @08 EQU 08 00766000 @09 EQU 09 00767000 @10 EQU 10 00768000 @11 EQU 11 00769000 @12 EQU 12 00770000 @13 EQU 13 00771000 @14 EQU 14 00772000 @15 EQU 15 00773000 IEDQAPTR EQU @04 00774000 ROPCAVT EQU @02 00775000 ROPCE EQU @03 00776000 IEDQTPTR EQU @08 00777000 RZERO EQU @00 00778000 RPARM EQU @01 00779000 RELEMENT EQU @03 00780000 RAVT EQU @04 00781000 RWORK EQU @05 00782000 RTRM EQU @08 00783000 RBASE EQU @12 00784000 RSAVE EQU @13 00785000 RE EQU @14 00786000 RF EQU @15 00787000 IEDQAVTD EQU 0 00788000 AVTSAVEX EQU IEDQAVTD+288 00789000 @NM00003 EQU IEDQAVTD+388 00790000 AVTCKFLG EQU @NM00003 00791000 AVTBASE EQU IEDQAVTD+412 00792000 AVTPKF EQU AVTBASE 00793000 AVTRNMPT EQU IEDQAVTD+424 00794000 AVTHG02 EQU IEDQAVTD+528 00795000 AVTDISP EQU IEDQAVTD+552 00796000 AVTHD EQU IEDQAVTD+556 00797000 AVTSCOPT EQU AVTHD 00798000 AVTSAVTP EQU IEDQAVTD+612 00799000 AVTSAVTF EQU AVTSAVTP 00800000 AVTCKPEL EQU IEDQAVTD+652 00801000 AVTCKRMV EQU AVTCKPEL 00802000 AVTCKELF EQU IEDQAVTD+680 00803000 AVTCKBYT EQU IEDQAVTD+691 00804000 AVTHG01 EQU IEDQAVTD+692 00805000 AVTCKLNK EQU IEDQAVTD+696 00806000 AVTCRELE EQU IEDQAVTD+708 00807000 AVTCCELE EQU AVTCRELE 00808000 AVTCLRHI EQU IEDQAVTD+716 00809000 AVTADBUF EQU IEDQAVTD+720 00810000 AVTSYSER EQU IEDQAVTD+728 00811000 AVTCKPQB EQU IEDQAVTD+804 00812000 AVTCKPTB EQU AVTCKPQB 00813000 AVTCKPEC EQU AVTCKPQB+4 00814000 AVTCKPCC EQU AVTCKPEC 00815000 AVTOPCQB EQU IEDQAVTD+816 00816000 AVTOPCOB EQU AVTOPCQB 00817000 AVTOPCEC EQU AVTOPCQB+4 00818000 AVTOPCCC EQU AVTOPCEC 00819000 AVTOLTQB EQU IEDQAVTD+828 00820000 AVTCWFL1 EQU IEDQAVTD+924 00821000 AVTCWFL2 EQU IEDQAVTD+925 00822000 AVTSUBT EQU IEDQAVTD+948 00823000 AVTIOTR EQU IEDQAVTD+949 00824000 AVTBIT1 EQU IEDQAVTD+1050 00825000 AVTBIT2 EQU IEDQAVTD+1051 00826000 AVTBIT3 EQU IEDQAVTD+1052 00827000 AVTBIT4 EQU IEDQAVTD+1136 00828000 @NM00083 EQU IEDQAVTD+1232 00829000 IEDNSVTD EQU 0 00830000 SAVTDIAG EQU IEDNSVTD 00831000 SAVTDIAF EQU SAVTDIAG 00832000 SAVTLUSQ EQU IEDNSVTD+88 00833000 SAVTXTRQ EQU IEDNSVTD+164 00834000 SAVTTCPU EQU IEDNSVTD+238 00835000 SAVTSCPT EQU SAVTTCPU 00836000 SAVTTNTX EQU IEDNSVTD+252 00837000 SAVTZELM EQU IEDNSVTD+270 00838000 SAVTRDRV EQU IEDNSVTD+284 00839000 SAVTCKQB EQU IEDNSVTD+300 00840000 SAVTCKTB EQU SAVTCKQB 00841000 SAVTCKEC EQU SAVTCKQB+4 00842000 SAVTCKCC EQU SAVTCKEC 00843000 IEDQOPCD EQU 0 00844000 OPCAVTPT EQU IEDQOPCD+8 00845000 OPCCOPCE EQU IEDQOPCD+12 00846000 OPCPSTWT EQU IEDQOPCD+48 00847000 OPCSAVE EQU IEDQOPCD+56 00848000 OPCWORK EQU IEDQOPCD+140 00849000 OPCAQCTL EQU IEDQOPCD+180 00850000 OPCXCTL EQU IEDQOPCD+204 00851000 OPCLDNME EQU IEDQOPCD+212 00852000 OPCMODID EQU OPCLDNME+3 00853000 OPCWAITP EQU IEDQOPCD+236 00854000 OPCHORT EQU IEDQOPCD+256 00855000 OPCGETBF EQU IEDQOPCD+276 00856000 OPCFREBF EQU IEDQOPCD+280 00857000 OPCSPEC EQU IEDQOPCD+300 00858000 OPCPWCOB EQU IEDQOPCD+368 00859000 OPCPWQCB EQU OPCPWCOB 00860000 OPCPWECB EQU OPCPWCOB+4 00861000 IEDQOPCE EQU 0 00862000 OCLINK EQU IEDQOPCE 00863000 OCELEM EQU IEDQOPCE+4 00864000 OCUNIT EQU IEDQOPCE+8 00865000 OCRUDEST EQU OCUNIT 00866000 OCCKPKEY EQU OCRUDEST 00867000 OCSCAN EQU OCCKPKEY 00868000 OCOPTCDE EQU IEDQOPCE+12 00869000 OCSWITCH EQU IEDQOPCE+13 00870000 OCFLAG EQU IEDQOPCE+14 00871000 OCRESP EQU OCFLAG 00872000 @NM00119 EQU IEDQOPCE+16 00873000 OCDEST EQU @NM00119 00874000 OCREQVAL EQU OCDEST+1 00875000 OCTRMTBL EQU IEDQOPCE+20 00876000 OCLINENO EQU IEDQOPCE+22 00877000 OCTIOT EQU OCLINENO 00878000 OCWTGB EQU OCTIOT 00879000 OCTRUNIT EQU IEDQOPCE+24 00880000 OCRSID EQU OCTRUNIT 00881000 OCALSTAT EQU OCRSID 00882000 OCPARM EQU IEDQOPCE+28 00883000 OCWTG EQU IEDQOPCE+30 00884000 OCBACKUP EQU IEDQOPCE+32 00885000 OCNCP EQU OCBACKUP+4 00886000 OCMODNME EQU IEDQOPCE+40 00887000 OCIPLWA EQU OCMODNME 00888000 OCPUADR EQU OCIPLWA+2 00889000 OCCKDATA EQU IEDQOPCE+48 00890000 OCRSTGTM EQU OCCKDATA 00891000 IEDQOPCN EQU 0 00892000 OCLDNME EQU IEDQOPCN 00893000 OCLINTTE EQU OCLDNME 00894000 OCREQFLG EQU OCLINTTE+2 00895000 OCPREFLG EQU OCLINTTE+3 00896000 IEDQPRF EQU 0 00897000 PRFRCB EQU IEDQPRF 00898000 PRFKEY EQU PRFRCB 00899000 PRFQCBA EQU PRFRCB+1 00900000 PRFPRI EQU PRFRCB+4 00901000 PRFLINK EQU PRFRCB+5 00902000 PRFTIC EQU IEDQPRF+8 00903000 PRFTICC EQU PRFTIC 00904000 PRFNBUNT EQU IEDQPRF+12 00905000 PRFSUNIT EQU PRFNBUNT 00906000 PRFPLQCB EQU PRFSUNIT 00907000 @NM00136 EQU IEDQPRF+16 00908000 PRFSVFFO EQU @NM00136 00909000 PRFSTAT1 EQU IEDQPRF+20 00910000 PRFEOFN EQU PRFSTAT1 00911000 PRFCORE EQU IEDQPRF+21 00912000 PRFXTRA EQU PRFCORE 00913000 PRFSCAN EQU IEDQPRF+24 00914000 PRFISIZE EQU PRFSCAN+1 00915000 PRFTQBCK EQU IEDQPRF+26 00916000 PRFNTXT EQU PRFTQBCK 00917000 PRFEOBOF EQU PRFNTXT 00918000 PRFCHDR EQU IEDQPRF+32 00919000 PRFHQBCK EQU IEDQPRF+35 00920000 IEDQPPTR EQU 0 00921000 IEDPF1 EQU 0 00922000 PRF1FLG1 EQU IEDPF1+3 00923000 PRF1WD2 EQU IEDPF1+4 00924000 PRF1SEQP EQU PRF1WD2 00925000 PRF1SQID EQU PRF1SEQP 00926000 PRF1TAG1 EQU PRF1SQID 00927000 IEDPF2 EQU 0 00928000 PRF2FLG2 EQU IEDPF2 00929000 PRF2WD2 EQU IEDPF2+4 00930000 IEDPRUQD EQU 0 00931000 PRUTTCIN EQU IEDPRUQD 00932000 PRUDATCT EQU IEDPRUQD+2 00933000 PRUTIC EQU IEDPRUQD+8 00934000 PRUDATA EQU IEDPRUQD+12 00935000 IEDPRUQP EQU 0 00936000 IEDPRUND EQU 0 00937000 PRURHTH EQU IEDPRUND 00938000 PRURH EQU PRURHTH 00939000 PRURHFG0 EQU PRURH 00940000 PRURHSDI EQU PRURHFG0 00941000 PRURHFG1 EQU PRURH+1 00942000 PRURHFG2 EQU PRURH+2 00943000 PRUTH EQU PRURHTH+3 00944000 PRUFIDN EQU PRUTH 00945000 IEDREQD EQU 0 00946000 REQTYPE EQU IEDREQD 00947000 REQQCBA EQU IEDREQD+1 00948000 REQPRI EQU IEDREQD+4 00949000 REQRPRI EQU IEDREQD+8 00950000 REQRQCBA EQU IEDREQD+9 00951000 REQROUTE EQU IEDREQD+12 00952000 REQRCDS EQU IEDREQD+14 00953000 REQRCD1 EQU REQRCDS 00954000 REQDATA EQU IEDREQD+16 00955000 IEDSNSD EQU 0 00956000 SNSSYSTM EQU IEDSNSD 00957000 SNSMAJ EQU SNSSYSTM 00958000 SNSMIN EQU SNSSYSTM+1 00959000 SNSUSER EQU IEDSNSD+2 00960000 SNSPTR EQU 0 00961000 IEDQTRM EQU 0 00962000 TRMSTATE EQU IEDQTRM 00963000 TRMLOG EQU TRMSTATE 00964000 TRMINSEQ EQU IEDQTRM+4 00965000 TLISTCNT EQU TRMINSEQ 00966000 TRMOUTSQ EQU IEDQTRM+6 00967000 TLISTEN EQU TRMOUTSQ 00968000 TRMDSORG EQU TLISTEN 00969000 TRMALTD EQU IEDQTRM+8 00970000 TRMDEVFL EQU IEDQTRM+10 00971000 TRMSTAT EQU IEDQTRM+12 00972000 IEDNTRM EQU 0 00973000 TRMBYTE4 EQU IEDNTRM 00974000 TRMBYTE3 EQU IEDNTRM+1 00975000 TRMBYTE2 EQU IEDNTRM+2 00976000 TRMINPG EQU TRMBYTE2 00977000 TRMBYTE1 EQU IEDNTRM+3 00978000 TRMSCPRQ EQU TRMBYTE1 00979000 TRMBYTE0 EQU IEDNTRM+6 00980000 TRMSIBPT EQU IEDNTRM+7 00981000 TRMTYPE EQU IEDNTRM+11 00982000 IEDXAPUD EQU 0 00983000 XAPUCMD EQU IEDXAPUD 00984000 XAPUCODE EQU XAPUCMD 00985000 XAPUTYPE EQU XAPUCMD+1 00986000 XAPUPROF EQU XAPUCMD+2 00987000 XAPUSSCP EQU XAPUCMD+3 00988000 XAPUPTR EQU 0 00989000 IEDXCOND EQU 0 00990000 XCONCMD EQU IEDXCOND 00991000 XCONCODE EQU XCONCMD 00992000 XCONADDR EQU XCONCMD+3 00993000 XCONPTR EQU 0 00994000 IEDXCTDD EQU 0 00995000 XCTDCMD EQU IEDXCTDD 00996000 XCTDCODE EQU XCTDCMD 00997000 XCTDADDR EQU XCTDCMD+3 00998000 XCTDSTAT EQU XCTDCMD+5 00999000 XCTDPTR EQU 0 01000000 IEDXDSCD EQU 0 01001000 XDSCCMD EQU IEDXDSCD 01002000 XDSCCODE EQU XDSCCMD 01003000 XDSCADDR EQU XDSCCMD+3 01004000 XDSCPTR EQU 0 01005000 ALLOCBUF EQU 0 01006000 COHORTLK EQU 0 01007000 FREEBUF EQU 0 01008000 IEDIAP04 EQU 0 01009000 IEDQTNT EQU 0 01010000 POSTWAIT EQU 0 01011000 WORKAREA EQU 0 01012000 SAVE1 EQU WORKAREA 01013000 SAVE2 EQU WORKAREA+4 01014000 SAVE3 EQU WORKAREA+8 01015000 WKREQELE EQU WORKAREA+12 01016000 WKCMDADR EQU WORKAREA+40 01017000 WKCURRNT EQU WORKAREA+44 01018000 WKPREV EQU WORKAREA+48 01019000 WKBUFADR EQU WORKAREA+52 01020000 WKTRMPTR EQU WORKAREA+56 01021000 WKFNDSW EQU WORKAREA+60 01022000 COMMAND EQU 0 01023000 OPCAQWD EQU OPCAQCTL 01024000 OPCAQWD1 EQU OPCAQWD 01025000 OPCAQWD2 EQU OPCAQWD+4 01026000 OPCAQWD3 EQU OPCAQWD+8 01027000 OCCKPKY1 EQU OCCKPKEY 01028000 OCCKPTYP EQU OCCKPKY1 01029000 OCICACTN EQU OCMODNME 01030000 OCICDADR EQU OCICACTN 01031000 OCICSW EQU OCICDADR+3 01032000 REQLDATA EQU REQDATA 01033000 REQSDATA EQU REQDATA 01034000 REQSTTE EQU REQSDATA 01035000 REQSTNT EQU REQSDATA+4 01036000 TRMPRE1 EQU TRMBYTE4 01037000 TRMNCP1 EQU TRMBYTE4 01038000 TRMPRE EQU TRMBYTE3 01039000 TRMNCP EQU TRMBYTE3 01040000 TRMPU EQU TRMBYTE3 01041000 TRMPCONT EQU TRMPU 01042000 TRMLU EQU TRMBYTE3 01043000 TRMLINK EQU TRMBYTE3 01044000 OCCIB EQU OCREQVAL 01045000 PRFSHDR EQU IEDQPRF+42 01046000 TRMOPT EQU IEDQTRM+20 01047000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01048000 @NM00155 EQU TRMLINK 01049000 TRMLSTAT EQU TRMLINK 01050000 TRMLINT EQU TRMLINK 01051000 TRMEPMOD EQU TRMLINK 01052000 TRMLULOG EQU TRMLU 01053000 TRMINERR EQU TRMLU 01054000 TRMLUREQ EQU TRMLU 01055000 TRMSESRQ EQU TRMLU 01056000 TRMTDIFF EQU TRMLU 01057000 TRMLUTM EQU TRMLU 01058000 TRMLUIT EQU TRMLU 01059000 TRMAUTO EQU TRMLU 01060000 @NM00154 EQU TRMPU 01061000 TRMNCONT EQU TRMNCP 01062000 TRMQUCKN EQU TRMNCP 01063000 TRMSLOWN EQU TRMNCP 01064000 TRMSYGEN EQU TRMNCP 01065000 TRMNCPCL EQU TRMNCP 01066000 TRMIPLDM EQU TRMNCP 01067000 TRMINOUT EQU TRMPRE 01068000 TRMRDOUT EQU TRMPRE 01069000 TRMNLOUT EQU TRMPRE 01070000 TRMWROUT EQU TRMPRE 01071000 TRMASNXI EQU TRMPRE 01072000 TRMSTMM EQU TRMPRE 01073000 TRMCMODE EQU TRMPRE 01074000 TRMSTPND EQU TRMPRE 01075000 @NM00153 EQU TRMNCP1 01076000 TRMINOP EQU TRMNCP1 01077000 TRMLYNCH EQU TRMPRE1 01078000 TRMSPOUT EQU TRMPRE1 01079000 TRMERLCK EQU TRMPRE1 01080000 TRMQNPL EQU TRMPRE1 01081000 TRMSPACT EQU TRMPRE1 01082000 TRMOCNI EQU TRMPRE1 01083000 TRMSESSN EQU TRMPRE1 01084000 TRMCONT EQU TRMPRE1 01085000 REQLTNT EQU REQLDATA 01086000 OCICINAC EQU OCICSW 01087000 @NM00125 EQU OCICSW 01088000 OCICATST EQU OCICDADR+1 01089000 OCICTYPE EQU OCICDADR 01090000 @NM00124 EQU OCCKPKY1 01091000 OCCKPENV EQU OCCKPKY1 01092000 OCCKPRST EQU OCCKPTYP 01093000 OCCKPNCP EQU OCCKPTYP 01094000 OCCKPINC EQU OCCKPTYP 01095000 OPCAQLST EQU OPCAQWD3+1 01096000 OPCAQRQ3 EQU OPCAQWD3 01097000 OPCAQSEC EQU OPCAQWD2+1 01098000 OPCAQRQ2 EQU OPCAQWD2 01099000 OPCAQFST EQU OPCAQWD1+1 01100000 OPCAQREQ EQU OPCAQWD1 01101000 XDSCREQ EQU XDSCCODE+2 01102000 XDSCCONF EQU XDSCCODE+1 01103000 XDSCNETS EQU XDSCCODE 01104000 XCTDREQ EQU XCTDCODE+2 01105000 XCTDCONF EQU XCTDCODE+1 01106000 XCTDNETS EQU XCTDCODE 01107000 XCONREQ EQU XCONCODE+2 01108000 XCONCONF EQU XCONCODE+1 01109000 XCONNETS EQU XCONCODE 01110000 XAPUBID EQU XAPUSSCP+1 01111000 XAPUPTYP EQU XAPUSSCP 01112000 @NM00156 EQU XAPUSSCP 01113000 XAPUTS EQU XAPUPROF 01114000 XAPUFM EQU XAPUPROF 01115000 TRMSUBST EQU IEDNTRM+12 01116000 TRMRLMCT EQU IEDNTRM+10 01117000 TRMCOHTG EQU TRMSIBPT+1 01118000 TRMGPCNT EQU TRMSIBPT 01119000 TRMBUFRD EQU TRMBYTE0 01120000 TRMSNA EQU TRMBYTE0 01121000 TRMGP EQU TRMBYTE0 01122000 TRMDIAL EQU TRMBYTE0 01123000 @NM00152 EQU TRMBYTE0 01124000 TRMOUTPT EQU TRMBYTE0 01125000 TRMINPUT EQU TRMBYTE0 01126000 TRMUDEF EQU TRMBYTE0 01127000 TRMCOHRT EQU IEDNTRM+4 01128000 TRMSTOTE EQU TRMBYTE1 01129000 TRMCKPRN EQU TRMBYTE1 01130000 TRMTSATN EQU TRMBYTE1 01131000 TRMTRACE EQU TRMBYTE1 01132000 TRMSWBCK EQU TRMBYTE1 01133000 TRMAUTOC EQU TRMBYTE1 01134000 TRMINPTP EQU TRMBYTE1 01135000 TRMWTNEG EQU TRMSCPRQ 01136000 TRMWRBRK EQU TRMBYTE2 01137000 TRMNOSND EQU TRMBYTE2 01138000 TRMPREP EQU TRMBYTE2 01139000 TRMGPACT EQU TRMBYTE2 01140000 TRMANDL EQU TRMBYTE2 01141000 TRMCLOSN EQU TRMINPG 01142000 TRMREMB EQU TRMBYTE2 01143000 TRMRSACT EQU TRMBYTE2 01144000 TRMOPTBL EQU IEDQTRM+18 01145000 TRMOPNO EQU IEDQTRM+17 01146000 TRMCHCIN EQU IEDQTRM+16 01147000 TRMSENSE EQU TRMSTAT+3 01148000 TRMTEMPR EQU TRMSTAT+2 01149000 TRMSIO EQU TRMSTAT 01150000 @NM00151 EQU TRMDEVFL+1 01151000 TRMTPIN EQU TRMDEVFL+1 01152000 TRMNCPI EQU TRMDEVFL+1 01153000 TRMRNTRM EQU TRMDEVFL+1 01154000 @NM00150 EQU TRMDEVFL+1 01155000 TRMLMD EQU TRMDEVFL+1 01156000 TRMCONC EQU TRMDEVFL+1 01157000 TRMTSOB EQU TRMDEVFL 01158000 TRMBFDY EQU TRMDEVFL 01159000 TRMTBLK EQU TRMDEVFL 01160000 TRMSBLK EQU TRMDEVFL 01161000 TRMBLKS EQU TRMDEVFL 01162000 TRMADDC EQU TRMDEVFL 01163000 TRMDDIG EQU TRMDEVFL 01164000 TRMBUFS EQU TRMDEVFL 01165000 TRMPRILK EQU TRMALTD 01166000 TRMLGB EQU TRMDSORG 01167000 TRMUTERM EQU TLISTCNT 01168000 TRMDESTQ EQU IEDQTRM+1 01169000 TRMSCNYN EQU TRMSTATE 01170000 TRMOPTFN EQU TRMSTATE 01171000 TRMHELDN EQU TRMSTATE 01172000 TRMACPTN EQU TRMSTATE 01173000 TRMPREF EQU TRMSTATE 01174000 TRMPROC EQU TRMLOG 01175000 TRMLIST EQU TRMLOG 01176000 TRMLINE EQU TRMSTATE 01177000 SNSUSR2 EQU SNSUSER+1 01178000 SNSUSR1 EQU SNSUSER 01179000 REQRCD2 EQU REQRCDS+1 01180000 REQSWTCH EQU REQROUTE+1 01181000 REQFLAG EQU REQROUTE 01182000 REQLINK EQU IEDREQD+5 01183000 @NM00149 EQU IEDPRUND+4 01184000 PRUTHEFI EQU PRUFIDN 01185000 PRUTHUSS EQU PRUFIDN 01186000 PRUTHEIU EQU PRUFIDN 01187000 PRUTHBIU EQU PRUFIDN 01188000 PRUTHTYE EQU PRUFIDN 01189000 @NM00148 EQU PRURHFG2 01190000 PRURHCSI EQU PRURHFG2 01191000 @NM00147 EQU PRURHFG2 01192000 PRURHCDI EQU PRURHFG2 01193000 PRURHEB EQU PRURHFG2 01194000 PRURHBB EQU PRURHFG2 01195000 PRURHPI EQU PRURHFG1 01196000 @NM00146 EQU PRURHFG1 01197000 PRURHER EQU PRURHFG1 01198000 PRURHDR2 EQU PRURHFG1 01199000 @NM00145 EQU PRURHFG1 01200000 PRURHDR1 EQU PRURHFG1 01201000 PRURHEC EQU PRURHFG0 01202000 PRURHBC EQU PRURHFG0 01203000 PRURHFI EQU PRURHFG0 01204000 @NM00144 EQU PRURHFG0 01205000 PRURUCAT EQU PRURHFG0 01206000 PRURHTYP EQU PRURHFG0 01207000 PRUNUNIT EQU PRUTIC+1 01208000 @NM00143 EQU PRUTIC 01209000 @NM00142 EQU IEDPRUQD+4 01210000 PRF2SEQP EQU PRF2WD2 01211000 @NM00141 EQU IEDPF2+1 01212000 @NM00140 EQU PRF2FLG2 01213000 PRF2SMI EQU PRF2FLG2 01214000 PRF2FORM EQU PRF2FLG2 01215000 PRF2TNTI EQU PRF2FLG2 01216000 PRF1RULN EQU PRF1SEQP+2 01217000 PRF1TAG2 EQU PRF1SQID+1 01218000 @NM00139 EQU PRF1TAG1 01219000 PRF1TAGS EQU PRF1TAG1 01220000 @NM00138 EQU PRF1FLG1 01221000 PRF1LOGD EQU PRF1FLG1 01222000 PRF1USS EQU PRF1FLG1 01223000 PRF1FORM EQU PRF1FLG1 01224000 PRF1EXPI EQU PRF1FLG1 01225000 PRF1FIDI EQU PRF1FLG1 01226000 PRF1RH EQU IEDPF1 01227000 PRFDEST EQU IEDQPRF+40 01228000 PRFISEQ EQU IEDQPRF+38 01229000 PRFSTXT EQU PRFHQBCK 01230000 PRFNHDR EQU PRFCHDR 01231000 PRFCRCD EQU IEDQPRF+29 01232000 PRFSVSEQ EQU PRFNTXT+1 01233000 PRFSVPRI EQU PRFEOBOF 01234000 @NM00137 EQU PRFSCAN 01235000 PRFEOB EQU PRFXTRA+1 01236000 PRFSTSO EQU PRFXTRA 01237000 PRFNHDRN EQU PRFSTAT1 01238000 PRFNLSTN EQU PRFSTAT1 01239000 PRFLOCK EQU PRFEOFN 01240000 PRFDUPLN EQU PRFSTAT1 01241000 PRFTSMSG EQU PRFSTAT1 01242000 PRFITCPN EQU PRFSTAT1 01243000 PRFERMGN EQU PRFSTAT1 01244000 PRFCNCLN EQU PRFSTAT1 01245000 PRFSVFLG EQU @NM00136+3 01246000 PRFSIZE EQU PRFSVFFO+2 01247000 PRFSRCE EQU PRFSVFFO 01248000 PRFLCB EQU IEDQPRF+13 01249000 PRFPIUO EQU PRFPLQCB 01250000 PRFTI0 EQU PRFTIC+1 01251000 @NM00135 EQU PRFTICC 01252000 @NM00134 EQU PRFTICC 01253000 @NM00133 EQU PRFTICC 01254000 PRFTICON EQU PRFTICC 01255000 @NM00132 EQU PRFTICC 01256000 @NM00131 EQU PRFTICC 01257000 PRFBFMM EQU PRFTICC 01258000 PRFEOMSG EQU PRFTICC 01259000 PRFCOUNT EQU PRFLINK+1 01260000 @NM00130 EQU PRFLINK 01261000 PRFFLAGS EQU PRFPRI 01262000 PRFIOADR EQU PRFQCBA 01263000 PRFOPCDE EQU PRFKEY 01264000 @NM00129 EQU OCLDNME+4 01265000 @NM00128 EQU OCPREFLG 01266000 OCTOTEP EQU OCPREFLG 01267000 OCREPOST EQU OCPREFLG 01268000 OCRSPSNT EQU OCPREFLG 01269000 OCBFREQ EQU OCPREFLG 01270000 OCIDLE EQU OCREQFLG 01271000 OCFORCE EQU OCREQFLG 01272000 OCDCARD EQU OCREQFLG 01273000 OCPARTAL EQU OCREQFLG 01274000 OCADNCP EQU OCREQFLG 01275000 @NM00127 EQU OCREQFLG 01276000 @NM00126 EQU OCREQFLG 01277000 OCFLUSHZ EQU OCREQFLG 01278000 OCRESPCT EQU OCLINTTE 01279000 OCCKPTWA EQU OCCKDATA+4 01280000 @NM00123 EQU OCRSTGTM+2 01281000 OCCKDAT2 EQU OCRSTGTM+1 01282000 OCCKDAT1 EQU OCRSTGTM 01283000 OCPTRSAV EQU OCMODNME+4 01284000 OCWTGSAV EQU OCIPLWA 01285000 OCDVRDCT EQU OCBACKUP+6 01286000 OCBUFGOT EQU OCBACKUP+2 01287000 OCBUFNED EQU OCBACKUP 01288000 OCRESNUM EQU OCPARM 01289000 OCSEQ EQU OCTRUNIT+2 01290000 @NM00122 EQU OCRSID+1 01291000 OCNONE EQU OCALSTAT 01292000 OCSOME EQU OCALSTAT 01293000 OCALLFLG EQU OCALSTAT 01294000 OCACTREQ EQU OCALSTAT 01295000 OCREDRVE EQU OCALSTAT 01296000 OCSEQIND EQU OCALSTAT 01297000 @NM00121 EQU OCALSTAT 01298000 OCRENTRD EQU OCALSTAT 01299000 @NM00120 EQU @NM00119+2 01300000 OCCONID EQU OCDEST 01301000 OCRLN EQU IEDQOPCE+15 01302000 OCATTACH EQU OCFLAG 01303000 OCSSCP EQU OCFLAG 01304000 OCOUTPUT EQU OCFLAG 01305000 OCLINE EQU OCFLAG 01306000 OCMPP EQU OCFLAG 01307000 OCTOTE EQU OCFLAG 01308000 OCCONSOL EQU OCFLAG 01309000 @NM00118 EQU OCSWITCH 01310000 OCQUCKN EQU OCSWITCH 01311000 OCPRIFLG EQU OCOPTCDE 01312000 @NM00117 EQU OCRUDEST+1 01313000 @NM00116 EQU OCSCAN 01314000 OCNOTUCB EQU OCSCAN 01315000 OCNONAME EQU OCSCAN 01316000 OCALLRLN EQU OCSCAN 01317000 OCDDNAME EQU OCSCAN 01318000 OCDDNRLN EQU OCSCAN 01319000 OCADDR EQU OCSCAN 01320000 OCELMPTR EQU OCELEM+1 01321000 OCELMPRI EQU OCELEM 01322000 OPCBOTTM EQU IEDQOPCD+1184 01323000 @NM00115 EQU IEDQOPCD+1100 01324000 @NM00114 EQU IEDQOPCD+948 01325000 @NM00113 EQU IEDQOPCD+940 01326000 @NM00112 EQU IEDQOPCD+380 01327000 @NM00111 EQU OPCPWCOB+8 01328000 @NM00110 EQU OPCPWECB+1 01329000 OPCPWCCC EQU OPCPWECB 01330000 OPCPWCHN EQU OPCPWQCB+1 01331000 OPCPWVTO EQU OPCPWQCB 01332000 OPCWAITV EQU IEDQOPCD+364 01333000 OPCTOTCK EQU IEDQOPCD+360 01334000 OPCAPXTL EQU IEDQOPCD+356 01335000 OPCDECR EQU IEDQOPCD+352 01336000 OPCBUFWT EQU IEDQOPCD+348 01337000 OPCWRKSP EQU IEDQOPCD+320 01338000 OPCADGOT EQU IEDQOPCD+318 01339000 OPCRQCNT EQU IEDQOPCD+316 01340000 OPPOLSTP EQU IEDQOPCD+312 01341000 OPCCKCIB EQU IEDQOPCD+308 01342000 OPCEND EQU IEDQOPCD+307 01343000 OPCSTCBS EQU IEDQOPCD+306 01344000 OPCHNEND EQU IEDQOPCD+302 01345000 OPCOQSW EQU IEDQOPCD+301 01346000 @NM00109 EQU OPCSPEC 01347000 @NM00108 EQU OPCSPEC 01348000 @NM00107 EQU OPCSPEC 01349000 @NM00106 EQU OPCSPEC 01350000 OPCFRMCA EQU OPCSPEC 01351000 OPCRSTRT EQU OPCSPEC 01352000 OPCPART EQU OPCSPEC 01353000 OPCALTD EQU OPCSPEC 01354000 OPCBFEND EQU IEDQOPCD+296 01355000 OPCBFIRS EQU IEDQOPCD+292 01356000 OPCAVBUF EQU IEDQOPCD+290 01357000 OPCIPLCT EQU IEDQOPCD+289 01358000 OPCCLNTS EQU IEDQOPCD+288 01359000 OPCHA8 EQU IEDQOPCD+286 01360000 OPCBFREQ EQU IEDQOPCD+284 01361000 OPCNEXT EQU IEDQOPCD+272 01362000 OPCFMDFC EQU IEDQOPCD+268 01363000 OPCSCNC EQU IEDQOPCD+264 01364000 OPCHORTG EQU IEDQOPCD+260 01365000 OPCCKPTL EQU IEDQOPCD+252 01366000 OPCCKPTF EQU IEDQOPCD+248 01367000 OPCWAITA EQU IEDQOPCD+244 01368000 OPCWAITR EQU IEDQOPCD+240 01369000 OPCWAITO EQU IEDQOPCD+232 01370000 OPCWAITN EQU IEDQOPCD+228 01371000 OPCWAITL EQU IEDQOPCD+224 01372000 OPCWAITC EQU IEDQOPCD+220 01373000 @NM00105 EQU OPCLDNME+5 01374000 @NM00104 EQU OPCLDNME 01375000 OPCWAIT EQU IEDQOPCD+192 01376000 OPCCKERB EQU IEDQOPCD+164 01377000 OPCBFERB EQU IEDQOPCD+148 01378000 OPCFLAG2 EQU IEDQOPCD+147 01379000 OPCFLAG1 EQU IEDQOPCD+146 01380000 OPCWRKSZ EQU IEDQOPCD+144 01381000 OPCRSAVE EQU IEDQOPCD+132 01382000 OPCQCBAD EQU IEDQOPCD+128 01383000 OPCTRMWA EQU IEDQOPCD+52 01384000 OPCTNTEA EQU IEDQOPCD+44 01385000 OPCPGCK EQU IEDQOPCD+40 01386000 OPCLCB EQU IEDQOPCD+36 01387000 @NM00103 EQU IEDQOPCD+32 01388000 OPCIPLAD EQU IEDQOPCD+28 01389000 OPCTOFLK EQU IEDQOPCD+24 01390000 OPCOPTLK EQU IEDQOPCD+20 01391000 OPCDCBLK EQU IEDQOPCD+16 01392000 OPCDOUBL EQU IEDQOPCD 01393000 SAVTBITN EQU IEDNSVTD+312 01394000 @NM00102 EQU SAVTCKQB+8 01395000 @NM00101 EQU SAVTCKEC+1 01396000 @NM00100 EQU SAVTCKCC 01397000 SAVTCKPO EQU SAVTCKCC 01398000 SAVTCKWA EQU SAVTCKCC 01399000 SAVTCKCH EQU SAVTCKTB+1 01400000 SAVTCKVT EQU SAVTCKTB 01401000 @NM00099 EQU IEDNSVTD+297 01402000 SAVTRDFG EQU SAVTRDRV+12 01403000 @NM00098 EQU SAVTRDRV+5 01404000 SAVTRDPY EQU SAVTRDRV+4 01405000 SAVTRDQB EQU SAVTRDRV+1 01406000 SAVTRDKY EQU SAVTRDRV 01407000 SAVTNID EQU IEDNSVTD+280 01408000 SAVTDVAS EQU IEDNSVTD+276 01409000 SAVTPLSZ EQU IEDNSVTD+274 01410000 @NM00097 EQU IEDNSVTD+273 01411000 SAVTSUBL EQU IEDNSVTD+272 01412000 @NM00096 EQU SAVTZELM+1 01413000 SAVTSUBM EQU SAVTZELM 01414000 SAVTMHDX EQU IEDNSVTD+268 01415000 SAVTNAT1 EQU IEDNSVTD+266 01416000 SAVTSH20 EQU IEDNSVTD+264 01417000 SAVTLCBS EQU IEDNSVTD+260 01418000 SAVTRNMP EQU IEDNSVTD+256 01419000 SAVTNAX EQU IEDNSVTD+248 01420000 SAVTSUBV EQU IEDNSVTD+247 01421000 SAVTSUBA EQU IEDNSVTD+246 01422000 SAVTSIBC EQU IEDNSVTD+244 01423000 SAVTBSM EQU IEDNSVTD+240 01424000 SAVTRQTG EQU IEDNSVTD+236 01425000 SAVTRQCH EQU IEDNSVTD+232 01426000 SAVTMAND EQU IEDNSVTD+228 01427000 SAVTSPLN EQU IEDNSVTD+224 01428000 SAVTNADL EQU IEDNSVTD+222 01429000 SAVTNATL EQU IEDNSVTD+220 01430000 SAVTMHTB EQU IEDNSVTD+216 01431000 SAVTSSMH EQU IEDNSVTD+212 01432000 SAVTQRS EQU IEDNSVTD+208 01433000 SAVTRQIN EQU IEDNSVTD+204 01434000 SAVTDFCO EQU IEDNSVTD+200 01435000 SAVTSAO EQU IEDNSVTD+196 01436000 SAVTSARI EQU IEDNSVTD+192 01437000 SAVTSAC EQU IEDNSVTD+188 01438000 SAVTSAI EQU IEDNSVTD+184 01439000 SAVTCSCI EQU IEDNSVTD+180 01440000 SAVTSSRP EQU IEDNSVTD+176 01441000 SAVTSSRQ EQU IEDNSVTD+172 01442000 SAVTSCLU EQU IEDNSVTD+168 01443000 SAVTMVBF EQU IEDNSVTD+160 01444000 @NM00095 EQU IEDNSVTD+148 01445000 SAVTIPCQ EQU IEDNSVTD+144 01446000 @NM00094 EQU IEDNSVTD+136 01447000 SAVTXFMI EQU IEDNSVTD+132 01448000 @NM00093 EQU IEDNSVTD+124 01449000 SAVTXFMO EQU IEDNSVTD+120 01450000 @NM00092 EQU IEDNSVTD+116 01451000 SAVTSSSR EQU IEDNSVTD+112 01452000 SAVTSCPQ EQU IEDNSVTD+108 01453000 SAVTSLCB EQU IEDNSVTD+104 01454000 SAVTLUSR EQU IEDNSVTD+100 01455000 @NM00091 EQU SAVTLUSQ+8 01456000 SAVTLUSP EQU SAVTLUSQ+4 01457000 SAVTLUSB EQU SAVTLUSQ 01458000 @NM00090 EQU IEDNSVTD+84 01459000 SAVTSAT EQU IEDNSVTD+80 01460000 SAVTNAT EQU IEDNSVTD+76 01461000 SAVTCLUP EQU IEDNSVTD+72 01462000 SAVTPIUT EQU IEDNSVTD+68 01463000 SAVTRNTA EQU IEDNSVTD+64 01464000 SAVTDNIR EQU IEDNSVTD+60 01465000 SAVTCNIR EQU IEDNSVTD+56 01466000 SAVTFLDH EQU IEDNSVTD+52 01467000 SAVTSRTN EQU IEDNSVTD+48 01468000 SAVTSREQ EQU IEDNSVTD+44 01469000 SAVTFAIL EQU IEDNSVTD+42 01470000 SAVTSUSE EQU IEDNSVTD+40 01471000 SAVTSIB EQU IEDNSVTD+36 01472000 SAVTPRTN EQU IEDNSVTD+32 01473000 @NM00089 EQU IEDNSVTD+28 01474000 SAVTWH20 EQU IEDNSVTD+26 01475000 SAVTPWT EQU IEDNSVTD+24 01476000 SAVTPRTQ EQU IEDNSVTD+20 01477000 SAVTPREQ EQU IEDNSVTD+16 01478000 SAVTPH20 EQU IEDNSVTD+14 01479000 SAVTPUSE EQU IEDNSVTD+12 01480000 SAVTPLCB EQU IEDNSVTD+8 01481000 SAVTPOOL EQU IEDNSVTD+4 01482000 SAVTPRMT EQU SAVTDIAF 01483000 SAVTVIRT EQU SAVTDIAF 01484000 AVTCPBNO EQU IEDQAVTD+1244 01485000 AVTHRESS EQU IEDQAVTD+1243 01486000 @NM00088 EQU IEDQAVTD+1242 01487000 @NM00087 EQU IEDQAVTD+1241 01488000 @NM00086 EQU IEDQAVTD+1240 01489000 @NM00085 EQU IEDQAVTD+1237 01490000 @NM00084 EQU IEDQAVTD+1236 01491000 AVTHRESE EQU @NM00083 01492000 AVTRADDR EQU IEDQAVTD+1228 01493000 AVTNADDR EQU IEDQAVTD+1224 01494000 AVTHRESN EQU IEDQAVTD+1220 01495000 AVTVOLRN EQU IEDQAVTD+1216 01496000 AVTTOTNN EQU IEDQAVTD+1212 01497000 AVTTRCYN EQU IEDQAVTD+1208 01498000 AVTRCTRN EQU IEDQAVTD+1204 01499000 AVTNOVON EQU IEDQAVTD+1200 01500000 AVTADEBN EQU IEDQAVTD+1196 01501000 AVTVOLRR EQU IEDQAVTD+1192 01502000 AVTTOTNR EQU IEDQAVTD+1188 01503000 AVTTRCYR EQU IEDQAVTD+1184 01504000 AVTRCTRR EQU IEDQAVTD+1180 01505000 AVTNOVOR EQU IEDQAVTD+1176 01506000 AVTADEBR EQU IEDQAVTD+1172 01507000 AVTLODPT EQU IEDQAVTD+1168 01508000 AVTIOBN EQU IEDQAVTD+1164 01509000 AVTIOBR EQU IEDQAVTD+1160 01510000 AVTCPBPT EQU IEDQAVTD+1156 01511000 AVTFCPB EQU IEDQAVTD+1152 01512000 @NM00082 EQU IEDQAVTD+1148 01513000 AVTINCPQ EQU IEDQAVTD+1144 01514000 @NM00081 EQU IEDQAVTD+1140 01515000 @NM00080 EQU IEDQAVTD+1137 01516000 @NM00079 EQU AVTBIT4 01517000 @NM00078 EQU AVTBIT4 01518000 @NM00077 EQU AVTBIT4 01519000 @NM00076 EQU AVTBIT4 01520000 @NM00075 EQU AVTBIT4 01521000 @NM00074 EQU AVTBIT4 01522000 @NM00073 EQU AVTBIT4 01523000 AVTRUFTN EQU AVTBIT4 01524000 @NM00072 EQU IEDQAVTD+1132 01525000 AVTNOBFQ EQU IEDQAVTD+1128 01526000 @NM00071 EQU IEDQAVTD+1124 01527000 AVTDKENQ EQU IEDQAVTD+1120 01528000 @NM00070 EQU IEDQAVTD+1116 01529000 AVTDKAPQ EQU IEDQAVTD+1112 01530000 AVTCOPY EQU IEDQAVTD+1108 01531000 AVTIA EQU IEDQAVTD+1104 01532000 AVTFL EQU IEDQAVTD+1100 01533000 @NM00069 EQU IEDQAVTD+1096 01534000 AVTNCPBQ EQU IEDQAVTD+1092 01535000 AVTTOTNC EQU IEDQAVTD+1088 01536000 AVTCMAX EQU IEDQAVTD+1084 01537000 AVTCMIN EQU IEDQAVTD+1080 01538000 AVTHM02 EQU IEDQAVTD+1076 01539000 AVTOPCIN EQU IEDQAVTD+1074 01540000 AVTDCTLN EQU IEDQAVTD+1072 01541000 AVTOPMSK EQU IEDQAVTD+1068 01542000 AVTDDFT EQU IEDQAVTD+1064 01543000 AVTSTEAL EQU IEDQAVTD+1060 01544000 AVTOPTN EQU IEDQAVTD+1056 01545000 AVTDSKCT EQU IEDQAVTD+1054 01546000 AVTCKRST EQU IEDQAVTD+1053 01547000 AVTSTAN EQU AVTBIT3 01548000 AVTSTACN EQU AVTBIT3 01549000 AVTSTAIN EQU AVTBIT3 01550000 AVTSTAYN EQU AVTBIT3 01551000 AVTOLTBN EQU AVTBIT3 01552000 AVTTSAB EQU AVTBIT3 01553000 AVTRFULN EQU AVTBIT3 01554000 AVTRECVN EQU AVTBIT3 01555000 @NM00068 EQU AVTBIT2 01556000 @NM00067 EQU AVTBIT2 01557000 AVTOPEIN EQU AVTBIT2 01558000 AVTSTRTN EQU AVTBIT2 01559000 AVTTOPOL EQU AVTBIT2 01560000 AVTCOPYN EQU AVTBIT2 01561000 AVTREUSN EQU AVTBIT2 01562000 AVTEXTSC EQU AVTBIT2 01563000 AVTDISKN EQU AVTBIT1 01564000 AVTQUCKN EQU AVTBIT1 01565000 AVTCLOSN EQU AVTBIT1 01566000 AVTREADN EQU AVTBIT1 01567000 AVTDLAYN EQU AVTBIT1 01568000 AVTAQTAN EQU AVTBIT1 01569000 AVTTSON EQU AVTBIT1 01570000 AVTAPLKN EQU AVTBIT1 01571000 AVTDUMBR EQU IEDQAVTD+1048 01572000 AVTDLQX EQU IEDQAVTD+1046 01573000 AVTINTLV EQU IEDQAVTD+1044 01574000 AVTSMCNT EQU IEDQAVTD+1042 01575000 AVTAVFCT EQU IEDQAVTD+1040 01576000 AVTOPCON EQU IEDQAVTD+1038 01577000 AVTOPCNT EQU IEDQAVTD+1036 01578000 AVTLNCNT EQU IEDQAVTD+1034 01579000 AVTKEYLE EQU IEDQAVTD+1032 01580000 AVTHA16 EQU IEDQAVTD+1030 01581000 AVTHA7 EQU IEDQAVTD+1028 01582000 AVTHA4 EQU IEDQAVTD+1026 01583000 AVTHA3 EQU IEDQAVTD+1024 01584000 AVTHA2 EQU IEDQAVTD+1022 01585000 AVTGETMS EQU IEDQAVTD+1021 01586000 @NM00066 EQU IEDQAVTD+1020 01587000 AVTGETMD EQU IEDQAVTD+1016 01588000 AVTGETMN EQU IEDQAVTD+1012 01589000 AVTCWTOT EQU IEDQAVTD+1008 01590000 AVTCWINT EQU IEDQAVTD+956 01591000 AVTDTRAP EQU IEDQAVTD+952 01592000 @NM00065 EQU IEDQAVTD+950 01593000 @NM00064 EQU AVTIOTR 01594000 AVTIOTRH EQU AVTIOTR 01595000 AVTIOTRE EQU AVTIOTR 01596000 @NM00063 EQU AVTSUBT 01597000 AVTSUBPT EQU AVTSUBT 01598000 AVTSUBON EQU AVTSUBT 01599000 AVTAFE30 EQU IEDQAVTD+944 01600000 AVTAFE20 EQU IEDQAVTD+940 01601000 AVTAFE10 EQU IEDQAVTD+936 01602000 AVTCWEC2 EQU IEDQAVTD+932 01603000 AVTCWPM2 EQU IEDQAVTD+928 01604000 AVTCWTS2 EQU IEDQAVTD+927 01605000 AVTCWTS1 EQU IEDQAVTD+926 01606000 AVTCWCLD EQU AVTCWFL2 01607000 AVTCWRAP EQU AVTCWFL2 01608000 @NM00062 EQU AVTCWFL2 01609000 @NM00061 EQU AVTCWFL2 01610000 @NM00060 EQU AVTCWFL2 01611000 @NM00059 EQU AVTCWFL2 01612000 @NM00058 EQU AVTCWFL2 01613000 AVTCWACT EQU AVTCWFL2 01614000 @NM00057 EQU AVTCWFL1 01615000 @NM00056 EQU AVTCWFL1 01616000 @NM00055 EQU AVTCWFL1 01617000 @NM00054 EQU AVTCWFL1 01618000 @NM00053 EQU AVTCWFL1 01619000 @NM00052 EQU AVTCWFL1 01620000 @NM00051 EQU AVTCWFL1 01621000 AVTCOMWN EQU AVTCWFL1 01622000 AVTCWEC1 EQU IEDQAVTD+920 01623000 AVTCWPM1 EQU IEDQAVTD+916 01624000 AVTCAREA EQU IEDQAVTD+912 01625000 AVTFZERO EQU IEDQAVTD+908 01626000 AVTCADDR EQU IEDQAVTD+904 01627000 AVTCOREC EQU IEDQAVTD+900 01628000 @NM00050 EQU IEDQAVTD+892 01629000 AVTCPBCB EQU IEDQAVTD+888 01630000 @NM00049 EQU IEDQAVTD+880 01631000 AVTDSIOB EQU IEDQAVTD+876 01632000 @NM00048 EQU IEDQAVTD+868 01633000 AVTCPRMB EQU IEDQAVTD+864 01634000 @NM00047 EQU IEDQAVTD+856 01635000 AVTCLOSB EQU IEDQAVTD+852 01636000 @NM00046 EQU IEDQAVTD+844 01637000 AVTACTIB EQU IEDQAVTD+840 01638000 @NM00045 EQU IEDQAVTD+836 01639000 AVTOLTEB EQU IEDQAVTD+832 01640000 AVTOLTCH EQU AVTOLTQB+1 01641000 AVTOLTVT EQU AVTOLTQB 01642000 @NM00044 EQU AVTOPCQB+8 01643000 @NM00043 EQU AVTOPCEC+1 01644000 @NM00042 EQU AVTOPCCC 01645000 AVTOPCPO EQU AVTOPCCC 01646000 AVTOPCWA EQU AVTOPCCC 01647000 AVTOPCCH EQU AVTOPCOB+1 01648000 AVTOPCVT EQU AVTOPCOB 01649000 @NM00041 EQU AVTCKPQB+9 01650000 AVTCKPTS EQU AVTCKPQB+8 01651000 @NM00040 EQU AVTCKPEC+1 01652000 @NM00039 EQU AVTCKPCC 01653000 AVTCKPPO EQU AVTCKPCC 01654000 AVTCKPWA EQU AVTCKPCC 01655000 AVTCKPCH EQU AVTCKPTB+1 01656000 AVTCKPVT EQU AVTCKPTB 01657000 @NM00038 EQU IEDQAVTD+796 01658000 AVTBFRTB EQU IEDQAVTD+792 01659000 @NM00037 EQU IEDQAVTD+784 01660000 AVTBFREB EQU IEDQAVTD+780 01661000 AVTTIMQ EQU IEDQAVTD+776 01662000 @NM00036 EQU IEDQAVTD+772 01663000 AVTIMQPS EQU IEDQAVTD+768 01664000 AVTINOUT EQU IEDQAVTD+766 01665000 AVTREFTM EQU IEDQAVTD+764 01666000 @NM00035 EQU IEDQAVTD+752 01667000 AVTDELYB EQU IEDQAVTD+748 01668000 AVTOCQPT EQU IEDQAVTD+744 01669000 AVTTSOPT EQU IEDQAVTD+740 01670000 AVTSUPPT EQU IEDQAVTD+736 01671000 AVTCBQCB EQU IEDQAVTD+732 01672000 AVTMSGS EQU IEDQAVTD+729 01673000 @NM00034 EQU AVTSYSER 01674000 @NM00033 EQU AVTSYSER 01675000 @NM00032 EQU AVTSYSER 01676000 @NM00031 EQU AVTSYSER 01677000 @NM00030 EQU AVTSYSER 01678000 @NM00029 EQU AVTSYSER 01679000 AVTCMAXN EQU AVTSYSER 01680000 AVTCMINN EQU AVTSYSER 01681000 AVT2260L EQU IEDQAVTD+724 01682000 AVTABEPL EQU AVTADBUF 01683000 AVTHFF EQU AVTCLRHI+2 01684000 @NM00028 EQU AVTCLRHI 01685000 AVTCCLNK EQU AVTCRELE+5 01686000 AVTCCPRI EQU AVTCRELE+4 01687000 AVTCCQCB EQU AVTCCELE+1 01688000 AVTCCKEY EQU AVTCCELE 01689000 AVTDELAD EQU IEDQAVTD+704 01690000 AVTDELEM EQU IEDQAVTD+700 01691000 AVTBSX EQU AVTCKLNK 01692000 AVTOPETR EQU AVTHG01 01693000 @NM00027 EQU AVTCKBYT 01694000 AVTCKONQ EQU AVTCKBYT 01695000 @NM00026 EQU AVTCKBYT 01696000 @NM00025 EQU AVTCKBYT 01697000 @NM00024 EQU AVTCKBYT 01698000 @NM00023 EQU AVTCKBYT 01699000 @NM00022 EQU AVTCKBYT 01700000 @NM00021 EQU AVTCKBYT 01701000 AVTOPERT EQU IEDQAVTD+690 01702000 AVTOPXCL EQU IEDQAVTD+688 01703000 AVTOPERL EQU IEDQAVTD+687 01704000 @NM00020 EQU IEDQAVTD+686 01705000 AVTCKTIM EQU IEDQAVTD+684 01706000 AVTCKELV EQU IEDQAVTD+682 01707000 AVTCPRCD EQU IEDQAVTD+681 01708000 AVTWARMN EQU AVTCKELF 01709000 AVTCRTLN EQU AVTCKELF 01710000 AVTCPIPN EQU AVTCKELF 01711000 AVTCCLCN EQU AVTCKELF 01712000 AVTCINCN EQU AVTCKELF 01713000 @NM00019 EQU AVTCKELF 01714000 AVTCMCPN EQU AVTCKELF 01715000 AVTCRDYN EQU AVTCKELF 01716000 AVTCKQAD EQU IEDQAVTD+677 01717000 AVTSCBSZ EQU IEDQAVTD+676 01718000 @NM00018 EQU IEDQAVTD+672 01719000 AVTCKELE EQU IEDQAVTD+668 01720000 @NM00017 EQU AVTCKPEL+8 01721000 AVTCKRLK EQU AVTCKPEL+5 01722000 AVTCKRPR EQU AVTCKPEL+4 01723000 AVTCKRMQ EQU AVTCKRMV+1 01724000 AVTCKRKY EQU AVTCKRMV 01725000 AVTHK EQU IEDQAVTD+648 01726000 AVTHI EQU IEDQAVTD+644 01727000 AVTIOT EQU IEDQAVTD+640 01728000 AVTNX EQU IEDQAVTD+636 01729000 AVTTONE EQU IEDQAVTD+632 01730000 AVTA3TL EQU IEDQAVTD+628 01731000 AVTDMECB EQU IEDQAVTD+624 01732000 AVTABEND EQU IEDQAVTD+618 01733000 AVTPLCBN EQU IEDQAVTD+616 01734000 @NM00016 EQU AVTSAVTP+1 01735000 @NM00015 EQU AVTSAVTF 01736000 AVTSNA EQU AVTSAVTF 01737000 AVTONSNA EQU AVTSAVTF 01738000 AVTVTMCP EQU AVTSAVTF 01739000 @NM00014 EQU IEDQAVTD+608 01740000 AVTCMBSS EQU IEDQAVTD+604 01741000 AVTRCV EQU IEDQAVTD+600 01742000 AVTSEND EQU IEDQAVTD+596 01743000 AVTCSCH EQU IEDQAVTD+592 01744000 AVTQ1 EQU IEDQAVTD+588 01745000 AVTE7 EQU IEDQAVTD+584 01746000 AVTHB EQU IEDQAVTD+580 01747000 AVTR1 EQU IEDQAVTD+576 01748000 AVTBZ EQU IEDQAVTD+572 01749000 AVTEZ EQU IEDQAVTD+568 01750000 AVTEC EQU IEDQAVTD+564 01751000 AVTEW EQU IEDQAVTD+560 01752000 AVTNDIAL EQU AVTSCOPT 01753000 AVTN2741 EQU AVTSCOPT 01754000 AVTCONCO EQU AVTSCOPT 01755000 AVTCONC EQU AVTSCOPT 01756000 AVTCMBUF EQU AVTSCOPT 01757000 AVTAPDMP EQU AVTSCOPT 01758000 @NM00013 EQU AVTSCOPT 01759000 AVTHA EQU AVTDISP 01760000 AVTEA EQU IEDQAVTD+548 01761000 AVTAX EQU IEDQAVTD+544 01762000 AVTA3 EQU IEDQAVTD+540 01763000 AVTGD EQU IEDQAVTD+536 01764000 AVTAL EQU IEDQAVTD+532 01765000 AVTOLTST EQU AVTHG02 01766000 AVTE8 EQU IEDQAVTD+524 01767000 AVTUI EQU IEDQAVTD+520 01768000 AVTCOMPT EQU IEDQAVTD+516 01769000 AVTCRSRF EQU IEDQAVTD+512 01770000 @NM00012 EQU IEDQAVTD+508 01771000 AVTKA02 EQU IEDQAVTD+504 01772000 AVTOPTPT EQU IEDQAVTD+500 01773000 AVTPCBPT EQU IEDQAVTD+496 01774000 AVTOSECB EQU IEDQAVTD+492 01775000 AVTOPECA EQU IEDQAVTD+488 01776000 AVTOLECA EQU IEDQAVTD+484 01777000 AVTCKECA EQU IEDQAVTD+480 01778000 AVTCWECA EQU IEDQAVTD+476 01779000 AVTCWTCB EQU IEDQAVTD+472 01780000 AVTOLTCB EQU IEDQAVTD+468 01781000 AVTOCTCB EQU IEDQAVTD+464 01782000 AVTCKTCB EQU IEDQAVTD+460 01783000 AVTAS EQU IEDQAVTD+456 01784000 AVTNOLBF EQU IEDQAVTD+454 01785000 AVTNCKPR EQU IEDQAVTD+453 01786000 AVTCIB EQU IEDQAVTD+452 01787000 AVTSPLPT EQU IEDQAVTD+448 01788000 AVTMVBFR EQU IEDQAVTD+444 01789000 AVTSBTA EQU IEDQAVTD+440 01790000 AVTRARTN EQU IEDQAVTD+436 01791000 AVTBSCAN EQU IEDQAVTD+432 01792000 AVTRDYA EQU IEDQAVTD+428 01793000 AVTDISTR EQU IEDQAVTD+420 01794000 AVTPARM3 EQU IEDQAVTD+416 01795000 @NM00011 EQU AVTPKF 01796000 @NM00010 EQU AVTPKF 01797000 @NM00009 EQU AVTPKF 01798000 AVTFTCHF EQU AVTPKF 01799000 @NM00008 EQU AVTPKF 01800000 @NM00007 EQU AVTPKF 01801000 @NM00006 EQU AVTPKF 01802000 @NM00005 EQU AVTPKF 01803000 AVTPARM EQU IEDQAVTD+408 01804000 AVTEXS2A EQU IEDQAVTD+402 01805000 AVTEXA2S EQU IEDQAVTD+396 01806000 AVTOCGET EQU IEDQAVTD+392 01807000 AVTCKAVT EQU @NM00003+1 01808000 @NM00004 EQU AVTCKFLG 01809000 AVTCKHLT EQU AVTCKFLG 01810000 AVTCKREQ EQU AVTCKFLG 01811000 AVTCKENV EQU AVTCKFLG 01812000 AVTCKNAC EQU AVTCKFLG 01813000 AVTCKTAC EQU AVTCKFLG 01814000 @NM00002 EQU IEDQAVTD+384 01815000 AVTREADD EQU IEDQAVTD+380 01816000 AVTREADY EQU IEDQAVTD+376 01817000 AVTRACE EQU IEDQAVTD+372 01818000 AVTTCB EQU IEDQAVTD+368 01819000 AVTPASWD EQU IEDQAVTD+360 01820000 AVTCTLCH EQU IEDQAVTD+352 01821000 AVTDOUBL EQU IEDQAVTD+344 01822000 AVTDOUBX EQU IEDQAVTD+336 01823000 AVTDPARM EQU IEDQAVTD+332 01824000 AVTCSTCS EQU IEDQAVTD+328 01825000 AVTDLQ EQU AVTSAVEX+32 01826000 @NM00001 EQU AVTSAVEX 01827000 AVTSAVE4 EQU IEDQAVTD+216 01828000 AVTSAVE3 EQU IEDQAVTD+144 01829000 AVTSAVE2 EQU IEDQAVTD+72 01830000 AVTSAVE1 EQU IEDQAVTD 01831000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01832000 @RC00485 EQU @RC00480 01833000 @RC00493 EQU @RC00480 01834000 @RC00491 EQU @RC00480 01835000 @PB00009 EQU @EL00001 01836000 @PB00008 EQU @PB00009 01837000 @PB00007 EQU @PB00008 01838000 @PB00006 EQU @PB00007 01839000 @PB00005 EQU @PB00006 01840000 @PB00004 EQU @PB00005 01841000 @PB00003 EQU @PB00004 01842000 @PB00002 EQU @PB00003 01843000 @ENDDATA EQU * 01844000 END IGCA510D,(C'PLS0033',0701,77013) 01845000