TITLE 'IGCZ010D, MCPCLOSE SCAN/MAP/DISPATCH ROUTINE *00001000 ' 00002000 IGCZ010D CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 USING *,RBASE ESTABLISH A BASE REGISTER 00005000 LR RBASE,REG15 SETUP BASE REG 00006000 IGCZ010D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00007000 * ROPCAVT=RPARM; /* SET BASE POINTER FOR OP 03S0369 00008000 * CONTROL AVT */ 00009000 LR ROPCAVT,RPARM 03S0369 00010000 * RAVT=OPCAVTPT; /* SET THE BASE POINTER FOR THE 00011000 * TCAM ADDRESS VECTOR TABLE */ 00012000 L RAVT,OPCAVTPT(,ROPCAVT) 03S0370 00013000 * ROPCE=OPCCOPCE; /* SET THE BASE POINTER FOR THE 00014000 * OPERATOR CONTROL ELEMENT */ 00015000 L ROPCE,OPCCOPCE(,ROPCAVT) 03S0371 00016000 * RSAVE=ADDR(OPCSAVE); /* SETUP A SAVEAREA */ 00017000 LA RSAVE,OPCSAVE(,ROPCAVT) 03S0372 00018000 * OPCFLAG1=ZERO; /* CLEAR CONTROL SWITCHES */ 00019000 MVI OPCFLAG1(ROPCAVT),X'00' 03S0373 00020000 * IF OPCFLAG2=ENTRY2 THEN 02S0374 00021000 CLC OPCFLAG2(1,ROPCAVT),ENTRY2 02S0374 00022000 BNE @RF00374 02S0374 00023000 * DO; /* IF THIS IS A RE-ENTRY FROM 00024000 * IGCZ110D, PROCESS SYSTEM 02S0375 00025000 * CLOSEDOWN */ 00026000 * 03S0376 00027000 * /*************************************************************/ 00028000 * /* */ 00029000 * /* PROCESS.REENTRY: THIS SEGMENT CONTINUES PROCESSING SYSTEM */ 00030000 * /* CLOSEDOWN AFTER RETURN FROM IGCZ110D. IF A SAT TABLE */ 00031000 * /* EXISTS, 3705 DEACTIVATION IS NECESSARY.THE SAT TABLE IS */ 00032000 * /* USED TO FIND THE TTCIN OF EACH NCP IN THE SYSTEM. A DEACT */ 00033000 * /* OPCE IS BUILT FOR EACH NCP FOUND AND THE TTCIN OF EACH NCP*/ 00034000 * /* IS STORED IN THE DEACT OPCE. THESE DEACT OPCES ARE POSTED */ 00035000 * /* TO THE OP CONTROL QCB AND CONTROL IS PASSED TO IGC0010D. */ 00036000 * /* IF 3705 DEACTIVATION NOT NECESSARY, CONTROL IS PASSED TO */ 00037000 * /* THE CHECKPOINT REOUTINE, IGC0610D, TO PERFORM AN */ 00038000 * /* ENVIRONMENT CHECKPOINT */ 00039000 * /* */ 00040000 * /*************************************************************/ 00041000 * 03S0376 00042000 * RFY 03S0376 00043000 * (RSAT, 03S0376 00044000 * RCTR) RSTD; 03S0376 00045000 * OPCFLAG2=ZERO; /* RESET ENTRY FLAG */ 00046000 MVI OPCFLAG2(ROPCAVT),X'00' 03S0377 00047000 * OCPARM=ZERO; /* SETUP MESSAGE NUMBER @YM08121*/ 00048000 SLR @09,@09 03S0378 00049000 STH @09,OCPARM(,ROPCE) 03S0378 00050000 * OCWTG=MOD00; /* NEXT MOD TO GET CONTROL AFTER 00051000 * CHKPOINT @YM08121*/ 00052000 MVC OCWTG(2,ROPCE),MOD00 03S0379 00053000 * OPCMODID=MOD06; /* SETUP ID OF CKPT MOD @YM08121*/ 00054000 MVC OPCMODID(2,ROPCAVT),MOD06 03S0380 00055000 * IF AVTVTMCP=ON THEN 03S0381 00056000 TM AVTVTMCP(RAVT),B'10000000' 03S0381 00057000 BNO @RF00381 03S0381 00058000 * DO; /* IF 3705 ENVIRONMENT BUILD 00059000 * DEACT OPCES FOR ALL NCPS 03S0382 00060000 * @OY16432*/ 00061000 * RSAT=SAVTSAT; /* POINT TO START OF SAT TABLE */ 00062000 L @07,AVTSAVTP(,RAVT) 03S0383 00063000 L RSAT,SAVTSAT(,@07) 03S0383 00064000 * RCTR=SAVTSUBA; /* SETUP NUMBER OF SAT ENTRIES */ 00065000 SLR RCTR,RCTR 03S0384 00066000 IC RCTR,SAVTSUBA(,@07) 03S0384 00067000 * OPCECTR=0; /* CLEAR OPCE COUNTER */ 00068000 STH @09,OPCECTR(,ROPCE) 03S0385 00069000 * DO UNTIL(RCTR=0); /* SEARCH THROUGH ALL OF SAT 00070000 * TABLE FOR RVT ENTRIES */ 00071000 @DL00386 DS 0H 03S0387 00072000 * 04S0387 00073000 * /*******************************************************/ 00074000 * /* */ 00075000 * /* PROCESS.REENTRY.SCANRVT: THIS SEGMENT GETS NCP TNT */ 00076000 * /* FROM RVT, STORES IT IN ORIGINAL OPCE, GETS A BUFFER */ 00077000 * /* AND BUILDS A DEACT OPCE WHICH LATER GETS POSTED TO */ 00078000 * /* THE OP CONTROL QCB */ 00079000 * /* */ 00080000 * /*******************************************************/ 00081000 * 04S0387 00082000 * IF SATRNRVT^=ZERO THEN 04S0387 00083000 L @09,SATRNRVT(,RSAT) 04S0387 00084000 LTR @09,@09 04S0387 00085000 BZ @RF00387 04S0387 00086000 * DO; /* IF RVT POINTER EXISTS */ 00087000 * IF RVTINDEX^=SAVTTCPU THEN 04S0389 00088000 LH @09,RVTINDEX(,@09) 04S0389 00089000 L @07,AVTSAVTP(,RAVT) 04S0389 00090000 LH @07,SAVTTCPU(,@07) 04S0389 00091000 N @07,@CF02669 04S0389 00092000 CR @09,@07 04S0389 00093000 BE @RF00389 04S0389 00094000 * DO; /* AND THIS IS NOT A HOST SUBAREA*/ 00095000 * OCTRMTBL=RVTINDEX;/* SAVE NCP TNT */ 00096000 STH @09,OCTRMTBL(,ROPCE) 04S0391 00097000 * RPARM=OCTRMTBL;/* NCP TNT OFFSET @YM08098*/ 00098000 LR RPARM,@09 04S0392 00099000 * CALL IEDQTNT; /* GET TTE ADDRESS @YM08098*/ 00100000 L @15,AVTRNMPT(,RAVT) 04S0393 00101000 BALR @14,@15 04S0393 00102000 * RTRM=RPARM-LENGTH(IEDNTRM);/* TRM 04S0394 00103000 * ADDRESSABILITY @YM08098*/ 00104000 LR RTRM,RPARM 04S0394 00105000 SL RTRM,@CF02354 04S0394 00106000 * IF TRMNCPCL=OFF THEN/* CLOSEDOWN NOT ALREADY IN 00107000 * PROGRESS @YM08098*/ 00108000 TM TRMNCPCL(RTRM),B'01000000' 04S0395 00109000 BNZ @RF00395 04S0395 00110000 * DO; /* YES @YM08098*/ 00111000 * TRMNCPCL=ON;/* SET CLOSEDOWN IN PROGRESS 00112000 * @YM08098*/ 00113000 LA @11,TRMNCPCL(,RTRM) 04S0397 00114000 LR @10,@11 04S0397 00115000 LA @09,3 04S0397 00116000 NR @10,@09 04S0397 00117000 LCR @10,@10 04S0397 00118000 ALR @11,@10 04S0397 00119000 L @09,0(,@11) 04S0397 00120000 @GL00001 LR @07,@09 04S0397 00121000 O @07,@CB02670+3(@10) 04S0397 00122000 CS @09,@07,0(@11) 04S0397 00123000 BNE @GL00001 04S0397 00124000 * IF OCQUCKN=ON THEN/* QUICK CLOSEDOWN 04S0398 00125000 * @YM08098*/ 00126000 TM OCQUCKN(ROPCE),B'10000000' 04S0398 00127000 BNO @RF00398 04S0398 00128000 * TRMQUCKN=ON;/* SET QUICK CLOSE INDICATOR 00129000 * @YM08098*/ 00130000 LA @11,TRMQUCKN(,RTRM) 04S0399 00131000 LR @10,@11 04S0399 00132000 LA @09,3 04S0399 00133000 NR @10,@09 04S0399 00134000 LCR @10,@10 04S0399 00135000 ALR @11,@10 04S0399 00136000 L @09,0(,@11) 04S0399 00137000 @GL00002 LR @07,@09 04S0399 00138000 O @07,@CB02674+3(@10) 04S0399 00139000 CS @09,@07,0(@11) 04S0399 00140000 BNE @GL00002 04S0399 00141000 * RPARM=ONE;/* SETUP TO GET ONE BUFFER */ 00142000 @RF00398 LA RPARM,1 04S0400 00143000 * CALL ALLOCBUF;/* GET BUFFER */ 00144000 L @15,OPCGETBF(,ROPCAVT) 04S0401 00145000 BALR @14,@15 04S0401 00146000 * OPCECTR=OPCECTR+ONE;/* INCREMENT OPCE 04S0402 00147000 * COUNTER */ 00148000 LA @09,1 04S0402 00149000 LH @07,OPCECTR(,ROPCE) 04S0402 00150000 ALR @07,@09 04S0402 00151000 STH @07,OPCECTR(,ROPCE) 04S0402 00152000 * IF OPCECTR=ONE THEN/* IF THIS IS FIRST OPCE*/ 00153000 CR @07,@09 04S0403 00154000 BNE @RF00403 04S0403 00155000 * OPCWRKSP(1)=RPARM;/* SAVE ADDR OF FIRST 00156000 * OPCE */ 00157000 ST RPARM,OPCWRKSP(,ROPCAVT) 04S0404 00158000 * ELSE 04S0405 00159000 * OPCWRKSP(4)->OCELMPTR=RPARM;/* ATTACH 00160000 * OPCE TO LAST OPCE @YM08446*/ 00161000 B @RC00403 04S0405 00162000 @RF00403 L @09,OPCWRKSP+12(,ROPCAVT) 04S0405 00163000 STCM RPARM,7,OCELMPTR(@09) 04S0405 00164000 * OPCWRKSP(4)=RPARM;/* SAVE OPCE ADDRESS 00165000 * @YM08446*/ 00166000 @RC00403 ST RPARM,OPCWRKSP+12(,ROPCAVT) 04S0406 00167000 * CALL IPBLDACT;/* BUILD DEACT OPCE */ 00168000 BAL @14,IPBLDACT 04S0407 00169000 * OPREQCB=ADDR(AVTOPCOB);/* SETUP OP CONTROL 00170000 * QCB */ 00171000 LA @09,AVTOPCOB(,RAVT) 04S0408 00172000 STCM @09,7,OPREQCB(RPARM) 04S0408 00173000 * OPREPRI=PRIHIFLG;/* SETUP POST PRIORITY */ 00174000 MVI OPREPRI(RPARM),X'E9' 04S0409 00175000 * OPREFLG1=OPRFC;/* SETUP FLAG VALUE */ 00176000 MVI OPREFLG1(RPARM),X'09' 04S0410 00177000 * END; /* @YM08098*/ 00178000 * END; 04S0412 00179000 @RF00395 DS 0H 04S0413 00180000 * END; 04S0413 00181000 @RF00389 DS 0H 04S0414 00182000 * RSAT=RSAT+LENGTH(IEDSATD);/* POINT TO NEXT ENTRY */ 00183000 @RF00387 AL RSAT,@CF00045 03S0414 00184000 * RCTR=RCTR-ONE; /* DECREMENT NUMBER OF ENTRIES */ 00185000 BCTR RCTR,0 03S0415 00186000 * END; 03S0416 00187000 @DE00386 SLR @09,@09 03S0416 00188000 CR RCTR,@09 03S0416 00189000 BNE @DL00386 03S0416 00190000 * IF OPCECTR>0 THEN 03S0417 00191000 CH @09,OPCECTR(,ROPCE) 03S0417 00192000 BNL @RF00417 03S0417 00193000 * DO; /* IF ANY DEACTS TO BE DONE 03S0418 00194000 * @YM08121*/ 00195000 * OPCAQWD1=OPCWRKSP(1);/* SETUP ADDRESS OF FIRST OPCE */ 00196000 L @09,OPCWRKSP(,ROPCAVT) 03S0419 00197000 ST @09,OPCAQWD1(,ROPCAVT) 03S0419 00198000 * OPCAQWD2=RPARM; /* SETUP ADDRESS OF LAST OPCE */ 00199000 ST RPARM,OPCAQWD2(,ROPCAVT) 03S0420 00200000 * OPCAQREQ=OPREQ; /* INDICATE MORE THAN ONE OPCE */ 00201000 MVC OPCAQREQ(1,ROPCAVT),OPREQ 03S0421 00202000 * RPARM=ADDR(OPCAQCTL);/* SETUP ADDR OF AQCTL LIST */ 00203000 LA RPARM,OPCAQCTL(,ROPCAVT) 03S0422 00204000 * GEN( SVC 102); /* POST OPCES */ 00205000 SVC 102 00206000 * OPCMODID=MOD00; /* SETUP ID OF NEXT MOD */ 00207000 MVC OPCMODID(2,ROPCAVT),MOD00 03S0424 00208000 * OCWTG=''B; /* CLEAR WTG FIELD @YM08121*/ 00209000 XC OCWTG(2,ROPCE),OCWTG(ROPCE) 03S0425 00210000 * END; 03S0426 00211000 * END; 03S0427 00212000 * ELSE 03S0428 00213000 * CALL IPTSOCK; /* CHECK FOR TSO IN SYSTEM 03S0428 00214000 * @OZ30501*/ 00215000 B @RC00381 03S0428 00216000 @RF00381 BAL @14,IPTSOCK 03S0428 00217000 * RFY 03S0429 00218000 * (RSAT, 03S0429 00219000 * RCTR) UNRSTD; 03S0429 00220000 @RC00381 DS 0H 03S0430 00221000 * END; 02S0430 00222000 * ELSE 02S0431 00223000 * IF OCSWITCH=OCDEACTE THEN 02S0431 00224000 B @RC00374 02S0431 00225000 @RF00374 CLI OCSWITCH(ROPCE),X'23' 02S0431 00226000 BNE @RF00431 02S0431 00227000 * DO; /* IF THIS IS AN ENTRY FROM 02S0432 00228000 * DEACT, PROCESS DEACT RESPONSE */ 00229000 * 03S0433 00230000 * /***********************************************************/ 00231000 * /* */ 00232000 * /* PROCESS.DEACT: THIS SEGMENT DETERMINES IF INITIAL */ 00233000 * /* REQUEST WAS FOR A SYSTEM CLOSEDOWN OR CLOSEDOWN OF ONE */ 00234000 * /* NCP. IF CLOSEDOWN OF ONE NCP, ORIGINAL OPCE IS FREED AND*/ 00235000 * /* CONTROL IS PASSED TO CHECKPOINT, ALONG WITH DEACT OPCE. */ 00236000 * /* IF REQUEST WAS FOR A SYSTEM CLOSEDOWN, DEACT OPCE IS */ 00237000 * /* FREED. IF THIS IS LAST OPCE TO BE FREED, CONTROL IS */ 00238000 * /* PASSED TO CHECKPOINT. ELSE MORE DEACT OPCES EXPECTED AND*/ 00239000 * /* CONTROL PASSED TO IGC0010D */ 00240000 * /* */ 00241000 * /***********************************************************/ 00242000 * 03S0433 00243000 * RFY 03S0433 00244000 * RTEMP RSTD; 03S0433 00245000 * RPARM=OCPTRSAV; /* SETUP PTR TO ORIGINAL OPCE */ 00246000 L RPARM,OCPTRSAV(,ROPCE) 03S0434 00247000 * IF RPARM->CLOSEONE=ON THEN 03S0435 00248000 TM CLOSEONE(RPARM),B'10000000' 03S0435 00249000 BNO @RF00435 03S0435 00250000 * DO; /* IF REQST TO CLOSEDOWN ONE NCP, 00251000 * SEND DEACT OPCE TO CHKPOINT */ 00252000 * OCBACKUP=RPARM->OCBACKUP;/* SAVE NCP NAME FROM ORIG 00253000 * OPCE */ 00254000 MVC OCBACKUP(8,ROPCE),OCBACKUP(RPARM) 03S0437 00255000 * IF RPARM->OCCONSOL=ON THEN 03S0438 00256000 TM OCCONSOL(RPARM),B'10000000' 03S0438 00257000 BNO @RF00438 03S0438 00258000 * DO; /* IF CMD FROM CONSOLE */ 00259000 * OCCONID=RPARM->OCCONID;/* SAVE CONSOLE ID FROM ORIG 00260000 * OPCE */ 00261000 MVC OCCONID(1,ROPCE),OCCONID(RPARM) 03S0440 00262000 * OCCONSOL=ON; /* INDICATE FROM CONSOLE */ 00263000 OI OCCONSOL(ROPCE),B'10000000' 03S0441 00264000 * END; 03S0442 00265000 * ELSE 03S0443 00266000 * OCDEST=RPARM->OCDEST;/* SAVE OCDEST FROM ORIGINAL 00267000 * @OZ30354*/ 00268000 B @RC00438 03S0443 00269000 @RF00438 LH @11,OCDEST(,RPARM) 03S0443 00270000 N @11,@CF02669 03S0443 00271000 STH @11,OCDEST(,ROPCE) 03S0443 00272000 * RPARM->OCUNIT=INVALTIC;/* SETUP INVALID TIC */ 00273000 @RC00438 MVC OCUNIT(4,RPARM),@CF02567 03S0444 00274000 * CALL FREEBUFF; /* FREE ORIGINAL OPCE */ 00275000 L @15,OPCFREBF(,ROPCAVT) 03S0445 00276000 BALR @14,@15 03S0445 00277000 * OCPTRSAV=ZERO; /* CLEAR ORIG OPCE PTR */ 00278000 SLR @11,@11 03S0446 00279000 ST @11,OCPTRSAV(,ROPCE) 03S0446 00280000 * OCOPTCDE=OCMODIFY; /* SETUP DEACT OP CODE */ 00281000 MVI OCOPTCDE(ROPCE),X'44' 03S0447 00282000 * OCWTG=MOD09; /* NEXT MOD AFTER CHKPOINT */ 00283000 MVC OCWTG(2,ROPCE),MOD09 03S0448 00284000 * OCPARM=RZERO; /* SETUP MSG NUMBER */ 00285000 STH RZERO,OCPARM(,ROPCE) 03S0449 00286000 * OPCMODID=MOD06; /* SETUP MOD ID OF CHKPOINT */ 00287000 MVC OPCMODID(2,ROPCAVT),MOD06 03S0450 00288000 * END; 03S0451 00289000 * ELSE 03S0452 00290000 * DO; 03S0452 00291000 B @RC00435 03S0452 00292000 @RF00435 DS 0H 03S0453 00293000 * IF OCATTACH=ON THEN 03S0453 00294000 TM OCATTACH(ROPCE),B'00000010' 03S0453 00295000 BNO @RF00453 03S0453 00296000 * DO; /* IF OTHER DEACT REQUESTS 03S0454 00297000 * ATTACHED TO DEACT OPCE, DETACH 00298000 * THEM AND ATTACH TO ORIG OPCE */ 00299000 * RTEMP=RPARM; /* SETUP PTR TO ORIGINAL OPCE */ 00300000 LR RTEMP,RPARM 03S0455 00301000 * 04S0456 00302000 * /***************************************************/ 00303000 * /* */ 00304000 * /* PROCESS.DEACT.ATTACH: THIS SEGMENT CHECKS */ 00305000 * /* ORIGINAL OPCE FOR ATTACHED OPCES. IF THERE ARE */ 00306000 * /* ANY, A SEARCH IS MADE FOR LAST ATTACHED OPCE OFF*/ 00307000 * /* ORIGINAL OPCE. ALL OPCES ATTACHED TO DEACT OPCE */ 00308000 * /* ARE THEN ATTACHED TO THE LAST OPCE OFF OF */ 00309000 * /* ORIGINAL OPCE. */ 00310000 * /* */ 00311000 * /***************************************************/ 00312000 * 04S0456 00313000 * DO WHILE(RTEMP->OCATTACH=ON);/* SEARCH FOR LAST */ 00314000 B @DE00456 04S0456 00315000 @DL00456 DS 0H 04S0457 00316000 * RTEMP=RTEMP->OCELMPTR;/* GET NEXT ATTACHED OPCE */ 00317000 L @11,OCELMPTR-1(,RTEMP) 04S0457 00318000 LA @11,0(,@11) 04S0457 00319000 LR RTEMP,@11 04S0457 00320000 * END; 04S0458 00321000 @DE00456 TM OCATTACH(RTEMP),B'00000010' 04S0458 00322000 BO @DL00456 04S0458 00323000 * RTEMP->OCELMPTR=OCELMPTR;/* ATTACH OTHER REQUESTS */ 00324000 MVC OCELMPTR(3,RTEMP),OCELMPTR(ROPCE) 04S0459 00325000 * RTEMP->OCATTACH=ON;/* INDICATE OPCE ATTACHED */ 00326000 OI OCATTACH(RTEMP),B'00000010' 04S0460 00327000 * OCATTACH=OFF; /* RESET ATTACH FLAG IN DEACT 00328000 * OPCE */ 00329000 NI OCATTACH(ROPCE),B'11111101' 04S0461 00330000 * END; 03S0462 00331000 * RPARM=OCTRMTBL; /* GET NCP TTCIN @XM05820*/ 00332000 @RF00453 LH RPARM,OCTRMTBL(,ROPCE) 03S0463 00333000 N RPARM,@CF02669 03S0463 00334000 * CALL IEDQTNT; /* FIND TTE FOR NCP @XM05828*/ 00335000 L @15,AVTRNMPT(,RAVT) 03S0464 00336000 BALR @14,@15 03S0464 00337000 * RPARM=RPARM-LENGTH(IEDNTRM);/* BACK UP TO PREFIX 03S0465 00338000 * @XM05820*/ 00339000 SL RPARM,@CF02354 03S0465 00340000 * RPARM->TRMREMB=ON; /* TURN ACTIVE BIT ON FOR RESTART 00341000 * @XM05820*/ 00342000 LA @05,TRMREMB(,RPARM) 03S0466 00343000 LR @07,@05 03S0466 00344000 LA @11,3 03S0466 00345000 NR @07,@11 03S0466 00346000 LCR @07,@07 03S0466 00347000 ALR @05,@07 03S0466 00348000 L @11,0(,@05) 03S0466 00349000 @GL00003 LR @09,@11 03S0466 00350000 O @09,@CB02670+3(@07) 03S0466 00351000 CS @11,@09,0(@05) 03S0466 00352000 BNE @GL00003 03S0466 00353000 * RPARM=ROPCE; /* SETUP PTR TO DEACT OPCE */ 00354000 LR RPARM,ROPCE 03S0467 00355000 * ROPCE=RPARM->OCPTRSAV;/* SETUP PTR TO ORIGINAL OPCE */ 00356000 L ROPCE,OCPTRSAV(,RPARM) 03S0468 00357000 * OPCCOPCE=ROPCE; /* SETUP OPCE IN OPCAVT */ 00358000 ST ROPCE,OPCCOPCE(,ROPCAVT) 03S0469 00359000 * RPARM->OCUNIT=INVALTIC;/* INDICATE LAST UNIT */ 00360000 MVC OCUNIT(4,RPARM),@CF02567 03S0470 00361000 * CALL FREEBUFF; /* FREE BUFFER */ 00362000 L @15,OPCFREBF(,ROPCAVT) 03S0471 00363000 BALR @14,@15 03S0471 00364000 * OPCECTR=OPCECTR-ONE; /* DECREMENT OPCE COUNT */ 00365000 LH @11,OPCECTR(,ROPCE) 03S0472 00366000 BCTR @11,0 03S0472 00367000 STH @11,OPCECTR(,ROPCE) 03S0472 00368000 * IF OPCECTR>ZERO THEN /* IF MORE OPCES LEFT TO PROCESS */ 00369000 LTR @11,@11 03S0473 00370000 BNP @RF00473 03S0473 00371000 * OPCMODID=MOD00; /* SETUP MOD TO GET CONTROL */ 00372000 MVC OPCMODID(2,ROPCAVT),MOD00 03S0474 00373000 * ELSE 03S0475 00374000 * DO; /* SETUP FOR CHKPOINT */ 00375000 B @RC00473 03S0475 00376000 @RF00473 DS 0H 03S0476 00377000 * IF OCATTACH=ON THEN 03S0476 00378000 TM OCATTACH(ROPCE),B'00000010' 03S0476 00379000 BNO @RF00476 03S0476 00380000 * DO; /* IF ANY OPCES ATTACHED, DELINK 00381000 * THEM */ 00382000 * OPCNEXT=OCELEM;/* CHAIN OPCES TO OPCAVT */ 00383000 L @11,OCELEM(,ROPCE) 03S0478 00384000 ST @11,OPCNEXT(,ROPCAVT) 03S0478 00385000 * OCELEM=ZERO; /* DETACH OPCES FROM OPCE */ 00386000 SLR @11,@11 03S0479 00387000 ST @11,OCELEM(,ROPCE) 03S0479 00388000 * OCATTACH=OFF; /* TURN ATTACH FLAG OFF */ 00389000 NI OCATTACH(ROPCE),B'11111101' 03S0480 00390000 * OCUNIT=INVALTIC;/* INDICATE LAST UNIT */ 00391000 MVC OCUNIT(4,ROPCE),@CF02567 03S0481 00392000 * END; 03S0482 00393000 * CALL IPTSOCK; /* CHECK FOR TSO IN SYSTEM 03S0483 00394000 * @OZ30501*/ 00395000 @RF00476 BAL @14,IPTSOCK 03S0483 00396000 * OCWTG=MOD00; /* SETUP NEXT MOD AFTER CHKPOINT */ 00397000 MVC OCWTG(2,ROPCE),MOD00 03S0484 00398000 * OCPARM=ZERO; /* SETUP MSG NUMBER */ 00399000 SLR @11,@11 03S0485 00400000 STH @11,OCPARM(,ROPCE) 03S0485 00401000 * OPCMODID=MOD06; /* SETUP ID OF CHKPOINT */ 00402000 MVC OPCMODID(2,ROPCAVT),MOD06 03S0486 00403000 * END; 03S0487 00404000 * END; 03S0488 00405000 @RC00473 DS 0H 03S0489 00406000 * RFY 03S0489 00407000 * RTEMP UNRSTD; 03S0489 00408000 @RC00435 DS 0H 03S0490 00409000 * END; 02S0490 00410000 * ELSE 02S0491 00411000 * DO; /* ELSE PROCESS INITIAL ENTRY */ 00412000 B @RC00431 02S0491 00413000 @RF00431 DS 0H 02S0492 00414000 * 03S0492 00415000 * /***********************************************************/ 00416000 * /* */ 00417000 * /* PROCESS.FIRSTREQ: THIS SEGMENT WILL CHECK SYNTAX ERRORS */ 00418000 * /* OR INVALID OPERANDS. THE TYPE OF CLOSEDOWN REQUEST IS */ 00419000 * /* THEN DETERMINED. IF THIS REQUEST IS FOR A SYSTEM */ 00420000 * /* CLOSEDOWN, CONTROL WILL BE PASSED TO IGCZ110D. IF */ 00421000 * /* REQUEST IS FOR CLOSEDWON OF ONE NCP, A DEACT OPCE WILL */ 00422000 * /* BE BUILT AND PASSED TO IGCFC10D */ 00423000 * /* */ 00424000 * /***********************************************************/ 00425000 * 03S0492 00426000 * 04S0492 00427000 * /***********************************************************/ 00428000 * /* */ 00429000 * /* PROCESS.FIRSTREQ.CHKCMD: THIS SEGMENT VALIDATES COMMAND.*/ 00430000 * /* IT DETERMINES IF IT IS A SYSTEM CLOSEDOWN OR CLOSEDOWN */ 00431000 * /* OF ONE NCP. FOR SYSTEM CLOSEDOWN, CONTROL IS PASSED TO */ 00432000 * /* IGCZ110D. FOR CLOSEDOWN OF ONE NCP, THE NCP TTE WILL BE */ 00433000 * /* SET TO INDICATE CLOSEDOWN IN PROGRESS AND TYPE OF */ 00434000 * /* CLOSEDOWN. */ 00435000 * /* */ 00436000 * /***********************************************************/ 00437000 * 04S0492 00438000 * RFY 04S0492 00439000 * (RWORKA, 04S0492 00440000 * REND) RSTD; 04S0492 00441000 * IF OCMPP=ON THEN 04S0493 00442000 TM OCMPP(ROPCE),B'00100000' 04S0493 00443000 BNO @RF00493 04S0493 00444000 * CALL IPCHKMPP; /* PROCESS MPP @YM08529*/ 00445000 BAL @14,IPCHKMPP 04S0494 00446000 * ELSE 04S0495 00447000 * DO; /* NON-MPP PROCESSING @YM08529*/ 00448000 B @RC00493 04S0495 00449000 @RF00493 DS 0H 04S0496 00450000 * RWORKA=OPCWORK; /* SETUP ADDRESS OF WORKAREA */ 00451000 L RWORKA,OPCWORK(,ROPCAVT) 04S0496 00452000 * REND=RWORKA+EIGHT+LEN;/* POINT TO END OF DATA */ 00453000 LA REND,8 04S0497 00454000 ALR REND,RWORKA 04S0497 00455000 LH @09,LEN(,RWORKA) 04S0497 00456000 N @09,@CF02669 04S0497 00457000 ALR REND,@09 04S0497 00458000 * ENDOFDAT=BLANK; /* SETUP A BLANK AT END OF DATA */ 00459000 MVC ENDOFDAT(1,REND),BLANK 04S0498 00460000 * IF TPDATA=QUICKTP THEN 04S0499 00461000 CLC TPDATA(8,RWORKA),QUICKTP 04S0499 00462000 BNE @RF00499 04S0499 00463000 * DO; /* IF THIS IS A QUICK CLOSEDOWN */ 00464000 * OCQUCKN=ON; /* INDICATE QUICK CLOSE IN OPCE */ 00465000 OI OCQUCKN(ROPCE),B'10000000' 04S0501 00466000 * CALL IPCLOSE; /* SETUP TO CLOSE TCAM */ 00467000 BAL @14,IPCLOSE 04S0502 00468000 * END; 04S0503 00469000 * ELSE 04S0504 00470000 * IF TPDATA=FLUSHTP|TPBLANK=BLANKTP THEN 04S0504 00471000 B @RC00499 04S0504 00472000 @RF00499 CLC TPDATA(8,RWORKA),FLUSHTP 04S0504 00473000 BE @RT00504 04S0504 00474000 CLC TPBLANK(3,RWORKA),BLANKTP 04S0504 00475000 BNE @RF00504 04S0504 00476000 @RT00504 DS 0H 04S0505 00477000 * DO; /* IF THIS IS A FLUSH CLOSEDOWN */ 00478000 * RWORK9=CVTAQAVT;/* TCX ADDRESS @ZM46812*/ 00479000 L @07,CVTPTR 04S0506 00480000 L RWORK9,CVTAQAVT(,@07) 04S0506 00481000 * IF RWORK9->TCXRPT^=0 THEN 04S0507 00482000 L @07,TCXRPT(,RWORK9) 04S0507 00483000 LTR @07,@07 04S0507 00484000 BZ @RF00507 04S0507 00485000 * DO; /* CHECK FOR TSO SESSION @ZM47634*/ 00486000 * RZERO=MSG12;/* SETUP MSG NUMBER */ 00487000 LA RZERO,12 04S0509 00488000 * OPCMODID=MOD03;/* SETUP ID OF MOD */ 00489000 MVC OPCMODID(2,ROPCAVT),MOD03 04S0510 00490000 * EXITFLG=ON; /* PREPARE TO EXIT */ 00491000 OI EXITFLG(ROPCAVT),B'10000000' 04S0511 00492000 * END; 04S0512 00493000 * ELSE 04S0513 00494000 * DO; 04S0513 00495000 B @RC00507 04S0513 00496000 @RF00507 DS 0H 04S0514 00497000 * CALL IPCLOSE;/* SETUP TO CLOSE TCAM @YM08529*/ 00498000 BAL @14,IPCLOSE 04S0514 00499000 * END; 04S0515 00500000 * END; 04S0516 00501000 * ELSE 04S0517 00502000 * IF TPNCP=NCPTP THEN 04S0517 00503000 B @RC00504 04S0517 00504000 @RF00504 CLC TPNCP(7,RWORKA),NCPTP 04S0517 00505000 BNE @RF00517 04S0517 00506000 * DO; /* IF THIS IS CLOSEDOWN OF ONE 00507000 * NCP */ 00508000 * IF AVTVTMCP=OFF THEN 04S0519 00509000 TM AVTVTMCP(RAVT),B'10000000' 04S0519 00510000 BNZ @RF00519 04S0519 00511000 * DO; /* IF THIS IS NOT 3705 04S0520 00512000 * ENVIRONMENT */ 00513000 * RZERO=MSG562;/* SETUP MSG NUMBER */ 00514000 LA RZERO,562 04S0521 00515000 * OPCMODID=MOD09;/* SETUP ID OF MOD */ 00516000 MVC OPCMODID(2,ROPCAVT),MOD09 04S0522 00517000 * EXITFLG=ON;/* PREPARE TO EXIT */ 00518000 OI EXITFLG(ROPCAVT),B'10000000' 04S0523 00519000 * END; 04S0524 00520000 * ELSE 04S0525 00521000 * DO; 04S0525 00522000 B @RC00519 04S0525 00523000 @RF00519 DS 0H 04S0526 00524000 * CLOSEONE=ON;/* SET CLOSE ONE INDICATOR */ 00525000 OI CLOSEONE(ROPCE),B'10000000' 04S0526 00526000 * 05S0527 00527000 * /*******************************************/ 00528000 * /* */ 00529000 * /* PROCESS.CHKCMD.VALIDATE: THIS SEGMENT */ 00530000 * /* VALIDATES COMMAND OPERAND REPRESENTING */ 00531000 * /* THE NCP */ 00532000 * /* */ 00533000 * /*******************************************/ 00534000 * 05S0527 00535000 * RFY 05S0527 00536000 * (RSCAN, 05S0527 00537000 * RTEMP) RSTD; 05S0527 00538000 * OCSCAN=ZERO;/* CLEAR SCAN BYTE */ 00539000 MVI OCSCAN(ROPCE),X'00' 05S0528 00540000 * OCADDR=ON;/* SEARCH FOR ADDRESS OR */ 00541000 * OCDDNAME=ON;/* DDNAME */ 00542000 OI OCADDR(ROPCE),B'10100000' 05S0530 00543000 * RSCAN=RWORKA+EIGHT+LENGTH(TPNCP);/* POINT 00544000 * TO NCP OPTION */ 00545000 LA RSCAN,15 05S0531 00546000 ALR RSCAN,RWORKA 05S0531 00547000 * REG15=OPCDCBLK;/* SETUP ADDRESSABILITY FOR 00548000 * DCBLOCATE */ 00549000 L REG15,OPCDCBLK(,ROPCAVT) 05S0532 00550000 * RTEMP=REG15+FOUR;/* SETUP FOR OPCSCAN */ 00551000 LA RTEMP,4 05S0533 00552000 ALR RTEMP,REG15 05S0533 00553000 * GEN SETS(RRET) REFS(RTEMP) FLOWS(FOUND,TRYNCP 00554000 * ); 05S0534 00555000 BALR RRET,RTEMP GOTO OPCSCAN 00556000 B FOUND FOUND A DDNAME OR ADDRESS 00557000 B TRYNCP NAME NOT FOUND - TRY NCPNAME 00558000 * RZERO=MSG18;/* COMMAND SYNTAX IN ERROR */ 00559000 LA RZERO,18 05S0535 00560000 * OPCMODID=MOD03;/* SETUP ID OF MOD */ 00561000 MVC OPCMODID(2,ROPCAVT),MOD03 05S0536 00562000 * EXITFLG=ON;/* PREPARE TO EXIT */ 00563000 OI EXITFLG(ROPCAVT),B'10000000' 05S0537 00564000 * GOTO EXIT;/* EXIT */ 00565000 B EXIT 05S0538 00566000 *FOUND: 05S0539 00567000 * OCBACKUP=OPCDOUBL;/* SAVE NAME IN OPCE */ 00568000 FOUND MVC OCBACKUP(8,ROPCE),OPCDOUBL(ROPCAVT) 05S0539 00569000 * 06S0540 00570000 * /*******************************************/ 00571000 * /* */ 00572000 * /* PROCESS.VALIDATE.CHKDCB: THIS SEGMENT */ 00573000 * /* CHECKS FOR A 3705 DCB, GETS TTCIN OF NCP*/ 00574000 * /* FROM LCB, AND SETS CLOSEDOWN IN PROGRESS*/ 00575000 * /* INDICATOR IN NCP TTE */ 00576000 * /* */ 00577000 * /*******************************************/ 00578000 * 06S0540 00579000 * RFY 06S0540 00580000 * (RDCB, 06S0540 00581000 * RLCB) RSTD; 06S0540 00582000 * RDCB=RPARM;/* SETUP DCB BASE */ 00583000 LR RDCB,RPARM 06S0541 00584000 * IF DCBDSGTR=OFF THEN 06S0542 00585000 TM DCBDSGTR+20(RDCB),B'00000100' 06S0542 00586000 BNZ @RF00542 06S0542 00587000 * DO; /* IF THIS IS NOT A 3705 DCB, */ 00588000 * RZERO=MSG173;/* SETUP ERROR MSG */ 00589000 LA RZERO,173 06S0544 00590000 * OPCMODID=MOD03;/* SETUP ID OF MOD */ 00591000 MVC OPCMODID(2,ROPCAVT),MOD03 06S0545 00592000 * EXITFLG=ON;/* PREPARE TO EXIT */ 00593000 OI EXITFLG(ROPCAVT),B'10000000' 06S0546 00594000 * END; 06S0547 00595000 * ELSE 06S0548 00596000 * DO; 06S0548 00597000 B @RC00542 06S0548 00598000 @RF00542 DS 0H 06S0549 00599000 * RLCB=DCBEIOBX+DCBIOBAD;/* POINT TO 00600000 * FIRST IOB */ 00601000 LA @09,20 06S0549 00602000 ALR @09,RDCB 06S0549 00603000 SLR @07,@07 06S0549 00604000 IC @07,DCBEIOBX(,@09) 06S0549 00605000 AL @07,DCBIOBAD(,@09) 06S0549 00606000 LR RLCB,@07 06S0549 00607000 * RLCB=RLCB-LCBPRFSZ;/* BACKUP TO LCB */ 00608000 SL RLCB,@CF01764 06S0550 00609000 * OCTRMTBL=LCBTTCIN;/* SETUP TTCIN OF NCP 00610000 * IN OPCE */ 00611000 LH @09,LCBTTCIN(,RLCB) 06S0551 00612000 N @09,@CF02669 06S0551 00613000 STH @09,OCTRMTBL(,ROPCE) 06S0551 00614000 * RPARM=OCTRMTBL;/* SETUP TO FIND NCP TTE*/ 00615000 LR RPARM,@09 06S0552 00616000 * CALL IEDQTNT;/* GET TTE ADDRESS */ 00617000 L @15,AVTRNMPT(,RAVT) 06S0553 00618000 BALR @14,@15 06S0553 00619000 * RTRM=RPARM-LENGTH(IEDNTRM);/* SETUP 00620000 * TERM BASE */ 00621000 LR RTRM,RPARM 06S0554 00622000 SL RTRM,@CF02354 06S0554 00623000 * CALL IPCHEK;/* CHECK FOR CLOSEDOWN 00624000 * ALREADY IN PROGRESS */ 00625000 BAL @14,IPCHEK 06S0555 00626000 * IF EXITFLG^=ON THEN 06S0556 00627000 TM EXITFLG(ROPCAVT),B'10000000' 06S0556 00628000 BO @RF00556 06S0556 00629000 * CALL IPTYPE;/* CHECK TYPE OF 06S0557 00630000 * CLOSEDOWN */ 00631000 BAL @14,IPTYPE 06S0557 00632000 * END; 06S0558 00633000 * RFY 06S0559 00634000 * (RDCB, 06S0559 00635000 * RLCB) UNRSTD; 06S0559 00636000 * GOTO EXIT;/* EXIT */ 00637000 B EXIT 05S0560 00638000 *TRYNCP: 05S0561 00639000 * CALL TRMOFLOC;/* CHECK OPERAND FOR NCPNAME */ 00640000 TRYNCP L @15,OPCTOFLK(,ROPCAVT) 05S0561 00641000 BALR @14,@15 05S0561 00642000 * GEN; 05S0562 00643000 B FOUNDNCP FOUND NCP NAME 00644000 * RZERO=MSG17;/* INVALID NAME ERROR */ 00645000 LA RZERO,17 05S0563 00646000 * OPCMODID=MOD03;/* SETUP ID OF MOD */ 00647000 MVC OPCMODID(2,ROPCAVT),MOD03 05S0564 00648000 * EXITFLG=ON;/* PREPARE TO EXIT */ 00649000 OI EXITFLG(ROPCAVT),B'10000000' 05S0565 00650000 * GOTO EXIT;/* EXIT */ 00651000 B EXIT 05S0566 00652000 *FOUNDNCP: 05S0567 00653000 * OCBACKUP=OPCDOUBL;/* SAVE NAME IN OPCE */ 00654000 FOUNDNCP MVC OCBACKUP(8,ROPCE),OPCDOUBL(ROPCAVT) 05S0567 00655000 * 06S0568 00656000 * /*******************************************/ 00657000 * /* */ 00658000 * /* PROCESS.VALIDATE.CHKNCP: THIS SEGMENT */ 00659000 * /* CHECKS FOR A 3705 TTE AND SETS CLOSEDOWN*/ 00660000 * /* IN PROGRESS INDICATOR IN 3705 TTE */ 00661000 * /* */ 00662000 * /*******************************************/ 00663000 * 06S0568 00664000 * RTRM=RPARM-LENGTH(IEDNTRM);/* SETUP TERM 00665000 * BASE */ 00666000 LR RTRM,RPARM 06S0568 00667000 SL RTRM,@CF02354 06S0568 00668000 * IF TRMTYPE=TRMLNCP THEN 06S0569 00669000 CLI TRMTYPE(RTRM),X'0F' 06S0569 00670000 BNE @RF00569 06S0569 00671000 * DO; /* IS THIS IS A 3705 TTE */ 00672000 * CALL IPCHEK;/* CHECK FOR CLOSDWN IN 00673000 * PROGRS */ 00674000 BAL @14,IPCHEK 06S0571 00675000 * IF EXITFLG^=ON THEN 06S0572 00676000 TM EXITFLG(ROPCAVT),B'10000000' 06S0572 00677000 BO @RF00572 06S0572 00678000 * CALL IPTYPE;/* CHECK TYPE OF 06S0573 00679000 * CLOSEDOWN */ 00680000 BAL @14,IPTYPE 06S0573 00681000 * END; 06S0574 00682000 * ELSE 06S0575 00683000 * DO; 06S0575 00684000 B @RC00569 06S0575 00685000 @RF00569 DS 0H 06S0576 00686000 * RZERO=MSG173;/* SETUP ERROR MESSAGE */ 00687000 LA RZERO,173 06S0576 00688000 * OPCMODID=MOD03;/* SETUP ID OF MOD */ 00689000 MVC OPCMODID(2,ROPCAVT),MOD03 06S0577 00690000 * EXITFLG=ON;/* PREPARE TO EXIT */ 00691000 OI EXITFLG(ROPCAVT),B'10000000' 06S0578 00692000 * END; 06S0579 00693000 *EXIT: 05S0580 00694000 * RFY 05S0580 00695000 * (RSCAN, 05S0580 00696000 * RTEMP) UNRSTD; 05S0580 00697000 @RC00569 DS 0H 05S0580 00698000 EXIT DS 0H 05S0581 00699000 * END; 04S0581 00700000 * END; 04S0582 00701000 * ELSE 04S0583 00702000 * DO; /* COMMAND SYNTAX ERROR */ 00703000 B @RC00517 04S0583 00704000 @RF00517 DS 0H 04S0584 00705000 * RZERO=MSG18; /* SETUP ERROR MESSAGE NUMBER */ 00706000 LA RZERO,18 04S0584 00707000 * OPCMODID=MOD03;/* SETUP ID OF MOD */ 00708000 MVC OPCMODID(2,ROPCAVT),MOD03 04S0585 00709000 * EXITFLG=ON; /* PREPARE TO EXIT */ 00710000 OI EXITFLG(ROPCAVT),B'10000000' 04S0586 00711000 * END; 04S0587 00712000 * END; /* @YM08529*/ 00713000 @RC00517 DS 0H 04S0588 00714000 @RC00504 DS 0H 04S0588 00715000 @RC00499 DS 0H 04S0589 00716000 * RFY 04S0589 00717000 * (RWORKA, 04S0589 00718000 * REND) UNRSTD; 04S0589 00719000 @RC00493 DS 0H 04S0590 00720000 * IF EXITFLG^=ON THEN 03S0590 00721000 TM EXITFLG(ROPCAVT),B'10000000' 03S0590 00722000 BO @RF00590 03S0590 00723000 * DO; 03S0591 00724000 * RPARM=ONE; /* INDICATE ONE BUFFER NEEDED */ 00725000 LA RPARM,1 03S0592 00726000 * CALL ALLOCBUF; /* GET A BUFFER */ 00727000 L @15,OPCGETBF(,ROPCAVT) 03S0593 00728000 BALR @14,@15 03S0593 00729000 * CALL IPBLDACT; /* BUILD DEACT OPCE */ 00730000 BAL @14,IPBLDACT 03S0594 00731000 * OPCMODID=MODFC; /* SETUP ID OF NEXT MOD */ 00732000 MVC OPCMODID(2,ROPCAVT),MODFC 03S0595 00733000 * OPCCOPCE=RPARM; /* SETUP OPCE ADDR IN OPCAVT */ 00734000 ST RPARM,OPCCOPCE(,ROPCAVT) 03S0596 00735000 * END; 03S0597 00736000 * END; 02S0598 00737000 @RF00590 DS 0H 02S0599 00738000 * 02S0599 00739000 * /*****************************************************************/ 00740000 * /* */ 00741000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00742000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. */ 00743000 * /* */ 00744000 * /*****************************************************************/ 00745000 * 02S0599 00746000 * IF OPCMODID=MOD00 THEN 02S0599 00747000 @RC00431 DS 0H 02S0599 00748000 @RC00374 CLC OPCMODID(2,ROPCAVT),MOD00 02S0599 00749000 BNE @RF00599 02S0599 00750000 * RZERO=ZERO; /* IF CONTROL TO BE PASSED TO 00751000 * IGC0010D, CLEAR REG 0 */ 00752000 SLR RZERO,RZERO 02S0600 00753000 * OPCFLAG1=ZERO; /* CLEAR FLAG FIELDS */ 00754000 @RF00599 MVI OPCFLAG1(ROPCAVT),X'00' 02S0601 00755000 * RPARM=ROPCAVT; /* SET THE ARGUMENT REGISTER IN 00756000 * PREPARATION TO TRANSFERRING 00757000 * CONTROL TO THE NEXT MODULE */ 00758000 LR RPARM,ROPCAVT 02S0602 00759000 * GEN EXIT REFS(OPCXCTL,ROPCAVT) NOSEQFLOW SETS(REG15); 02S0603 00760000 * /* 00761000 XCTL SF=(E,OPCXCTL(ROPCAVT)) TRANSFER CONTROL MACRO 00762000 * 02S0604 00763000 * /*****************************************************************/ 00764000 * /* */ 00765000 * /* IPBLDACT: THIS INTERNAL PROCEDURE BUILDS A DEACTIVATE OPCE */ 00766000 * /* */ 00767000 * /*****************************************************************/ 00768000 * 02S0604 00769000 *IPBLDACT: 02S0604 00770000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0604 00771000 @EL00001 DS 0H 02S0604 00772000 @EF00001 DS 0H 02S0604 00773000 @ER00001 BR @14 02S0604 00774000 IPBLDACT DS 0H 02S0605 00775000 * RPARM->OCSWITCH=OCDEACTE; /* SETUP FOR DEACT REQUEST */ 00776000 MVI OCSWITCH(RPARM),X'23' 02S0605 00777000 * RPARM->OCWTG=MODZ0; /* SETUP TO RETURN TO THIS MOD */ 00778000 MVC OCWTG(2,RPARM),MODZ0 02S0606 00779000 * RPARM->OCTRMTBL=OCTRMTBL; /* SETUP NCP TTCIN */ 00780000 LH @09,OCTRMTBL(,ROPCE) 02S0607 00781000 N @09,@CF02669 02S0607 00782000 STH @09,OCTRMTBL(,RPARM) 02S0607 00783000 * RPARM->OCIPLWA=ZERO; /* CLEAR FIELD FOR DEACT */ 00784000 SLR @09,@09 02S0608 00785000 ST @09,OCIPLWA(,RPARM) 02S0608 00786000 * RPARM->OCPTRSAV=ROPCE; /* POINT TO ORIGINAL OPCE */ 00787000 ST ROPCE,OCPTRSAV(,RPARM) 02S0609 00788000 * RPARM=RPARM-LENGTH(IEDQOPCN); /* POINT TO NEG PREFIX */ 00789000 SL RPARM,@CF00045 02S0610 00790000 * RPARM->IEDQOPCN(1:LENGTH(IEDQOPCN))=''B;/* CLEAR NEG PREFIX */ 00791000 XC IEDQOPCN(8,RPARM),IEDQOPCN(RPARM) 02S0611 00792000 * IF OCQUCKN=OFF THEN 02S0612 00793000 TM OCQUCKN(ROPCE),B'10000000' 02S0612 00794000 BNZ @RF00612 02S0612 00795000 * RPARM->OCFLUSHZ=ON; /* IF NOT A QUICK REQUEST, 02S0613 00796000 * INDICATE FLUSH */ 00797000 OI OCFLUSHZ(RPARM),B'10000000' 02S0613 00798000 * RPARM=RPARM+LENGTH(IEDQOPCN); /* READJUST POINTER */ 00799000 @RF00612 AL RPARM,@CF00045 02S0614 00800000 * END; 02S0615 00801000 @EL00002 DS 0H 02S0615 00802000 @EF00002 DS 0H 02S0615 00803000 @ER00002 BR @14 02S0615 00804000 * 02S0616 00805000 * /*****************************************************************/ 00806000 * /* */ 00807000 * /* IPCHEK: THIS INTERNAL PROCEDURE CHECKS FOR CLOSEDOWN ALREADY */ 00808000 * /* IN PROGRESS FOR THIS NCP TTE */ 00809000 * /* */ 00810000 * /*****************************************************************/ 00811000 * 02S0616 00812000 *IPCHEK: 02S0616 00813000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0616 00814000 IPCHEK DS 0H 02S0617 00815000 * RFY 02S0617 00816000 * RSCAN RSTD; /* @YM06520*/ 00817000 * OPCWRKSP(2)=RRET; /* SAVE RETURN REG */ 00818000 ST RRET,OPCWRKSP+4(,ROPCAVT) 02S0618 00819000 * IF TRMNCPCL=ON THEN 02S0619 00820000 TM TRMNCPCL(RTRM),B'01000000' 02S0619 00821000 BNO @RF00619 02S0619 00822000 * DO; /* IF CLOSEDOWN ALREADY IN 02S0620 00823000 * PROGRESS */ 00824000 * RZERO=MSG563; /* SETUP ERROR MSG NO. */ 00825000 LA RZERO,563 02S0621 00826000 * OPCMODID=MOD09; /* SETUP MOD ID */ 00827000 MVC OPCMODID(2,ROPCAVT),MOD09 02S0622 00828000 * EXITFLG=ON; /* PREPARE TO EXIT */ 00829000 OI EXITFLG(ROPCAVT),B'10000000' 02S0623 00830000 * END; 02S0624 00831000 * ELSE 02S0625 00832000 * TRMNCPCL=ON; /* ELSE SET CLOSEDOWN IN PROGRS */ 00833000 B @RC00619 02S0625 00834000 @RF00619 LA @05,TRMNCPCL(,RTRM) 02S0625 00835000 LR @07,@05 02S0625 00836000 LA @10,3 02S0625 00837000 NR @07,@10 02S0625 00838000 LCR @07,@07 02S0625 00839000 ALR @05,@07 02S0625 00840000 L @10,0(,@05) 02S0625 00841000 @GL00005 LR @09,@10 02S0625 00842000 O @09,@CB02670+3(@07) 02S0625 00843000 CS @10,@09,0(@05) 02S0625 00844000 BNE @GL00005 02S0625 00845000 * RRET=OPCWRKSP(2); /* RESTORE RETURN REG */ 00846000 @RC00619 L RRET,OPCWRKSP+4(,ROPCAVT) 02S0626 00847000 * END; 02S0627 00848000 @EL00003 DS 0H 02S0627 00849000 @EF00003 DS 0H 02S0627 00850000 @ER00003 BR @14 02S0627 00851000 * RFY 02S0628 00852000 * RSCAN UNRSTD; /* @YM06520*/ 00853000 * 02S0629 00854000 * /*****************************************************************/ 00855000 * /* */ 00856000 * /* IPCHKMPP: THIS INTERNAL PROCEDURE PROCESSES MPP REQUESTS */ 00857000 * /* */ 00858000 * /*****************************************************************/ 00859000 * 02S0629 00860000 *IPCHKMPP: 02S0629 00861000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0629 00862000 IPCHKMPP DS 0H 02S0630 00863000 * IF OCOPTCDE=MPPQUICK THEN /* IF THIS IS A QUICK CLOSE */ 00864000 CLC OCOPTCDE(1,ROPCE),MPPQUICK 02S0630 00865000 BNE @RF00630 02S0630 00866000 * OCQUCKN=ON; /* INDICATE QUICK CLOSE */ 00867000 OI OCQUCKN(ROPCE),B'10000000' 02S0631 00868000 * RWORK9=CVTAQAVT; /* GET TCX ADDRESS @ZM46812*/ 00869000 @RF00630 L @05,CVTPTR 02S0632 00870000 L RWORK9,CVTAQAVT(,@05) 02S0632 00871000 * IF(OCOPTCDE=MPPFLUSH&TCXRPT=0)|OCOPTCDE=MPPQUICK THEN 02S0633 00872000 CLC OCOPTCDE(1,ROPCE),MPPFLUSH 02S0633 00873000 BNE @GL00006 02S0633 00874000 L @05,TCXRPT(,RWORK9) 02S0633 00875000 LTR @05,@05 02S0633 00876000 BZ @RT00633 02S0633 00877000 @GL00006 CLC OCOPTCDE(1,ROPCE),MPPQUICK 02S0633 00878000 BNE @RF00633 02S0633 00879000 @RT00633 DS 0H 02S0634 00880000 * DO; /* @ZM46812 00881000 * IF THIS IS MPP FLUSH WITH TSO 00882000 * NOT IN SESSION, OR MPP QUICK 00883000 * @YM08529*/ 00884000 * OPCMODID=MODZ1; /* SETUP ID OF MOD */ 00885000 MVC OPCMODID(2,ROPCAVT),MODZ1 02S0635 00886000 * EXITFLG=ON; /* SETUP EXIT FLAG */ 00887000 OI EXITFLG(ROPCAVT),B'10000000' 02S0636 00888000 * END; 02S0637 00889000 * ELSE 02S0638 00890000 * DO; /* ELSE ERROR @YM08529*/ 00891000 B @RC00633 02S0638 00892000 @RF00633 DS 0H 02S0639 00893000 * RZERO=FOUR; /* SETUP BAD RETURN CODE */ 00894000 LA RZERO,4 02S0639 00895000 * OPCMODID=MOD07; /* SETUP ID OF WRITER MOD */ 00896000 MVC OPCMODID(2,ROPCAVT),MOD07 02S0640 00897000 * EXITFLG=ON; /* PREPARE TO EXIT */ 00898000 OI EXITFLG(ROPCAVT),B'10000000' 02S0641 00899000 * END; 02S0642 00900000 * END; 02S0643 00901000 @EL00004 DS 0H 02S0643 00902000 @EF00004 DS 0H 02S0643 00903000 @ER00004 BR @14 02S0643 00904000 * 02S0644 00905000 * /*****************************************************************/ 00906000 * /* */ 00907000 * /* IPCLOSE: THIS INTERNAL PROCEDURE SETS UP TO PASS CONTROL TO */ 00908000 * /* IGCZ110D FOR A SYSTEM CLOSEDOWN */ 00909000 * /* */ 00910000 * /*****************************************************************/ 00911000 * 02S0644 00912000 *IPCLOSE: 02S0644 00913000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0644 00914000 IPCLOSE DS 0H 02S0645 00915000 * IF OCCONSOL=ON THEN 02S0645 00916000 TM OCCONSOL(ROPCE),B'10000000' 02S0645 00917000 BNO @RF00645 02S0645 00918000 * CONID=OCCONID; /* IF CMD FROM CONSOLE, SAVE 00919000 * CONSOLE ID FOR IEDQNA */ 00920000 MVC CONID(1,RAVT),OCCONID(ROPCE) 02S0646 00921000 * OPCMODID=MODZ1; /* SETUP MOD ID */ 00922000 @RF00645 MVC OPCMODID(2,ROPCAVT),MODZ1 02S0647 00923000 * EXITFLG=ON; /* SETUP EXIT FLAG */ 00924000 OI EXITFLG(ROPCAVT),B'10000000' 02S0648 00925000 * END; 02S0649 00926000 @EL00005 DS 0H 02S0649 00927000 @EF00005 DS 0H 02S0649 00928000 @ER00005 BR @14 02S0649 00929000 * 02S0650 00930000 * /*****************************************************************/ 00931000 * /* */ 00932000 * /* IPTYPE: THIS INTERNAL PROCEDURE CHECKS FOR TYPE OF CLOSEDOWN */ 00933000 * /* REQUESTED AND SETS INDICATORS IN NCP TTE */ 00934000 * /* */ 00935000 * /*****************************************************************/ 00936000 * 02S0650 00937000 *IPTYPE: 02S0650 00938000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0650 00939000 IPTYPE DS 0H 02S0651 00940000 * RFY 02S0651 00941000 * RSCAN RSTD; 02S0651 00942000 * OPCWRKSP(3)=RRET; /* SAVE RETURN REG */ 00943000 ST RRET,OPCWRKSP+8(,ROPCAVT) 02S0652 00944000 * IF NCPTYPE=QUICK THEN 02S0653 00945000 CLC NCPTYPE(6,RSCAN),QUICK 02S0653 00946000 BNE @RF00653 02S0653 00947000 * DO; /* IF THIS IS A QUICK CLOSEDOWN */ 00948000 * TRMQUCKN=ON; /* INDICATE IN NCP TTE */ 00949000 LA @05,TRMQUCKN(,RTRM) 02S0655 00950000 LR @07,@05 02S0655 00951000 LA @10,3 02S0655 00952000 NR @07,@10 02S0655 00953000 LCR @07,@07 02S0655 00954000 ALR @05,@07 02S0655 00955000 L @10,0(,@05) 02S0655 00956000 @GL00008 LR @09,@10 02S0655 00957000 O @09,@CB02674+3(@07) 02S0655 00958000 CS @10,@09,0(@05) 02S0655 00959000 BNE @GL00008 02S0655 00960000 * OCQUCKN=ON; /* SET QUICK FLAG IN OPCE */ 00961000 OI OCQUCKN(ROPCE),B'10000000' 02S0656 00962000 * END; 02S0657 00963000 * ELSE 02S0658 00964000 * IF NCPTYPE^=FLUSH&NCPBLNK^=BLANK THEN 02S0658 00965000 B @RC00653 02S0658 00966000 @RF00653 CLC NCPTYPE(6,RSCAN),FLUSH 02S0658 00967000 BE @RF00658 02S0658 00968000 CLC NCPBLNK(1,RSCAN),BLANK 02S0658 00969000 BE @RF00658 02S0658 00970000 * DO; /* IF THIS IS NOT A FLUSH 02S0659 00971000 * CLOSEDOWN, PROCESS ERROR */ 00972000 * RZERO=MSG18; /* SETUP COMMAND INVALID ERROR */ 00973000 LA RZERO,18 02S0660 00974000 * OPCMODID=MOD03; /* SETUP ID OF MOD */ 00975000 MVC OPCMODID(2,ROPCAVT),MOD03 02S0661 00976000 * EXITFLG=ON; /* PREPARE TO EXIT */ 00977000 OI EXITFLG(ROPCAVT),B'10000000' 02S0662 00978000 * END; 02S0663 00979000 * RRET=OPCWRKSP(3); /* RESTORE RETURN REG */ 00980000 @RF00658 DS 0H 02S0664 00981000 @RC00653 L RRET,OPCWRKSP+8(,ROPCAVT) 02S0664 00982000 * END; 02S0665 00983000 @EL00006 DS 0H 02S0665 00984000 @EF00006 DS 0H 02S0665 00985000 @ER00006 BR @14 02S0665 00986000 * RFY 02S0666 00987000 * RSCAN UNRSTD; 02S0666 00988000 * 02S0667 00989000 * /*****************************************************************/ 00990000 * /* */ 00991000 * /* IPTSOCK: THIS INTERNAL PROCEDURE CHECKS FOR TSO IN THE SYSTEM,*/ 00992000 * /* AND IF SO, TERMINATES IT @OZ30501*/ 00993000 * /* */ 00994000 * /*****************************************************************/ 00995000 * 02S0667 00996000 *IPTSOCK: 02S0667 00997000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0667 00998000 IPTSOCK DS 0H 02S0668 00999000 * RFY 02S0668 01000000 * RWORK9 RSTD; 02S0668 01001000 * RWORK9=CVTAQAVT; /* GET TCX ADDRESS @OZ30501*/ 01002000 L @05,CVTPTR 02S0669 01003000 L RWORK9,CVTAQAVT(,@05) 02S0669 01004000 * IF TCXRPT^=ZERO THEN 02S0670 01005000 L @05,TCXRPT(,RWORK9) 02S0670 01006000 LTR @05,@05 02S0670 01007000 BZ @RF00670 02S0670 01008000 * DO; /* TSO IN SYSTEM @OZ30501*/ 01009000 * RWORK9=TCXRPT; /* GET TIOC RPT @OZ30501*/ 01010000 LR RWORK9,@05 02S0672 01011000 * PRMLST=TIOCLDS; /* STORE TIOC TCB SUBTASK IN 01012000 * PARMLIST @OZ30501*/ 01013000 L @05,TIOCLDS(,RWORK9) 02S0673 01014000 ST @05,PRMLST(,ROPCE) 02S0673 01015000 * RPARM=ADDR(PRMLST); /* POINT TO PARMLIST @OZ30501*/ 01016000 LA RPARM,PRMLST(,ROPCE) 02S0674 01017000 * GEN( DETACH 0(RPARM)); /* DETACH @OZ30501*/ 01018000 DETACH 0(RPARM) 01019000 * RZERO=ZERO; /* SET ENTRY CODE @OZ30501*/ 01020000 SLR RZERO,RZERO 02S0676 01021000 * RPARM=ONE; /* INDICATE NO DUMP @OZ30501*/ 01022000 LA RPARM,1 02S0677 01023000 * GEN( SVC 94); /* TERMINATE TSO @OZ30501*/ 01024000 SVC 94 01025000 * END; 02S0679 01026000 * END; 02S0680 01027000 @EL00007 DS 0H 02S0680 01028000 @EF00007 DS 0H 02S0680 01029000 @ER00007 BR @14 02S0680 01030000 * RFY 02S0681 01031000 * RWORK9 UNRSTD; 02S0681 01032000 * END IGCZ010D 01S0682 01033000 * 01S0682 01034000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01035000 */*%INCLUDE SYSLIB (TAVTD ) */ 01036000 */*%INCLUDE SYSLIB (CVT ) */ 01037000 */*%INCLUDE SYSLIB (IHADCBDF) */ 01038000 */*%INCLUDE SYSLIB (IHADCB ) */ 01039000 */*%INCLUDE SYSLIB (TLCBD ) */ 01040000 */*%INCLUDE SYSLIB (TOPCED ) */ 01041000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01042000 */*%INCLUDE SYSLIB (TOPRED ) */ 01043000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01044000 */*%INCLUDE SYSLIB (TRVTD ) */ 01045000 */*%INCLUDE SYSLIB (TSATD ) */ 01046000 */*%INCLUDE SYSLIB (TTCXD ) */ 01047000 */*%INCLUDE SYSLIB (TTRMD ) */ 01048000 */*%INCLUDE SYSUT5 (RFY ) */ 01049000 */*%INCLUDE SYSUT5 (DCL ) */ 01050000 */*%INCLUDE SYSUT5 (PROCESS ) */ 01051000 */*%INCLUDE SYSUT5 (INITIAL ) */ 01052000 */*%INCLUDE SYSUT5 (REENTRY ) */ 01053000 */*%INCLUDE SYSUT5 (SCANRVT ) */ 01054000 */*%INCLUDE SYSUT5 (DEACT ) */ 01055000 */*%INCLUDE SYSUT5 (ATTACH ) */ 01056000 */*%INCLUDE SYSUT5 (FIRSTREQ) */ 01057000 */*%INCLUDE SYSUT5 (CHKCMD ) */ 01058000 */*%INCLUDE SYSUT5 (VALIDATE) */ 01059000 */*%INCLUDE SYSUT5 (CHKDCB ) */ 01060000 */*%INCLUDE SYSUT5 (CHKNCP ) */ 01061000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 01062000 */*%INCLUDE SYSUT5 (IPBLDACT) */ 01063000 */*%INCLUDE SYSUT5 (IPCHEK ) */ 01064000 */*%INCLUDE SYSUT5 (IPCHKMPP) */ 01065000 */*%INCLUDE SYSUT5 (IPCLOSE ) */ 01066000 */*%INCLUDE SYSUT5 (IPTYPE ) */ 01067000 */*%INCLUDE SYSUT5 (IPTSOCK ) */ 01068000 * 01S0682 01069000 * ; 01S0682 01070000 @DATA DS 0H 01071000 DS 0F 01072000 DS 0F 01073000 @CF00045 DC F'8' 01074000 @CF02354 DC F'14' 01075000 @CF02567 DC XL4'08000002' 01076000 @CF02669 DC XL4'0000FFFF' 01077000 @CF01764 DC XL4'20' 01078000 DS 0D 01079000 @CB02670 DC B'000000000000000000000000010000000000000000000000000000C01080000 00' 01081000 @CB02674 DC B'000000000000000000000000000010000000000000000000000000C01082000 00' 01083000 MOD00 DC CL2'00' 01084000 MOD03 DC CL2'03' 01085000 MOD06 DC CL2'06' 01086000 MOD07 DC CL2'07' 01087000 MOD09 DC CL2'09' 01088000 MODFC DC CL2'FC' 01089000 MODZ0 DC CL2'Z0' 01090000 MODZ1 DC CL2'Z1' 01091000 QUICK DC CL6'QUICK ' 01092000 FLUSH DC CL6'FLUSH ' 01093000 BLANK DC CL1' ' 01094000 QUICKTP DC CL8'TP,QUICK' 01095000 FLUSHTP DC CL8'TP,FLUSH' 01096000 NCPTP DC CL7'TP,NCP=' 01097000 BLANKTP DC CL3'TP ' 01098000 OPREQ DC X'B4' 01099000 MPPQUICK DC X'10' 01100000 MPPFLUSH DC X'11' 01101000 ENTRY2 DC X'FF' 01102000 DS CL1 01103000 ZAPAREA DC XL104'0' 01104000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01105000 @01 EQU 01 01106000 @02 EQU 02 01107000 @03 EQU 03 01108000 @04 EQU 04 01109000 @05 EQU 05 01110000 @06 EQU 06 01111000 @07 EQU 07 01112000 @08 EQU 08 01113000 @09 EQU 09 01114000 @10 EQU 10 01115000 @11 EQU 11 01116000 @12 EQU 12 01117000 @13 EQU 13 01118000 @14 EQU 14 01119000 @15 EQU 15 01120000 LCBXPTR EQU @05 01121000 ROPCE EQU @03 01122000 ROPCAVT EQU @02 01123000 RTRM EQU @08 01124000 RAVT EQU @04 01125000 RDCB EQU @10 01126000 RLCB EQU @10 01127000 RPARM EQU @01 01128000 RSAT EQU @05 01129000 RWORK9 EQU @09 01130000 RZERO EQU @00 01131000 RWORKA EQU @05 01132000 RCTR EQU @06 01133000 REND EQU @06 01134000 RTEMP EQU @10 01135000 RSCAN EQU @11 01136000 RBASE EQU @12 01137000 RSAVE EQU @13 01138000 RRET EQU @14 01139000 REG15 EQU @15 01140000 CVTPTR EQU 16 01141000 IEDQAVTD EQU 0 01142000 AVTSAVEX EQU IEDQAVTD+288 01143000 AVTREADD EQU IEDQAVTD+380 01144000 AVTBUFSW EQU IEDQAVTD+384 01145000 @NM00004 EQU IEDQAVTD+388 01146000 AVTCKFLG EQU @NM00004 01147000 AVTBASE EQU IEDQAVTD+412 01148000 AVTPKF EQU AVTBASE 01149000 AVTRNMPT EQU IEDQAVTD+424 01150000 AVTOSECB EQU IEDQAVTD+492 01151000 AVTECB1 EQU AVTOSECB 01152000 AVTHG02 EQU IEDQAVTD+528 01153000 AVTDISP EQU IEDQAVTD+552 01154000 AVTHD EQU IEDQAVTD+556 01155000 AVTSCOPT EQU AVTHD 01156000 AVTSAVTP EQU IEDQAVTD+612 01157000 AVTSAVTF EQU AVTSAVTP 01158000 AVTVTMCP EQU AVTSAVTF 01159000 AVTCKPEL EQU IEDQAVTD+652 01160000 AVTCKRMV EQU AVTCKPEL 01161000 AVTCKELF EQU IEDQAVTD+680 01162000 AVTCKBYT EQU IEDQAVTD+691 01163000 AVTHG01 EQU IEDQAVTD+692 01164000 AVTCKLNK EQU IEDQAVTD+696 01165000 AVTCRELE EQU IEDQAVTD+708 01166000 AVTCCELE EQU AVTCRELE 01167000 AVTCLRHI EQU IEDQAVTD+716 01168000 AVTADBUF EQU IEDQAVTD+720 01169000 AVTSYSER EQU IEDQAVTD+728 01170000 AVTBFRFG EQU IEDQAVTD+784 01171000 AVTCKPQB EQU IEDQAVTD+804 01172000 AVTCKPTB EQU AVTCKPQB 01173000 AVTCKPEC EQU AVTCKPQB+4 01174000 AVTCKPCC EQU AVTCKPEC 01175000 AVTOPCQB EQU IEDQAVTD+816 01176000 AVTOPCOB EQU AVTOPCQB 01177000 AVTOPCEC EQU AVTOPCQB+4 01178000 AVTOPCCC EQU AVTOPCEC 01179000 AVTOLTQB EQU IEDQAVTD+828 01180000 AVTCLOSB EQU IEDQAVTD+852 01181000 AVTCWFL1 EQU IEDQAVTD+924 01182000 AVTCWFL2 EQU IEDQAVTD+925 01183000 AVTSUBT EQU IEDQAVTD+948 01184000 AVTIOTR EQU IEDQAVTD+949 01185000 AVTBIT1 EQU IEDQAVTD+1050 01186000 AVTBIT2 EQU IEDQAVTD+1051 01187000 AVTBIT3 EQU IEDQAVTD+1052 01188000 AVTBIT4 EQU IEDQAVTD+1136 01189000 @NM00086 EQU IEDQAVTD+1232 01190000 IEDQAPTR EQU 0 01191000 IEDNSVTD EQU 0 01192000 SAVTDIAG EQU IEDNSVTD 01193000 SAVTDIAF EQU SAVTDIAG 01194000 SAVTSAT EQU IEDNSVTD+80 01195000 SAVTLUSQ EQU IEDNSVTD+88 01196000 SAVTTCPU EQU IEDNSVTD+238 01197000 SAVTSUBA EQU IEDNSVTD+246 01198000 SAVTZELM EQU IEDNSVTD+270 01199000 SAVTRDRV EQU IEDNSVTD+284 01200000 SAVTCKQB EQU IEDNSVTD+300 01201000 SAVTCKTB EQU SAVTCKQB 01202000 SAVTCKEC EQU SAVTCKQB+4 01203000 SAVTCKCC EQU SAVTCKEC 01204000 CVTMAP EQU 0 01205000 CVTDAR EQU CVTMAP+72 01206000 CVTFLGS1 EQU CVTDAR 01207000 CVTDCB EQU CVTMAP+116 01208000 CVTIERLC EQU CVTMAP+144 01209000 CVTOPTA EQU CVTMAP+182 01210000 CVTOPTB EQU CVTMAP+183 01211000 CVTGTF EQU CVTMAP+236 01212000 CVTGTFST EQU CVTGTF 01213000 CVTGTFS EQU CVTGTFST 01214000 CVTSTATE EQU CVTGTFST 01215000 CVTTMODE EQU CVTGTFST 01216000 CVTFORM EQU CVTGTFST 01217000 CVTAQAVT EQU CVTMAP+240 01218000 CVTTCMFG EQU CVTAQAVT 01219000 CVTVOLM2 EQU CVTMAP+244 01220000 CVTTATA EQU CVTVOLM2 01221000 CVTTSKS EQU CVTTATA 01222000 CVTVOLF2 EQU CVTTSKS 01223000 CVTTAT EQU CVTTATA+1 01224000 CVTATER EQU CVTMAP+248 01225000 CVTEXT1 EQU CVTMAP+252 01226000 CVTPURG EQU CVTMAP+260 01227000 CVTQMSG EQU CVTMAP+268 01228000 CVTDMSR EQU CVTMAP+272 01229000 CVTRSV37 EQU CVTDMSR 01230000 CVTDMSRF EQU CVTRSV37 01231000 CVTERPV EQU CVTMAP+316 01232000 CVTINTLA EQU CVTMAP+320 01233000 CVTAPF EQU CVTMAP+324 01234000 CVTEXT2 EQU CVTMAP+328 01235000 CVTHJES EQU CVTMAP+332 01236000 CVTPGSIA EQU CVTMAP+348 01237000 CVTA1F1 EQU CVTMAP+356 01238000 CVTSYSK EQU CVTMAP+357 01239000 CVTVOLM1 EQU CVTMAP+380 01240000 CVTVOLF1 EQU CVTVOLM1 01241000 CVTATMCT EQU CVTMAP+388 01242000 CVTXTNT1 EQU 0 01243000 CVTXTNT2 EQU 0 01244000 CVTDSSV EQU CVTXTNT2 01245000 CVTFLGBT EQU CVTXTNT2+5 01246000 CVTQID EQU CVTXTNT2+24 01247000 CVTSHS EQU CVTXTNT2+40 01248000 CVTRV400 EQU CVTXTNT2+52 01249000 CVTRV409 EQU CVTXTNT2+53 01250000 CVTATCVT EQU CVTXTNT2+64 01251000 CVTRV429 EQU CVTXTNT2+84 01252000 CVTRV438 EQU CVTXTNT2+85 01253000 CVTRV457 EQU CVTXTNT2+112 01254000 CVTRV466 EQU CVTXTNT2+113 01255000 CVTFIX EQU 0 01256000 CVTRELNO EQU CVTFIX+252 01257000 IHADCB EQU 0 01258000 DCBPTR EQU 0 01259000 IHADCS1A EQU 0 01260000 DCBBCKUP EQU IHADCS1A+8 01261000 IHADCS2K EQU 0 01262000 DCBDUMPD EQU IHADCS2K 01263000 DCBTRSTA EQU IHADCS2K+5 01264000 DCBDSORG EQU IHADCS2K+6 01265000 DCBDSRG2 EQU DCBDSORG+1 01266000 DCBDSGTR EQU DCBDSRG2 01267000 DCBIOBAD EQU IHADCS2K+8 01268000 DCBRNCKD EQU IHADCS2K+12 01269000 DCBEXLST EQU IHADCS2K+16 01270000 DCBEIOBX EQU DCBEXLST 01271000 IHADCS24 EQU 0 01272000 DCBOFLGS EQU IHADCS24+8 01273000 DCBOFLWR EQU DCBOFLGS 01274000 DCBIFLG EQU IHADCS24+9 01275000 DCBIBPCT EQU DCBIFLG 01276000 DCBMACR EQU IHADCS24+10 01277000 DCBMACR1 EQU DCBMACR 01278000 DCBMRFE EQU DCBMACR1 01279000 DCBMRGET EQU DCBMRFE 01280000 DCBMRAPG EQU DCBMACR1 01281000 DCBMRRD EQU DCBMRAPG 01282000 DCBMRCI EQU DCBMACR1 01283000 DCBMRMVG EQU DCBMRCI 01284000 DCBMRLCG EQU DCBMACR1 01285000 DCBMRABC EQU DCBMACR1 01286000 DCBMRPT1 EQU DCBMRABC 01287000 DCBMRSBG EQU DCBMRPT1 01288000 DCBMRCRL EQU DCBMACR1 01289000 DCBMRCHK EQU DCBMRCRL 01290000 DCBMRRDX EQU DCBMRCHK 01291000 DCBMRDMG EQU DCBMACR1 01292000 DCBMACR2 EQU DCBMACR+1 01293000 DCBMRPUT EQU DCBMACR2 01294000 DCBMRWRT EQU DCBMACR2 01295000 DCBMRMVP EQU DCBMACR2 01296000 DCBMR5WD EQU DCBMACR2 01297000 DCBMRLDM EQU DCBMR5WD 01298000 DCBMRLCP EQU DCBMRLDM 01299000 DCBMR4WD EQU DCBMACR2 01300000 DCBMRPT2 EQU DCBMR4WD 01301000 DCBMRTMD EQU DCBMRPT2 01302000 DCBMR3WD EQU DCBMACR2 01303000 DCBMRCTL EQU DCBMR3WD 01304000 DCBMRSTK EQU DCBMRCTL 01305000 DCBMR1WD EQU DCBMACR2 01306000 DCBMRSWA EQU DCBMR1WD 01307000 DCBMRDMD EQU DCBMRSWA 01308000 IHADCS25 EQU 0 01309000 DCBMACRF EQU IHADCS25+2 01310000 DCBMACF1 EQU DCBMACRF 01311000 DCBMFFE EQU DCBMACF1 01312000 DCBMFGET EQU DCBMFFE 01313000 DCBMFAPG EQU DCBMACF1 01314000 DCBMFRD EQU DCBMFAPG 01315000 DCBMFCI EQU DCBMACF1 01316000 DCBMFMVG EQU DCBMFCI 01317000 DCBMFLCG EQU DCBMACF1 01318000 DCBMFABC EQU DCBMACF1 01319000 DCBMFPT1 EQU DCBMFABC 01320000 DCBMFSBG EQU DCBMFPT1 01321000 DCBMFCRL EQU DCBMACF1 01322000 DCBMFCHK EQU DCBMFCRL 01323000 DCBMFDMG EQU DCBMACF1 01324000 DCBMACF2 EQU DCBMACRF+1 01325000 DCBMFPUT EQU DCBMACF2 01326000 DCBMFWRT EQU DCBMACF2 01327000 DCBMFMVP EQU DCBMACF2 01328000 DCBMF5WD EQU DCBMACF2 01329000 DCBMFLDM EQU DCBMF5WD 01330000 DCBMFLCP EQU DCBMFLDM 01331000 DCBMF4WD EQU DCBMACF2 01332000 DCBMFPT2 EQU DCBMF4WD 01333000 DCBMFTMD EQU DCBMFPT2 01334000 DCBMF3WD EQU DCBMACF2 01335000 DCBMFCTL EQU DCBMF3WD 01336000 DCBMFSTK EQU DCBMFCTL 01337000 DCBMF1WD EQU DCBMACF2 01338000 DCBMFSWA EQU DCBMF1WD 01339000 DCBMFDMD EQU DCBMFSWA 01340000 DCBDEBAD EQU IHADCS25+4 01341000 DCBIFLGS EQU DCBDEBAD 01342000 DCBIFPCT EQU DCBIFLGS 01343000 IHADCS27 EQU 0 01344000 DCBGET EQU IHADCS27 01345000 DCBPUT EQU DCBGET 01346000 DCBGETA EQU DCBPUT+1 01347000 IHADCS43 EQU 0 01348000 DCBSCTAB EQU IHADCS43 01349000 IEDQLCB EQU 0 01350000 LCBRCB EQU IEDQLCB 01351000 LCBTSOB EQU IEDQLCB+19 01352000 LCBCHAIN EQU IEDQLCB+20 01353000 LCBSCRNN EQU LCBCHAIN 01354000 LCBTETEN EQU LCBCHAIN 01355000 LCBINSRC EQU IEDQLCB+21 01356000 LCBLKMDE EQU LCBINSRC+2 01357000 LCBNTXT EQU IEDQLCB+24 01358000 LCBSTAT4 EQU LCBNTXT 01359000 LCBPHASE EQU LCBSTAT4 01360000 LCBSCBDA EQU IEDQLCB+25 01361000 LCBMHA EQU IEDQLCB+29 01362000 LCBFLAG1 EQU IEDQLCB+32 01363000 LCBIOBSN EQU IEDQLCB+33 01364000 LCBSNS EQU LCBIOBSN+1 01365000 LCBSENS0 EQU LCBSNS 01366000 LCBLOSDT EQU LCBSENS0 01367000 LCBTMOUT EQU LCBSENS0 01368000 LCBFLAG3 EQU LCBIOBSN+7 01369000 LCBCSW EQU LCBIOBSN+8 01370000 LCBCSWST EQU LCBCSW+3 01371000 LCBCSWUS EQU LCBCSWST 01372000 LCBCSWCS EQU LCBCSWST+1 01373000 LCBSIOCC EQU LCBIOBSN+15 01374000 LCBDCBPT EQU IEDQLCB+52 01375000 LCBRCQCB EQU IEDQLCB+56 01376000 LCBRESTR EQU LCBRCQCB 01377000 LCBTHSQ EQU IEDQLCB+60 01378000 LCBINCAM EQU LCBTHSQ 01379000 LCBERRCT EQU IEDQLCB+62 01380000 LCBLSPCI EQU IEDQLCB+65 01381000 LCBRCBFR EQU LCBLSPCI 01382000 LCBSTATE EQU IEDQLCB+70 01383000 LCBSTAT1 EQU LCBSTATE 01384000 LCBSTAT2 EQU LCBSTATE+1 01385000 LCBBEOTN EQU LCBSTAT2 01386000 LCBSYNC EQU LCBSTAT2 01387000 LCBDIAL EQU LCBSTAT2 01388000 LCBTSTSW EQU IEDQLCB+72 01389000 LCBERB EQU IEDQLCB+76 01390000 LCBERBST EQU IEDQLCB+84 01391000 LCBDLNKN EQU LCBERBST 01392000 LCBERBCT EQU IEDQLCB+88 01393000 LCBRBCT2 EQU LCBERBCT+1 01394000 LCBTTCIN EQU IEDQLCB+90 01395000 LCBMSGFM EQU IEDQLCB+92 01396000 LCBOBRCH EQU IEDQLCB+96 01397000 LCBINVPT EQU LCBOBRCH+1 01398000 LCBBFRW EQU LCBINVPT 01399000 LCBTPCD EQU IEDQLCB+100 01400000 LCBSTAT5 EQU LCBTPCD 01401000 LCBSTAT6 EQU LCBTPCD+4 01402000 LCBRSPSV EQU LCBTPCD+8 01403000 LCBSAVSN EQU IEDQLCB+112 01404000 LCBERCCW EQU IEDQLCB+120 01405000 LCBCPA EQU IEDQLCB+144 01406000 LCBCCW5 EQU LCBCPA+32 01407000 LCBATTEL EQU LCBCCW5 01408000 LCBQEBPL EQU LCBATTEL 01409000 IEDQLPTR EQU 0 01410000 IEDQLCBX EQU 0 01411000 LCBXCON EQU IEDQLCBX 01412000 LCBXFLAG EQU LCBXCON 01413000 LCBXDCT EQU LCBXCON+1 01414000 LCBXRADR EQU LCBXCON+4 01415000 IEDQOPCE EQU 0 01416000 OCELEM EQU IEDQOPCE+4 01417000 OCELMPTR EQU OCELEM+1 01418000 OCUNIT EQU IEDQOPCE+8 01419000 OCRUDEST EQU OCUNIT 01420000 OCCKPKEY EQU OCRUDEST 01421000 OCSCAN EQU OCCKPKEY 01422000 OCADDR EQU OCSCAN 01423000 OCDDNAME EQU OCSCAN 01424000 OCOPTCDE EQU IEDQOPCE+12 01425000 OCSWITCH EQU IEDQOPCE+13 01426000 OCQUCKN EQU OCSWITCH 01427000 OCFLAG EQU IEDQOPCE+14 01428000 OCCONSOL EQU OCFLAG 01429000 OCMPP EQU OCFLAG 01430000 OCATTACH EQU OCFLAG 01431000 @NM00161 EQU IEDQOPCE+16 01432000 OCDEST EQU @NM00161 01433000 OCCONID EQU OCDEST 01434000 OCREQVAL EQU OCDEST+1 01435000 OCTRMTBL EQU IEDQOPCE+20 01436000 OCLINENO EQU IEDQOPCE+22 01437000 OCTIOT EQU OCLINENO 01438000 OCTRUNIT EQU IEDQOPCE+24 01439000 OCRSID EQU OCTRUNIT 01440000 OCALSTAT EQU OCRSID 01441000 OCPARM EQU IEDQOPCE+28 01442000 OCWTG EQU IEDQOPCE+30 01443000 OCBACKUP EQU IEDQOPCE+32 01444000 OCMODNME EQU IEDQOPCE+40 01445000 OCIPLWA EQU OCMODNME 01446000 OCPTRSAV EQU OCMODNME+4 01447000 OCCKDATA EQU IEDQOPCE+48 01448000 OCRSTGTM EQU OCCKDATA 01449000 IEDQOPCN EQU 0 01450000 OCLDNME EQU IEDQOPCN 01451000 OCLINTTE EQU OCLDNME 01452000 OCREQFLG EQU OCLINTTE+2 01453000 OCFLUSHZ EQU OCREQFLG 01454000 OCPREFLG EQU OCLINTTE+3 01455000 IEDQOPCD EQU 0 01456000 OPCDOUBL EQU IEDQOPCD 01457000 OPCAVTPT EQU IEDQOPCD+8 01458000 OPCCOPCE EQU IEDQOPCD+12 01459000 OPCDCBLK EQU IEDQOPCD+16 01460000 OPCTOFLK EQU IEDQOPCD+24 01461000 OPCSAVE EQU IEDQOPCD+56 01462000 OPCWORK EQU IEDQOPCD+140 01463000 OPCFLAG1 EQU IEDQOPCD+146 01464000 OPCFLAG2 EQU IEDQOPCD+147 01465000 OPCAQCTL EQU IEDQOPCD+180 01466000 OPCXCTL EQU IEDQOPCD+204 01467000 OPCLDNME EQU IEDQOPCD+212 01468000 OPCMODID EQU OPCLDNME+3 01469000 OPCNEXT EQU IEDQOPCD+272 01470000 OPCGETBF EQU IEDQOPCD+276 01471000 OPCFREBF EQU IEDQOPCD+280 01472000 OPCSPEC EQU IEDQOPCD+300 01473000 OPCWRKSP EQU IEDQOPCD+320 01474000 OPCPWCOB EQU IEDQOPCD+368 01475000 OPCPWQCB EQU OPCPWCOB 01476000 OPCPWECB EQU OPCPWCOB+4 01477000 IEDOPRED EQU 0 01478000 OPREQCB EQU IEDOPRED+1 01479000 OPREPRI EQU IEDOPRED+4 01480000 OPRESAVE EQU IEDOPRED+8 01481000 OPREFLG1 EQU IEDOPRED+12 01482000 OPREFLG3 EQU IEDOPRED+14 01483000 IEDRVTD EQU 0 01484000 RVTINDEX EQU IEDRVTD+2 01485000 IEDQRVTP EQU 0 01486000 IEDSATD EQU 0 01487000 SATRNRVT EQU IEDSATD+4 01488000 IEDQSATP EQU 0 01489000 IEDQTCXD EQU 0 01490000 TCXATTEN EQU IEDQTCXD+4 01491000 TCXFLAG1 EQU IEDQTCXD+34 01492000 TCXRPT EQU IEDQTCXD+36 01493000 TCXBUFA EQU IEDQTCXD+80 01494000 TCXDSAVE EQU IEDQTCXD+104 01495000 TCXQE8 EQU IEDQTCXD+216 01496000 TCXPTR EQU 0 01497000 IEDTRM EQU 0 01498000 IEDNTRM EQU IEDTRM 01499000 TRMBYTE4 EQU IEDNTRM 01500000 TRMBYTE3 EQU IEDNTRM+1 01501000 TRMBYTE2 EQU IEDNTRM+2 01502000 TRMREMB EQU TRMBYTE2 01503000 TRMINPG EQU TRMBYTE2 01504000 TRMBYTE1 EQU IEDNTRM+3 01505000 TRMSCPRQ EQU TRMBYTE1 01506000 TRMBYTE0 EQU IEDNTRM+6 01507000 TRMSIBPT EQU IEDNTRM+7 01508000 TRMTYPE EQU IEDNTRM+11 01509000 IEDQTRM EQU IEDTRM+14 01510000 TRMSTATE EQU IEDQTRM 01511000 TRMLOG EQU TRMSTATE 01512000 TRMINSEQ EQU IEDQTRM+4 01513000 TLISTCNT EQU TRMINSEQ 01514000 TRMOUTSQ EQU IEDQTRM+6 01515000 TLISTEN EQU TRMOUTSQ 01516000 TRMDSORG EQU TLISTEN 01517000 TRMALTD EQU IEDQTRM+8 01518000 TRMDEVFL EQU IEDQTRM+10 01519000 TRMSTAT EQU IEDQTRM+12 01520000 TIOCD EQU 0 01521000 TIOCLDS EQU TIOCD+116 01522000 IEDQTNT EQU 0 01523000 FREEBUFF EQU 0 01524000 ALLOCBUF EQU 0 01525000 TRMOFLOC EQU 0 01526000 WORKAREA EQU 0 01527000 LEN EQU WORKAREA+2 01528000 TPDATA EQU WORKAREA+8 01529000 TPNCP EQU TPDATA 01530000 TPBLANK EQU TPNCP 01531000 ENDOFDAT EQU 0 01532000 NCPWRKA EQU 0 01533000 NCPTYPE EQU NCPWRKA 01534000 NCPBLNK EQU NCPTYPE 01535000 CVTS01 EQU CVTPGSIA 01536000 CVTLPDIA EQU CVTS01+12 01537000 CVTDIRST EQU CVTLPDIA 01538000 CVTSLIDA EQU CVTS01+24 01539000 CVTCTLFG EQU CVTS01+50 01540000 CVTRV210 EQU CVTS01+424 01541000 CVTRV219 EQU CVTS01+425 01542000 CVTRV228 EQU CVTS01+426 01543000 CVTRV237 EQU CVTS01+427 01544000 CVTMFRTR EQU CVTS01+452 01545000 CVTRV262 EQU CVTS01+468 01546000 CVTRV271 EQU CVTS01+469 01547000 CVTRV280 EQU CVTS01+470 01548000 CVTRV289 EQU CVTS01+471 01549000 CVTGSDA EQU CVTS01+600 01550000 LCBRSPIN EQU LCBIOBSN 01551000 LCBLUSNS EQU LCBRSPIN+5 01552000 LCBSCPRS EQU LCBRSPIN+9 01553000 LCBCSWU1 EQU LCBSCPRS+2 01554000 LCBRSPFG EQU LCBRSPIN+15 01555000 LCBCOREQ EQU LCBTPCD 01556000 @NM00144 EQU LCBCPA+40 01557000 LCBQNX EQU LCBERCCW 01558000 LCBQNXMN EQU LCBQNX 01559000 LCBCANCL EQU LCBSAVSN 01560000 LCBCANFG EQU LCBCANCL 01561000 OCCKPKY1 EQU OCCKPKEY 01562000 OCCKPTYP EQU OCCKPKY1 01563000 OCICACTN EQU OCMODNME 01564000 OCICDADR EQU OCICACTN 01565000 OCICSW EQU OCICDADR+3 01566000 OPCAQWD EQU OPCAQCTL 01567000 OPCAQWD1 EQU OPCAQWD 01568000 OPCAQREQ EQU OPCAQWD1 01569000 OPCAQWD2 EQU OPCAQWD+4 01570000 OPCAQWD3 EQU OPCAQWD+8 01571000 TRMPRE1 EQU TRMBYTE4 01572000 TRMNCP1 EQU TRMBYTE4 01573000 TRMPRE EQU TRMBYTE3 01574000 TRMNCP EQU TRMBYTE3 01575000 TRMNCPCL EQU TRMNCP 01576000 TRMQUCKN EQU TRMNCP 01577000 TRMPU EQU TRMBYTE3 01578000 TRMLU EQU TRMBYTE3 01579000 TRMLINK EQU TRMBYTE3 01580000 PRMLST EQU OCBACKUP 01581000 FLAG EQU OPCFLAG1 01582000 EXITFLG EQU FLAG 01583000 CLOSEFLG EQU OCALSTAT 01584000 CLOSEONE EQU CLOSEFLG 01585000 OPCECTR EQU OCPARM 01586000 CONID EQU AVTCLOSB+8 01587000 OCCIB EQU OCREQVAL 01588000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01589000 @NM00197 EQU CLOSEFLG 01590000 @NM00196 EQU FLAG 01591000 @NM00194 EQU TRMLINK 01592000 TRMLSTAT EQU TRMLINK 01593000 TRMLINT EQU TRMLINK 01594000 TRMEPMOD EQU TRMLINK 01595000 TRMLULOG EQU TRMLU 01596000 TRMINERR EQU TRMLU 01597000 TRMLUREQ EQU TRMLU 01598000 TRMSESRQ EQU TRMLU 01599000 TRMTDIFF EQU TRMLU 01600000 TRMLUTM EQU TRMLU 01601000 TRMLUIT EQU TRMLU 01602000 TRMAUTO EQU TRMLU 01603000 TRMPCONT EQU TRMPU 01604000 @NM00193 EQU TRMPU 01605000 TRMNCONT EQU TRMNCP 01606000 TRMSLOWN EQU TRMNCP 01607000 TRMSYGEN EQU TRMNCP 01608000 TRMIPLDM EQU TRMNCP 01609000 TRMINOUT EQU TRMPRE 01610000 TRMRDOUT EQU TRMPRE 01611000 TRMNLOUT EQU TRMPRE 01612000 TRMWROUT EQU TRMPRE 01613000 TRMASNXI EQU TRMPRE 01614000 TRMSTMM EQU TRMPRE 01615000 TRMCMODE EQU TRMPRE 01616000 TRMSTPND EQU TRMPRE 01617000 @NM00192 EQU TRMNCP1 01618000 TRMINOP EQU TRMNCP1 01619000 TRMLYNCH EQU TRMPRE1 01620000 TRMSPOUT EQU TRMPRE1 01621000 TRMERLCK EQU TRMPRE1 01622000 TRMQNPL EQU TRMPRE1 01623000 TRMSPACT EQU TRMPRE1 01624000 TRMOCNI EQU TRMPRE1 01625000 TRMSESSN EQU TRMPRE1 01626000 TRMCONT EQU TRMPRE1 01627000 OPCAQLST EQU OPCAQWD3+1 01628000 OPCAQRQ3 EQU OPCAQWD3 01629000 OPCAQSEC EQU OPCAQWD2+1 01630000 OPCAQRQ2 EQU OPCAQWD2 01631000 OPCAQFST EQU OPCAQWD1+1 01632000 OCICINAC EQU OCICSW 01633000 @NM00166 EQU OCICSW 01634000 OCICATST EQU OCICDADR+1 01635000 OCICTYPE EQU OCICDADR 01636000 @NM00165 EQU OCCKPKY1 01637000 OCCKPENV EQU OCCKPKY1 01638000 OCCKPRST EQU OCCKPTYP 01639000 OCCKPNCP EQU OCCKPTYP 01640000 OCCKPINC EQU OCCKPTYP 01641000 @NM00152 EQU LCBCANCL+3 01642000 LCBCANTH EQU LCBCANCL+1 01643000 @NM00151 EQU LCBCANFG 01644000 LCBCANCD EQU LCBCANFG 01645000 @NM00150 EQU LCBCANFG 01646000 LCBCANEB EQU LCBCANFG 01647000 LCBCANXT EQU LCBCANFG 01648000 LCBUNADD EQU LCBQNX+21 01649000 LCBUASZE EQU LCBQNX+20 01650000 LCBDSTEA EQU LCBQNX+16 01651000 @NM00149 EQU LCBQNX+8 01652000 LCBIOSBS EQU LCBQNX+5 01653000 @NM00148 EQU LCBQNX+4 01654000 LCBSTSAV EQU LCBQNX+1 01655000 @NM00147 EQU LCBQNXMN 01656000 LCBNX509 EQU LCBQNXMN 01657000 LCBNX162 EQU LCBQNXMN 01658000 LCBNX142 EQU LCBQNXMN 01659000 LCBNX064 EQU LCBQNXMN 01660000 @NM00146 EQU @NM00144+4 01661000 LCBNCPPT EQU @NM00144+1 01662000 @NM00145 EQU @NM00144 01663000 LCBWRSCH EQU LCBCOREQ+8 01664000 LCBCQLNK EQU LCBCOREQ+4 01665000 LCBCQELE EQU LCBCOREQ 01666000 LCBPAKCH EQU LCBRSPIN+16 01667000 @NM00143 EQU LCBRSPFG 01668000 LCBRSRH EQU LCBRSPFG 01669000 LCBEXPI EQU LCBRSPFG 01670000 @NM00142 EQU LCBRSPIN+12 01671000 LCBUSUE1 EQU LCBCSWU1 01672000 @NM00141 EQU LCBCSWU1 01673000 @NM00140 EQU LCBSCPRS+1 01674000 LCBDFCMD EQU LCBSCPRS 01675000 LCBUSER EQU LCBLUSNS+2 01676000 LCBSMIN EQU LCBLUSNS+1 01677000 LCBSMAJ EQU LCBLUSNS 01678000 LCBRHSV EQU LCBRSPIN+2 01679000 LCBSNS0 EQU LCBRSPIN+1 01680000 @NM00139 EQU LCBRSPIN 01681000 CVTRV628 EQU CVTS01+728 01682000 CVTRV627 EQU CVTS01+724 01683000 CVTRV626 EQU CVTS01+720 01684000 CVTRV625 EQU CVTS01+716 01685000 CVTRV624 EQU CVTS01+712 01686000 CVTRV623 EQU CVTS01+708 01687000 CVTRV622 EQU CVTS01+704 01688000 CVTRV621 EQU CVTS01+700 01689000 CVTRV620 EQU CVTS01+696 01690000 CVTRV619 EQU CVTS01+692 01691000 CVTRV618 EQU CVTS01+688 01692000 CVTRV617 EQU CVTS01+684 01693000 CVTRV616 EQU CVTS01+680 01694000 CVTRV615 EQU CVTS01+676 01695000 CVTRV614 EQU CVTS01+672 01696000 CVTRV613 EQU CVTS01+668 01697000 CVTTCASP EQU CVTS01+664 01698000 CVT0PT03 EQU CVTS01+660 01699000 CVT0PT0E EQU CVTS01+656 01700000 CVTIRM EQU CVTS01+652 01701000 CVTCGK EQU CVTS01+648 01702000 CVTRV607 EQU CVTS01+644 01703000 CVTRV606 EQU CVTS01+640 01704000 CVTRV605 EQU CVTS01+636 01705000 CVTRV604 EQU CVTS01+632 01706000 CVTEFF02 EQU CVTS01+628 01707000 CVTCBBR EQU CVTS01+624 01708000 CVTSSCR EQU CVTS01+620 01709000 CVTEVENT EQU CVTS01+616 01710000 CVTCRCA EQU CVTS01+612 01711000 CVTTPIO EQU CVTS01+608 01712000 CVTADV EQU CVTS01+604 01713000 CVTGSDAB EQU CVTGSDA 01714000 CVTQV3 EQU CVTS01+596 01715000 CVTQV2 EQU CVTS01+592 01716000 CVTQV1 EQU CVTS01+588 01717000 CVTRPT EQU CVTS01+584 01718000 CVTSSRB EQU CVTS01+580 01719000 CVTCSDRL EQU CVTS01+576 01720000 CVTEXP1 EQU CVTS01+572 01721000 CVTRMPMT EQU CVTS01+568 01722000 CVTRMPTT EQU CVTS01+564 01723000 CVTVPSA EQU CVTS01+560 01724000 CVTVSTOP EQU CVTS01+556 01725000 CVTGTFR8 EQU CVTS01+552 01726000 CVTQUIT EQU CVTS01+548 01727000 CVTVACR EQU CVTS01+544 01728000 CVTWTCB EQU CVTS01+540 01729000 CVTSTPRS EQU CVTS01+536 01730000 CVT0PT02 EQU CVTS01+532 01731000 CVTDARCM EQU CVTS01+528 01732000 CVTIRECM EQU CVTS01+524 01733000 CVTJRECM EQU CVTS01+520 01734000 CVTVEMS0 EQU CVTS01+516 01735000 CVTSPFRR EQU CVTS01+512 01736000 CVTRLSTG EQU CVTS01+508 01737000 CVT0TC0A EQU CVTS01+504 01738000 CVTGMBR EQU CVTS01+500 01739000 CVTLFRM EQU CVTS01+496 01740000 CVTRMBR EQU CVTS01+492 01741000 CVTVIOP EQU CVTS01+488 01742000 CVTRV307 EQU CVTS01+486 01743000 CVTRV306 EQU CVTS01+484 01744000 CVTRV305 EQU CVTS01+482 01745000 CVTRV304 EQU CVTS01+480 01746000 CVTRV303 EQU CVTS01+478 01747000 CVTRV302 EQU CVTS01+476 01748000 CVTTRCA EQU CVTS01+472 01749000 CVTRV297 EQU CVTRV289 01750000 CVTRV296 EQU CVTRV289 01751000 CVTRV295 EQU CVTRV289 01752000 CVTRV294 EQU CVTRV289 01753000 CVTRV293 EQU CVTRV289 01754000 CVTRV292 EQU CVTRV289 01755000 CVTRV291 EQU CVTRV289 01756000 CVTRV290 EQU CVTRV289 01757000 CVTRV288 EQU CVTRV280 01758000 CVTRV287 EQU CVTRV280 01759000 CVTRV286 EQU CVTRV280 01760000 CVTRV285 EQU CVTRV280 01761000 CVTRV284 EQU CVTRV280 01762000 CVTRV283 EQU CVTRV280 01763000 CVTRV282 EQU CVTRV280 01764000 CVTRV281 EQU CVTRV280 01765000 CVTRV279 EQU CVTRV271 01766000 CVTRV278 EQU CVTRV271 01767000 CVTRV277 EQU CVTRV271 01768000 CVTRV276 EQU CVTRV271 01769000 CVTRV275 EQU CVTRV271 01770000 CVTRV274 EQU CVTRV271 01771000 CVTRV273 EQU CVTRV271 01772000 CVTRV272 EQU CVTRV271 01773000 CVTRV270 EQU CVTRV262 01774000 CVTRV269 EQU CVTRV262 01775000 CVTRV268 EQU CVTRV262 01776000 CVTRV267 EQU CVTRV262 01777000 CVTRV266 EQU CVTRV262 01778000 CVTRV265 EQU CVTRV262 01779000 CVTRV264 EQU CVTRV262 01780000 CVTRV263 EQU CVTRV262 01781000 CVTVFP EQU CVTS01+464 01782000 CVTVSI EQU CVTS01+460 01783000 CVTVPSIB EQU CVTS01+456 01784000 CVTMFACT EQU CVTMFRTR 01785000 CVTMFCTL EQU CVTS01+448 01786000 CVTPVBP EQU CVTS01+444 01787000 CVTPWI EQU CVTS01+440 01788000 CVTRV254 EQU CVTS01+438 01789000 CVTRV253 EQU CVTS01+436 01790000 CVTRV252 EQU CVTS01+434 01791000 CVTRV251 EQU CVTS01+433 01792000 CVTRV250 EQU CVTS01+432 01793000 CVTRV249 EQU CVTS01+431 01794000 CVTRV248 EQU CVTS01+430 01795000 CVTRV247 EQU CVTS01+429 01796000 CVTRV246 EQU CVTS01+428 01797000 CVTRV245 EQU CVTRV237 01798000 CVTRV244 EQU CVTRV237 01799000 CVTRV243 EQU CVTRV237 01800000 CVTRV242 EQU CVTRV237 01801000 CVTRV241 EQU CVTRV237 01802000 CVTRV240 EQU CVTRV237 01803000 CVTRV239 EQU CVTRV237 01804000 CVTRV238 EQU CVTRV237 01805000 CVTRV236 EQU CVTRV228 01806000 CVTRV235 EQU CVTRV228 01807000 CVTRV234 EQU CVTRV228 01808000 CVTRV233 EQU CVTRV228 01809000 CVTRV232 EQU CVTRV228 01810000 CVTRV231 EQU CVTRV228 01811000 CVTRV230 EQU CVTRV228 01812000 CVTRV229 EQU CVTRV228 01813000 CVTRV227 EQU CVTRV219 01814000 CVTRV226 EQU CVTRV219 01815000 CVTRV225 EQU CVTRV219 01816000 CVTRV224 EQU CVTRV219 01817000 CVTRV223 EQU CVTRV219 01818000 CVTRV222 EQU CVTRV219 01819000 CVTRV221 EQU CVTRV219 01820000 CVTRV220 EQU CVTRV219 01821000 CVTRV218 EQU CVTRV210 01822000 CVTRV217 EQU CVTRV210 01823000 CVTRV216 EQU CVTRV210 01824000 CVTRV215 EQU CVTRV210 01825000 CVTRV214 EQU CVTRV210 01826000 CVTRV213 EQU CVTRV210 01827000 CVTRV212 EQU CVTRV210 01828000 CVTRV211 EQU CVTRV210 01829000 CVTLCCAT EQU CVTS01+420 01830000 CVTPCCAT EQU CVTS01+416 01831000 CVTIPCRP EQU CVTS01+412 01832000 CVTIPCRI EQU CVTS01+408 01833000 CVTIPCDS EQU CVTS01+404 01834000 CVTAIDVT EQU CVTS01+400 01835000 CVTSSAP EQU CVTS01+396 01836000 CVTEHCIR EQU CVTS01+392 01837000 CVTEHDEF EQU CVTS01+388 01838000 CVTDAIR EQU CVTS01+384 01839000 CVTPERFM EQU CVTS01+380 01840000 CVT044R2 EQU CVTS01+376 01841000 CVTFETCH EQU CVTS01+372 01842000 CVTRSTWD EQU CVTS01+368 01843000 CVTSPOST EQU CVTS01+364 01844000 CVTIOBP EQU CVTS01+360 01845000 CVTASMVT EQU CVTS01+356 01846000 CVTRECRQ EQU CVTS01+352 01847000 CVTWSAC EQU CVTS01+348 01848000 CVTRV149 EQU CVTS01+344 01849000 CVTWSAL EQU CVTS01+340 01850000 CVTSPSA EQU CVTS01+336 01851000 CVTGLMN EQU CVTS01+332 01852000 CVTVEAC0 EQU CVTS01+328 01853000 CVT062R1 EQU CVTS01+324 01854000 CVTRPOST EQU CVTS01+320 01855000 CVTDQIQE EQU CVTS01+316 01856000 CVTCSD EQU CVTS01+312 01857000 CVTLKRMA EQU CVTS01+308 01858000 CVTRSPIE EQU CVTS01+304 01859000 CVTRENQ EQU CVTS01+300 01860000 CVTLQCB EQU CVTS01+296 01861000 CVTFQCB EQU CVTS01+292 01862000 CVTQCS01 EQU CVTS01+288 01863000 CVTAPFT EQU CVTS01+284 01864000 CVTPARRL EQU CVTS01+280 01865000 CVTVWAIT EQU CVTS01+276 01866000 CVTGSPL EQU CVTS01+272 01867000 CVTLSMQ EQU CVTS01+268 01868000 CVTGSMQ EQU CVTS01+264 01869000 CVTEXPRO EQU CVTS01+260 01870000 CVTOPCTP EQU CVTS01+256 01871000 CVTSIC EQU CVTS01+252 01872000 CVTTPIOS EQU CVTS01+248 01873000 CVTRTMS EQU CVTS01+244 01874000 CVTSDBF EQU CVTS01+240 01875000 CVTSCBP EQU CVTS01+236 01876000 CVTSDMP EQU CVTS01+232 01877000 CVTSV60 EQU CVTS01+228 01878000 CVTRTMCT EQU CVTS01+224 01879000 CVTASCBL EQU CVTS01+220 01880000 CVTASCBH EQU CVTS01+216 01881000 CVTGDA EQU CVTS01+212 01882000 CVTASVT EQU CVTS01+208 01883000 CVTVVMDI EQU CVTS01+204 01884000 CVTAQTOP EQU CVTS01+200 01885000 CVTIOSCS EQU CVTS01+196 01886000 CVTSDRM EQU CVTS01+192 01887000 CVTOPTE EQU CVTS01+188 01888000 CVTSTXU EQU CVTS01+184 01889000 CVTQUIS EQU CVTS01+180 01890000 CVTPARS EQU CVTS01+176 01891000 CVTS1EE EQU CVTS01+172 01892000 CVTFRAS EQU CVTS01+168 01893000 CVTQSAS EQU CVTS01+164 01894000 CVTCRAS EQU CVTS01+160 01895000 CVTCRMN EQU CVTS01+156 01896000 CVTDELCP EQU CVTS01+152 01897000 CVTFRECL EQU CVTS01+148 01898000 CVTGETCL EQU CVTS01+144 01899000 CVTBLDCP EQU CVTS01+140 01900000 CVTAUTHL EQU CVTS01+136 01901000 CVTSCAN EQU CVTS01+132 01902000 CVTRV144 EQU CVTS01+130 01903000 CVTMAXMP EQU CVTS01+128 01904000 CVTSTCK EQU CVTS01+124 01905000 CVTRV139 EQU CVTS01+123 01906000 CVTDSSAC EQU CVTS01+122 01907000 CVTRV513 EQU CVTS01+121 01908000 CVTIOSPL EQU CVTS01+120 01909000 CVTPTGT EQU CVTS01+116 01910000 CVTCSPIE EQU CVTS01+112 01911000 CVTSMFEX EQU CVTS01+108 01912000 CVTOLT0A EQU CVTS01+104 01913000 CVTSRBRT EQU CVTS01+100 01914000 CVTPUTL EQU CVTS01+96 01915000 CVTASCRL EQU CVTS01+92 01916000 CVTASCRF EQU CVTS01+88 01917000 CVTRV326 EQU CVTS01+84 01918000 CVTRV325 EQU CVTS01+80 01919000 CVTRV324 EQU CVTS01+76 01920000 CVT0VL01 EQU CVTS01+72 01921000 CVTSHRVM EQU CVTS01+68 01922000 CVTRV332 EQU CVTS01+64 01923000 CVTTAS EQU CVTS01+60 01924000 CVTRSCN EQU CVTS01+56 01925000 CVTTRAC2 EQU CVTS01+54 01926000 CVTTRACE EQU CVTS01+52 01927000 CVTAPG EQU CVTS01+51 01928000 CVTSDTRC EQU CVTCTLFG 01929000 CVTGTRCE EQU CVTCTLFG 01930000 CVTNOMP EQU CVTCTLFG 01931000 CVTRSV79 EQU CVTCTLFG 01932000 CVTDSTAT EQU CVTCTLFG 01933000 CVTRSV78 EQU CVTCTLFG 01934000 CVTRV333 EQU CVTCTLFG 01935000 CVTRV323 EQU CVTCTLFG 01936000 CVTSPVLK EQU CVTS01+49 01937000 CVTRSV77 EQU CVTS01+48 01938000 CVTRV331 EQU CVTS01+44 01939000 CVTRV330 EQU CVTS01+40 01940000 CVTRV329 EQU CVTS01+36 01941000 CVTRV328 EQU CVTS01+32 01942000 CVTRV322 EQU CVTS01+28 01943000 CVTSLID EQU CVTSLIDA+1 01944000 CVTSYLK EQU CVTSLIDA 01945000 CVTRV321 EQU CVTS01+20 01946000 CVTRV320 EQU CVTS01+16 01947000 CVTLPDIR EQU CVTLPDIA+1 01948000 CVTRSV69 EQU CVTDIRST 01949000 CVTRSV68 EQU CVTDIRST 01950000 CVTRSV67 EQU CVTDIRST 01951000 CVTRSV66 EQU CVTDIRST 01952000 CVTRSV65 EQU CVTDIRST 01953000 CVTRSV64 EQU CVTDIRST 01954000 CVTRSV63 EQU CVTDIRST 01955000 CVTDICOM EQU CVTDIRST 01956000 CVTPVTP EQU CVTS01+8 01957000 CVTLPDSR EQU CVTS01+4 01958000 CVTGETL EQU CVTS01 01959000 @NM00202 EQU NCPTYPE+1 01960000 @NM00201 EQU TPDATA+7 01961000 @NM00200 EQU TPNCP+3 01962000 @NM00199 EQU WORKAREA+4 01963000 @NM00198 EQU WORKAREA 01964000 @NM00195 EQU TIOCD 01965000 TRMOPT EQU IEDTRM+34 01966000 TRMOPTBL EQU IEDQTRM+18 01967000 TRMOPNO EQU IEDQTRM+17 01968000 TRMCHCIN EQU IEDQTRM+16 01969000 TRMSENSE EQU TRMSTAT+3 01970000 TRMTEMPR EQU TRMSTAT+2 01971000 TRMSIO EQU TRMSTAT 01972000 @NM00191 EQU TRMDEVFL+1 01973000 TRMTPIN EQU TRMDEVFL+1 01974000 TRMNCPI EQU TRMDEVFL+1 01975000 TRMRNTRM EQU TRMDEVFL+1 01976000 @NM00190 EQU TRMDEVFL+1 01977000 TRMLMD EQU TRMDEVFL+1 01978000 TRMCONC EQU TRMDEVFL+1 01979000 TRMTSOB EQU TRMDEVFL 01980000 TRMBFDY EQU TRMDEVFL 01981000 TRMTBLK EQU TRMDEVFL 01982000 TRMSBLK EQU TRMDEVFL 01983000 TRMBLKS EQU TRMDEVFL 01984000 TRMADDC EQU TRMDEVFL 01985000 TRMDDIG EQU TRMDEVFL 01986000 TRMBUFS EQU TRMDEVFL 01987000 TRMPRILK EQU TRMALTD 01988000 TRMLGB EQU TRMDSORG 01989000 TRMUTERM EQU TLISTCNT 01990000 TRMDESTQ EQU IEDQTRM+1 01991000 TRMSCNYN EQU TRMSTATE 01992000 TRMOPTFN EQU TRMSTATE 01993000 TRMHELDN EQU TRMSTATE 01994000 TRMACPTN EQU TRMSTATE 01995000 TRMPREF EQU TRMSTATE 01996000 TRMPROC EQU TRMLOG 01997000 TRMLIST EQU TRMLOG 01998000 TRMLINE EQU TRMSTATE 01999000 TRMSUBST EQU IEDNTRM+12 02000000 TRMRLMCT EQU IEDNTRM+10 02001000 TRMCOHTG EQU TRMSIBPT+1 02002000 TRMGPCNT EQU TRMSIBPT 02003000 TRMBUFRD EQU TRMBYTE0 02004000 TRMSNA EQU TRMBYTE0 02005000 TRMGP EQU TRMBYTE0 02006000 TRMDIAL EQU TRMBYTE0 02007000 @NM00189 EQU TRMBYTE0 02008000 TRMOUTPT EQU TRMBYTE0 02009000 TRMINPUT EQU TRMBYTE0 02010000 TRMUDEF EQU TRMBYTE0 02011000 TRMCOHRT EQU IEDNTRM+4 02012000 TRMSTOTE EQU TRMBYTE1 02013000 TRMCKPRN EQU TRMBYTE1 02014000 TRMTSATN EQU TRMBYTE1 02015000 TRMTRACE EQU TRMBYTE1 02016000 TRMSWBCK EQU TRMBYTE1 02017000 TRMAUTOC EQU TRMBYTE1 02018000 TRMINPTP EQU TRMBYTE1 02019000 TRMWTNEG EQU TRMSCPRQ 02020000 TRMWRBRK EQU TRMBYTE2 02021000 TRMNOSND EQU TRMBYTE2 02022000 TRMPREP EQU TRMBYTE2 02023000 TRMGPACT EQU TRMBYTE2 02024000 TRMANDL EQU TRMBYTE2 02025000 TRMCLOSN EQU TRMINPG 02026000 TRMRSACT EQU TRMBYTE2 02027000 TCXEND EQU IEDQTCXD+224 02028000 TCXNCPIO EQU IEDQTCXD+220 02029000 TCXACTE8 EQU TCXQE8 02030000 TCXABEPL EQU IEDQTCXD+212 02031000 TCXSRBS EQU IEDQTCXD+208 02032000 TCXSIOSB EQU IEDQTCXD+204 02033000 TCXESAVE EQU IEDQTCXD+132 02034000 TCXERPPM EQU IEDQTCXD+128 02035000 TCXERPSV EQU IEDQTCXD+116 02036000 TCXSATTN EQU IEDQTCXD+112 02037000 @NM00188 EQU TCXDSAVE+4 02038000 @NM00187 EQU TCXDSAVE 02039000 TCXPLCB EQU IEDQTCXD+100 02040000 TCXBITS EQU IEDQTCXD+98 02041000 TCXSCBSZ EQU IEDQTCXD+97 02042000 TCXBIT1 EQU IEDQTCXD+96 02043000 TCXCOMPT EQU IEDQTCXD+92 02044000 TCXAVAIL EQU IEDQTCXD+88 02045000 TCXBUFL EQU IEDQTCXD+84 02046000 TCXTOTE EQU TCXBUFA 02047000 TCXCKPM EQU IEDQTCXD+79 02048000 TCXNCKPR EQU IEDQTCXD+78 02049000 TCXSZAIB EQU IEDQTCXD+76 02050000 TCXAIBC EQU IEDQTCXD+72 02051000 TCXPEBC EQU IEDQTCXD+68 02052000 TCXPEWAC EQU IEDQTCXD+64 02053000 TCXQRQ EQU IEDQTCXD+60 02054000 TCXOCQ EQU IEDQTCXD+56 02055000 TCXPNTQ EQU IEDQTCXD+52 02056000 TCXPUTQ EQU IEDQTCXD+48 02057000 TCXGETQ EQU IEDQTCXD+44 02058000 TCXTSI EQU IEDQTCXD+40 02059000 TCXCC3TS EQU IEDQTCXD+35 02060000 TCXAPDMP EQU TCXFLAG1 02061000 TCXAPPL EQU TCXFLAG1 02062000 TCXRTM EQU TCXFLAG1 02063000 TCXMCPCD EQU TCXFLAG1 02064000 TCXAUTH EQU TCXFLAG1 02065000 TCXASID EQU IEDQTCXD+32 02066000 TCXASCB EQU IEDQTCXD+28 02067000 TCXREADY EQU IEDQTCXD+24 02068000 TCXPASWD EQU IEDQTCXD+16 02069000 TCXDISP EQU IEDQTCXD+12 02070000 TCXTCB EQU IEDQTCXD+8 02071000 TCXATTLN EQU TCXATTEN 02072000 TCXAVT EQU IEDQTCXD 02073000 SATRNLCB EQU IEDSATD 02074000 RVTNUM EQU IEDRVTD 02075000 @NM00186 EQU OPREFLG3 02076000 OPREATCH EQU OPREFLG3 02077000 @NM00185 EQU OPREFLG3 02078000 OPREFLG2 EQU IEDOPRED+13 02079000 OPRETIC EQU OPRESAVE 02080000 OPRELINK EQU IEDOPRED+5 02081000 OPREKEY EQU IEDOPRED 02082000 OPCBOTTM EQU IEDQOPCD+1188 02083000 OPCDSRWT EQU IEDQOPCD+1184 02084000 @NM00184 EQU IEDQOPCD+1100 02085000 @NM00183 EQU IEDQOPCD+948 02086000 @NM00182 EQU IEDQOPCD+940 02087000 @NM00181 EQU IEDQOPCD+380 02088000 @NM00180 EQU OPCPWCOB+9 02089000 @NM00179 EQU OPCPWCOB+8 02090000 @NM00178 EQU OPCPWECB+1 02091000 OPCPWCCC EQU OPCPWECB 02092000 OPCPWCHN EQU OPCPWQCB+1 02093000 OPCPWVTO EQU OPCPWQCB 02094000 OPCWAITV EQU IEDQOPCD+364 02095000 OPCTOTCK EQU IEDQOPCD+360 02096000 OPCAPXTL EQU IEDQOPCD+356 02097000 OPCDECR EQU IEDQOPCD+352 02098000 OPCBUFWT EQU IEDQOPCD+348 02099000 OPCADGOT EQU IEDQOPCD+318 02100000 OPCRQCNT EQU IEDQOPCD+316 02101000 OPPOLSTP EQU IEDQOPCD+312 02102000 OPCCKCIB EQU IEDQOPCD+308 02103000 OPCEND EQU IEDQOPCD+307 02104000 OPCSTCBS EQU IEDQOPCD+306 02105000 OPCHNEND EQU IEDQOPCD+302 02106000 OPCOQSW EQU IEDQOPCD+301 02107000 @NM00177 EQU OPCSPEC 02108000 @NM00176 EQU OPCSPEC 02109000 @NM00175 EQU OPCSPEC 02110000 @NM00174 EQU OPCSPEC 02111000 OPCFRMCA EQU OPCSPEC 02112000 OPCRSTRT EQU OPCSPEC 02113000 OPCPART EQU OPCSPEC 02114000 OPCALTD EQU OPCSPEC 02115000 OPCBFEND EQU IEDQOPCD+296 02116000 OPCBFIRS EQU IEDQOPCD+292 02117000 OPCAVBUF EQU IEDQOPCD+290 02118000 OPCIPLCT EQU IEDQOPCD+289 02119000 OPCCLNTS EQU IEDQOPCD+288 02120000 OPCHA8 EQU IEDQOPCD+286 02121000 OPCBFREQ EQU IEDQOPCD+284 02122000 OPCFMDFC EQU IEDQOPCD+268 02123000 OPCSCNC EQU IEDQOPCD+264 02124000 OPCHORTG EQU IEDQOPCD+260 02125000 OPCHORT EQU IEDQOPCD+256 02126000 OPCCKPTL EQU IEDQOPCD+252 02127000 OPCCKPTF EQU IEDQOPCD+248 02128000 OPCWAITA EQU IEDQOPCD+244 02129000 OPCWAITR EQU IEDQOPCD+240 02130000 OPCWAITP EQU IEDQOPCD+236 02131000 OPCWAITO EQU IEDQOPCD+232 02132000 OPCWAITN EQU IEDQOPCD+228 02133000 OPCWAITL EQU IEDQOPCD+224 02134000 OPCWAITC EQU IEDQOPCD+220 02135000 @NM00173 EQU OPCLDNME+5 02136000 @NM00172 EQU OPCLDNME 02137000 OPCWAIT EQU IEDQOPCD+192 02138000 OPCCKERB EQU IEDQOPCD+164 02139000 OPCBFERB EQU IEDQOPCD+148 02140000 OPCWRKSZ EQU IEDQOPCD+144 02141000 OPCRSAVE EQU IEDQOPCD+132 02142000 OPCQCBAD EQU IEDQOPCD+128 02143000 OPCTRMWA EQU IEDQOPCD+52 02144000 OPCPSTWT EQU IEDQOPCD+48 02145000 OPCTNTEA EQU IEDQOPCD+44 02146000 OPCPGCK EQU IEDQOPCD+40 02147000 OPCLCB EQU IEDQOPCD+36 02148000 @NM00171 EQU IEDQOPCD+32 02149000 OPCIPLAD EQU IEDQOPCD+28 02150000 OPCOPTLK EQU IEDQOPCD+20 02151000 @NM00170 EQU OCLDNME+4 02152000 @NM00169 EQU OCPREFLG 02153000 OCTOTEP EQU OCPREFLG 02154000 OCREPOST EQU OCPREFLG 02155000 OCRSPSNT EQU OCPREFLG 02156000 OCBFREQ EQU OCPREFLG 02157000 OCIDLE EQU OCREQFLG 02158000 OCFORCE EQU OCREQFLG 02159000 OCDCARD EQU OCREQFLG 02160000 OCPARTAL EQU OCREQFLG 02161000 OCADNCP EQU OCREQFLG 02162000 @NM00168 EQU OCREQFLG 02163000 @NM00167 EQU OCREQFLG 02164000 OCRESPCT EQU OCLINTTE 02165000 OCCKPTWA EQU OCCKDATA+4 02166000 @NM00164 EQU OCRSTGTM+2 02167000 OCCKDAT2 EQU OCRSTGTM+1 02168000 OCCKDAT1 EQU OCRSTGTM 02169000 OCPUADR EQU OCIPLWA+2 02170000 OCWTGSAV EQU OCIPLWA 02171000 OCDVRDCT EQU OCBACKUP+6 02172000 OCNCP EQU OCBACKUP+4 02173000 OCBUFGOT EQU OCBACKUP+2 02174000 OCBUFNED EQU OCBACKUP 02175000 OCRESNUM EQU OCPARM 02176000 OCSEQ EQU OCTRUNIT+2 02177000 @NM00163 EQU OCRSID+1 02178000 OCNONE EQU OCALSTAT 02179000 OCSOME EQU OCALSTAT 02180000 OCALLFLG EQU OCALSTAT 02181000 OCACTREQ EQU OCALSTAT 02182000 OCREDRVE EQU OCALSTAT 02183000 OCSEQIND EQU OCALSTAT 02184000 OCDACTIP EQU OCALSTAT 02185000 OCRENTRD EQU OCALSTAT 02186000 OCWTGB EQU OCTIOT 02187000 @NM00162 EQU @NM00161+2 02188000 OCRLN EQU IEDQOPCE+15 02189000 OCRESP EQU OCFLAG 02190000 OCSSCP EQU OCFLAG 02191000 OCOUTPUT EQU OCFLAG 02192000 OCLINE EQU OCFLAG 02193000 OCTOTE EQU OCFLAG 02194000 @NM00160 EQU OCSWITCH 02195000 OCPRIFLG EQU OCOPTCDE 02196000 @NM00159 EQU OCRUDEST+1 02197000 @NM00158 EQU OCSCAN 02198000 OCNOTUCB EQU OCSCAN 02199000 OCNONAME EQU OCSCAN 02200000 OCALLRLN EQU OCSCAN 02201000 OCDDNRLN EQU OCSCAN 02202000 OCELMPRI EQU OCELEM 02203000 OCLINK EQU IEDQOPCE 02204000 LCBERADR EQU LCBXRADR+1 02205000 LCBPCIRC EQU LCBXRADR 02206000 LCBDCT3 EQU LCBXDCT+2 02207000 LCBDCT2 EQU LCBXDCT+1 02208000 LCBDCT1 EQU LCBXDCT 02209000 @NM00157 EQU LCBXFLAG 02210000 LCBERPND EQU LCBXFLAG 02211000 LCBSRCPF EQU LCBXFLAG 02212000 LCBGPCTV EQU LCBXFLAG 02213000 @NM00156 EQU LCBXFLAG 02214000 @NM00155 EQU LCBXFLAG 02215000 @NM00154 EQU LCBXFLAG 02216000 @NM00153 EQU LCBXFLAG 02217000 LCBCCW10 EQU LCBCPA+72 02218000 LCBCCW9 EQU LCBCPA+64 02219000 LCBCCW8 EQU LCBCPA+56 02220000 LCBCCW7 EQU LCBCPA+48 02221000 LCBCCW6 EQU LCBCPA+40 02222000 LCBCP EQU LCBQEBPL+4 02223000 LCBIOSB EQU LCBQEBPL+1 02224000 LCBSIO EQU LCBQEBPL 02225000 LCBCCW4 EQU LCBCPA+24 02226000 LCBCCW3 EQU LCBCPA+16 02227000 LCBCCW2 EQU LCBCPA+8 02228000 LCBCCW1 EQU LCBCPA 02229000 @NM00138 EQU LCBERCCW+16 02230000 LCBATL05 EQU LCBERCCW+8 02231000 @NM00137 EQU LCBERCCW 02232000 LCBCSWSV EQU LCBSAVSN+1 02233000 LCBSNSV EQU LCBSAVSN 02234000 LCBBFSNS EQU LCBRSPSV 02235000 LCBWAITC EQU LCBTPCD+5 02236000 LCBINPAK EQU LCBSTAT6 02237000 LCBMHBID EQU LCBSTAT6 02238000 LCBRTRRO EQU LCBSTAT6 02239000 LCBHDRPD EQU LCBSTAT6 02240000 LCBCHN EQU LCBSTAT6 02241000 LCBBFRSV EQU LCBTPCD+1 02242000 @NM00136 EQU LCBSTAT5 02243000 LCBLUS EQU LCBSTAT5 02244000 LCBLUNIT EQU LCBSTAT5 02245000 LCBPERM EQU LCBSTAT5 02246000 LCBNXCMD EQU LCBBFRW 02247000 LCBERMSK EQU LCBOBRCH 02248000 LCBSCBA EQU IEDQLCB+93 02249000 LCBOLT EQU LCBMSGFM 02250000 LCBEOT EQU LCBMSGFM 02251000 LCBENQ EQU LCBMSGFM 02252000 LCBTTD EQU LCBMSGFM 02253000 LCBRSTRT EQU LCBMSGFM 02254000 LCBVSTRT EQU LCBMSGFM 02255000 LCBACKI EQU LCBMSGFM 02256000 LCBNAK EQU LCBMSGFM 02257000 @NM00135 EQU LCBRBCT2 02258000 LCBDCNT EQU LCBRBCT2 02259000 LCBRBCT1 EQU LCBERBCT 02260000 LCBERBCH EQU IEDQLCB+85 02261000 LCBCOMPL EQU LCBDLNKN 02262000 LCBPRCPG EQU LCBERBST 02263000 LCBERROR EQU LCBERBST 02264000 LCBLOGDV EQU LCBERBST 02265000 LCBINQ EQU LCBERBST 02266000 LCBRDERR EQU LCBERBST 02267000 LCBEOMSG EQU LCBERBST 02268000 LCBMSG EQU LCBERBST 02269000 LCBERBLK EQU IEDQLCB+81 02270000 LCBERBPY EQU IEDQLCB+80 02271000 LCBERBQB EQU LCBERB+1 02272000 LCBERBKY EQU LCBERB 02273000 LCBRECAD EQU IEDQLCB+73 02274000 @NM00134 EQU LCBTSTSW 02275000 @NM00133 EQU LCBTSTSW 02276000 @NM00132 EQU LCBTSTSW 02277000 @NM00131 EQU LCBTSTSW 02278000 @NM00130 EQU LCBTSTSW 02279000 @NM00129 EQU LCBTSTSW 02280000 @NM00128 EQU LCBTSTSW 02281000 LCBCONCT EQU LCBTSTSW 02282000 LCBRESP EQU LCBSTAT2 02283000 LCBBFRAV EQU LCBDIAL 02284000 LCBATTN EQU LCBSYNC 02285000 LCBNEGRP EQU LCBSTAT2 02286000 LCBSNDPR EQU LCBSTAT2 02287000 LCBCONNN EQU LCBBEOTN 02288000 LCBMSGNN EQU LCBSTAT2 02289000 LCBTRACE EQU LCBSTAT2 02290000 LCBSENDN EQU LCBSTAT1 02291000 LCBRECVN EQU LCBSTAT1 02292000 LCBFREEN EQU LCBSTAT1 02293000 LCBCONT EQU LCBSTAT1 02294000 LCBINITN EQU LCBSTAT1 02295000 LCBOCNI EQU LCBSTAT1 02296000 LCBOCWTN EQU LCBSTAT1 02297000 LCBRCLLN EQU LCBSTAT1 02298000 LCBRECOF EQU IEDQLCB+68 02299000 LCBRDBFR EQU LCBRCBFR 02300000 LCBUCBX EQU IEDQLCB+64 02301000 LCBTTBIN EQU LCBERRCT 02302000 @NM00127 EQU LCBINCAM 02303000 LCBGETMN EQU LCBINCAM 02304000 @NM00126 EQU LCBRESTR+1 02305000 LCBCMDSV EQU LCBRESTR 02306000 LCBPCILK EQU LCBDCBPT 02307000 LCBSTART EQU LCBIOBSN+16 02308000 LCBAP4OL EQU LCBSIOCC 02309000 LCBAP3OL EQU LCBSIOCC 02310000 LCBAP2OL EQU LCBSIOCC 02311000 LCBAP1OL EQU LCBSIOCC 02312000 LCBSIOC2 EQU LCBSIOCC 02313000 LCBSIOC1 EQU LCBSIOCC 02314000 @NM00125 EQU LCBSIOCC 02315000 LCBCSWRC EQU LCBCSW+5 02316000 LCBCSCHC EQU LCBCSWCS 02317000 LCBCSICC EQU LCBCSWCS 02318000 LCBCSCCC EQU LCBCSWCS 02319000 LCBCSCDC EQU LCBCSWCS 02320000 LCBCSPTC EQU LCBCSWCS 02321000 LCBCSPGC EQU LCBCSWCS 02322000 LCBCSIL EQU LCBCSWCS 02323000 LCBCSPCI EQU LCBCSWCS 02324000 LCBUSUE EQU LCBCSWUS 02325000 LCBUSUC EQU LCBCSWUS 02326000 LCBUSDE EQU LCBCSWUS 02327000 LCBUSCE EQU LCBCSWUS 02328000 LCBUSBSY EQU LCBCSWUS 02329000 LCBUSCUE EQU LCBCSWUS 02330000 LCBUSSM EQU LCBCSWUS 02331000 LCBUSAT EQU LCBCSWUS 02332000 LCBCSWCA EQU LCBCSW 02333000 LCBOBR EQU LCBFLAG3 02334000 LCBOBRRD EQU LCBFLAG3 02335000 LCBIOMSG EQU LCBFLAG3 02336000 LCBSOHC EQU LCBFLAG3 02337000 LCBRLAD EQU LCBFLAG3 02338000 LCBSOHR EQU LCBFLAG3 02339000 @NM00124 EQU LCBFLAG3 02340000 LCBECBPT EQU LCBIOBSN+4 02341000 LCBECBCC EQU LCBIOBSN+3 02342000 LCBSENS1 EQU LCBSNS+1 02343000 LCBABORT EQU LCBTMOUT 02344000 LCBNOTIN EQU LCBLOSDT 02345000 LCBOVRUN EQU LCBSENS0 02346000 LCBDATCK EQU LCBSENS0 02347000 LCBEQUCK EQU LCBSENS0 02348000 LCBBUSCK EQU LCBSENS0 02349000 LCBINTRQ EQU LCBSENS0 02350000 LCBCMDRJ EQU LCBSENS0 02351000 LCBFLAG2 EQU LCBIOBSN 02352000 @NM00123 EQU LCBFLAG1 02353000 LCBUNREL EQU LCBFLAG1 02354000 LCBEXCPN EQU LCBFLAG1 02355000 @NM00122 EQU LCBFLAG1 02356000 LCBERPIN EQU LCBFLAG1 02357000 @NM00121 EQU LCBFLAG1 02358000 LCBFSBFR EQU LCBMHA 02359000 LCBISZE EQU IEDQLCB+28 02360000 LCBLNENT EQU LCBSCBDA+1 02361000 @NM00120 EQU LCBSCBDA 02362000 LCBCPGMH EQU LCBSTAT4 02363000 LCBREAL EQU LCBPHASE 02364000 @NM00119 EQU LCBSTAT4 02365000 LCBACTRQ EQU LCBSTAT4 02366000 LCBIPLRQ EQU LCBSTAT4 02367000 LCBDACRQ EQU LCBSTAT4 02368000 LCBDMPRQ EQU LCBSTAT4 02369000 @NM00118 EQU LCBLKMDE 02370000 LCBLOCKI EQU LCBLKMDE 02371000 LCBLOCKR EQU LCBLKMDE 02372000 LCBHMFLG EQU LCBLKMDE 02373000 LCBBDFLG EQU LCBLKMDE 02374000 @NM00117 EQU LCBINSRC 02375000 LCBABRTN EQU LCBCHAIN 02376000 LCBCTLMD EQU LCBTETEN 02377000 LCBBFRSZ EQU LCBCHAIN 02378000 LCBUREQN EQU LCBCHAIN 02379000 LCBNORTY EQU LCBCHAIN 02380000 LCBERMSG EQU LCBCHAIN 02381000 LCBEXCP EQU LCBCHAIN 02382000 LCBINVRQ EQU LCBSCRNN 02383000 LCB2741N EQU LCBTSOB 02384000 LCBINHBN EQU LCBTSOB 02385000 LCBCIRCD EQU LCBTSOB 02386000 LCBPREP EQU LCBTSOB 02387000 LCBSOPL EQU LCBTSOB 02388000 LCBSATRD EQU LCBTSOB 02389000 LCBTSBUF EQU LCBTSOB 02390000 LCBWRBRK EQU LCBTSOB 02391000 LCBTDL EQU IEDQLCB+18 02392000 LCBEOLTD EQU IEDQLCB+16 02393000 LCBRSLNK EQU IEDQLCB+13 02394000 LCBRSPRI EQU IEDQLCB+12 02395000 LCBSTCBA EQU IEDQLCB+9 02396000 LCBRSKEY EQU IEDQLCB+8 02397000 LCBLINK EQU LCBRCB+5 02398000 LCBPRI EQU LCBRCB+4 02399000 LCBQCBA EQU LCBRCB+1 02400000 LCBKEY EQU LCBRCB 02401000 DCBBUFSI EQU IHADCS43+6 02402000 DCBUNTCT EQU IHADCS43+5 02403000 DCBILCT EQU IHADCS43+4 02404000 DCBSCTAD EQU DCBSCTAB+1 02405000 @NM00116 EQU DCBSCTAB 02406000 DCBPUTA EQU DCBGETA 02407000 @NM00115 EQU DCBPUT 02408000 DCBDEBA EQU DCBDEBAD+1 02409000 @NM00114 EQU DCBIFLGS 02410000 DCBIFIOE EQU DCBIFLGS 02411000 DCBCH12 EQU DCBIFPCT 02412000 DCBCH9 EQU DCBIFPCT 02413000 DCBIFEC EQU DCBIFLGS 02414000 DCBMFSTI EQU DCBMFDMD 02415000 DCBMFAWR EQU DCBMFSTK 02416000 DCBMFUIP EQU DCBMFTMD 02417000 DCBMFIDW EQU DCBMFLCP 02418000 DCBMFWRK EQU DCBMFMVP 02419000 DCBMFRDQ EQU DCBMFWRT 02420000 DCBMFGTQ EQU DCBMFPUT 02421000 DCBMFSTL EQU DCBMACF2 02422000 DCBMFCK EQU DCBMFDMG 02423000 DCBMFRDX EQU DCBMFCHK 02424000 DCBMFDBF EQU DCBMFSBG 02425000 DCBMFRDI EQU DCBMFLCG 02426000 DCBMFRDK EQU DCBMFMVG 02427000 DCBMFWRQ EQU DCBMFRD 02428000 DCBMFPTQ EQU DCBMFGET 02429000 DCBMFECP EQU DCBMACF1 02430000 DCBTIOT EQU IHADCS25 02431000 DCBMRSTI EQU DCBMRDMD 02432000 DCBMRAWR EQU DCBMRSTK 02433000 DCBMRUIP EQU DCBMRTMD 02434000 DCBMRIDW EQU DCBMRLCP 02435000 DCBMRWRK EQU DCBMRMVP 02436000 DCBMRRDQ EQU DCBMRWRT 02437000 DCBMRGTQ EQU DCBMRPUT 02438000 DCBMRSTL EQU DCBMACR2 02439000 DCBMRCK EQU DCBMRDMG 02440000 DCBPGFXA EQU DCBMRRDX 02441000 DCBMRDBF EQU DCBMRSBG 02442000 DCBMRRDI EQU DCBMRLCG 02443000 DCBMRRDK EQU DCBMRMVG 02444000 DCBMRWRQ EQU DCBMRRD 02445000 DCBMRPTQ EQU DCBMRGET 02446000 DCBMRECP EQU DCBMACR1 02447000 @NM00113 EQU DCBIFLG 02448000 DCBIBIOE EQU DCBIFLG 02449000 DCBICH12 EQU DCBIBPCT 02450000 DCBICH9 EQU DCBIBPCT 02451000 DCBIBEC EQU DCBIFLG 02452000 DCBOFIOF EQU DCBOFLGS 02453000 DCBOFUEX EQU DCBOFLGS 02454000 DCBOFTM EQU DCBOFLGS 02455000 DCBOFPPC EQU DCBOFLGS 02456000 DCBOFOPN EQU DCBOFLGS 02457000 DCBOFEOV EQU DCBOFLGS 02458000 DCBOFLRB EQU DCBOFLGS 02459000 DCBOFIOD EQU DCBOFLWR 02460000 DCBDDNAM EQU IHADCS24 02461000 DCBEXLSA EQU DCBEXLST+1 02462000 DCBRNCKA EQU DCBRNCKD+1 02463000 @NM00112 EQU DCBRNCKD 02464000 @NM00111 EQU DCBDSRG2 02465000 DCBDSRG1 EQU DCBDSORG 02466000 DCBCHNGL EQU DCBTRSTA 02467000 DCBNIDLE EQU DCBTRSTA 02468000 DCBBAKUP EQU DCBTRSTA 02469000 DCBIPLED EQU DCBTRSTA 02470000 DCBRSTRT EQU DCBTRSTA 02471000 DCBINITL EQU DCBTRSTA 02472000 DCBAUTOD EQU DCBTRSTA 02473000 DCBAUTOI EQU DCBTRSTA 02474000 @NM00110 EQU IHADCS2K+4 02475000 DCBDUMPA EQU DCBDUMPD+1 02476000 DCBUNITN EQU DCBDUMPD 02477000 DCBBCKUA EQU DCBBCKUP+1 02478000 @NM00109 EQU DCBBCKUP 02479000 DCBIPLTX EQU IHADCS1A 02480000 @NM00108 EQU IHADCB 02481000 CVTLEVL EQU CVTRELNO+2 02482000 CVTNUMB EQU CVTRELNO 02483000 CVTMDL EQU CVTFIX+250 02484000 @NM00107 EQU CVTFIX+248 02485000 @NM00106 EQU CVTFIX 02486000 CVTRV482 EQU CVTXTNT2+128 02487000 CVTRV481 EQU CVTXTNT2+124 02488000 CVTRV480 EQU CVTXTNT2+120 02489000 CVTRV479 EQU CVTXTNT2+118 02490000 CVTRV478 EQU CVTXTNT2+117 02491000 CVTRV477 EQU CVTXTNT2+116 02492000 CVTRV476 EQU CVTXTNT2+115 02493000 CVTRV475 EQU CVTXTNT2+114 02494000 CVTRV474 EQU CVTRV466 02495000 CVTRV473 EQU CVTRV466 02496000 CVTRV472 EQU CVTRV466 02497000 CVTRV471 EQU CVTRV466 02498000 CVTRV470 EQU CVTRV466 02499000 CVTRV469 EQU CVTRV466 02500000 CVTRV468 EQU CVTRV466 02501000 CVTRV467 EQU CVTRV466 02502000 CVTRV465 EQU CVTRV457 02503000 CVTRV464 EQU CVTRV457 02504000 CVTRV463 EQU CVTRV457 02505000 CVTRV462 EQU CVTRV457 02506000 CVTRV461 EQU CVTRV457 02507000 CVTRV460 EQU CVTRV457 02508000 CVTRV459 EQU CVTRV457 02509000 CVTRV458 EQU CVTRV457 02510000 CVTRV456 EQU CVTXTNT2+108 02511000 CVTRV455 EQU CVTXTNT2+104 02512000 CVTRV454 EQU CVTXTNT2+100 02513000 CVTRV453 EQU CVTXTNT2+96 02514000 CVTRV452 EQU CVTXTNT2+94 02515000 CVTRV451 EQU CVTXTNT2+92 02516000 CVTRV450 EQU CVTXTNT2+90 02517000 CVTRV449 EQU CVTXTNT2+88 02518000 CVTRV448 EQU CVTXTNT2+87 02519000 CVTRV447 EQU CVTXTNT2+86 02520000 CVTRV446 EQU CVTRV438 02521000 CVTRV445 EQU CVTRV438 02522000 CVTRV444 EQU CVTRV438 02523000 CVTRV443 EQU CVTRV438 02524000 CVTRV442 EQU CVTRV438 02525000 CVTRV441 EQU CVTRV438 02526000 CVTRV440 EQU CVTRV438 02527000 CVTRV439 EQU CVTRV438 02528000 CVTRV437 EQU CVTRV429 02529000 CVTRV436 EQU CVTRV429 02530000 CVTRV435 EQU CVTRV429 02531000 CVTRV434 EQU CVTRV429 02532000 CVTRV433 EQU CVTRV429 02533000 CVTRV432 EQU CVTRV429 02534000 CVTRV431 EQU CVTRV429 02535000 CVTRV430 EQU CVTRV429 02536000 CVTRV428 EQU CVTXTNT2+80 02537000 CVTRV427 EQU CVTXTNT2+76 02538000 CVTRV426 EQU CVTXTNT2+72 02539000 CVTRV425 EQU CVTXTNT2+68 02540000 CVTATACT EQU CVTATCVT 02541000 CVTRV423 EQU CVTXTNT2+62 02542000 CVTRV422 EQU CVTXTNT2+60 02543000 CVTRV421 EQU CVTXTNT2+58 02544000 CVTRV420 EQU CVTXTNT2+56 02545000 CVTRV419 EQU CVTXTNT2+55 02546000 CVTRV418 EQU CVTXTNT2+54 02547000 CVTRV417 EQU CVTRV409 02548000 CVTRV416 EQU CVTRV409 02549000 CVTRV415 EQU CVTRV409 02550000 CVTRV414 EQU CVTRV409 02551000 CVTRV413 EQU CVTRV409 02552000 CVTRV412 EQU CVTRV409 02553000 CVTRV411 EQU CVTRV409 02554000 CVTRV410 EQU CVTRV409 02555000 CVTRV408 EQU CVTRV400 02556000 CVTRV407 EQU CVTRV400 02557000 CVTRV406 EQU CVTRV400 02558000 CVTRV405 EQU CVTRV400 02559000 CVTRV404 EQU CVTRV400 02560000 CVTRV403 EQU CVTRV400 02561000 CVTRV402 EQU CVTRV400 02562000 CVTRV401 EQU CVTRV400 02563000 CVTICB EQU CVTXTNT2+48 02564000 CVTSKTA EQU CVTXTNT2+44 02565000 CVTSHSB EQU CVTSHS 02566000 CVTRSV98 EQU CVTXTNT2+36 02567000 CVTRSV97 EQU CVTXTNT2+34 02568000 CVTRSV96 EQU CVTXTNT2+32 02569000 CVTOLTEP EQU CVTXTNT2+28 02570000 CVTQIDA EQU CVTQID+1 02571000 CVTRSV95 EQU CVTQID 02572000 CVTRSV94 EQU CVTXTNT2+20 02573000 CVTRSV93 EQU CVTXTNT2+16 02574000 CVTRSV92 EQU CVTXTNT2+12 02575000 CVTDEBVR EQU CVTXTNT2+8 02576000 CVTRSV91 EQU CVTXTNT2+6 02577000 CVTRSV9H EQU CVTFLGBT 02578000 CVTRSV9G EQU CVTFLGBT 02579000 CVTRSV9F EQU CVTFLGBT 02580000 CVTRSV9E EQU CVTFLGBT 02581000 CVTRSV9D EQU CVTFLGBT 02582000 CVTRSV9C EQU CVTFLGBT 02583000 CVTVME EQU CVTFLGBT 02584000 CVTNPE EQU CVTFLGBT 02585000 CVTNUCLS EQU CVTXTNT2+4 02586000 CVTDSSVA EQU CVTDSSV+1 02587000 CVTRSV89 EQU CVTDSSV 02588000 CVTRSV88 EQU CVTXTNT1+8 02589000 CVTRSV87 EQU CVTXTNT1+4 02590000 CVTFACHN EQU CVTXTNT1 02591000 CVTRV488 EQU CVTMAP+412 02592000 CVTRV487 EQU CVTMAP+408 02593000 CVTRV486 EQU CVTMAP+404 02594000 CVTRV485 EQU CVTMAP+400 02595000 CVTACTAP EQU CVTMAP+396 02596000 CVTAUTH EQU CVTMAP+392 02597000 CVTATMCA EQU CVTATMCT+1 02598000 CVTATMST EQU CVTATMCT 02599000 CVTRSV61 EQU CVTMAP+384 02600000 CVTVOLT1 EQU CVTVOLM1+1 02601000 CVTVOLI1 EQU CVTVOLF1 02602000 CVTSTOA EQU CVTMAP+376 02603000 CVTRSV58 EQU CVTMAP+374 02604000 CVTRSV57 EQU CVTMAP+372 02605000 CVTDDCE EQU CVTMAP+368 02606000 CVTPNWFR EQU CVTMAP+364 02607000 CVTSMF EQU CVTMAP+360 02608000 CVTSULK EQU CVTMAP+358 02609000 CVTSLKO EQU CVTSYSK 02610000 CVTSLKP EQU CVTSYSK 02611000 CVTSLKQ EQU CVTSYSK 02612000 CVTSLKR EQU CVTSYSK 02613000 CVTRSV56 EQU CVTSYSK 02614000 CVTRSV55 EQU CVTSYSK 02615000 CVTRSV54 EQU CVTSYSK 02616000 CVTRSV53 EQU CVTSYSK 02617000 CVTRSV52 EQU CVTA1F1 02618000 CVTRSV51 EQU CVTA1F1 02619000 CVTRSV50 EQU CVTA1F1 02620000 CVTRSV49 EQU CVTA1F1 02621000 CVTRSV48 EQU CVTA1F1 02622000 CVTRSV47 EQU CVTA1F1 02623000 CVTSRSW EQU CVTA1F1 02624000 CVTPFSW EQU CVTA1F1 02625000 CVTPCVT EQU CVTMAP+352 02626000 CVTRSV46 EQU CVTMAP+344 02627000 CVTRSV45 EQU CVTMAP+340 02628000 CVTRSV44 EQU CVTMAP+338 02629000 CVTRSV43 EQU CVTMAP+336 02630000 CVTHJESA EQU CVTHJES+1 02631000 CVTRSV42 EQU CVTHJES 02632000 CVTEXT2A EQU CVTEXT2+1 02633000 CVTRSV41 EQU CVTEXT2 02634000 CVTAPFA EQU CVTAPF+1 02635000 CVTRSV40 EQU CVTAPF 02636000 CVTRV518 EQU CVTINTLA 02637000 CVTRV517 EQU CVTERPV 02638000 CVTEORM EQU CVTMAP+312 02639000 CVTMCHPR EQU CVTMAP+308 02640000 CVTTZ EQU CVTMAP+304 02641000 CVTJEPS EQU CVTMAP+300 02642000 CVTJESCT EQU CVTMAP+296 02643000 CVTMODE EQU CVTMAP+292 02644000 CVTPTRV EQU CVTMAP+288 02645000 CVTREAL EQU CVTMAP+284 02646000 CVTRSV39 EQU CVTMAP+280 02647000 CVTRSV38 EQU CVTMAP+276 02648000 CVTDMSRA EQU CVTDMSR+1 02649000 CVTRV634 EQU CVTDMSRF 02650000 CVTRV633 EQU CVTDMSRF 02651000 CVTRV632 EQU CVTDMSRF 02652000 CVTRV631 EQU CVTDMSRF 02653000 CVTRV630 EQU CVTDMSRF 02654000 CVTRV629 EQU CVTDMSRF 02655000 CVTUDUMP EQU CVTDMSRF 02656000 CVTSDUMP EQU CVTDMSRF 02657000 CVTQMSGA EQU CVTQMSG+1 02658000 CVTRSV36 EQU CVTQMSG 02659000 CVTAMFF EQU CVTMAP+264 02660000 CVTPURGA EQU CVTPURG+1 02661000 CVTRSV35 EQU CVTPURG 02662000 CVTCBSP EQU CVTMAP+256 02663000 CVTATERA EQU CVTATER+1 02664000 CVTSYST EQU CVTATER 02665000 CVTVOLT2 EQU CVTTAT 02666000 CVTVOLI2 EQU CVTVOLF2 02667000 CVTAQAVB EQU CVTAQAVT+1 02668000 CVTRSV34 EQU CVTTCMFG 02669000 CVTRSV33 EQU CVTTCMFG 02670000 CVTRSV32 EQU CVTTCMFG 02671000 CVTRSV31 EQU CVTTCMFG 02672000 CVTRSV30 EQU CVTTCMFG 02673000 CVTRSV29 EQU CVTTCMFG 02674000 CVTRSV28 EQU CVTTCMFG 02675000 CVTTCRDY EQU CVTTCMFG 02676000 CVTGTFA EQU CVTGTF+1 02677000 CVTRSV27 EQU CVTGTFST 02678000 CVTRNIO EQU CVTGTFST 02679000 CVTUSR EQU CVTGTFST 02680000 CVTRV318 EQU CVTFORM 02681000 CVTRV317 EQU CVTTMODE 02682000 CVTRV316 EQU CVTSTATE 02683000 CVTRV315 EQU CVTGTFS 02684000 CVTGTFAV EQU CVTGTFS 02685000 CVT0SCR1 EQU CVTMAP+232 02686000 CVTRV515 EQU CVTMAP+228 02687000 CVTRMS EQU CVTMAP+224 02688000 CVTPATCH EQU CVTMAP+220 02689000 CVTTSCE EQU CVTMAP+216 02690000 CVTLNKSC EQU CVTMAP+214 02691000 CVTQABST EQU CVTMAP+212 02692000 CVTMDLDS EQU CVTMAP+208 02693000 CVTUSER EQU CVTMAP+204 02694000 CVTABEND EQU CVTMAP+200 02695000 CVTSMCA EQU CVTMAP+196 02696000 CVTRSV18 EQU CVTMAP+192 02697000 CVTQLPAQ EQU CVTMAP+188 02698000 CVTQCDSR EQU CVTMAP+184 02699000 CVTRSV17 EQU CVTOPTB 02700000 CVTRSV16 EQU CVTOPTB 02701000 CVTFP EQU CVTOPTB 02702000 CVTAPTHR EQU CVTOPTB 02703000 CVTNLOG EQU CVTOPTB 02704000 CVTTOD EQU CVTOPTB 02705000 CVTCTIMS EQU CVTOPTB 02706000 CVTPROT EQU CVTOPTB 02707000 CVTXPFP EQU CVTOPTA 02708000 CVTASCII EQU CVTOPTA 02709000 CVTRSV13 EQU CVTOPTA 02710000 CVTRSV12 EQU CVTOPTA 02711000 CVTNIP EQU CVTOPTA 02712000 CVTDDR EQU CVTOPTA 02713000 CVTAPR EQU CVTOPTA 02714000 CVTCCH EQU CVTOPTA 02715000 CVTSNCTR EQU CVTMAP+180 02716000 CVTQMWR EQU CVTMAP+176 02717000 CVTQOCR EQU CVTMAP+172 02718000 CVT1EF00 EQU CVTMAP+168 02719000 CVTMZ00 EQU CVTMAP+164 02720000 CVTHEAD EQU CVTMAP+160 02721000 CVTRSV11 EQU CVTMAP+156 02722000 CVT0PT01 EQU CVTMAP+152 02723000 CVTMSER EQU CVTMAP+148 02724000 CVTRV516 EQU CVTIERLC 02725000 CVTILCH EQU CVTMAP+140 02726000 CVT0DS EQU CVTMAP+136 02727000 CVTFBOSV EQU CVTMAP+132 02728000 CVTNUCB EQU CVTMAP+128 02729000 CVTIXAVL EQU CVTMAP+124 02730000 CVTIOQET EQU CVTMAP+120 02731000 CVTDCBA EQU CVTMAP+117 02732000 CVTMVS2 EQU CVTDCB 02733000 CVT6DAT EQU CVTDCB 02734000 CVT4MPS EQU CVTDCB 02735000 CVTRSV09 EQU CVTDCB 02736000 CVT4MS1 EQU CVTDCB 02737000 CVT2SPS EQU CVTDCB 02738000 CVT1SSS EQU CVTDCB 02739000 CVTRSV08 EQU CVTDCB 02740000 CVTSTB EQU CVTMAP+112 02741000 CVTQTD00 EQU CVTMAP+108 02742000 CVTQTE00 EQU CVTMAP+104 02743000 CVTCUCB EQU CVTMAP+100 02744000 CVTSJQ EQU CVTMAP+96 02745000 CVTPBLDL EQU CVTMAP+92 02746000 CVTTPC EQU CVTMAP+88 02747000 CVTSVDCB EQU CVTMAP+84 02748000 CVTBRET EQU CVTMAP+82 02749000 CVTEXIT EQU CVTMAP+80 02750000 CVT0FN00 EQU CVTMAP+76 02751000 CVTDARA EQU CVTDAR+1 02752000 CVTRSV07 EQU CVTFLGS1 02753000 CVTRSV06 EQU CVTFLGS1 02754000 CVTRSV05 EQU CVTFLGS1 02755000 CVTRSV04 EQU CVTFLGS1 02756000 CVTRSV03 EQU CVTFLGS1 02757000 CVTRSV02 EQU CVTFLGS1 02758000 CVTRSV01 EQU CVTFLGS1 02759000 CVTDMPLK EQU CVTFLGS1 02760000 CVTXITP EQU CVTMAP+68 02761000 CVTZDTAB EQU CVTMAP+64 02762000 CVTMSLT EQU CVTMAP+60 02763000 CVTDATE EQU CVTMAP+56 02764000 CVTBTERM EQU CVTMAP+52 02765000 CVTSYSAD EQU CVTMAP+48 02766000 CVTXTLER EQU CVTMAP+44 02767000 CVTILK2 EQU CVTMAP+40 02768000 CVTILK1 EQU CVTMAP+36 02769000 CVTPRLTV EQU CVTMAP+32 02770000 CVTPCNVT EQU CVTMAP+28 02771000 CVT0VL00 EQU CVTMAP+24 02772000 CVTXAPG EQU CVTMAP+20 02773000 CVTBUF EQU CVTMAP+16 02774000 CVTJOB EQU CVTMAP+12 02775000 CVTLINK EQU CVTMAP+8 02776000 CVT0EF00 EQU CVTMAP+4 02777000 CVTTCBP EQU CVTMAP 02778000 CVT EQU CVTMAP 02779000 SAVTLLCB EQU IEDNSVTD+316 02780000 SAVTBITN EQU IEDNSVTD+312 02781000 @NM00105 EQU SAVTCKQB+8 02782000 @NM00104 EQU SAVTCKEC+1 02783000 @NM00103 EQU SAVTCKCC 02784000 SAVTCKPO EQU SAVTCKCC 02785000 SAVTCKWA EQU SAVTCKCC 02786000 SAVTCKCH EQU SAVTCKTB+1 02787000 SAVTCKVT EQU SAVTCKTB 02788000 @NM00102 EQU IEDNSVTD+297 02789000 SAVTRDFG EQU SAVTRDRV+12 02790000 @NM00101 EQU SAVTRDRV+5 02791000 SAVTRDPY EQU SAVTRDRV+4 02792000 SAVTRDQB EQU SAVTRDRV+1 02793000 SAVTRDKY EQU SAVTRDRV 02794000 SAVTNID EQU IEDNSVTD+280 02795000 SAVTDVAS EQU IEDNSVTD+276 02796000 SAVTPLSZ EQU IEDNSVTD+274 02797000 @NM00100 EQU IEDNSVTD+273 02798000 SAVTSUBL EQU IEDNSVTD+272 02799000 @NM00099 EQU SAVTZELM+1 02800000 SAVTSUBM EQU SAVTZELM 02801000 SAVTMHDX EQU IEDNSVTD+268 02802000 SAVTNAT1 EQU IEDNSVTD+266 02803000 SAVTSH20 EQU IEDNSVTD+264 02804000 SAVTLCBS EQU IEDNSVTD+260 02805000 SAVTRNMP EQU IEDNSVTD+256 02806000 SAVTTNTX EQU IEDNSVTD+252 02807000 SAVTNAX EQU IEDNSVTD+248 02808000 SAVTSUBV EQU IEDNSVTD+247 02809000 SAVTSIBC EQU IEDNSVTD+244 02810000 SAVTBSM EQU IEDNSVTD+240 02811000 SAVTSCPT EQU SAVTTCPU 02812000 SAVTRQTG EQU IEDNSVTD+236 02813000 SAVTRQCH EQU IEDNSVTD+232 02814000 SAVTMAND EQU IEDNSVTD+228 02815000 SAVTSPLN EQU IEDNSVTD+224 02816000 SAVTNADL EQU IEDNSVTD+222 02817000 SAVTNATL EQU IEDNSVTD+220 02818000 SAVTMHTB EQU IEDNSVTD+216 02819000 SAVTSSMH EQU IEDNSVTD+212 02820000 SAVTQRS EQU IEDNSVTD+208 02821000 SAVTRQIN EQU IEDNSVTD+204 02822000 SAVTDFCO EQU IEDNSVTD+200 02823000 SAVTSAO EQU IEDNSVTD+196 02824000 SAVTSARI EQU IEDNSVTD+192 02825000 SAVTSAC EQU IEDNSVTD+188 02826000 SAVTSAI EQU IEDNSVTD+184 02827000 SAVTCSCI EQU IEDNSVTD+180 02828000 SAVTSSRP EQU IEDNSVTD+176 02829000 SAVTSSRQ EQU IEDNSVTD+172 02830000 SAVTSCLU EQU IEDNSVTD+168 02831000 SAVTXTRQ EQU IEDNSVTD+164 02832000 SAVTMVBF EQU IEDNSVTD+160 02833000 @NM00098 EQU IEDNSVTD+148 02834000 SAVTIPCQ EQU IEDNSVTD+144 02835000 @NM00097 EQU IEDNSVTD+136 02836000 SAVTXFMI EQU IEDNSVTD+132 02837000 @NM00096 EQU IEDNSVTD+124 02838000 SAVTXFMO EQU IEDNSVTD+120 02839000 @NM00095 EQU IEDNSVTD+116 02840000 SAVTSSSR EQU IEDNSVTD+112 02841000 SAVTSCPQ EQU IEDNSVTD+108 02842000 SAVTSLCB EQU IEDNSVTD+104 02843000 SAVTLUSR EQU IEDNSVTD+100 02844000 @NM00094 EQU SAVTLUSQ+8 02845000 SAVTLUSP EQU SAVTLUSQ+4 02846000 SAVTLUSB EQU SAVTLUSQ 02847000 @NM00093 EQU IEDNSVTD+84 02848000 SAVTNAT EQU IEDNSVTD+76 02849000 SAVTCLUP EQU IEDNSVTD+72 02850000 SAVTPIUT EQU IEDNSVTD+68 02851000 SAVTRNTA EQU IEDNSVTD+64 02852000 SAVTDNIR EQU IEDNSVTD+60 02853000 SAVTCNIR EQU IEDNSVTD+56 02854000 SAVTFLDH EQU IEDNSVTD+52 02855000 SAVTSRTN EQU IEDNSVTD+48 02856000 SAVTSREQ EQU IEDNSVTD+44 02857000 SAVTFAIL EQU IEDNSVTD+42 02858000 SAVTSUSE EQU IEDNSVTD+40 02859000 SAVTSIB EQU IEDNSVTD+36 02860000 SAVTPRTN EQU IEDNSVTD+32 02861000 @NM00092 EQU IEDNSVTD+28 02862000 SAVTWH20 EQU IEDNSVTD+26 02863000 SAVTPWT EQU IEDNSVTD+24 02864000 SAVTPRTQ EQU IEDNSVTD+20 02865000 SAVTPREQ EQU IEDNSVTD+16 02866000 SAVTPH20 EQU IEDNSVTD+14 02867000 SAVTPUSE EQU IEDNSVTD+12 02868000 SAVTPLCB EQU IEDNSVTD+8 02869000 SAVTPOOL EQU IEDNSVTD+4 02870000 SAVTPRMT EQU SAVTDIAF 02871000 SAVTVIRT EQU SAVTDIAF 02872000 AVTCPBNO EQU IEDQAVTD+1244 02873000 AVTHRESS EQU IEDQAVTD+1243 02874000 @NM00091 EQU IEDQAVTD+1242 02875000 @NM00090 EQU IEDQAVTD+1241 02876000 @NM00089 EQU IEDQAVTD+1240 02877000 @NM00088 EQU IEDQAVTD+1237 02878000 @NM00087 EQU IEDQAVTD+1236 02879000 AVTHRESE EQU @NM00086 02880000 AVTRADDR EQU IEDQAVTD+1228 02881000 AVTNADDR EQU IEDQAVTD+1224 02882000 AVTHRESN EQU IEDQAVTD+1220 02883000 AVTVOLRN EQU IEDQAVTD+1216 02884000 AVTTOTNN EQU IEDQAVTD+1212 02885000 AVTTRCYN EQU IEDQAVTD+1208 02886000 AVTRCTRN EQU IEDQAVTD+1204 02887000 AVTNOVON EQU IEDQAVTD+1200 02888000 AVTADEBN EQU IEDQAVTD+1196 02889000 AVTVOLRR EQU IEDQAVTD+1192 02890000 AVTTOTNR EQU IEDQAVTD+1188 02891000 AVTTRCYR EQU IEDQAVTD+1184 02892000 AVTRCTRR EQU IEDQAVTD+1180 02893000 AVTNOVOR EQU IEDQAVTD+1176 02894000 AVTADEBR EQU IEDQAVTD+1172 02895000 AVTLODPT EQU IEDQAVTD+1168 02896000 AVTIOBN EQU IEDQAVTD+1164 02897000 AVTIOBR EQU IEDQAVTD+1160 02898000 AVTCPBPT EQU IEDQAVTD+1156 02899000 AVTFCPB EQU IEDQAVTD+1152 02900000 @NM00085 EQU IEDQAVTD+1148 02901000 AVTINCPQ EQU IEDQAVTD+1144 02902000 @NM00084 EQU IEDQAVTD+1140 02903000 @NM00083 EQU IEDQAVTD+1137 02904000 @NM00082 EQU AVTBIT4 02905000 @NM00081 EQU AVTBIT4 02906000 @NM00080 EQU AVTBIT4 02907000 @NM00079 EQU AVTBIT4 02908000 @NM00078 EQU AVTBIT4 02909000 @NM00077 EQU AVTBIT4 02910000 @NM00076 EQU AVTBIT4 02911000 AVTRUFTN EQU AVTBIT4 02912000 @NM00075 EQU IEDQAVTD+1132 02913000 AVTNOBFQ EQU IEDQAVTD+1128 02914000 @NM00074 EQU IEDQAVTD+1124 02915000 AVTDKENQ EQU IEDQAVTD+1120 02916000 @NM00073 EQU IEDQAVTD+1116 02917000 AVTDKAPQ EQU IEDQAVTD+1112 02918000 AVTCOPY EQU IEDQAVTD+1108 02919000 AVTIA EQU IEDQAVTD+1104 02920000 AVTFL EQU IEDQAVTD+1100 02921000 @NM00072 EQU IEDQAVTD+1096 02922000 AVTNCPBQ EQU IEDQAVTD+1092 02923000 AVTTOTNC EQU IEDQAVTD+1088 02924000 AVTCMAX EQU IEDQAVTD+1084 02925000 AVTCMIN EQU IEDQAVTD+1080 02926000 AVTHM02 EQU IEDQAVTD+1076 02927000 AVTOPCIN EQU IEDQAVTD+1074 02928000 AVTDCTLN EQU IEDQAVTD+1072 02929000 AVTOPMSK EQU IEDQAVTD+1068 02930000 AVTDDFT EQU IEDQAVTD+1064 02931000 AVTSTEAL EQU IEDQAVTD+1060 02932000 AVTOPTN EQU IEDQAVTD+1056 02933000 AVTDSKCT EQU IEDQAVTD+1054 02934000 AVTCKRST EQU IEDQAVTD+1053 02935000 AVTSTAN EQU AVTBIT3 02936000 AVTSTACN EQU AVTBIT3 02937000 AVTSTAIN EQU AVTBIT3 02938000 AVTSTAYN EQU AVTBIT3 02939000 AVTOLTBN EQU AVTBIT3 02940000 AVTTSAB EQU AVTBIT3 02941000 AVTRFULN EQU AVTBIT3 02942000 AVTRECVN EQU AVTBIT3 02943000 @NM00071 EQU AVTBIT2 02944000 @NM00070 EQU AVTBIT2 02945000 AVTOPEIN EQU AVTBIT2 02946000 AVTSTRTN EQU AVTBIT2 02947000 AVTTOPOL EQU AVTBIT2 02948000 AVTCOPYN EQU AVTBIT2 02949000 AVTREUSN EQU AVTBIT2 02950000 AVTEXTSC EQU AVTBIT2 02951000 AVTDISKN EQU AVTBIT1 02952000 AVTQUCKN EQU AVTBIT1 02953000 AVTCLOSN EQU AVTBIT1 02954000 AVTREADN EQU AVTBIT1 02955000 AVTDLAYN EQU AVTBIT1 02956000 AVTAQTAN EQU AVTBIT1 02957000 AVTTSON EQU AVTBIT1 02958000 AVTAPLKN EQU AVTBIT1 02959000 AVTDUMBR EQU IEDQAVTD+1048 02960000 AVTDLQX EQU IEDQAVTD+1046 02961000 AVTINTLV EQU IEDQAVTD+1044 02962000 AVTSMCNT EQU IEDQAVTD+1042 02963000 AVTAVFCT EQU IEDQAVTD+1040 02964000 AVTOPCON EQU IEDQAVTD+1038 02965000 AVTOPCNT EQU IEDQAVTD+1036 02966000 AVTLNCNT EQU IEDQAVTD+1034 02967000 AVTKEYLE EQU IEDQAVTD+1032 02968000 AVTHA16 EQU IEDQAVTD+1030 02969000 AVTHA7 EQU IEDQAVTD+1028 02970000 AVTHA4 EQU IEDQAVTD+1026 02971000 AVTHA3 EQU IEDQAVTD+1024 02972000 AVTHA2 EQU IEDQAVTD+1022 02973000 AVTGETMS EQU IEDQAVTD+1021 02974000 @NM00069 EQU IEDQAVTD+1020 02975000 AVTGETMD EQU IEDQAVTD+1016 02976000 AVTGETMN EQU IEDQAVTD+1012 02977000 AVTCWTOT EQU IEDQAVTD+1008 02978000 AVTCWINT EQU IEDQAVTD+956 02979000 AVTDTRAP EQU IEDQAVTD+952 02980000 @NM00068 EQU IEDQAVTD+950 02981000 @NM00067 EQU AVTIOTR 02982000 AVTIOTRH EQU AVTIOTR 02983000 AVTIOTRE EQU AVTIOTR 02984000 @NM00066 EQU AVTSUBT 02985000 AVTSUBPT EQU AVTSUBT 02986000 AVTSUBON EQU AVTSUBT 02987000 AVTAFE30 EQU IEDQAVTD+944 02988000 AVTAFE20 EQU IEDQAVTD+940 02989000 AVTAFE10 EQU IEDQAVTD+936 02990000 AVTCWEC2 EQU IEDQAVTD+932 02991000 AVTCWPM2 EQU IEDQAVTD+928 02992000 AVTCWTS2 EQU IEDQAVTD+927 02993000 AVTCWTS1 EQU IEDQAVTD+926 02994000 AVTCWCLD EQU AVTCWFL2 02995000 AVTCWRAP EQU AVTCWFL2 02996000 @NM00065 EQU AVTCWFL2 02997000 @NM00064 EQU AVTCWFL2 02998000 @NM00063 EQU AVTCWFL2 02999000 @NM00062 EQU AVTCWFL2 03000000 @NM00061 EQU AVTCWFL2 03001000 AVTCWACT EQU AVTCWFL2 03002000 @NM00060 EQU AVTCWFL1 03003000 @NM00059 EQU AVTCWFL1 03004000 @NM00058 EQU AVTCWFL1 03005000 @NM00057 EQU AVTCWFL1 03006000 @NM00056 EQU AVTCWFL1 03007000 @NM00055 EQU AVTCWFL1 03008000 @NM00054 EQU AVTCWFL1 03009000 AVTCOMWN EQU AVTCWFL1 03010000 AVTCWEC1 EQU IEDQAVTD+920 03011000 AVTCWPM1 EQU IEDQAVTD+916 03012000 AVTCAREA EQU IEDQAVTD+912 03013000 AVTFZERO EQU IEDQAVTD+908 03014000 AVTCADDR EQU IEDQAVTD+904 03015000 AVTCOREC EQU IEDQAVTD+900 03016000 @NM00053 EQU IEDQAVTD+892 03017000 AVTCPBCB EQU IEDQAVTD+888 03018000 @NM00052 EQU IEDQAVTD+880 03019000 AVTDSIOB EQU IEDQAVTD+876 03020000 @NM00051 EQU IEDQAVTD+868 03021000 AVTCPRMB EQU IEDQAVTD+864 03022000 @NM00050 EQU IEDQAVTD+856 03023000 @NM00049 EQU IEDQAVTD+844 03024000 AVTACTIB EQU IEDQAVTD+840 03025000 @NM00048 EQU IEDQAVTD+836 03026000 AVTOLTEB EQU IEDQAVTD+832 03027000 AVTOLTCH EQU AVTOLTQB+1 03028000 AVTOLTVT EQU AVTOLTQB 03029000 @NM00047 EQU AVTOPCQB+8 03030000 @NM00046 EQU AVTOPCEC+1 03031000 @NM00045 EQU AVTOPCCC 03032000 AVTOPCPO EQU AVTOPCCC 03033000 AVTOPCWA EQU AVTOPCCC 03034000 AVTOPCCH EQU AVTOPCOB+1 03035000 AVTOPCVT EQU AVTOPCOB 03036000 @NM00044 EQU AVTCKPQB+9 03037000 AVTCKPTS EQU AVTCKPQB+8 03038000 @NM00043 EQU AVTCKPEC+1 03039000 @NM00042 EQU AVTCKPCC 03040000 AVTCKPPO EQU AVTCKPCC 03041000 AVTCKPWA EQU AVTCKPCC 03042000 AVTCKPCH EQU AVTCKPTB+1 03043000 AVTCKPVT EQU AVTCKPTB 03044000 @NM00041 EQU IEDQAVTD+796 03045000 AVTBFRTB EQU IEDQAVTD+792 03046000 @NM00040 EQU IEDQAVTD+788 03047000 AVTSELCH EQU IEDQAVTD+785 03048000 AVTBFRTN EQU AVTBFRFG 03049000 AVTBFREB EQU IEDQAVTD+780 03050000 AVTTIMQ EQU IEDQAVTD+776 03051000 @NM00039 EQU IEDQAVTD+772 03052000 AVTIMQPS EQU IEDQAVTD+768 03053000 AVTINOUT EQU IEDQAVTD+766 03054000 AVTREFTM EQU IEDQAVTD+764 03055000 @NM00038 EQU IEDQAVTD+752 03056000 AVTDELYB EQU IEDQAVTD+748 03057000 AVTOCQPT EQU IEDQAVTD+744 03058000 AVTTSOPT EQU IEDQAVTD+740 03059000 AVTSUPPT EQU IEDQAVTD+736 03060000 AVTCBQCB EQU IEDQAVTD+732 03061000 AVTMSGS EQU IEDQAVTD+729 03062000 @NM00037 EQU AVTSYSER 03063000 @NM00036 EQU AVTSYSER 03064000 @NM00035 EQU AVTSYSER 03065000 @NM00034 EQU AVTSYSER 03066000 @NM00033 EQU AVTSYSER 03067000 @NM00032 EQU AVTSYSER 03068000 AVTCMAXN EQU AVTSYSER 03069000 AVTCMINN EQU AVTSYSER 03070000 AVT2260L EQU IEDQAVTD+724 03071000 AVTABEPL EQU AVTADBUF 03072000 AVTHFF EQU AVTCLRHI+2 03073000 @NM00031 EQU AVTCLRHI 03074000 AVTCCLNK EQU AVTCRELE+5 03075000 AVTCCPRI EQU AVTCRELE+4 03076000 AVTCCQCB EQU AVTCCELE+1 03077000 AVTCCKEY EQU AVTCCELE 03078000 AVTDELAD EQU IEDQAVTD+704 03079000 AVTDELEM EQU IEDQAVTD+700 03080000 AVTBSX EQU AVTCKLNK 03081000 AVTOPETR EQU AVTHG01 03082000 @NM00030 EQU AVTCKBYT 03083000 AVTCKONQ EQU AVTCKBYT 03084000 @NM00029 EQU AVTCKBYT 03085000 @NM00028 EQU AVTCKBYT 03086000 @NM00027 EQU AVTCKBYT 03087000 @NM00026 EQU AVTCKBYT 03088000 @NM00025 EQU AVTCKBYT 03089000 @NM00024 EQU AVTCKBYT 03090000 AVTOPERT EQU IEDQAVTD+690 03091000 AVTOPXCL EQU IEDQAVTD+688 03092000 AVTOPERL EQU IEDQAVTD+687 03093000 @NM00023 EQU IEDQAVTD+686 03094000 AVTCKTIM EQU IEDQAVTD+684 03095000 AVTCKELV EQU IEDQAVTD+682 03096000 AVTCPRCD EQU IEDQAVTD+681 03097000 AVTWARMN EQU AVTCKELF 03098000 AVTCRTLN EQU AVTCKELF 03099000 AVTCPIPN EQU AVTCKELF 03100000 AVTCCLCN EQU AVTCKELF 03101000 AVTCINCN EQU AVTCKELF 03102000 @NM00022 EQU AVTCKELF 03103000 AVTCMCPN EQU AVTCKELF 03104000 AVTNQBCK EQU AVTCKELF 03105000 AVTCKQAD EQU IEDQAVTD+677 03106000 AVTSCBSZ EQU IEDQAVTD+676 03107000 @NM00021 EQU IEDQAVTD+672 03108000 AVTCKELE EQU IEDQAVTD+668 03109000 @NM00020 EQU AVTCKPEL+8 03110000 AVTCKRLK EQU AVTCKPEL+5 03111000 AVTCKRPR EQU AVTCKPEL+4 03112000 AVTCKRMQ EQU AVTCKRMV+1 03113000 AVTCKRKY EQU AVTCKRMV 03114000 AVTHK EQU IEDQAVTD+648 03115000 AVTHI EQU IEDQAVTD+644 03116000 AVTIOT EQU IEDQAVTD+640 03117000 AVTNX EQU IEDQAVTD+636 03118000 AVTTONE EQU IEDQAVTD+632 03119000 AVTA3TL EQU IEDQAVTD+628 03120000 AVTDMECB EQU IEDQAVTD+624 03121000 AVTABEND EQU IEDQAVTD+618 03122000 AVTPLCBN EQU IEDQAVTD+616 03123000 @NM00019 EQU AVTSAVTP+1 03124000 @NM00018 EQU AVTSAVTF 03125000 AVTSNA EQU AVTSAVTF 03126000 AVTONSNA EQU AVTSAVTF 03127000 @NM00017 EQU IEDQAVTD+608 03128000 AVTCMBSS EQU IEDQAVTD+604 03129000 AVTRCV EQU IEDQAVTD+600 03130000 AVTSEND EQU IEDQAVTD+596 03131000 AVTCSCH EQU IEDQAVTD+592 03132000 AVTQ1 EQU IEDQAVTD+588 03133000 AVTE7 EQU IEDQAVTD+584 03134000 AVTHB EQU IEDQAVTD+580 03135000 AVTR1 EQU IEDQAVTD+576 03136000 AVTBZ EQU IEDQAVTD+572 03137000 AVTEZ EQU IEDQAVTD+568 03138000 AVTEC EQU IEDQAVTD+564 03139000 AVTEW EQU IEDQAVTD+560 03140000 AVTNDIAL EQU AVTSCOPT 03141000 AVTN2741 EQU AVTSCOPT 03142000 AVTCONCO EQU AVTSCOPT 03143000 AVTCONC EQU AVTSCOPT 03144000 AVTCMBUF EQU AVTSCOPT 03145000 AVTAPDMP EQU AVTSCOPT 03146000 @NM00016 EQU AVTSCOPT 03147000 AVTHA EQU AVTDISP 03148000 AVTEA EQU IEDQAVTD+548 03149000 AVTAX EQU IEDQAVTD+544 03150000 AVTA3 EQU IEDQAVTD+540 03151000 AVTGD EQU IEDQAVTD+536 03152000 AVTAL EQU IEDQAVTD+532 03153000 AVTOLTST EQU AVTHG02 03154000 AVTE8 EQU IEDQAVTD+524 03155000 AVTUI EQU IEDQAVTD+520 03156000 AVTCOMPT EQU IEDQAVTD+516 03157000 AVTCRSRF EQU IEDQAVTD+512 03158000 @NM00015 EQU IEDQAVTD+508 03159000 AVTKA02 EQU IEDQAVTD+504 03160000 AVTOPTPT EQU IEDQAVTD+500 03161000 AVTPCBPT EQU IEDQAVTD+496 03162000 @NM00014 EQU AVTECB1 03163000 AVTCOMP EQU AVTECB1 03164000 @NM00013 EQU AVTECB1 03165000 AVTOPECA EQU IEDQAVTD+488 03166000 AVTOLECA EQU IEDQAVTD+484 03167000 AVTCKECA EQU IEDQAVTD+480 03168000 AVTCWECA EQU IEDQAVTD+476 03169000 AVTCWTCB EQU IEDQAVTD+472 03170000 AVTOLTCB EQU IEDQAVTD+468 03171000 AVTOCTCB EQU IEDQAVTD+464 03172000 AVTCKTCB EQU IEDQAVTD+460 03173000 AVTAS EQU IEDQAVTD+456 03174000 AVTNOLBF EQU IEDQAVTD+454 03175000 AVTNCKPR EQU IEDQAVTD+453 03176000 AVTCIB EQU IEDQAVTD+452 03177000 AVTSPLPT EQU IEDQAVTD+448 03178000 AVTMVBFR EQU IEDQAVTD+444 03179000 AVTSBTA EQU IEDQAVTD+440 03180000 AVTRARTN EQU IEDQAVTD+436 03181000 AVTBSCAN EQU IEDQAVTD+432 03182000 AVTRDYA EQU IEDQAVTD+428 03183000 AVTDISTR EQU IEDQAVTD+420 03184000 AVTPARM3 EQU IEDQAVTD+416 03185000 @NM00012 EQU AVTPKF 03186000 @NM00011 EQU AVTPKF 03187000 @NM00010 EQU AVTPKF 03188000 AVTFTCHF EQU AVTPKF 03189000 @NM00009 EQU AVTPKF 03190000 @NM00008 EQU AVTPKF 03191000 @NM00007 EQU AVTPKF 03192000 @NM00006 EQU AVTPKF 03193000 AVTPARM EQU IEDQAVTD+408 03194000 AVTEXS2A EQU IEDQAVTD+402 03195000 AVTEXA2S EQU IEDQAVTD+396 03196000 AVTOCGET EQU IEDQAVTD+392 03197000 AVTCKAVT EQU @NM00004+1 03198000 @NM00005 EQU AVTCKFLG 03199000 AVTCKHLT EQU AVTCKFLG 03200000 AVTCKREQ EQU AVTCKFLG 03201000 AVTCKENV EQU AVTCKFLG 03202000 AVTCKNAC EQU AVTCKFLG 03203000 AVTCKTAC EQU AVTCKFLG 03204000 AVTBUENT EQU IEDQAVTD+386 03205000 @NM00003 EQU IEDQAVTD+385 03206000 AVTFULLT EQU AVTBUFSW 03207000 AVTUNCON EQU AVTBUFSW 03208000 @NM00002 EQU AVTBUFSW 03209000 AVTBUFTR EQU AVTREADD 03210000 AVTREADY EQU IEDQAVTD+376 03211000 AVTRACE EQU IEDQAVTD+372 03212000 AVTTCB EQU IEDQAVTD+368 03213000 AVTPASWD EQU IEDQAVTD+360 03214000 AVTCTLCH EQU IEDQAVTD+352 03215000 AVTDOUBL EQU IEDQAVTD+344 03216000 AVTDOUBX EQU IEDQAVTD+336 03217000 AVTDPARM EQU IEDQAVTD+332 03218000 AVTCSTCS EQU IEDQAVTD+328 03219000 AVTDLQ EQU AVTSAVEX+32 03220000 @NM00001 EQU AVTSAVEX 03221000 AVTSAVE4 EQU IEDQAVTD+216 03222000 AVTSAVE3 EQU IEDQAVTD+144 03223000 AVTSAVE2 EQU IEDQAVTD+72 03224000 AVTSAVE1 EQU IEDQAVTD 03225000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03226000 @RF00417 EQU @RC00381 03227000 @RC00507 EQU @RC00504 03228000 @RC00542 EQU EXIT 03229000 @RF00556 EQU EXIT 03230000 @RF00572 EQU @RC00569 03231000 @RC00519 EQU @RC00517 03232000 @RC00633 EQU @EL00004 03233000 @RF00670 EQU @EL00007 03234000 @ENDDATA EQU * 03235000 END IGCZ010D,(C'PLS1934',0701,78110) 03236000