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