TITLE 'IGCMI10D 3705 COMMON IPL/DUMP EXIT ROUTINE *00001000 ' 00002000 IGCMI10D CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 USING *,RBASE 00005000 LR RBASE,RBRANCH 00006000 * /* 00007000 IGCMI10D IEDHJN AFTERHJN,HJN IDENTIFICATION MACRO 00008000 * 0389 00009000 * /*****************************************************************/ 00010000 * /* */ 00011000 * /* ENTRY PROCESSING. */ 00012000 * /* */ 00013000 * /*****************************************************************/ 00014000 * 0390 00015000 * ROPCAVT=RPARM; /* SET UP OPCAVT BASE */ 00016000 LR ROPCAVT,RPARM 0390 00017000 * RFY 0391 00018000 * (RPARM, 0391 00019000 * RBRANCH) UNRSTD; 0391 00020000 * ROPCE=OPCCOPCE; /* SET ADDR OF CURRENT ELEMENT */ 00021000 L ROPCE,OPCCOPCE(,ROPCAVT) 0392 00022000 * RAVT=OPCAVTPT; /* SET AVT BASE */ 00023000 L RAVT,OPCAVTPT(,ROPCAVT) 0393 00024000 * RTRAIL=OCTRUNIT; /* TRAILER BASE */ 00025000 L RTRAIL,OCTRUNIT(,ROPCE) 0394 00026000 * RLCB=OCTRLCB; /* LCB BASE */ 00027000 L RLCB,OCTRLCB(,RTRAIL) 0395 00028000 * OCPARM=RMSG; /* SAVE MESSAGE NUMBER */ 00029000 STH RMSG,OCPARM(,ROPCE) 0396 00030000 * OCTRRTE=NONE; /* RESET ROUTING FLAG */ 00031000 MVI OCTRRTE(RTRAIL),X'00' 0397 00032000 * IF OCTRERI=ON THEN /* IPL ERROR @YM08390*/ 00033000 TM OCTRERI(RTRAIL),B'00000100' 0398 00034000 BNO @RF00398 0398 00035000 * DO; 0399 00036000 * 0399 00037000 */************************ERRORIN********************************* */ 00038000 * 0400 00039000 * /*************************************************************/ 00040000 * /* */ 00041000 * /* THIS SECTION OF CODE ENDS IPL PROCESSING IF AN ERROR WAS */ 00042000 * /* DETECTED IN ANY IPL MODULE */ 00043000 * /* */ 00044000 * /*************************************************************/ 00045000 * 0400 00046000 * CALL CLEANUP; /* CLEAN UP IPL USED AREAS AND 0400 00047000 * BLOCKS */ 00048000 BAL @14,CLEANUP 0400 00049000 * LCBIPLRQ=OFF; /* RESET IPL REQUEST */ 00050000 * LCBACTRQ=OFF; /* RESET ACT REQUEST */ 00051000 NI LCBIPLRQ(RLCB),B'11001111' 0402 00052000 * CALL FREEWA; /* FREE THE IPL/DUMP WORK AREA */ 00053000 BAL @14,FREEWA 0403 00054000 * RMSG=OCPARM; /* PUT ERROR MESSAGE NUMBER IN 0404 00055000 * REG 0 */ 00056000 LH RMSG,OCPARM(,ROPCE) 0404 00057000 * OCTR09=ON; /* EXIT TO IGC0910D */ 00058000 OI OCTR09(RTRAIL),B'00001000' 0405 00059000 */*************************END OF ERRORIN************************* */ 00060000 * 0406 00061000 * END; 0406 00062000 * ELSE /* OTHER INPUT */ 00063000 * DO; 0407 00064000 B @RC00398 0407 00065000 @RF00398 DS 0H 0408 00066000 * IF OCSWITCH=OCIPLC THEN /* NORMAL IPL COMPLETE */ 00067000 CLI OCSWITCH(ROPCE),X'11' 0408 00068000 BNE @RF00408 0408 00069000 * DO; 0409 00070000 * 0409 00071000 */*****************************FINISIPL*************************** */ 00072000 * 0410 00073000 * /*********************************************************/ 00074000 * /* */ 00075000 * /* THIS SECTION OF CODE DOES CLEANUP PROCESSING FOR */ 00076000 * /* SUCCESSFULLY COMPLETED IPL */ 00077000 * /* */ 00078000 * /*********************************************************/ 00079000 * 0410 00080000 * CALL CLEANUP; /* GO CLEAN UP COMMON */ 00081000 BAL @14,CLEANUP 0410 00082000 * CALL FREEWA; 0411 00083000 BAL @14,FREEWA 0411 00084000 * OCTRDVD->NCPIPLD=ON; /* TURN ON NCP IPLED FLAG */ 00085000 L @01,OCTRDVD(,RTRAIL) 0412 00086000 OI NCPIPLD(@01),B'00001000' 0412 00087000 * LCBIPLRQ=OFF; /* RESET IPL REQUEST @YM02930*/ 00088000 NI LCBIPLRQ(RLCB),B'11011111' 0413 00089000 * IF LCBACTRQ=ON THEN /* ACTIVATE REQUESTED */ 00090000 TM LCBACTRQ(RLCB),B'00010000' 0414 00091000 BNO @RF00414 0414 00092000 * DO; 0415 00093000 * 0415 00094000 */*******************************SETACT*************************** */ 00095000 * 0416 00096000 * /*****************************************************/ 00097000 * /* */ 00098000 * /* THIS SECTION OF CODE SETS UP TO ACTIVATE THE NCP */ 00099000 * /* */ 00100000 * /*****************************************************/ 00101000 * 0416 00102000 * OCWTG=IGCFA; /* ROUTE TO ACTIVATE AFTER 0416 00103000 * MESSAGE MODULE @YM02930*/ 00104000 MVC OCWTG(2,ROPCE),IGCFA 0416 00105000 * OCSWITCH=OCTOFA; /* REQUIRED BY ACTIVATE @YM02930*/ 00106000 MVI OCSWITCH(ROPCE),X'22' 0417 00107000 * CALL ROUTE07; 0418 00108000 BAL @14,ROUTE07 0418 00109000 * ROPCE=OPCCOPCE; /* ESTABLISH ADDRESSABILITY TO 0419 00110000 * BUILT OPCE @YM02930*/ 00111000 L ROPCE,OPCCOPCE(,ROPCAVT) 0419 00112000 * LCBACTRQ=OFF; /* RESET ACTIVATE REQUEST BIT IN 00113000 * PREPARATION OF GOING TO 0420 00114000 * ACTIVATE */ 00115000 NI LCBACTRQ(RLCB),B'11101111' 0420 00116000 * OCTR09=ON; /* SET EXIT TO IGC0910D @YM02930*/ 00117000 OI OCTR09(RTRAIL),B'00001000' 0421 00118000 */*****************************END OF SETACT********************** */ 00119000 * 0422 00120000 * END; 0422 00121000 * ELSE /* ACTIVATE NOT REQUESTED */ 00122000 * DO; 0423 00123000 B @RC00414 0423 00124000 @RF00414 DS 0H 0424 00125000 * OCWTG=IGC09; /* WHERE TO GO AFTER CHECKPOINT 00126000 * @YM02930*/ 00127000 MVC OCWTG(2,ROPCE),IGC09 0424 00128000 * OCTR06=ON; /* EXIT TO CHECKPOINT */ 00129000 OI OCTR06(RTRAIL),B'00000001' 0425 00130000 * END; 0426 00131000 * RMSG=194; /* IPL COMPLETED MESSAGE FOR 0427 00132000 * MESSAGE MODULE @YM02930*/ 00133000 @RC00414 LA @11,194 0427 00134000 LR RMSG,@11 0427 00135000 * OCPARM=194; /* SAME @YM02930*/ 00136000 STH @11,OCPARM(,ROPCE) 0428 00137000 * OCUNIT=INVTIC; /* INVALID TIC FOR OPCFREBF 0429 00138000 * @YM02930*/ 00139000 MVC OCUNIT(4,ROPCE),@CF02179 0429 00140000 */*****************************END OF FINISIPL******************** */ 00141000 * 0430 00142000 * END; 0430 00143000 * ELSE /* NORMAL DUMP COMPLETION */ 00144000 * DO; 0431 00145000 * 0431 00146000 B @RC00408 0431 00147000 @RF00408 DS 0H 0432 00148000 */******************************FINISDUMP************************* */ 00149000 * 0432 00150000 * /*********************************************************/ 00151000 * /* */ 00152000 * /* THIS SECTION OF CODE DOES CLEANUP PROCESSING AFTER */ 00153000 * /* DUMP PROCESSING HAS TERMINATED @YM08390*/ 00154000 * /* */ 00155000 * /*********************************************************/ 00156000 * 0432 00157000 * CALL FREEWA; /* FREE IPL WORK AREA */ 00158000 BAL @14,FREEWA 0432 00159000 * LCBDMPRQ=OFF; /* TURN DUMP REQUEST BIT OFF */ 00160000 NI LCBDMPRQ(RLCB),B'01111111' 0433 00161000 * IF LCBDACRQ=ON THEN /* IF DEACTIVATE REQUEST IS SET */ 00162000 TM LCBDACRQ(RLCB),B'01000000' 0434 00163000 BNO @RF00434 0434 00164000 * DO; 0435 00165000 * 0435 00166000 */****************************SETDEACT**************************** */ 00167000 * 0436 00168000 * /*****************************************************/ 00169000 * /* */ 00170000 * /* THIS SECTION OF CODE SETS UP TO EXIT TO IGCC110D */ 00171000 * /* (CLEANUP) PRIOR TO DEACTIVATING THE NCP */ 00172000 * /* */ 00173000 * /*****************************************************/ 00174000 * 0436 00175000 * RFY 0436 00176000 * RTRM RSTD; /* @YM08120*/ 00177000 * RTRM=OCTRTTE; /* GET NCP TTE ADDR @YM08120*/ 00178000 L RTRM,OCTRTTE(,RTRAIL) 0437 00179000 * TRMINOP=ON; /* SINCE DUMP HAS COMPLETED THE 00180000 * 3705 CANNOT COMMUNICATE SO 0438 00181000 * INOP IS SET TO ENABLE 0438 00182000 * DEACTIVATE TO COMPLETE 0438 00183000 * @YM08120*/ 00184000 LR @11,RTRM 0438 00185000 AL @11,@CF02288 0438 00186000 OI TRMINOP(@11),B'10000000' 0438 00187000 * RFY 0439 00188000 * RTRM UNRSTD; /* @YM08120*/ 00189000 * OCWTG=IGCC1; /* THIS OPCE TO CLEANUP @YM02930*/ 00190000 MVC OCWTG(2,ROPCE),IGCC1 0440 00191000 * CALL ROUTE07; 0441 00192000 BAL @14,ROUTE07 0441 00193000 * ROPCE=OPCCOPCE; /* BUILT OPCE ADDRESSABILITY 0442 00194000 * @YM02930*/ 00195000 L ROPCE,OPCCOPCE(,ROPCAVT) 0442 00196000 */* ****************************END OF SETDEACT******************* */ 00197000 * 0443 00198000 * END; 0443 00199000 * IF OCTRDVD->NCPIPLD=ON THEN/* IF NCP WAS IPLED BEFORE 0444 00200000 * DUMP @YM02930*/ 00201000 @RF00434 L @11,OCTRDVD(,RTRAIL) 0444 00202000 TM NCPIPLD(@11),B'00001000' 0444 00203000 BNO @RF00444 0444 00204000 * DO; /* @YM02930*/ 00205000 * OCTRDVD->NCPIPLD=OFF;/* RESET IPLED FLAG @YM02930*/ 00206000 NI NCPIPLD(@11),B'11110111' 0446 00207000 * OCTR06=ON; /* SCHEDULE EXIT TO IGC0610D 0447 00208000 * @YM02930*/ 00209000 OI OCTR06(RTRAIL),B'00000001' 0447 00210000 * OCWTG=IGC09; /* TO MESSAGE MODULES AFTER 0448 00211000 * CHECKPOINT @YM02930*/ 00212000 MVC OCWTG(2,ROPCE),IGC09 0448 00213000 * END; /* @YM02930*/ 00214000 * ELSE /* NCP WAS NOT IPLED BEFORE DUMP 00215000 * @YM02930*/ 00216000 * DO; /* @YM02930*/ 00217000 B @RC00444 0450 00218000 @RF00444 DS 0H 0451 00219000 * OCTR09=ON; /* SCHEDULE EXIT TO IGC0910D 0451 00220000 * @YM02930*/ 00221000 OI OCTR09(RTRAIL),B'00001000' 0451 00222000 * OCWTG=''B; /* NO NEXT DESTINATION @YM02930*/ 00223000 XC OCWTG(2,ROPCE),OCWTG(ROPCE) 0452 00224000 * END; /* @YM02930*/ 00225000 * RMSG=OCPARM; /* GET MESSAGE NUMBER SET BY DUMP 00226000 * MODULES @YM08390*/ 00227000 @RC00444 LH RMSG,OCPARM(,ROPCE) 0454 00228000 * OCUNIT=INVTIC; /* INVALID TIC FOR OPCFREBF 0455 00229000 * @YM02930*/ 00230000 MVC OCUNIT(4,ROPCE),@CF02179 0455 00231000 */********************************END OF FINISDUM***************** */ 00232000 * 0456 00233000 * END; 0456 00234000 * END; 0457 00235000 * 0457 00236000 @RC00408 DS 0H 0458 00237000 * /*****************************************************************/ 00238000 * /* */ 00239000 * /* RESTORE LCBCPA */ 00240000 * /* */ 00241000 * /*****************************************************************/ 00242000 * 0458 00243000 * LCBCPA(1:LENGTH(INITCCW1))=INITCCW1;/* SET UP LCBCPA FOR INITIAL 00244000 * CHANNEL PROGRAMS @ZM46810*/ 00245000 @RC00398 MVC LCBCPA(32,RLCB),INITCCW1 0458 00246000 * LCBCCW6(1:LENGTH(INITCCW2))=INITCCW2;/* REST OF CCWS @ZM46810*/ 00247000 MVC LCBCCW6(16,RLCB),INITCCW2 0459 00248000 * LCBIOSB=LCBIOSBS; /* RESTORE IOSB POINTER @ZM46833*/ 00249000 MVC LCBIOSB(3,RLCB),LCBIOSBS(RLCB) 0460 00250000 * WRTADDR=ADDR(WRTADDR)-1; /* DUMMY DATA ADDRESS @YM03703*/ 00251000 LA @11,WRTADDR(,RLCB) 0461 00252000 BCTR @11,0 0461 00253000 STCM @11,7,WRTADDR(RLCB) 0461 00254000 * RDADDR=ADDR(RDADDR)-1; /* DUMMY DATA ADDRESS @YM03703*/ 00255000 LA @11,RDADDR(,RLCB) 0462 00256000 BCTR @11,0 0462 00257000 STCM @11,7,RDADDR(RLCB) 0462 00258000 * NOP1ADDR=ADDR(NOP1ADDR)-1; /* DUMMY DATA ADDRESS @YM03703*/ 00259000 LA @11,NOP1ADDR(,RLCB) 0463 00260000 BCTR @11,0 0463 00261000 STCM @11,7,NOP1ADDR(RLCB) 0463 00262000 * NOP2ADDR=ADDR(NOP2ADDR)-1; /* DUMMY DATA ADDRESS @YM03703*/ 00263000 LA @11,NOP2ADDR(,RLCB) 0464 00264000 BCTR @11,0 0464 00265000 STCM @11,7,NOP2ADDR(RLCB) 0464 00266000 * LCBBFRAV=OFF; /* INDICATE NO BUFFERS AVAILABLE */ 00267000 * 0465 00268000 NI LCBBFRAV(RLCB),B'11111101' 0465 00269000 * /*****************************************************************/ 00270000 * /* */ 00271000 * /* SCHEDULE EXIT */ 00272000 * /* */ 00273000 * /*****************************************************************/ 00274000 * 0466 00275000 */*****************************SCHEDXCT*************************** */ 00276000 * 0466 00277000 * /*****************************************************************/ 00278000 * /* */ 00279000 * /* THIS SECTION OF CODE SCHEDULES THE NEXT MODULE TO BE XCTLED TO*/ 00280000 * /* USING ROUTING BITS IN THE TRAILER */ 00281000 * /* */ 00282000 * /*****************************************************************/ 00283000 * 0466 00284000 * IF OCTR09=ON THEN /* IF ROUTE TO MESSAGE MODULES -- 00285000 * ERROR OR IPL/ACT ONLY @YM02930*/ 00286000 TM OCTR09(RTRAIL),B'00001000' 0466 00287000 BNO @RF00466 0466 00288000 * OPCMODID=IGC09; /* XCTL TO IGC0910D @YM02930*/ 00289000 MVC OPCMODID(2,ROPCAVT),IGC09 0467 00290000 * ELSE /* MUST BE ROUTE TO CHECKPOINT 0468 00291000 * @YM02930*/ 00292000 * DO; /* @YM02930*/ 00293000 B @RC00466 0468 00294000 @RF00466 DS 0H 0469 00295000 * OPCMODID=IGC06; /* XCTL TO IGC0610D @YM02930*/ 00296000 MVC OPCMODID(2,ROPCAVT),IGC06 0469 00297000 * OCSWITCH=OCIPLC; /* REQUIRED BY CHECKPOINT 0470 00298000 * @YM02930*/ 00299000 MVI OCSWITCH(ROPCE),X'11' 0470 00300000 * OCRESP=OFF; /* REQUIRED BY CHECKPOINT 0471 00301000 * @YM02930*/ 00302000 NI OCRESP(ROPCE),B'11111110' 0471 00303000 * END; /* @YM02930*/ 00304000 * IF OCTOTE=ON THEN /* TOTE REQUEST */ 00305000 @RC00466 TM OCTOTE(ROPCE),B'01000000' 0473 00306000 BNO @RF00473 0473 00307000 * DO; 0474 00308000 * IF OCTRDVD->NCPIPLD=ON THEN /* GOOD IPL */ 00309000 L @01,OCTRDVD(,RTRAIL) 0475 00310000 TM NCPIPLD(@01),B'00001000' 0475 00311000 BNO @RF00475 0475 00312000 * RMSG=NONE; /* GOOD RETURN CODE */ 00313000 SLR RMSG,RMSG 0476 00314000 * ELSE 0477 00315000 * DO; /* @YM02930*/ 00316000 B @RC00475 0477 00317000 @RF00475 DS 0H 0478 00318000 * RMSG=RC4; /* BAD RETURN CODE */ 00319000 LA RMSG,4 0478 00320000 * END; /* @YM02930*/ 00321000 * OPCMODID=IGC07; /* MESSAGE MODULE FOR TOTE 0480 00322000 * @XM05724*/ 00323000 @RC00475 MVC OPCMODID(2,ROPCAVT),IGC07 0480 00324000 * END; 0481 00325000 * RFY 0482 00326000 * (REG1, 0482 00327000 * RSAV) RSTD; 0482 00328000 @RF00473 DS 0H 0483 00329000 * REG1=OCTRUNIT; /* ADDR OF TRAILER(UNIT TO FREE) */ 00330000 L REG1,OCTRUNIT(,ROPCE) 0483 00331000 * RSAV=ADDR(OPCSAVE); /* SAVE AREA */ 00332000 LA RSAV,OPCSAVE(,ROPCAVT) 0484 00333000 * RFY 0485 00334000 * IEDOCTR BASED(REG1); /* RESPECIFY TRAILER BASE 0485 00335000 * @YM02927*/ 00336000 * OCTRLCB=OCTRLCB|ENDCHN; /* INDICATE LAST UNIT TO FREE 0486 00337000 * @YM02927*/ 00338000 L @11,OCTRLCB(,REG1) 0486 00339000 O @11,@CF00066 0486 00340000 ST @11,OCTRLCB(,REG1) 0486 00341000 * RFY 0487 00342000 * IEDOCTR BASED(RTRAIL); /* RESET TRAILER BASE @YM02927*/ 00343000 * CALL FREEBUFF; 0488 00344000 L @15,OPCFREBF(,ROPCAVT) 0488 00345000 BALR @14,@15 0488 00346000 * OCTRUNIT=NONE; /* ELIMINATE TRAILER POINTER */ 00347000 SLR @11,@11 0489 00348000 ST @11,OCTRUNIT(,ROPCE) 0489 00349000 * RFY 0490 00350000 * (REG1, 0490 00351000 * RSAV) UNRSTD; 0490 00352000 * 0490 00353000 */**************************END OF SCHEDXCT*********************** */ 00354000 * 0491 00355000 * /*****************************************************************/ 00356000 * /* */ 00357000 * /* EXIT CODE */ 00358000 * /* */ 00359000 * /*****************************************************************/ 00360000 * 0491 00361000 * RFY 0491 00362000 * RPARM RSTD; 0491 00363000 * RPARM=ROPCAVT; 0492 00364000 LR RPARM,ROPCAVT 0492 00365000 * GEN EXIT REFS(ROPCAVT,OPCXCTL); 0493 00366000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00367000 * RFY 0494 00368000 * RPARM UNRSTD; 0494 00369000 * 0494 00370000 */*******************************CLEANUP************************** */ 00371000 * 0495 00372000 * /*****************************************************************/ 00373000 * /* */ 00374000 * /* THIS SUBROUTINE CLOSES IPL DCBS AND DELETES PHASE 1 AND 2 */ 00375000 * /* ROUTINES */ 00376000 * /* */ 00377000 * /*****************************************************************/ 00378000 * 0495 00379000 *CLEANUP: 0495 00380000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0495 00381000 @EL00001 DS 0H 0495 00382000 @EF00001 DS 0H 0495 00383000 @ER00001 BR @14 0495 00384000 CLEANUP DS 0H 0496 00385000 * RFY 0496 00386000 * (REG1, 0496 00387000 * RRETURN) RSTD; 0496 00388000 * OCTRSAVE=RRETURN; /* SAVE RETURN ADDRESS */ 00389000 ST RRETURN,OCTRSAVE(,RTRAIL) 0497 00390000 * FSDDCB=OPCIPLAD; /* LOAD FIRST DCB ADDR INTO 0498 00391000 * WORKAREA */ 00392000 L @15,OCIPLWA(,ROPCE) 0498 00393000 L @11,OPCIPLAD(,ROPCAVT) 0498 00394000 ST @11,FSDDCB(,@15) 0498 00395000 * SNDDCB=OPCIPLAD+DCBOFF; /* LOAD SECOND DCB ADDR INTO 0499 00396000 * WORKAREA */ 00397000 AL @11,@CF02167 0499 00398000 STCM @11,7,SNDDCB(@15) 0499 00399000 * DCBIND=LAST; /* INDICATE LAST DCB */ 00400000 IC @11,LAST 0500 00401000 STC @11,DCBIND(,@15) 0500 00402000 * REG1=ADDR(FSDDCB); /* DCB LIST ADDR */ 00403000 LA REG1,FSDDCB(,@15) 0501 00404000 * OPCIPLCT=OPCIPLCT-1; /* DECREMENT COUNT OF 3705'S 0502 00405000 * BEING IPLED @YM08447*/ 00406000 SLR @15,@15 0502 00407000 IC @15,OPCIPLCT(,ROPCAVT) 0502 00408000 BCTR @15,0 0502 00409000 STC @15,OPCIPLCT(,ROPCAVT) 0502 00410000 * IF OPCIPLCT=0 THEN /* WHEN THE COUNT IS ZERO, CLOSE 00411000 * THE IPL DATA SET @YM08447*/ 00412000 CLI OPCIPLCT(ROPCAVT),0 0503 00413000 BNE @RF00503 0503 00414000 * DO; /* @YM08447*/ 00415000 * GEN REFS(REG1) EXIT NOFLOWS SEQFLOW; 0505 00416000 CLOSE MF=(E,(1)) 00417000 * END; /* @YM08447*/ 00418000 * 0506 00419000 * /*****************************************************************/ 00420000 * /* */ 00421000 * /* DELETE PHASE 1 AND 2 ROUTINES */ 00422000 * /* */ 00423000 * /*****************************************************************/ 00424000 * 0507 00425000 * REG1=ADDR(PHASE1); 0507 00426000 @RF00503 L REG1,OCIPLWA(,ROPCE) 0507 00427000 LA REG1,PHASE1(,REG1) 0507 00428000 * GEN REFS(REG1) EXIT NOFLOWS SEQFLOW; 0508 00429000 DELETE EPLOC=(REG1) 00430000 * REG1=ADDR(PHASE2); 0509 00431000 L REG1,OCIPLWA(,ROPCE) 0509 00432000 LA REG1,PHASE2(,REG1) 0509 00433000 * GEN REFS(REG1) EXIT NOFLOWS SEQFLOW; 0510 00434000 DELETE EPLOC=(REG1) 00435000 * RFY 0511 00436000 * REG1 UNRSTD; 0511 00437000 * LCBIPLRQ=OFF; /* RESET IPL REQUEST BIT */ 00438000 NI LCBIPLRQ(RLCB),B'11011111' 0512 00439000 * LCBQNXMN=0; /* RESET IEDQNX FLAGS @YM09001*/ 00440000 MVI LCBQNXMN(RLCB),X'00' 0513 00441000 * RRETURN=OCTRSAVE; /* RESTORE RETURN ADDRESS */ 00442000 L RRETURN,OCTRSAVE(,RTRAIL) 0514 00443000 * RFY 0515 00444000 * RRETURN UNRSTD; 0515 00445000 * END CLEANUP; 0516 00446000 * 0516 00447000 @EL00002 DS 0H 0516 00448000 @EF00002 DS 0H 0516 00449000 @ER00002 BR @14 0516 00450000 */***************************END OF CLEANUP*********************** */ 00451000 */***************************ROUTE07****************************** */ 00452000 * 0517 00453000 *ROUTE07: 0517 00454000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0517 00455000 * 0517 00456000 ROUTE07 DS 0H 0518 00457000 * /*****************************************************************/ 00458000 * /* */ 00459000 * /* THIS SECTION OF CODE GETS A BUFFER UNIT AND BUILDS AN OPCE TO */ 00460000 * /* USE TO OUTPUT A MESSAGE THRU IGC0710D */ 00461000 * /* */ 00462000 * /*****************************************************************/ 00463000 * 0518 00464000 * RFY 0518 00465000 * (REG1, 0518 00466000 * RSAV, 0518 00467000 * RRETURN) RSTD; 0518 00468000 * 0518 00469000 * /*****************************************************************/ 00470000 * /* */ 00471000 * /* GET A BUFFER UNIT */ 00472000 * /* */ 00473000 * /*****************************************************************/ 00474000 * 0519 00475000 * OCTRSAVE=RRETURN; /* SAVE RETURN ADDR */ 00476000 ST RRETURN,OCTRSAVE(,RTRAIL) 0519 00477000 * REG1=UNITS; /* GET ONE UNIT */ 00478000 LA REG1,1 0520 00479000 * RSAV=ADDR(OPCSAVE); 0521 00480000 LA RSAV,OPCSAVE(,ROPCAVT) 0521 00481000 * CALL ALLOCBUF; /* GO GET ONE UNIT */ 00482000 L @15,OPCGETBF(,ROPCAVT) 0522 00483000 BALR @14,@15 0522 00484000 * UNITCLR=''B; /* CLEAR FIRST 12 BYTES OF NEW 0523 00485000 * UNIT */ 00486000 * 0523 00487000 XC UNITCLR(12,REG1),UNITCLR(REG1) 0523 00488000 * /*****************************************************************/ 00489000 * /* */ 00490000 * /* INITIALIZE THE BUFFER UNIT AS AN OPCE */ 00491000 * /* */ 00492000 * /*****************************************************************/ 00493000 * 0524 00494000 * REG1->OCOPTCDE=OCMODIFY; 0524 00495000 MVI OCOPTCDE(REG1),X'44' 0524 00496000 * REG1->OCWTG=''B; /* HEX 0 */ 00497000 XC OCWTG(2,REG1),OCWTG(REG1) 0525 00498000 * REG1->OCTRMTBL=LCBTTCIN; 0526 00499000 LH @15,LCBTTCIN(,RLCB) 0526 00500000 N @15,@CF02293 0526 00501000 STH @15,OCTRMTBL(,REG1) 0526 00502000 * REG1->OCELEM=OPCCOPCE; /* ATTACH CURRENT OPCE */ 00503000 L @15,OPCCOPCE(,ROPCAVT) 0527 00504000 ST @15,OCELEM(,REG1) 0527 00505000 * REG1->OCATTACH=ON; /* SET ATTACHED FLAG */ 00506000 OI OCATTACH(REG1),B'00000010' 0528 00507000 * REG1->OCBACKUP=OCBACKUP; /* SET NCP NAME @YM03721*/ 00508000 MVC OCBACKUP(8,REG1),OCBACKUP(ROPCE) 0529 00509000 * REG1->OCPARM=OCPARM; /* MOVE MESSAGE NUMBER TO NEW 0530 00510000 * OPCE @TM08428*/ 00511000 LH @15,OCPARM(,ROPCE) 0530 00512000 STH @15,OCPARM(,REG1) 0530 00513000 * OCPARM=''B; /* ZERO MESSAGE NUMBER IN 0531 00514000 * ATTACHED OPCE @YM08428*/ 00515000 SLR @15,@15 0531 00516000 STH @15,OCPARM(,ROPCE) 0531 00517000 * REG1->OCTRUNIT=OCTRUNIT; /* MOVE TLR TO BUILT OPCE 0532 00518000 * @YM04613*/ 00519000 L @15,OCTRUNIT(,ROPCE) 0532 00520000 ST @15,OCTRUNIT(,REG1) 0532 00521000 * OCTRUNIT=NONE; /* DELETE TRLR FROM ORIG OPCE 0533 00522000 * @YM04613*/ 00523000 SLR @15,@15 0533 00524000 ST @15,OCTRUNIT(,ROPCE) 0533 00525000 * IF AVTOPCON=NONE THEN /* PRI OP CONTROL STATION IS 0534 00526000 * SYSCON */ 00527000 CH @15,AVTOPCON(,RAVT) 0534 00528000 BNE @RF00534 0534 00529000 * REG1->OCCONSOL=ON; 0535 00530000 OI OCCONSOL(REG1),B'10000000' 0535 00531000 * ELSE /* PRI OP CONTROL STATION IS NOT 00532000 * SYSCON */ 00533000 * REG1->OCDEST=AVTOPCIN; /* INDEX OF PRIMARY OP STATION */ 00534000 B @RC00534 0536 00535000 @RF00534 LH @15,AVTOPCIN(,RAVT) 0536 00536000 N @15,@CF02293 0536 00537000 STH @15,OCDEST(,REG1) 0536 00538000 * OPCCOPCE=REG1; /* MAKE BUILT OPCE CURRENT 0537 00539000 * ELEMENT */ 00540000 @RC00534 ST REG1,OPCCOPCE(,ROPCAVT) 0537 00541000 * RRETURN=OCTRSAVE; /* RESTORE RETURN ADDR */ 00542000 L RRETURN,OCTRSAVE(,RTRAIL) 0538 00543000 * RFY 0539 00544000 * (REG1, 0539 00545000 * RSAV, 0539 00546000 * RRETURN) UNRSTD; 0539 00547000 * END ROUTE07; 0540 00548000 * 0540 00549000 @EL00003 DS 0H 0540 00550000 @EF00003 DS 0H 0540 00551000 @ER00003 BR @14 0540 00552000 */*******************************END OF ROUTE07******************* */ 00553000 */*****************************FREEWA***************************** */ 00554000 * 0541 00555000 * /*****************************************************************/ 00556000 * /* */ 00557000 * /* THIS SUBROUTINE FREES THE IPL/DUMP WORKAREA AND TURNS OFF THE */ 00558000 * /* IN PROGRESS BITS */ 00559000 * /* */ 00560000 * /*****************************************************************/ 00561000 * 0541 00562000 *FREEWA: 0541 00563000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0541 00564000 FREEWA DS 0H 0542 00565000 * RFY 0542 00566000 * RRETURN RSTD; 0542 00567000 * OCTRSAVE=RRETURN; /* SAVE RETURN ADDRESS */ 00568000 ST RRETURN,OCTRSAVE(,RTRAIL) 0543 00569000 * IF OCIPLWA^=NONE THEN /* THERE IS A WORK AREA TO FREE */ 00570000 L @15,OCIPLWA(,ROPCE) 0544 00571000 LTR @15,@15 0544 00572000 BZ @RF00544 0544 00573000 * DO; 0545 00574000 * 0545 00575000 * /*************************************************************/ 00576000 * /* */ 00577000 * /* FREE THE WORKAREA */ 00578000 * /* */ 00579000 * /*************************************************************/ 00580000 * 0546 00581000 * RFY 0546 00582000 * (REG7, 0546 00583000 * REG1, 0546 00584000 * REG5) RSTD; 0546 00585000 * REG7=ADDR(BLKADDR); /* ADR OF FIRST BLOCK ADDRESS */ 00586000 LA REG7,BLKADDR(,@15) 0547 00587000 * REG1=BLKADDR; /* FIRST BLOCK ADDR */ 00588000 L REG1,BLKADDR(,@15) 0548 00589000 * DO WHILE REG1^=NONE; /* FREE ALL BLOCKS */ 00590000 B @DE00549 0549 00591000 @DL00549 DS 0H 0550 00592000 * RFY 0550 00593000 * ADDRBLK BASED(REG7); 0550 00594000 * REG7=REG7+NXTBLK; /* ADDR OF NEXT BLOCK ADDR */ 00595000 AL REG7,@CF02165 0551 00596000 * REG5=ADDRBLK; /* NEXT BLOCK ADDR */ 00597000 L REG5,ADDRBLK(,REG7) 0552 00598000 * GEN REFS(REG1) EXIT NOFLOWS SEQFLOW; 0553 00599000 FREEMAIN R,LV=64,A=(1),SP=250 00600000 * REG1=REG5; 0554 00601000 LR REG1,REG5 0554 00602000 * END; 0555 00603000 @DE00549 LTR REG1,REG1 0555 00604000 BNZ @DL00549 0555 00605000 * RFY 0556 00606000 * REG5 UNRSTD; 0556 00607000 * REG1=WRKSIZE; /* LENGTH OF WORKAREA */ 00608000 LA REG1,2048 0557 00609000 * REG7=OCIPLWA; /* ADDRESS OF WORKAREA */ 00610000 L REG7,OCIPLWA(,ROPCE) 0558 00611000 * GEN REFS(REG1) EXIT NOFLOWS SEQFLOW; 0559 00612000 FREEMAIN R,LV=(1),A=(7),SP=250 00613000 * OCIPLWA=NONE; /* CLEAR WORKAREA ADDRESS 0560 00614000 * @YM03717*/ 00615000 SLR @15,@15 0560 00616000 ST @15,OCIPLWA(,ROPCE) 0560 00617000 * RFY 0561 00618000 * (REG7, 0561 00619000 * REG1) UNRSTD; 0561 00620000 * END; 0562 00621000 * 0562 00622000 * /*****************************************************************/ 00623000 * /* */ 00624000 * /* TURN OFF THE IN PROGRESS BITS USING COMPETING RESOURCES */ 00625000 * /* ROUTINE */ 00626000 * /* */ 00627000 * /*****************************************************************/ 00628000 * 0563 00629000 * RFY 0563 00630000 * (REG1, 0563 00631000 * RSAV, 0563 00632000 * REG0, 0563 00633000 * RTRM) RSTD; 0563 00634000 @RF00544 DS 0H 0564 00635000 * REG0=NONE; /* TO SIGNAL RESET INPROGRESS 0564 00636000 * BITS */ 00637000 SLR REG0,REG0 0564 00638000 * RTRM=OCTRTTE; /* TTE ADDRESSABILITY */ 00639000 L RTRM,OCTRTTE(,RTRAIL) 0565 00640000 * REG1=ROPCE; /* OPCE ADDRESS */ 00641000 LR REG1,ROPCE 0566 00642000 * RSAV=ADDR(OPCSAVE); /* SAVE AREA */ 00643000 LA RSAV,OPCSAVE(,ROPCAVT) 0567 00644000 * CALL PROGRTNE; 0568 00645000 L @15,OPCPGCK(,ROPCAVT) 0568 00646000 BALR @14,@15 0568 00647000 * RFY 0569 00648000 * (REG1, 0569 00649000 * REG0, 0569 00650000 * RSAV) UNRSTD; 0569 00651000 * TRMIPLDM=OFF; /* TURN OFF IPL/DUMP IN PROGRESS */ 00652000 LR @05,RTRM 0570 00653000 AL @05,@CF02299 0570 00654000 LA @09,TRMIPLDM-1(,@05) 0570 00655000 LR @07,@09 0570 00656000 LA @15,3 0570 00657000 NR @07,@15 0570 00658000 LCR @07,@07 0570 00659000 ALR @09,@07 0570 00660000 L @15,0(,@09) 0570 00661000 @GL00001 LR @11,@15 0570 00662000 N @11,@CB02295+3(@07) 0570 00663000 CS @15,@11,0(@09) 0570 00664000 BNE @GL00001 0570 00665000 * RRETURN=OCTRSAVE; /* RESTORE RETURN ADDRESS */ 00666000 L RRETURN,OCTRSAVE(,RTRAIL) 0571 00667000 * RFY 0572 00668000 * (RRETURN, 0572 00669000 * RTRM) UNRSTD; 0572 00670000 * END FREEWA; 0573 00671000 * 0573 00672000 @EL00004 DS 0H 0573 00673000 @EF00004 DS 0H 0573 00674000 @ER00004 BR @14 0573 00675000 */**************************END OF FREEWA************************* */ 00676000 * 0574 00677000 * END IGCMI10D 0574 00678000 * 0574 00679000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00680000 */*%INCLUDE SYSLIB (TAVTD ) */ 00681000 */*%INCLUDE SYSLIB (TCCWD ) */ 00682000 */*%INCLUDE SYSLIB (TCOMD ) */ 00683000 */*%INCLUDE SYSLIB (TCOMIPLD) */ 00684000 */*%INCLUDE SYSLIB (TLCBD ) */ 00685000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00686000 */*%INCLUDE SYSLIB (TOPCED ) */ 00687000 */*%INCLUDE SYSLIB (TOPRED ) */ 00688000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00689000 */*%INCLUDE SYSLIB (TOCTRD ) */ 00690000 */*%INCLUDE SYSLIB (TTRMD ) */ 00691000 */*%INCLUDE SYSLIB (TNCPID ) */ 00692000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00693000 * 0574 00694000 * ; 0574 00695000 @DATA DS 0H 00696000 DS 0F 00697000 DS 0F 00698000 @CF00066 DC F'3' 00699000 @CF02165 DC F'60' 00700000 @CF02167 DC F'88' 00701000 @CF02288 DC F'-14' 00702000 @CF02299 DC F'-13' 00703000 @CF02179 DC XL4'08000002' 00704000 @CF02293 DC XL4'0000FFFF' 00705000 DS 0D 00706000 @CB02295 DC B'111111111111111111111111011111111111111111111111111111C00707000 11' 00708000 LAST DC X'80' 00709000 IGCC1 DC CL2'C1' 00710000 IGCFA DC CL2'FA' 00711000 IGC09 DC CL2'09' 00712000 IGC07 DC CL2'07' 00713000 IGC06 DC CL2'06' 00714000 DS CL2 00715000 INITCCW1 DS CL32 00716000 ORG INITCCW1 00717000 WRTSTART DS CL8 00718000 ORG WRTSTART 00719000 @NM00207 DC X'31' 00720000 @NM00208 DC AL3(0) 00721000 @NM00209 DC X'60' 00722000 @NM00210 DC AL1(0) 00723000 @NM00211 DC AL2(1) 00724000 ORG INITCCW1+8 00725000 TIC1 DS CL8 00726000 ORG TIC1 00727000 @NM00212 DC X'08' 00728000 @NM00213 DC XL7'0' 00729000 ORG INITCCW1+16 00730000 RDSTART DS CL8 00731000 ORG RDSTART 00732000 @NM00214 DC X'32' 00733000 @NM00215 DC AL3(0) 00734000 @NM00216 DC X'60' 00735000 @NM00217 DC AL1(0) 00736000 @NM00218 DC AL2(1) 00737000 ORG INITCCW1+24 00738000 TIC2 DS CL8 00739000 ORG TIC2 00740000 @NM00219 DC X'08' 00741000 @NM00220 DC XL7'0' 00742000 ORG INITCCW1+32 00743000 INITCCW2 DS CL16 00744000 ORG INITCCW2 00745000 NOP1 DS CL8 00746000 ORG NOP1 00747000 @NM00221 DC X'03' 00748000 @NM00222 DC AL3(0) 00749000 @NM00223 DC AL2(0) 00750000 @NM00224 DC AL2(1) 00751000 ORG INITCCW2+8 00752000 NOP2 DS CL8 00753000 ORG NOP2 00754000 @NM00225 DC X'03' 00755000 @NM00226 DC AL3(0) 00756000 @NM00227 DC AL2(0) 00757000 @NM00228 DC AL2(1) 00758000 ORG INITCCW2+16 00759000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00760000 @01 EQU 01 00761000 @02 EQU 02 00762000 @03 EQU 03 00763000 @04 EQU 04 00764000 @05 EQU 05 00765000 @06 EQU 06 00766000 @07 EQU 07 00767000 @08 EQU 08 00768000 @09 EQU 09 00769000 @10 EQU 10 00770000 @11 EQU 11 00771000 @12 EQU 12 00772000 @13 EQU 13 00773000 @14 EQU 14 00774000 @15 EQU 15 00775000 IEDQAPTR EQU @04 00776000 IEDQLPTR EQU @10 00777000 LCBXPTR EQU @05 00778000 ROPCAVT EQU @02 00779000 ROPCE EQU @03 00780000 IEDQTPTR EQU @08 00781000 UCBPTR EQU @05 00782000 RTRM EQU @08 00783000 RAVT EQU @04 00784000 RLCB EQU @10 00785000 REG1 EQU @01 00786000 RCCW EQU @05 00787000 RTRAIL EQU @06 00788000 RMSG EQU @00 00789000 REG0 EQU @00 00790000 RPARM EQU @01 00791000 REG5 EQU @05 00792000 REG7 EQU @07 00793000 RBASE EQU @12 00794000 RSAV EQU @13 00795000 RRETURN EQU @14 00796000 RBRANCH EQU @15 00797000 IEDOPREP EQU @01 00798000 IEDQDPTR EQU @01 00799000 REG9 EQU @09 00800000 UCBDCPTR EQU @05 00801000 IEDQAVTD EQU 0 00802000 AVTSAVEX EQU IEDQAVTD+288 00803000 @NM00003 EQU IEDQAVTD+388 00804000 AVTCKFLG EQU @NM00003 00805000 AVTBASE EQU IEDQAVTD+412 00806000 AVTPKF EQU AVTBASE 00807000 AVTOSECB EQU IEDQAVTD+492 00808000 AVTECB1 EQU AVTOSECB 00809000 AVTHG02 EQU IEDQAVTD+528 00810000 AVTDISP EQU IEDQAVTD+552 00811000 AVTHD EQU IEDQAVTD+556 00812000 AVTSCOPT EQU AVTHD 00813000 AVTSAVTP EQU IEDQAVTD+612 00814000 AVTSAVTF EQU AVTSAVTP 00815000 AVTCKPEL EQU IEDQAVTD+652 00816000 AVTCKRMV EQU AVTCKPEL 00817000 AVTCKELF EQU IEDQAVTD+680 00818000 AVTCKBYT EQU IEDQAVTD+691 00819000 AVTHG01 EQU IEDQAVTD+692 00820000 AVTCKLNK EQU IEDQAVTD+696 00821000 AVTCRELE EQU IEDQAVTD+708 00822000 AVTCCELE EQU AVTCRELE 00823000 AVTCLRHI EQU IEDQAVTD+716 00824000 AVTADBUF EQU IEDQAVTD+720 00825000 AVTSYSER EQU IEDQAVTD+728 00826000 AVTCKPQB EQU IEDQAVTD+804 00827000 AVTCKPTB EQU AVTCKPQB 00828000 AVTCKPEC EQU AVTCKPQB+4 00829000 AVTCKPCC EQU AVTCKPEC 00830000 AVTOPCQB EQU IEDQAVTD+816 00831000 AVTOPCOB EQU AVTOPCQB 00832000 AVTOPCEC EQU AVTOPCQB+4 00833000 AVTOPCCC EQU AVTOPCEC 00834000 AVTOLTQB EQU IEDQAVTD+828 00835000 AVTCWFL1 EQU IEDQAVTD+924 00836000 AVTCWFL2 EQU IEDQAVTD+925 00837000 AVTSUBT EQU IEDQAVTD+948 00838000 AVTIOTR EQU IEDQAVTD+949 00839000 AVTOPCON EQU IEDQAVTD+1038 00840000 AVTBIT1 EQU IEDQAVTD+1050 00841000 AVTBIT2 EQU IEDQAVTD+1051 00842000 AVTBIT3 EQU IEDQAVTD+1052 00843000 AVTOPCIN EQU IEDQAVTD+1074 00844000 AVTBIT4 EQU IEDQAVTD+1136 00845000 @NM00085 EQU IEDQAVTD+1232 00846000 IEDNSVTD EQU 0 00847000 SAVTDIAG EQU IEDNSVTD 00848000 SAVTDIAF EQU SAVTDIAG 00849000 SAVTLUSQ EQU IEDNSVTD+88 00850000 SAVTTCPU EQU IEDNSVTD+238 00851000 SAVTZELM EQU IEDNSVTD+270 00852000 SAVTRDRV EQU IEDNSVTD+284 00853000 SAVTCKQB EQU IEDNSVTD+300 00854000 SAVTCKTB EQU SAVTCKQB 00855000 SAVTCKEC EQU SAVTCKQB+4 00856000 SAVTCKCC EQU SAVTCKEC 00857000 IEDQCCW EQU 0 00858000 CCW EQU IEDQCCW 00859000 CCWFLAGS EQU CCW+4 00860000 IEDCOM EQU 0 00861000 COMCCWS EQU IEDCOM+20 00862000 COMCCW1 EQU COMCCWS 00863000 IEDQLCB EQU 0 00864000 LCBRCB EQU IEDQLCB 00865000 LCBTSOB EQU IEDQLCB+19 00866000 LCBCHAIN EQU IEDQLCB+20 00867000 LCBSCRNN EQU LCBCHAIN 00868000 LCBTETEN EQU LCBCHAIN 00869000 LCBINSRC EQU IEDQLCB+21 00870000 LCBLKMDE EQU LCBINSRC+2 00871000 LCBNTXT EQU IEDQLCB+24 00872000 LCBSTAT4 EQU LCBNTXT 00873000 LCBDMPRQ EQU LCBSTAT4 00874000 LCBDACRQ EQU LCBSTAT4 00875000 LCBIPLRQ EQU LCBSTAT4 00876000 LCBACTRQ EQU LCBSTAT4 00877000 LCBPHASE EQU LCBSTAT4 00878000 LCBSCBDA EQU IEDQLCB+25 00879000 LCBMHA EQU IEDQLCB+29 00880000 LCBFLAG1 EQU IEDQLCB+32 00881000 LCBIOBSN EQU IEDQLCB+33 00882000 LCBSNS EQU LCBIOBSN+1 00883000 LCBSENS0 EQU LCBSNS 00884000 LCBLOSDT EQU LCBSENS0 00885000 LCBTMOUT EQU LCBSENS0 00886000 LCBFLAG3 EQU LCBIOBSN+7 00887000 LCBCSW EQU LCBIOBSN+8 00888000 LCBCSWST EQU LCBCSW+3 00889000 LCBCSWUS EQU LCBCSWST 00890000 LCBCSWCS EQU LCBCSWST+1 00891000 LCBSIOCC EQU LCBIOBSN+15 00892000 LCBDCBPT EQU IEDQLCB+52 00893000 LCBRCQCB EQU IEDQLCB+56 00894000 LCBTHSQ EQU IEDQLCB+60 00895000 LCBINCAM EQU LCBTHSQ 00896000 LCBERRCT EQU IEDQLCB+62 00897000 LCBLSPCI EQU IEDQLCB+65 00898000 LCBRCBFR EQU LCBLSPCI 00899000 LCBSTATE EQU IEDQLCB+70 00900000 LCBSTAT1 EQU LCBSTATE 00901000 LCBSTAT2 EQU LCBSTATE+1 00902000 LCBBEOTN EQU LCBSTAT2 00903000 LCBSYNC EQU LCBSTAT2 00904000 LCBDIAL EQU LCBSTAT2 00905000 LCBBFRAV EQU LCBDIAL 00906000 LCBTSTSW EQU IEDQLCB+72 00907000 LCBERB EQU IEDQLCB+76 00908000 LCBERBST EQU IEDQLCB+84 00909000 LCBDLNKN EQU LCBERBST 00910000 LCBERBCT EQU IEDQLCB+88 00911000 LCBRBCT2 EQU LCBERBCT+1 00912000 LCBTTCIN EQU IEDQLCB+90 00913000 LCBMSGFM EQU IEDQLCB+92 00914000 LCBOBRCH EQU IEDQLCB+96 00915000 LCBINVPT EQU LCBOBRCH+1 00916000 LCBBFRW EQU LCBINVPT 00917000 LCBTPCD EQU IEDQLCB+100 00918000 LCBSTAT5 EQU LCBTPCD 00919000 LCBSTAT6 EQU LCBTPCD+4 00920000 LCBRSPSV EQU LCBTPCD+8 00921000 LCBSAVSN EQU IEDQLCB+112 00922000 LCBERCCW EQU IEDQLCB+120 00923000 LCBCPA EQU IEDQLCB+144 00924000 LCBCCW1 EQU LCBCPA 00925000 LCBCCW3 EQU LCBCPA+16 00926000 LCBCCW5 EQU LCBCPA+32 00927000 LCBATTEL EQU LCBCCW5 00928000 LCBQEBPL EQU LCBATTEL 00929000 LCBIOSB EQU LCBQEBPL+1 00930000 LCBCCW6 EQU LCBCPA+40 00931000 LCBCCW7 EQU LCBCPA+48 00932000 IEDQLCBX EQU 0 00933000 LCBXCON EQU IEDQLCBX 00934000 LCBXFLAG EQU LCBXCON 00935000 LCBXDCT EQU LCBXCON+1 00936000 LCBXRADR EQU LCBXCON+4 00937000 IEDQOPCD EQU 0 00938000 OPCAVTPT EQU IEDQOPCD+8 00939000 OPCCOPCE EQU IEDQOPCD+12 00940000 OPCOPTLK EQU IEDQOPCD+20 00941000 OPCIPLAD EQU IEDQOPCD+28 00942000 OPCPGCK EQU IEDQOPCD+40 00943000 OPCSAVE EQU IEDQOPCD+56 00944000 OPCWORK EQU IEDQOPCD+140 00945000 OPCAQCTL EQU IEDQOPCD+180 00946000 OPCXCTL EQU IEDQOPCD+204 00947000 OPCLDNME EQU IEDQOPCD+212 00948000 OPCMODID EQU OPCLDNME+3 00949000 OPCGETBF EQU IEDQOPCD+276 00950000 OPCFREBF EQU IEDQOPCD+280 00951000 OPCIPLCT EQU IEDQOPCD+289 00952000 OPCSPEC EQU IEDQOPCD+300 00953000 OPCPWCOB EQU IEDQOPCD+368 00954000 OPCPWQCB EQU OPCPWCOB 00955000 OPCPWECB EQU OPCPWCOB+4 00956000 IEDQOPCE EQU 0 00957000 OCELEM EQU IEDQOPCE+4 00958000 OCUNIT EQU IEDQOPCE+8 00959000 OCRUDEST EQU OCUNIT 00960000 OCCKPKEY EQU OCRUDEST 00961000 OCSCAN EQU OCCKPKEY 00962000 OCOPTCDE EQU IEDQOPCE+12 00963000 OCSWITCH EQU IEDQOPCE+13 00964000 OCFLAG EQU IEDQOPCE+14 00965000 OCCONSOL EQU OCFLAG 00966000 OCTOTE EQU OCFLAG 00967000 OCATTACH EQU OCFLAG 00968000 OCRESP EQU OCFLAG 00969000 @NM00169 EQU IEDQOPCE+16 00970000 OCDEST EQU @NM00169 00971000 OCREQVAL EQU OCDEST+1 00972000 OCTRMTBL EQU IEDQOPCE+20 00973000 OCLINENO EQU IEDQOPCE+22 00974000 OCTIOT EQU OCLINENO 00975000 OCTRUNIT EQU IEDQOPCE+24 00976000 OCRSID EQU OCTRUNIT 00977000 OCALSTAT EQU OCRSID 00978000 OCPARM EQU IEDQOPCE+28 00979000 OCWTG EQU IEDQOPCE+30 00980000 OCBACKUP EQU IEDQOPCE+32 00981000 OCMODNME EQU IEDQOPCE+40 00982000 OCIPLWA EQU OCMODNME 00983000 OCCKDATA EQU IEDQOPCE+48 00984000 OCRSTGTM EQU OCCKDATA 00985000 IEDQOPCN EQU 0 00986000 OCLDNME EQU IEDQOPCN 00987000 OCLINTTE EQU OCLDNME 00988000 OCREQFLG EQU OCLINTTE+2 00989000 OCPREFLG EQU OCLINTTE+3 00990000 IEDOPRED EQU 0 00991000 OPRESAVE EQU IEDOPRED+8 00992000 OPREFLG3 EQU IEDOPRED+14 00993000 IEDOCTR EQU 0 00994000 OCTRLCB EQU IEDOCTR+8 00995000 OCTRSW EQU IEDOCTR+13 00996000 OCTRRTE EQU IEDOCTR+14 00997000 OCTR09 EQU OCTRRTE 00998000 OCTR06 EQU OCTRRTE 00999000 OCTRRTN EQU IEDOCTR+15 01000000 OCTRERI EQU OCTRRTN 01001000 OCTRTTE EQU IEDOCTR+16 01002000 OCTRDVD EQU IEDOCTR+20 01003000 OCTRSAVE EQU IEDOCTR+32 01004000 IEDQTRM EQU 0 01005000 TRMSTATE EQU IEDQTRM 01006000 TRMLOG EQU TRMSTATE 01007000 TRMINSEQ EQU IEDQTRM+4 01008000 TLISTCNT EQU TRMINSEQ 01009000 TRMOUTSQ EQU IEDQTRM+6 01010000 TLISTEN EQU TRMOUTSQ 01011000 TRMDSORG EQU TLISTEN 01012000 TRMALTD EQU IEDQTRM+8 01013000 TRMDEVFL EQU IEDQTRM+10 01014000 TRMSTAT EQU IEDQTRM+12 01015000 IEDNTRM EQU 0 01016000 TRMBYTE4 EQU IEDNTRM 01017000 TRMBYTE3 EQU IEDNTRM+1 01018000 TRMBYTE2 EQU IEDNTRM+2 01019000 TRMINPG EQU TRMBYTE2 01020000 TRMBYTE1 EQU IEDNTRM+3 01021000 TRMSCPRQ EQU TRMBYTE1 01022000 TRMBYTE0 EQU IEDNTRM+6 01023000 TRMSIBPT EQU IEDNTRM+7 01024000 IEDNCP EQU 0 01025000 NCPFLAG1 EQU IEDNCP+1 01026000 NCPIPLD EQU NCPFLAG1 01027000 UCB EQU 0 01028000 UCBOB EQU 0 01029000 UCBJBNR EQU UCBOB 01030000 UCBFL5 EQU UCBOB+1 01031000 UCBAF EQU UCBFL5 01032000 UCBSTAT EQU UCBOB+3 01033000 UCBCHAN EQU UCBOB+4 01034000 UCBSFLS EQU UCBOB+6 01035000 UCBFLA EQU UCBSFLS 01036000 UCBFL1 EQU UCBFLA 01037000 UCBBSY EQU UCBFL1 01038000 UCBNRY EQU UCBFL1 01039000 UCBPST EQU UCBFL1 01040000 UCBCUB EQU UCBFL1 01041000 UCBFLB EQU UCBSFLS+1 01042000 UCBCHM EQU UCBOB+8 01043000 UCBCHM1 EQU UCBCHM 01044000 UCBPTH0 EQU UCBCHM1 01045000 UCBPTH1 EQU UCBCHM1 01046000 UCBWGT EQU UCBOB+12 01047000 UCBTYP EQU UCBOB+16 01048000 UCBTBYT1 EQU UCBTYP 01049000 UCB1FEA5 EQU UCBTBYT1 01050000 UCB1FEA6 EQU UCBTBYT1 01051000 UCBTBYT2 EQU UCBTYP+1 01052000 UCB2OPT2 EQU UCBTBYT2 01053000 UCBDUDN1 EQU UCB2OPT2 01054000 UCB2OPT3 EQU UCBTBYT2 01055000 UCBDUDN2 EQU UCB2OPT3 01056000 UCB2OPT4 EQU UCBTBYT2 01057000 UCBRWTAU EQU UCB2OPT4 01058000 UCB2OPT6 EQU UCBTBYT2 01059000 UCB2OPT7 EQU UCBTBYT2 01060000 UCBTBYT3 EQU UCBTYP+2 01061000 UCBDVCLS EQU UCBTBYT3 01062000 UCBTBYT4 EQU UCBTYP+3 01063000 UCBEXTPT EQU UCBOB+20 01064000 UCBFLC EQU UCBEXTPT 01065000 UCBDEV EQU UCBOB+24 01066000 UCBCMEXT EQU 0 01067000 UCBATI EQU UCBCMEXT+3 01068000 @NM00196 EQU UCBATI 01069000 UCBFLP1 EQU UCBCMEXT+5 01070000 UCBMT EQU 0 01071000 UCBOCR EQU 0 01072000 UCB3540X EQU 0 01073000 UCBDKBYT EQU UCB3540X+6 01074000 UCB3800X EQU 0 01075000 UCBOPTNS EQU UCB3800X 01076000 UCBACTIV EQU UCB3800X+3 01077000 UCBMDRBF EQU UCB3800X+36 01078000 UCBUCS EQU 0 01079000 UCBUCSOP EQU UCBUCS+4 01080000 UCBFCBOP EQU UCBUCS+5 01081000 ALLOCBUF EQU 0 01082000 PROGRTNE EQU 0 01083000 FREEBUFF EQU 0 01084000 ADDRBLK EQU 0 01085000 @NM00202 EQU 0 01086000 MSGWORK EQU 0 01087000 UNITCLR EQU 0 01088000 UCBBGN EQU 0 01089000 LCBRSPIN EQU LCBIOBSN 01090000 LCBLUSNS EQU LCBRSPIN+5 01091000 LCBSCPRS EQU LCBRSPIN+9 01092000 LCBCSWU1 EQU LCBSCPRS+2 01093000 LCBRSPFG EQU LCBRSPIN+15 01094000 LCBCOREQ EQU LCBTPCD 01095000 @NM00138 EQU LCBCPA+40 01096000 LCBQNX EQU LCBERCCW 01097000 LCBQNXMN EQU LCBQNX 01098000 LCBIOSBS EQU LCBQNX+5 01099000 LCBCANCL EQU LCBSAVSN 01100000 LCBCANFG EQU LCBCANCL 01101000 OPCAQWD EQU OPCAQCTL 01102000 OPCAQWD1 EQU OPCAQWD 01103000 OPCAQWD2 EQU OPCAQWD+4 01104000 OPCAQWD3 EQU OPCAQWD+8 01105000 OCCKPKY1 EQU OCCKPKEY 01106000 OCCKPTYP EQU OCCKPKY1 01107000 OCICACTN EQU OCMODNME 01108000 OCICDADR EQU OCICACTN 01109000 OCICSW EQU OCICDADR+3 01110000 TRMPRE1 EQU TRMBYTE4 01111000 TRMNCP1 EQU TRMBYTE4 01112000 TRMINOP EQU TRMNCP1 01113000 TRMPRE EQU TRMBYTE3 01114000 TRMNCP EQU TRMBYTE3 01115000 TRMIPLDM EQU TRMNCP 01116000 TRMPU EQU TRMBYTE3 01117000 TRMLU EQU TRMBYTE3 01118000 TRMLINK EQU TRMBYTE3 01119000 UCBOBS01 EQU UCBDEV 01120000 UCBSTAB EQU UCBOBS01+10 01121000 UCBBSVL EQU UCBSTAB 01122000 UCBPRSRS EQU UCBSTAB 01123000 UCBDMCT EQU UCBOBS01+11 01124000 UCBFL4 EQU UCBOBS01+13 01125000 UCBOBS02 EQU UCBDEV 01126000 UCBTFL1 EQU UCBOBS02+19 01127000 UCBXTN EQU UCBOBS02+20 01128000 UCBVOPT EQU UCBXTN 01129000 UCBOBS03 EQU UCBDEV 01130000 UCBXTADR EQU UCBOBS03 01131000 UCBOBS04 EQU UCBDEV 01132000 UCBBTA EQU UCBOBS04+12 01133000 UCBOBS06 EQU UCBDEV 01134000 UCBAOF EQU UCBOBS06 01135000 UCBAOF1 EQU UCBAOF 01136000 UCBAOF2 EQU UCBAOF+1 01137000 @NM00195 EQU UCBOBS06+3 01138000 UCBIRB EQU UCBOBS06+4 01139000 UCBGRAF EQU UCBIRB 01140000 UCBLDNCA EQU UCBOBS06+8 01141000 UCBRDYQ EQU UCBLDNCA 01142000 UCBIRLN EQU UCBRDYQ 01143000 UCBLDNCB EQU UCBRDYQ+1 01144000 UCBCTLNK EQU UCBOBS06+12 01145000 UCBOBS07 EQU UCBDEV 01146000 UCBOBS08 EQU UCBDEV 01147000 UCBCTCAD EQU UCBOBS08 01148000 UCBCTCF1 EQU UCBOBS08+4 01149000 UCBOBS09 EQU UCBDEV 01150000 @NM00197 EQU IEDCOM 01151000 FSDDCB EQU @NM00197+220 01152000 @NM00199 EQU @NM00197+224 01153000 DCBIND EQU @NM00199 01154000 SNDDCB EQU @NM00199+1 01155000 PHASE1 EQU @NM00197+356 01156000 PHASE2 EQU @NM00197+364 01157000 BLKADDR EQU @NM00197+376 01158000 @NM00229 EQU LCBCCW1 01159000 WRTADDR EQU @NM00229+1 01160000 @NM00231 EQU LCBCCW3 01161000 RDADDR EQU @NM00231+1 01162000 @NM00233 EQU LCBCCW6 01163000 NOP1ADDR EQU @NM00233+1 01164000 @NM00235 EQU LCBCCW7 01165000 NOP2ADDR EQU @NM00235+1 01166000 CLEAR EQU MSGWORK 01167000 OCCIB EQU OCREQVAL 01168000 TRMOPT EQU IEDQTRM+20 01169000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01170000 @NM00236 EQU @NM00235 01171000 @NM00234 EQU @NM00233 01172000 @NM00232 EQU @NM00231 01173000 @NM00230 EQU @NM00229 01174000 @NM00201 EQU @NM00197+372 01175000 @NM00200 EQU @NM00197+228 01176000 @NM00198 EQU @NM00197 01177000 UCBRV066 EQU UCBOBS09+4 01178000 UCBIOSBA EQU UCBOBS09 01179000 UCBRV042 EQU UCBOBS08+5 01180000 UCBRV082 EQU UCBCTCF1 01181000 UCBRV081 EQU UCBCTCF1 01182000 UCBRV080 EQU UCBCTCF1 01183000 UCBRV079 EQU UCBCTCF1 01184000 UCBRV078 EQU UCBCTCF1 01185000 UCBRV077 EQU UCBCTCF1 01186000 UCBRV076 EQU UCBCTCF1 01187000 UCBCTC80 EQU UCBCTCF1 01188000 UCBCTCAL EQU UCBCTCAD 01189000 UCBICNCB EQU UCBOBS07+4 01190000 UCBRV040 EQU UCBOBS07 01191000 UCBCTLNA EQU UCBCTLNK+1 01192000 UCBRLN EQU UCBCTLNK 01193000 UCBRDYQA EQU UCBLDNCB 01194000 UCBINRLN EQU UCBIRLN 01195000 UCBIRBA EQU UCBIRB+1 01196000 UCBRV039 EQU UCBGRAF 01197000 UCBDWNR EQU UCBGRAF 01198000 UCBRPND EQU UCBGRAF 01199000 UCBUPM EQU UCBGRAF 01200000 UCBBTAM EQU UCBGRAF 01201000 UCBDRNO EQU UCBGRAF 01202000 UCBDRO EQU UCBGRAF 01203000 UCBOIP EQU UCBGRAF 01204000 UCBATRCD EQU @NM00195 01205000 UCBSKPFG EQU @NM00195 01206000 UCBRIPND EQU @NM00195 01207000 UCBRTIAC EQU @NM00195 01208000 UCBRSV79 EQU @NM00195 01209000 UCBRSV78 EQU @NM00195 01210000 UCBRSV77 EQU @NM00195 01211000 UCBOLTEP EQU @NM00195 01212000 UCBATNCT EQU UCBOBS06+2 01213000 UCBRSV76 EQU UCBAOF2 01214000 UCBRSV75 EQU UCBAOF2 01215000 UCBRSV74 EQU UCBAOF2 01216000 UCBRSV73 EQU UCBAOF2 01217000 UCBRSV72 EQU UCBAOF2 01218000 UCBRSV71 EQU UCBAOF2 01219000 UCBRSV70 EQU UCBAOF2 01220000 UCBRSV69 EQU UCBAOF2 01221000 UCBRSV68 EQU UCBAOF1 01222000 UCBRSV67 EQU UCBAOF1 01223000 UCBRSV66 EQU UCBAOF1 01224000 UCBRSV65 EQU UCBAOF1 01225000 UCBRSV64 EQU UCBAOF1 01226000 UCBOFNL EQU UCBAOF1 01227000 UCBOFSP EQU UCBAOF1 01228000 UCBOFMCR EQU UCBAOF1 01229000 UCBBTB EQU UCBBTA+1 01230000 UCBDI EQU UCBBTA 01231000 UCBSNS EQU UCBOBS04+8 01232000 UCBTEB EQU UCBOBS04+4 01233000 UCBGCB EQU UCBOBS04+3 01234000 UCBOPEN EQU UCBOBS04+2 01235000 UCBSTART EQU UCBOBS04 01236000 UCBXTNB EQU UCBXTN+1 01237000 UCBRSV22 EQU UCBVOPT 01238000 UCBRSV21 EQU UCBVOPT 01239000 UCBRSV20 EQU UCBVOPT 01240000 UCBESVE EQU UCBVOPT 01241000 UCBERPC EQU UCBVOPT 01242000 UCBESVC EQU UCBVOPT 01243000 UCBEVA EQU UCBVOPT 01244000 UCBESV EQU UCBVOPT 01245000 UCBRV009 EQU UCBTFL1 01246000 UCBRV008 EQU UCBTFL1 01247000 UCBRV007 EQU UCBTFL1 01248000 UCBRV006 EQU UCBTFL1 01249000 UCBRV005 EQU UCBTFL1 01250000 UCBRV038 EQU UCBTFL1 01251000 UCBNSLTP EQU UCBTFL1 01252000 UCBNLTP EQU UCBTFL1 01253000 UCBRES1B EQU UCBOBS02+18 01254000 UCBFSER EQU UCBOBS02+12 01255000 @NM00194 EQU UCBOBS02+4 01256000 UCBFSEQ EQU UCBOBS02+2 01257000 UCBFSCT EQU UCBOBS02 01258000 UCBNEXP EQU UCBOBS01+20 01259000 UCBBASE EQU UCBOBS01+16 01260000 UCBRES1A EQU UCBOBS01+15 01261000 UCBUSER EQU UCBOBS01+14 01262000 UCBFL47 EQU UCBFL4 01263000 UCBFL46 EQU UCBFL4 01264000 UCBFL45 EQU UCBFL4 01265000 UCBRV065 EQU UCBFL4 01266000 UCBDSS EQU UCBFL4 01267000 UCBRV028 EQU UCBFL4 01268000 UCBWDAV EQU UCBFL4 01269000 UCBDAVV EQU UCBFL4 01270000 UCBSQC EQU UCBOBS01+12 01271000 UCBDATP EQU UCBOBS01+12 01272000 UCBDMC EQU UCBDMCT 01273000 UCBMOUNT EQU UCBDMCT 01274000 UCBBNUL EQU UCBSTAB 01275000 UCBSHAR EQU UCBSTAB 01276000 UCBBSTR EQU UCBSTAB 01277000 UCBBPUB EQU UCBSTAB 01278000 UCBBPRV EQU UCBSTAB 01279000 UCBBALB EQU UCBPRSRS 01280000 UCBPGFL EQU UCBSTAB 01281000 UCBDVSHR EQU UCBBSVL 01282000 UCBVOLI EQU UCBOBS01+4 01283000 UCBVTOC EQU UCBOBS01 01284000 @NM00191 EQU TRMLINK 01285000 TRMLSTAT EQU TRMLINK 01286000 TRMLINT EQU TRMLINK 01287000 TRMEPMOD EQU TRMLINK 01288000 TRMLULOG EQU TRMLU 01289000 TRMINERR EQU TRMLU 01290000 TRMLUREQ EQU TRMLU 01291000 TRMSESRQ EQU TRMLU 01292000 TRMTDIFF EQU TRMLU 01293000 TRMLUTM EQU TRMLU 01294000 TRMLUIT EQU TRMLU 01295000 TRMAUTO EQU TRMLU 01296000 TRMPCONT EQU TRMPU 01297000 @NM00190 EQU TRMPU 01298000 TRMNCONT EQU TRMNCP 01299000 TRMQUCKN EQU TRMNCP 01300000 TRMSLOWN EQU TRMNCP 01301000 TRMSYGEN EQU TRMNCP 01302000 TRMNCPCL EQU TRMNCP 01303000 TRMINOUT EQU TRMPRE 01304000 TRMRDOUT EQU TRMPRE 01305000 TRMNLOUT EQU TRMPRE 01306000 TRMWROUT EQU TRMPRE 01307000 TRMASNXI EQU TRMPRE 01308000 TRMSTMM EQU TRMPRE 01309000 TRMCMODE EQU TRMPRE 01310000 TRMSTPND EQU TRMPRE 01311000 @NM00189 EQU TRMNCP1 01312000 TRMLYNCH EQU TRMPRE1 01313000 TRMSPOUT EQU TRMPRE1 01314000 TRMERLCK EQU TRMPRE1 01315000 TRMQNPL EQU TRMPRE1 01316000 TRMSPACT EQU TRMPRE1 01317000 TRMOCNI EQU TRMPRE1 01318000 TRMSESSN EQU TRMPRE1 01319000 TRMCONT EQU TRMPRE1 01320000 OCICINAC EQU OCICSW 01321000 @NM00175 EQU OCICSW 01322000 OCICATST EQU OCICDADR+1 01323000 OCICTYPE EQU OCICDADR 01324000 @NM00174 EQU OCCKPKY1 01325000 OCCKPENV EQU OCCKPKY1 01326000 OCCKPRST EQU OCCKPTYP 01327000 OCCKPNCP EQU OCCKPTYP 01328000 OCCKPINC EQU OCCKPTYP 01329000 OPCAQLST EQU OPCAQWD3+1 01330000 OPCAQRQ3 EQU OPCAQWD3 01331000 OPCAQSEC EQU OPCAQWD2+1 01332000 OPCAQRQ2 EQU OPCAQWD2 01333000 OPCAQFST EQU OPCAQWD1+1 01334000 OPCAQREQ EQU OPCAQWD1 01335000 @NM00146 EQU LCBCANCL+3 01336000 LCBCANTH EQU LCBCANCL+1 01337000 @NM00145 EQU LCBCANFG 01338000 LCBCANCD EQU LCBCANFG 01339000 @NM00144 EQU LCBCANFG 01340000 LCBCANEB EQU LCBCANFG 01341000 LCBCANXT EQU LCBCANFG 01342000 LCBUNADD EQU LCBQNX+21 01343000 LCBUASZE EQU LCBQNX+20 01344000 LCBDSTEA EQU LCBQNX+16 01345000 @NM00143 EQU LCBQNX+8 01346000 @NM00142 EQU LCBQNX+4 01347000 LCBSTSAV EQU LCBQNX+1 01348000 @NM00141 EQU LCBQNXMN 01349000 LCBNX509 EQU LCBQNXMN 01350000 LCBNX162 EQU LCBQNXMN 01351000 LCBNX142 EQU LCBQNXMN 01352000 LCBNX064 EQU LCBQNXMN 01353000 @NM00140 EQU @NM00138+4 01354000 LCBNCPPT EQU @NM00138+1 01355000 @NM00139 EQU @NM00138 01356000 LCBWRSCH EQU LCBCOREQ+8 01357000 LCBCQLNK EQU LCBCOREQ+4 01358000 LCBCQELE EQU LCBCOREQ 01359000 LCBPAKCH EQU LCBRSPIN+16 01360000 @NM00137 EQU LCBRSPFG 01361000 LCBRSRH EQU LCBRSPFG 01362000 LCBEXPI EQU LCBRSPFG 01363000 @NM00136 EQU LCBRSPIN+12 01364000 LCBUSUE1 EQU LCBCSWU1 01365000 @NM00135 EQU LCBCSWU1 01366000 @NM00134 EQU LCBSCPRS+1 01367000 LCBDFCMD EQU LCBSCPRS 01368000 LCBUSER EQU LCBLUSNS+2 01369000 LCBSMIN EQU LCBLUSNS+1 01370000 LCBSMAJ EQU LCBLUSNS 01371000 LCBRHSV EQU LCBRSPIN+2 01372000 LCBSNS0 EQU LCBRSPIN+1 01373000 @NM00133 EQU LCBRSPIN 01374000 @NM00206 EQU MSGWORK+30 01375000 MSGTXT EQU MSGWORK+26 01376000 @NM00205 EQU MSGWORK+25 01377000 ADDRDD EQU MSGWORK+17 01378000 @NM00204 EQU MSGWORK+11 01379000 MSGNUMB EQU MSGWORK+4 01380000 @NM00203 EQU MSGWORK 01381000 RETRNAD EQU @NM00202+4 01382000 GETLIST EQU @NM00202 01383000 UCBERADR EQU UCBUCS+12 01384000 UCBFCBID EQU UCBUCS+8 01385000 UCBERCNT EQU UCBUCS+7 01386000 UCBRSV51 EQU UCBUCS+6 01387000 UCBRSV50 EQU UCBFCBOP 01388000 UCBRSV49 EQU UCBFCBOP 01389000 UCBRSV48 EQU UCBFCBOP 01390000 UCBRSV47 EQU UCBFCBOP 01391000 UCBRSV46 EQU UCBFCBOP 01392000 UCBRSV45 EQU UCBFCBOP 01393000 UCBRSV44 EQU UCBFCBOP 01394000 UCBFCBO1 EQU UCBFCBOP 01395000 UCBUCSPE EQU UCBUCSOP 01396000 UCBRSV43 EQU UCBUCSOP 01397000 UCBRSV42 EQU UCBUCSOP 01398000 UCBRSV41 EQU UCBUCSOP 01399000 UCBRSV40 EQU UCBUCSOP 01400000 UCBRSV39 EQU UCBUCSOP 01401000 UCBUCSO2 EQU UCBUCSOP 01402000 UCBUCSO1 EQU UCBUCSOP 01403000 UCBUCSID EQU UCBUCS 01404000 UCBMDRBA EQU UCBMDRBF+1 01405000 UCBRV075 EQU UCBMDRBF 01406000 UCBRV074 EQU UCB3800X+32 01407000 UCBIMAGE EQU UCB3800X+28 01408000 UCBFCBNM EQU UCB3800X+24 01409000 UCBCHAR4 EQU UCB3800X+20 01410000 UCBCHAR3 EQU UCB3800X+16 01411000 UCBCHAR2 EQU UCB3800X+12 01412000 UCBCHAR1 EQU UCB3800X+8 01413000 UCBCGMID EQU UCB3800X+4 01414000 UCBBRSTA EQU UCBACTIV 01415000 UCBRV063 EQU UCBACTIV 01416000 UCBRV062 EQU UCBACTIV 01417000 UCBRV061 EQU UCBACTIV 01418000 UCBRV060 EQU UCBACTIV 01419000 UCBRV059 EQU UCBACTIV 01420000 UCBRV058 EQU UCBACTIV 01421000 UCBRV057 EQU UCBACTIV 01422000 UCBRV050 EQU UCB3800X+2 01423000 UCBCGMNO EQU UCB3800X+1 01424000 UCBRV083 EQU UCBOPTNS 01425000 UCBBRSTR EQU UCBOPTNS 01426000 UCBRV056 EQU UCBOPTNS 01427000 UCBRV055 EQU UCBOPTNS 01428000 UCBRV054 EQU UCBOPTNS 01429000 UCBRV053 EQU UCBOPTNS 01430000 UCBRV052 EQU UCBOPTNS 01431000 UCBRV051 EQU UCBOPTNS 01432000 UCBRV073 EQU UCB3540X+7 01433000 UCBRV072 EQU UCBDKBYT 01434000 UCBRV071 EQU UCBDKBYT 01435000 UCBRV070 EQU UCBDKBYT 01436000 UCBRV069 EQU UCBDKBYT 01437000 UCBRV068 EQU UCBDKBYT 01438000 UCBRV067 EQU UCBDKBYT 01439000 UCBVLVER EQU UCBDKBYT 01440000 UCBDKAMX EQU UCBDKBYT 01441000 UCBVLSER EQU UCB3540X 01442000 UCBRDATA EQU UCBOCR+4 01443000 UCBFRID EQU UCBOCR 01444000 UCBCLN EQU UCBMT+14 01445000 UCBERG EQU UCBMT+12 01446000 UCBMS EQU UCBMT+11 01447000 UCBNB EQU UCBMT+10 01448000 UCBPW EQU UCBMT+9 01449000 UCBPR EQU UCBMT+8 01450000 UCBSIO EQU UCBMT+6 01451000 UCBTW EQU UCBMT+5 01452000 UCBTR EQU UCBMT+4 01453000 UCBTWT EQU UCBMT+3 01454000 UCBTRT EQU UCBMT+2 01455000 UCBCTD EQU UCBMT 01456000 UCBWTOID EQU UCBCMEXT+17 01457000 UCBRV043 EQU UCBCMEXT+16 01458000 UCBASID EQU UCBCMEXT+14 01459000 UCBMFCNT EQU UCBCMEXT+12 01460000 UCBPMSK EQU UCBCMEXT+10 01461000 UCBCCWOF EQU UCBCMEXT+8 01462000 UCBRV041 EQU UCBCMEXT+6 01463000 UCBRV036 EQU UCBFLP1 01464000 UCBRV035 EQU UCBFLP1 01465000 UCBERLOG EQU UCBFLP1 01466000 UCBRV033 EQU UCBFLP1 01467000 UCBRV032 EQU UCBFLP1 01468000 UCBRV031 EQU UCBFLP1 01469000 UCBSHRUP EQU UCBFLP1 01470000 UCBNSRCH EQU UCBFLP1 01471000 UCBSNSCT EQU UCBCMEXT+4 01472000 UCBHPDV EQU @NM00196 01473000 UCBHALI EQU @NM00196 01474000 UCBRSV09 EQU @NM00196 01475000 UCBRSV08 EQU @NM00196 01476000 UCBRSV07 EQU @NM00196 01477000 UCBRSV06 EQU @NM00196 01478000 UCBRSV05 EQU @NM00196 01479000 UCBRSV04 EQU @NM00196 01480000 UCBDTI EQU UCBCMEXT+2 01481000 UCBSTI EQU UCBCMEXT+1 01482000 UCBETI EQU UCBCMEXT 01483000 UCBEXTP EQU UCBEXTPT+1 01484000 UCBDDRSW EQU UCBFLC 01485000 UCBTICBT EQU UCBFLC 01486000 UCBIVRR EQU UCBFLC 01487000 UCBIVRS EQU UCBFLC 01488000 UCBITF EQU UCBFLC 01489000 UCBUDE EQU UCBFLC 01490000 UCBWAA EQU UCBFLC 01491000 UCBATTP EQU UCBFLC 01492000 UCBUNTYP EQU UCBTBYT4 01493000 UCBRSV11 EQU UCBDVCLS 01494000 UCBRSV10 EQU UCBDVCLS 01495000 UCB3CHAR EQU UCBDVCLS 01496000 UCB3UREC EQU UCBDVCLS 01497000 UCB3DISP EQU UCBDVCLS 01498000 UCB3DACC EQU UCBDVCLS 01499000 UCB3COMM EQU UCBDVCLS 01500000 UCB3TAPE EQU UCBDVCLS 01501000 UCBDVPWR EQU UCB2OPT7 01502000 UCBVLPWR EQU UCB2OPT6 01503000 UCB2OPT5 EQU UCBTBYT2 01504000 UCBRVDEV EQU UCBRWTAU 01505000 UCBRPS EQU UCBDUDN2 01506000 UCBRR EQU UCBDUDN1 01507000 UCB2OPT1 EQU UCBTBYT2 01508000 UCB2OPT0 EQU UCBTBYT2 01509000 UCB1FEA7 EQU UCBTBYT1 01510000 UCBD6250 EQU UCB1FEA6 01511000 UCBD1600 EQU UCB1FEA5 01512000 UCB1FEA4 EQU UCBTBYT1 01513000 UCB1FEA3 EQU UCBTBYT1 01514000 UCB1FEA2 EQU UCBTBYT1 01515000 UCB1FEA1 EQU UCBTBYT1 01516000 UCB1FEA0 EQU UCBTBYT1 01517000 UCBNAME EQU UCBOB+13 01518000 UCBRV029 EQU UCBWGT 01519000 UCBVHRSN EQU UCBWGT 01520000 UCBVORSN EQU UCBWGT 01521000 UCBMTPXP EQU UCBWGT 01522000 UCBREW EQU UCBWGT 01523000 UCBPUB EQU UCBWGT 01524000 UCBOUT EQU UCBWGT 01525000 UCBIN EQU UCBWGT 01526000 UCBCPU EQU UCBOB+11 01527000 UCBLCI EQU UCBOB+10 01528000 UCBCNT EQU UCBOB+9 01529000 UCBRV017 EQU UCBCHM1 01530000 UCBRV016 EQU UCBCHM1 01531000 UCBRV015 EQU UCBCHM1 01532000 UCBRV014 EQU UCBCHM1 01533000 UCBSPB EQU UCBPTH1 01534000 UCBPPB EQU UCBPTH1 01535000 UCBSPA EQU UCBPTH0 01536000 UCBPPA EQU UCBPTH0 01537000 UCBSIGP EQU UCBFLB 01538000 UCBVALPH EQU UCBFLB 01539000 UCBCRHSN EQU UCBFLB 01540000 UCBCRHRV EQU UCBFLB 01541000 UCBRESVH EQU UCBFLB 01542000 UCBSPST EQU UCBFLB 01543000 UCBASNS EQU UCBFLB 01544000 UCBIORST EQU UCBFLB 01545000 UCBQISCE EQU UCBFL1 01546000 UCBACTV EQU UCBFL1 01547000 UCBSAP EQU UCBFL1 01548000 UCBNOTRC EQU UCBCUB 01549000 UCBPSNS EQU UCBFL1 01550000 UCBUSING EQU UCBPST 01551000 UCBNOTRD EQU UCBNRY 01552000 UCBBUSYD EQU UCBBSY 01553000 UCBUA EQU UCBCHAN+1 01554000 UCBCHA EQU UCBCHAN 01555000 UCBDADI EQU UCBSTAT 01556000 UCBSYSR EQU UCBSTAT 01557000 UCBPRES EQU UCBSTAT 01558000 UCBALOC EQU UCBSTAT 01559000 UCBUNLD EQU UCBSTAT 01560000 UCBRESV EQU UCBSTAT 01561000 UCBCHGS EQU UCBSTAT 01562000 UCBONLI EQU UCBSTAT 01563000 UCBID EQU UCBOB+2 01564000 UCBALTPH EQU UCBFL5 01565000 UCBALTCU EQU UCBFL5 01566000 UCBNALOC EQU UCBFL5 01567000 UCBENVRD EQU UCBFL5 01568000 UCBVSDR EQU UCBFL5 01569000 UCBSASK EQU UCBFL5 01570000 UCBAMV EQU UCBAF 01571000 UCBDCC EQU UCBFL5 01572000 UCBMONT EQU UCBJBNR 01573000 UCBRV011 EQU UCBJBNR 01574000 UCBRSV02 EQU UCBJBNR 01575000 UCBOLDSM EQU UCBJBNR 01576000 UCBRV003 EQU UCBJBNR 01577000 UCBDUC EQU UCBJBNR 01578000 UCBJES3 EQU UCBJBNR 01579000 UCBVRDEV EQU UCBJBNR 01580000 UCBCMSEG EQU UCBOB 01581000 UCBPFXND EQU UCB+512 01582000 UCBIOQ EQU UCB+508 01583000 UCBLOCK EQU UCB+504 01584000 UCBPXST EQU UCB+504 01585000 @NM00193 EQU UCB 01586000 NCPLTRAC EQU IEDNCP+26 01587000 NCPCKPT EQU IEDNCP+22 01588000 NCPDPDCB EQU IEDNCP+18 01589000 NCPTXID EQU IEDNCP+10 01590000 NCPBKUPN EQU IEDNCP+2 01591000 @NM00192 EQU NCPFLAG1 01592000 NCPTRACE EQU NCPFLAG1 01593000 NCPBKUP EQU NCPFLAG1 01594000 NCPREST EQU NCPFLAG1 01595000 NCPBGUP EQU NCPFLAG1 01596000 NCPDAUTO EQU NCPFLAG1 01597000 NCPIAUTO EQU NCPFLAG1 01598000 NCPLEN EQU IEDNCP 01599000 TRMSUBST EQU IEDNTRM+12 01600000 TRMTYPE EQU IEDNTRM+11 01601000 TRMRLMCT EQU IEDNTRM+10 01602000 TRMCOHTG EQU TRMSIBPT+1 01603000 TRMGPCNT EQU TRMSIBPT 01604000 TRMBUFRD EQU TRMBYTE0 01605000 TRMSNA EQU TRMBYTE0 01606000 TRMGP EQU TRMBYTE0 01607000 TRMDIAL EQU TRMBYTE0 01608000 @NM00188 EQU TRMBYTE0 01609000 TRMOUTPT EQU TRMBYTE0 01610000 TRMINPUT EQU TRMBYTE0 01611000 TRMUDEF EQU TRMBYTE0 01612000 TRMCOHRT EQU IEDNTRM+4 01613000 TRMSTOTE EQU TRMBYTE1 01614000 TRMCKPRN EQU TRMBYTE1 01615000 TRMTSATN EQU TRMBYTE1 01616000 TRMTRACE EQU TRMBYTE1 01617000 TRMSWBCK EQU TRMBYTE1 01618000 TRMAUTOC EQU TRMBYTE1 01619000 TRMINPTP EQU TRMBYTE1 01620000 TRMWTNEG EQU TRMSCPRQ 01621000 TRMWRBRK EQU TRMBYTE2 01622000 TRMNOSND EQU TRMBYTE2 01623000 TRMPREP EQU TRMBYTE2 01624000 TRMGPACT EQU TRMBYTE2 01625000 TRMANDL EQU TRMBYTE2 01626000 TRMCLOSN EQU TRMINPG 01627000 TRMREMB EQU TRMBYTE2 01628000 TRMRSACT EQU TRMBYTE2 01629000 TRMOPTBL EQU IEDQTRM+18 01630000 TRMOPNO EQU IEDQTRM+17 01631000 TRMCHCIN EQU IEDQTRM+16 01632000 TRMSENSE EQU TRMSTAT+3 01633000 TRMTEMPR EQU TRMSTAT+2 01634000 TRMSIO EQU TRMSTAT 01635000 @NM00187 EQU TRMDEVFL+1 01636000 TRMTPIN EQU TRMDEVFL+1 01637000 TRMNCPI EQU TRMDEVFL+1 01638000 TRMRNTRM EQU TRMDEVFL+1 01639000 @NM00186 EQU TRMDEVFL+1 01640000 TRMLMD EQU TRMDEVFL+1 01641000 TRMCONC EQU TRMDEVFL+1 01642000 TRMTSOB EQU TRMDEVFL 01643000 TRMBFDY EQU TRMDEVFL 01644000 TRMTBLK EQU TRMDEVFL 01645000 TRMSBLK EQU TRMDEVFL 01646000 TRMBLKS EQU TRMDEVFL 01647000 TRMADDC EQU TRMDEVFL 01648000 TRMDDIG EQU TRMDEVFL 01649000 TRMBUFS EQU TRMDEVFL 01650000 TRMPRILK EQU TRMALTD 01651000 TRMLGB EQU TRMDSORG 01652000 TRMUTERM EQU TLISTCNT 01653000 TRMDESTQ EQU IEDQTRM+1 01654000 TRMSCNYN EQU TRMSTATE 01655000 TRMOPTFN EQU TRMSTATE 01656000 TRMHELDN EQU TRMSTATE 01657000 TRMACPTN EQU TRMSTATE 01658000 TRMPREF EQU TRMSTATE 01659000 TRMPROC EQU TRMLOG 01660000 TRMLIST EQU TRMLOG 01661000 TRMLINE EQU TRMSTATE 01662000 OCTRADR EQU IEDOCTR+28 01663000 OCTRUCB EQU IEDOCTR+24 01664000 @NM00185 EQU OCTRRTN 01665000 OCTRERD EQU OCTRRTN 01666000 @NM00184 EQU OCTRRTN 01667000 OCTRCH EQU OCTRRTN 01668000 OCTRIP EQU OCTRRTN 01669000 OCTR00 EQU OCTRRTE 01670000 OCTR07 EQU OCTRRTE 01671000 OCTRC0 EQU OCTRRTE 01672000 OCTRMP EQU OCTRRTE 01673000 OCTRMD EQU OCTRRTE 01674000 OCTRFC EQU OCTRRTE 01675000 @NM00183 EQU OCTRSW 01676000 OCTRINMF EQU OCTRSW 01677000 OCTRFA EQU OCTRSW 01678000 OCTRBLST EQU OCTRSW 01679000 OCTRNOS EQU OCTRSW 01680000 OCTROUT EQU OCTRSW 01681000 @NM00182 EQU IEDOCTR+12 01682000 OCTRDCB EQU IEDOCTR+4 01683000 OCTROPCE EQU IEDOCTR 01684000 @NM00181 EQU OPREFLG3 01685000 OPREATCH EQU OPREFLG3 01686000 @NM00180 EQU OPREFLG3 01687000 OPREFLG2 EQU IEDOPRED+13 01688000 OPREFLG1 EQU IEDOPRED+12 01689000 OPRETIC EQU OPRESAVE 01690000 OPRELINK EQU IEDOPRED+5 01691000 OPREPRI EQU IEDOPRED+4 01692000 OPREQCB EQU IEDOPRED+1 01693000 OPREKEY EQU IEDOPRED 01694000 @NM00179 EQU OCLDNME+4 01695000 @NM00178 EQU OCPREFLG 01696000 OCTOTEP EQU OCPREFLG 01697000 OCREPOST EQU OCPREFLG 01698000 OCRSPSNT EQU OCPREFLG 01699000 OCBFREQ EQU OCPREFLG 01700000 OCIDLE EQU OCREQFLG 01701000 OCFORCE EQU OCREQFLG 01702000 OCDCARD EQU OCREQFLG 01703000 OCPARTAL EQU OCREQFLG 01704000 OCADNCP EQU OCREQFLG 01705000 @NM00177 EQU OCREQFLG 01706000 @NM00176 EQU OCREQFLG 01707000 OCFLUSHZ EQU OCREQFLG 01708000 OCRESPCT EQU OCLINTTE 01709000 OCCKPTWA EQU OCCKDATA+4 01710000 @NM00173 EQU OCRSTGTM+2 01711000 OCCKDAT2 EQU OCRSTGTM+1 01712000 OCCKDAT1 EQU OCRSTGTM 01713000 OCPTRSAV EQU OCMODNME+4 01714000 OCPUADR EQU OCIPLWA+2 01715000 OCWTGSAV EQU OCIPLWA 01716000 OCDVRDCT EQU OCBACKUP+6 01717000 OCNCP EQU OCBACKUP+4 01718000 OCBUFGOT EQU OCBACKUP+2 01719000 OCBUFNED EQU OCBACKUP 01720000 OCRESNUM EQU OCPARM 01721000 OCSEQ EQU OCTRUNIT+2 01722000 @NM00172 EQU OCRSID+1 01723000 OCNONE EQU OCALSTAT 01724000 OCSOME EQU OCALSTAT 01725000 OCALLFLG EQU OCALSTAT 01726000 OCACTREQ EQU OCALSTAT 01727000 OCREDRVE EQU OCALSTAT 01728000 OCSEQIND EQU OCALSTAT 01729000 @NM00171 EQU OCALSTAT 01730000 OCRENTRD EQU OCALSTAT 01731000 OCWTGB EQU OCTIOT 01732000 @NM00170 EQU @NM00169+2 01733000 OCCONID EQU OCDEST 01734000 OCRLN EQU IEDQOPCE+15 01735000 OCSSCP EQU OCFLAG 01736000 OCOUTPUT EQU OCFLAG 01737000 OCLINE EQU OCFLAG 01738000 OCMPP EQU OCFLAG 01739000 @NM00168 EQU OCSWITCH 01740000 OCQUCKN EQU OCSWITCH 01741000 OCPRIFLG EQU OCOPTCDE 01742000 @NM00167 EQU OCRUDEST+1 01743000 @NM00166 EQU OCSCAN 01744000 OCNOTUCB EQU OCSCAN 01745000 OCNONAME EQU OCSCAN 01746000 OCALLRLN EQU OCSCAN 01747000 OCDDNAME EQU OCSCAN 01748000 OCDDNRLN EQU OCSCAN 01749000 OCADDR EQU OCSCAN 01750000 OCELMPTR EQU OCELEM+1 01751000 OCELMPRI EQU OCELEM 01752000 OCLINK EQU IEDQOPCE 01753000 OPCBOTTM EQU IEDQOPCD+1184 01754000 @NM00165 EQU IEDQOPCD+1100 01755000 @NM00164 EQU IEDQOPCD+948 01756000 @NM00163 EQU IEDQOPCD+940 01757000 @NM00162 EQU IEDQOPCD+380 01758000 @NM00161 EQU OPCPWCOB+9 01759000 @NM00160 EQU OPCPWCOB+8 01760000 @NM00159 EQU OPCPWECB+1 01761000 OPCPWCCC EQU OPCPWECB 01762000 OPCPWCHN EQU OPCPWQCB+1 01763000 OPCPWVTO EQU OPCPWQCB 01764000 OPCWAITV EQU IEDQOPCD+364 01765000 OPCTOTCK EQU IEDQOPCD+360 01766000 OPCAPXTL EQU IEDQOPCD+356 01767000 OPCDECR EQU IEDQOPCD+352 01768000 OPCBUFWT EQU IEDQOPCD+348 01769000 OPCWRKSP EQU IEDQOPCD+320 01770000 OPCADGOT EQU IEDQOPCD+318 01771000 OPCRQCNT EQU IEDQOPCD+316 01772000 OPPOLSTP EQU IEDQOPCD+312 01773000 OPCCKCIB EQU IEDQOPCD+308 01774000 OPCEND EQU IEDQOPCD+307 01775000 OPCSTCBS EQU IEDQOPCD+306 01776000 OPCHNEND EQU IEDQOPCD+302 01777000 OPCOQSW EQU IEDQOPCD+301 01778000 @NM00158 EQU OPCSPEC 01779000 @NM00157 EQU OPCSPEC 01780000 @NM00156 EQU OPCSPEC 01781000 @NM00155 EQU OPCSPEC 01782000 OPCFRMCA EQU OPCSPEC 01783000 OPCRSTRT EQU OPCSPEC 01784000 OPCPART EQU OPCSPEC 01785000 OPCALTD EQU OPCSPEC 01786000 OPCBFEND EQU IEDQOPCD+296 01787000 OPCBFIRS EQU IEDQOPCD+292 01788000 OPCAVBUF EQU IEDQOPCD+290 01789000 OPCCLNTS EQU IEDQOPCD+288 01790000 OPCHA8 EQU IEDQOPCD+286 01791000 OPCBFREQ EQU IEDQOPCD+284 01792000 OPCNEXT EQU IEDQOPCD+272 01793000 OPCFMDFC EQU IEDQOPCD+268 01794000 OPCSCNC EQU IEDQOPCD+264 01795000 OPCHORTG EQU IEDQOPCD+260 01796000 OPCHORT EQU IEDQOPCD+256 01797000 OPCCKPTL EQU IEDQOPCD+252 01798000 OPCCKPTF EQU IEDQOPCD+248 01799000 OPCWAITA EQU IEDQOPCD+244 01800000 OPCWAITR EQU IEDQOPCD+240 01801000 OPCWAITP EQU IEDQOPCD+236 01802000 OPCWAITO EQU IEDQOPCD+232 01803000 OPCWAITN EQU IEDQOPCD+228 01804000 OPCWAITL EQU IEDQOPCD+224 01805000 OPCWAITC EQU IEDQOPCD+220 01806000 @NM00154 EQU OPCLDNME+5 01807000 @NM00153 EQU OPCLDNME 01808000 OPCWAIT EQU IEDQOPCD+192 01809000 OPCCKERB EQU IEDQOPCD+164 01810000 OPCBFERB EQU IEDQOPCD+148 01811000 OPCFLAG2 EQU IEDQOPCD+147 01812000 OPCFLAG1 EQU IEDQOPCD+146 01813000 OPCWRKSZ EQU IEDQOPCD+144 01814000 OPCRSAVE EQU IEDQOPCD+132 01815000 OPCQCBAD EQU IEDQOPCD+128 01816000 OPCTRMWA EQU IEDQOPCD+52 01817000 OPCPSTWT EQU IEDQOPCD+48 01818000 OPCTNTEA EQU IEDQOPCD+44 01819000 OPCLCB EQU IEDQOPCD+36 01820000 @NM00152 EQU IEDQOPCD+32 01821000 OPCTOFLK EQU IEDQOPCD+24 01822000 OPCDCBLK EQU IEDQOPCD+16 01823000 OPCDOUBL EQU IEDQOPCD 01824000 LCBERADR EQU LCBXRADR+1 01825000 LCBPCIRC EQU LCBXRADR 01826000 LCBDCT3 EQU LCBXDCT+2 01827000 LCBDCT2 EQU LCBXDCT+1 01828000 LCBDCT1 EQU LCBXDCT 01829000 @NM00151 EQU LCBXFLAG 01830000 LCBERPND EQU LCBXFLAG 01831000 LCBSRCPF EQU LCBXFLAG 01832000 LCBGPCTV EQU LCBXFLAG 01833000 @NM00150 EQU LCBXFLAG 01834000 @NM00149 EQU LCBXFLAG 01835000 @NM00148 EQU LCBXFLAG 01836000 @NM00147 EQU LCBXFLAG 01837000 LCBCCW10 EQU LCBCPA+72 01838000 LCBCCW9 EQU LCBCPA+64 01839000 LCBCCW8 EQU LCBCPA+56 01840000 LCBCP EQU LCBQEBPL+4 01841000 LCBSIO EQU LCBQEBPL 01842000 LCBCCW4 EQU LCBCPA+24 01843000 LCBCCW2 EQU LCBCPA+8 01844000 @NM00132 EQU LCBERCCW+16 01845000 LCBATL05 EQU LCBERCCW+8 01846000 @NM00131 EQU LCBERCCW 01847000 LCBCSWSV EQU LCBSAVSN+1 01848000 LCBSNSV EQU LCBSAVSN 01849000 LCBBFSNS EQU LCBRSPSV 01850000 LCBWAITC EQU LCBTPCD+5 01851000 LCBINPAK EQU LCBSTAT6 01852000 LCBMHBID EQU LCBSTAT6 01853000 LCBRTRRO EQU LCBSTAT6 01854000 LCBHDRPD EQU LCBSTAT6 01855000 LCBCHN EQU LCBSTAT6 01856000 LCBBFRSV EQU LCBTPCD+1 01857000 @NM00130 EQU LCBSTAT5 01858000 LCBLUS EQU LCBSTAT5 01859000 LCBLUNIT EQU LCBSTAT5 01860000 LCBPERM EQU LCBSTAT5 01861000 LCBNXCMD EQU LCBBFRW 01862000 LCBERMSK EQU LCBOBRCH 01863000 LCBSCBA EQU IEDQLCB+93 01864000 LCBOLT EQU LCBMSGFM 01865000 LCBEOT EQU LCBMSGFM 01866000 LCBENQ EQU LCBMSGFM 01867000 LCBTTD EQU LCBMSGFM 01868000 LCBRSTRT EQU LCBMSGFM 01869000 LCBVSTRT EQU LCBMSGFM 01870000 LCBACKI EQU LCBMSGFM 01871000 LCBNAK EQU LCBMSGFM 01872000 @NM00129 EQU LCBRBCT2 01873000 LCBDCNT EQU LCBRBCT2 01874000 LCBRBCT1 EQU LCBERBCT 01875000 LCBERBCH EQU IEDQLCB+85 01876000 LCBCOMPL EQU LCBDLNKN 01877000 LCBPRCPG EQU LCBERBST 01878000 LCBERROR EQU LCBERBST 01879000 @NM00128 EQU LCBERBST 01880000 LCBINQ EQU LCBERBST 01881000 LCBRDERR EQU LCBERBST 01882000 LCBEOMSG EQU LCBERBST 01883000 LCBMSG EQU LCBERBST 01884000 LCBERBLK EQU IEDQLCB+81 01885000 LCBERBPY EQU IEDQLCB+80 01886000 LCBERBQB EQU LCBERB+1 01887000 LCBERBKY EQU LCBERB 01888000 LCBRECAD EQU IEDQLCB+73 01889000 @NM00127 EQU LCBTSTSW 01890000 @NM00126 EQU LCBTSTSW 01891000 @NM00125 EQU LCBTSTSW 01892000 @NM00124 EQU LCBTSTSW 01893000 @NM00123 EQU LCBTSTSW 01894000 @NM00122 EQU LCBTSTSW 01895000 @NM00121 EQU LCBTSTSW 01896000 LCBCONCT EQU LCBTSTSW 01897000 LCBRESP EQU LCBSTAT2 01898000 LCBATTN EQU LCBSYNC 01899000 LCBNEGRP EQU LCBSTAT2 01900000 LCBSNDPR EQU LCBSTAT2 01901000 LCBCONNN EQU LCBBEOTN 01902000 LCBMSGNN EQU LCBSTAT2 01903000 LCBTRACE EQU LCBSTAT2 01904000 LCBSENDN EQU LCBSTAT1 01905000 LCBRECVN EQU LCBSTAT1 01906000 LCBFREEN EQU LCBSTAT1 01907000 LCBCONT EQU LCBSTAT1 01908000 LCBINITN EQU LCBSTAT1 01909000 LCBOCNI EQU LCBSTAT1 01910000 LCBOCWTN EQU LCBSTAT1 01911000 LCBRCLLN EQU LCBSTAT1 01912000 LCBRECOF EQU IEDQLCB+68 01913000 LCBRDBFR EQU LCBRCBFR 01914000 LCBUCBX EQU IEDQLCB+64 01915000 LCBTTBIN EQU LCBERRCT 01916000 @NM00120 EQU LCBINCAM 01917000 LCBGETMN EQU LCBINCAM 01918000 LCBRESTR EQU LCBRCQCB 01919000 LCBPCILK EQU LCBDCBPT 01920000 LCBSTART EQU LCBIOBSN+16 01921000 LCBAP4OL EQU LCBSIOCC 01922000 LCBAP3OL EQU LCBSIOCC 01923000 LCBAP2OL EQU LCBSIOCC 01924000 LCBAP1OL EQU LCBSIOCC 01925000 LCBSIOC2 EQU LCBSIOCC 01926000 LCBSIOC1 EQU LCBSIOCC 01927000 @NM00119 EQU LCBSIOCC 01928000 LCBCSWRC EQU LCBCSW+5 01929000 LCBCSCHC EQU LCBCSWCS 01930000 LCBCSICC EQU LCBCSWCS 01931000 LCBCSCCC EQU LCBCSWCS 01932000 LCBCSCDC EQU LCBCSWCS 01933000 LCBCSPTC EQU LCBCSWCS 01934000 LCBCSPGC EQU LCBCSWCS 01935000 LCBCSIL EQU LCBCSWCS 01936000 LCBCSPCI EQU LCBCSWCS 01937000 LCBUSUE EQU LCBCSWUS 01938000 LCBUSUC EQU LCBCSWUS 01939000 LCBUSDE EQU LCBCSWUS 01940000 LCBUSCE EQU LCBCSWUS 01941000 LCBUSBSY EQU LCBCSWUS 01942000 LCBUSCUE EQU LCBCSWUS 01943000 LCBUSSM EQU LCBCSWUS 01944000 LCBUSAT EQU LCBCSWUS 01945000 LCBCSWCA EQU LCBCSW 01946000 LCBOBR EQU LCBFLAG3 01947000 LCBOBRRD EQU LCBFLAG3 01948000 LCBIOMSG EQU LCBFLAG3 01949000 LCBSOHC EQU LCBFLAG3 01950000 LCBRLAD EQU LCBFLAG3 01951000 LCBSOHR EQU LCBFLAG3 01952000 @NM00118 EQU LCBFLAG3 01953000 LCBECBPT EQU LCBIOBSN+4 01954000 LCBECBCC EQU LCBIOBSN+3 01955000 LCBSENS1 EQU LCBSNS+1 01956000 LCBABORT EQU LCBTMOUT 01957000 LCBNOTIN EQU LCBLOSDT 01958000 LCBOVRUN EQU LCBSENS0 01959000 LCBDATCK EQU LCBSENS0 01960000 LCBEQUCK EQU LCBSENS0 01961000 LCBBUSCK EQU LCBSENS0 01962000 LCBINTRQ EQU LCBSENS0 01963000 LCBCMDRJ EQU LCBSENS0 01964000 LCBFLAG2 EQU LCBIOBSN 01965000 @NM00117 EQU LCBFLAG1 01966000 LCBUNREL EQU LCBFLAG1 01967000 LCBEXCPN EQU LCBFLAG1 01968000 @NM00116 EQU LCBFLAG1 01969000 LCBERPIN EQU LCBFLAG1 01970000 @NM00115 EQU LCBFLAG1 01971000 LCBFSBFR EQU LCBMHA 01972000 LCBISZE EQU IEDQLCB+28 01973000 LCBLNENT EQU LCBSCBDA+1 01974000 @NM00114 EQU LCBSCBDA 01975000 LCBCPGMH EQU LCBSTAT4 01976000 LCBREAL EQU LCBPHASE 01977000 @NM00113 EQU LCBSTAT4 01978000 @NM00112 EQU LCBLKMDE 01979000 LCBLOCKI EQU LCBLKMDE 01980000 LCBLOCKR EQU LCBLKMDE 01981000 LCBHMFLG EQU LCBLKMDE 01982000 LCBBDFLG EQU LCBLKMDE 01983000 @NM00111 EQU LCBINSRC 01984000 LCBABRTN EQU LCBCHAIN 01985000 LCBCTLMD EQU LCBTETEN 01986000 LCBBFRSZ EQU LCBCHAIN 01987000 LCBUREQN EQU LCBCHAIN 01988000 LCBNORTY EQU LCBCHAIN 01989000 LCBERMSG EQU LCBCHAIN 01990000 LCBEXCP EQU LCBCHAIN 01991000 LCBINVRQ EQU LCBSCRNN 01992000 LCB2741N EQU LCBTSOB 01993000 LCBINHBN EQU LCBTSOB 01994000 LCBCIRCD EQU LCBTSOB 01995000 LCBPREP EQU LCBTSOB 01996000 LCBSOPL EQU LCBTSOB 01997000 LCBSATRD EQU LCBTSOB 01998000 LCBTSBUF EQU LCBTSOB 01999000 LCBWRBRK EQU LCBTSOB 02000000 LCBTDL EQU IEDQLCB+18 02001000 LCBEOLTD EQU IEDQLCB+16 02002000 LCBRSLNK EQU IEDQLCB+13 02003000 LCBRSPRI EQU IEDQLCB+12 02004000 LCBSTCBA EQU IEDQLCB+9 02005000 LCBRSKEY EQU IEDQLCB+8 02006000 LCBLINK EQU LCBRCB+5 02007000 LCBPRI EQU LCBRCB+4 02008000 LCBQCBA EQU LCBRCB+1 02009000 LCBKEY EQU LCBRCB 02010000 COMINBF2 EQU IEDCOM+560 02011000 COMINBF1 EQU IEDCOM+48 02012000 @NM00110 EQU IEDCOM+44 02013000 @NM00109 EQU COMCCWS+16 02014000 COMCCW2 EQU COMCCWS+8 02015000 @NM00108 EQU COMCCW1+7 02016000 COM1CNT EQU COMCCW1+6 02017000 @NM00107 EQU COMCCW1 02018000 COMTTRZ EQU IEDCOM+16 02019000 @NM00106 EQU IEDCOM+13 02020000 COMFLAGS EQU IEDCOM+12 02021000 COMOPCE EQU IEDCOM+8 02022000 COMLINK EQU IEDCOM+5 02023000 COMPRI EQU IEDCOM+4 02024000 COMQCB EQU IEDCOM+1 02025000 COMKEY EQU IEDCOM 02026000 CCWCOUNT EQU CCW+6 02027000 CCWRSV EQU CCW+5 02028000 @NM00105 EQU CCWFLAGS 02029000 CCWIDA EQU CCWFLAGS 02030000 CCWPCI EQU CCWFLAGS 02031000 CCWSKIP EQU CCWFLAGS 02032000 CCWSLI EQU CCWFLAGS 02033000 CCWCC EQU CCWFLAGS 02034000 CCWCD EQU CCWFLAGS 02035000 CCWADDR EQU CCW+1 02036000 CCWOPCDE EQU CCW 02037000 SAVTBITN EQU IEDNSVTD+312 02038000 @NM00104 EQU SAVTCKQB+8 02039000 @NM00103 EQU SAVTCKEC+1 02040000 @NM00102 EQU SAVTCKCC 02041000 SAVTCKPO EQU SAVTCKCC 02042000 SAVTCKWA EQU SAVTCKCC 02043000 SAVTCKCH EQU SAVTCKTB+1 02044000 SAVTCKVT EQU SAVTCKTB 02045000 @NM00101 EQU IEDNSVTD+297 02046000 SAVTRDFG EQU SAVTRDRV+12 02047000 @NM00100 EQU SAVTRDRV+5 02048000 SAVTRDPY EQU SAVTRDRV+4 02049000 SAVTRDQB EQU SAVTRDRV+1 02050000 SAVTRDKY EQU SAVTRDRV 02051000 SAVTNID EQU IEDNSVTD+280 02052000 SAVTDVAS EQU IEDNSVTD+276 02053000 SAVTPLSZ EQU IEDNSVTD+274 02054000 @NM00099 EQU IEDNSVTD+273 02055000 SAVTSUBL EQU IEDNSVTD+272 02056000 @NM00098 EQU SAVTZELM+1 02057000 SAVTSUBM EQU SAVTZELM 02058000 SAVTMHDX EQU IEDNSVTD+268 02059000 SAVTNAT1 EQU IEDNSVTD+266 02060000 SAVTSH20 EQU IEDNSVTD+264 02061000 SAVTLCBS EQU IEDNSVTD+260 02062000 SAVTRNMP EQU IEDNSVTD+256 02063000 SAVTTNTX EQU IEDNSVTD+252 02064000 SAVTNAX EQU IEDNSVTD+248 02065000 SAVTSUBV EQU IEDNSVTD+247 02066000 SAVTSUBA EQU IEDNSVTD+246 02067000 SAVTSIBC EQU IEDNSVTD+244 02068000 SAVTBSM EQU IEDNSVTD+240 02069000 SAVTSCPT EQU SAVTTCPU 02070000 SAVTRQTG EQU IEDNSVTD+236 02071000 SAVTRQCH EQU IEDNSVTD+232 02072000 SAVTMAND EQU IEDNSVTD+228 02073000 SAVTSPLN EQU IEDNSVTD+224 02074000 SAVTNADL EQU IEDNSVTD+222 02075000 SAVTNATL EQU IEDNSVTD+220 02076000 SAVTMHTB EQU IEDNSVTD+216 02077000 SAVTSSMH EQU IEDNSVTD+212 02078000 SAVTQRS EQU IEDNSVTD+208 02079000 SAVTRQIN EQU IEDNSVTD+204 02080000 SAVTDFCO EQU IEDNSVTD+200 02081000 SAVTSAO EQU IEDNSVTD+196 02082000 SAVTSARI EQU IEDNSVTD+192 02083000 SAVTSAC EQU IEDNSVTD+188 02084000 SAVTSAI EQU IEDNSVTD+184 02085000 SAVTCSCI EQU IEDNSVTD+180 02086000 SAVTSSRP EQU IEDNSVTD+176 02087000 SAVTSSRQ EQU IEDNSVTD+172 02088000 SAVTSCLU EQU IEDNSVTD+168 02089000 SAVTXTRQ EQU IEDNSVTD+164 02090000 SAVTMVBF EQU IEDNSVTD+160 02091000 @NM00097 EQU IEDNSVTD+148 02092000 SAVTIPCQ EQU IEDNSVTD+144 02093000 @NM00096 EQU IEDNSVTD+136 02094000 SAVTXFMI EQU IEDNSVTD+132 02095000 @NM00095 EQU IEDNSVTD+124 02096000 SAVTXFMO EQU IEDNSVTD+120 02097000 @NM00094 EQU IEDNSVTD+116 02098000 SAVTSSSR EQU IEDNSVTD+112 02099000 SAVTSCPQ EQU IEDNSVTD+108 02100000 SAVTSLCB EQU IEDNSVTD+104 02101000 SAVTLUSR EQU IEDNSVTD+100 02102000 @NM00093 EQU SAVTLUSQ+8 02103000 SAVTLUSP EQU SAVTLUSQ+4 02104000 SAVTLUSB EQU SAVTLUSQ 02105000 @NM00092 EQU IEDNSVTD+84 02106000 SAVTSAT EQU IEDNSVTD+80 02107000 SAVTNAT EQU IEDNSVTD+76 02108000 SAVTCLUP EQU IEDNSVTD+72 02109000 SAVTPIUT EQU IEDNSVTD+68 02110000 SAVTRNTA EQU IEDNSVTD+64 02111000 SAVTDNIR EQU IEDNSVTD+60 02112000 SAVTCNIR EQU IEDNSVTD+56 02113000 SAVTFLDH EQU IEDNSVTD+52 02114000 SAVTSRTN EQU IEDNSVTD+48 02115000 SAVTSREQ EQU IEDNSVTD+44 02116000 SAVTFAIL EQU IEDNSVTD+42 02117000 SAVTSUSE EQU IEDNSVTD+40 02118000 SAVTSIB EQU IEDNSVTD+36 02119000 SAVTPRTN EQU IEDNSVTD+32 02120000 @NM00091 EQU IEDNSVTD+28 02121000 SAVTWH20 EQU IEDNSVTD+26 02122000 SAVTPWT EQU IEDNSVTD+24 02123000 SAVTPRTQ EQU IEDNSVTD+20 02124000 SAVTPREQ EQU IEDNSVTD+16 02125000 SAVTPH20 EQU IEDNSVTD+14 02126000 SAVTPUSE EQU IEDNSVTD+12 02127000 SAVTPLCB EQU IEDNSVTD+8 02128000 SAVTPOOL EQU IEDNSVTD+4 02129000 SAVTPRMT EQU SAVTDIAF 02130000 SAVTVIRT EQU SAVTDIAF 02131000 AVTCPBNO EQU IEDQAVTD+1244 02132000 AVTHRESS EQU IEDQAVTD+1243 02133000 @NM00090 EQU IEDQAVTD+1242 02134000 @NM00089 EQU IEDQAVTD+1241 02135000 @NM00088 EQU IEDQAVTD+1240 02136000 @NM00087 EQU IEDQAVTD+1237 02137000 @NM00086 EQU IEDQAVTD+1236 02138000 AVTHRESE EQU @NM00085 02139000 AVTRADDR EQU IEDQAVTD+1228 02140000 AVTNADDR EQU IEDQAVTD+1224 02141000 AVTHRESN EQU IEDQAVTD+1220 02142000 AVTVOLRN EQU IEDQAVTD+1216 02143000 AVTTOTNN EQU IEDQAVTD+1212 02144000 AVTTRCYN EQU IEDQAVTD+1208 02145000 AVTRCTRN EQU IEDQAVTD+1204 02146000 AVTNOVON EQU IEDQAVTD+1200 02147000 AVTADEBN EQU IEDQAVTD+1196 02148000 AVTVOLRR EQU IEDQAVTD+1192 02149000 AVTTOTNR EQU IEDQAVTD+1188 02150000 AVTTRCYR EQU IEDQAVTD+1184 02151000 AVTRCTRR EQU IEDQAVTD+1180 02152000 AVTNOVOR EQU IEDQAVTD+1176 02153000 AVTADEBR EQU IEDQAVTD+1172 02154000 AVTLODPT EQU IEDQAVTD+1168 02155000 AVTIOBN EQU IEDQAVTD+1164 02156000 AVTIOBR EQU IEDQAVTD+1160 02157000 AVTCPBPT EQU IEDQAVTD+1156 02158000 AVTFCPB EQU IEDQAVTD+1152 02159000 @NM00084 EQU IEDQAVTD+1148 02160000 AVTINCPQ EQU IEDQAVTD+1144 02161000 @NM00083 EQU IEDQAVTD+1140 02162000 @NM00082 EQU IEDQAVTD+1137 02163000 @NM00081 EQU AVTBIT4 02164000 @NM00080 EQU AVTBIT4 02165000 @NM00079 EQU AVTBIT4 02166000 @NM00078 EQU AVTBIT4 02167000 @NM00077 EQU AVTBIT4 02168000 @NM00076 EQU AVTBIT4 02169000 @NM00075 EQU AVTBIT4 02170000 AVTRUFTN EQU AVTBIT4 02171000 @NM00074 EQU IEDQAVTD+1132 02172000 AVTNOBFQ EQU IEDQAVTD+1128 02173000 @NM00073 EQU IEDQAVTD+1124 02174000 AVTDKENQ EQU IEDQAVTD+1120 02175000 @NM00072 EQU IEDQAVTD+1116 02176000 AVTDKAPQ EQU IEDQAVTD+1112 02177000 AVTCOPY EQU IEDQAVTD+1108 02178000 AVTIA EQU IEDQAVTD+1104 02179000 AVTFL EQU IEDQAVTD+1100 02180000 @NM00071 EQU IEDQAVTD+1096 02181000 AVTNCPBQ EQU IEDQAVTD+1092 02182000 AVTTOTNC EQU IEDQAVTD+1088 02183000 AVTCMAX EQU IEDQAVTD+1084 02184000 AVTCMIN EQU IEDQAVTD+1080 02185000 AVTHM02 EQU IEDQAVTD+1076 02186000 AVTDCTLN EQU IEDQAVTD+1072 02187000 AVTOPMSK EQU IEDQAVTD+1068 02188000 AVTDDFT EQU IEDQAVTD+1064 02189000 AVTSTEAL EQU IEDQAVTD+1060 02190000 AVTOPTN EQU IEDQAVTD+1056 02191000 AVTDSKCT EQU IEDQAVTD+1054 02192000 AVTCKRST EQU IEDQAVTD+1053 02193000 AVTSTAN EQU AVTBIT3 02194000 AVTSTACN EQU AVTBIT3 02195000 AVTSTAIN EQU AVTBIT3 02196000 AVTSTAYN EQU AVTBIT3 02197000 AVTOLTBN EQU AVTBIT3 02198000 AVTTSAB EQU AVTBIT3 02199000 AVTRFULN EQU AVTBIT3 02200000 AVTRECVN EQU AVTBIT3 02201000 @NM00070 EQU AVTBIT2 02202000 @NM00069 EQU AVTBIT2 02203000 AVTOPEIN EQU AVTBIT2 02204000 AVTSTRTN EQU AVTBIT2 02205000 AVTTOPOL EQU AVTBIT2 02206000 AVTCOPYN EQU AVTBIT2 02207000 AVTREUSN EQU AVTBIT2 02208000 AVTEXTSC EQU AVTBIT2 02209000 AVTDISKN EQU AVTBIT1 02210000 AVTQUCKN EQU AVTBIT1 02211000 AVTCLOSN EQU AVTBIT1 02212000 AVTREADN EQU AVTBIT1 02213000 AVTDLAYN EQU AVTBIT1 02214000 AVTAQTAN EQU AVTBIT1 02215000 AVTTSON EQU AVTBIT1 02216000 AVTAPLKN EQU AVTBIT1 02217000 AVTDUMBR EQU IEDQAVTD+1048 02218000 AVTDLQX EQU IEDQAVTD+1046 02219000 AVTINTLV EQU IEDQAVTD+1044 02220000 AVTSMCNT EQU IEDQAVTD+1042 02221000 AVTAVFCT EQU IEDQAVTD+1040 02222000 AVTOPCNT EQU IEDQAVTD+1036 02223000 AVTLNCNT EQU IEDQAVTD+1034 02224000 AVTKEYLE EQU IEDQAVTD+1032 02225000 AVTHA16 EQU IEDQAVTD+1030 02226000 AVTHA7 EQU IEDQAVTD+1028 02227000 AVTHA4 EQU IEDQAVTD+1026 02228000 AVTHA3 EQU IEDQAVTD+1024 02229000 AVTHA2 EQU IEDQAVTD+1022 02230000 AVTGETMS EQU IEDQAVTD+1021 02231000 @NM00068 EQU IEDQAVTD+1020 02232000 AVTGETMD EQU IEDQAVTD+1016 02233000 AVTGETMN EQU IEDQAVTD+1012 02234000 AVTCWTOT EQU IEDQAVTD+1008 02235000 AVTCWINT EQU IEDQAVTD+956 02236000 AVTDTRAP EQU IEDQAVTD+952 02237000 @NM00067 EQU IEDQAVTD+950 02238000 @NM00066 EQU AVTIOTR 02239000 AVTIOTRH EQU AVTIOTR 02240000 AVTIOTRE EQU AVTIOTR 02241000 @NM00065 EQU AVTSUBT 02242000 AVTSUBPT EQU AVTSUBT 02243000 AVTSUBON EQU AVTSUBT 02244000 AVTAFE30 EQU IEDQAVTD+944 02245000 AVTAFE20 EQU IEDQAVTD+940 02246000 AVTAFE10 EQU IEDQAVTD+936 02247000 AVTCWEC2 EQU IEDQAVTD+932 02248000 AVTCWPM2 EQU IEDQAVTD+928 02249000 AVTCWTS2 EQU IEDQAVTD+927 02250000 AVTCWTS1 EQU IEDQAVTD+926 02251000 AVTCWCLD EQU AVTCWFL2 02252000 AVTCWRAP EQU AVTCWFL2 02253000 @NM00064 EQU AVTCWFL2 02254000 @NM00063 EQU AVTCWFL2 02255000 @NM00062 EQU AVTCWFL2 02256000 @NM00061 EQU AVTCWFL2 02257000 @NM00060 EQU AVTCWFL2 02258000 AVTCWACT EQU AVTCWFL2 02259000 @NM00059 EQU AVTCWFL1 02260000 @NM00058 EQU AVTCWFL1 02261000 @NM00057 EQU AVTCWFL1 02262000 @NM00056 EQU AVTCWFL1 02263000 @NM00055 EQU AVTCWFL1 02264000 @NM00054 EQU AVTCWFL1 02265000 @NM00053 EQU AVTCWFL1 02266000 AVTCOMWN EQU AVTCWFL1 02267000 AVTCWEC1 EQU IEDQAVTD+920 02268000 AVTCWPM1 EQU IEDQAVTD+916 02269000 AVTCAREA EQU IEDQAVTD+912 02270000 AVTFZERO EQU IEDQAVTD+908 02271000 AVTCADDR EQU IEDQAVTD+904 02272000 AVTCOREC EQU IEDQAVTD+900 02273000 @NM00052 EQU IEDQAVTD+892 02274000 AVTCPBCB EQU IEDQAVTD+888 02275000 @NM00051 EQU IEDQAVTD+880 02276000 AVTDSIOB EQU IEDQAVTD+876 02277000 @NM00050 EQU IEDQAVTD+868 02278000 AVTCPRMB EQU IEDQAVTD+864 02279000 @NM00049 EQU IEDQAVTD+856 02280000 AVTCLOSB EQU IEDQAVTD+852 02281000 @NM00048 EQU IEDQAVTD+844 02282000 AVTACTIB EQU IEDQAVTD+840 02283000 @NM00047 EQU IEDQAVTD+836 02284000 AVTOLTEB EQU IEDQAVTD+832 02285000 AVTOLTCH EQU AVTOLTQB+1 02286000 AVTOLTVT EQU AVTOLTQB 02287000 @NM00046 EQU AVTOPCQB+8 02288000 @NM00045 EQU AVTOPCEC+1 02289000 @NM00044 EQU AVTOPCCC 02290000 AVTOPCPO EQU AVTOPCCC 02291000 AVTOPCWA EQU AVTOPCCC 02292000 AVTOPCCH EQU AVTOPCOB+1 02293000 AVTOPCVT EQU AVTOPCOB 02294000 @NM00043 EQU AVTCKPQB+9 02295000 AVTCKPTS EQU AVTCKPQB+8 02296000 @NM00042 EQU AVTCKPEC+1 02297000 @NM00041 EQU AVTCKPCC 02298000 AVTCKPPO EQU AVTCKPCC 02299000 AVTCKPWA EQU AVTCKPCC 02300000 AVTCKPCH EQU AVTCKPTB+1 02301000 AVTCKPVT EQU AVTCKPTB 02302000 @NM00040 EQU IEDQAVTD+796 02303000 AVTBFRTB EQU IEDQAVTD+792 02304000 @NM00039 EQU IEDQAVTD+784 02305000 AVTBFREB EQU IEDQAVTD+780 02306000 AVTTIMQ EQU IEDQAVTD+776 02307000 @NM00038 EQU IEDQAVTD+772 02308000 AVTIMQPS EQU IEDQAVTD+768 02309000 AVTINOUT EQU IEDQAVTD+766 02310000 AVTREFTM EQU IEDQAVTD+764 02311000 @NM00037 EQU IEDQAVTD+752 02312000 AVTDELYB EQU IEDQAVTD+748 02313000 AVTOCQPT EQU IEDQAVTD+744 02314000 AVTTSOPT EQU IEDQAVTD+740 02315000 AVTSUPPT EQU IEDQAVTD+736 02316000 AVTCBQCB EQU IEDQAVTD+732 02317000 AVTMSGS EQU IEDQAVTD+729 02318000 @NM00036 EQU AVTSYSER 02319000 @NM00035 EQU AVTSYSER 02320000 @NM00034 EQU AVTSYSER 02321000 @NM00033 EQU AVTSYSER 02322000 @NM00032 EQU AVTSYSER 02323000 @NM00031 EQU AVTSYSER 02324000 AVTCMAXN EQU AVTSYSER 02325000 AVTCMINN EQU AVTSYSER 02326000 AVT2260L EQU IEDQAVTD+724 02327000 AVTABEPL EQU AVTADBUF 02328000 AVTHFF EQU AVTCLRHI+2 02329000 @NM00030 EQU AVTCLRHI 02330000 AVTCCLNK EQU AVTCRELE+5 02331000 AVTCCPRI EQU AVTCRELE+4 02332000 AVTCCQCB EQU AVTCCELE+1 02333000 AVTCCKEY EQU AVTCCELE 02334000 AVTDELAD EQU IEDQAVTD+704 02335000 AVTDELEM EQU IEDQAVTD+700 02336000 AVTBSX EQU AVTCKLNK 02337000 AVTOPETR EQU AVTHG01 02338000 @NM00029 EQU AVTCKBYT 02339000 AVTCKONQ EQU AVTCKBYT 02340000 @NM00028 EQU AVTCKBYT 02341000 @NM00027 EQU AVTCKBYT 02342000 @NM00026 EQU AVTCKBYT 02343000 @NM00025 EQU AVTCKBYT 02344000 @NM00024 EQU AVTCKBYT 02345000 @NM00023 EQU AVTCKBYT 02346000 AVTOPERT EQU IEDQAVTD+690 02347000 AVTOPXCL EQU IEDQAVTD+688 02348000 AVTOPERL EQU IEDQAVTD+687 02349000 @NM00022 EQU IEDQAVTD+686 02350000 AVTCKTIM EQU IEDQAVTD+684 02351000 AVTCKELV EQU IEDQAVTD+682 02352000 AVTCPRCD EQU IEDQAVTD+681 02353000 AVTWARMN EQU AVTCKELF 02354000 AVTCRTLN EQU AVTCKELF 02355000 AVTCPIPN EQU AVTCKELF 02356000 AVTCCLCN EQU AVTCKELF 02357000 AVTCINCN EQU AVTCKELF 02358000 @NM00021 EQU AVTCKELF 02359000 AVTCMCPN EQU AVTCKELF 02360000 AVTNQBCK EQU AVTCKELF 02361000 AVTCKQAD EQU IEDQAVTD+677 02362000 AVTSCBSZ EQU IEDQAVTD+676 02363000 @NM00020 EQU IEDQAVTD+672 02364000 AVTCKELE EQU IEDQAVTD+668 02365000 @NM00019 EQU AVTCKPEL+8 02366000 AVTCKRLK EQU AVTCKPEL+5 02367000 AVTCKRPR EQU AVTCKPEL+4 02368000 AVTCKRMQ EQU AVTCKRMV+1 02369000 AVTCKRKY EQU AVTCKRMV 02370000 AVTHK EQU IEDQAVTD+648 02371000 AVTHI EQU IEDQAVTD+644 02372000 AVTIOT EQU IEDQAVTD+640 02373000 AVTNX EQU IEDQAVTD+636 02374000 AVTTONE EQU IEDQAVTD+632 02375000 AVTA3TL EQU IEDQAVTD+628 02376000 AVTDMECB EQU IEDQAVTD+624 02377000 AVTABEND EQU IEDQAVTD+618 02378000 AVTPLCBN EQU IEDQAVTD+616 02379000 @NM00018 EQU AVTSAVTP+1 02380000 @NM00017 EQU AVTSAVTF 02381000 AVTSNA EQU AVTSAVTF 02382000 AVTONSNA EQU AVTSAVTF 02383000 AVTVTMCP EQU AVTSAVTF 02384000 @NM00016 EQU IEDQAVTD+608 02385000 AVTCMBSS EQU IEDQAVTD+604 02386000 AVTRCV EQU IEDQAVTD+600 02387000 AVTSEND EQU IEDQAVTD+596 02388000 AVTCSCH EQU IEDQAVTD+592 02389000 AVTQ1 EQU IEDQAVTD+588 02390000 AVTE7 EQU IEDQAVTD+584 02391000 AVTHB EQU IEDQAVTD+580 02392000 AVTR1 EQU IEDQAVTD+576 02393000 AVTBZ EQU IEDQAVTD+572 02394000 AVTEZ EQU IEDQAVTD+568 02395000 AVTEC EQU IEDQAVTD+564 02396000 AVTEW EQU IEDQAVTD+560 02397000 AVTNDIAL EQU AVTSCOPT 02398000 AVTN2741 EQU AVTSCOPT 02399000 AVTCONCO EQU AVTSCOPT 02400000 AVTCONC EQU AVTSCOPT 02401000 AVTCMBUF EQU AVTSCOPT 02402000 AVTAPDMP EQU AVTSCOPT 02403000 @NM00015 EQU AVTSCOPT 02404000 AVTHA EQU AVTDISP 02405000 AVTEA EQU IEDQAVTD+548 02406000 AVTAX EQU IEDQAVTD+544 02407000 AVTA3 EQU IEDQAVTD+540 02408000 AVTGD EQU IEDQAVTD+536 02409000 AVTAL EQU IEDQAVTD+532 02410000 AVTOLTST EQU AVTHG02 02411000 AVTE8 EQU IEDQAVTD+524 02412000 AVTUI EQU IEDQAVTD+520 02413000 AVTCOMPT EQU IEDQAVTD+516 02414000 AVTCRSRF EQU IEDQAVTD+512 02415000 @NM00014 EQU IEDQAVTD+508 02416000 AVTKA02 EQU IEDQAVTD+504 02417000 AVTOPTPT EQU IEDQAVTD+500 02418000 AVTPCBPT EQU IEDQAVTD+496 02419000 @NM00013 EQU AVTECB1 02420000 AVTCOMP EQU AVTECB1 02421000 @NM00012 EQU AVTECB1 02422000 AVTOPECA EQU IEDQAVTD+488 02423000 AVTOLECA EQU IEDQAVTD+484 02424000 AVTCKECA EQU IEDQAVTD+480 02425000 AVTCWECA EQU IEDQAVTD+476 02426000 AVTCWTCB EQU IEDQAVTD+472 02427000 AVTOLTCB EQU IEDQAVTD+468 02428000 AVTOCTCB EQU IEDQAVTD+464 02429000 AVTCKTCB EQU IEDQAVTD+460 02430000 AVTAS EQU IEDQAVTD+456 02431000 AVTNOLBF EQU IEDQAVTD+454 02432000 AVTNCKPR EQU IEDQAVTD+453 02433000 AVTCIB EQU IEDQAVTD+452 02434000 AVTSPLPT EQU IEDQAVTD+448 02435000 AVTMVBFR EQU IEDQAVTD+444 02436000 AVTSBTA EQU IEDQAVTD+440 02437000 AVTRARTN EQU IEDQAVTD+436 02438000 AVTBSCAN EQU IEDQAVTD+432 02439000 AVTRDYA EQU IEDQAVTD+428 02440000 AVTRNMPT EQU IEDQAVTD+424 02441000 AVTDISTR EQU IEDQAVTD+420 02442000 AVTPARM3 EQU IEDQAVTD+416 02443000 @NM00011 EQU AVTPKF 02444000 @NM00010 EQU AVTPKF 02445000 @NM00009 EQU AVTPKF 02446000 AVTFTCHF EQU AVTPKF 02447000 @NM00008 EQU AVTPKF 02448000 @NM00007 EQU AVTPKF 02449000 @NM00006 EQU AVTPKF 02450000 @NM00005 EQU AVTPKF 02451000 AVTPARM EQU IEDQAVTD+408 02452000 AVTEXS2A EQU IEDQAVTD+402 02453000 AVTEXA2S EQU IEDQAVTD+396 02454000 AVTOCGET EQU IEDQAVTD+392 02455000 AVTCKAVT EQU @NM00003+1 02456000 @NM00004 EQU AVTCKFLG 02457000 AVTCKHLT EQU AVTCKFLG 02458000 AVTCKREQ EQU AVTCKFLG 02459000 AVTCKENV EQU AVTCKFLG 02460000 AVTCKNAC EQU AVTCKFLG 02461000 AVTCKTAC EQU AVTCKFLG 02462000 @NM00002 EQU IEDQAVTD+384 02463000 AVTREADD EQU IEDQAVTD+380 02464000 AVTREADY EQU IEDQAVTD+376 02465000 AVTRACE EQU IEDQAVTD+372 02466000 AVTTCB EQU IEDQAVTD+368 02467000 AVTPASWD EQU IEDQAVTD+360 02468000 AVTCTLCH EQU IEDQAVTD+352 02469000 AVTDOUBL EQU IEDQAVTD+344 02470000 AVTDOUBX EQU IEDQAVTD+336 02471000 AVTDPARM EQU IEDQAVTD+332 02472000 AVTCSTCS EQU IEDQAVTD+328 02473000 AVTDLQ EQU AVTSAVEX+32 02474000 @NM00001 EQU AVTSAVEX 02475000 AVTSAVE4 EQU IEDQAVTD+216 02476000 AVTSAVE3 EQU IEDQAVTD+144 02477000 AVTSAVE2 EQU IEDQAVTD+72 02478000 AVTSAVE1 EQU IEDQAVTD 02479000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02480000 @PB00004 EQU @EL00001 02481000 @PB00003 EQU @PB00004 02482000 @PB00002 EQU @PB00003 02483000 @ENDDATA EQU * 02484000 END IGCMI10D,(C'PLS1607',0701,77174) 02485000