TITLE 'IGCVA10D, S/S 3705 GEN POLL *00001000 ' 00002000 IGCVA10D CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 * 0439 00007000 * /*****************************************************************/ 00008000 * /* */ 00009000 * /* INITIALIZATION */ 00010000 * /* */ 00011000 * /*****************************************************************/ 00012000 * 0439 00013000 * ROPCAVT=RPARM; /* BASE FOR OP CONTROL */ 00014000 LR ROPCAVT,RPARM 0439 00015000 * RAVT=OPCAVTPT; /* BASE FOR TCAM AVT */ 00016000 L RAVT,OPCAVTPT(,ROPCAVT) 0440 00017000 * ROPCE=OPCCOPCE; /* OPCE ADDR */ 00018000 L ROPCE,OPCCOPCE(,ROPCAVT) 0441 00019000 * RSAVE=ADDR(OPCSAVE); /* SAVE AREA ADDR */ 00020000 LA RSAVE,OPCSAVE(,ROPCAVT) 0442 00021000 * OPCFLAG1=0; /* CLEAR INTERNAL INDICATOR */ 00022000 MVI OPCFLAG1(ROPCAVT),X'00' 0443 00023000 * GEN NOREFS NOSETS NOEXIT SEQFLOW; 0444 00024000 IGCVA10D IEDHJN SKIPID,HJN 00025000 * 0445 00026000 * /*****************************************************************/ 00027000 * /* */ 00028000 * /* MAIN PROGRAM LOGIC */ 00029000 * /* */ 00030000 * /*****************************************************************/ 00031000 * 0445 00032000 * IF OPREPRI=PRIMEDFG&OPREFLG1=OPRVAVF THEN 0445 00033000 CLI OPREPRI(ROPCE),X'DF' 0445 00034000 BNE @RF00445 0445 00035000 CLI OPREFLG1(ROPCE),X'0B' 0445 00036000 BNE @RF00445 0445 00037000 * CALL PROCRQST; /* PROCESS INIT REQUEST IF 0446 00038000 * INDICATED BY PRIORITY/FLAG */ 00039000 BAL @14,PROCRQST 0446 00040000 * ELSE 0447 00041000 * IF OPREPRI=PRIPLCB THEN 0447 00042000 B @RC00445 0447 00043000 @RF00445 CLI OPREPRI(ROPCE),X'E8' 0447 00044000 BNE @RF00447 0447 00045000 * CALL PROCPLCB; /* PROCESS PLCB IF INDICATED BY 00046000 * PRIORITY */ 00047000 BAL @14,PROCPLCB 0448 00048000 * ELSE 0449 00049000 * IF OPREPRI=PRIMEDFG&OPREFLG1=OPRVA THEN 0449 00050000 B @RC00447 0449 00051000 @RF00447 CLI OPREPRI(ROPCE),X'DF' 0449 00052000 BNE @RF00449 0449 00053000 CLI OPREFLG1(ROPCE),X'06' 0449 00054000 BNE @RF00449 0449 00055000 * CALL STPLBFR; /* PROCESS BUFFER FROM STOPLINE 00056000 * IF INDICATED BY PRIORITY/FLAG */ 00057000 BAL @14,STPLBFR 0450 00058000 * ELSE 0451 00059000 * CALL RQSTBFR; /* OTHERWISE PROCESS RETURNED 0451 00060000 * REQUEST BUFFER FROM TCAM TASK 00061000 * GENERAL POLL RTN-IEDNSL. 0451 00062000 * PRIORITY/FLAG OF THIS BUFFER 00063000 * IS X'DF'/X'15'. */ 00064000 * 0451 00065000 B @RC00449 0451 00066000 @RF00449 BAL @14,RQSTBFR 0451 00067000 * /*****************************************************************/ 00068000 * /* */ 00069000 * /* EXIT LOGIC */ 00070000 * /* */ 00071000 * /*****************************************************************/ 00072000 * 0452 00073000 * OPCFLAG1=0; /* CLEAR INTERNAL SWITCHES */ 00074000 @RC00449 DS 0H 0452 00075000 @RC00447 DS 0H 0452 00076000 @RC00445 MVI OPCFLAG1(ROPCAVT),X'00' 0452 00077000 * RPARM=ROPCAVT; /* SET UP TO PASS OPCAVT AD */ 00078000 LR RPARM,ROPCAVT 0453 00079000 * GEN EXIT REFS(OPCXCTL); 0454 00080000 * /*GENERATE EXIT CODE */ 00081000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00082000 * 0455 00083000 * /*****************************************************************/ 00084000 * /* */ 00085000 * /* PROCESS INITIAL REQUEST */ 00086000 * /* */ 00087000 * /*****************************************************************/ 00088000 * 0455 00089000 *PROCRQST: 0455 00090000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0455 00091000 @EL00001 DS 0H 0455 00092000 @EF00001 DS 0H 0455 00093000 @ER00001 BR @14 0455 00094000 PROCRQST DS 0H 0456 00095000 * OPCWRKSP(1)=RRET; /* SAVE RETURN ADDR */ 00096000 ST RRET,OPCWRKSP(,ROPCAVT) 0456 00097000 * RTERM=TTEADDR; /* CLUSTER TERM ENTRY ADDRESS */ 00098000 * 0457 00099000 L RTERM,TTEADDR(,ROPCE) 0457 00100000 * /*****************************************************************/ 00101000 * /* */ 00102000 * /* RESTART PROCESSING */ 00103000 * /* */ 00104000 * /*****************************************************************/ 00105000 * 0458 00106000 * IF OPCRSTRT=ON THEN 0458 00107000 TM OPCRSTRT(ROPCAVT),B'00100000' 0458 00108000 BNO @RF00458 0458 00109000 * CALL RESTART; /* RESTART IN PROGRESS */ 00110000 BAL @14,RESTART 0459 00111000 * ELSE 0460 00112000 * DO; /* PROCESS REQUEST */ 00113000 * 0460 00114000 B @RC00458 0460 00115000 @RF00458 DS 0H 0461 00116000 * /*************************************************************/ 00117000 * /* */ 00118000 * /* NON-RESTART PROCESSING VERIFY CLUSTER IS NOT IN REQUESTED */ 00119000 * /* STATE ALREADY */ 00120000 * /* */ 00121000 * /*************************************************************/ 00122000 * 0461 00123000 * CALL STATECHK; /* CHECK CLUSTER STATUS */ 00124000 BAL @14,STATECHK 0461 00125000 * IF EXITFLAG=OFF THEN 0462 00126000 TM EXITFLAG(ROPCAVT),B'10000000' 0462 00127000 BNZ @RF00462 0462 00128000 * DO; /* NO TERMINAL ERRORS YET */ 00129000 * 0463 00130000 * /*********************************************************/ 00131000 * /* */ 00132000 * /* VERIFY HIERARCHY IS IN TACT */ 00133000 * /* */ 00134000 * /*********************************************************/ 00135000 * 0464 00136000 * IF TRMSUBST=0 THEN 0464 00137000 LR @15,RTERM 0464 00138000 BCTR @15,0 0464 00139000 BCTR @15,0 0464 00140000 LH @15,TRMSUBST-12(,@15) 0464 00141000 N @15,@CF03955 0464 00142000 LTR @15,@15 0464 00143000 BNZ @RF00464 0464 00144000 * DO; /* HIERARCHY NOT IN PLACE */ 00145000 * RZERO=MSG533; /* CLUSTER WITH NO TERMINALS */ 00146000 LA RZERO,533 0466 00147000 * CALL ERRPROC; 0467 00148000 * 0467 00149000 BAL @14,ERRPROC 0467 00150000 * /*****************************************************/ 00151000 * /* */ 00152000 * /* THE FOLLOWING CODE WILL GET THE CLUSTER NAME FROM */ 00153000 * /* TNT */ 00154000 * /* */ 00155000 * /*****************************************************/ 00156000 * 0468 00157000 * RESPECIFY 0468 00158000 * (RQCB, 0468 00159000 * RTNT) RSTD; 0468 00160000 * RQCB=TRMDESTQ; /* GET QCB FOR CLUSTER */ 00161000 L RQCB,TRMDESTQ-1(,RTERM) 0469 00162000 LA RQCB,0(,RQCB) 0469 00163000 * IF QCBPLCBN=ON THEN /* IF QCB POINTS TO AN LCB THEN 00164000 * @XM05703*/ 00165000 LR @15,IEDQQPTR 0470 00166000 SL @15,@CF00046 0470 00167000 TM QCBPLCBN(@15),B'10000000' 0470 00168000 BNO @RF00470 0470 00169000 * RPARM=QCBPLCBA->LCBTTCIN;/* GET TNT INDEX FROM LCB 00170000 * @XM05703*/ 00171000 L @15,QCBPLCBA-1(,@15) 0471 00172000 LH RPARM,LCBTTCIN(,@15) 0471 00173000 N RPARM,@CF03955 0471 00174000 * ELSE /* @XM05703*/ 00175000 * IF QCBWAITC=ON THEN/* IF QCB POINTS TO A PIU CHAIN 00176000 * THEN @XM05703*/ 00177000 B @RC00470 0472 00178000 @RF00470 LR @15,IEDQQPTR 0472 00179000 SL @15,@CF00046 0472 00180000 TM QCBWAITC(@15),B'01000000' 0472 00181000 BNO @RF00472 0472 00182000 * DO; /* @XM05703*/ 00183000 * RPARM=QCBPLCBA;/* POINT TO FIRST PIU @XM05703*/ 00184000 L RPARM,QCBPLCBA-1(,@15) 0474 00185000 LA RPARM,0(,RPARM) 0474 00186000 * RFY 0475 00187000 * IEDQPRF BASED(RPARM);/* @XM05703*/ 00188000 * RPARM=ADDR(PRFPIUO)+PRFPIUO;/* POINT TO TH 0476 00189000 * @XM05703*/ 00190000 LA @15,PRFPIUO(,RPARM) 0476 00191000 SLR @09,@09 0476 00192000 IC @09,PRFPIUO(,RPARM) 0476 00193000 ALR @15,@09 0476 00194000 LR RPARM,@15 0476 00195000 * RPARM=RPARM->TTHOAF;/* TNT INDEX FROM PIU OAF 00196000 * @XM05703*/ 00197000 SLR @15,@15 0477 00198000 ICM @15,3,TTHOAF(RPARM) 0477 00199000 LR RPARM,@15 0477 00200000 * END; /* @XM05703*/ 00201000 * ELSE /* @XM05703*/ 00202000 * RPARM=QCBTTCIN; /* ELSE GET TNT INDEX FROM THE 0479 00203000 * QCB @XM05703*/ 00204000 B @RC00472 0479 00205000 @RF00472 LR @15,IEDQQPTR 0479 00206000 BCTR @15,0 0479 00207000 BCTR @15,0 0479 00208000 LH RPARM,QCBTTCIN-6(,@15) 0479 00209000 * CALL TNTENTAD; /* CONVERT TTCIN TO ENTRY ADDR */ 00210000 @RC00472 DS 0H 0480 00211000 @RC00470 L @15,OPCTNTEA(,ROPCAVT) 0480 00212000 BALR @14,@15 0480 00213000 * RTNT=AVTRNMPT; /* GET TNT TABLE ADDR */ 00214000 L RTNT,AVTRNMPT(,IEDQAPTR) 0481 00215000 * OCBACKUP=RPARM->NAME(1:TNTENLEN);/* MOVE VARIABLE 0482 00216000 * LENGTH NAME */ 00217000 MVI OCBACKUP+1(ROPCE),C' ' 0482 00218000 MVC OCBACKUP+2(6,ROPCE),OCBACKUP+1(ROPCE) 0482 00219000 SLR @15,@15 0482 00220000 IC @15,TNTENLEN(,IEDQNPTR) 0482 00221000 BCTR @15,0 0482 00222000 EX @15,@SM03956 0482 00223000 * RESPECIFY 0483 00224000 * (RQCB, 0483 00225000 * RTNT) UNRSTD; 0483 00226000 * OPCMODID=MOD0H; /* SET UP TO EXIT TO MSG MOD */ 00227000 MVC OPCMODID(2,ROPCAVT),@CC03891 0484 00228000 * END; 0485 00229000 * END; 0486 00230000 @RF00464 DS 0H 0487 00231000 * IF EXITFLAG=OFF THEN 0487 00232000 @RF00462 TM EXITFLAG(ROPCAVT),B'10000000' 0487 00233000 BNZ @RF00487 0487 00234000 * DO; /* STILL NO TERMINAL ERRORS */ 00235000 * 0488 00236000 * /*********************************************************/ 00237000 * /* */ 00238000 * /* FIND NCP TTE, VERIFY IT IS ACTIVE AND */ 00239000 * /* IPL-DUMP-ACTIVATE- DEACTIVATE ARE NOT IN PROGRESS */ 00240000 * /* */ 00241000 * /*********************************************************/ 00242000 * 0489 00243000 * LOOPSW=OFF; /* LOOP CONTROL SW */ 00244000 NI LOOPSW(ROPCAVT),B'10111111' 0489 00245000 * RPARM=RTERM; /* SET TTE TO BE SEARCHED */ 00246000 LR RPARM,RTERM 0490 00247000 * DO UNTIL(LOOPSW=ON); /* LOOP UNTIL NCP OR ERROR */ 00248000 @DL00491 DS 0H 0492 00249000 * CALL COHORTLK; /* GET NEXT HIGHER RESOURCE */ 00250000 L @15,OPCHORT(,ROPCAVT) 0492 00251000 BALR @14,@15 0492 00252000 * RWORK7=RPARM-LENGTH(IEDNTRM);/* LOOK AT NEG PREFIX */ 00253000 LR RWORK7,RPARM 0493 00254000 SL RWORK7,@CF02275 0493 00255000 * IF RWORK7->TRMTYPE=TRMLNCP THEN/* NCP TTE FOUND,CHECK 00256000 * FURTHER */ 00257000 CLI TRMTYPE(RWORK7),X'0F' 0494 00258000 BNE @RF00494 0494 00259000 * LOOPSW=ON; /* EXIT LOOP */ 00260000 OI LOOPSW(ROPCAVT),B'01000000' 0495 00261000 * END; 0496 00262000 @RF00494 DS 0H 0496 00263000 @DE00491 TM LOOPSW(ROPCAVT),B'01000000' 0496 00264000 BNO @DL00491 0496 00265000 * IF RWORK7->TRMRSACT=OFF THEN 0497 00266000 TM TRMRSACT(RWORK7),B'10000000' 0497 00267000 BNZ @RF00497 0497 00268000 * DO; /* NCP NOT ACTIVE */ 00269000 * RZERO=MSG400; /* NCP NOT ACTIVE MSG */ 00270000 LA RZERO,400 0499 00271000 * CALL ERRPROC; /* ERROR SET UP */ 00272000 BAL @14,ERRPROC 0500 00273000 * OPCMODID=MOD03; /* SET UP CORRECT ERROR EXIT */ 00274000 MVC OPCMODID(2,ROPCAVT),@CC03895 0501 00275000 * END; 0502 00276000 * ELSE 0503 00277000 * IF RWORK7->TRMINPG=ON THEN 0503 00278000 B @RC00497 0503 00279000 @RF00497 TM TRMINPG(RWORK7),B'00100000' 0503 00280000 BNO @RF00503 0503 00281000 * DO; /* IPL-DUMP-ACT-DEACT INPRG */ 00282000 * RZERO=MSG210; /* INPROGRESS MSG */ 00283000 LA RZERO,210 0505 00284000 * CALL ERRPROC; /* ERROR PROCESSING */ 00285000 BAL @14,ERRPROC 0506 00286000 * OPCMODID=MOD03; /* SET UP ERROR EXIT */ 00287000 MVC OPCMODID(2,ROPCAVT),@CC03895 0507 00288000 * END; 0508 00289000 * ELSE 0509 00290000 * DO; 0509 00291000 * 0509 00292000 B @RC00503 0509 00293000 @RF00503 DS 0H 0510 00294000 * /***************************************************/ 00295000 * /* */ 00296000 * /* PUT OPCE ON WAIT CHAIN */ 00297000 * /* */ 00298000 * /***************************************************/ 00299000 * 0510 00300000 * OCWTG='VA'; /* SET FOR VE USE @YM04653*/ 00301000 MVC OCWTG(2,ROPCE),@CC03910 0510 00302000 * OCOPTCDE=OCVARY; /* RESET CMD TYPE @YM06155*/ 00303000 MVI OCOPTCDE(ROPCE),X'28' 0511 00304000 * RWORK7=OPCWAITV; /* GET FIRST OPCE ON CHN */ 00305000 L RWORK7,OPCWAITV(,ROPCAVT) 0512 00306000 * OCLINK=RWORK7; /* CHAIN NEW OPCE IN */ 00307000 ST RWORK7,OCLINK(,ROPCE) 0513 00308000 * OPCWAITV=ROPCE; /* COMPLETE CHAINING */ 00309000 * 0514 00310000 ST ROPCE,OPCWAITV(,ROPCAVT) 0514 00311000 * /***************************************************/ 00312000 * /* */ 00313000 * /* SEND A REQUEST TO NSL FOR START OR STOP GENERAL */ 00314000 * /* POLL */ 00315000 * /* */ 00316000 * /***************************************************/ 00317000 * 0515 00318000 * CALL INITNSL; /* SEND INIT REQUEST */ 00319000 BAL @14,INITNSL 0515 00320000 * END; 0516 00321000 * END; 0517 00322000 @RC00503 DS 0H 0517 00323000 @RC00497 DS 0H 0518 00324000 * END; 0518 00325000 @RF00487 DS 0H 0519 00326000 * RRET=OPCWRKSP(1); /* RESTORE RETURN ADDR */ 00327000 @RC00458 L RRET,OPCWRKSP(,ROPCAVT) 0519 00328000 * RETURN; 0520 00329000 @EL00002 DS 0H 0520 00330000 @EF00002 DS 0H 0520 00331000 @ER00002 BR @14 0520 00332000 * END PROCRQST; 0521 00333000 * 0522 00334000 * /*****************************************************************/ 00335000 * /* */ 00336000 * /* PLCB PROCESSING CALLED FROM MAIN LOGIC */ 00337000 * /* */ 00338000 * /*****************************************************************/ 00339000 * 0522 00340000 *PROCPLCB: 0522 00341000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0522 00342000 PROCPLCB DS 0H 0523 00343000 * OPCWRKSP(1)=RRET; /* SAVE RETURN ADDR */ 00344000 ST RRET,OPCWRKSP(,ROPCAVT) 0523 00345000 * RPARM=LCBTTCIN; /* GET TTCIN TO CONVERT */ 00346000 LH RPARM,LCBTTCIN(,IEDQLPTR) 0524 00347000 N RPARM,@CF03955 0524 00348000 * CALL IEDQTNT; /* CONVERT TTCIN TO TTE */ 00349000 L @15,AVTRNMPT(,IEDQAPTR) 0525 00350000 BALR @14,@15 0525 00351000 * RTERM=RPARM; /* SET UP TTE BASE REG */ 00352000 LR RTERM,RPARM 0526 00353000 * RPARM=RPARM-LENGTH(IEDNTRM); /* BACKUP TO NEG PREFIX */ 00354000 SL RPARM,@CF02275 0527 00355000 * IF RPARM->TRMTYPE=TRMCLUST THEN 0528 00356000 CLI TRMTYPE(RPARM),X'40' 0528 00357000 BNE @RF00528 0528 00358000 * DO; /* IF CLUSTER TTE THEN REQUEST 0529 00359000 * WAS FOR STOP GP */ 00360000 * 0529 00361000 * /*************************************************************/ 00362000 * /* */ 00363000 * /* PLCB RETURNED FROM STOP GENERAL POLL REQUEST */ 00364000 * /* */ 00365000 * /*************************************************************/ 00366000 * 0530 00367000 * OPREQCB=RLCB; /* SET TO POST PLCB TO SELF */ 00368000 STCM RLCB,7,OPREQCB(ROPCE) 0530 00369000 * OPREPRI=PRILNFRE; /* SET POST PRIORITY */ 00370000 MVI OPREPRI(ROPCE),X'E0' 0531 00371000 * RWORK7=LCBTTCIN; /* SAVE TTCIN @OX20795*/ 00372000 LH RWORK7,LCBTTCIN(,IEDQLPTR) 0532 00373000 N RWORK7,@CF03955 0532 00374000 * CALL ADDASYNQ; /* PUT THE PLCB ON ASYN QUE */ 00375000 BAL @14,ADDASYNQ 0533 00376000 * RZERO=RWORK7; /* SET UP TTCIN IN RZERO FOR 0534 00377000 * SEARCH @OX20795*/ 00378000 * 0534 00379000 LR RZERO,RWORK7 0534 00380000 * /*************************************************************/ 00381000 * /* */ 00382000 * /* LOCATE OPCE ON WAITV CHAIN SO THAT ITS ADDRESS CAN BE */ 00383000 * /* STORED IN THE NSL REQUEST BUFFER AND THEN USED LATER ON TO*/ 00384000 * /* MATCH UP BUFFER AND OPCE. @YM04624*/ 00385000 * /* */ 00386000 * /*************************************************************/ 00387000 * 0535 00388000 * RESPECIFY 0535 00389000 * RWORK8 RSTD; /* @YM04624*/ 00390000 * RWORK8=ADDR(OPCWAITV); /* GET DUMMY ELEMENT @YM04624*/ 00391000 LA RWORK8,OPCWAITV(,ROPCAVT) 0536 00392000 * OPCWAITV=OPCWAITV&MASKBYTE; /* AND OFF HI ORDER BYTE */ 00393000 L @15,OPCWAITV(,ROPCAVT) 0537 00394000 N @15,@CF03857 0537 00395000 ST @15,OPCWAITV(,ROPCAVT) 0537 00396000 * RWORK7=OPCWAITV; /* GET FIRST ELEMENT @YM04624*/ 00397000 LR RWORK7,@15 0538 00398000 * DO WHILE(RWORK7->OCTRMTBL^=RZERO&RWORK7^=0);/* LOOK FOR OPCE 00399000 * ON WAIT CHAIN @YM04624*/ 00400000 B @DE00539 0539 00401000 @DL00539 DS 0H 0540 00402000 * RWORK8=RWORK7; /* SET NEW PREVIOUS @YM04624*/ 00403000 LR RWORK8,RWORK7 0540 00404000 * RWORK7=RWORK7->OCLINK; /* GET NEXT OPCE @YM04624*/ 00405000 L RWORK7,OCLINK(,RWORK7) 0541 00406000 * END; /* @YM04624*/ 00407000 @DE00539 LH @15,OCTRMTBL(,RWORK7) 0542 00408000 N @15,@CF03955 0542 00409000 CR RZERO,@15 0542 00410000 BE @DC00539 0542 00411000 LTR RWORK7,RWORK7 0542 00412000 BNZ @DL00539 0542 00413000 @DC00539 DS 0H 0543 00414000 * IF RWORK7=0 THEN 0543 00415000 LTR RWORK7,RWORK7 0543 00416000 BNZ @RF00543 0543 00417000 * DO; /* NO OPCE FOUND @OX20795*/ 00418000 * EXITFLAG=ON; /* INDICATE EXIT @OX20795*/ 00419000 OI EXITFLAG(ROPCAVT),B'10000000' 0545 00420000 * RZERO=0; /* CLEAR RZERO @OX20795*/ 00421000 SLR RZERO,RZERO 0546 00422000 * OPCMODID=MOD00; /* INDICATE EXIT TO 00 @OX20795*/ 00423000 MVC OPCMODID(2,ROPCAVT),@CC03893 0547 00424000 * END; 0548 00425000 * ELSE /* @YM04624*/ 00426000 * DO; /* @OY14490*/ 00427000 B @RC00543 0549 00428000 @RF00543 DS 0H 0550 00429000 * CALL NSLBUILD; /* BUILD REQ TO NSL */ 00430000 BAL @14,NSLBUILD 0550 00431000 * OPCMODID=MOD00; /* SETUP TO GIVE UP CONTROL */ 00432000 MVC OPCMODID(2,ROPCAVT),@CC03893 0551 00433000 * RZERO=0; /* CLEAR */ 00434000 SLR RZERO,RZERO 0552 00435000 * END; /* @OY14490*/ 00436000 * RFY 0554 00437000 * RWORK8 UNRSTD; /* @OY14490*/ 00438000 @RC00543 DS 0H 0555 00439000 * END; 0555 00440000 * ELSE 0556 00441000 * DO; /* PROCESS START GP PLCB */ 00442000 * 0556 00443000 B @RC00528 0556 00444000 @RF00528 DS 0H 0557 00445000 * /*************************************************************/ 00446000 * /* */ 00447000 * /* OTHERWISE PLCB RETURNED FROM START GENERAL POLL REQUEST */ 00448000 * /* */ 00449000 * /*************************************************************/ 00450000 * 0557 00451000 * RPARM=RTERM; /* SET UP TTE TO BE SEARCHED */ 00452000 LR RPARM,RTERM 0557 00453000 * CALL COHORTLK; /* GET TTE OF NEXT HIGER RSC THIS 00454000 * TTE IS FOR CLUSTER */ 00455000 L @15,OPCHORT(,ROPCAVT) 0558 00456000 BALR @14,@15 0558 00457000 * RTERM=RPARM; /* SET UP CLUSTER TTE @YM04624*/ 00458000 * 0559 00459000 LR RTERM,RPARM 0559 00460000 * /*************************************************************/ 00461000 * /* */ 00462000 * /* SEARCH OPCWAITV FOR CORESPONDING OPCE */ 00463000 * /* */ 00464000 * /*************************************************************/ 00465000 * 0560 00466000 * RESPECIFY 0560 00467000 * RWORK8 RSTD; /* SAVE PREVIOUS OPCE */ 00468000 * RWORK8=ADDR(OPCWAITV); /* DUMMY PREVIOUS OPCE */ 00469000 LA RWORK8,OPCWAITV(,ROPCAVT) 0561 00470000 * OPCWAITV=OPCWAITV&MASKBYTE; /* AND OFF HI ORDER BYTE */ 00471000 L @15,OPCWAITV(,ROPCAVT) 0562 00472000 N @15,@CF03857 0562 00473000 ST @15,OPCWAITV(,ROPCAVT) 0562 00474000 * RWORK7=OPCWAITV; /* GET FIRST */ 00475000 LR RWORK7,@15 0563 00476000 * DO WHILE(RWORK7->OCTRMTBL^=RZERO&RWORK7^=0); 0564 00477000 B @DE00564 0564 00478000 @DL00564 DS 0H 0565 00479000 * RWORK8=RWORK7; /* SET NEW PREVIOUS OPCE */ 00480000 LR RWORK8,RWORK7 0565 00481000 * RWORK7=RWORK7->OCLINK; /* NEXT OPCE TO SEARCH */ 00482000 L RWORK7,OCLINK(,RWORK7) 0566 00483000 * END; 0567 00484000 @DE00564 LH @15,OCTRMTBL(,RWORK7) 0567 00485000 N @15,@CF03955 0567 00486000 CR RZERO,@15 0567 00487000 BE @DC00564 0567 00488000 LTR RWORK7,RWORK7 0567 00489000 BNZ @DL00564 0567 00490000 @DC00564 DS 0H 0568 00491000 * IF RWORK7=0 THEN 0568 00492000 LTR RWORK7,RWORK7 0568 00493000 BNZ @RF00568 0568 00494000 * DO; /* NO OPCE FOUND */ 00495000 * EXITFLAG=ON; /* INDICATE EXIT */ 00496000 OI EXITFLAG(ROPCAVT),B'10000000' 0570 00497000 * RZERO=0; /* SET RZERO */ 00498000 SLR RZERO,RZERO 0571 00499000 * OPCMODID=MOD00; /* INDICATE EXIT TO 00 */ 00500000 MVC OPCMODID(2,ROPCAVT),@CC03893 0572 00501000 * OPREQCB=RLCB; /* POST PLCB TO ITSELF */ 00502000 STCM RLCB,7,OPREQCB(ROPCE) 0573 00503000 * OPREPRI=PRILNFRE; /* SET PRIORITY TO FREE */ 00504000 MVI OPREPRI(ROPCE),X'E0' 0574 00505000 * END; 0575 00506000 * ELSE 0576 00507000 * OPREQCB=SAVTSPLN; /* POST PLCB TO NSL */ 00508000 B @RC00568 0576 00509000 @RF00568 L @15,AVTSAVTP(,IEDQAPTR) 0576 00510000 MVC OPREQCB(3,ROPCE),SAVTSPLN+1(@15) 0576 00511000 * CALL ADDASYNQ; /* ADD TO ASYN QUE */ 00512000 @RC00568 BAL @14,ADDASYNQ 0577 00513000 * IF EXITFLAG=OFF THEN 0578 00514000 TM EXITFLAG(ROPCAVT),B'10000000' 0578 00515000 BNZ @RF00578 0578 00516000 * DO; /* NO EXIT CONDITION FOUND */ 00517000 * ROPCE=RWORK7; /* RESET OPCE PTR @YM04624*/ 00518000 LR ROPCE,RWORK7 0580 00519000 * TRMGPCNT=TRMGPCNT-1; /* DECREMENT PLCB COUNT */ 00520000 * 0581 00521000 LR @15,RTERM 0581 00522000 SL @15,@CF02275 0581 00523000 SLR @09,@09 0581 00524000 IC @09,TRMGPCNT(,@15) 0581 00525000 BCTR @09,0 0581 00526000 STC @09,TRMGPCNT(,@15) 0581 00527000 * /*********************************************************/ 00528000 * /* */ 00529000 * /* IF ALL-START GENERAL POLL PLCBS RETURNED */ 00530000 * /* */ 00531000 * /*********************************************************/ 00532000 * 0582 00533000 * IF TRMGPCNT=0 THEN 0582 00534000 CLI TRMGPCNT(@15),0 0582 00535000 BNE @RF00582 0582 00536000 * DO; /* NO MORE PLCBS */ 00537000 * CALL NSLBUILD; /* SEND REQUEST TO NSL */ 00538000 BAL @14,NSLBUILD 0584 00539000 * RZERO=MSG143; /* SET FOR EXIT@OY14490 */ 00540000 LA RZERO,143 0585 00541000 * CALL GOODEXIT; /* CALL GOOD MSG EXIT ROUTINE 0586 00542000 * @OY14490*/ 00543000 BAL @14,GOODEXIT 0586 00544000 * END; 0587 00545000 * ELSE 0588 00546000 * DO; 0588 00547000 B @RC00582 0588 00548000 @RF00582 DS 0H 0589 00549000 * OPCMODID=MOD00; /* ELSE WAIT FOR NEXT PLCB */ 00550000 MVC OPCMODID(2,ROPCAVT),@CC03893 0589 00551000 * RZERO=0; /* CLEAR */ 00552000 SLR RZERO,RZERO 0590 00553000 * END; 0591 00554000 * END; 0592 00555000 @RC00582 DS 0H 0593 00556000 * END; 0593 00557000 @RF00578 DS 0H 0594 00558000 * RESPECIFY 0594 00559000 * RWORK8 UNRSTD; 0594 00560000 @RC00528 DS 0H 0595 00561000 * RRET=OPCWRKSP(1); /* RESTORE RETURN ADDR */ 00562000 L RRET,OPCWRKSP(,ROPCAVT) 0595 00563000 * RETURN; 0596 00564000 @EL00003 DS 0H 0596 00565000 @EF00003 DS 0H 0596 00566000 @ER00003 BR @14 0596 00567000 * END PROCPLCB; 0597 00568000 * 0598 00569000 * /*****************************************************************/ 00570000 * /* */ 00571000 * /* GENERALIZED ERROR PROCESSING CODE */ 00572000 * /* */ 00573000 * /*****************************************************************/ 00574000 * 0598 00575000 *ERRPROC: 0598 00576000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0598 00577000 ERRPROC DS 0H 0599 00578000 * OPCWRKSP(2)=RRET; /* SAVE RETURN ADDR */ 00579000 ST RRET,OPCWRKSP+4(,ROPCAVT) 0599 00580000 * OCUNIT=INVALTIC; /* SET TO FREE OPCE */ 00581000 MVC OCUNIT(4,ROPCE),@CF02814 0600 00582000 * OCOPTCDE=OCVARY; /* RESET CMD TYPE @YM06155*/ 00583000 MVI OCOPTCDE(ROPCE),X'28' 0601 00584000 * OCSWITCH=OCSWITCH|'40'X; /* SET OFF 'ALL' FLAG FOR MSG MOD 00585000 * @YM06935*/ 00586000 OI OCSWITCH(ROPCE),X'40' 0602 00587000 * IF OCTOTE=ON THEN 0603 00588000 TM OCTOTE(ROPCE),B'01000000' 0603 00589000 BNO @RF00603 0603 00590000 * DO; /* TOTE OR MPP REQUEST */ 00591000 * RZERO=BADRTRN; /* SET ERROR RETURN CODE */ 00592000 LA RZERO,8 0605 00593000 * OPCMODID=MOD07; /* EXIT TO MSG WRITER */ 00594000 MVC OPCMODID(2,ROPCAVT),@CC03889 0606 00595000 * END; 0607 00596000 * ELSE 0608 00597000 * OPCMODID=MOD09; /* EXIT TO MSG MOD */ 00598000 B @RC00603 0608 00599000 @RF00603 MVC OPCMODID(2,ROPCAVT),@CC03885 0608 00600000 * EXITFLAG=ON; /* INDICATE EXIT */ 00601000 @RC00603 OI EXITFLAG(ROPCAVT),B'10000000' 0609 00602000 * IF RZERO=MSG210 THEN 0610 00603000 C RZERO,@CF03868 0610 00604000 BNE @RF00610 0610 00605000 * DO; /* SPECIAL MSG SETUP */ 00606000 * RWORK7=RWORK7+LENGTH(IEDNTRM);/* RESTORE TERM ADDR @OX20842*/ 00607000 AL RWORK7,@CF02275 0612 00608000 * RWORK7=RWORK7->TRMDESTQ; /* GET 3705 QCB */ 00609000 L @15,TRMDESTQ-1(,RWORK7) 0613 00610000 LA @15,0(,@15) 0613 00611000 LR RWORK7,@15 0613 00612000 * RWORK7=RWORK7->QCBDCBAD; /* GET 3705 DCB AD */ 00613000 L @15,QCBDCBAD-1(,RWORK7) 0614 00614000 LA @15,0(,@15) 0614 00615000 LR RWORK7,@15 0614 00616000 * RFY 0615 00617000 * IHADCB BASED(RWORK7); /* DCB DSECT BASE @XM05704*/ 00618000 * RWORK7=DCBDEBAD; /* GET DEB ADDR @XM05704*/ 00619000 L @15,DCBDEBAD+40(,RWORK7) 0616 00620000 LR RWORK7,@15 0616 00621000 * RWORK7=RWORK7-(ADDR(DEBNMSUB)-ADDR(IEDQDEB));/* @XM05704*/ 00622000 SL RWORK7,@CF01424 0617 00623000 * RFY 0618 00624000 * IHADCB BASED; /* @XM05704*/ 00625000 * RWORK7=RWORK7->DEBUCBAD; /* DEVELOP UCB ADDR */ 00626000 L @15,DEBUCBAD-1(,RWORK7) 0619 00627000 LA @15,0(,@15) 0619 00628000 LR RWORK7,@15 0619 00629000 * OCBACKUP(1:3)=RWORK7->UCBNAME;/* STORE UCB ADDR */ 00630000 MVC OCBACKUP(3,ROPCE),UCBNAME(RWORK7) 0620 00631000 * END; 0621 00632000 * ELSE 0622 00633000 * ; 0622 00634000 @RF00610 DS 0H 0623 00635000 * RRET=OPCWRKSP(2); /* RESTORE RETURN ADDR */ 00636000 L RRET,OPCWRKSP+4(,ROPCAVT) 0623 00637000 * RETURN; 0624 00638000 @EL00004 DS 0H 0624 00639000 @EF00004 DS 0H 0624 00640000 @ER00004 BR @14 0624 00641000 * END ERRPROC; 0625 00642000 * 0626 00643000 * /*****************************************************************/ 00644000 * /* */ 00645000 * /* SET UP FOR GOOD MSG EXIT @OY14490*/ 00646000 * /* */ 00647000 * /*****************************************************************/ 00648000 * 0626 00649000 *GOODEXIT: 0626 00650000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @OY14490*/ 00651000 GOODEXIT DS 0H 0627 00652000 * OPCWRKSP(3)=RRET; /* SAVE RETURN REG @OY14490*/ 00653000 ST RRET,OPCWRKSP+8(,ROPCAVT) 0627 00654000 * RWORK8->OCLINK=RWORK7->OCLINK; /* UNLINK OPCE FROM WAITV 0628 00655000 * @OY14490*/ 00656000 L @15,OCLINK(,RWORK7) 0628 00657000 ST @15,OCLINK(,RWORK8) 0628 00658000 * ROPCE=RWORK7; /* SET AS CURRENT @OY14490*/ 00659000 LR ROPCE,RWORK7 0629 00660000 * OPCCOPCE=RWORK7; /* OPCE TO PROCESS @OY14490*/ 00661000 ST RWORK7,OPCCOPCE(,ROPCAVT) 0630 00662000 * IF OCTOTE=ON THEN /* IF TOTE THEN @OY14490*/ 00663000 TM OCTOTE(ROPCE),B'01000000' 0631 00664000 BNO @RF00631 0631 00665000 * OCPARM=0; /* SET RETURN CODE @OY14490*/ 00666000 SLR @15,@15 0632 00667000 STH @15,OCPARM(,ROPCE) 0632 00668000 * ELSE /* ELSE IF NOT TOTE THEN @OY14490*/ 00669000 * OCPARM=RZERO; /* PUT MSG NO IN OCPARM @OY14490*/ 00670000 B @RC00631 0633 00671000 @RF00631 STH RZERO,OCPARM(,ROPCE) 0633 00672000 * OPCMODID=MOD06; /* EXIT TO CHECKPOINT @OY14490*/ 00673000 @RC00631 MVC OPCMODID(2,ROPCAVT),@CC03887 0634 00674000 * OCWTG=MOD09; /* PROCEED TO MSG MOD @OY14490*/ 00675000 MVC OCWTG(2,ROPCE),@CC03885 0635 00676000 * OCSWITCH=OCSWITCH|'40'X; /* INDICATE TO MSG MOD NOT 'ALL' 00677000 * @OY14490*/ 00678000 OI OCSWITCH(ROPCE),X'40' 0636 00679000 * OCUNIT=INVALTIC; /* SET UP TIC FIELD @OY14490*/ 00680000 MVC OCUNIT(4,ROPCE),@CF02814 0637 00681000 * RRET=OPCWRKSP(3); /* RESTORE RETURN REG @OY14490*/ 00682000 L RRET,OPCWRKSP+8(,ROPCAVT) 0638 00683000 * END GOODEXIT; /* @OY14490*/ 00684000 @EL00005 DS 0H 0639 00685000 @EF00005 DS 0H 0639 00686000 @ER00005 BR @14 0639 00687000 * 0640 00688000 * /*****************************************************************/ 00689000 * /* */ 00690000 * /* BUILD REQUEST TO SEND TO IEDNSL */ 00691000 * /* */ 00692000 * /*****************************************************************/ 00693000 * 0640 00694000 *NSLBUILD: 0640 00695000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0640 00696000 NSLBUILD DS 0H 0641 00697000 * OPCWRKSP(3)=RRET; /* SAVE RETURN ADDR */ 00698000 ST RRET,OPCWRKSP+8(,ROPCAVT) 0641 00699000 * RPARM=1; /* NUMBER OF BUFFERS REQST */ 00700000 LA RPARM,1 0642 00701000 * CALL ALLOCBUF; /* GET BUF RTN IN QCA */ 00702000 L @15,OPCGETBF(,ROPCAVT) 0643 00703000 BALR @14,@15 0643 00704000 * RNSL=RPARM; /* BUFFER SETUP */ 00705000 LR RNSL,RPARM 0644 00706000 * NSLSAVE=''B; /* CLEAR @YM05736*/ 00707000 SLR @15,@15 0645 00708000 STCM @15,7,NSLSAVE(RNSL) 0645 00709000 * NSLGPCUS=''B; /* CLEAR */ 00710000 MVI NSLGPCUS(RNSL),X'00' 0646 00711000 * NSLPLCB=''B; /* CLEAR */ 00712000 MVI NSLPLCB(RNSL),X'00' 0647 00713000 * NSLFLGBK=OPRPRMRP; /* RETURN TO VA */ 00714000 MVI NSLFLGBK(RNSL),X'15' 0648 00715000 * NSLPRIBK=PRIMEDFG; /* RETURN PRIORITY */ 00716000 MVI NSLPRIBK(RNSL),X'DF' 0649 00717000 * IF RWORK7->OCSWITCH=OCONTPE|RWORK7->OCSWITCH=OCONTPB/* @YM04624*/ 00718000 * THEN 0650 00719000 CLI OCSWITCH(RWORK7),X'0A' 0650 00720000 BE @RT00650 0650 00721000 CLI OCSWITCH(RWORK7),X'0B' 0650 00722000 BNE @RF00650 0650 00723000 @RT00650 DS 0H 0651 00724000 * NSLREQTY=NSLSTRGP; /* START GP REQ @YM04624*/ 00725000 MVI NSLREQTY(RNSL),X'05' 0651 00726000 * ELSE 0652 00727000 * IF RWORK7->OCSWITCH=OCOFFTPB THEN 0652 00728000 B @RC00650 0652 00729000 @RF00650 CLI OCSWITCH(RWORK7),X'06' 0652 00730000 BNE @RF00652 0652 00731000 * NSLREQTY=NSLSTPGB; /* IF OFFTP,B THEN SET REQUEST 0653 00732000 * TYPE SO THAT NSL WILL PRIME 0653 00733000 * ONLY THOSE TERMINALS WHICH 0653 00734000 * HAVE TRMRSACT ON @OY20296*/ 00735000 MVI NSLREQTY(RNSL),X'0D' 0653 00736000 * ELSE 0654 00737000 * NSLREQTY=NSLSTPGP; /* STOP GP REQ */ 00738000 B @RC00652 0654 00739000 @RF00652 MVI NSLREQTY(RNSL),X'06' 0654 00740000 * RNSL->OPREPRI=PRIPRIME; /* POST PRIORITY */ 00741000 @RC00652 DS 0H 0655 00742000 @RC00650 MVI OPREPRI(RNSL),X'DD' 0655 00743000 * NSLTTEPT=RTERM; /* SET CLUSTER TTE */ 00744000 ST RTERM,NSLTTEPT(,RNSL) 0656 00745000 * RWORK7=RWORK7&MASKBYTE; /* TURN OFF HI ORDER BYTE 0657 00746000 * @XM05729*/ 00747000 N RWORK7,@CF03857 0657 00748000 * NSLOPCEP=RWORK7; /* SAVE OPCE PTR @YM04624*/ 00749000 ST RWORK7,NSLOPCEP(,RNSL) 0658 00750000 * RNSL->OPREQCB=SAVTSPLN; /* ADDR OF QCB FOR NSL */ 00751000 L @15,AVTSAVTP(,IEDQAPTR) 0659 00752000 MVC OPREQCB(3,RNSL),SAVTSPLN+1(@15) 0659 00753000 * OPCAQFST=RNSL; /* FIRST WORD OF LIST */ 00754000 STCM RNSL,7,OPCAQFST(ROPCAVT) 0660 00755000 * OPCAQSEC=RNSL; /* 2ND WORD OF PARM LIST */ 00756000 STCM RNSL,7,OPCAQSEC(ROPCAVT) 0661 00757000 * OPCAQREQ=TPOST; /* REQUEST OF POST */ 00758000 MVI OPCAQREQ(ROPCAVT),X'0C' 0662 00759000 * OPCAQRQ2=ENDLIST; /* MARK END OF LIST */ 00760000 MVI OPCAQRQ2(ROPCAVT),X'80' 0663 00761000 * RPARM=ADDR(OPCAQCTL); /* LIST ADDR */ 00762000 LA RPARM,OPCAQCTL(,ROPCAVT) 0664 00763000 * SVC(102); /* POST TO ASYNC READY Q */ 00764000 SVC 102 0665 00765000 * RRET=OPCWRKSP(3); /* RESTORE RETURN REG */ 00766000 L RRET,OPCWRKSP+8(,ROPCAVT) 0666 00767000 * RETURN; 0667 00768000 @EL00006 DS 0H 0667 00769000 @EF00006 DS 0H 0667 00770000 @ER00006 BR @14 0667 00771000 * END NSLBUILD; 0668 00772000 * 0669 00773000 * /*****************************************************************/ 00774000 * /* */ 00775000 * /* PROCESS STOPLINE REQUEST BUFFER CALLED FROM MAIN LINE */ 00776000 * /* */ 00777000 * /*****************************************************************/ 00778000 * 0669 00779000 *STPLBFR: 0669 00780000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0669 00781000 STPLBFR DS 0H 0670 00782000 * RESPECIFY 0670 00783000 * RWORK8 RSTD; /* USE TO SAVE OPCE ADDR */ 00784000 * OPCWRKSP(1)=RRET; /* SAVE RETURN ADDR */ 00785000 ST RRET,OPCWRKSP(,ROPCAVT) 0671 00786000 * RNSL=ROPCE; /* SET NSL BUFFER BASE */ 00787000 LR RNSL,ROPCE 0672 00788000 * RTERM=NSLTTEPT; /* GET TTE ADDR */ 00789000 L RTERM,NSLTTEPT(,RNSL) 0673 00790000 * RWORK7=NSLOPCEP; /* GET OPCE ADDR */ 00791000 L RWORK7,NSLOPCEP(,RNSL) 0674 00792000 * RNSL->OCUNIT=INVALTIC; /* FREE 1 UNIT */ 00793000 MVC OCUNIT(4,RNSL),@CF02814 0675 00794000 * RPARM=RNSL; /* SET UP TO FREE BUFFER */ 00795000 LR RPARM,RNSL 0676 00796000 * CALL FREEBUF; /* FREE NSL BUFFER */ 00797000 L @15,OPCFREBF(,ROPCAVT) 0677 00798000 BALR @14,@15 0677 00799000 * ROPCE=RWORK7; /* RESET OPCE PTR @YM04624*/ 00800000 LR ROPCE,RWORK7 0678 00801000 * CALL NSLBUILD; /* BUILD NEW REQUEST TO NSL */ 00802000 BAL @14,NSLBUILD 0679 00803000 * RWORK8=OPCWAITV; /* LIST ADDR */ 00804000 L RWORK8,OPCWAITV(,ROPCAVT) 0680 00805000 * RWORK8=RWORK8&MASKBYTE; /* ZERO HI ORDER BYTE @ZM46633*/ 00806000 N RWORK8,@CF03857 0681 00807000 * IF RWORK8=RWORK7 THEN 0682 00808000 CR RWORK8,RWORK7 0682 00809000 BNE @RF00682 0682 00810000 * OPCWAITV=RWORK8->OCLINK; /* UNCHAIN */ 00811000 L @15,OCLINK(,RWORK8) 0683 00812000 ST @15,OPCWAITV(,ROPCAVT) 0683 00813000 * ELSE 0684 00814000 * DO; 0684 00815000 B @RC00682 0684 00816000 @RF00682 DS 0H 0685 00817000 * DO WHILE(RWORK8^=RWORK7&RWORK8^=0);/* LOOP UNTIL OPCE FOUND 00818000 * OR END OF CHAIN */ 00819000 B @DE00685 0685 00820000 @DL00685 DS 0H 0686 00821000 * RRET=RWORK8; /* SAVE LAST OPCE @OX20585*/ 00822000 LR RRET,RWORK8 0686 00823000 * RWORK8=RWORK8->OCLINK; /* NEXT TO SEARCH */ 00824000 L RWORK8,OCLINK(,RWORK8) 0687 00825000 * END; 0688 00826000 @DE00685 CR RWORK8,RWORK7 0688 00827000 BE @DC00685 0688 00828000 LTR RWORK8,RWORK8 0688 00829000 BNZ @DL00685 0688 00830000 @DC00685 DS 0H 0689 00831000 * IF RWORK8=0 THEN 0689 00832000 LTR RWORK8,RWORK8 0689 00833000 BNZ @RF00689 0689 00834000 * DO; /* OPCE NOT FOUND */ 00835000 * EXITFLAG=ON; /* INDICATE NO MORE PROCESSING */ 00836000 OI EXITFLAG(ROPCAVT),B'10000000' 0691 00837000 * OPCMODID=MOD00; /* PREPARE TO EXIT */ 00838000 MVC OPCMODID(2,ROPCAVT),@CC03893 0692 00839000 * RZERO=0; /* CLEAR MSG NUMB */ 00840000 SLR RZERO,RZERO 0693 00841000 * END; 0694 00842000 * ELSE 0695 00843000 * RRET->OCLINK=RWORK7->OCLINK;/* UNCHAIN OPCE @OX20585*/ 00844000 B @RC00689 0695 00845000 @RF00689 L @15,OCLINK(,RWORK7) 0695 00846000 ST @15,OCLINK(,RRET) 0695 00847000 * END; 0696 00848000 @RC00689 DS 0H 0697 00849000 * IF EXITFLAG=OFF THEN 0697 00850000 @RC00682 TM EXITFLAG(ROPCAVT),B'10000000' 0697 00851000 BNZ @RF00697 0697 00852000 * DO; /* CONTINUE PROCESSING */ 00853000 * ROPCE=RWORK7; /* SET UP OPCE PTR @YM04624*/ 00854000 LR ROPCE,RWORK7 0699 00855000 * OCSWITCH=OCSWITCH|'40'X; /* INDICATOR TO MSG MOD */ 00856000 OI OCSWITCH(ROPCE),X'40' 0700 00857000 * IF OCTOTE=ON THEN 0701 00858000 TM OCTOTE(ROPCE),B'01000000' 0701 00859000 BNO @RF00701 0701 00860000 * OCPARM=0; /* TOTE RETURN CODE */ 00861000 SLR @15,@15 0702 00862000 STH @15,OCPARM(,ROPCE) 0702 00863000 * ELSE 0703 00864000 * DO; 0703 00865000 B @RC00701 0703 00866000 @RF00701 DS 0H 0704 00867000 * OCPARM=MSG143; /* SET GOOD MSG NUMB */ 00868000 LA @15,143 0704 00869000 STH @15,OCPARM(,ROPCE) 0704 00870000 * RZERO=MSG143; /* SET R0 */ 00871000 LR RZERO,@15 0705 00872000 * END; 0706 00873000 * OPCMODID=MOD06; /* EXIT TO CHK PT */ 00874000 @RC00701 MVC OPCMODID(2,ROPCAVT),@CC03887 0707 00875000 * OCWTG=MOD09; /* CONTINUE AT MSG MOD */ 00876000 MVC OCWTG(2,ROPCE),@CC03885 0708 00877000 * END; 0709 00878000 * IF EXITFLAG=OFF THEN 0710 00879000 @RF00697 TM EXITFLAG(ROPCAVT),B'10000000' 0710 00880000 BNZ @RF00710 0710 00881000 * OPCCOPCE=RWORK7; /* SET NEW ELEMENT */ 00882000 ST RWORK7,OPCCOPCE(,ROPCAVT) 0711 00883000 * RRET=OPCWRKSP(1); /* RESTORE RETURN ADDR */ 00884000 @RF00710 L RRET,OPCWRKSP(,ROPCAVT) 0712 00885000 * RETURN; 0713 00886000 @EL00007 DS 0H 0713 00887000 @EF00007 DS 0H 0713 00888000 @ER00007 BR @14 0713 00889000 * RESPECIFY 0714 00890000 * RWORK8 UNRSTD; 0714 00891000 * END STPLBFR; 0715 00892000 * 0716 00893000 * /*****************************************************************/ 00894000 * /* */ 00895000 * /* PROCESS REQUEST BUFFER FROM STOPLINE CALLED BY MAIN LOGIC */ 00896000 * /* */ 00897000 * /*****************************************************************/ 00898000 * 0716 00899000 *RQSTBFR: 0716 00900000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0716 00901000 RQSTBFR DS 0H 0717 00902000 * RESPECIFY 0717 00903000 * RWORK8 RSTD; /* USE TO SAVE OPCE */ 00904000 * OPCWRKSP(1)=RRET; /* SAVE RETURN ADDR */ 00905000 ST RRET,OPCWRKSP(,ROPCAVT) 0718 00906000 * RNSL=ROPCE; /* SET UP NSL BASE */ 00907000 LR RNSL,ROPCE 0719 00908000 * RWORK7=NSLOPCEP; /* GET OPCE ADDR */ 00909000 L RWORK7,NSLOPCEP(,RNSL) 0720 00910000 * RNSL->OCUNIT=INVALTIC; /* FREE 1 UNIT */ 00911000 MVC OCUNIT(4,RNSL),@CF02814 0721 00912000 * RPARM=RNSL; /* PREPARE TO FREE NSL BUF */ 00913000 LR RPARM,RNSL 0722 00914000 * CALL FREEBUF; /* FREE BUFFER */ 00915000 L @15,OPCFREBF(,ROPCAVT) 0723 00916000 BALR @14,@15 0723 00917000 * OPCWAITV=OPCWAITV&MASKBYTE; /* AND OFF HI ORDER BYTE */ 00918000 L @15,OPCWAITV(,ROPCAVT) 0724 00919000 N @15,@CF03857 0724 00920000 ST @15,OPCWAITV(,ROPCAVT) 0724 00921000 * RWORK8=OPCWAITV; /* GET CHAIN ADDR */ 00922000 LR RWORK8,@15 0725 00923000 * IF RWORK8=RWORK7 THEN 0726 00924000 CR RWORK8,RWORK7 0726 00925000 BNE @RF00726 0726 00926000 * OPCWAITV=RWORK8->OCLINK; /* UNCHAIN */ 00927000 L @15,OCLINK(,RWORK8) 0727 00928000 ST @15,OPCWAITV(,ROPCAVT) 0727 00929000 * ELSE 0728 00930000 * DO; 0728 00931000 B @RC00726 0728 00932000 @RF00726 DS 0H 0729 00933000 * DO WHILE(RWORK8^=RWORK7); /* SEARCH TILL OPCE FOUND */ 00934000 B @DE00729 0729 00935000 @DL00729 DS 0H 0730 00936000 * RRET=RWORK8; /* SAVE LAST OPCE @OX20585*/ 00937000 LR RRET,RWORK8 0730 00938000 * RWORK8=RWORK8->OCLINK; /* NEXT TO SEARCH */ 00939000 L RWORK8,OCLINK(,RWORK8) 0731 00940000 * END; 0732 00941000 @DE00729 CR RWORK8,RWORK7 0732 00942000 BNE @DL00729 0732 00943000 * RRET->OCLINK=RWORK7->OCLINK;/* UNCHAIN OPCE @OX20585*/ 00944000 L @15,OCLINK(,RWORK7) 0733 00945000 ST @15,OCLINK(,RRET) 0733 00946000 * END; 0734 00947000 * ROPCE=RWORK7; /* SET UP OPCE PTR @YM04624*/ 00948000 @RC00726 LR ROPCE,RWORK7 0735 00949000 * OCSWITCH=OCSWITCH|'40'X; /* IND TO MSG MOD NOT TO INSERT 00950000 * ALL IN MSG @YM04624*/ 00951000 OI OCSWITCH(ROPCE),X'40' 0736 00952000 * IF OCTOTE=ON THEN 0737 00953000 TM OCTOTE(ROPCE),B'01000000' 0737 00954000 BNO @RF00737 0737 00955000 * OCPARM=0; /* TOTE PARM VALUE @YM04624*/ 00956000 SLR @15,@15 0738 00957000 STH @15,OCPARM(,ROPCE) 0738 00958000 * ELSE 0739 00959000 * DO; 0739 00960000 B @RC00737 0739 00961000 @RF00737 DS 0H 0740 00962000 * OCPARM=MSG144; /* SET MSG NUMBER */ 00963000 LA @15,144 0740 00964000 STH @15,OCPARM(,ROPCE) 0740 00965000 * RZERO=MSG144; /* SET MSG NUMBER */ 00966000 LR RZERO,@15 0741 00967000 * END; 0742 00968000 * OPCMODID=MOD06; /* EXIT TO CHKPT */ 00969000 @RC00737 MVC OPCMODID(2,ROPCAVT),@CC03887 0743 00970000 * OCWTG=MOD09; /* CONTINUE AT MSG MOD */ 00971000 MVC OCWTG(2,ROPCE),@CC03885 0744 00972000 * OPCCOPCE=RWORK7; /* SET NEW ELEMENT */ 00973000 ST RWORK7,OPCCOPCE(,ROPCAVT) 0745 00974000 * RRET=OPCWRKSP(1); /* RESTORE RETURN ADDR */ 00975000 L RRET,OPCWRKSP(,ROPCAVT) 0746 00976000 * RETURN; 0747 00977000 @EL00008 DS 0H 0747 00978000 @EF00008 DS 0H 0747 00979000 @ER00008 BR @14 0747 00980000 * RESPECIFY 0748 00981000 * RWORK7 UNRSTD; 0748 00982000 * END RQSTBFR; 0749 00983000 * 0750 00984000 * /*****************************************************************/ 00985000 * /* */ 00986000 * /* RESTART PROCESSING */ 00987000 * /* */ 00988000 * /*****************************************************************/ 00989000 * 0750 00990000 *RESTART: 0750 00991000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0750 00992000 RESTART DS 0H 0751 00993000 * OPCWRKSP(2)=RRET; /* SAVE RETRUN ADDR */ 00994000 ST RRET,OPCWRKSP+4(,ROPCAVT) 0751 00995000 * IF AVTSTAIN=ON THEN 0752 00996000 TM AVTSTAIN(IEDQAPTR),B'00000100' 0752 00997000 BNO @RF00752 0752 00998000 * DO; /* INVITATION LIST CHK'D */ 00999000 * IF OCSWITCH=OCONTPE|OCSWITCH=OCONTPB THEN 0754 01000000 CLI OCSWITCH(ROPCE),X'0A' 0754 01001000 BE @RT00754 0754 01002000 CLI OCSWITCH(ROPCE),X'0B' 0754 01003000 BNE @RF00754 0754 01004000 @RT00754 DS 0H 0755 01005000 * DO; 0755 01006000 * TRMRSACT=ON; /* IF ACT REQUEST,MARK CLUS ACT */ 01007000 * TRMGPACT=ON; /* SET GENERAL POLL ACTIVE */ 01008000 LR @10,RTERM 0757 01009000 AL @10,@CF03965 0757 01010000 LA @07,TRMRSACT-2(,@10) 0757 01011000 LR @11,@07 0757 01012000 LA @15,3 0757 01013000 NR @11,@15 0757 01014000 LCR @11,@11 0757 01015000 ALR @07,@11 0757 01016000 L @15,0(,@07) 0757 01017000 @GL00008 LR @09,@15 0757 01018000 O @09,@CB03961+3(@11) 0757 01019000 CS @15,@09,0(@07) 0757 01020000 BNE @GL00008 0757 01021000 * END; 0758 01022000 * ELSE 0759 01023000 * TRMRSACT=OFF; /* MARK CLUSTER INACTIVE */ 01024000 B @RC00754 0759 01025000 @RF00754 LR @10,RTERM 0759 01026000 AL @10,@CF03965 0759 01027000 LA @07,TRMRSACT-2(,@10) 0759 01028000 LR @11,@07 0759 01029000 LA @15,3 0759 01030000 NR @11,@15 0759 01031000 LCR @11,@11 0759 01032000 ALR @07,@11 0759 01033000 L @15,0(,@07) 0759 01034000 @GL00009 LR @09,@15 0759 01035000 N @09,@CB03966+3(@11) 0759 01036000 CS @15,@09,0(@07) 0759 01037000 BNE @GL00009 0759 01038000 * END; 0760 01039000 @RC00754 DS 0H 0761 01040000 * EXITFLAG=ON; /* INDICATE NO MORE PROCESS */ 01041000 @RF00752 OI EXITFLAG(ROPCAVT),B'10000000' 0761 01042000 * OCUNIT=INVALTIC; /* MARK END OF CHAIN */ 01043000 MVC OCUNIT(4,ROPCE),@CF02814 0762 01044000 * OPCMODID=MOD06; /* EXIT TO CHKPT */ 01045000 MVC OPCMODID(2,ROPCAVT),@CC03887 0763 01046000 * OCWTG=MOD09; /* CONTINUE AT MSG MODULE */ 01047000 MVC OCWTG(2,ROPCE),@CC03885 0764 01048000 * RRET=OPCWRKSP(2); /* RESTORE RETURN ADDR */ 01049000 L RRET,OPCWRKSP+4(,ROPCAVT) 0765 01050000 * RETURN; 0766 01051000 @EL00009 DS 0H 0766 01052000 @EF00009 DS 0H 0766 01053000 @ER00009 BR @14 0766 01054000 * END RESTART; 0767 01055000 * 0768 01056000 * /*****************************************************************/ 01057000 * /* */ 01058000 * /* CHECK STATE OF CLUSTER */ 01059000 * /* */ 01060000 * /*****************************************************************/ 01061000 * 0768 01062000 *STATECHK: 0768 01063000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0768 01064000 STATECHK DS 0H 0769 01065000 * OPCWRKSP(3)=RRET; /* SAVE RETURN ADDR */ 01066000 ST RRET,OPCWRKSP+8(,ROPCAVT) 0769 01067000 * IF OCSWITCH=OCONTPE| /* IS THIS AN ACTIVATE ... */ 01068000 * OCSWITCH=OCONTPB THEN /* ... REQUEST? */ 01069000 CLI OCSWITCH(ROPCE),X'0A' 0770 01070000 BE @RT00770 0770 01071000 CLI OCSWITCH(ROPCE),X'0B' 0770 01072000 BNE @RF00770 0770 01073000 @RT00770 DS 0H 0771 01074000 * DO; /* YES */ 01075000 * IF TRMGPACT=ON THEN 0772 01076000 LR @15,RTERM 0772 01077000 AL @15,@CF03965 0772 01078000 TM TRMGPACT-2(@15),B'00001000' 0772 01079000 BNO @RF00772 0772 01080000 * DO; /* IS GENERAL POLL ALREADY ACTIVE 01081000 * FOR THIS CLUSTER */ 01082000 * RZERO=MSG145; /* ALREADY ACTIVE MSG */ 01083000 LA RZERO,145 0774 01084000 * CALL ERRPROC; /* YES, WRITE ERROR MSG */ 01085000 BAL @14,ERRPROC 0775 01086000 * END; 0776 01087000 * END; 0777 01088000 * ELSE /* NO ... IT'S A */ 01089000 * DO; /* ... DEACTIVATE REQUEST */ 01090000 B @RC00770 0778 01091000 @RF00770 DS 0H 0779 01092000 * IF TRMGPACT=OFF THEN 0779 01093000 LR @15,RTERM 0779 01094000 AL @15,@CF03965 0779 01095000 TM TRMGPACT-2(@15),B'00001000' 0779 01096000 BNZ @RF00779 0779 01097000 * DO; /* IS GENERAL POLL ALREADY 0780 01098000 * INACTIVE FOR THIS CLUSTER? */ 01099000 * RZERO=MSG146; /* ALREADY DEACTIVE MSG */ 01100000 LA RZERO,146 0781 01101000 * CALL ERRPROC; /* YES, WRITE ERROR MSG */ 01102000 BAL @14,ERRPROC 0782 01103000 * END; 0783 01104000 * END; 0784 01105000 @RF00779 DS 0H 0785 01106000 * RRET=OPCWRKSP(3); /* RESTORE RETURN ADR */ 01107000 @RC00770 L RRET,OPCWRKSP+8(,ROPCAVT) 0785 01108000 * RETURN; 0786 01109000 @EL00010 DS 0H 0786 01110000 @EF00010 DS 0H 0786 01111000 @ER00010 BR @14 0786 01112000 * END STATECHK; 0787 01113000 * 0788 01114000 * /*****************************************************************/ 01115000 * /* */ 01116000 * /* SEND INITIAL REQUEST TO NSL */ 01117000 * /* */ 01118000 * /*****************************************************************/ 01119000 * 0788 01120000 *INITNSL: 0788 01121000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0788 01122000 INITNSL DS 0H 0789 01123000 * OPCWRKSP(2)=RRET; /* SAVE RETURN ADDR */ 01124000 ST RRET,OPCWRKSP+4(,ROPCAVT) 0789 01125000 * RPARM=1; /* REQUEST 1 BUFFER */ 01126000 LA RPARM,1 0790 01127000 * CALL ALLOCBUF; /* BUFFER ALLOC RTN */ 01128000 L @15,OPCGETBF(,ROPCAVT) 0791 01129000 BALR @14,@15 0791 01130000 * RNSL=RPARM; /* BUFFER FROM BUFFER POOL */ 01131000 LR RNSL,RPARM 0792 01132000 * NSLSAVE=''B; /* CLEAR @YM05736*/ 01133000 SLR @15,@15 0793 01134000 STCM @15,7,NSLSAVE(RNSL) 0793 01135000 * NSLGPCUS=''B; /* CLEAR */ 01136000 MVI NSLGPCUS(RNSL),X'00' 0794 01137000 * NSLPLCB=''B; /* CLEAR */ 01138000 MVI NSLPLCB(RNSL),X'00' 0795 01139000 * NSLFLGBK=OPRVA; /* INDICATE RETURN TO VA */ 01140000 MVI NSLFLGBK(RNSL),X'06' 0796 01141000 * NSLPRIBK=PRIMEDFG; /* INDICATE PRIORITY */ 01142000 MVI NSLPRIBK(RNSL),X'DF' 0797 01143000 * IF OCSWITCH=OCONTPE|OCSWITCH=OCONTPB THEN 0798 01144000 CLI OCSWITCH(ROPCE),X'0A' 0798 01145000 BE @RT00798 0798 01146000 CLI OCSWITCH(ROPCE),X'0B' 0798 01147000 BNE @RF00798 0798 01148000 @RT00798 DS 0H 0799 01149000 * NSLREQTY=NSLSTRGP; 0799 01150000 MVI NSLREQTY(RNSL),X'05' 0799 01151000 * ELSE 0800 01152000 * NSLREQTY=NSLSTPGP; /* INDICATE TO NSL EITHER START 01153000 * OR STOP GENERAL POLL REQUEST- 01154000 * BASED ON OCSWITCH SETTING */ 01155000 B @RC00798 0800 01156000 @RF00798 MVI NSLREQTY(RNSL),X'06' 0800 01157000 * NSLTTEPT=RTERM; /* PASS CU TTE */ 01158000 @RC00798 ST RTERM,NSLTTEPT(,RNSL) 0801 01159000 * NSLTTCIN=OCTRMTBL; /* PASS CU TTCIN @YM04659*/ 01160000 LH @15,OCTRMTBL(,ROPCE) 0802 01161000 N @15,@CF03955 0802 01162000 STH @15,NSLTTCIN(,RNSL) 0802 01163000 * ROPCE=ROPCE&MASKBYTE; /* TURN OFF HI ORDER BYTE 0803 01164000 * @XM05729*/ 01165000 N ROPCE,@CF03857 0803 01166000 * NSLOPCEP=ROPCE; /* SAVE OPCE PTR */ 01167000 ST ROPCE,NSLOPCEP(,RNSL) 0804 01168000 * RNSL->OPREPRI=PRIOPCTL; /* SET OP CTL PRIORITY */ 01169000 MVI OPREPRI(RNSL),X'DC' 0805 01170000 * RNSL->OPREQCB=SAVTSPLN; /* SET NSLS QCB */ 01171000 L @15,AVTSAVTP(,IEDQAPTR) 0806 01172000 MVC OPREQCB(3,RNSL),SAVTSPLN+1(@15) 0806 01173000 * OPCAQFST=RNSL; /* SET UP FIRST WORD */ 01174000 STCM RNSL,7,OPCAQFST(ROPCAVT) 0807 01175000 * OPCAQSEC=RNSL; /* SET UP 2ND WORD */ 01176000 STCM RNSL,7,OPCAQSEC(ROPCAVT) 0808 01177000 * OPCAQREQ=TPOST; /* IND POST REQUEST */ 01178000 MVI OPCAQREQ(ROPCAVT),X'0C' 0809 01179000 * OPCAQRQ2=ENDLIST; /* MARK END OF LIST */ 01180000 MVI OPCAQRQ2(ROPCAVT),X'80' 0810 01181000 * RPARM=ADDR(OPCAQCTL); /* GET PTR TO LIST */ 01182000 LA RPARM,OPCAQCTL(,ROPCAVT) 0811 01183000 * SVC(102); /* ISSUE SVC 102 */ 01184000 SVC 102 0812 01185000 * OPCMODID=MOD00; /* SET UP TO EXIT */ 01186000 MVC OPCMODID(2,ROPCAVT),@CC03893 0813 01187000 * RZERO=0; /* CLEAR */ 01188000 SLR RZERO,RZERO 0814 01189000 * RRET=OPCWRKSP(2); /* RESTORE RETURN ADDR */ 01190000 L RRET,OPCWRKSP+4(,ROPCAVT) 0815 01191000 * RETURN; 0816 01192000 @EL00011 DS 0H 0816 01193000 @EF00011 DS 0H 0816 01194000 @ER00011 BR @14 0816 01195000 * END INITNSL; 0817 01196000 *ADDASYNQ: 0818 01197000 * PROC OPTIONS(RETREG,NOSAVE,NOSAVEAREA); 0818 01198000 ADDASYNQ DS 0H 0819 01199000 * RFY 0819 01200000 * RCURRENT RSTD; 0819 01201000 * OPCWRKSP(4)=RRET; /* SAVE THE RETURN ADDR */ 01202000 ST RRET,OPCWRKSP+12(,ROPCAVT) 0820 01203000 *DOITAGIN: 0821 01204000 * RCURRENT=TCXREADY; /* GET CURRENT ELEM */ 01205000 DOITAGIN L @15,CVTPTR 0821 01206000 L @15,TCXPTR(,@15) 0821 01207000 L RCURRENT,TCXREADY(,@15) 0821 01208000 * LCBLINK=RCURRENT; /* LINK IT TO THE PLCB */ 01209000 STCM RCURRENT,7,LCBLINK(IEDQLPTR) 0822 01210000 * CS(RCURRENT,RLCB,TCXREADY); /* SWAP PLCB ON ASYN QUE */ 01211000 CS RCURRENT,@03,TCXREADY(@15) 0823 01212000 * BC(7,DOITAGIN); /* FAILED TRY IT AGAIN */ 01213000 BC 7,DOITAGIN 0824 01214000 * OPCAQFST=ADDR(AVTOSECB); /* GET THE ECB ADDRESS */ 01215000 LA @15,AVTOSECB(,IEDQAPTR) 0825 01216000 STCM @15,7,OPCAQFST(ROPCAVT) 0825 01217000 * OPCAQREQ=REQSTCDE; /* SET POST TYPE */ 01218000 MVI OPCAQREQ(ROPCAVT),X'20' 0826 01219000 * OPCAQWD2=ADDR(AVTFZERO); /* SET TJID */ 01220000 LA @15,AVTFZERO(,IEDQAPTR) 0827 01221000 ST @15,OPCAQWD2(,ROPCAVT) 0827 01222000 * OPCAQLST=TCXTCB; /* SET UP TCAM TCB ADDR */ 01223000 L @15,CVTPTR 0828 01224000 L @15,TCXPTR(,@15) 0828 01225000 MVC OPCAQLST(3,ROPCAVT),TCXTCB+1(@15) 0828 01226000 * OPCAQRQ3=ENDLIST; /* INDICATE END OF LIST */ 01227000 MVI OPCAQRQ3(ROPCAVT),X'80' 0829 01228000 * RPARM=ADDR(OPCAQCTL); /* PASS PARM LSIT */ 01229000 LA RPARM,OPCAQCTL(,ROPCAVT) 0830 01230000 * SVC(102); /* POST PLCB TO ASYN READY Q */ 01231000 SVC 102 0831 01232000 * RRET=OPCWRKSP(4); /* RESTORE RETURN ADDRESS */ 01233000 L RRET,OPCWRKSP+12(,ROPCAVT) 0832 01234000 * RFY 0833 01235000 * RCURRENT UNRSTD; 0833 01236000 * END ADDASYNQ; /* ADDED ELEMENT ON ASYN Q */ 01237000 @EL00012 DS 0H 0834 01238000 @EF00012 DS 0H 0834 01239000 @ER00012 BR @14 0834 01240000 * END IGCVA10D 0835 01241000 * 0835 01242000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01243000 */*%INCLUDE SYSLIB (TAVTD ) */ 01244000 */*%INCLUDE SYSLIB (CVT ) */ 01245000 */*%INCLUDE SYSLIB (IHADCBDF) */ 01246000 */*%INCLUDE SYSLIB (IHADCB ) */ 01247000 */*%INCLUDE SYSLIB (TDEBD ) */ 01248000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 01249000 */*%INCLUDE SYSLIB (TLCBD ) */ 01250000 */*%INCLUDE SYSLIB (TLGBD ) */ 01251000 */*%INCLUDE SYSLIB (TNSLD ) */ 01252000 */*%INCLUDE SYSLIB (TOPCED ) */ 01253000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01254000 */*%INCLUDE SYSLIB (TOPRED ) */ 01255000 */*%INCLUDE SYSLIB (TPRFD ) */ 01256000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01257000 */*%INCLUDE SYSLIB (TQCBD ) */ 01258000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01259000 */*%INCLUDE SYSLIB (TTCXD ) */ 01260000 */*%INCLUDE SYSLIB (TTNTD ) */ 01261000 */*%INCLUDE SYSLIB (TTRMD ) */ 01262000 */*%INCLUDE SYSLIB (TTHD ) */ 01263000 * 0835 01264000 * ; 0835 01265000 @DATA DS 0H 01266000 @SM03956 MVC OCBACKUP(0,ROPCE),NAME(RPARM) 01267000 DS 0F 01268000 DS 0F 01269000 @CF00046 DC F'8' 01270000 @CF02275 DC F'14' 01271000 @CF01424 DC F'36' 01272000 @CF03868 DC F'210' 01273000 @CF03965 DC F'-12' 01274000 @CF02814 DC XL4'08000002' 01275000 @CF03857 DC XL4'00FFFFFF' 01276000 @CF03955 DC XL4'0000FFFF' 01277000 DS 0D 01278000 IEDQPPTR DS A 01279000 @CC03885 DC C'09' 01280000 @CC03887 DC C'06' 01281000 @CC03889 DC C'07' 01282000 @CC03891 DC C'0H' 01283000 @CC03893 DC C'00' 01284000 @CC03895 DC C'03' 01285000 @CC03910 DC C'VA' 01286000 @CB03961 DC B'000000000000000000000000100010000000000000000000000000C01287000 00' 01288000 @CB03966 DC B'111111111111111111111111011111111111111111111111111111C01289000 11' 01290000 ZAPAREA DC 92X'00' 01291000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01292000 @01 EQU 01 01293000 @02 EQU 02 01294000 @03 EQU 03 01295000 @04 EQU 04 01296000 @05 EQU 05 01297000 @06 EQU 06 01298000 @07 EQU 07 01299000 @08 EQU 08 01300000 @09 EQU 09 01301000 @10 EQU 10 01302000 @11 EQU 11 01303000 @12 EQU 12 01304000 @13 EQU 13 01305000 @14 EQU 14 01306000 @15 EQU 15 01307000 IEDQAPTR EQU @04 01308000 DCBPTR EQU @08 01309000 IEDQDPTR EQU @08 01310000 IEDQLPTR EQU @03 01311000 LCBXPTR EQU @05 01312000 IEDNLPTR EQU @08 01313000 IEDNSLP EQU @05 01314000 ROPCE EQU @03 01315000 ROPCAVT EQU @02 01316000 IEDQQPTR EQU @08 01317000 IEDQNPTR EQU @08 01318000 IEDQTPTR EQU @06 01319000 RTERM EQU @06 01320000 RNSL EQU @05 01321000 RZERO EQU @00 01322000 RPARM EQU @01 01323000 ROPRE EQU @03 01324000 RLCB EQU @03 01325000 RAVT EQU @04 01326000 RUNIT EQU @05 01327000 RWORK7 EQU @07 01328000 RWORK8 EQU @08 01329000 RQCB EQU @08 01330000 RTNT EQU @08 01331000 RCURRENT EQU @09 01332000 RBASE EQU @12 01333000 RSAVE EQU @13 01334000 RRET EQU @14 01335000 RBRNCH EQU @15 01336000 CVTPTR EQU 16 01337000 IEDQAVTD EQU 0 01338000 AVTSAVEX EQU IEDQAVTD+288 01339000 AVTREADD EQU IEDQAVTD+380 01340000 AVTBUFSW EQU IEDQAVTD+384 01341000 @NM00004 EQU IEDQAVTD+388 01342000 AVTCKFLG EQU @NM00004 01343000 AVTBASE EQU IEDQAVTD+412 01344000 AVTPKF EQU AVTBASE 01345000 AVTRNMPT EQU IEDQAVTD+424 01346000 AVTOSECB EQU IEDQAVTD+492 01347000 AVTECB1 EQU AVTOSECB 01348000 AVTHG02 EQU IEDQAVTD+528 01349000 AVTDISP EQU IEDQAVTD+552 01350000 AVTHD EQU IEDQAVTD+556 01351000 AVTSCOPT EQU AVTHD 01352000 AVTSAVTP EQU IEDQAVTD+612 01353000 AVTSAVTF EQU AVTSAVTP 01354000 AVTCKPEL EQU IEDQAVTD+652 01355000 AVTCKRMV EQU AVTCKPEL 01356000 AVTCKELF EQU IEDQAVTD+680 01357000 AVTCKBYT EQU IEDQAVTD+691 01358000 AVTHG01 EQU IEDQAVTD+692 01359000 AVTCKLNK EQU IEDQAVTD+696 01360000 AVTCRELE EQU IEDQAVTD+708 01361000 AVTCCELE EQU AVTCRELE 01362000 AVTCLRHI EQU IEDQAVTD+716 01363000 AVTADBUF EQU IEDQAVTD+720 01364000 AVTSYSER EQU IEDQAVTD+728 01365000 AVTBFRFG EQU IEDQAVTD+784 01366000 AVTCKPQB EQU IEDQAVTD+804 01367000 AVTCKPTB EQU AVTCKPQB 01368000 AVTCKPEC EQU AVTCKPQB+4 01369000 AVTCKPCC EQU AVTCKPEC 01370000 AVTOPCQB EQU IEDQAVTD+816 01371000 AVTOPCOB EQU AVTOPCQB 01372000 AVTOPCEC EQU AVTOPCQB+4 01373000 AVTOPCCC EQU AVTOPCEC 01374000 AVTOLTQB EQU IEDQAVTD+828 01375000 AVTFZERO EQU IEDQAVTD+908 01376000 AVTCWFL1 EQU IEDQAVTD+924 01377000 AVTCWFL2 EQU IEDQAVTD+925 01378000 AVTSUBT EQU IEDQAVTD+948 01379000 AVTIOTR EQU IEDQAVTD+949 01380000 AVTBIT1 EQU IEDQAVTD+1050 01381000 AVTBIT2 EQU IEDQAVTD+1051 01382000 AVTBIT3 EQU IEDQAVTD+1052 01383000 AVTSTAIN EQU AVTBIT3 01384000 AVTBIT4 EQU IEDQAVTD+1136 01385000 @NM00086 EQU IEDQAVTD+1232 01386000 IEDNSVTD EQU 0 01387000 SAVTDIAG EQU IEDNSVTD 01388000 SAVTDIAF EQU SAVTDIAG 01389000 SAVTLUSQ EQU IEDNSVTD+88 01390000 SAVTSPLN EQU IEDNSVTD+224 01391000 SAVTTCPU EQU IEDNSVTD+238 01392000 SAVTZELM EQU IEDNSVTD+270 01393000 SAVTRDRV EQU IEDNSVTD+284 01394000 SAVTCKQB EQU IEDNSVTD+300 01395000 SAVTCKTB EQU SAVTCKQB 01396000 SAVTCKEC EQU SAVTCKQB+4 01397000 SAVTCKCC EQU SAVTCKEC 01398000 CVTMAP EQU 0 01399000 CVTDAR EQU CVTMAP+72 01400000 CVTFLGS1 EQU CVTDAR 01401000 CVTDCB EQU CVTMAP+116 01402000 CVTIERLC EQU CVTMAP+144 01403000 CVTOPTA EQU CVTMAP+182 01404000 CVTOPTB EQU CVTMAP+183 01405000 CVTGTF EQU CVTMAP+236 01406000 CVTGTFST EQU CVTGTF 01407000 CVTGTFS EQU CVTGTFST 01408000 CVTSTATE EQU CVTGTFST 01409000 CVTTMODE EQU CVTGTFST 01410000 CVTFORM EQU CVTGTFST 01411000 CVTAQAVT EQU CVTMAP+240 01412000 CVTTCMFG EQU CVTAQAVT 01413000 CVTVOLM2 EQU CVTMAP+244 01414000 CVTTATA EQU CVTVOLM2 01415000 CVTTSKS EQU CVTTATA 01416000 CVTVOLF2 EQU CVTTSKS 01417000 CVTTAT EQU CVTTATA+1 01418000 CVTATER EQU CVTMAP+248 01419000 CVTEXT1 EQU CVTMAP+252 01420000 CVTPURG EQU CVTMAP+260 01421000 CVTQMSG EQU CVTMAP+268 01422000 CVTDMSR EQU CVTMAP+272 01423000 CVTRSV37 EQU CVTDMSR 01424000 CVTDMSRF EQU CVTRSV37 01425000 CVTERPV EQU CVTMAP+316 01426000 CVTINTLA EQU CVTMAP+320 01427000 CVTAPF EQU CVTMAP+324 01428000 CVTEXT2 EQU CVTMAP+328 01429000 CVTHJES EQU CVTMAP+332 01430000 CVTPGSIA EQU CVTMAP+348 01431000 CVTA1F1 EQU CVTMAP+356 01432000 CVTSYSK EQU CVTMAP+357 01433000 CVTVOLM1 EQU CVTMAP+380 01434000 CVTVOLF1 EQU CVTVOLM1 01435000 CVTATMCT EQU CVTMAP+388 01436000 CVTXTNT1 EQU 0 01437000 CVTXTNT2 EQU 0 01438000 CVTDSSV EQU CVTXTNT2 01439000 CVTFLGBT EQU CVTXTNT2+5 01440000 CVTQID EQU CVTXTNT2+24 01441000 CVTSHS EQU CVTXTNT2+40 01442000 CVTRV400 EQU CVTXTNT2+52 01443000 CVTRV409 EQU CVTXTNT2+53 01444000 CVTATCVT EQU CVTXTNT2+64 01445000 CVTRV429 EQU CVTXTNT2+84 01446000 CVTRV438 EQU CVTXTNT2+85 01447000 CVTRV457 EQU CVTXTNT2+112 01448000 CVTRV466 EQU CVTXTNT2+113 01449000 CVTFIX EQU 0 01450000 CVTRELNO EQU CVTFIX+252 01451000 IHADCB EQU 0 01452000 IHADCS1A EQU 0 01453000 DCBBCKUP EQU IHADCS1A+8 01454000 IHADCS2K EQU 0 01455000 DCBDUMPD EQU IHADCS2K 01456000 DCBTRSTA EQU IHADCS2K+5 01457000 DCBDSORG EQU IHADCS2K+6 01458000 DCBDSRG2 EQU DCBDSORG+1 01459000 DCBRNCKD EQU IHADCS2K+12 01460000 DCBEXLST EQU IHADCS2K+16 01461000 IHADCS24 EQU 0 01462000 DCBOFLGS EQU IHADCS24+8 01463000 DCBOFLWR EQU DCBOFLGS 01464000 DCBIFLG EQU IHADCS24+9 01465000 DCBIBPCT EQU DCBIFLG 01466000 DCBMACR EQU IHADCS24+10 01467000 DCBMACR1 EQU DCBMACR 01468000 DCBMRFE EQU DCBMACR1 01469000 DCBMRGET EQU DCBMRFE 01470000 DCBMRAPG EQU DCBMACR1 01471000 DCBMRRD EQU DCBMRAPG 01472000 DCBMRCI EQU DCBMACR1 01473000 DCBMRMVG EQU DCBMRCI 01474000 DCBMRLCG EQU DCBMACR1 01475000 DCBMRABC EQU DCBMACR1 01476000 DCBMRPT1 EQU DCBMRABC 01477000 DCBMRSBG EQU DCBMRPT1 01478000 DCBMRCRL EQU DCBMACR1 01479000 DCBMRCHK EQU DCBMRCRL 01480000 DCBMRRDX EQU DCBMRCHK 01481000 DCBMRDMG EQU DCBMACR1 01482000 DCBMACR2 EQU DCBMACR+1 01483000 DCBMRPUT EQU DCBMACR2 01484000 DCBMRWRT EQU DCBMACR2 01485000 DCBMRMVP EQU DCBMACR2 01486000 DCBMR5WD EQU DCBMACR2 01487000 DCBMRLDM EQU DCBMR5WD 01488000 DCBMRLCP EQU DCBMRLDM 01489000 DCBMR4WD EQU DCBMACR2 01490000 DCBMRPT2 EQU DCBMR4WD 01491000 DCBMRTMD EQU DCBMRPT2 01492000 DCBMR3WD EQU DCBMACR2 01493000 DCBMRCTL EQU DCBMR3WD 01494000 DCBMRSTK EQU DCBMRCTL 01495000 DCBMR1WD EQU DCBMACR2 01496000 DCBMRSWA EQU DCBMR1WD 01497000 DCBMRDMD EQU DCBMRSWA 01498000 IHADCS25 EQU 0 01499000 DCBMACRF EQU IHADCS25+2 01500000 DCBMACF1 EQU DCBMACRF 01501000 DCBMFFE EQU DCBMACF1 01502000 DCBMFGET EQU DCBMFFE 01503000 DCBMFAPG EQU DCBMACF1 01504000 DCBMFRD EQU DCBMFAPG 01505000 DCBMFCI EQU DCBMACF1 01506000 DCBMFMVG EQU DCBMFCI 01507000 DCBMFLCG EQU DCBMACF1 01508000 DCBMFABC EQU DCBMACF1 01509000 DCBMFPT1 EQU DCBMFABC 01510000 DCBMFSBG EQU DCBMFPT1 01511000 DCBMFCRL EQU DCBMACF1 01512000 DCBMFCHK EQU DCBMFCRL 01513000 DCBMFDMG EQU DCBMACF1 01514000 DCBMACF2 EQU DCBMACRF+1 01515000 DCBMFPUT EQU DCBMACF2 01516000 DCBMFWRT EQU DCBMACF2 01517000 DCBMFMVP EQU DCBMACF2 01518000 DCBMF5WD EQU DCBMACF2 01519000 DCBMFLDM EQU DCBMF5WD 01520000 DCBMFLCP EQU DCBMFLDM 01521000 DCBMF4WD EQU DCBMACF2 01522000 DCBMFPT2 EQU DCBMF4WD 01523000 DCBMFTMD EQU DCBMFPT2 01524000 DCBMF3WD EQU DCBMACF2 01525000 DCBMFCTL EQU DCBMF3WD 01526000 DCBMFSTK EQU DCBMFCTL 01527000 DCBMF1WD EQU DCBMACF2 01528000 DCBMFSWA EQU DCBMF1WD 01529000 DCBMFDMD EQU DCBMFSWA 01530000 DCBDEBAD EQU IHADCS25+4 01531000 DCBIFLGS EQU DCBDEBAD 01532000 DCBIFPCT EQU DCBIFLGS 01533000 IHADCS27 EQU 0 01534000 DCBGET EQU IHADCS27 01535000 DCBPUT EQU DCBGET 01536000 DCBGETA EQU DCBPUT+1 01537000 IHADCS43 EQU 0 01538000 DCBSCTAB EQU IHADCS43 01539000 IEDQDEB EQU 0 01540000 DEBPRF EQU IEDQDEB 01541000 DEBAPVT EQU DEBPRF 01542000 DEBNMSUB EQU IEDQDEB+36 01543000 DEBNMEXT EQU IEDQDEB+52 01544000 DEBUCBS EQU IEDQDEB+68 01545000 UCB EQU 0 01546000 UCBOB EQU 0 01547000 UCBJBNR EQU UCBOB 01548000 UCBFL5 EQU UCBOB+1 01549000 UCBAF EQU UCBFL5 01550000 UCBSTAT EQU UCBOB+3 01551000 UCBCHAN EQU UCBOB+4 01552000 UCBSFLS EQU UCBOB+6 01553000 UCBFLA EQU UCBSFLS 01554000 UCBFL1 EQU UCBFLA 01555000 UCBBSY EQU UCBFL1 01556000 UCBNRY EQU UCBFL1 01557000 UCBPST EQU UCBFL1 01558000 UCBCUB EQU UCBFL1 01559000 UCBFLB EQU UCBSFLS+1 01560000 UCBCHM EQU UCBOB+8 01561000 UCBCHM1 EQU UCBCHM 01562000 UCBPTH0 EQU UCBCHM1 01563000 UCBPTH1 EQU UCBCHM1 01564000 UCBWGT EQU UCBOB+12 01565000 UCBNAME EQU UCBOB+13 01566000 UCBTYP EQU UCBOB+16 01567000 UCBTBYT1 EQU UCBTYP 01568000 UCB1FEA5 EQU UCBTBYT1 01569000 UCB1FEA6 EQU UCBTBYT1 01570000 UCBTBYT2 EQU UCBTYP+1 01571000 UCB2OPT2 EQU UCBTBYT2 01572000 UCBDUDN1 EQU UCB2OPT2 01573000 UCB2OPT3 EQU UCBTBYT2 01574000 UCBDUDN2 EQU UCB2OPT3 01575000 UCB2OPT4 EQU UCBTBYT2 01576000 UCBRWTAU EQU UCB2OPT4 01577000 UCB2OPT6 EQU UCBTBYT2 01578000 UCB2OPT7 EQU UCBTBYT2 01579000 UCBTBYT3 EQU UCBTYP+2 01580000 UCBDVCLS EQU UCBTBYT3 01581000 UCBTBYT4 EQU UCBTYP+3 01582000 UCBEXTPT EQU UCBOB+20 01583000 UCBFLC EQU UCBEXTPT 01584000 UCBDEV EQU UCBOB+24 01585000 UCBCMEXT EQU 0 01586000 UCBATI EQU UCBCMEXT+3 01587000 @NM00121 EQU UCBATI 01588000 UCBFLP1 EQU UCBCMEXT+5 01589000 UCBMT EQU 0 01590000 UCBOCR EQU 0 01591000 UCB3540X EQU 0 01592000 UCBDKBYT EQU UCB3540X+6 01593000 UCB3800X EQU 0 01594000 UCBOPTNS EQU UCB3800X 01595000 UCBACTIV EQU UCB3800X+3 01596000 UCBMDRBF EQU UCB3800X+36 01597000 UCBUCS EQU 0 01598000 UCBUCSOP EQU UCBUCS+4 01599000 UCBFCBOP EQU UCBUCS+5 01600000 IEDQLCB EQU 0 01601000 LCBRCB EQU IEDQLCB 01602000 LCBLINK EQU LCBRCB+5 01603000 LCBTSOB EQU IEDQLCB+19 01604000 LCBCHAIN EQU IEDQLCB+20 01605000 LCBSCRNN EQU LCBCHAIN 01606000 LCBTETEN EQU LCBCHAIN 01607000 LCBINSRC EQU IEDQLCB+21 01608000 LCBLKMDE EQU LCBINSRC+2 01609000 LCBNTXT EQU IEDQLCB+24 01610000 LCBSTAT4 EQU LCBNTXT 01611000 LCBPHASE EQU LCBSTAT4 01612000 LCBSCBDA EQU IEDQLCB+25 01613000 LCBMHA EQU IEDQLCB+29 01614000 LCBFLAG1 EQU IEDQLCB+32 01615000 LCBIOBSN EQU IEDQLCB+33 01616000 LCBSNS EQU LCBIOBSN+1 01617000 LCBSENS0 EQU LCBSNS 01618000 LCBLOSDT EQU LCBSENS0 01619000 LCBTMOUT EQU LCBSENS0 01620000 LCBFLAG3 EQU LCBIOBSN+7 01621000 LCBCSW EQU LCBIOBSN+8 01622000 LCBCSWST EQU LCBCSW+3 01623000 LCBCSWUS EQU LCBCSWST 01624000 LCBCSWCS EQU LCBCSWST+1 01625000 LCBSIOCC EQU LCBIOBSN+15 01626000 LCBDCBPT EQU IEDQLCB+52 01627000 LCBRCQCB EQU IEDQLCB+56 01628000 LCBRESTR EQU LCBRCQCB 01629000 LCBTHSQ EQU IEDQLCB+60 01630000 LCBINCAM EQU LCBTHSQ 01631000 LCBERRCT EQU IEDQLCB+62 01632000 LCBLSPCI EQU IEDQLCB+65 01633000 LCBRCBFR EQU LCBLSPCI 01634000 LCBSTATE EQU IEDQLCB+70 01635000 LCBSTAT1 EQU LCBSTATE 01636000 LCBSTAT2 EQU LCBSTATE+1 01637000 LCBBEOTN EQU LCBSTAT2 01638000 LCBSYNC EQU LCBSTAT2 01639000 LCBDIAL EQU LCBSTAT2 01640000 LCBTSTSW EQU IEDQLCB+72 01641000 LCBERB EQU IEDQLCB+76 01642000 LCBERBST EQU IEDQLCB+84 01643000 LCBDLNKN EQU LCBERBST 01644000 LCBERBCT EQU IEDQLCB+88 01645000 LCBRBCT2 EQU LCBERBCT+1 01646000 LCBTTCIN EQU IEDQLCB+90 01647000 LCBMSGFM EQU IEDQLCB+92 01648000 LCBOBRCH EQU IEDQLCB+96 01649000 LCBINVPT EQU LCBOBRCH+1 01650000 LCBBFRW EQU LCBINVPT 01651000 LCBTPCD EQU IEDQLCB+100 01652000 LCBSTAT5 EQU LCBTPCD 01653000 LCBSTAT6 EQU LCBTPCD+4 01654000 LCBRSPSV EQU LCBTPCD+8 01655000 LCBSAVSN EQU IEDQLCB+112 01656000 LCBERCCW EQU IEDQLCB+120 01657000 LCBCPA EQU IEDQLCB+144 01658000 LCBCCW5 EQU LCBCPA+32 01659000 LCBATTEL EQU LCBCCW5 01660000 LCBQEBPL EQU LCBATTEL 01661000 IEDQLCBX EQU 0 01662000 LCBXCON EQU IEDQLCBX 01663000 LCBXFLAG EQU LCBXCON 01664000 LCBXDCT EQU LCBXCON+1 01665000 LCBXRADR EQU LCBXCON+4 01666000 IEDNLGB EQU 0 01667000 LGBBUFOU EQU IEDNLGB+20 01668000 LGBPCI EQU IEDNLGB+25 01669000 LGBBYTE EQU IEDNLGB+29 01670000 LGBOFLGS EQU IEDNLGB+48 01671000 LGBRESER EQU IEDNLGB+56 01672000 IEDNNSLD EQU 0 01673000 IEDNSLD EQU 0 01674000 NSLPLCB EQU IEDNSLD+8 01675000 NSLSAVE EQU IEDNSLD+9 01676000 NSLGPCUS EQU IEDNSLD+12 01677000 NSLTTCIN EQU IEDNSLD+16 01678000 NSLPRIBK EQU IEDNSLD+18 01679000 NSLFLGBK EQU IEDNSLD+19 01680000 NSLERB EQU IEDNSLD+20 01681000 NSLESTAT EQU NSLERB+8 01682000 NSLREQTY EQU IEDNSLD+35 01683000 NSLGRPNM EQU IEDNSLD+36 01684000 NSLOPCEP EQU NSLGRPNM 01685000 NSLTTEPT EQU IEDNSLD+44 01686000 IEDQOPCE EQU 0 01687000 OCLINK EQU IEDQOPCE 01688000 OCELEM EQU IEDQOPCE+4 01689000 OCUNIT EQU IEDQOPCE+8 01690000 OCRUDEST EQU OCUNIT 01691000 OCCKPKEY EQU OCRUDEST 01692000 OCSCAN EQU OCCKPKEY 01693000 OCOPTCDE EQU IEDQOPCE+12 01694000 OCSWITCH EQU IEDQOPCE+13 01695000 OCFLAG EQU IEDQOPCE+14 01696000 OCTOTE EQU OCFLAG 01697000 @NM00190 EQU IEDQOPCE+16 01698000 OCDEST EQU @NM00190 01699000 OCREQVAL EQU OCDEST+1 01700000 OCTRMTBL EQU IEDQOPCE+20 01701000 OCLINENO EQU IEDQOPCE+22 01702000 OCTIOT EQU OCLINENO 01703000 OCTRUNIT EQU IEDQOPCE+24 01704000 OCRSID EQU OCTRUNIT 01705000 OCALSTAT EQU OCRSID 01706000 OCPARM EQU IEDQOPCE+28 01707000 OCWTG EQU IEDQOPCE+30 01708000 OCBACKUP EQU IEDQOPCE+32 01709000 OCMODNME EQU IEDQOPCE+40 01710000 OCIPLWA EQU OCMODNME 01711000 OCCKDATA EQU IEDQOPCE+48 01712000 OCRSTGTM EQU OCCKDATA 01713000 IEDQOPCN EQU 0 01714000 OCLDNME EQU IEDQOPCN 01715000 OCLINTTE EQU OCLDNME 01716000 OCREQFLG EQU OCLINTTE+2 01717000 OCPREFLG EQU OCLINTTE+3 01718000 IEDQOPCD EQU 0 01719000 OPCAVTPT EQU IEDQOPCD+8 01720000 OPCCOPCE EQU IEDQOPCD+12 01721000 OPCTNTEA EQU IEDQOPCD+44 01722000 OPCSAVE EQU IEDQOPCD+56 01723000 OPCFLAG1 EQU IEDQOPCD+146 01724000 OPCAQCTL EQU IEDQOPCD+180 01725000 OPCXCTL EQU IEDQOPCD+204 01726000 OPCLDNME EQU IEDQOPCD+212 01727000 OPCMODID EQU OPCLDNME+3 01728000 OPCHORT EQU IEDQOPCD+256 01729000 OPCGETBF EQU IEDQOPCD+276 01730000 OPCFREBF EQU IEDQOPCD+280 01731000 OPCSPEC EQU IEDQOPCD+300 01732000 OPCRSTRT EQU OPCSPEC 01733000 OPCWRKSP EQU IEDQOPCD+320 01734000 OPCWAITV EQU IEDQOPCD+364 01735000 OPCPWCOB EQU IEDQOPCD+368 01736000 OPCPWQCB EQU OPCPWCOB 01737000 OPCPWECB EQU OPCPWCOB+4 01738000 IEDOPRED EQU 0 01739000 OPREQCB EQU IEDOPRED+1 01740000 OPREPRI EQU IEDOPRED+4 01741000 OPRESAVE EQU IEDOPRED+8 01742000 OPREFLG1 EQU IEDOPRED+12 01743000 OPREFLG3 EQU IEDOPRED+14 01744000 IEDQPRF EQU 0 01745000 PRFRCB EQU IEDQPRF 01746000 PRFKEY EQU PRFRCB 01747000 PRFQCBA EQU PRFRCB+1 01748000 PRFPRI EQU PRFRCB+4 01749000 PRFLINK EQU PRFRCB+5 01750000 PRFTIC EQU IEDQPRF+8 01751000 PRFTICC EQU PRFTIC 01752000 PRFNBUNT EQU IEDQPRF+12 01753000 PRFSUNIT EQU PRFNBUNT 01754000 PRFPLQCB EQU PRFSUNIT 01755000 PRFPIUO EQU PRFPLQCB 01756000 @NM00223 EQU IEDQPRF+16 01757000 PRFSVFFO EQU @NM00223 01758000 PRFSTAT1 EQU IEDQPRF+20 01759000 PRFEOFN EQU PRFSTAT1 01760000 PRFCORE EQU IEDQPRF+21 01761000 PRFXTRA EQU PRFCORE 01762000 PRFSCAN EQU IEDQPRF+24 01763000 PRFTQBCK EQU IEDQPRF+26 01764000 PRFNTXT EQU PRFTQBCK 01765000 PRFEOBOF EQU PRFNTXT 01766000 PRFCHDR EQU IEDQPRF+32 01767000 PRFHQBCK EQU IEDQPRF+35 01768000 IEDPF1 EQU 0 01769000 PRF1FLG1 EQU IEDPF1+3 01770000 PRF1WD2 EQU IEDPF1+4 01771000 PRF1SEQP EQU PRF1WD2 01772000 PRF1SQID EQU PRF1SEQP 01773000 PRF1TAG1 EQU PRF1SQID 01774000 IEDPF2 EQU 0 01775000 PRF2FLG2 EQU IEDPF2 01776000 PRF2WD2 EQU IEDPF2+4 01777000 IEDQQCB EQU 0 01778000 QCBDSFLG EQU IEDQQCB 01779000 QCBDISK EQU QCBDSFLG 01780000 QCBELCHN EQU IEDQQCB+1 01781000 QCBEOLDT EQU IEDQQCB+16 01782000 QCBBYTE1 EQU QCBEOLDT+1 01783000 QCBLKRLN EQU IEDQQCB+18 01784000 QCBRETCT EQU QCBLKRLN 01785000 QCBSTAT EQU IEDQQCB+19 01786000 QCBINSRC EQU IEDQQCB+21 01787000 @NM00233 EQU QCBINSRC 01788000 QCBTSOF2 EQU @NM00233+1 01789000 QCBTSOF1 EQU @NM00233+2 01790000 QCBINTVL EQU IEDQQCB+24 01791000 QCBPREN EQU IEDQQCB+28 01792000 QCBLKRRN EQU QCBPREN+1 01793000 QCBDCBAD EQU IEDQQCB+33 01794000 QCBFLAG EQU IEDQQCB+36 01795000 IEDQPQCB EQU 0 01796000 QCBFHDLZ EQU IEDQPQCB+3 01797000 QCBPFEFO EQU QCBFHDLZ+1 01798000 QCBFHDTZ EQU IEDQPQCB+6 01799000 QCBINTLF EQU IEDQPQCB+12 01800000 IEDNQCB EQU 0 01801000 QCBSTAT1 EQU IEDNQCB+4 01802000 QCBPLCBN EQU QCBSTAT1 01803000 QCBWAITC EQU QCBSTAT1 01804000 QCBPLCBA EQU IEDNQCB+5 01805000 QCBTTCIN EQU QCBPLCBA+1 01806000 TCBFIX EQU 0 01807000 TCBFRS EQU TCBFIX 01808000 TCB EQU 0 01809000 TCBPIE EQU TCB+4 01810000 TCBPMASK EQU TCBPIE 01811000 TCBCMP EQU TCB+16 01812000 TCBCMPF EQU TCBCMP 01813000 TCBCPP EQU TCBCMPF 01814000 TCBSTCC EQU TCBCMPF 01815000 TCBCDBL EQU TCBCMPF 01816000 TCBCWTO EQU TCBCMPF 01817000 TCBCIND EQU TCBCMPF 01818000 TCBCMSG EQU TCBCMPF 01819000 TCBTRN EQU TCB+20 01820000 TCBABF EQU TCBTRN 01821000 TCBMSS EQU TCB+24 01822000 TCBPKF EQU TCB+28 01823000 TCBFLGS EQU TCB+29 01824000 TCBFLGS1 EQU TCBFLGS 01825000 TCBFERA EQU TCBFLGS1 01826000 TCBNONPR EQU TCBFLGS1 01827000 TCBPDUMP EQU TCBFLGS1 01828000 TCBFT EQU TCBFLGS1 01829000 TCBFLGS2 EQU TCBFLGS+1 01830000 TCBSYSTK EQU TCBFLGS2 01831000 TCBFDSOP EQU TCBFLGS2 01832000 TCBFLGS3 EQU TCBFLGS+2 01833000 TCBADINP EQU TCBFLGS3 01834000 TCBABTRM EQU TCBFLGS3 01835000 TCBABGM EQU TCBFLGS3 01836000 TCBRSV06 EQU TCBFLGS3 01837000 TCBRSV07 EQU TCBFLGS3 01838000 TCBRSV08 EQU TCBFLGS3 01839000 TCBDWSTA EQU TCBFLGS3 01840000 TCBFLGS4 EQU TCBFLGS+3 01841000 TCBFLGS5 EQU TCBFLGS+4 01842000 TCBABWF EQU TCBFLGS5 01843000 TCBFTJST EQU TCB+44 01844000 TCBJPQ EQU TCBFTJST 01845000 TCBPURGE EQU TCBJPQ 01846000 TCBFTJSA EQU TCBJPQ+1 01847000 TCBGRS EQU TCB+48 01848000 TCBFSA EQU TCB+112 01849000 TCBIDF EQU TCBFSA 01850000 TCBTME EQU TCB+120 01851000 TCBPIB EQU TCB+124 01852000 TCBJSTCB EQU TCBPIB 01853000 TCBPIBT EQU TCBJSTCB 01854000 TCBPIBA EQU TCBJSTCB+1 01855000 TCBTSFLG EQU TCB+148 01856000 TCBTSTSK EQU TCBTSFLG 01857000 TCBPQE EQU TCB+152 01858000 TCBFTFLG EQU TCBPQE+1 01859000 TCBFTFL1 EQU TCBFTFLG 01860000 TCBFTFL2 EQU TCBFTFLG+1 01861000 TCBFTFL3 EQU TCBFTFLG+2 01862000 TCBAQE EQU TCB+156 01863000 TCBSTAB EQU TCB+160 01864000 TCBNSTAE EQU TCBSTAB 01865000 TCBXCTL EQU TCBNSTAE 01866000 TCBSCAT EQU TCBNSTAE 01867000 TCBSUPER EQU TCBNSTAE 01868000 TCBRETRY EQU TCBNSTAE 01869000 TCBVALID EQU TCBNSTAE 01870000 TCBTCT EQU TCB+164 01871000 TCBTCTGF EQU TCBTCT 01872000 TCBSCNDY EQU TCB+172 01873000 TCBNDSP EQU TCBSCNDY 01874000 TCBNDSP1 EQU TCBNDSP+1 01875000 TCBNDSP2 EQU TCBNDSP+2 01876000 TCBNDSP3 EQU TCBNDSP+3 01877000 TCBLJSND EQU TCBNDSP3 01878000 TCBRV302 EQU TCBNDSP3 01879000 TCBSRBND EQU TCBNDSP3 01880000 TCBNDINT EQU TCBNDSP3 01881000 TCBJSCB EQU TCB+180 01882000 TCBRECDE EQU TCBJSCB 01883000 TCBEXT1 EQU TCB+196 01884000 TCBBITS EQU TCB+200 01885000 TCBNDSP4 EQU TCBBITS 01886000 TCBNDSP5 EQU TCBBITS+1 01887000 TCBFLGS6 EQU TCBBITS+2 01888000 TCBCPU EQU TCBFLGS6 01889000 TCBSPVLK EQU TCBFLGS6 01890000 TCBRV303 EQU TCBFLGS6 01891000 TCBMIGR EQU TCBFLGS6 01892000 TCBAPG EQU TCBFLGS6 01893000 TCBNTJS EQU TCBFLGS6 01894000 TCBFLGS7 EQU TCBBITS+3 01895000 TCBGPECB EQU TCBFLGS7 01896000 TCBRSV33 EQU TCBFLGS7 01897000 TCBRSV34 EQU TCBFLGS7 01898000 TCBSTACK EQU TCBFLGS7 01899000 TCBRSTSK EQU TCBFLGS7 01900000 TCBADMP EQU TCBFLGS7 01901000 TCBDAR EQU TCB+204 01902000 TCBDARC EQU TCBDAR 01903000 TCBEXT2 EQU TCB+208 01904000 TCBPCB EQU TCB+212 01905000 TCBARB EQU TCB+220 01906000 TCBTTQE EQU TCB+224 01907000 TCBXTNT2 EQU 0 01908000 TCBGTF EQU TCBXTNT2 01909000 TCBTFLG EQU TCBGTF 01910000 TCBRV146 EQU TCBXTNT2+28 01911000 TCBRV155 EQU TCBXTNT2+29 01912000 TCBRV164 EQU TCBXTNT2+30 01913000 TCBRV173 EQU TCBXTNT2+31 01914000 IEDQTCXD EQU 0 01915000 TCXATTEN EQU IEDQTCXD+4 01916000 TCXTCB EQU IEDQTCXD+8 01917000 TCXREADY EQU IEDQTCXD+24 01918000 TCXFLAG1 EQU IEDQTCXD+34 01919000 TCXBUFA EQU IEDQTCXD+80 01920000 TCXDSAVE EQU IEDQTCXD+104 01921000 TCXQE8 EQU IEDQTCXD+216 01922000 IEDQTNTD EQU 0 01923000 IEDQTCDE EQU IEDQTNTD 01924000 TNTENLEN EQU IEDQTNTD+40 01925000 IEDQTDCE EQU IEDQTNTD+46 01926000 IEDTNTA EQU 0 01927000 IEDQTRM EQU 0 01928000 TRMSTATE EQU IEDQTRM 01929000 TRMLOG EQU TRMSTATE 01930000 TRMDESTQ EQU IEDQTRM+1 01931000 TRMINSEQ EQU IEDQTRM+4 01932000 TLISTCNT EQU TRMINSEQ 01933000 TRMOUTSQ EQU IEDQTRM+6 01934000 TLISTEN EQU TRMOUTSQ 01935000 TRMDSORG EQU TLISTEN 01936000 TRMALTD EQU IEDQTRM+8 01937000 TRMDEVFL EQU IEDQTRM+10 01938000 TRMSTAT EQU IEDQTRM+12 01939000 IEDNTRM EQU 0 01940000 TRMBYTE4 EQU IEDNTRM 01941000 TRMBYTE3 EQU IEDNTRM+1 01942000 TRMBYTE2 EQU IEDNTRM+2 01943000 TRMRSACT EQU TRMBYTE2 01944000 TRMINPG EQU TRMBYTE2 01945000 TRMGPACT EQU TRMBYTE2 01946000 TRMBYTE1 EQU IEDNTRM+3 01947000 TRMSCPRQ EQU TRMBYTE1 01948000 TRMBYTE0 EQU IEDNTRM+6 01949000 TRMSIBPT EQU IEDNTRM+7 01950000 TRMGPCNT EQU TRMSIBPT 01951000 TRMTYPE EQU IEDNTRM+11 01952000 TRMSUBST EQU IEDNTRM+12 01953000 IEDTH EQU 0 01954000 TTHBYTE0 EQU IEDTH 01955000 TTHOAF EQU IEDTH+4 01956000 TTHSNF EQU IEDTH+6 01957000 TTHTAG EQU TTHSNF 01958000 TTHTAG1 EQU TTHTAG 01959000 NAME EQU 0 01960000 ARREQST EQU 0 01961000 ARTICADR EQU ARREQST+9 01962000 ARFLAGS EQU ARTICADR 01963000 ALLOCBUF EQU 0 01964000 COHORTLK EQU 0 01965000 FREEBUF EQU 0 01966000 IEDQTNT EQU 0 01967000 TNTENTAD EQU 0 01968000 DEBSUBR EQU 0 01969000 QCBLDCB EQU 0 01970000 TNTCODE EQU 0 01971000 TNTDCODE EQU 0 01972000 TNTFIRST EQU 0 01973000 UCBBGN EQU 0 01974000 UCBDCPTR EQU 0 01975000 CVTS01 EQU CVTPGSIA 01976000 CVTLPDIA EQU CVTS01+12 01977000 CVTDIRST EQU CVTLPDIA 01978000 CVTSLIDA EQU CVTS01+24 01979000 CVTCTLFG EQU CVTS01+50 01980000 CVTRV210 EQU CVTS01+424 01981000 CVTRV219 EQU CVTS01+425 01982000 CVTRV228 EQU CVTS01+426 01983000 CVTRV237 EQU CVTS01+427 01984000 CVTMFRTR EQU CVTS01+452 01985000 CVTRV262 EQU CVTS01+468 01986000 CVTRV271 EQU CVTS01+469 01987000 CVTRV280 EQU CVTS01+470 01988000 CVTRV289 EQU CVTS01+471 01989000 CVTGSDA EQU CVTS01+600 01990000 DEBUCB EQU DEBUCBS 01991000 DEBDVMOD EQU DEBUCB 01992000 DEBUCBAD EQU DEBUCB+1 01993000 UCBPTR EQU DEBUCBAD 01994000 UCBOBS01 EQU UCBDEV 01995000 UCBSTAB EQU UCBOBS01+10 01996000 UCBBSVL EQU UCBSTAB 01997000 UCBPRSRS EQU UCBSTAB 01998000 UCBDMCT EQU UCBOBS01+11 01999000 UCBFL4 EQU UCBOBS01+13 02000000 UCBOBS02 EQU UCBDEV 02001000 UCBTFL1 EQU UCBOBS02+19 02002000 UCBXTN EQU UCBOBS02+20 02003000 UCBVOPT EQU UCBXTN 02004000 UCBOBS03 EQU UCBDEV 02005000 UCBXTADR EQU UCBOBS03 02006000 UCBOBS04 EQU UCBDEV 02007000 UCBBTA EQU UCBOBS04+12 02008000 UCBOBS06 EQU UCBDEV 02009000 UCBAOF EQU UCBOBS06 02010000 UCBAOF1 EQU UCBAOF 02011000 UCBAOF2 EQU UCBAOF+1 02012000 @NM00120 EQU UCBOBS06+3 02013000 UCBIRB EQU UCBOBS06+4 02014000 UCBGRAF EQU UCBIRB 02015000 UCBLDNCA EQU UCBOBS06+8 02016000 UCBRDYQ EQU UCBLDNCA 02017000 UCBIRLN EQU UCBRDYQ 02018000 UCBLDNCB EQU UCBRDYQ+1 02019000 UCBCTLNK EQU UCBOBS06+12 02020000 UCBOBS07 EQU UCBDEV 02021000 UCBOBS08 EQU UCBDEV 02022000 UCBCTCAD EQU UCBOBS08 02023000 UCBCTCF1 EQU UCBOBS08+4 02024000 UCBOBS09 EQU UCBDEV 02025000 LCBRSPIN EQU LCBIOBSN 02026000 LCBLUSNS EQU LCBRSPIN+5 02027000 LCBSCPRS EQU LCBRSPIN+9 02028000 LCBCSWU1 EQU LCBSCPRS+2 02029000 LCBRSPFG EQU LCBRSPIN+15 02030000 LCBCOREQ EQU LCBTPCD 02031000 @NM00150 EQU LCBCPA+40 02032000 LCBQNX EQU LCBERCCW 02033000 LCBQNXMN EQU LCBQNX 02034000 LCBCANCL EQU LCBSAVSN 02035000 LCBCANFG EQU LCBCANCL 02036000 OCCKPKY1 EQU OCCKPKEY 02037000 OCCKPTYP EQU OCCKPKY1 02038000 OCICACTN EQU OCMODNME 02039000 OCICDADR EQU OCICACTN 02040000 OCICSW EQU OCICDADR+3 02041000 OPCAQWD EQU OPCAQCTL 02042000 OPCAQWD1 EQU OPCAQWD 02043000 OPCAQREQ EQU OPCAQWD1 02044000 OPCAQFST EQU OPCAQWD1+1 02045000 OPCAQWD2 EQU OPCAQWD+4 02046000 OPCAQRQ2 EQU OPCAQWD2 02047000 OPCAQSEC EQU OPCAQWD2+1 02048000 OPCAQWD3 EQU OPCAQWD+8 02049000 OPCAQRQ3 EQU OPCAQWD3 02050000 OPCAQLST EQU OPCAQWD3+1 02051000 TCBPTR EQU TCXTCB 02052000 TCBS01 EQU TCBPCB 02053000 TCBFOE EQU TCBS01+32 02054000 TCBESTAE EQU TCBS01+52 02055000 TCBESTRM EQU TCBESTAE+1 02056000 TCBFBYT1 EQU TCBS01+64 02057000 TCBFBYT2 EQU TCBS01+65 02058000 TCBRV124 EQU TCBS01+66 02059000 TCBRV133 EQU TCBS01+67 02060000 TCXPTR EQU CVTAQAVT 02061000 TRMPRE1 EQU TRMBYTE4 02062000 TRMNCP1 EQU TRMBYTE4 02063000 TRMPRE EQU TRMBYTE3 02064000 TRMNCP EQU TRMBYTE3 02065000 TRMPU EQU TRMBYTE3 02066000 TRMLU EQU TRMBYTE3 02067000 TRMLINK EQU TRMBYTE3 02068000 FLAGS EQU OPCFLAG1 02069000 EXITFLAG EQU FLAGS 02070000 LOOPSW EQU FLAGS 02071000 OVERLAY EQU OCMODNME 02072000 TTEADDR EQU OVERLAY 02073000 OCCIB EQU OCREQVAL 02074000 PRFSHDR EQU IEDQPRF+42 02075000 TRMOPT EQU IEDQTRM+20 02076000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02077000 LGBADDR EQU OVERLAY+4 02078000 @NM00255 EQU FLAGS 02079000 @NM00252 EQU TRMLINK 02080000 TRMLSTAT EQU TRMLINK 02081000 TRMLINT EQU TRMLINK 02082000 TRMEPMOD EQU TRMLINK 02083000 TRMLULOG EQU TRMLU 02084000 TRMINERR EQU TRMLU 02085000 TRMLUREQ EQU TRMLU 02086000 TRMSESRQ EQU TRMLU 02087000 TRMTDIFF EQU TRMLU 02088000 TRMLUTM EQU TRMLU 02089000 TRMLUIT EQU TRMLU 02090000 TRMAUTO EQU TRMLU 02091000 TRMPCONT EQU TRMPU 02092000 @NM00251 EQU TRMPU 02093000 TRMNCONT EQU TRMNCP 02094000 TRMQUCKN EQU TRMNCP 02095000 TRMSLOWN EQU TRMNCP 02096000 TRMSYGEN EQU TRMNCP 02097000 TRMNCPCL EQU TRMNCP 02098000 TRMIPLDM EQU TRMNCP 02099000 TRMINOUT EQU TRMPRE 02100000 TRMRDOUT EQU TRMPRE 02101000 TRMNLOUT EQU TRMPRE 02102000 TRMWROUT EQU TRMPRE 02103000 TRMASNXI EQU TRMPRE 02104000 TRMSTMM EQU TRMPRE 02105000 TRMCMODE EQU TRMPRE 02106000 TRMSTPND EQU TRMPRE 02107000 @NM00250 EQU TRMNCP1 02108000 TRMINOP EQU TRMNCP1 02109000 TRMLYNCH EQU TRMPRE1 02110000 TRMSPOUT EQU TRMPRE1 02111000 TRMERLCK EQU TRMPRE1 02112000 TRMQNPL EQU TRMPRE1 02113000 TRMSPACT EQU TRMPRE1 02114000 TRMOCNI EQU TRMPRE1 02115000 TRMSESSN EQU TRMPRE1 02116000 TRMCONT EQU TRMPRE1 02117000 @NM00243 EQU TCBS01+84 02118000 TCBSVCA2 EQU TCBS01+80 02119000 TCBSWASA EQU TCBS01+76 02120000 TCBDBTB EQU TCBS01+72 02121000 TCBRPT EQU TCBS01+68 02122000 TCBRV141 EQU TCBRV133 02123000 TCBRV140 EQU TCBRV133 02124000 TCBRV139 EQU TCBRV133 02125000 TCBRV138 EQU TCBRV133 02126000 TCBRV137 EQU TCBRV133 02127000 TCBRV136 EQU TCBRV133 02128000 TCBRV135 EQU TCBRV133 02129000 TCBRV134 EQU TCBRV133 02130000 TCBRV132 EQU TCBRV124 02131000 TCBRV131 EQU TCBRV124 02132000 TCBRV130 EQU TCBRV124 02133000 TCBRV129 EQU TCBRV124 02134000 TCBRV128 EQU TCBRV124 02135000 TCBRV127 EQU TCBRV124 02136000 TCBRV126 EQU TCBRV124 02137000 TCBRV125 EQU TCBRV124 02138000 TCBRV123 EQU TCBFBYT2 02139000 TCBRV122 EQU TCBFBYT2 02140000 TCBECBNV EQU TCBFBYT2 02141000 TCBSSSYN EQU TCBFBYT2 02142000 TCBFPRAP EQU TCBFBYT2 02143000 TCBFDW EQU TCBFBYT2 02144000 TCBFMW EQU TCBFBYT2 02145000 TCBCNCB EQU TCBFBYT2 02146000 TCBLLH EQU TCBFBYT1 02147000 TCBRV113 EQU TCBFBYT1 02148000 TCBEOT EQU TCBFBYT1 02149000 TCBRTM2 EQU TCBFBYT1 02150000 TCBPGNLY EQU TCBFBYT1 02151000 TCBNDIOS EQU TCBFBYT1 02152000 TCBACTIV EQU TCBFBYT1 02153000 TCBEOTFM EQU TCBFBYT1 02154000 TCBAFFN EQU TCBS01+62 02155000 TCBCCPVI EQU TCBS01+60 02156000 TCBUKYSP EQU TCBS01+56 02157000 TCBMODE EQU TCBESTAE+3 02158000 TCBERTYP EQU TCBESTAE+2 02159000 TCBRV314 EQU TCBESTRM 02160000 TCBRV313 EQU TCBESTRM 02161000 TCBRV312 EQU TCBESTRM 02162000 TCBRV311 EQU TCBESTRM 02163000 TCBRV310 EQU TCBESTRM 02164000 TCBRV309 EQU TCBESTRM 02165000 TCBRV308 EQU TCBESTRM 02166000 TCBETERM EQU TCBESTRM 02167000 TCBSCBKY EQU TCBESTAE 02168000 TCBRTM12 EQU TCBS01+48 02169000 TCBTCBID EQU TCBS01+44 02170000 TCBRSV96 EQU TCBS01+40 02171000 TCBSWA EQU TCBS01+36 02172000 TCBFOEA EQU TCBFOE+1 02173000 TCBRSV42 EQU TCBFOE 02174000 TCBRV306 EQU TCBS01+28 02175000 TCBRSV41 EQU TCBS01+27 02176000 TCBTID EQU TCBS01+26 02177000 TCBRSVAA EQU TCBS01+25 02178000 TCBABCUR EQU TCBS01+24 02179000 TCBTMSAV EQU TCBS01+20 02180000 TCBIOTIM EQU TCBS01+16 02181000 TCBRTWA EQU TCBS01+12 02182000 TCBBACK EQU TCBS01+8 02183000 TCBTIRB EQU TCBS01+4 02184000 TCBAECB EQU TCBS01 02185000 OCICINAC EQU OCICSW 02186000 @NM00196 EQU OCICSW 02187000 OCICATST EQU OCICDADR+1 02188000 OCICTYPE EQU OCICDADR 02189000 @NM00195 EQU OCCKPKY1 02190000 OCCKPENV EQU OCCKPKY1 02191000 OCCKPRST EQU OCCKPTYP 02192000 OCCKPNCP EQU OCCKPTYP 02193000 OCCKPINC EQU OCCKPTYP 02194000 @NM00158 EQU LCBCANCL+3 02195000 LCBCANTH EQU LCBCANCL+1 02196000 @NM00157 EQU LCBCANFG 02197000 LCBCANCD EQU LCBCANFG 02198000 @NM00156 EQU LCBCANFG 02199000 LCBCANEB EQU LCBCANFG 02200000 LCBCANXT EQU LCBCANFG 02201000 LCBUNADD EQU LCBQNX+21 02202000 LCBUASZE EQU LCBQNX+20 02203000 LCBDSTEA EQU LCBQNX+16 02204000 @NM00155 EQU LCBQNX+8 02205000 LCBIOSBS EQU LCBQNX+5 02206000 @NM00154 EQU LCBQNX+4 02207000 LCBSTSAV EQU LCBQNX+1 02208000 @NM00153 EQU LCBQNXMN 02209000 LCBNX509 EQU LCBQNXMN 02210000 LCBNX162 EQU LCBQNXMN 02211000 LCBNX142 EQU LCBQNXMN 02212000 LCBNX064 EQU LCBQNXMN 02213000 @NM00152 EQU @NM00150+4 02214000 LCBNCPPT EQU @NM00150+1 02215000 @NM00151 EQU @NM00150 02216000 LCBWRSCH EQU LCBCOREQ+8 02217000 LCBCQLNK EQU LCBCOREQ+4 02218000 LCBCQELE EQU LCBCOREQ 02219000 LCBPAKCH EQU LCBRSPIN+16 02220000 @NM00149 EQU LCBRSPFG 02221000 LCBRSRH EQU LCBRSPFG 02222000 LCBEXPI EQU LCBRSPFG 02223000 @NM00148 EQU LCBRSPIN+12 02224000 LCBUSUE1 EQU LCBCSWU1 02225000 @NM00147 EQU LCBCSWU1 02226000 @NM00146 EQU LCBSCPRS+1 02227000 LCBDFCMD EQU LCBSCPRS 02228000 LCBUSER EQU LCBLUSNS+2 02229000 LCBSMIN EQU LCBLUSNS+1 02230000 LCBSMAJ EQU LCBLUSNS 02231000 LCBRHSV EQU LCBRSPIN+2 02232000 LCBSNS0 EQU LCBRSPIN+1 02233000 @NM00145 EQU LCBRSPIN 02234000 UCBRV066 EQU UCBOBS09+4 02235000 UCBIOSBA EQU UCBOBS09 02236000 UCBRV042 EQU UCBOBS08+5 02237000 UCBRV082 EQU UCBCTCF1 02238000 UCBRV081 EQU UCBCTCF1 02239000 UCBRV080 EQU UCBCTCF1 02240000 UCBRV079 EQU UCBCTCF1 02241000 UCBRV078 EQU UCBCTCF1 02242000 UCBRV077 EQU UCBCTCF1 02243000 UCBRV076 EQU UCBCTCF1 02244000 UCBCTC80 EQU UCBCTCF1 02245000 UCBCTCAL EQU UCBCTCAD 02246000 UCBICNCB EQU UCBOBS07+4 02247000 UCBRV040 EQU UCBOBS07 02248000 UCBCTLNA EQU UCBCTLNK+1 02249000 UCBRLN EQU UCBCTLNK 02250000 UCBRDYQA EQU UCBLDNCB 02251000 UCBINRLN EQU UCBIRLN 02252000 UCBIRBA EQU UCBIRB+1 02253000 UCBRV039 EQU UCBGRAF 02254000 UCBDWNR EQU UCBGRAF 02255000 UCBRPND EQU UCBGRAF 02256000 UCBUPM EQU UCBGRAF 02257000 UCBBTAM EQU UCBGRAF 02258000 UCBDRNO EQU UCBGRAF 02259000 UCBDRO EQU UCBGRAF 02260000 UCBOIP EQU UCBGRAF 02261000 UCBATRCD EQU @NM00120 02262000 UCBSKPFG EQU @NM00120 02263000 UCBRIPND EQU @NM00120 02264000 UCBRTIAC EQU @NM00120 02265000 UCBRSV79 EQU @NM00120 02266000 UCBRSV78 EQU @NM00120 02267000 UCBRSV77 EQU @NM00120 02268000 UCBOLTEP EQU @NM00120 02269000 UCBATNCT EQU UCBOBS06+2 02270000 UCBRSV76 EQU UCBAOF2 02271000 UCBRSV75 EQU UCBAOF2 02272000 UCBRSV74 EQU UCBAOF2 02273000 UCBRSV73 EQU UCBAOF2 02274000 UCBRSV72 EQU UCBAOF2 02275000 UCBRSV71 EQU UCBAOF2 02276000 UCBRSV70 EQU UCBAOF2 02277000 UCBRSV69 EQU UCBAOF2 02278000 UCBRSV68 EQU UCBAOF1 02279000 UCBRSV67 EQU UCBAOF1 02280000 UCBRSV66 EQU UCBAOF1 02281000 UCBRSV65 EQU UCBAOF1 02282000 UCBRSV64 EQU UCBAOF1 02283000 UCBOFNL EQU UCBAOF1 02284000 UCBOFSP EQU UCBAOF1 02285000 UCBOFMCR EQU UCBAOF1 02286000 UCBBTB EQU UCBBTA+1 02287000 UCBDI EQU UCBBTA 02288000 UCBSNS EQU UCBOBS04+8 02289000 UCBTEB EQU UCBOBS04+4 02290000 UCBGCB EQU UCBOBS04+3 02291000 UCBOPEN EQU UCBOBS04+2 02292000 UCBSTART EQU UCBOBS04 02293000 UCBXTNB EQU UCBXTN+1 02294000 UCBRSV22 EQU UCBVOPT 02295000 UCBRSV21 EQU UCBVOPT 02296000 UCBRSV20 EQU UCBVOPT 02297000 UCBESVE EQU UCBVOPT 02298000 UCBERPC EQU UCBVOPT 02299000 UCBESVC EQU UCBVOPT 02300000 UCBEVA EQU UCBVOPT 02301000 UCBESV EQU UCBVOPT 02302000 UCBRV009 EQU UCBTFL1 02303000 UCBRV008 EQU UCBTFL1 02304000 UCBRV007 EQU UCBTFL1 02305000 UCBRV006 EQU UCBTFL1 02306000 UCBRV005 EQU UCBTFL1 02307000 UCBRV038 EQU UCBTFL1 02308000 UCBNSLTP EQU UCBTFL1 02309000 UCBNLTP EQU UCBTFL1 02310000 UCBRES1B EQU UCBOBS02+18 02311000 UCBFSER EQU UCBOBS02+12 02312000 @NM00119 EQU UCBOBS02+4 02313000 UCBFSEQ EQU UCBOBS02+2 02314000 UCBFSCT EQU UCBOBS02 02315000 UCBNEXP EQU UCBOBS01+20 02316000 UCBBASE EQU UCBOBS01+16 02317000 UCBRES1A EQU UCBOBS01+15 02318000 UCBUSER EQU UCBOBS01+14 02319000 UCBFL47 EQU UCBFL4 02320000 UCBFL46 EQU UCBFL4 02321000 UCBFL45 EQU UCBFL4 02322000 UCBRV065 EQU UCBFL4 02323000 UCBDSS EQU UCBFL4 02324000 UCBRV028 EQU UCBFL4 02325000 UCBWDAV EQU UCBFL4 02326000 UCBDAVV EQU UCBFL4 02327000 UCBSQC EQU UCBOBS01+12 02328000 UCBDATP EQU UCBOBS01+12 02329000 UCBDMC EQU UCBDMCT 02330000 UCBMOUNT EQU UCBDMCT 02331000 UCBBNUL EQU UCBSTAB 02332000 UCBSHAR EQU UCBSTAB 02333000 UCBBSTR EQU UCBSTAB 02334000 UCBBPUB EQU UCBSTAB 02335000 UCBBPRV EQU UCBSTAB 02336000 UCBBALB EQU UCBPRSRS 02337000 UCBPGFL EQU UCBSTAB 02338000 UCBDVSHR EQU UCBBSVL 02339000 UCBVOLI EQU UCBOBS01+4 02340000 UCBVTOC EQU UCBOBS01 02341000 CVTRV628 EQU CVTS01+728 02342000 CVTRV627 EQU CVTS01+724 02343000 CVTRV626 EQU CVTS01+720 02344000 CVTRV625 EQU CVTS01+716 02345000 CVTRV624 EQU CVTS01+712 02346000 CVTRV623 EQU CVTS01+708 02347000 CVTRV622 EQU CVTS01+704 02348000 CVTRV621 EQU CVTS01+700 02349000 CVTRV620 EQU CVTS01+696 02350000 CVTRV619 EQU CVTS01+692 02351000 CVTRV618 EQU CVTS01+688 02352000 CVTRV617 EQU CVTS01+684 02353000 CVTRV616 EQU CVTS01+680 02354000 CVTRV615 EQU CVTS01+676 02355000 CVTRV614 EQU CVTS01+672 02356000 CVTRV613 EQU CVTS01+668 02357000 CVTTCASP EQU CVTS01+664 02358000 CVT0PT03 EQU CVTS01+660 02359000 CVT0PT0E EQU CVTS01+656 02360000 CVTIRM EQU CVTS01+652 02361000 CVTCGK EQU CVTS01+648 02362000 CVTRV607 EQU CVTS01+644 02363000 CVTRV606 EQU CVTS01+640 02364000 CVTRV605 EQU CVTS01+636 02365000 CVTRV604 EQU CVTS01+632 02366000 CVTEFF02 EQU CVTS01+628 02367000 CVTCBBR EQU CVTS01+624 02368000 CVTSSCR EQU CVTS01+620 02369000 CVTEVENT EQU CVTS01+616 02370000 CVTCRCA EQU CVTS01+612 02371000 CVTTPIO EQU CVTS01+608 02372000 CVTADV EQU CVTS01+604 02373000 CVTGSDAB EQU CVTGSDA 02374000 CVTQV3 EQU CVTS01+596 02375000 CVTQV2 EQU CVTS01+592 02376000 CVTQV1 EQU CVTS01+588 02377000 CVTRPT EQU CVTS01+584 02378000 CVTSSRB EQU CVTS01+580 02379000 CVTCSDRL EQU CVTS01+576 02380000 CVTEXP1 EQU CVTS01+572 02381000 CVTRMPMT EQU CVTS01+568 02382000 CVTRMPTT EQU CVTS01+564 02383000 CVTVPSA EQU CVTS01+560 02384000 CVTVSTOP EQU CVTS01+556 02385000 CVTGTFR8 EQU CVTS01+552 02386000 CVTQUIT EQU CVTS01+548 02387000 CVTVACR EQU CVTS01+544 02388000 CVTWTCB EQU CVTS01+540 02389000 CVTSTPRS EQU CVTS01+536 02390000 CVT0PT02 EQU CVTS01+532 02391000 CVTDARCM EQU CVTS01+528 02392000 CVTIRECM EQU CVTS01+524 02393000 CVTJRECM EQU CVTS01+520 02394000 CVTVEMS0 EQU CVTS01+516 02395000 CVTSPFRR EQU CVTS01+512 02396000 CVTRLSTG EQU CVTS01+508 02397000 CVT0TC0A EQU CVTS01+504 02398000 CVTGMBR EQU CVTS01+500 02399000 CVTLFRM EQU CVTS01+496 02400000 CVTRMBR EQU CVTS01+492 02401000 CVTVIOP EQU CVTS01+488 02402000 CVTRV307 EQU CVTS01+486 02403000 CVTRV306 EQU CVTS01+484 02404000 CVTRV305 EQU CVTS01+482 02405000 CVTRV304 EQU CVTS01+480 02406000 CVTRV303 EQU CVTS01+478 02407000 CVTRV302 EQU CVTS01+476 02408000 CVTTRCA EQU CVTS01+472 02409000 CVTRV297 EQU CVTRV289 02410000 CVTRV296 EQU CVTRV289 02411000 CVTRV295 EQU CVTRV289 02412000 CVTRV294 EQU CVTRV289 02413000 CVTRV293 EQU CVTRV289 02414000 CVTRV292 EQU CVTRV289 02415000 CVTRV291 EQU CVTRV289 02416000 CVTRV290 EQU CVTRV289 02417000 CVTRV288 EQU CVTRV280 02418000 CVTRV287 EQU CVTRV280 02419000 CVTRV286 EQU CVTRV280 02420000 CVTRV285 EQU CVTRV280 02421000 CVTRV284 EQU CVTRV280 02422000 CVTRV283 EQU CVTRV280 02423000 CVTRV282 EQU CVTRV280 02424000 CVTRV281 EQU CVTRV280 02425000 CVTRV279 EQU CVTRV271 02426000 CVTRV278 EQU CVTRV271 02427000 CVTRV277 EQU CVTRV271 02428000 CVTRV276 EQU CVTRV271 02429000 CVTRV275 EQU CVTRV271 02430000 CVTRV274 EQU CVTRV271 02431000 CVTRV273 EQU CVTRV271 02432000 CVTRV272 EQU CVTRV271 02433000 CVTRV270 EQU CVTRV262 02434000 CVTRV269 EQU CVTRV262 02435000 CVTRV268 EQU CVTRV262 02436000 CVTRV267 EQU CVTRV262 02437000 CVTRV266 EQU CVTRV262 02438000 CVTRV265 EQU CVTRV262 02439000 CVTRV264 EQU CVTRV262 02440000 CVTRV263 EQU CVTRV262 02441000 CVTVFP EQU CVTS01+464 02442000 CVTVSI EQU CVTS01+460 02443000 CVTVPSIB EQU CVTS01+456 02444000 CVTMFACT EQU CVTMFRTR 02445000 CVTMFCTL EQU CVTS01+448 02446000 CVTPVBP EQU CVTS01+444 02447000 CVTPWI EQU CVTS01+440 02448000 CVTRV254 EQU CVTS01+438 02449000 CVTRV253 EQU CVTS01+436 02450000 CVTRV252 EQU CVTS01+434 02451000 CVTRV251 EQU CVTS01+433 02452000 CVTRV250 EQU CVTS01+432 02453000 CVTRV249 EQU CVTS01+431 02454000 CVTRV248 EQU CVTS01+430 02455000 CVTRV247 EQU CVTS01+429 02456000 CVTRV246 EQU CVTS01+428 02457000 CVTRV245 EQU CVTRV237 02458000 CVTRV244 EQU CVTRV237 02459000 CVTRV243 EQU CVTRV237 02460000 CVTRV242 EQU CVTRV237 02461000 CVTRV241 EQU CVTRV237 02462000 CVTRV240 EQU CVTRV237 02463000 CVTRV239 EQU CVTRV237 02464000 CVTRV238 EQU CVTRV237 02465000 CVTRV236 EQU CVTRV228 02466000 CVTRV235 EQU CVTRV228 02467000 CVTRV234 EQU CVTRV228 02468000 CVTRV233 EQU CVTRV228 02469000 CVTRV232 EQU CVTRV228 02470000 CVTRV231 EQU CVTRV228 02471000 CVTRV230 EQU CVTRV228 02472000 CVTRV229 EQU CVTRV228 02473000 CVTRV227 EQU CVTRV219 02474000 CVTRV226 EQU CVTRV219 02475000 CVTRV225 EQU CVTRV219 02476000 CVTRV224 EQU CVTRV219 02477000 CVTRV223 EQU CVTRV219 02478000 CVTRV222 EQU CVTRV219 02479000 CVTRV221 EQU CVTRV219 02480000 CVTRV220 EQU CVTRV219 02481000 CVTRV218 EQU CVTRV210 02482000 CVTRV217 EQU CVTRV210 02483000 CVTRV216 EQU CVTRV210 02484000 CVTRV215 EQU CVTRV210 02485000 CVTRV214 EQU CVTRV210 02486000 CVTRV213 EQU CVTRV210 02487000 CVTRV212 EQU CVTRV210 02488000 CVTRV211 EQU CVTRV210 02489000 CVTLCCAT EQU CVTS01+420 02490000 CVTPCCAT EQU CVTS01+416 02491000 CVTIPCRP EQU CVTS01+412 02492000 CVTIPCRI EQU CVTS01+408 02493000 CVTIPCDS EQU CVTS01+404 02494000 CVTAIDVT EQU CVTS01+400 02495000 CVTSSAP EQU CVTS01+396 02496000 CVTEHCIR EQU CVTS01+392 02497000 CVTEHDEF EQU CVTS01+388 02498000 CVTDAIR EQU CVTS01+384 02499000 CVTPERFM EQU CVTS01+380 02500000 CVT044R2 EQU CVTS01+376 02501000 CVTFETCH EQU CVTS01+372 02502000 CVTRSTWD EQU CVTS01+368 02503000 CVTSPOST EQU CVTS01+364 02504000 CVTIOBP EQU CVTS01+360 02505000 CVTASMVT EQU CVTS01+356 02506000 CVTRECRQ EQU CVTS01+352 02507000 CVTWSAC EQU CVTS01+348 02508000 CVTRV149 EQU CVTS01+344 02509000 CVTWSAL EQU CVTS01+340 02510000 CVTSPSA EQU CVTS01+336 02511000 CVTGLMN EQU CVTS01+332 02512000 CVTVEAC0 EQU CVTS01+328 02513000 CVT062R1 EQU CVTS01+324 02514000 CVTRPOST EQU CVTS01+320 02515000 CVTDQIQE EQU CVTS01+316 02516000 CVTCSD EQU CVTS01+312 02517000 CVTLKRMA EQU CVTS01+308 02518000 CVTRSPIE EQU CVTS01+304 02519000 CVTRENQ EQU CVTS01+300 02520000 CVTLQCB EQU CVTS01+296 02521000 CVTFQCB EQU CVTS01+292 02522000 CVTQCS01 EQU CVTS01+288 02523000 CVTAPFT EQU CVTS01+284 02524000 CVTPARRL EQU CVTS01+280 02525000 CVTVWAIT EQU CVTS01+276 02526000 CVTGSPL EQU CVTS01+272 02527000 CVTLSMQ EQU CVTS01+268 02528000 CVTGSMQ EQU CVTS01+264 02529000 CVTEXPRO EQU CVTS01+260 02530000 CVTOPCTP EQU CVTS01+256 02531000 CVTSIC EQU CVTS01+252 02532000 CVTTPIOS EQU CVTS01+248 02533000 CVTRTMS EQU CVTS01+244 02534000 CVTSDBF EQU CVTS01+240 02535000 CVTSCBP EQU CVTS01+236 02536000 CVTSDMP EQU CVTS01+232 02537000 CVTSV60 EQU CVTS01+228 02538000 CVTRTMCT EQU CVTS01+224 02539000 CVTASCBL EQU CVTS01+220 02540000 CVTASCBH EQU CVTS01+216 02541000 CVTGDA EQU CVTS01+212 02542000 CVTASVT EQU CVTS01+208 02543000 CVTVVMDI EQU CVTS01+204 02544000 CVTAQTOP EQU CVTS01+200 02545000 CVTIOSCS EQU CVTS01+196 02546000 CVTSDRM EQU CVTS01+192 02547000 CVTOPTE EQU CVTS01+188 02548000 CVTSTXU EQU CVTS01+184 02549000 CVTQUIS EQU CVTS01+180 02550000 CVTPARS EQU CVTS01+176 02551000 CVTS1EE EQU CVTS01+172 02552000 CVTFRAS EQU CVTS01+168 02553000 CVTQSAS EQU CVTS01+164 02554000 CVTCRAS EQU CVTS01+160 02555000 CVTCRMN EQU CVTS01+156 02556000 CVTDELCP EQU CVTS01+152 02557000 CVTFRECL EQU CVTS01+148 02558000 CVTGETCL EQU CVTS01+144 02559000 CVTBLDCP EQU CVTS01+140 02560000 CVTAUTHL EQU CVTS01+136 02561000 CVTSCAN EQU CVTS01+132 02562000 CVTRV144 EQU CVTS01+130 02563000 CVTMAXMP EQU CVTS01+128 02564000 CVTSTCK EQU CVTS01+124 02565000 CVTRV139 EQU CVTS01+123 02566000 CVTDSSAC EQU CVTS01+122 02567000 CVTRV513 EQU CVTS01+121 02568000 CVTIOSPL EQU CVTS01+120 02569000 CVTPTGT EQU CVTS01+116 02570000 CVTCSPIE EQU CVTS01+112 02571000 CVTSMFEX EQU CVTS01+108 02572000 CVTOLT0A EQU CVTS01+104 02573000 CVTSRBRT EQU CVTS01+100 02574000 CVTPUTL EQU CVTS01+96 02575000 CVTASCRL EQU CVTS01+92 02576000 CVTASCRF EQU CVTS01+88 02577000 CVTRV326 EQU CVTS01+84 02578000 CVTRV325 EQU CVTS01+80 02579000 CVTRV324 EQU CVTS01+76 02580000 CVT0VL01 EQU CVTS01+72 02581000 CVTSHRVM EQU CVTS01+68 02582000 CVTRV332 EQU CVTS01+64 02583000 CVTTAS EQU CVTS01+60 02584000 CVTRSCN EQU CVTS01+56 02585000 CVTTRAC2 EQU CVTS01+54 02586000 CVTTRACE EQU CVTS01+52 02587000 CVTAPG EQU CVTS01+51 02588000 CVTSDTRC EQU CVTCTLFG 02589000 CVTGTRCE EQU CVTCTLFG 02590000 CVTNOMP EQU CVTCTLFG 02591000 CVTRSV79 EQU CVTCTLFG 02592000 CVTDSTAT EQU CVTCTLFG 02593000 CVTRSV78 EQU CVTCTLFG 02594000 CVTRV333 EQU CVTCTLFG 02595000 CVTRV323 EQU CVTCTLFG 02596000 CVTSPVLK EQU CVTS01+49 02597000 CVTRSV77 EQU CVTS01+48 02598000 CVTRV331 EQU CVTS01+44 02599000 CVTRV330 EQU CVTS01+40 02600000 CVTRV329 EQU CVTS01+36 02601000 CVTRV328 EQU CVTS01+32 02602000 CVTRV322 EQU CVTS01+28 02603000 CVTSLID EQU CVTSLIDA+1 02604000 CVTSYLK EQU CVTSLIDA 02605000 CVTRV321 EQU CVTS01+20 02606000 CVTRV320 EQU CVTS01+16 02607000 CVTLPDIR EQU CVTLPDIA+1 02608000 CVTRSV69 EQU CVTDIRST 02609000 CVTRSV68 EQU CVTDIRST 02610000 CVTRSV67 EQU CVTDIRST 02611000 CVTRSV66 EQU CVTDIRST 02612000 CVTRSV65 EQU CVTDIRST 02613000 CVTRSV64 EQU CVTDIRST 02614000 CVTRSV63 EQU CVTDIRST 02615000 CVTDICOM EQU CVTDIRST 02616000 CVTPVTP EQU CVTS01+8 02617000 CVTLPDSR EQU CVTS01+4 02618000 CVTGETL EQU CVTS01 02619000 @NM00259 EQU ARREQST+12 02620000 @NM00258 EQU ARTICADR+1 02621000 @NM00257 EQU ARFLAGS 02622000 ARACTV EQU ARFLAGS 02623000 ARTIC EQU ARREQST+8 02624000 ARLINK EQU ARREQST+5 02625000 ARPRI EQU ARREQST+4 02626000 ARQCBA EQU ARREQST+1 02627000 @NM00256 EQU ARREQST 02628000 TTHDCF EQU IEDTH+8 02629000 TTHTAG2 EQU TTHTAG+1 02630000 @NM00254 EQU TTHTAG1 02631000 TTHTAGS EQU TTHTAG1 02632000 TTHDAF EQU IEDTH+2 02633000 TTHBYTE1 EQU IEDTH+1 02634000 TTHEFI EQU TTHBYTE0 02635000 @NM00253 EQU TTHBYTE0 02636000 TTHEBIU EQU TTHBYTE0 02637000 TTHBBIU EQU TTHBYTE0 02638000 TTHFTYPE EQU TTHBYTE0 02639000 TRMRLMCT EQU IEDNTRM+10 02640000 TRMCOHTG EQU TRMSIBPT+1 02641000 TRMBUFRD EQU TRMBYTE0 02642000 TRMSNA EQU TRMBYTE0 02643000 TRMGP EQU TRMBYTE0 02644000 TRMDIAL EQU TRMBYTE0 02645000 @NM00249 EQU TRMBYTE0 02646000 TRMOUTPT EQU TRMBYTE0 02647000 TRMINPUT EQU TRMBYTE0 02648000 TRMUDEF EQU TRMBYTE0 02649000 TRMCOHRT EQU IEDNTRM+4 02650000 TRMSTOTE EQU TRMBYTE1 02651000 TRMCKPRN EQU TRMBYTE1 02652000 TRMTSATN EQU TRMBYTE1 02653000 TRMTRACE EQU TRMBYTE1 02654000 TRMSWBCK EQU TRMBYTE1 02655000 TRMAUTOC EQU TRMBYTE1 02656000 TRMINPTP EQU TRMBYTE1 02657000 TRMWTNEG EQU TRMSCPRQ 02658000 TRMWRBRK EQU TRMBYTE2 02659000 TRMNOSND EQU TRMBYTE2 02660000 TRMPREP EQU TRMBYTE2 02661000 TRMANDL EQU TRMBYTE2 02662000 TRMCLOSN EQU TRMINPG 02663000 TRMREMB EQU TRMBYTE2 02664000 TRMOPTBL EQU IEDQTRM+18 02665000 TRMOPNO EQU IEDQTRM+17 02666000 TRMCHCIN EQU IEDQTRM+16 02667000 TRMSENSE EQU TRMSTAT+3 02668000 TRMTEMPR EQU TRMSTAT+2 02669000 TRMSIO EQU TRMSTAT 02670000 @NM00248 EQU TRMDEVFL+1 02671000 TRMTPIN EQU TRMDEVFL+1 02672000 TRMNCPI EQU TRMDEVFL+1 02673000 TRMRNTRM EQU TRMDEVFL+1 02674000 @NM00247 EQU TRMDEVFL+1 02675000 TRMLMD EQU TRMDEVFL+1 02676000 TRMCONC EQU TRMDEVFL+1 02677000 TRMTSOB EQU TRMDEVFL 02678000 TRMBFDY EQU TRMDEVFL 02679000 TRMTBLK EQU TRMDEVFL 02680000 TRMSBLK EQU TRMDEVFL 02681000 TRMBLKS EQU TRMDEVFL 02682000 TRMADDC EQU TRMDEVFL 02683000 TRMDDIG EQU TRMDEVFL 02684000 TRMBUFS EQU TRMDEVFL 02685000 TRMPRILK EQU TRMALTD 02686000 TRMLGB EQU TRMDSORG 02687000 TRMUTERM EQU TLISTCNT 02688000 TRMSCNYN EQU TRMSTATE 02689000 TRMOPTFN EQU TRMSTATE 02690000 TRMHELDN EQU TRMSTATE 02691000 TRMACPTN EQU TRMSTATE 02692000 TRMPREF EQU TRMSTATE 02693000 TRMPROC EQU TRMLOG 02694000 TRMLIST EQU TRMLOG 02695000 TRMLINE EQU TRMSTATE 02696000 TNTTRMAD EQU IEDTNTA 02697000 TNTLEN EQU IEDQTNTD+44 02698000 TNTMIDEN EQU IEDQTNTD+41 02699000 TNTSRCHX EQU IEDQTNTD+38 02700000 TCXEND EQU IEDQTCXD+224 02701000 TCXNCPIO EQU IEDQTCXD+220 02702000 TCXACTE8 EQU TCXQE8 02703000 TCXABEPL EQU IEDQTCXD+212 02704000 TCXSRBS EQU IEDQTCXD+208 02705000 TCXSIOSB EQU IEDQTCXD+204 02706000 TCXESAVE EQU IEDQTCXD+132 02707000 TCXERPPM EQU IEDQTCXD+128 02708000 TCXERPSV EQU IEDQTCXD+116 02709000 TCXSATTN EQU IEDQTCXD+112 02710000 @NM00246 EQU TCXDSAVE+4 02711000 @NM00245 EQU TCXDSAVE 02712000 TCXPLCB EQU IEDQTCXD+100 02713000 TCXBITS EQU IEDQTCXD+98 02714000 TCXSCBSZ EQU IEDQTCXD+97 02715000 TCXBIT1 EQU IEDQTCXD+96 02716000 TCXCOMPT EQU IEDQTCXD+92 02717000 TCXAVAIL EQU IEDQTCXD+88 02718000 TCXBUFL EQU IEDQTCXD+84 02719000 TCXTOTE EQU TCXBUFA 02720000 TCXCKPM EQU IEDQTCXD+79 02721000 TCXNCKPR EQU IEDQTCXD+78 02722000 TCXSZAIB EQU IEDQTCXD+76 02723000 TCXAIBC EQU IEDQTCXD+72 02724000 TCXPEBC EQU IEDQTCXD+68 02725000 TCXPEWAC EQU IEDQTCXD+64 02726000 TCXQRQ EQU IEDQTCXD+60 02727000 TCXOCQ EQU IEDQTCXD+56 02728000 TCXPNTQ EQU IEDQTCXD+52 02729000 TCXPUTQ EQU IEDQTCXD+48 02730000 TCXGETQ EQU IEDQTCXD+44 02731000 TCXTSI EQU IEDQTCXD+40 02732000 TCXRPT EQU IEDQTCXD+36 02733000 TCXCC3TS EQU IEDQTCXD+35 02734000 TCXAPDMP EQU TCXFLAG1 02735000 TCXAPPL EQU TCXFLAG1 02736000 TCXRTM EQU TCXFLAG1 02737000 TCXMCPCD EQU TCXFLAG1 02738000 TCXAUTH EQU TCXFLAG1 02739000 TCXASID EQU IEDQTCXD+32 02740000 TCXASCB EQU IEDQTCXD+28 02741000 TCXPASWD EQU IEDQTCXD+16 02742000 TCXDISP EQU IEDQTCXD+12 02743000 TCXATTLN EQU TCXATTEN 02744000 TCXAVT EQU IEDQTCXD 02745000 @NM00244 EQU TCBXTNT2+32 02746000 TCBRV181 EQU TCBRV173 02747000 TCBRV180 EQU TCBRV173 02748000 TCBRV179 EQU TCBRV173 02749000 TCBRV178 EQU TCBRV173 02750000 TCBRV177 EQU TCBRV173 02751000 TCBRV176 EQU TCBRV173 02752000 TCBRV175 EQU TCBRV173 02753000 TCBRV174 EQU TCBRV173 02754000 TCBRV172 EQU TCBRV164 02755000 TCBRV171 EQU TCBRV164 02756000 TCBRV170 EQU TCBRV164 02757000 TCBRV169 EQU TCBRV164 02758000 TCBRV168 EQU TCBRV164 02759000 TCBRV167 EQU TCBRV164 02760000 TCBRV166 EQU TCBRV164 02761000 TCBRV165 EQU TCBRV164 02762000 TCBRV163 EQU TCBRV155 02763000 TCBRV162 EQU TCBRV155 02764000 TCBRV161 EQU TCBRV155 02765000 TCBRV160 EQU TCBRV155 02766000 TCBRV159 EQU TCBRV155 02767000 TCBRV158 EQU TCBRV155 02768000 TCBRV157 EQU TCBRV155 02769000 TCBRV156 EQU TCBRV155 02770000 TCBRV154 EQU TCBRV146 02771000 TCBRV153 EQU TCBRV146 02772000 TCBRV152 EQU TCBRV146 02773000 TCBRV151 EQU TCBRV146 02774000 TCBRV150 EQU TCBRV146 02775000 TCBRV149 EQU TCBRV146 02776000 TCBRV148 EQU TCBRV146 02777000 TCBRV147 EQU TCBRV146 02778000 TCBRV145 EQU TCBXTNT2+26 02779000 TCBRV144 EQU TCBXTNT2+24 02780000 TCBRV143 EQU TCBXTNT2+20 02781000 TCBRV142 EQU TCBXTNT2+16 02782000 TCBRSV49 EQU TCBXTNT2+12 02783000 TCBEVENT EQU TCBXTNT2+8 02784000 TCBRCMP EQU TCBXTNT2+5 02785000 TCBRSVAB EQU TCBXTNT2+4 02786000 TCBGTFA EQU TCBGTF+1 02787000 TCBRSV47 EQU TCBTFLG 02788000 TCBRSV46 EQU TCBTFLG 02789000 TCBRSV45 EQU TCBTFLG 02790000 TCBRSV44 EQU TCBTFLG 02791000 TCBRSV43 EQU TCBTFLG 02792000 TCBDSPIT EQU TCBTFLG 02793000 TCBERRTN EQU TCBTFLG 02794000 TCBASYNC EQU TCBTFLG 02795000 @NM00242 EQU TCB+232 02796000 TCBRV190 EQU TCB+229 02797000 TCBSVCA1 EQU TCB+228 02798000 TCBJSONQ EQU TCBTTQE 02799000 TCBARBA EQU TCBARB+1 02800000 TCBRSV85 EQU TCBARB 02801000 TCBGQE EQU TCB+216 02802000 TCBEXT2A EQU TCBEXT2+1 02803000 TCBRSV39 EQU TCBEXT2 02804000 TCBSTMCT EQU TCB+207 02805000 TCBSYSCT EQU TCB+206 02806000 TCBRSV37 EQU TCB+205 02807000 TCBEXSVC EQU TCBDAR 02808000 TCBDARMS EQU TCBDAR 02809000 TCBDARWT EQU TCBDAR 02810000 TCBDARO EQU TCBDAR 02811000 TCBDARMC EQU TCBDARC 02812000 TCBDARD EQU TCBDAR 02813000 TCBDARS EQU TCBDAR 02814000 TCBDARP EQU TCBDAR 02815000 TCBGTOFM EQU TCBFLGS7 02816000 TCBRSV84 EQU TCBADMP 02817000 TCBRSV83 EQU TCBRSTSK 02818000 TCBSVCS EQU TCBFLGS7 02819000 TCBFWDD EQU TCBSTACK 02820000 TCBFDDEI EQU TCBRSV34 02821000 TCBFDDT EQU TCBRSV33 02822000 TCBFDD EQU TCBGPECB 02823000 TCBSTIJS EQU TCBNTJS 02824000 TCBDSINQ EQU TCBAPG 02825000 TCBRUNJB EQU TCBMIGR 02826000 TCBRUNPN EQU TCBRV303 02827000 TCBFPROT EQU TCBSPVLK 02828000 TCBPANIC EQU TCBCPU 02829000 TCBPIE17 EQU TCBFLGS6 02830000 TCBRV EQU TCBFLGS6 02831000 TCBRSV79 EQU TCBNDSP5 02832000 TCBRSV78 EQU TCBNDSP5 02833000 TCBRSV77 EQU TCBNDSP5 02834000 TCBRSV76 EQU TCBNDSP5 02835000 TCBRSV75 EQU TCBNDSP5 02836000 TCBRSV74 EQU TCBNDSP5 02837000 TCBNDGTF EQU TCBNDSP5 02838000 TCBNDSPL EQU TCBNDSP5 02839000 TCBRSV93 EQU TCBNDSP4 02840000 TCBRSV92 EQU TCBNDSP4 02841000 TCBRSV91 EQU TCBNDSP4 02842000 TCBRSV90 EQU TCBNDSP4 02843000 TCBRSV89 EQU TCBNDSP4 02844000 TCBRSV88 EQU TCBNDSP4 02845000 TCBRSV87 EQU TCBNDSP4 02846000 TCBRSV86 EQU TCBNDSP4 02847000 TCBEXT1A EQU TCBEXT1+1 02848000 TCBRSV32 EQU TCBEXT1 02849000 TCBEXCPD EQU TCB+192 02850000 TCBIOBRC EQU TCB+188 02851000 TCBDDWTC EQU TCB+186 02852000 TCBDDEXC EQU TCB+184 02853000 TCBJSCBB EQU TCBJSCB+1 02854000 @NM00241 EQU TCBRECDE 02855000 TCBREC EQU TCBRECDE 02856000 TCBMDIDS EQU TCB+176 02857000 TCBRSV28 EQU TCBNDINT 02858000 TCBRSV27 EQU TCBNDSP3 02859000 TCBRSV26 EQU TCBNDSP3 02860000 TCBRSV25 EQU TCBNDSP3 02861000 TCBRSV24 EQU TCBNDSP3 02862000 TCBNDSDA EQU TCBSRBND 02863000 TCBABTER EQU TCBRV302 02864000 TCBTERM EQU TCBLJSND 02865000 TCBABE EQU TCBNDSP2 02866000 TCBDSS EQU TCBNDSP2 02867000 TCBOWAIT EQU TCBNDSP2 02868000 TCBIWAIT EQU TCBNDSP2 02869000 TCBNDTS EQU TCBNDSP2 02870000 TCBNDSVC EQU TCBNDSP2 02871000 TCBSTPP EQU TCBNDSP2 02872000 TCBABD EQU TCBNDSP2 02873000 TCBRSV22 EQU TCBNDSP1 02874000 TCBPIEND EQU TCBNDSP1 02875000 TCBTPSP EQU TCBNDSP1 02876000 TCBDDRND EQU TCBNDSP1 02877000 TCBRSPND EQU TCBNDSP1 02878000 TCBRSTND EQU TCBNDSP1 02879000 TCBDARPN EQU TCBNDSP1 02880000 TCBDARTN EQU TCBNDSP1 02881000 TCBNDSP0 EQU TCBNDSP 02882000 TCBUSER EQU TCB+168 02883000 TCBTCTB EQU TCBTCT+1 02884000 TCBRSV9C EQU TCBTCTGF 02885000 TCBRSV9B EQU TCBTCTGF 02886000 TCBRSV9A EQU TCBTCTGF 02887000 TCBRSV99 EQU TCBTCTGF 02888000 TCBRSV98 EQU TCBTCTGF 02889000 TCBRSV97 EQU TCBTCTGF 02890000 TCBRSV20 EQU TCBTCTGF 02891000 TCBSMFGF EQU TCBTCTGF 02892000 TCBSTABB EQU TCBSTAB+1 02893000 TCBSTCUR EQU TCBVALID 02894000 TCBRV301 EQU TCBRETRY 02895000 TCBSYNCH EQU TCBSUPER 02896000 TCBHALT EQU TCBNSTAE 02897000 TCBPPSUP EQU TCBSCAT 02898000 TCB33E EQU TCBXCTL 02899000 TCBQUIES EQU TCBNSTAE 02900000 TCBSTABE EQU TCBNSTAE 02901000 TCBDDRTI EQU TCBAQE 02902000 TCBRSV73 EQU TCBFTFL3 02903000 TCBRSV72 EQU TCBFTFL3 02904000 TCBFTDUM EQU TCBFTFL3 02905000 TCBRSV71 EQU TCBFTFL3 02906000 TCBRSV70 EQU TCBFTFL3 02907000 TCBRSV69 EQU TCBFTFL3 02908000 TCBRSV68 EQU TCBFTFL3 02909000 TCBRSV67 EQU TCBFTFL3 02910000 TCBRSV66 EQU TCBFTFL2 02911000 TCBSYSAB EQU TCBFTFL2 02912000 @NM00240 EQU TCBFTFL2 02913000 TCBRSV65 EQU TCBFTFL2 02914000 TCBLPAGE EQU TCBFTFL2 02915000 TCBDDEN EQU TCBFTFL2 02916000 TCBRSV62 EQU TCBFTFL2 02917000 TCBRSV61 EQU TCBFTFL2 02918000 TCBENQ EQU TCBFTFL1 02919000 TCBFTCOM EQU TCBFTFL1 02920000 TCBFTTOP EQU TCBFTFL1 02921000 TCBRSV60 EQU TCBFTFL1 02922000 TCBRSV59 EQU TCBFTFL1 02923000 TCBRSV58 EQU TCBFTFL1 02924000 TCBVTAM EQU TCBFTFL1 02925000 TCBTCAM EQU TCBFTFL1 02926000 TCBFTLMP EQU TCBPQE 02927000 TCBTSDP EQU TCB+151 02928000 TCBTSLP EQU TCB+150 02929000 TCBSTPCT EQU TCB+149 02930000 TCBCPUBN EQU TCBTSFLG 02931000 TCBDYDSP EQU TCBTSFLG 02932000 TCBRSV18 EQU TCBTSFLG 02933000 TCBRSV17 EQU TCBTSFLG 02934000 TCBTIOTG EQU TCBTSFLG 02935000 TCBATT EQU TCBTSFLG 02936000 TCBSTPPR EQU TCBTSFLG 02937000 TCBRV300 EQU TCBTSTSK 02938000 TCBECB EQU TCB+144 02939000 TCBIQE EQU TCB+140 02940000 TCBLTC EQU TCB+136 02941000 TCBOTC EQU TCB+132 02942000 TCBNTC EQU TCB+128 02943000 TCBJSTCA EQU TCBPIBA 02944000 TCBSCHED EQU TCBPIBT 02945000 TCBWRITE EQU TCBPIBT 02946000 TCBSCHTI EQU TCBPIBT 02947000 TCBRSV54 EQU TCBPIBT 02948000 TCBSTOP EQU TCBPIBT 02949000 TCBSIZE EQU TCBPIBT 02950000 TCBPART EQU TCBPIBT 02951000 TCBTQET EQU TCBTME 02952000 TCBTCB EQU TCB+116 02953000 TCBFSAB EQU TCBFSA+1 02954000 TCBQEL EQU TCBIDF 02955000 TCBGRS15 EQU TCBGRS+60 02956000 TCBGRS14 EQU TCBGRS+56 02957000 TCBGRS13 EQU TCBGRS+52 02958000 TCBGRS12 EQU TCBGRS+48 02959000 TCBGRS11 EQU TCBGRS+44 02960000 TCBGRS10 EQU TCBGRS+40 02961000 TCBGRS9 EQU TCBGRS+36 02962000 TCBGRS8 EQU TCBGRS+32 02963000 TCBGRS7 EQU TCBGRS+28 02964000 TCBGRS6 EQU TCBGRS+24 02965000 TCBGRS5 EQU TCBGRS+20 02966000 TCBGRS4 EQU TCBGRS+16 02967000 TCBGRS3 EQU TCBGRS+12 02968000 TCBGRS2 EQU TCBGRS+8 02969000 TCBGRS1 EQU TCBGRS+4 02970000 TCBGRS0 EQU TCBGRS 02971000 TCBJPQB EQU TCBFTJSA 02972000 TCBRSV15 EQU TCBPURGE 02973000 TCBRSV14 EQU TCBPURGE 02974000 TCBRSV13 EQU TCBPURGE 02975000 TCBRSV12 EQU TCBPURGE 02976000 TCBRSV11 EQU TCBPURGE 02977000 TCBRSV10 EQU TCBPURGE 02978000 TCBRSV09 EQU TCBPURGE 02979000 TCBJPQF EQU TCBPURGE 02980000 TCBJLB EQU TCB+40 02981000 TCBLLS EQU TCB+36 02982000 TCBDSP EQU TCB+35 02983000 TCBLMP EQU TCB+34 02984000 TCBPNDSP EQU TCBFLGS5 02985000 TCBFCD1 EQU TCBFLGS5 02986000 TCBSTP EQU TCBFLGS5 02987000 TCBSYS EQU TCBFLGS5 02988000 TCBANDSP EQU TCBFLGS5 02989000 TCBPAGE EQU TCBFLGS5 02990000 TCBUXNDF EQU TCBABWF 02991000 TCBFC EQU TCBFLGS5 02992000 TCBONDSP EQU TCBFLGS4 02993000 TCBMPCND EQU TCBFLGS4 02994000 TCBMPCVQ EQU TCBFLGS4 02995000 TCBUXNDV EQU TCBFLGS4 02996000 TCBHNDSP EQU TCBFLGS4 02997000 TCBRQENA EQU TCBFLGS4 02998000 TCBSER EQU TCBFLGS4 02999000 TCBNDUMP EQU TCBFLGS4 03000000 TCBRSV53 EQU TCBDWSTA 03001000 TCBPKCHG EQU TCBRSV08 03002000 TCBSCHAB EQU TCBRSV07 03003000 TCBFLREG EQU TCBRSV06 03004000 TCBRSV52 EQU TCBABGM 03005000 TCBSYSER EQU TCBABTRM 03006000 TCBRSV51 EQU TCBADINP 03007000 TCBFSM EQU TCBFLGS3 03008000 TCBFTS EQU TCBFLGS2 03009000 TCBFETXR EQU TCBFLGS2 03010000 TCBRSV50 EQU TCBFDSOP 03011000 TCBFJMC EQU TCBFLGS2 03012000 TCBFSMC EQU TCBFLGS2 03013000 TCBFABOP EQU TCBFLGS2 03014000 TCBFSTI EQU TCBFLGS2 03015000 TCBFOINP EQU TCBSYSTK 03016000 TCBFX EQU TCBFLGS1 03017000 TCBFS EQU TCBFLGS1 03018000 TCBPOOL EQU TCBFT 03019000 TCBDMPA EQU TCBPDUMP 03020000 TCBJSTE EQU TCBNONPR 03021000 @NM00239 EQU TCBFERA 03022000 TCBFE EQU TCBFLGS1 03023000 TCBFA EQU TCBFLGS1 03024000 TCBZERO EQU TCBPKF 03025000 TCBFLAG EQU TCBPKF 03026000 TCBMSSB EQU TCBMSS+1 03027000 TCBRSV03 EQU TCBMSS 03028000 TCBTRNB EQU TCBTRN+1 03029000 TCBRSV02 EQU TCBABF 03030000 TCBOLTEP EQU TCBABF 03031000 TCBTCP EQU TCBABF 03032000 TCBTCPP EQU TCBABF 03033000 TCBRSV01 EQU TCBABF 03034000 TCBGRPH EQU TCBABF 03035000 TCBNOCHK EQU TCBABF 03036000 TCBMOD91 EQU TCBABF 03037000 TCBCMPC EQU TCBCMP+1 03038000 TCBRV318 EQU TCBCMSG 03039000 TCBRV317 EQU TCBCIND 03040000 TCBRV316 EQU TCBCWTO 03041000 TCBCASID EQU TCBCDBL 03042000 TCBNOCC EQU TCBSTCC 03043000 TCBDMPO EQU TCBCPP 03044000 TCBCSTEP EQU TCBCMPF 03045000 TCBCREQ EQU TCBCMPF 03046000 TCBTIO EQU TCB+12 03047000 TCBDEB EQU TCB+8 03048000 TCBPIEA EQU TCBPIE+1 03049000 TCBPM EQU TCBPMASK 03050000 @NM00238 EQU TCBPMASK 03051000 TCBRBP EQU TCB 03052000 TCBFRS6 EQU TCBFRS+24 03053000 TCBFRS4 EQU TCBFRS+16 03054000 TCBFRS2 EQU TCBFRS+8 03055000 TCBFRS0 EQU TCBFRS 03056000 @NM00237 EQU QCBPLCBA 03057000 @NM00236 EQU QCBSTAT1 03058000 QCBFLUSH EQU QCBSTAT1 03059000 QCBNDXRQ EQU QCBSTAT1 03060000 QCBESIG EQU QCBSTAT1 03061000 QCBRCVRQ EQU QCBSTAT1 03062000 QCBSNDRQ EQU QCBSTAT1 03063000 QCBCHAIN EQU IEDNQCB 03064000 QCBPQBCK EQU IEDQPQCB+25 03065000 QCBPRIPQ EQU IEDQPQCB+24 03066000 QCBCFHDR EQU IEDQPQCB+21 03067000 QCBLFEFO EQU IEDQPQCB+18 03068000 QCBFFEFO EQU IEDQPQCB+15 03069000 QCBPREVF EQU QCBINTLF 03070000 QCBINTFF EQU IEDQPQCB+9 03071000 QCBDATSQ EQU QCBFHDTZ+1 03072000 @NM00235 EQU QCBFHDTZ 03073000 @NM00234 EQU QCBPFEFO 03074000 QCBDATFL EQU QCBFHDLZ 03075000 QCBDNHDR EQU IEDQPQCB 03076000 QCBQBACK EQU IEDQQCB+37 03077000 QCBCKPT EQU QCBFLAG 03078000 QCBPROC EQU QCBFLAG 03079000 QCBSDFFO EQU QCBFLAG 03080000 QCBTERMQ EQU QCBFLAG 03081000 QCBRSRV EQU QCBFLAG 03082000 QCBREAD EQU QCBFLAG 03083000 QCBNOBRK EQU QCBFLAG 03084000 QCBTSSES EQU QCBFLAG 03085000 QCBLGBAD EQU QCBDCBAD 03086000 QCBRELLN EQU IEDQQCB+32 03087000 QCBTJID EQU QCBLKRRN+1 03088000 QCBCARCT EQU QCBLKRRN 03089000 QCBPRLVL EQU QCBPREN 03090000 QCBMSGCT EQU IEDQQCB+26 03091000 QCBEXTO EQU QCBINTVL 03092000 QCBDISC EQU QCBTSOF1 03093000 QCBDELAY EQU QCBTSOF1 03094000 QCBPARTO EQU QCBTSOF1 03095000 QCBSATRD EQU QCBTSOF1 03096000 QCBNOBUF EQU QCBTSOF1 03097000 QCBTPUT EQU QCBTSOF1 03098000 QCBTGET EQU QCBTSOF1 03099000 QCBWRBRK EQU QCBTSOF1 03100000 QCBSATLC EQU QCBTSOF2 03101000 QCBSATTI EQU QCBTSOF2 03102000 QCBSATCH EQU QCBTSOF2 03103000 QCBSIMRD EQU QCBTSOF2 03104000 QCBDSSMI EQU QCBTSOF2 03105000 QCBPOSTO EQU QCBTSOF2 03106000 QCBBUFQ EQU QCBTSOF2 03107000 QCBINHBN EQU QCBTSOF2 03108000 QCBSATCT EQU @NM00233 03109000 QCBSCBOF EQU IEDQQCB+20 03110000 QCBTIME EQU QCBSTAT 03111000 QCBCLOCK EQU QCBSTAT 03112000 QCBSCHDL EQU QCBSTAT 03113000 QCBSMODE EQU QCBSTAT 03114000 QCBSEND EQU QCBSTAT 03115000 QCBBUFRD EQU QCBSTAT 03116000 QCBTRMHO EQU QCBSTAT 03117000 QCBEOM EQU QCBSTAT 03118000 QCBHUCT EQU QCBRETCT 03119000 QCBIEND EQU QCBRETCT 03120000 QCBEND EQU QCBRETCT 03121000 QCBNL EQU QCBRETCT 03122000 QCBLOGCT EQU QCBRETCT 03123000 @NM00232 EQU QCBBYTE1 03124000 QCBRITRM EQU QCBBYTE1 03125000 @NM00231 EQU QCBEOLDT 03126000 QCBSLINK EQU IEDQQCB+13 03127000 QCBSTPRI EQU IEDQQCB+12 03128000 QCBSTCHN EQU IEDQQCB+9 03129000 QCBSTVTO EQU IEDQQCB+8 03130000 QCBLINK EQU IEDQQCB+5 03131000 QCBPRI EQU IEDQQCB+4 03132000 QCBCNTEN EQU QCBELCHN+2 03133000 @NM00230 EQU QCBELCHN+2 03134000 @NM00229 EQU QCBELCHN 03135000 QCBHELD EQU QCBDSFLG 03136000 QCBFQCB EQU QCBDSFLG 03137000 QCBDRQQ EQU QCBDSFLG 03138000 QCBALTMH EQU QCBDSFLG 03139000 QCBREUS EQU QCBDISK 03140000 QCBNREUS EQU QCBDISK 03141000 QCBCORE EQU QCBDSFLG 03142000 QCBTSQ EQU QCBDSFLG 03143000 PRF2SEQP EQU PRF2WD2 03144000 @NM00228 EQU IEDPF2+1 03145000 @NM00227 EQU PRF2FLG2 03146000 PRF2TERM EQU PRF2FLG2 03147000 PRF2SMI EQU PRF2FLG2 03148000 PRF2FORM EQU PRF2FLG2 03149000 PRF2TNTI EQU PRF2FLG2 03150000 PRF1RULN EQU PRF1SEQP+2 03151000 PRF1TAG2 EQU PRF1SQID+1 03152000 @NM00226 EQU PRF1TAG1 03153000 PRF1TAGS EQU PRF1TAG1 03154000 @NM00225 EQU PRF1FLG1 03155000 PRF1LOGD EQU PRF1FLG1 03156000 PRF1USS EQU PRF1FLG1 03157000 PRF1FORM EQU PRF1FLG1 03158000 PRF1EXPI EQU PRF1FLG1 03159000 PRF1FIDI EQU PRF1FLG1 03160000 PRF1RH EQU IEDPF1 03161000 PRFDEST EQU IEDQPRF+40 03162000 PRFISEQ EQU IEDQPRF+38 03163000 PRFSTXT EQU PRFHQBCK 03164000 PRFNHDR EQU PRFCHDR 03165000 PRFCRCD EQU IEDQPRF+29 03166000 PRFSVSEQ EQU PRFNTXT+1 03167000 PRFSVPRI EQU PRFEOBOF 03168000 PRFISIZE EQU PRFSCAN+1 03169000 @NM00224 EQU PRFSCAN 03170000 PRFEOB EQU PRFXTRA+1 03171000 PRFSTSO EQU PRFXTRA 03172000 PRFNHDRN EQU PRFSTAT1 03173000 PRFNLSTN EQU PRFSTAT1 03174000 PRFLOCK EQU PRFEOFN 03175000 PRFDUPLN EQU PRFSTAT1 03176000 PRFTSMSG EQU PRFSTAT1 03177000 PRFITCPN EQU PRFSTAT1 03178000 PRFERMGN EQU PRFSTAT1 03179000 PRFCNCLN EQU PRFSTAT1 03180000 PRFSVFLG EQU @NM00223+3 03181000 PRFSIZE EQU PRFSVFFO+2 03182000 PRFSRCE EQU PRFSVFFO 03183000 PRFLCB EQU IEDQPRF+13 03184000 PRFTI0 EQU PRFTIC+1 03185000 @NM00222 EQU PRFTICC 03186000 @NM00221 EQU PRFTICC 03187000 @NM00220 EQU PRFTICC 03188000 PRFTICON EQU PRFTICC 03189000 @NM00219 EQU PRFTICC 03190000 @NM00218 EQU PRFTICC 03191000 PRFBFMM EQU PRFTICC 03192000 PRFEOMSG EQU PRFTICC 03193000 PRFCOUNT EQU PRFLINK+1 03194000 @NM00217 EQU PRFLINK 03195000 PRFFLAGS EQU PRFPRI 03196000 PRFIOADR EQU PRFQCBA 03197000 PRFOPCDE EQU PRFKEY 03198000 @NM00216 EQU OPREFLG3 03199000 OPREATCH EQU OPREFLG3 03200000 @NM00215 EQU OPREFLG3 03201000 OPREFLG2 EQU IEDOPRED+13 03202000 OPRETIC EQU OPRESAVE 03203000 OPRELINK EQU IEDOPRED+5 03204000 OPREKEY EQU IEDOPRED 03205000 OPCBOTTM EQU IEDQOPCD+1188 03206000 OPCDSRWT EQU IEDQOPCD+1184 03207000 @NM00214 EQU IEDQOPCD+1100 03208000 @NM00213 EQU IEDQOPCD+948 03209000 @NM00212 EQU IEDQOPCD+940 03210000 @NM00211 EQU IEDQOPCD+380 03211000 @NM00210 EQU OPCPWCOB+9 03212000 @NM00209 EQU OPCPWCOB+8 03213000 @NM00208 EQU OPCPWECB+1 03214000 OPCPWCCC EQU OPCPWECB 03215000 OPCPWCHN EQU OPCPWQCB+1 03216000 OPCPWVTO EQU OPCPWQCB 03217000 OPCTOTCK EQU IEDQOPCD+360 03218000 OPCAPXTL EQU IEDQOPCD+356 03219000 OPCDECR EQU IEDQOPCD+352 03220000 OPCBUFWT EQU IEDQOPCD+348 03221000 OPCADGOT EQU IEDQOPCD+318 03222000 OPCRQCNT EQU IEDQOPCD+316 03223000 OPPOLSTP EQU IEDQOPCD+312 03224000 OPCCKCIB EQU IEDQOPCD+308 03225000 OPCEND EQU IEDQOPCD+307 03226000 OPCSTCBS EQU IEDQOPCD+306 03227000 OPCHNEND EQU IEDQOPCD+302 03228000 OPCOQSW EQU IEDQOPCD+301 03229000 @NM00207 EQU OPCSPEC 03230000 @NM00206 EQU OPCSPEC 03231000 @NM00205 EQU OPCSPEC 03232000 @NM00204 EQU OPCSPEC 03233000 OPCFRMCA EQU OPCSPEC 03234000 OPCPART EQU OPCSPEC 03235000 OPCALTD EQU OPCSPEC 03236000 OPCBFEND EQU IEDQOPCD+296 03237000 OPCBFIRS EQU IEDQOPCD+292 03238000 OPCAVBUF EQU IEDQOPCD+290 03239000 OPCIPLCT EQU IEDQOPCD+289 03240000 OPCCLNTS EQU IEDQOPCD+288 03241000 OPCHA8 EQU IEDQOPCD+286 03242000 OPCBFREQ EQU IEDQOPCD+284 03243000 OPCNEXT EQU IEDQOPCD+272 03244000 OPCFMDFC EQU IEDQOPCD+268 03245000 OPCSCNC EQU IEDQOPCD+264 03246000 OPCHORTG EQU IEDQOPCD+260 03247000 OPCCKPTL EQU IEDQOPCD+252 03248000 OPCCKPTF EQU IEDQOPCD+248 03249000 OPCWAITA EQU IEDQOPCD+244 03250000 OPCWAITR EQU IEDQOPCD+240 03251000 OPCWAITP EQU IEDQOPCD+236 03252000 OPCWAITO EQU IEDQOPCD+232 03253000 OPCWAITN EQU IEDQOPCD+228 03254000 OPCWAITL EQU IEDQOPCD+224 03255000 OPCWAITC EQU IEDQOPCD+220 03256000 @NM00203 EQU OPCLDNME+5 03257000 @NM00202 EQU OPCLDNME 03258000 OPCWAIT EQU IEDQOPCD+192 03259000 OPCCKERB EQU IEDQOPCD+164 03260000 OPCBFERB EQU IEDQOPCD+148 03261000 OPCFLAG2 EQU IEDQOPCD+147 03262000 OPCWRKSZ EQU IEDQOPCD+144 03263000 OPCWORK EQU IEDQOPCD+140 03264000 OPCRSAVE EQU IEDQOPCD+132 03265000 OPCQCBAD EQU IEDQOPCD+128 03266000 OPCTRMWA EQU IEDQOPCD+52 03267000 OPCPSTWT EQU IEDQOPCD+48 03268000 OPCPGCK EQU IEDQOPCD+40 03269000 OPCLCB EQU IEDQOPCD+36 03270000 @NM00201 EQU IEDQOPCD+32 03271000 OPCIPLAD EQU IEDQOPCD+28 03272000 OPCTOFLK EQU IEDQOPCD+24 03273000 OPCOPTLK EQU IEDQOPCD+20 03274000 OPCDCBLK EQU IEDQOPCD+16 03275000 OPCDOUBL EQU IEDQOPCD 03276000 @NM00200 EQU OCLDNME+4 03277000 @NM00199 EQU OCPREFLG 03278000 OCTOTEP EQU OCPREFLG 03279000 OCREPOST EQU OCPREFLG 03280000 OCRSPSNT EQU OCPREFLG 03281000 OCBFREQ EQU OCPREFLG 03282000 OCIDLE EQU OCREQFLG 03283000 OCFORCE EQU OCREQFLG 03284000 OCDCARD EQU OCREQFLG 03285000 OCPARTAL EQU OCREQFLG 03286000 OCADNCP EQU OCREQFLG 03287000 @NM00198 EQU OCREQFLG 03288000 @NM00197 EQU OCREQFLG 03289000 OCFLUSHZ EQU OCREQFLG 03290000 OCRESPCT EQU OCLINTTE 03291000 OCCKPTWA EQU OCCKDATA+4 03292000 @NM00194 EQU OCRSTGTM+2 03293000 OCCKDAT2 EQU OCRSTGTM+1 03294000 OCCKDAT1 EQU OCRSTGTM 03295000 OCPTRSAV EQU OCMODNME+4 03296000 OCPUADR EQU OCIPLWA+2 03297000 OCWTGSAV EQU OCIPLWA 03298000 OCDVRDCT EQU OCBACKUP+6 03299000 OCNCP EQU OCBACKUP+4 03300000 OCBUFGOT EQU OCBACKUP+2 03301000 OCBUFNED EQU OCBACKUP 03302000 OCRESNUM EQU OCPARM 03303000 OCSEQ EQU OCTRUNIT+2 03304000 @NM00193 EQU OCRSID+1 03305000 OCNONE EQU OCALSTAT 03306000 OCSOME EQU OCALSTAT 03307000 OCALLFLG EQU OCALSTAT 03308000 OCACTREQ EQU OCALSTAT 03309000 OCREDRVE EQU OCALSTAT 03310000 OCSEQIND EQU OCALSTAT 03311000 @NM00192 EQU OCALSTAT 03312000 OCRENTRD EQU OCALSTAT 03313000 OCWTGB EQU OCTIOT 03314000 @NM00191 EQU @NM00190+2 03315000 OCCONID EQU OCDEST 03316000 OCRLN EQU IEDQOPCE+15 03317000 OCRESP EQU OCFLAG 03318000 OCATTACH EQU OCFLAG 03319000 OCSSCP EQU OCFLAG 03320000 OCOUTPUT EQU OCFLAG 03321000 OCLINE EQU OCFLAG 03322000 OCMPP EQU OCFLAG 03323000 OCCONSOL EQU OCFLAG 03324000 @NM00189 EQU OCSWITCH 03325000 OCQUCKN EQU OCSWITCH 03326000 OCPRIFLG EQU OCOPTCDE 03327000 @NM00188 EQU OCRUDEST+1 03328000 @NM00187 EQU OCSCAN 03329000 OCNOTUCB EQU OCSCAN 03330000 OCNONAME EQU OCSCAN 03331000 OCALLRLN EQU OCSCAN 03332000 OCDDNAME EQU OCSCAN 03333000 OCDDNRLN EQU OCSCAN 03334000 OCADDR EQU OCSCAN 03335000 OCELMPTR EQU OCELEM+1 03336000 OCELMPRI EQU OCELEM 03337000 @NM00186 EQU NSLGRPNM+4 03338000 @NM00185 EQU IEDNSLD+34 03339000 NSLUNCNT EQU NSLERB+12 03340000 NSLBUFFR EQU NSLERB+9 03341000 @NM00184 EQU NSLESTAT 03342000 NSLMPPI EQU NSLESTAT 03343000 @NM00183 EQU NSLESTAT 03344000 NSLELINK EQU NSLERB+5 03345000 NSLERBPR EQU NSLERB+4 03346000 NSLERQCB EQU NSLERB 03347000 NSLCTTRM EQU IEDNSLD+13 03348000 @NM00182 EQU NSLGPCUS 03349000 NSLDRDRV EQU NSLGPCUS 03350000 NSLSDIAL EQU NSLGPCUS 03351000 NSLNGPSL EQU NSLGPCUS 03352000 NSLGPTSP EQU NSLGPCUS 03353000 NSLNGPST EQU NSLGPCUS 03354000 @NM00181 EQU NSLPLCB 03355000 NSLPLCBR EQU NSLPLCB 03356000 NSLOPRE EQU IEDNSLD 03357000 NSLSAVE2 EQU IEDNNSLD+4 03358000 NSLSAVE1 EQU IEDNNSLD 03359000 LGBIVLST EQU IEDNLGB+60 03360000 LGBRESV4 EQU LGBRESER+3 03361000 LGBRESV3 EQU LGBRESER+2 03362000 LGBRESV2 EQU LGBRESER+1 03363000 LGBRESV1 EQU LGBRESER 03364000 LGBBUFSI EQU IEDNLGB+54 03365000 @NM00180 EQU IEDNLGB+53 03366000 LGBILCT EQU IEDNLGB+52 03367000 LGBSCTAD EQU IEDNLGB+49 03368000 @NM00179 EQU LGBOFLGS 03369000 LGBOPEN EQU LGBOFLGS 03370000 @NM00178 EQU LGBOFLGS 03371000 LGBNAME EQU IEDNLGB+40 03372000 @NM00177 EQU IEDNLGB+36 03373000 LGBTRANS EQU IEDNLGB+33 03374000 @NM00176 EQU IEDNLGB+32 03375000 @NM00175 EQU IEDNLGB+31 03376000 LGBOPACE EQU IEDNLGB+30 03377000 @NM00174 EQU LGBBYTE 03378000 LGBPACK EQU LGBBYTE 03379000 LGBBUFMA EQU IEDNLGB+28 03380000 LGBDSORG EQU IEDNLGB+26 03381000 @NM00173 EQU LGBPCI 03382000 @NM00172 EQU LGBPCI 03383000 LGBPCINO EQU LGBPCI 03384000 @NM00171 EQU LGBPCI 03385000 LGBPCIAO EQU LGBPCI 03386000 @NM00170 EQU LGBPCI 03387000 @NM00169 EQU LGBPCI 03388000 @NM00168 EQU LGBPCI 03389000 @NM00167 EQU IEDNLGB+24 03390000 LGBMHA EQU IEDNLGB+21 03391000 @NM00166 EQU LGBBUFOU 03392000 LGBPREF EQU LGBBUFOU 03393000 @NM00165 EQU LGBBUFOU 03394000 LGBSUBST EQU IEDNLGB+18 03395000 LGBTYPE EQU IEDNLGB+17 03396000 @NM00164 EQU IEDNLGB 03397000 LCBERADR EQU LCBXRADR+1 03398000 LCBPCIRC EQU LCBXRADR 03399000 LCBDCT3 EQU LCBXDCT+2 03400000 LCBDCT2 EQU LCBXDCT+1 03401000 LCBDCT1 EQU LCBXDCT 03402000 @NM00163 EQU LCBXFLAG 03403000 LCBERPND EQU LCBXFLAG 03404000 LCBSRCPF EQU LCBXFLAG 03405000 LCBGPCTV EQU LCBXFLAG 03406000 @NM00162 EQU LCBXFLAG 03407000 @NM00161 EQU LCBXFLAG 03408000 @NM00160 EQU LCBXFLAG 03409000 @NM00159 EQU LCBXFLAG 03410000 LCBCCW10 EQU LCBCPA+72 03411000 LCBCCW9 EQU LCBCPA+64 03412000 LCBCCW8 EQU LCBCPA+56 03413000 LCBCCW7 EQU LCBCPA+48 03414000 LCBCCW6 EQU LCBCPA+40 03415000 LCBCP EQU LCBQEBPL+4 03416000 LCBIOSB EQU LCBQEBPL+1 03417000 LCBSIO EQU LCBQEBPL 03418000 LCBCCW4 EQU LCBCPA+24 03419000 LCBCCW3 EQU LCBCPA+16 03420000 LCBCCW2 EQU LCBCPA+8 03421000 LCBCCW1 EQU LCBCPA 03422000 @NM00144 EQU LCBERCCW+16 03423000 LCBATL05 EQU LCBERCCW+8 03424000 @NM00143 EQU LCBERCCW 03425000 LCBCSWSV EQU LCBSAVSN+1 03426000 LCBSNSV EQU LCBSAVSN 03427000 LCBBFSNS EQU LCBRSPSV 03428000 LCBWAITC EQU LCBTPCD+5 03429000 LCBINPAK EQU LCBSTAT6 03430000 LCBMHBID EQU LCBSTAT6 03431000 LCBRTRRO EQU LCBSTAT6 03432000 LCBHDRPD EQU LCBSTAT6 03433000 LCBCHN EQU LCBSTAT6 03434000 LCBBFRSV EQU LCBTPCD+1 03435000 @NM00142 EQU LCBSTAT5 03436000 LCBLUS EQU LCBSTAT5 03437000 LCBLUNIT EQU LCBSTAT5 03438000 LCBPERM EQU LCBSTAT5 03439000 LCBNXCMD EQU LCBBFRW 03440000 LCBERMSK EQU LCBOBRCH 03441000 LCBSCBA EQU IEDQLCB+93 03442000 LCBOLT EQU LCBMSGFM 03443000 LCBEOT EQU LCBMSGFM 03444000 LCBENQ EQU LCBMSGFM 03445000 LCBTTD EQU LCBMSGFM 03446000 LCBRSTRT EQU LCBMSGFM 03447000 LCBVSTRT EQU LCBMSGFM 03448000 LCBACKI EQU LCBMSGFM 03449000 LCBNAK EQU LCBMSGFM 03450000 @NM00141 EQU LCBRBCT2 03451000 LCBDCNT EQU LCBRBCT2 03452000 LCBRBCT1 EQU LCBERBCT 03453000 LCBERBCH EQU IEDQLCB+85 03454000 LCBCOMPL EQU LCBDLNKN 03455000 LCBPRCPG EQU LCBERBST 03456000 LCBERROR EQU LCBERBST 03457000 @NM00140 EQU LCBERBST 03458000 LCBINQ EQU LCBERBST 03459000 LCBRDERR EQU LCBERBST 03460000 LCBEOMSG EQU LCBERBST 03461000 LCBMSG EQU LCBERBST 03462000 LCBERBLK EQU IEDQLCB+81 03463000 LCBERBPY EQU IEDQLCB+80 03464000 LCBERBQB EQU LCBERB+1 03465000 LCBERBKY EQU LCBERB 03466000 LCBRECAD EQU IEDQLCB+73 03467000 @NM00139 EQU LCBTSTSW 03468000 @NM00138 EQU LCBTSTSW 03469000 @NM00137 EQU LCBTSTSW 03470000 @NM00136 EQU LCBTSTSW 03471000 @NM00135 EQU LCBTSTSW 03472000 @NM00134 EQU LCBTSTSW 03473000 @NM00133 EQU LCBTSTSW 03474000 LCBCONCT EQU LCBTSTSW 03475000 LCBRESP EQU LCBSTAT2 03476000 LCBBFRAV EQU LCBDIAL 03477000 LCBATTN EQU LCBSYNC 03478000 LCBNEGRP EQU LCBSTAT2 03479000 LCBSNDPR EQU LCBSTAT2 03480000 LCBCONNN EQU LCBBEOTN 03481000 LCBMSGNN EQU LCBSTAT2 03482000 LCBTRACE EQU LCBSTAT2 03483000 LCBSENDN EQU LCBSTAT1 03484000 LCBRECVN EQU LCBSTAT1 03485000 LCBFREEN EQU LCBSTAT1 03486000 LCBCONT EQU LCBSTAT1 03487000 LCBINITN EQU LCBSTAT1 03488000 LCBOCNI EQU LCBSTAT1 03489000 LCBOCWTN EQU LCBSTAT1 03490000 LCBRCLLN EQU LCBSTAT1 03491000 LCBRECOF EQU IEDQLCB+68 03492000 LCBRDBFR EQU LCBRCBFR 03493000 LCBUCBX EQU IEDQLCB+64 03494000 LCBTTBIN EQU LCBERRCT 03495000 @NM00132 EQU LCBINCAM 03496000 LCBGETMN EQU LCBINCAM 03497000 @NM00131 EQU LCBRESTR+1 03498000 LCBCMDSV EQU LCBRESTR 03499000 LCBPCILK EQU LCBDCBPT 03500000 LCBSTART EQU LCBIOBSN+16 03501000 LCBAP4OL EQU LCBSIOCC 03502000 LCBAP3OL EQU LCBSIOCC 03503000 LCBAP2OL EQU LCBSIOCC 03504000 LCBAP1OL EQU LCBSIOCC 03505000 LCBSIOC2 EQU LCBSIOCC 03506000 LCBSIOC1 EQU LCBSIOCC 03507000 @NM00130 EQU LCBSIOCC 03508000 LCBCSWRC EQU LCBCSW+5 03509000 LCBCSCHC EQU LCBCSWCS 03510000 LCBCSICC EQU LCBCSWCS 03511000 LCBCSCCC EQU LCBCSWCS 03512000 LCBCSCDC EQU LCBCSWCS 03513000 LCBCSPTC EQU LCBCSWCS 03514000 LCBCSPGC EQU LCBCSWCS 03515000 LCBCSIL EQU LCBCSWCS 03516000 LCBCSPCI EQU LCBCSWCS 03517000 LCBUSUE EQU LCBCSWUS 03518000 LCBUSUC EQU LCBCSWUS 03519000 LCBUSDE EQU LCBCSWUS 03520000 LCBUSCE EQU LCBCSWUS 03521000 LCBUSBSY EQU LCBCSWUS 03522000 LCBUSCUE EQU LCBCSWUS 03523000 LCBUSSM EQU LCBCSWUS 03524000 LCBUSAT EQU LCBCSWUS 03525000 LCBCSWCA EQU LCBCSW 03526000 LCBOBR EQU LCBFLAG3 03527000 LCBOBRRD EQU LCBFLAG3 03528000 LCBIOMSG EQU LCBFLAG3 03529000 LCBSOHC EQU LCBFLAG3 03530000 LCBRLAD EQU LCBFLAG3 03531000 LCBSOHR EQU LCBFLAG3 03532000 @NM00129 EQU LCBFLAG3 03533000 LCBECBPT EQU LCBIOBSN+4 03534000 LCBECBCC EQU LCBIOBSN+3 03535000 LCBSENS1 EQU LCBSNS+1 03536000 LCBABORT EQU LCBTMOUT 03537000 LCBNOTIN EQU LCBLOSDT 03538000 LCBOVRUN EQU LCBSENS0 03539000 LCBDATCK EQU LCBSENS0 03540000 LCBEQUCK EQU LCBSENS0 03541000 LCBBUSCK EQU LCBSENS0 03542000 LCBINTRQ EQU LCBSENS0 03543000 LCBCMDRJ EQU LCBSENS0 03544000 LCBFLAG2 EQU LCBIOBSN 03545000 @NM00128 EQU LCBFLAG1 03546000 LCBUNREL EQU LCBFLAG1 03547000 LCBEXCPN EQU LCBFLAG1 03548000 @NM00127 EQU LCBFLAG1 03549000 LCBERPIN EQU LCBFLAG1 03550000 @NM00126 EQU LCBFLAG1 03551000 LCBFSBFR EQU LCBMHA 03552000 LCBISZE EQU IEDQLCB+28 03553000 LCBLNENT EQU LCBSCBDA+1 03554000 @NM00125 EQU LCBSCBDA 03555000 LCBCPGMH EQU LCBSTAT4 03556000 LCBREAL EQU LCBPHASE 03557000 @NM00124 EQU LCBSTAT4 03558000 LCBACTRQ EQU LCBSTAT4 03559000 LCBIPLRQ EQU LCBSTAT4 03560000 LCBDACRQ EQU LCBSTAT4 03561000 LCBDMPRQ EQU LCBSTAT4 03562000 @NM00123 EQU LCBLKMDE 03563000 LCBLOCKI EQU LCBLKMDE 03564000 LCBLOCKR EQU LCBLKMDE 03565000 LCBHMFLG EQU LCBLKMDE 03566000 LCBBDFLG EQU LCBLKMDE 03567000 @NM00122 EQU LCBINSRC 03568000 LCBABRTN EQU LCBCHAIN 03569000 LCBCTLMD EQU LCBTETEN 03570000 LCBBFRSZ EQU LCBCHAIN 03571000 LCBUREQN EQU LCBCHAIN 03572000 LCBNORTY EQU LCBCHAIN 03573000 LCBERMSG EQU LCBCHAIN 03574000 LCBEXCP EQU LCBCHAIN 03575000 LCBINVRQ EQU LCBSCRNN 03576000 LCB2741N EQU LCBTSOB 03577000 LCBINHBN EQU LCBTSOB 03578000 LCBCIRCD EQU LCBTSOB 03579000 LCBPREP EQU LCBTSOB 03580000 LCBSOPL EQU LCBTSOB 03581000 LCBSATRD EQU LCBTSOB 03582000 LCBTSBUF EQU LCBTSOB 03583000 LCBWRBRK EQU LCBTSOB 03584000 LCBTDL EQU IEDQLCB+18 03585000 LCBEOLTD EQU IEDQLCB+16 03586000 LCBRSLNK EQU IEDQLCB+13 03587000 LCBRSPRI EQU IEDQLCB+12 03588000 LCBSTCBA EQU IEDQLCB+9 03589000 LCBRSKEY EQU IEDQLCB+8 03590000 LCBPRI EQU LCBRCB+4 03591000 LCBQCBA EQU LCBRCB+1 03592000 LCBKEY EQU LCBRCB 03593000 UCBERADR EQU UCBUCS+12 03594000 UCBFCBID EQU UCBUCS+8 03595000 UCBERCNT EQU UCBUCS+7 03596000 UCBRSV51 EQU UCBUCS+6 03597000 UCBRSV50 EQU UCBFCBOP 03598000 UCBRSV49 EQU UCBFCBOP 03599000 UCBRSV48 EQU UCBFCBOP 03600000 UCBRSV47 EQU UCBFCBOP 03601000 UCBRSV46 EQU UCBFCBOP 03602000 UCBRSV45 EQU UCBFCBOP 03603000 UCBRSV44 EQU UCBFCBOP 03604000 UCBFCBO1 EQU UCBFCBOP 03605000 UCBUCSPE EQU UCBUCSOP 03606000 UCBRSV43 EQU UCBUCSOP 03607000 UCBRSV42 EQU UCBUCSOP 03608000 UCBRSV41 EQU UCBUCSOP 03609000 UCBRSV40 EQU UCBUCSOP 03610000 UCBRSV39 EQU UCBUCSOP 03611000 UCBUCSO2 EQU UCBUCSOP 03612000 UCBUCSO1 EQU UCBUCSOP 03613000 UCBUCSID EQU UCBUCS 03614000 UCBMDRBA EQU UCBMDRBF+1 03615000 UCBRV075 EQU UCBMDRBF 03616000 UCBRV074 EQU UCB3800X+32 03617000 UCBIMAGE EQU UCB3800X+28 03618000 UCBFCBNM EQU UCB3800X+24 03619000 UCBCHAR4 EQU UCB3800X+20 03620000 UCBCHAR3 EQU UCB3800X+16 03621000 UCBCHAR2 EQU UCB3800X+12 03622000 UCBCHAR1 EQU UCB3800X+8 03623000 UCBCGMID EQU UCB3800X+4 03624000 UCBBRSTA EQU UCBACTIV 03625000 UCBRV063 EQU UCBACTIV 03626000 UCBRV062 EQU UCBACTIV 03627000 UCBRV061 EQU UCBACTIV 03628000 UCBRV060 EQU UCBACTIV 03629000 UCBRV059 EQU UCBACTIV 03630000 UCBRV058 EQU UCBACTIV 03631000 UCBRV057 EQU UCBACTIV 03632000 UCBRV050 EQU UCB3800X+2 03633000 UCBCGMNO EQU UCB3800X+1 03634000 UCBRV083 EQU UCBOPTNS 03635000 UCBBRSTR EQU UCBOPTNS 03636000 UCBRV056 EQU UCBOPTNS 03637000 UCBRV055 EQU UCBOPTNS 03638000 UCBRV054 EQU UCBOPTNS 03639000 UCBRV053 EQU UCBOPTNS 03640000 UCBRV052 EQU UCBOPTNS 03641000 UCBRV051 EQU UCBOPTNS 03642000 UCBRV073 EQU UCB3540X+7 03643000 UCBRV072 EQU UCBDKBYT 03644000 UCBRV071 EQU UCBDKBYT 03645000 UCBRV070 EQU UCBDKBYT 03646000 UCBRV069 EQU UCBDKBYT 03647000 UCBRV068 EQU UCBDKBYT 03648000 UCBRV067 EQU UCBDKBYT 03649000 UCBVLVER EQU UCBDKBYT 03650000 UCBDKAMX EQU UCBDKBYT 03651000 UCBVLSER EQU UCB3540X 03652000 UCBRDATA EQU UCBOCR+4 03653000 UCBFRID EQU UCBOCR 03654000 UCBCLN EQU UCBMT+14 03655000 UCBERG EQU UCBMT+12 03656000 UCBMS EQU UCBMT+11 03657000 UCBNB EQU UCBMT+10 03658000 UCBPW EQU UCBMT+9 03659000 UCBPR EQU UCBMT+8 03660000 UCBSIO EQU UCBMT+6 03661000 UCBTW EQU UCBMT+5 03662000 UCBTR EQU UCBMT+4 03663000 UCBTWT EQU UCBMT+3 03664000 UCBTRT EQU UCBMT+2 03665000 UCBCTD EQU UCBMT 03666000 UCBWTOID EQU UCBCMEXT+17 03667000 UCBRV043 EQU UCBCMEXT+16 03668000 UCBASID EQU UCBCMEXT+14 03669000 UCBMFCNT EQU UCBCMEXT+12 03670000 UCBPMSK EQU UCBCMEXT+10 03671000 UCBCCWOF EQU UCBCMEXT+8 03672000 UCBRV041 EQU UCBCMEXT+6 03673000 UCBRV036 EQU UCBFLP1 03674000 UCBRV035 EQU UCBFLP1 03675000 UCBERLOG EQU UCBFLP1 03676000 UCBRV033 EQU UCBFLP1 03677000 UCBRV032 EQU UCBFLP1 03678000 UCBRV031 EQU UCBFLP1 03679000 UCBSHRUP EQU UCBFLP1 03680000 UCBNSRCH EQU UCBFLP1 03681000 UCBSNSCT EQU UCBCMEXT+4 03682000 UCBHPDV EQU @NM00121 03683000 UCBHALI EQU @NM00121 03684000 UCBRSV09 EQU @NM00121 03685000 UCBRSV08 EQU @NM00121 03686000 UCBRSV07 EQU @NM00121 03687000 UCBRSV06 EQU @NM00121 03688000 UCBRSV05 EQU @NM00121 03689000 UCBRSV04 EQU @NM00121 03690000 UCBDTI EQU UCBCMEXT+2 03691000 UCBSTI EQU UCBCMEXT+1 03692000 UCBETI EQU UCBCMEXT 03693000 UCBEXTP EQU UCBEXTPT+1 03694000 UCBDDRSW EQU UCBFLC 03695000 UCBTICBT EQU UCBFLC 03696000 UCBIVRR EQU UCBFLC 03697000 UCBIVRS EQU UCBFLC 03698000 UCBITF EQU UCBFLC 03699000 UCBUDE EQU UCBFLC 03700000 UCBWAA EQU UCBFLC 03701000 UCBATTP EQU UCBFLC 03702000 UCBUNTYP EQU UCBTBYT4 03703000 UCBRSV11 EQU UCBDVCLS 03704000 UCBRSV10 EQU UCBDVCLS 03705000 UCB3CHAR EQU UCBDVCLS 03706000 UCB3UREC EQU UCBDVCLS 03707000 UCB3DISP EQU UCBDVCLS 03708000 UCB3DACC EQU UCBDVCLS 03709000 UCB3COMM EQU UCBDVCLS 03710000 UCB3TAPE EQU UCBDVCLS 03711000 UCBDVPWR EQU UCB2OPT7 03712000 UCBVLPWR EQU UCB2OPT6 03713000 UCB2OPT5 EQU UCBTBYT2 03714000 UCBRVDEV EQU UCBRWTAU 03715000 UCBRPS EQU UCBDUDN2 03716000 UCBRR EQU UCBDUDN1 03717000 UCB2OPT1 EQU UCBTBYT2 03718000 UCB2OPT0 EQU UCBTBYT2 03719000 UCB1FEA7 EQU UCBTBYT1 03720000 UCBD6250 EQU UCB1FEA6 03721000 UCBD1600 EQU UCB1FEA5 03722000 UCB1FEA4 EQU UCBTBYT1 03723000 UCB1FEA3 EQU UCBTBYT1 03724000 UCB1FEA2 EQU UCBTBYT1 03725000 UCB1FEA1 EQU UCBTBYT1 03726000 UCB1FEA0 EQU UCBTBYT1 03727000 UCBRV029 EQU UCBWGT 03728000 UCBVHRSN EQU UCBWGT 03729000 UCBVORSN EQU UCBWGT 03730000 UCBMTPXP EQU UCBWGT 03731000 UCBREW EQU UCBWGT 03732000 UCBPUB EQU UCBWGT 03733000 UCBOUT EQU UCBWGT 03734000 UCBIN EQU UCBWGT 03735000 UCBCPU EQU UCBOB+11 03736000 UCBLCI EQU UCBOB+10 03737000 UCBCNT EQU UCBOB+9 03738000 UCBRV017 EQU UCBCHM1 03739000 UCBRV016 EQU UCBCHM1 03740000 UCBRV015 EQU UCBCHM1 03741000 UCBRV014 EQU UCBCHM1 03742000 UCBSPB EQU UCBPTH1 03743000 UCBPPB EQU UCBPTH1 03744000 UCBSPA EQU UCBPTH0 03745000 UCBPPA EQU UCBPTH0 03746000 UCBSIGP EQU UCBFLB 03747000 UCBVALPH EQU UCBFLB 03748000 UCBCRHSN EQU UCBFLB 03749000 UCBCRHRV EQU UCBFLB 03750000 UCBRESVH EQU UCBFLB 03751000 UCBSPST EQU UCBFLB 03752000 UCBASNS EQU UCBFLB 03753000 UCBIORST EQU UCBFLB 03754000 UCBQISCE EQU UCBFL1 03755000 UCBACTV EQU UCBFL1 03756000 UCBSAP EQU UCBFL1 03757000 UCBNOTRC EQU UCBCUB 03758000 UCBPSNS EQU UCBFL1 03759000 UCBUSING EQU UCBPST 03760000 UCBNOTRD EQU UCBNRY 03761000 UCBBUSYD EQU UCBBSY 03762000 UCBUA EQU UCBCHAN+1 03763000 UCBCHA EQU UCBCHAN 03764000 UCBDADI EQU UCBSTAT 03765000 UCBSYSR EQU UCBSTAT 03766000 UCBPRES EQU UCBSTAT 03767000 UCBALOC EQU UCBSTAT 03768000 UCBUNLD EQU UCBSTAT 03769000 UCBRESV EQU UCBSTAT 03770000 UCBCHGS EQU UCBSTAT 03771000 UCBONLI EQU UCBSTAT 03772000 UCBID EQU UCBOB+2 03773000 UCBALTPH EQU UCBFL5 03774000 UCBALTCU EQU UCBFL5 03775000 UCBNALOC EQU UCBFL5 03776000 UCBENVRD EQU UCBFL5 03777000 UCBVSDR EQU UCBFL5 03778000 UCBSASK EQU UCBFL5 03779000 UCBAMV EQU UCBAF 03780000 UCBDCC EQU UCBFL5 03781000 UCBMONT EQU UCBJBNR 03782000 UCBRV011 EQU UCBJBNR 03783000 UCBRSV02 EQU UCBJBNR 03784000 UCBOLDSM EQU UCBJBNR 03785000 UCBRV003 EQU UCBJBNR 03786000 UCBDUC EQU UCBJBNR 03787000 UCBJES3 EQU UCBJBNR 03788000 UCBVRDEV EQU UCBJBNR 03789000 UCBCMSEG EQU UCBOB 03790000 UCBPFXND EQU UCB+512 03791000 UCBIOQ EQU UCB+508 03792000 UCBLOCK EQU UCB+504 03793000 UCBPXST EQU UCB+504 03794000 @NM00118 EQU UCB 03795000 DEBAPPAD EQU IEDQDEB+65 03796000 DEBEXSCL EQU IEDQDEB+64 03797000 DEBDCBAD EQU IEDQDEB+61 03798000 DEBPROTG EQU IEDQDEB+60 03799000 DEBECBAD EQU IEDQDEB+57 03800000 DEBPRIOR EQU IEDQDEB+56 03801000 DEBUSRPG EQU IEDQDEB+53 03802000 DEBSYSPG EQU IEDQDEB+49 03803000 DEBOPATB EQU IEDQDEB+48 03804000 DEBIRBAD EQU IEDQDEB+45 03805000 DEBOFLGS EQU IEDQDEB+44 03806000 DEBDEBAD EQU IEDQDEB+41 03807000 DEBAMLNG EQU IEDQDEB+40 03808000 DEBTCBAD EQU IEDQDEB+37 03809000 @NM00117 EQU DEBPRF+33 03810000 DEBLNGTH EQU DEBPRF+32 03811000 DEBDCBMK EQU DEBPRF+28 03812000 DEBDSCBA EQU DEBPRF+21 03813000 DEBWKARA EQU DEBPRF+20 03814000 DEBXCEA EQU DEBAPVT+16 03815000 DEBCEA EQU DEBAPVT+12 03816000 DEBPCIA EQU DEBAPVT+8 03817000 DEBSIOA EQU DEBAPVT+4 03818000 DEBEOEA EQU DEBAPVT 03819000 DCBBUFSI EQU IHADCS43+6 03820000 DCBUNTCT EQU IHADCS43+5 03821000 DCBILCT EQU IHADCS43+4 03822000 DCBSCTAD EQU DCBSCTAB+1 03823000 @NM00116 EQU DCBSCTAB 03824000 DCBPUTA EQU DCBGETA 03825000 @NM00115 EQU DCBPUT 03826000 DCBDEBA EQU DCBDEBAD+1 03827000 @NM00114 EQU DCBIFLGS 03828000 DCBIFIOE EQU DCBIFLGS 03829000 DCBCH12 EQU DCBIFPCT 03830000 DCBCH9 EQU DCBIFPCT 03831000 DCBIFEC EQU DCBIFLGS 03832000 DCBMFSTI EQU DCBMFDMD 03833000 DCBMFAWR EQU DCBMFSTK 03834000 DCBMFUIP EQU DCBMFTMD 03835000 DCBMFIDW EQU DCBMFLCP 03836000 DCBMFWRK EQU DCBMFMVP 03837000 DCBMFRDQ EQU DCBMFWRT 03838000 DCBMFGTQ EQU DCBMFPUT 03839000 DCBMFSTL EQU DCBMACF2 03840000 DCBMFCK EQU DCBMFDMG 03841000 DCBMFRDX EQU DCBMFCHK 03842000 DCBMFDBF EQU DCBMFSBG 03843000 DCBMFRDI EQU DCBMFLCG 03844000 DCBMFRDK EQU DCBMFMVG 03845000 DCBMFWRQ EQU DCBMFRD 03846000 DCBMFPTQ EQU DCBMFGET 03847000 DCBMFECP EQU DCBMACF1 03848000 DCBTIOT EQU IHADCS25 03849000 DCBMRSTI EQU DCBMRDMD 03850000 DCBMRAWR EQU DCBMRSTK 03851000 DCBMRUIP EQU DCBMRTMD 03852000 DCBMRIDW EQU DCBMRLCP 03853000 DCBMRWRK EQU DCBMRMVP 03854000 DCBMRRDQ EQU DCBMRWRT 03855000 DCBMRGTQ EQU DCBMRPUT 03856000 DCBMRSTL EQU DCBMACR2 03857000 DCBMRCK EQU DCBMRDMG 03858000 DCBPGFXA EQU DCBMRRDX 03859000 DCBMRDBF EQU DCBMRSBG 03860000 DCBMRRDI EQU DCBMRLCG 03861000 DCBMRRDK EQU DCBMRMVG 03862000 DCBMRWRQ EQU DCBMRRD 03863000 DCBMRPTQ EQU DCBMRGET 03864000 DCBMRECP EQU DCBMACR1 03865000 @NM00113 EQU DCBIFLG 03866000 DCBIBIOE EQU DCBIFLG 03867000 DCBICH12 EQU DCBIBPCT 03868000 DCBICH9 EQU DCBIBPCT 03869000 DCBIBEC EQU DCBIFLG 03870000 DCBOFIOF EQU DCBOFLGS 03871000 DCBOFUEX EQU DCBOFLGS 03872000 DCBOFTM EQU DCBOFLGS 03873000 DCBOFPPC EQU DCBOFLGS 03874000 DCBOFOPN EQU DCBOFLGS 03875000 DCBOFEOV EQU DCBOFLGS 03876000 DCBOFLRB EQU DCBOFLGS 03877000 DCBOFIOD EQU DCBOFLWR 03878000 DCBDDNAM EQU IHADCS24 03879000 DCBEXLSA EQU DCBEXLST+1 03880000 DCBEIOBX EQU DCBEXLST 03881000 DCBRNCKA EQU DCBRNCKD+1 03882000 @NM00112 EQU DCBRNCKD 03883000 DCBIOBAD EQU IHADCS2K+8 03884000 DCBDSGTR EQU DCBDSRG2 03885000 @NM00111 EQU DCBDSRG2 03886000 DCBDSRG1 EQU DCBDSORG 03887000 DCBCHNGL EQU DCBTRSTA 03888000 DCBNIDLE EQU DCBTRSTA 03889000 DCBBAKUP EQU DCBTRSTA 03890000 DCBIPLED EQU DCBTRSTA 03891000 DCBRSTRT EQU DCBTRSTA 03892000 DCBINITL EQU DCBTRSTA 03893000 DCBAUTOD EQU DCBTRSTA 03894000 DCBAUTOI EQU DCBTRSTA 03895000 @NM00110 EQU IHADCS2K+4 03896000 DCBDUMPA EQU DCBDUMPD+1 03897000 DCBUNITN EQU DCBDUMPD 03898000 DCBBCKUA EQU DCBBCKUP+1 03899000 @NM00109 EQU DCBBCKUP 03900000 DCBIPLTX EQU IHADCS1A 03901000 @NM00108 EQU IHADCB 03902000 CVTLEVL EQU CVTRELNO+2 03903000 CVTNUMB EQU CVTRELNO 03904000 CVTMDL EQU CVTFIX+250 03905000 @NM00107 EQU CVTFIX+248 03906000 @NM00106 EQU CVTFIX 03907000 CVTRV482 EQU CVTXTNT2+128 03908000 CVTRV481 EQU CVTXTNT2+124 03909000 CVTRV480 EQU CVTXTNT2+120 03910000 CVTRV479 EQU CVTXTNT2+118 03911000 CVTRV478 EQU CVTXTNT2+117 03912000 CVTRV477 EQU CVTXTNT2+116 03913000 CVTRV476 EQU CVTXTNT2+115 03914000 CVTRV475 EQU CVTXTNT2+114 03915000 CVTRV474 EQU CVTRV466 03916000 CVTRV473 EQU CVTRV466 03917000 CVTRV472 EQU CVTRV466 03918000 CVTRV471 EQU CVTRV466 03919000 CVTRV470 EQU CVTRV466 03920000 CVTRV469 EQU CVTRV466 03921000 CVTRV468 EQU CVTRV466 03922000 CVTRV467 EQU CVTRV466 03923000 CVTRV465 EQU CVTRV457 03924000 CVTRV464 EQU CVTRV457 03925000 CVTRV463 EQU CVTRV457 03926000 CVTRV462 EQU CVTRV457 03927000 CVTRV461 EQU CVTRV457 03928000 CVTRV460 EQU CVTRV457 03929000 CVTRV459 EQU CVTRV457 03930000 CVTRV458 EQU CVTRV457 03931000 CVTRV456 EQU CVTXTNT2+108 03932000 CVTRV455 EQU CVTXTNT2+104 03933000 CVTRV454 EQU CVTXTNT2+100 03934000 CVTRV453 EQU CVTXTNT2+96 03935000 CVTRV452 EQU CVTXTNT2+94 03936000 CVTRV451 EQU CVTXTNT2+92 03937000 CVTRV450 EQU CVTXTNT2+90 03938000 CVTRV449 EQU CVTXTNT2+88 03939000 CVTRV448 EQU CVTXTNT2+87 03940000 CVTRV447 EQU CVTXTNT2+86 03941000 CVTRV446 EQU CVTRV438 03942000 CVTRV445 EQU CVTRV438 03943000 CVTRV444 EQU CVTRV438 03944000 CVTRV443 EQU CVTRV438 03945000 CVTRV442 EQU CVTRV438 03946000 CVTRV441 EQU CVTRV438 03947000 CVTRV440 EQU CVTRV438 03948000 CVTRV439 EQU CVTRV438 03949000 CVTRV437 EQU CVTRV429 03950000 CVTRV436 EQU CVTRV429 03951000 CVTRV435 EQU CVTRV429 03952000 CVTRV434 EQU CVTRV429 03953000 CVTRV433 EQU CVTRV429 03954000 CVTRV432 EQU CVTRV429 03955000 CVTRV431 EQU CVTRV429 03956000 CVTRV430 EQU CVTRV429 03957000 CVTRV428 EQU CVTXTNT2+80 03958000 CVTRV427 EQU CVTXTNT2+76 03959000 CVTRV426 EQU CVTXTNT2+72 03960000 CVTRV425 EQU CVTXTNT2+68 03961000 CVTATACT EQU CVTATCVT 03962000 CVTRV423 EQU CVTXTNT2+62 03963000 CVTRV422 EQU CVTXTNT2+60 03964000 CVTRV421 EQU CVTXTNT2+58 03965000 CVTRV420 EQU CVTXTNT2+56 03966000 CVTRV419 EQU CVTXTNT2+55 03967000 CVTRV418 EQU CVTXTNT2+54 03968000 CVTRV417 EQU CVTRV409 03969000 CVTRV416 EQU CVTRV409 03970000 CVTRV415 EQU CVTRV409 03971000 CVTRV414 EQU CVTRV409 03972000 CVTRV413 EQU CVTRV409 03973000 CVTRV412 EQU CVTRV409 03974000 CVTRV411 EQU CVTRV409 03975000 CVTRV410 EQU CVTRV409 03976000 CVTRV408 EQU CVTRV400 03977000 CVTRV407 EQU CVTRV400 03978000 CVTRV406 EQU CVTRV400 03979000 CVTRV405 EQU CVTRV400 03980000 CVTRV404 EQU CVTRV400 03981000 CVTRV403 EQU CVTRV400 03982000 CVTRV402 EQU CVTRV400 03983000 CVTRV401 EQU CVTRV400 03984000 CVTICB EQU CVTXTNT2+48 03985000 CVTSKTA EQU CVTXTNT2+44 03986000 CVTSHSB EQU CVTSHS 03987000 CVTRSV98 EQU CVTXTNT2+36 03988000 CVTRSV97 EQU CVTXTNT2+34 03989000 CVTRSV96 EQU CVTXTNT2+32 03990000 CVTOLTEP EQU CVTXTNT2+28 03991000 CVTQIDA EQU CVTQID+1 03992000 CVTRSV95 EQU CVTQID 03993000 CVTRSV94 EQU CVTXTNT2+20 03994000 CVTRSV93 EQU CVTXTNT2+16 03995000 CVTRSV92 EQU CVTXTNT2+12 03996000 CVTDEBVR EQU CVTXTNT2+8 03997000 CVTRSV91 EQU CVTXTNT2+6 03998000 CVTRSV9H EQU CVTFLGBT 03999000 CVTRSV9G EQU CVTFLGBT 04000000 CVTRSV9F EQU CVTFLGBT 04001000 CVTRSV9E EQU CVTFLGBT 04002000 CVTRSV9D EQU CVTFLGBT 04003000 CVTRSV9C EQU CVTFLGBT 04004000 CVTVME EQU CVTFLGBT 04005000 CVTNPE EQU CVTFLGBT 04006000 CVTNUCLS EQU CVTXTNT2+4 04007000 CVTDSSVA EQU CVTDSSV+1 04008000 CVTRSV89 EQU CVTDSSV 04009000 CVTRSV88 EQU CVTXTNT1+8 04010000 CVTRSV87 EQU CVTXTNT1+4 04011000 CVTFACHN EQU CVTXTNT1 04012000 CVTRV488 EQU CVTMAP+412 04013000 CVTRV487 EQU CVTMAP+408 04014000 CVTRV486 EQU CVTMAP+404 04015000 CVTRV485 EQU CVTMAP+400 04016000 CVTACTAP EQU CVTMAP+396 04017000 CVTAUTH EQU CVTMAP+392 04018000 CVTATMCA EQU CVTATMCT+1 04019000 CVTATMST EQU CVTATMCT 04020000 CVTRSV61 EQU CVTMAP+384 04021000 CVTVOLT1 EQU CVTVOLM1+1 04022000 CVTVOLI1 EQU CVTVOLF1 04023000 CVTSTOA EQU CVTMAP+376 04024000 CVTRSV58 EQU CVTMAP+374 04025000 CVTRSV57 EQU CVTMAP+372 04026000 CVTDDCE EQU CVTMAP+368 04027000 CVTPNWFR EQU CVTMAP+364 04028000 CVTSMF EQU CVTMAP+360 04029000 CVTSULK EQU CVTMAP+358 04030000 CVTSLKO EQU CVTSYSK 04031000 CVTSLKP EQU CVTSYSK 04032000 CVTSLKQ EQU CVTSYSK 04033000 CVTSLKR EQU CVTSYSK 04034000 CVTRSV56 EQU CVTSYSK 04035000 CVTRSV55 EQU CVTSYSK 04036000 CVTRSV54 EQU CVTSYSK 04037000 CVTRSV53 EQU CVTSYSK 04038000 CVTRSV52 EQU CVTA1F1 04039000 CVTRSV51 EQU CVTA1F1 04040000 CVTRSV50 EQU CVTA1F1 04041000 CVTRSV49 EQU CVTA1F1 04042000 CVTRSV48 EQU CVTA1F1 04043000 CVTRSV47 EQU CVTA1F1 04044000 CVTSRSW EQU CVTA1F1 04045000 CVTPFSW EQU CVTA1F1 04046000 CVTPCVT EQU CVTMAP+352 04047000 CVTRSV46 EQU CVTMAP+344 04048000 CVTRSV45 EQU CVTMAP+340 04049000 CVTRSV44 EQU CVTMAP+338 04050000 CVTRSV43 EQU CVTMAP+336 04051000 CVTHJESA EQU CVTHJES+1 04052000 CVTRSV42 EQU CVTHJES 04053000 CVTEXT2A EQU CVTEXT2+1 04054000 CVTRSV41 EQU CVTEXT2 04055000 CVTAPFA EQU CVTAPF+1 04056000 CVTRSV40 EQU CVTAPF 04057000 CVTRV518 EQU CVTINTLA 04058000 CVTRV517 EQU CVTERPV 04059000 CVTEORM EQU CVTMAP+312 04060000 CVTMCHPR EQU CVTMAP+308 04061000 CVTTZ EQU CVTMAP+304 04062000 CVTJEPS EQU CVTMAP+300 04063000 CVTJESCT EQU CVTMAP+296 04064000 CVTMODE EQU CVTMAP+292 04065000 CVTPTRV EQU CVTMAP+288 04066000 CVTREAL EQU CVTMAP+284 04067000 CVTRSV39 EQU CVTMAP+280 04068000 CVTRSV38 EQU CVTMAP+276 04069000 CVTDMSRA EQU CVTDMSR+1 04070000 CVTRV634 EQU CVTDMSRF 04071000 CVTRV633 EQU CVTDMSRF 04072000 CVTRV632 EQU CVTDMSRF 04073000 CVTRV631 EQU CVTDMSRF 04074000 CVTRV630 EQU CVTDMSRF 04075000 CVTRV629 EQU CVTDMSRF 04076000 CVTUDUMP EQU CVTDMSRF 04077000 CVTSDUMP EQU CVTDMSRF 04078000 CVTQMSGA EQU CVTQMSG+1 04079000 CVTRSV36 EQU CVTQMSG 04080000 CVTAMFF EQU CVTMAP+264 04081000 CVTPURGA EQU CVTPURG+1 04082000 CVTRSV35 EQU CVTPURG 04083000 CVTCBSP EQU CVTMAP+256 04084000 CVTATERA EQU CVTATER+1 04085000 CVTSYST EQU CVTATER 04086000 CVTVOLT2 EQU CVTTAT 04087000 CVTVOLI2 EQU CVTVOLF2 04088000 CVTAQAVB EQU CVTAQAVT+1 04089000 CVTRSV34 EQU CVTTCMFG 04090000 CVTRSV33 EQU CVTTCMFG 04091000 CVTRSV32 EQU CVTTCMFG 04092000 CVTRSV31 EQU CVTTCMFG 04093000 CVTRSV30 EQU CVTTCMFG 04094000 CVTRSV29 EQU CVTTCMFG 04095000 CVTRSV28 EQU CVTTCMFG 04096000 CVTTCRDY EQU CVTTCMFG 04097000 CVTGTFA EQU CVTGTF+1 04098000 CVTRSV27 EQU CVTGTFST 04099000 CVTRNIO EQU CVTGTFST 04100000 CVTUSR EQU CVTGTFST 04101000 CVTRV318 EQU CVTFORM 04102000 CVTRV317 EQU CVTTMODE 04103000 CVTRV316 EQU CVTSTATE 04104000 CVTRV315 EQU CVTGTFS 04105000 CVTGTFAV EQU CVTGTFS 04106000 CVT0SCR1 EQU CVTMAP+232 04107000 CVTRV515 EQU CVTMAP+228 04108000 CVTRMS EQU CVTMAP+224 04109000 CVTPATCH EQU CVTMAP+220 04110000 CVTTSCE EQU CVTMAP+216 04111000 CVTLNKSC EQU CVTMAP+214 04112000 CVTQABST EQU CVTMAP+212 04113000 CVTMDLDS EQU CVTMAP+208 04114000 CVTUSER EQU CVTMAP+204 04115000 CVTABEND EQU CVTMAP+200 04116000 CVTSMCA EQU CVTMAP+196 04117000 CVTRSV18 EQU CVTMAP+192 04118000 CVTQLPAQ EQU CVTMAP+188 04119000 CVTQCDSR EQU CVTMAP+184 04120000 CVTRSV17 EQU CVTOPTB 04121000 CVTRSV16 EQU CVTOPTB 04122000 CVTFP EQU CVTOPTB 04123000 CVTAPTHR EQU CVTOPTB 04124000 CVTNLOG EQU CVTOPTB 04125000 CVTTOD EQU CVTOPTB 04126000 CVTCTIMS EQU CVTOPTB 04127000 CVTPROT EQU CVTOPTB 04128000 CVTXPFP EQU CVTOPTA 04129000 CVTASCII EQU CVTOPTA 04130000 CVTRSV13 EQU CVTOPTA 04131000 CVTRSV12 EQU CVTOPTA 04132000 CVTNIP EQU CVTOPTA 04133000 CVTDDR EQU CVTOPTA 04134000 CVTAPR EQU CVTOPTA 04135000 CVTCCH EQU CVTOPTA 04136000 CVTSNCTR EQU CVTMAP+180 04137000 CVTQMWR EQU CVTMAP+176 04138000 CVTQOCR EQU CVTMAP+172 04139000 CVT1EF00 EQU CVTMAP+168 04140000 CVTMZ00 EQU CVTMAP+164 04141000 CVTHEAD EQU CVTMAP+160 04142000 CVTRSV11 EQU CVTMAP+156 04143000 CVT0PT01 EQU CVTMAP+152 04144000 CVTMSER EQU CVTMAP+148 04145000 CVTRV516 EQU CVTIERLC 04146000 CVTILCH EQU CVTMAP+140 04147000 CVT0DS EQU CVTMAP+136 04148000 CVTFBOSV EQU CVTMAP+132 04149000 CVTNUCB EQU CVTMAP+128 04150000 CVTIXAVL EQU CVTMAP+124 04151000 CVTIOQET EQU CVTMAP+120 04152000 CVTDCBA EQU CVTMAP+117 04153000 CVTMVS2 EQU CVTDCB 04154000 CVT6DAT EQU CVTDCB 04155000 CVT4MPS EQU CVTDCB 04156000 CVTRSV09 EQU CVTDCB 04157000 CVT4MS1 EQU CVTDCB 04158000 CVT2SPS EQU CVTDCB 04159000 CVT1SSS EQU CVTDCB 04160000 CVTRSV08 EQU CVTDCB 04161000 CVTSTB EQU CVTMAP+112 04162000 CVTQTD00 EQU CVTMAP+108 04163000 CVTQTE00 EQU CVTMAP+104 04164000 CVTCUCB EQU CVTMAP+100 04165000 CVTSJQ EQU CVTMAP+96 04166000 CVTPBLDL EQU CVTMAP+92 04167000 CVTTPC EQU CVTMAP+88 04168000 CVTSVDCB EQU CVTMAP+84 04169000 CVTBRET EQU CVTMAP+82 04170000 CVTEXIT EQU CVTMAP+80 04171000 CVT0FN00 EQU CVTMAP+76 04172000 CVTDARA EQU CVTDAR+1 04173000 CVTRSV07 EQU CVTFLGS1 04174000 CVTRSV06 EQU CVTFLGS1 04175000 CVTRSV05 EQU CVTFLGS1 04176000 CVTRSV04 EQU CVTFLGS1 04177000 CVTRSV03 EQU CVTFLGS1 04178000 CVTRSV02 EQU CVTFLGS1 04179000 CVTRSV01 EQU CVTFLGS1 04180000 CVTDMPLK EQU CVTFLGS1 04181000 CVTXITP EQU CVTMAP+68 04182000 CVTZDTAB EQU CVTMAP+64 04183000 CVTMSLT EQU CVTMAP+60 04184000 CVTDATE EQU CVTMAP+56 04185000 CVTBTERM EQU CVTMAP+52 04186000 CVTSYSAD EQU CVTMAP+48 04187000 CVTXTLER EQU CVTMAP+44 04188000 CVTILK2 EQU CVTMAP+40 04189000 CVTILK1 EQU CVTMAP+36 04190000 CVTPRLTV EQU CVTMAP+32 04191000 CVTPCNVT EQU CVTMAP+28 04192000 CVT0VL00 EQU CVTMAP+24 04193000 CVTXAPG EQU CVTMAP+20 04194000 CVTBUF EQU CVTMAP+16 04195000 CVTJOB EQU CVTMAP+12 04196000 CVTLINK EQU CVTMAP+8 04197000 CVT0EF00 EQU CVTMAP+4 04198000 CVTTCBP EQU CVTMAP 04199000 CVT EQU CVTMAP 04200000 SAVTLLCB EQU IEDNSVTD+316 04201000 SAVTBITN EQU IEDNSVTD+312 04202000 @NM00105 EQU SAVTCKQB+8 04203000 @NM00104 EQU SAVTCKEC+1 04204000 @NM00103 EQU SAVTCKCC 04205000 SAVTCKPO EQU SAVTCKCC 04206000 SAVTCKWA EQU SAVTCKCC 04207000 SAVTCKCH EQU SAVTCKTB+1 04208000 SAVTCKVT EQU SAVTCKTB 04209000 @NM00102 EQU IEDNSVTD+297 04210000 SAVTRDFG EQU SAVTRDRV+12 04211000 @NM00101 EQU SAVTRDRV+5 04212000 SAVTRDPY EQU SAVTRDRV+4 04213000 SAVTRDQB EQU SAVTRDRV+1 04214000 SAVTRDKY EQU SAVTRDRV 04215000 SAVTNID EQU IEDNSVTD+280 04216000 SAVTDVAS EQU IEDNSVTD+276 04217000 SAVTPLSZ EQU IEDNSVTD+274 04218000 @NM00100 EQU IEDNSVTD+273 04219000 SAVTSUBL EQU IEDNSVTD+272 04220000 @NM00099 EQU SAVTZELM+1 04221000 SAVTSUBM EQU SAVTZELM 04222000 SAVTMHDX EQU IEDNSVTD+268 04223000 SAVTNAT1 EQU IEDNSVTD+266 04224000 SAVTSH20 EQU IEDNSVTD+264 04225000 SAVTLCBS EQU IEDNSVTD+260 04226000 SAVTRNMP EQU IEDNSVTD+256 04227000 SAVTTNTX EQU IEDNSVTD+252 04228000 SAVTNAX EQU IEDNSVTD+248 04229000 SAVTSUBV EQU IEDNSVTD+247 04230000 SAVTSUBA EQU IEDNSVTD+246 04231000 SAVTSIBC EQU IEDNSVTD+244 04232000 SAVTBSM EQU IEDNSVTD+240 04233000 SAVTSCPT EQU SAVTTCPU 04234000 SAVTRQTG EQU IEDNSVTD+236 04235000 SAVTRQCH EQU IEDNSVTD+232 04236000 SAVTMAND EQU IEDNSVTD+228 04237000 SAVTNADL EQU IEDNSVTD+222 04238000 SAVTNATL EQU IEDNSVTD+220 04239000 SAVTMHTB EQU IEDNSVTD+216 04240000 SAVTSSMH EQU IEDNSVTD+212 04241000 SAVTQRS EQU IEDNSVTD+208 04242000 SAVTRQIN EQU IEDNSVTD+204 04243000 SAVTDFCO EQU IEDNSVTD+200 04244000 SAVTSAO EQU IEDNSVTD+196 04245000 SAVTSARI EQU IEDNSVTD+192 04246000 SAVTSAC EQU IEDNSVTD+188 04247000 SAVTSAI EQU IEDNSVTD+184 04248000 SAVTCSCI EQU IEDNSVTD+180 04249000 SAVTSSRP EQU IEDNSVTD+176 04250000 SAVTSSRQ EQU IEDNSVTD+172 04251000 SAVTSCLU EQU IEDNSVTD+168 04252000 SAVTXTRQ EQU IEDNSVTD+164 04253000 SAVTMVBF EQU IEDNSVTD+160 04254000 @NM00098 EQU IEDNSVTD+148 04255000 SAVTIPCQ EQU IEDNSVTD+144 04256000 @NM00097 EQU IEDNSVTD+136 04257000 SAVTXFMI EQU IEDNSVTD+132 04258000 @NM00096 EQU IEDNSVTD+124 04259000 SAVTXFMO EQU IEDNSVTD+120 04260000 @NM00095 EQU IEDNSVTD+116 04261000 SAVTSSSR EQU IEDNSVTD+112 04262000 SAVTSCPQ EQU IEDNSVTD+108 04263000 SAVTSLCB EQU IEDNSVTD+104 04264000 SAVTLUSR EQU IEDNSVTD+100 04265000 @NM00094 EQU SAVTLUSQ+8 04266000 SAVTLUSP EQU SAVTLUSQ+4 04267000 SAVTLUSB EQU SAVTLUSQ 04268000 @NM00093 EQU IEDNSVTD+84 04269000 SAVTSAT EQU IEDNSVTD+80 04270000 SAVTNAT EQU IEDNSVTD+76 04271000 SAVTCLUP EQU IEDNSVTD+72 04272000 SAVTPIUT EQU IEDNSVTD+68 04273000 SAVTRNTA EQU IEDNSVTD+64 04274000 SAVTDNIR EQU IEDNSVTD+60 04275000 SAVTCNIR EQU IEDNSVTD+56 04276000 SAVTFLDH EQU IEDNSVTD+52 04277000 SAVTSRTN EQU IEDNSVTD+48 04278000 SAVTSREQ EQU IEDNSVTD+44 04279000 SAVTFAIL EQU IEDNSVTD+42 04280000 SAVTSUSE EQU IEDNSVTD+40 04281000 SAVTSIB EQU IEDNSVTD+36 04282000 SAVTPRTN EQU IEDNSVTD+32 04283000 @NM00092 EQU IEDNSVTD+28 04284000 SAVTWH20 EQU IEDNSVTD+26 04285000 SAVTPWT EQU IEDNSVTD+24 04286000 SAVTPRTQ EQU IEDNSVTD+20 04287000 SAVTPREQ EQU IEDNSVTD+16 04288000 SAVTPH20 EQU IEDNSVTD+14 04289000 SAVTPUSE EQU IEDNSVTD+12 04290000 SAVTPLCB EQU IEDNSVTD+8 04291000 SAVTPOOL EQU IEDNSVTD+4 04292000 SAVTPRMT EQU SAVTDIAF 04293000 SAVTVIRT EQU SAVTDIAF 04294000 AVTCPBNO EQU IEDQAVTD+1244 04295000 AVTHRESS EQU IEDQAVTD+1243 04296000 @NM00091 EQU IEDQAVTD+1242 04297000 @NM00090 EQU IEDQAVTD+1241 04298000 @NM00089 EQU IEDQAVTD+1240 04299000 @NM00088 EQU IEDQAVTD+1237 04300000 @NM00087 EQU IEDQAVTD+1236 04301000 AVTHRESE EQU @NM00086 04302000 AVTRADDR EQU IEDQAVTD+1228 04303000 AVTNADDR EQU IEDQAVTD+1224 04304000 AVTHRESN EQU IEDQAVTD+1220 04305000 AVTVOLRN EQU IEDQAVTD+1216 04306000 AVTTOTNN EQU IEDQAVTD+1212 04307000 AVTTRCYN EQU IEDQAVTD+1208 04308000 AVTRCTRN EQU IEDQAVTD+1204 04309000 AVTNOVON EQU IEDQAVTD+1200 04310000 AVTADEBN EQU IEDQAVTD+1196 04311000 AVTVOLRR EQU IEDQAVTD+1192 04312000 AVTTOTNR EQU IEDQAVTD+1188 04313000 AVTTRCYR EQU IEDQAVTD+1184 04314000 AVTRCTRR EQU IEDQAVTD+1180 04315000 AVTNOVOR EQU IEDQAVTD+1176 04316000 AVTADEBR EQU IEDQAVTD+1172 04317000 AVTLODPT EQU IEDQAVTD+1168 04318000 AVTIOBN EQU IEDQAVTD+1164 04319000 AVTIOBR EQU IEDQAVTD+1160 04320000 AVTCPBPT EQU IEDQAVTD+1156 04321000 AVTFCPB EQU IEDQAVTD+1152 04322000 @NM00085 EQU IEDQAVTD+1148 04323000 AVTINCPQ EQU IEDQAVTD+1144 04324000 @NM00084 EQU IEDQAVTD+1140 04325000 @NM00083 EQU IEDQAVTD+1137 04326000 @NM00082 EQU AVTBIT4 04327000 @NM00081 EQU AVTBIT4 04328000 @NM00080 EQU AVTBIT4 04329000 @NM00079 EQU AVTBIT4 04330000 @NM00078 EQU AVTBIT4 04331000 @NM00077 EQU AVTBIT4 04332000 @NM00076 EQU AVTBIT4 04333000 AVTRUFTN EQU AVTBIT4 04334000 @NM00075 EQU IEDQAVTD+1132 04335000 AVTNOBFQ EQU IEDQAVTD+1128 04336000 @NM00074 EQU IEDQAVTD+1124 04337000 AVTDKENQ EQU IEDQAVTD+1120 04338000 @NM00073 EQU IEDQAVTD+1116 04339000 AVTDKAPQ EQU IEDQAVTD+1112 04340000 AVTCOPY EQU IEDQAVTD+1108 04341000 AVTIA EQU IEDQAVTD+1104 04342000 AVTFL EQU IEDQAVTD+1100 04343000 @NM00072 EQU IEDQAVTD+1096 04344000 AVTNCPBQ EQU IEDQAVTD+1092 04345000 AVTTOTNC EQU IEDQAVTD+1088 04346000 AVTCMAX EQU IEDQAVTD+1084 04347000 AVTCMIN EQU IEDQAVTD+1080 04348000 AVTHM02 EQU IEDQAVTD+1076 04349000 AVTOPCIN EQU IEDQAVTD+1074 04350000 AVTDCTLN EQU IEDQAVTD+1072 04351000 AVTOPMSK EQU IEDQAVTD+1068 04352000 AVTDDFT EQU IEDQAVTD+1064 04353000 AVTSTEAL EQU IEDQAVTD+1060 04354000 AVTOPTN EQU IEDQAVTD+1056 04355000 AVTDSKCT EQU IEDQAVTD+1054 04356000 AVTCKRST EQU IEDQAVTD+1053 04357000 AVTSTAN EQU AVTBIT3 04358000 AVTSTACN EQU AVTBIT3 04359000 AVTSTAYN EQU AVTBIT3 04360000 AVTOLTBN EQU AVTBIT3 04361000 AVTTSAB EQU AVTBIT3 04362000 AVTRFULN EQU AVTBIT3 04363000 AVTRECVN EQU AVTBIT3 04364000 @NM00071 EQU AVTBIT2 04365000 @NM00070 EQU AVTBIT2 04366000 AVTOPEIN EQU AVTBIT2 04367000 AVTSTRTN EQU AVTBIT2 04368000 AVTTOPOL EQU AVTBIT2 04369000 AVTCOPYN EQU AVTBIT2 04370000 AVTREUSN EQU AVTBIT2 04371000 AVTEXTSC EQU AVTBIT2 04372000 AVTDISKN EQU AVTBIT1 04373000 AVTQUCKN EQU AVTBIT1 04374000 AVTCLOSN EQU AVTBIT1 04375000 AVTREADN EQU AVTBIT1 04376000 AVTDLAYN EQU AVTBIT1 04377000 AVTAQTAN EQU AVTBIT1 04378000 AVTTSON EQU AVTBIT1 04379000 AVTAPLKN EQU AVTBIT1 04380000 AVTDUMBR EQU IEDQAVTD+1048 04381000 AVTDLQX EQU IEDQAVTD+1046 04382000 AVTINTLV EQU IEDQAVTD+1044 04383000 AVTSMCNT EQU IEDQAVTD+1042 04384000 AVTAVFCT EQU IEDQAVTD+1040 04385000 AVTOPCON EQU IEDQAVTD+1038 04386000 AVTOPCNT EQU IEDQAVTD+1036 04387000 AVTLNCNT EQU IEDQAVTD+1034 04388000 AVTKEYLE EQU IEDQAVTD+1032 04389000 AVTHA16 EQU IEDQAVTD+1030 04390000 AVTHA7 EQU IEDQAVTD+1028 04391000 AVTHA4 EQU IEDQAVTD+1026 04392000 AVTHA3 EQU IEDQAVTD+1024 04393000 AVTHA2 EQU IEDQAVTD+1022 04394000 AVTGETMS EQU IEDQAVTD+1021 04395000 @NM00069 EQU IEDQAVTD+1020 04396000 AVTGETMD EQU IEDQAVTD+1016 04397000 AVTGETMN EQU IEDQAVTD+1012 04398000 AVTCWTOT EQU IEDQAVTD+1008 04399000 AVTCWINT EQU IEDQAVTD+956 04400000 AVTDTRAP EQU IEDQAVTD+952 04401000 @NM00068 EQU IEDQAVTD+950 04402000 @NM00067 EQU AVTIOTR 04403000 AVTIOTRH EQU AVTIOTR 04404000 AVTIOTRE EQU AVTIOTR 04405000 @NM00066 EQU AVTSUBT 04406000 AVTSUBPT EQU AVTSUBT 04407000 AVTSUBON EQU AVTSUBT 04408000 AVTAFE30 EQU IEDQAVTD+944 04409000 AVTAFE20 EQU IEDQAVTD+940 04410000 AVTAFE10 EQU IEDQAVTD+936 04411000 AVTCWEC2 EQU IEDQAVTD+932 04412000 AVTCWPM2 EQU IEDQAVTD+928 04413000 AVTCWTS2 EQU IEDQAVTD+927 04414000 AVTCWTS1 EQU IEDQAVTD+926 04415000 AVTCWCLD EQU AVTCWFL2 04416000 AVTCWRAP EQU AVTCWFL2 04417000 @NM00065 EQU AVTCWFL2 04418000 @NM00064 EQU AVTCWFL2 04419000 @NM00063 EQU AVTCWFL2 04420000 @NM00062 EQU AVTCWFL2 04421000 @NM00061 EQU AVTCWFL2 04422000 AVTCWACT EQU AVTCWFL2 04423000 @NM00060 EQU AVTCWFL1 04424000 @NM00059 EQU AVTCWFL1 04425000 @NM00058 EQU AVTCWFL1 04426000 @NM00057 EQU AVTCWFL1 04427000 @NM00056 EQU AVTCWFL1 04428000 @NM00055 EQU AVTCWFL1 04429000 @NM00054 EQU AVTCWFL1 04430000 AVTCOMWN EQU AVTCWFL1 04431000 AVTCWEC1 EQU IEDQAVTD+920 04432000 AVTCWPM1 EQU IEDQAVTD+916 04433000 AVTCAREA EQU IEDQAVTD+912 04434000 AVTCADDR EQU IEDQAVTD+904 04435000 AVTCOREC EQU IEDQAVTD+900 04436000 @NM00053 EQU IEDQAVTD+892 04437000 AVTCPBCB EQU IEDQAVTD+888 04438000 @NM00052 EQU IEDQAVTD+880 04439000 AVTDSIOB EQU IEDQAVTD+876 04440000 @NM00051 EQU IEDQAVTD+868 04441000 AVTCPRMB EQU IEDQAVTD+864 04442000 @NM00050 EQU IEDQAVTD+856 04443000 AVTCLOSB EQU IEDQAVTD+852 04444000 @NM00049 EQU IEDQAVTD+844 04445000 AVTACTIB EQU IEDQAVTD+840 04446000 @NM00048 EQU IEDQAVTD+836 04447000 AVTOLTEB EQU IEDQAVTD+832 04448000 AVTOLTCH EQU AVTOLTQB+1 04449000 AVTOLTVT EQU AVTOLTQB 04450000 @NM00047 EQU AVTOPCQB+8 04451000 @NM00046 EQU AVTOPCEC+1 04452000 @NM00045 EQU AVTOPCCC 04453000 AVTOPCPO EQU AVTOPCCC 04454000 AVTOPCWA EQU AVTOPCCC 04455000 AVTOPCCH EQU AVTOPCOB+1 04456000 AVTOPCVT EQU AVTOPCOB 04457000 @NM00044 EQU AVTCKPQB+9 04458000 AVTCKPTS EQU AVTCKPQB+8 04459000 @NM00043 EQU AVTCKPEC+1 04460000 @NM00042 EQU AVTCKPCC 04461000 AVTCKPPO EQU AVTCKPCC 04462000 AVTCKPWA EQU AVTCKPCC 04463000 AVTCKPCH EQU AVTCKPTB+1 04464000 AVTCKPVT EQU AVTCKPTB 04465000 @NM00041 EQU IEDQAVTD+796 04466000 AVTBFRTB EQU IEDQAVTD+792 04467000 @NM00040 EQU IEDQAVTD+788 04468000 AVTSELCH EQU IEDQAVTD+785 04469000 AVTBFRTN EQU AVTBFRFG 04470000 AVTBFREB EQU IEDQAVTD+780 04471000 AVTTIMQ EQU IEDQAVTD+776 04472000 @NM00039 EQU IEDQAVTD+772 04473000 AVTIMQPS EQU IEDQAVTD+768 04474000 AVTINOUT EQU IEDQAVTD+766 04475000 AVTREFTM EQU IEDQAVTD+764 04476000 @NM00038 EQU IEDQAVTD+752 04477000 AVTDELYB EQU IEDQAVTD+748 04478000 AVTOCQPT EQU IEDQAVTD+744 04479000 AVTTSOPT EQU IEDQAVTD+740 04480000 AVTSUPPT EQU IEDQAVTD+736 04481000 AVTCBQCB EQU IEDQAVTD+732 04482000 AVTMSGS EQU IEDQAVTD+729 04483000 @NM00037 EQU AVTSYSER 04484000 @NM00036 EQU AVTSYSER 04485000 @NM00035 EQU AVTSYSER 04486000 @NM00034 EQU AVTSYSER 04487000 @NM00033 EQU AVTSYSER 04488000 @NM00032 EQU AVTSYSER 04489000 AVTCMAXN EQU AVTSYSER 04490000 AVTCMINN EQU AVTSYSER 04491000 AVT2260L EQU IEDQAVTD+724 04492000 AVTABEPL EQU AVTADBUF 04493000 AVTHFF EQU AVTCLRHI+2 04494000 @NM00031 EQU AVTCLRHI 04495000 AVTCCLNK EQU AVTCRELE+5 04496000 AVTCCPRI EQU AVTCRELE+4 04497000 AVTCCQCB EQU AVTCCELE+1 04498000 AVTCCKEY EQU AVTCCELE 04499000 AVTDELAD EQU IEDQAVTD+704 04500000 AVTDELEM EQU IEDQAVTD+700 04501000 AVTBSX EQU AVTCKLNK 04502000 AVTOPETR EQU AVTHG01 04503000 @NM00030 EQU AVTCKBYT 04504000 AVTCKONQ EQU AVTCKBYT 04505000 @NM00029 EQU AVTCKBYT 04506000 @NM00028 EQU AVTCKBYT 04507000 @NM00027 EQU AVTCKBYT 04508000 @NM00026 EQU AVTCKBYT 04509000 @NM00025 EQU AVTCKBYT 04510000 @NM00024 EQU AVTCKBYT 04511000 AVTOPERT EQU IEDQAVTD+690 04512000 AVTOPXCL EQU IEDQAVTD+688 04513000 AVTOPERL EQU IEDQAVTD+687 04514000 @NM00023 EQU IEDQAVTD+686 04515000 AVTCKTIM EQU IEDQAVTD+684 04516000 AVTCKELV EQU IEDQAVTD+682 04517000 AVTCPRCD EQU IEDQAVTD+681 04518000 AVTWARMN EQU AVTCKELF 04519000 AVTCRTLN EQU AVTCKELF 04520000 AVTCPIPN EQU AVTCKELF 04521000 AVTCCLCN EQU AVTCKELF 04522000 AVTCINCN EQU AVTCKELF 04523000 @NM00022 EQU AVTCKELF 04524000 AVTCMCPN EQU AVTCKELF 04525000 AVTNQBCK EQU AVTCKELF 04526000 AVTCKQAD EQU IEDQAVTD+677 04527000 AVTSCBSZ EQU IEDQAVTD+676 04528000 @NM00021 EQU IEDQAVTD+672 04529000 AVTCKELE EQU IEDQAVTD+668 04530000 @NM00020 EQU AVTCKPEL+8 04531000 AVTCKRLK EQU AVTCKPEL+5 04532000 AVTCKRPR EQU AVTCKPEL+4 04533000 AVTCKRMQ EQU AVTCKRMV+1 04534000 AVTCKRKY EQU AVTCKRMV 04535000 AVTHK EQU IEDQAVTD+648 04536000 AVTHI EQU IEDQAVTD+644 04537000 AVTIOT EQU IEDQAVTD+640 04538000 AVTNX EQU IEDQAVTD+636 04539000 AVTTONE EQU IEDQAVTD+632 04540000 AVTA3TL EQU IEDQAVTD+628 04541000 AVTDMECB EQU IEDQAVTD+624 04542000 AVTABEND EQU IEDQAVTD+618 04543000 AVTPLCBN EQU IEDQAVTD+616 04544000 @NM00019 EQU AVTSAVTP+1 04545000 @NM00018 EQU AVTSAVTF 04546000 AVTSNA EQU AVTSAVTF 04547000 AVTONSNA EQU AVTSAVTF 04548000 AVTVTMCP EQU AVTSAVTF 04549000 @NM00017 EQU IEDQAVTD+608 04550000 AVTCMBSS EQU IEDQAVTD+604 04551000 AVTRCV EQU IEDQAVTD+600 04552000 AVTSEND EQU IEDQAVTD+596 04553000 AVTCSCH EQU IEDQAVTD+592 04554000 AVTQ1 EQU IEDQAVTD+588 04555000 AVTE7 EQU IEDQAVTD+584 04556000 AVTHB EQU IEDQAVTD+580 04557000 AVTR1 EQU IEDQAVTD+576 04558000 AVTBZ EQU IEDQAVTD+572 04559000 AVTEZ EQU IEDQAVTD+568 04560000 AVTEC EQU IEDQAVTD+564 04561000 AVTEW EQU IEDQAVTD+560 04562000 AVTNDIAL EQU AVTSCOPT 04563000 AVTN2741 EQU AVTSCOPT 04564000 AVTCONCO EQU AVTSCOPT 04565000 AVTCONC EQU AVTSCOPT 04566000 AVTCMBUF EQU AVTSCOPT 04567000 AVTAPDMP EQU AVTSCOPT 04568000 @NM00016 EQU AVTSCOPT 04569000 AVTHA EQU AVTDISP 04570000 AVTEA EQU IEDQAVTD+548 04571000 AVTAX EQU IEDQAVTD+544 04572000 AVTA3 EQU IEDQAVTD+540 04573000 AVTGD EQU IEDQAVTD+536 04574000 AVTAL EQU IEDQAVTD+532 04575000 AVTOLTST EQU AVTHG02 04576000 AVTE8 EQU IEDQAVTD+524 04577000 AVTUI EQU IEDQAVTD+520 04578000 AVTCOMPT EQU IEDQAVTD+516 04579000 AVTCRSRF EQU IEDQAVTD+512 04580000 @NM00015 EQU IEDQAVTD+508 04581000 AVTKA02 EQU IEDQAVTD+504 04582000 AVTOPTPT EQU IEDQAVTD+500 04583000 AVTPCBPT EQU IEDQAVTD+496 04584000 @NM00014 EQU AVTECB1 04585000 AVTCOMP EQU AVTECB1 04586000 @NM00013 EQU AVTECB1 04587000 AVTOPECA EQU IEDQAVTD+488 04588000 AVTOLECA EQU IEDQAVTD+484 04589000 AVTCKECA EQU IEDQAVTD+480 04590000 AVTCWECA EQU IEDQAVTD+476 04591000 AVTCWTCB EQU IEDQAVTD+472 04592000 AVTOLTCB EQU IEDQAVTD+468 04593000 AVTOCTCB EQU IEDQAVTD+464 04594000 AVTCKTCB EQU IEDQAVTD+460 04595000 AVTAS EQU IEDQAVTD+456 04596000 AVTNOLBF EQU IEDQAVTD+454 04597000 AVTNCKPR EQU IEDQAVTD+453 04598000 AVTCIB EQU IEDQAVTD+452 04599000 AVTSPLPT EQU IEDQAVTD+448 04600000 AVTMVBFR EQU IEDQAVTD+444 04601000 AVTSBTA EQU IEDQAVTD+440 04602000 AVTRARTN EQU IEDQAVTD+436 04603000 AVTBSCAN EQU IEDQAVTD+432 04604000 AVTRDYA EQU IEDQAVTD+428 04605000 AVTDISTR EQU IEDQAVTD+420 04606000 AVTPARM3 EQU IEDQAVTD+416 04607000 @NM00012 EQU AVTPKF 04608000 @NM00011 EQU AVTPKF 04609000 @NM00010 EQU AVTPKF 04610000 AVTFTCHF EQU AVTPKF 04611000 @NM00009 EQU AVTPKF 04612000 @NM00008 EQU AVTPKF 04613000 @NM00007 EQU AVTPKF 04614000 @NM00006 EQU AVTPKF 04615000 AVTPARM EQU IEDQAVTD+408 04616000 AVTEXS2A EQU IEDQAVTD+402 04617000 AVTEXA2S EQU IEDQAVTD+396 04618000 AVTOCGET EQU IEDQAVTD+392 04619000 AVTCKAVT EQU @NM00004+1 04620000 @NM00005 EQU AVTCKFLG 04621000 AVTCKHLT EQU AVTCKFLG 04622000 AVTCKREQ EQU AVTCKFLG 04623000 AVTCKENV EQU AVTCKFLG 04624000 AVTCKNAC EQU AVTCKFLG 04625000 AVTCKTAC EQU AVTCKFLG 04626000 AVTBUENT EQU IEDQAVTD+386 04627000 @NM00003 EQU IEDQAVTD+385 04628000 AVTFULLT EQU AVTBUFSW 04629000 AVTUNCON EQU AVTBUFSW 04630000 @NM00002 EQU AVTBUFSW 04631000 AVTBUFTR EQU AVTREADD 04632000 AVTREADY EQU IEDQAVTD+376 04633000 AVTRACE EQU IEDQAVTD+372 04634000 AVTTCB EQU IEDQAVTD+368 04635000 AVTPASWD EQU IEDQAVTD+360 04636000 AVTCTLCH EQU IEDQAVTD+352 04637000 AVTDOUBL EQU IEDQAVTD+344 04638000 AVTDOUBX EQU IEDQAVTD+336 04639000 AVTDPARM EQU IEDQAVTD+332 04640000 AVTCSTCS EQU IEDQAVTD+328 04641000 AVTDLQ EQU AVTSAVEX+32 04642000 @NM00001 EQU AVTSAVEX 04643000 AVTSAVE4 EQU IEDQAVTD+216 04644000 AVTSAVE3 EQU IEDQAVTD+144 04645000 AVTSAVE2 EQU IEDQAVTD+72 04646000 AVTSAVE1 EQU IEDQAVTD 04647000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04648000 @RF00772 EQU @RC00770 04649000 @PB00012 EQU @EL00001 04650000 @PB00011 EQU @PB00012 04651000 @PB00010 EQU @PB00011 04652000 @PB00009 EQU @PB00010 04653000 @PB00008 EQU @PB00009 04654000 @PB00007 EQU @PB00008 04655000 @PB00006 EQU @PB00007 04656000 @PB00005 EQU @PB00006 04657000 @PB00004 EQU @PB00005 04658000 @PB00003 EQU @PB00004 04659000 @PB00002 EQU @PB00003 04660000 @ENDDATA EQU * 04661000 END IGCVA10D,(C'PLS1027',0701,78067) 04662000