TITLE 'IGCVI10D, 3705 STARTLINE' 00001000 IGCVI10D CSECT , 0001 00002000 @PROLOG BALR @12,0 0001 00003000 @PSTART DS 0H 0001 00004000 USING @PSTART,@12 0001 00005000 * @OZ37280*/ 00006000 * 0606 00007000 * /*****************************************************************/ 00008000 * /* */ 00009000 * /* INITIALIZATION */ 00010000 * /* */ 00011000 * /*****************************************************************/ 00012000 * 0606 00013000 * ROPCAVT=RPARM; /* OPCAVT ADDR */ 00014000 LR ROPCAVT,RPARM 0606 00015000 * RAVT=OPCAVTPT; /* TCAM AVT ADDR */ 00016000 L RAVT,OPCAVTPT(,ROPCAVT) 0607 00017000 * ROPCE=OPCCOPCE; /* OPCE ADDR */ 00018000 L ROPCE,OPCCOPCE(,ROPCAVT) 0608 00019000 * OPCFLAG1=0; /* CLEAR FLAG */ 00020000 MVI OPCFLAG1(ROPCAVT),X'00' 0609 00021000 * GEN NOREFS NOSETS NOEXIT SEQFLOW; 0610 00022000 IGCVI10D IEDHJN SKIPID,HJN 00023000 * 0611 00024000 * /*****************************************************************/ 00025000 * /* */ 00026000 * /* MAIN PROGRAM LOGIC */ 00027000 * /* */ 00028000 * /*****************************************************************/ 00029000 * 0611 00030000 * IF OCELMPRI=VIFLG THEN 0611 00031000 CLC OCELMPRI(1,ROPCE),VIFLG 0611 00032000 BNE @RF00611 0611 00033000 * MORELINE=ON; /* ENTRY FROM VK @02A*/ 00034000 OI MORELINE(ROPCAVT),B'01000000' 0612 00035000 * ELSE 0613 00036000 * FIRSTREQ=ON; /* TURN ON FIRST REQ @02A*/ 00037000 B @RC00611 0613 00038000 @RF00611 OI FIRSTREQ(ROPCAVT),B'10000000' 0613 00039000 * DO WHILE(FIRSTREQ=ON|MORELINE=ON);/* LOOP FOR GRP,ALL AND FIRST 00040000 * TIME THROUGH */ 00041000 @RC00611 B @DE00614 0614 00042000 @DL00614 DS 0H 0615 00043000 * EXITFLAG=OFF; /* RESET SO THAT WE DO NOT XCTL 00044000 * TO OURSELF WHEN PROCESSING A 00045000 * GROUP FOR MULTIPLE NCPS,ONLY 00046000 * SOME OF WHICH ARE ACTIVE 0615 00047000 * @ZM48377*/ 00048000 NI EXITFLAG(ROPCAVT),B'11011111' 0615 00049000 * CALL STRTREQ; /* PROC STARTLINE REQ */ 00050000 BAL @14,STRTREQ 0616 00051000 * END; 0617 00052000 @DE00614 TM FIRSTREQ(ROPCAVT),B'11000000' 0617 00053000 BNZ @DL00614 0617 00054000 * RPARM=ROPCAVT; /* SET R1 TO OPC AVT */ 00055000 LR RPARM,ROPCAVT 0618 00056000 * IF OPCMODID=VI THEN /* IF GOING TO RETURN TO VI 0619 00057000 * INSURE THAT STRTREQ GETS 0619 00058000 * EXECUTED @ZM47662*/ 00059000 CLC OPCMODID(2,ROPCAVT),@CC03046 0619 00060000 BNE @RF00619 0619 00061000 * OCPARM=0; /* @ZM47662*/ 00062000 SLR @15,@15 0620 00063000 STH @15,OCPARM(,ROPCE) 0620 00064000 * IF OPCMODID=XCTL00 THEN /* CLEAR REG 0 PRIOR @YM03724*/ 00065000 @RF00619 CLC OPCMODID(2,ROPCAVT),@CC03050 0621 00066000 BNE @RF00621 0621 00067000 * RZERO=0; /* TO TRANSFER OF CONTROL */ 00068000 SLR RZERO,RZERO 0622 00069000 * ELSE 0623 00070000 * IF OPCMODID=CHKPT THEN /* OPCE FOR CHECKPOINT @ZM00899*/ 00071000 B @RC00621 0623 00072000 @RF00621 CLC OPCMODID(2,ROPCAVT),@CC03036 0623 00073000 BNE @RF00623 0623 00074000 * DO; /* YES .... @ZM00899*/ 00075000 * IF OCALLFLG=ON THEN /* START ALL OR STOP ALL REQUEST 00076000 * @ZM00899*/ 00077000 TM OCALLFLG(ROPCE),B'00000100' 0625 00078000 BNO @RF00625 0625 00079000 * OCRLN=''B; /* YES ... SET RLN TO ZERO 0626 00080000 * @ZM00899*/ 00081000 SLR @15,@15 0626 00082000 STC @15,OCRLN(,ROPCE) 0626 00083000 * ELSE 0627 00084000 * DO; /* NOT ALL REQUEST @ZM00899*/ 00085000 B @RC00625 0627 00086000 @RF00625 DS 0H 0628 00087000 * RPARM=OCTRMTBL; /* GET TTCIN OF LINE @ZM00899*/ 00088000 SLR RPARM,RPARM 0628 00089000 ICM RPARM,3,OCTRMTBL(ROPCE) 0628 00090000 * CALL IEDQTNT; /* CONVERT TO TTE @ZM00899*/ 00091000 L @15,AVTRNMPT(,IEDQAPTR) 0629 00092000 BALR @14,@15 0629 00093000 * OCRLN=RPARM->TRMDESTQ->QCBRELLN;/* SET RELATIVE LINE 0630 00094000 * NUMBER @ZM00899*/ 00095000 ICM @15,7,TRMDESTQ(RPARM) 0630 00096000 MVC OCRLN(1,ROPCE),QCBRELLN(@15) 0630 00097000 * END; /* @ZM00899*/ 00098000 * END; /* @ZM00899*/ 00099000 * ELSE 0633 00100000 * ; /* TO MODULE IGC0010D @ZM00899*/ 00101000 @RF00623 DS 0H 0634 00102000 * RPARM=ROPCAVT; /* SET R1 TO OPC AVT @ZM00899*/ 00103000 @RC00623 DS 0H 0634 00104000 @RC00621 LR RPARM,ROPCAVT 0634 00105000 * DO; /* IEDXCTL */ 00106000 * GEN EXIT REFS(ROPCAVT,OPCTRACE,OPCXCTL) NOSEQFLOW; 0636 00107000 * /* 00108000 LA 15,OPCXCTL(,ROPCAVT) POINT TO OPCXCTL LIST 00109000 EX 0,OPCTRACE(,ROPCAVT) INVOKE XCTL TRACE 00110000 XCTL SF=(E,(15)) XCTL TO NEXT MODULE 00111000 * END; /* END OF IEDXCTL OZ35627 */ 00112000 * 0638 00113000 * /*****************************************************************/ 00114000 * /* */ 00115000 * /* PROCESS STARTLINE REQUEST THIS ROUTINE IS CALLED FROM MAIN */ 00116000 * /* PROGRAM LOGIC */ 00117000 * /* */ 00118000 * /*****************************************************************/ 00119000 * 0638 00120000 *STRTREQ: 0638 00121000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0638 00122000 STRTREQ DS 0H 0639 00123000 * OPCWRKSP(3)=RRETURN; /* SAVE RETURN ADDR */ 00124000 ST RRETURN,OPCWRKSP+8(,ROPCAVT) 0639 00125000 * IF FIRSTREQ=ON THEN 0640 00126000 TM FIRSTREQ(ROPCAVT),B'10000000' 0640 00127000 BNO @RF00640 0640 00128000 * DO; /* IF FIRST REQUEST FIND FIRST 0641 00129000 * LINE TO PROC */ 00130000 * FIRSTREQ=OFF; /* RESET FLAG */ 00131000 NI FIRSTREQ(ROPCAVT),B'01111111' 0642 00132000 * CALL GETFIRST; /* FIND THE FIRST LINE */ 00133000 BAL @14,GETFIRST 0643 00134000 * END; 0644 00135000 * ELSE 0645 00136000 * IF MORELINE=ON THEN 0645 00137000 B @RC00640 0645 00138000 @RF00640 TM MORELINE(ROPCAVT),B'01000000' 0645 00139000 BNO @RF00645 0645 00140000 * MORELINE=OFF; /* RESET LOOP BIT @YM06057*/ 00141000 NI MORELINE(ROPCAVT),B'10111111' 0646 00142000 * ELSE 0647 00143000 * ; /* @YM06057*/ 00144000 @RF00645 DS 0H 0648 00145000 * RPARM=OCTRMTBL; /* TTCIN OF LINE TO PROCESS */ 00146000 @RC00640 SLR RPARM,RPARM 0648 00147000 ICM RPARM,3,OCTRMTBL(ROPCE) 0648 00148000 * CALL IEDQTNT; /* CONVERT TO TTE */ 00149000 L @15,AVTRNMPT(,IEDQAPTR) 0649 00150000 BALR @14,@15 0649 00151000 * RTERM=RPARM; /* SET UP TTE BASE */ 00152000 LR RTERM,RPARM 0650 00153000 * IF EXITFLAG=OFF THEN 0651 00154000 TM EXITFLAG(ROPCAVT),B'00100000' 0651 00155000 BNZ @RF00651 0651 00156000 * DO; /* NO ERROR FOUND YET */ 00157000 * CALL SNACHK; /* CHECK FOR SNA LINE */ 00158000 BAL @14,SNACHK 0653 00159000 * IF EXITFLAG=OFF THEN 0654 00160000 TM EXITFLAG(ROPCAVT),B'00100000' 0654 00161000 BNZ @RF00654 0654 00162000 * DO; /* NO PREVIOUS ERROR */ 00163000 * CALL ACT3705; /* VERIFY 3705 ACTIVE */ 00164000 BAL @14,ACT3705 0656 00165000 * IF EXITFLAG=OFF THEN 0657 00166000 TM EXITFLAG(ROPCAVT),B'00100000' 0657 00167000 BNZ @RF00657 0657 00168000 * DO; /* NO ERROR FOUND YET */ 00169000 * CALL LINESTAT; /* VERFIY STATUS OF LINE */ 00170000 BAL @14,LINESTAT 0659 00171000 * IF EXITFLAG=OFF THEN 0660 00172000 TM EXITFLAG(ROPCAVT),B'00100000' 0660 00173000 BNZ @RF00660 0660 00174000 * DO; /* NO ERRORS,CONT PROC */ 00175000 * CALL ACTLINK; /* BUILD ACT LINK REQ */ 00176000 BAL @14,ACTLINK 0662 00177000 * OPCMODID=SSCPA0;/* CALL SSCP ROUTER */ 00178000 MVC OPCMODID(2,ROPCAVT),@CC03044 0663 00179000 * END; 0664 00180000 * END; 0665 00181000 * END; 0666 00182000 * END; 0667 00183000 * ELSE 0668 00184000 * ; 0668 00185000 @RF00651 DS 0H 0669 00186000 * RRETURN=OPCWRKSP(3); /* LOAD RETURN ADDR */ 00187000 @RC00651 L RRETURN,OPCWRKSP+8(,ROPCAVT) 0669 00188000 * RETURN; 0670 00189000 @EL00002 DS 0H 0670 00190000 @EF00002 DS 0H 0670 00191000 @ER00002 BR @14 0670 00192000 * END; /* END OF STRTREQ */ 00193000 * 0672 00194000 * /*****************************************************************/ 00195000 * /* */ 00196000 * /* GET FIRST LINE TO PROCESS THIS ROUTINE IS CALLED BY STRTREQ. */ 00197000 * /* */ 00198000 * /*****************************************************************/ 00199000 * 0672 00200000 *GETFIRST: 0672 00201000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0672 00202000 GETFIRST DS 0H 0673 00203000 * OPCWRKSP(4)=RRETURN; /* SAVE RETURN ADDR */ 00204000 ST RRETURN,OPCWRKSP+12(,ROPCAVT) 0673 00205000 * IF OCRENTRD=ON THEN 0674 00206000 TM OCRENTRD(ROPCE),B'10000000' 0674 00207000 BNO @RF00674 0674 00208000 * DO; /* 2ND ENTRY TO VI */ 00209000 * OCRENTRD=OFF; /* RESET INDICATOR */ 00210000 NI OCRENTRD(ROPCE),B'01111111' 0676 00211000 * OCWTG=OCWTGB; /* RESTORE OCWTG */ 00212000 MVC OCWTG(2,ROPCE),OCWTGB(ROPCE) 0677 00213000 * END; 0678 00214000 * ELSE 0679 00215000 * ; 0679 00216000 @RF00674 DS 0H 0680 00217000 * RPARM=OCTRMTBL; /* GET TTCIN OF GRP OR LINE */ 00218000 SLR RPARM,RPARM 0680 00219000 ICM RPARM,3,OCTRMTBL(ROPCE) 0680 00220000 * CALL IEDQTNT; /* CONVERT TTCIN TO TTE */ 00221000 L @15,AVTRNMPT(,IEDQAPTR) 0681 00222000 BALR @14,@15 0681 00223000 * RTERM=RPARM; /* SET UP TTE BASE */ 00224000 LR RTERM,RPARM 0682 00225000 * IF TRMTYPE=TRMGRP THEN 0683 00226000 LR @15,RTERM 0683 00227000 SH @15,@CH00954 0683 00228000 CLI TRMTYPE(@15),X'00' 0683 00229000 BNE @RF00683 0683 00230000 * DO; /* IF GROUP TTE THEN DO */ 00231000 * IF TRMSUBST^=0 THEN /* IF VALID SUBST PTR */ 00232000 ICM @11,3,TRMSUBST(@15) 0685 00233000 BZ @RF00685 0685 00234000 * OCTRMTBL=TRMSUBST; /* SAVE LINE TTCIN IN OPCE */ 00235000 MVC OCTRMTBL(2,ROPCE),TRMSUBST(@15) 0686 00236000 * ELSE 0687 00237000 * DO; /* NO LINES IN GROUP */ 00238000 B @RC00685 0687 00239000 @RF00685 DS 0H 0688 00240000 * EXITFLAG=ON; /* INDICATE EXIT */ 00241000 OI EXITFLAG(ROPCAVT),B'00100000' 0688 00242000 * OPCMODID=MOD03; /* ERROR EXIT MODULE */ 00243000 MVC OPCMODID(2,ROPCAVT),@CC03042 0689 00244000 * OPCWRKSP(1)=MSG102; /* ERROR MSG NUMBER */ 00245000 MVC OPCWRKSP(4,ROPCAVT),@CF03026 0690 00246000 * OPCWRKSP(2)=PARM4; /* PARM VALUE */ 00247000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00256 0691 00248000 * END; 0692 00249000 * END; 0693 00250000 * ELSE 0694 00251000 * ; 0694 00252000 @RF00683 DS 0H 0695 00253000 * IF EXITFLAG=OFF THEN 0695 00254000 @RC00683 TM EXITFLAG(ROPCAVT),B'00100000' 0695 00255000 BNZ @RF00695 0695 00256000 * DO; /* NO ERROR COND FOUND */ 00257000 * RPARM=ADDR(OCBACKUP); /* GET ADDR OF GRPNAME */ 00258000 LA RPARM,OCBACKUP(,ROPCE) 0697 00259000 * CALL WAITLSRH; /* FIND OPCE WITH SAME GRPNAME */ 00260000 BAL @14,WAITLSRH 0698 00261000 * IF RPARM=0 THEN 0699 00262000 LTR RPARM,RPARM 0699 00263000 BNZ @RF00699 0699 00264000 * DO; /* IF OPCE NOT FOUND WITH SAME 0700 00265000 * GRPNAME THEN DO */ 00266000 * IF OCALLFLG=ON THEN 0701 00267000 TM OCALLFLG(ROPCE),B'00000100' 0701 00268000 BNO @RF00701 0701 00269000 * DO; /* GRP,ALL LOOP */ 00270000 * OCSOME=OFF; /* CLEAR STATUS BITS */ 00271000 * OCNONE=OFF; 0704 00272000 NI OCSOME(ROPCE),B'11111100' 0704 00273000 * END; 0705 00274000 * ELSE 0706 00275000 * ; 0706 00276000 @RF00701 DS 0H 0707 00277000 * END; 0707 00278000 * ELSE 0708 00279000 * DO; /* OPCE WITH SAME GRP NAME FOUND */ 00280000 B @RC00699 0708 00281000 @RF00699 DS 0H 0709 00282000 * OCWTGB=OCWTG; /* SAVE OCWTG */ 00283000 MVC OCWTGB(2,ROPCE),OCWTG(ROPCE) 0709 00284000 * OCRENTRD=ON; /* INDICATE 2ND ENTRY */ 00285000 OI OCRENTRD(ROPCE),B'10000000' 0710 00286000 * OCWTG=VI; /* SET TO RETURN HERE */ 00287000 MVC OCWTG(2,ROPCE),@CC03046 0711 00288000 * EXITFLAG=ON; /* INDICATE EXIT */ 00289000 OI EXITFLAG(ROPCAVT),B'00100000' 0712 00290000 * OPCMODID=XCTL00; /* MODULE TO GET CONTROL */ 00291000 MVC OPCMODID(2,ROPCAVT),@CC03050 0713 00292000 * CALL WAITLATT; /* ATTACH OPCE TO WAITL */ 00293000 BAL @14,WAITLATT 0714 00294000 * END; 0715 00295000 * END; 0716 00296000 * ELSE 0717 00297000 * ; 0717 00298000 @RF00695 DS 0H 0718 00299000 * RRETURN=OPCWRKSP(4); /* RESTORE RETURN ADDR */ 00300000 @RC00695 L RRETURN,OPCWRKSP+12(,ROPCAVT) 0718 00301000 * RETURN; 0719 00302000 @EL00003 DS 0H 0719 00303000 @EF00003 DS 0H 0719 00304000 @ER00003 BR @14 0719 00305000 * END; /* END OF GETFIRST */ 00306000 * 0721 00307000 * /*****************************************************************/ 00308000 * /* */ 00309000 * /* WAITL ATTACH SUBROUTINE. REG 1 MUST POINT TO OPCE ON WAITL */ 00310000 * /* CHAIN AND REG 3 (ROPCE) TO THE OPCE TO BE ATTACHED THIS */ 00311000 * /* ROUTINE IS CALLED BY GETFIRST */ 00312000 * /* */ 00313000 * /*****************************************************************/ 00314000 * 0721 00315000 *WAITLATT: 0721 00316000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0721 00317000 WAITLATT DS 0H 0722 00318000 * DO WHILE(RPARM->OCATTACH=ON); /* IF OPCES ALREADY ATTACHED */ 00319000 B @DE00722 0722 00320000 @DL00722 DS 0H 0723 00321000 * RPARM=RPARM->OCELMPTR; /* NEXT OPCE */ 00322000 SLR @15,@15 0723 00323000 ICM @15,7,OCELMPTR(RPARM) 0723 00324000 LR RPARM,@15 0723 00325000 * END; 0724 00326000 @DE00722 TM OCATTACH(RPARM),B'00000010' 0724 00327000 BO @DL00722 0724 00328000 * RPARM->OCELMPTR=ROPCE; /* OPCE TO ATTACH */ 00329000 STCM ROPCE,7,OCELMPTR(RPARM) 0725 00330000 * RPARM->OCATTACH=ON; /* IND ATTACHED OPCE */ 00331000 OI OCATTACH(RPARM),B'00000010' 0726 00332000 * RETURN; 0727 00333000 @EL00004 DS 0H 0727 00334000 @EF00004 DS 0H 0727 00335000 @ER00004 BR @14 0727 00336000 * END; /* END OF WAITLATT */ 00337000 * 0729 00338000 * /*****************************************************************/ 00339000 * /* */ 00340000 * /* THIS SUBROUTINE CHECKS FOR SNA LINES THIS ROUTINE IS CALLED BY*/ 00341000 * /* STRTREQ. */ 00342000 * /* */ 00343000 * /*****************************************************************/ 00344000 * 0729 00345000 *SNACHK: 0729 00346000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0729 00347000 SNACHK DS 0H 0730 00348000 * IF TRMTYPE=TRMSDLC THEN 0730 00349000 LR @15,RTERM 0730 00350000 AL @15,@CF01974 0730 00351000 CLI TRMTYPE-25(@15),X'21' 0730 00352000 BNE @RF00730 0730 00353000 * DO; /* IF SNA LINE */ 00354000 * OCIPLWA=0; /* CLEAR FOR USE BY ACT-DE */ 00355000 SLR @15,@15 0732 00356000 ST @15,OCIPLWA(,ROPCE) 0732 00357000 * OCPTRSAV=0; /* CLEARED FOR ACTIVATE USE */ 00358000 ST @15,OCPTRSAV(,ROPCE) 0733 00359000 * OCWTGB=OCWTG; /* SAVE CALLER */ 00360000 MVC OCWTGB(2,ROPCE),OCWTG(ROPCE) 0734 00361000 * OCWTG=VK; /* INDICATE RETURN TO VK @P3C*/ 00362000 MVC OCWTG(2,ROPCE),@CC03048 0735 00363000 * OCSWITCH=OCTOFA; /* IND ACT LINK REQ */ 00364000 MVI OCSWITCH(ROPCE),X'22' 0736 00365000 * OPCMODID=FA; /* ACT MOD TO GET CONTROL */ 00366000 MVC OPCMODID(2,ROPCAVT),@CC03052 0737 00367000 * EXITFLAG=ON; /* IND EXIT */ 00368000 OI EXITFLAG(ROPCAVT),B'00100000' 0738 00369000 * END; 0739 00370000 * ELSE 0740 00371000 * ; 0740 00372000 @RF00730 DS 0H 0741 00373000 * RETURN; 0741 00374000 @EL00005 DS 0H 0741 00375000 @EF00005 DS 0H 0741 00376000 @ER00005 BR @14 0741 00377000 * END; /* END OF SNACHK */ 00378000 * 0743 00379000 * /*****************************************************************/ 00380000 * /* */ 00381000 * /* THIS SUBROUTINE CHECKS THE ACTIVE STATUS OF THE LINE THIS */ 00382000 * /* ROUTINE IS CALLED BY STRTREQ */ 00383000 * /* */ 00384000 * /*****************************************************************/ 00385000 * 0743 00386000 *LINESTAT: 0743 00387000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0743 00388000 LINESTAT DS 0H 0744 00389000 * OPCWRKSP(4)=RRETURN; /* SAVE RETURN ADDR */ 00390000 ST RRETURN,OPCWRKSP+12(,ROPCAVT) 0744 00391000 * IF TRMEPMOD=ON THEN 0745 00392000 LR @15,RTERM 0745 00393000 AL @15,@CF03137 0745 00394000 TM TRMEPMOD-15(@15),B'10000000' 0745 00395000 BNO @RF00745 0745 00396000 * DO; /* IF LINE IS IN EP MODE */ 00397000 * OPCWRKSP(1)=MSG443; /* SET UP ERROR MSG */ 00398000 MVC OPCWRKSP(4,ROPCAVT),@CF03003 0747 00399000 * OPCWRKSP(2)=PARM4; /* SET UP PARM VALUE */ 00400000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00256 0748 00401000 * EXITFLAG=ON; /* INDICATE EXIT */ 00402000 OI EXITFLAG(ROPCAVT),B'00100000' 0749 00403000 * CALL ERREXIT; /* EXECUTE ERROR PROCESS */ 00404000 BAL @14,ERREXIT 0750 00405000 * END; 0751 00406000 * ELSE 0752 00407000 * DO; /* LINE NOT IN EP MODE */ 00408000 B @RC00745 0752 00409000 @RF00745 DS 0H 0753 00410000 * IF OCTOTE=ON THEN 0753 00411000 TM OCTOTE(ROPCE),B'01000000' 0753 00412000 BNO @RF00753 0753 00413000 * TRMSTOTE=OFF; /* IF TOTE REQUEST, INDICATE LINE 00414000 * NOT IN TOTE MODE */ 00415000 LR @15,RTERM 0754 00416000 AL @15,@CF03138 0754 00417000 NI TRMSTOTE-17(@15),B'11111110' 0754 00418000 * ELSE 0755 00419000 * ; 0755 00420000 @RF00753 DS 0H 0756 00421000 * IF TRMSTOTE=ON THEN 0756 00422000 LR @15,RTERM 0756 00423000 AL @15,@CF03138 0756 00424000 TM TRMSTOTE-17(@15),B'00000001' 0756 00425000 BNO @RF00756 0756 00426000 * DO; /* IF TOTE OWNS LINE */ 00427000 * OPCWRKSP(1)=MSG49; /* SET ERROR MSG NUMBER */ 00428000 MVC OPCWRKSP(4,ROPCAVT),@CF03005 0758 00429000 * OPCWRKSP(2)=PARM4; /* SET PARM VALUE */ 00430000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00256 0759 00431000 * EXITFLAG=ON; /* INDICATE EXIT */ 00432000 OI EXITFLAG(ROPCAVT),B'00100000' 0760 00433000 * CALL ERREXIT; /* ERROR PROCESSING */ 00434000 BAL @14,ERREXIT 0761 00435000 * END; 0762 00436000 * ELSE 0763 00437000 * DO; /* TOTE DOESNT CONTROL LINE */ 00438000 B @RC00756 0763 00439000 @RF00756 DS 0H 0764 00440000 * IF TRMRSACT=ON THEN 0764 00441000 LR @15,RTERM 0764 00442000 AL @15,@CF03140 0764 00443000 TM TRMRSACT-16(@15),B'10000000' 0764 00444000 BNO @RF00764 0764 00445000 * DO; /* IF LINE ALREADY ACTIVE */ 00446000 * OPCWRKSP(1)=MSG19; /* SET ERROR MSG NUMBER */ 00447000 MVC OPCWRKSP(4,ROPCAVT),@CF03007 0766 00448000 * OPCWRKSP(2)=PARM8; /* SET PARM VALUE */ 00449000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00046 0767 00450000 * EXITFLAG=ON; /* INDICATE EXIT */ 00451000 OI EXITFLAG(ROPCAVT),B'00100000' 0768 00452000 * CALL ERREXIT; /* ERROR PROCESSING */ 00453000 BAL @14,ERREXIT 0769 00454000 * END; 0770 00455000 * ELSE 0771 00456000 * ; 0771 00457000 @RF00764 DS 0H 0772 00458000 * END; 0772 00459000 * END; 0773 00460000 @RC00756 DS 0H 0774 00461000 * RRETURN=OPCWRKSP(4); /* RESTORE RETURN REG */ 00462000 @RC00745 L RRETURN,OPCWRKSP+12(,ROPCAVT) 0774 00463000 * RETURN; 0775 00464000 @EL00006 DS 0H 0775 00465000 @EF00006 DS 0H 0775 00466000 @ER00006 BR @14 0775 00467000 * END; /* END OF LINESTAT */ 00468000 * 0777 00469000 * /*****************************************************************/ 00470000 * /* */ 00471000 * /* THIS SUBROUTINE CHECKS FOR NCP ACTIVE THIS ROUTINE IS CALLED */ 00472000 * /* BY STRTREQ. */ 00473000 * /* */ 00474000 * /*****************************************************************/ 00475000 * 0777 00476000 *ACT3705: 0777 00477000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0777 00478000 ACT3705 DS 0H 0778 00479000 * OPCWRKSP(4)=RRETURN; /* SAVE RETURN REG */ 00480000 ST RRETURN,OPCWRKSP+12(,ROPCAVT) 0778 00481000 * IF TRMCOHRT=0 THEN 0779 00482000 LR @15,RTERM 0779 00483000 AL @15,@CF03141 0779 00484000 ICM @11,3,TRMCOHRT-18(@15) 0779 00485000 BNZ @RF00779 0779 00486000 * DO; /* IF NO COHORT PTR */ 00487000 * OPCWRKSP(1)=NCPACT; /* NCP NOT ACTIVE MSG */ 00488000 MVC OPCWRKSP(4,ROPCAVT),@CF03009 0781 00489000 * OPCWRKSP(2)=PARM4; /* SET PARM VALUE */ 00490000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00256 0782 00491000 * EXITFLAG=ON; /* INDICATE EXIT */ 00492000 OI EXITFLAG(ROPCAVT),B'00100000' 0783 00493000 * END; 0784 00494000 * ELSE 0785 00495000 * DO; /* HIERARCHY IN PLACE */ 00496000 B @RC00779 0785 00497000 @RF00779 DS 0H 0786 00498000 * RESPECIFY 0786 00499000 * RSAVE RSTD; /* R13=SAVE AREA ADDR */ 00500000 * RSAVE=ADDR(OPCSAVE); /* SET UP SAVE AREA */ 00501000 LA RSAVE,OPCSAVE(,ROPCAVT) 0787 00502000 * RPARM=RTERM; /* PASS TTE */ 00503000 LR RPARM,RTERM 0788 00504000 * CALL COHORTLK; /* COHORT LOOK UP RTN */ 00505000 L @15,OPCHORT(,ROPCAVT) 0789 00506000 BALR @14,@15 0789 00507000 * RESPECIFY 0790 00508000 * RSAVE UNRSTD; 0790 00509000 * RPARM=RPARM-LENGTH(IEDNTRM);/* BACK UP TO NEGATIVE PREFIX */ 00510000 SH RPARM,@CH00954 0791 00511000 * IF RPARM->TRMRSACT=OFF THEN 0792 00512000 TM TRMRSACT(RPARM),B'10000000' 0792 00513000 BNZ @RF00792 0792 00514000 * DO; /* ACTIVE FLAG OFF */ 00515000 * OPCWRKSP(1)=NCPACT; /* NCP NOT ACTIVE MSG */ 00516000 MVC OPCWRKSP(4,ROPCAVT),@CF03009 0794 00517000 * OPCWRKSP(2)=PARM4; /* PARM VALUE */ 00518000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00256 0795 00519000 * EXITFLAG=ON; /* INDICATE EXIT */ 00520000 OI EXITFLAG(ROPCAVT),B'00100000' 0796 00521000 * END; 0797 00522000 * ELSE 0798 00523000 * DO; /* ACTIVE FLAG ON */ 00524000 B @RC00792 0798 00525000 @RF00792 DS 0H 0799 00526000 * IF OCACTREQ=OFF&RPARM->TRMINPG=ON THEN 0799 00527000 TM OCACTREQ(ROPCE),B'00001000' 0799 00528000 BNZ @RF00799 0799 00529000 TM TRMINPG(RPARM),B'00100000' 0799 00530000 BNO @RF00799 0799 00531000 * DO; /* IF REQUEST IS NOT FROM 0800 00532000 * ACTIVATE AND ACT-DEACT- 0800 00533000 * IPL-DUMP IN PROGRESS,ERROR */ 00534000 * IF RPARM->TRMTYPE^=TRMRNCP THEN/* IF ENTRY IS NOT FOR 00535000 * REMOTE NCP @OZ37280*/ 00536000 CLI TRMTYPE(RPARM),X'0D' 0801 00537000 BE @RF00801 0801 00538000 * DO; /* @OZ37280*/ 00539000 * RPARM=(RPARM+LENGTH(IEDNTRM))->TRMDESTQ->QCBDCBAD; 00540000 ICM @15,7,TRMDESTQ+28(RPARM) 0803 00541000 SLR @11,@11 0803 00542000 ICM @11,7,QCBDCBAD(@15) 0803 00543000 LR RPARM,@11 0803 00544000 * /* GET DEB ADDRESS @YM09041*/ 00545000 * RFY 0804 00546000 * IHADCB BASED(RPARM);/* @XM05659*/ 00547000 * RPARM=DCBDEBAD; /* GET DEB ADDRESS @XM05659*/ 00548000 L @15,DCBDEBAD+40(,RPARM) 0805 00549000 LR RPARM,@15 0805 00550000 * RFY 0806 00551000 * IEDQDEB BASED(RPARM); 0806 00552000 * RPARM=RPARM-(ADDR(DEBNMSUB)-ADDR(IEDQDEB));/* 0807 00553000 * BACKUP */ 00554000 SH RPARM,@CH00924 0807 00555000 * OCBACKUP=''B; /* CLEAR TO INSERT THE UCB ADDR */ 00556000 XC OCBACKUP(8,ROPCE),OCBACKUP(ROPCE) 0808 00557000 * END; /* @OZ37280*/ 00558000 * ELSE /* @OZ37280*/ 00559000 * OCBACKUP=RNCP; /* MOVE IN RNCP @OZ37280*/ 00560000 B @RC00801 0810 00561000 @RF00801 MVC OCBACKUP(8,ROPCE),@CC03056 0810 00562000 * OCBACKUP(1:3)=DEBUCBAD->UCBNAME;/* INSERT THE UCB 0811 00563000 * ADDR */ 00564000 @RC00801 ICM @15,7,DEBUCBAD(RPARM) 0811 00565000 MVC OCBACKUP(3,ROPCE),UCBNAME(@15) 0811 00566000 * OPCWRKSP(1)=NCPACT2;/* ERROR MSG */ 00567000 MVC OPCWRKSP(4,ROPCAVT),@CF03011 0812 00568000 * OPCWRKSP(2)=PARM4; /* SET PARM VALUE */ 00569000 MVC OPCWRKSP+4(4,ROPCAVT),@CF00256 0813 00570000 * EXITFLAG=ON; /* INDICATE EXIT */ 00571000 OI EXITFLAG(ROPCAVT),B'00100000' 0814 00572000 * END; 0815 00573000 * ELSE 0816 00574000 * ; 0816 00575000 @RF00799 DS 0H 0817 00576000 * END; 0817 00577000 * END; 0818 00578000 @RC00792 DS 0H 0819 00579000 * IF EXITFLAG=ON /* INDICATE EXIT @P2A*/ 00580000 * THEN 0819 00581000 @RC00779 TM EXITFLAG(ROPCAVT),B'00100000' 0819 00582000 BNO @RF00819 0819 00583000 * DO; /* @P2A*/ 00584000 * IF OCWTG=0 THEN 0821 00585000 ICM @15,3,OCWTG(ROPCE) 0821 00586000 BNZ @RF00821 0821 00587000 * DO; /* NOT INTERNAL CALL @P2P*/ 00588000 * RZERO=OPCWRKSP(1); /* SET UPMSG NUMB @P2P*/ 00589000 L RZERO,OPCWRKSP(,ROPCAVT) 0823 00590000 * RPARM=OPCWRKSP(2); /* PARM VALUE @P2P*/ 00591000 L RPARM,OPCWRKSP+4(,ROPCAVT) 0824 00592000 * OPCMODID=MOD03; /* ..ELSE XCTL DIRECTLY TO MSG 0825 00593000 * MODULE @P2P*/ 00594000 MVC OPCMODID(2,ROPCAVT),@CC03042 0825 00595000 * CALL NONINTEX; /* COMMON NON-INTERNALEXIT @P2P*/ 00596000 BAL @14,NONINTEX 0826 00597000 * END; /* @P2P*/ 00598000 * ELSE 0828 00599000 * CALL INTRINVK; /* ELSE INTERNAL INVOKER @P2P*/ 00600000 B @RC00821 0828 00601000 @RF00821 BAL @14,INTRINVK 0828 00602000 * END; /* @P2A*/ 00603000 @RC00821 DS 0H 0830 00604000 * RRETURN=OPCWRKSP(4); /* RESTORE RETURN ADDR */ 00605000 @RF00819 L RRETURN,OPCWRKSP+12(,ROPCAVT) 0830 00606000 * RETURN; 0831 00607000 @EL00007 DS 0H 0831 00608000 @EF00007 DS 0H 0831 00609000 @ER00007 BR @14 0831 00610000 * END; /* END OF ACT3705 */ 00611000 * 0833 00612000 * /*****************************************************************/ 00613000 * /* */ 00614000 * /* WAITL CHAIN SEARCH ROUTINE THIS ROUTINE IS CALLED BY */ 00615000 * /* STRTRET,PROCRESP,GETFIRST */ 00616000 * /* */ 00617000 * /*****************************************************************/ 00618000 * 0833 00619000 *WAITLSRH: 0833 00620000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0833 00621000 WAITLSRH DS 0H 0834 00622000 * RESPECIFY 0834 00623000 * (RWORK6, 0834 00624000 * RWORK7) RSTD; /* THIS RTN USES RWORK6 TO 0834 00625000 * CONTAIN THE ADDR OF THE PREVI 00626000 * OPCE ON THE CHAIN. RWORK7 HAS 00627000 * THIS ADDRESS OF THE OPCE WE 0834 00628000 * ARE LOOKING AT */ 00629000 * RWORK6=ADDR(OPCWAITV); /* ADDR OF WAITL CHAIN */ 00630000 LA RWORK6,OPCWAITV(,ROPCAVT) 0835 00631000 * RWORK7=OPCWAITV; /* GET 1ST ELEM ON CHAIN */ 00632000 L RWORK7,OPCWAITV(,ROPCAVT) 0836 00633000 * RWORK7=RWORK7&MASKBYTE; /* CLEAR HIGH ORDER BY @YM06021*/ 00634000 N RWORK7,@CF02999 0837 00635000 * SWITCH01=OFF; /* INITALIZE LOOP SWITCH @OZ32505*/ 00636000 NI SWITCH01(ROPCAVT),B'11101111' 0838 00637000 * DO WHILE RWORK7^=0&SWITCH01=OFF;/* SEARCH COMPLETE WAIT CHAIN 0839 00638000 * WHILE OPCE HAS BEEN FOUND 0839 00639000 * @OZ32505*/ 00640000 B @DE00839 0839 00641000 @DL00839 DS 0H 0840 00642000 * DO WHILE(RPARM->GRPNAME=RWORK7->OCBACKUP)&(SWITCH01=OFF)&(RWORK7 00643000 * ^=0); /* DO WHILE GRPNAME ARE EQUAL, 0840 00644000 * OPCE HAS NOT BEEN FOUND, AND 00645000 * END OF CHAIN HAS NOT BEEN HIT 00646000 * @OZ32505*/ 00647000 B @DE00840 0840 00648000 @DL00840 DS 0H 0841 00649000 * IF OCELMPRI=PRIATTNH THEN 0841 00650000 CLI OCELMPRI(ROPCE),X'E6' 0841 00651000 BNE @RF00841 0841 00652000 * DO; /* IF ELEMENT IS FROM IEDNSL GET 00653000 * TTE ADDR USING TTCIN IN 0842 00654000 * ELEMENT ON WAIT CHAIN @P1M*/ 00655000 * OPCWRKSP(7)=RRETURN; /* @P1M*/ 00656000 ST RRETURN,OPCWRKSP+24(,ROPCAVT) 0843 00657000 * RPARM=RWORK7->OCTRMTBL; /* @P1M*/ 00658000 SLR RPARM,RPARM 0844 00659000 ICM RPARM,3,OCTRMTBL(RWORK7) 0844 00660000 * CALL IEDQTNT; /* @P1M*/ 00661000 L @15,AVTRNMPT(,IEDQAPTR) 0845 00662000 BALR @14,@15 0845 00663000 * RRETURN=OPCWRKSP(7); /* @P1M*/ 00664000 L RRETURN,OPCWRKSP+24(,ROPCAVT) 0846 00665000 * IF RPARM=NSLTTEPT THEN 0847 00666000 CL RPARM,NSLTTEPT(,RNSL) 0847 00667000 BNE @RF00847 0847 00668000 * DO; /* IF TTE ADDR EQUAL TO TTE ADDR 00669000 * SAVED IN NSL ELEMENT AND 0848 00670000 * ELEMENT IS A STARTLINE OR VARY 00671000 * ON REQUEST, HAVE FOUND OPCE 0848 00672000 * @P1M*/ 00673000 * IF RWORK7->OCSWITCH=OCX18|RWORK7->OCSWITCH=OCVARON THEN 00674000 CLI OCSWITCH(RWORK7),X'18' 0849 00675000 BE @RT00849 0849 00676000 CLI OCSWITCH(RWORK7),X'D1' 0849 00677000 BNE @RF00849 0849 00678000 @RT00849 DS 0H 0850 00679000 * SWITCH01=ON; /* @P1M*/ 00680000 OI SWITCH01(ROPCAVT),B'00010000' 0850 00681000 * ELSE 0851 00682000 * DO; /* GO TO NEXT ELEMENT @P1M*/ 00683000 B @RC00849 0851 00684000 @RF00849 DS 0H 0852 00685000 * RPARM=ADDR(RWORK7->OCBACKUP);/* @P1M*/ 00686000 LA RPARM,OCBACKUP(,RWORK7) 0852 00687000 * RWORK6=RWORK7; /* @P1M*/ 00688000 LR RWORK6,RWORK7 0853 00689000 * RWORK7=RWORK7->OCLINK;/* @P1M*/ 00690000 L RWORK7,OCLINK(,RWORK7) 0854 00691000 * END; /* @P1M*/ 00692000 * END; /* @P1M*/ 00693000 * ELSE 0857 00694000 * DO; /* GO TO NEXT ELEMENT @P1M*/ 00695000 B @RC00847 0857 00696000 @RF00847 DS 0H 0858 00697000 * RPARM=ADDR(RWORK7->OCBACKUP);/* @P1M*/ 00698000 LA RPARM,OCBACKUP(,RWORK7) 0858 00699000 * RWORK6=RWORK7; /* @P1M*/ 00700000 LR RWORK6,RWORK7 0859 00701000 * RWORK7=RWORK7->OCLINK;/* @P1M*/ 00702000 L RWORK7,OCLINK(,RWORK7) 0860 00703000 * END; /* @P1M*/ 00704000 * END; /* @P1M*/ 00705000 * ELSE 0863 00706000 * DO; /* @P1M*/ 00707000 B @RC00841 0863 00708000 @RF00841 DS 0H 0864 00709000 * IF OCRESP=ON THEN 0864 00710000 TM OCRESP(ROPCE),B'00000001' 0864 00711000 BNO @RF00864 0864 00712000 * DO; /* IF OPCE IS A RESPONSE, TURN 0865 00713000 * RESPONSE BIT OFF AND CHECK IF 00714000 * RESOURCES HAVE SAME TTCIN 0865 00715000 * VALUE @P1M*/ 00716000 * IF RWORK7->OCTRMTBL=OCTRMTBL THEN 0866 00717000 CLC OCTRMTBL(2,RWORK7),OCTRMTBL(ROPCE) 0866 00718000 BNE @RF00866 0866 00719000 * DO; /* IF SAME TTCIN VALUE AND IT IS 00720000 * A START LINE OR VARY ON 0867 00721000 * REQUEST, HAVE FOUND OPCE @P1M*/ 00722000 * IF RWORK7->OCSWITCH=OCX18|RWORK7->OCSWITCH=OCVARON 00723000 * THEN 0868 00724000 CLI OCSWITCH(RWORK7),X'18' 0868 00725000 BE @RT00868 0868 00726000 CLI OCSWITCH(RWORK7),X'D1' 0868 00727000 BNE @RF00868 0868 00728000 @RT00868 DS 0H 0869 00729000 * SWITCH01=ON; /* @P1M*/ 00730000 OI SWITCH01(ROPCAVT),B'00010000' 0869 00731000 * ELSE 0870 00732000 * DO; /* ELSE GO TO NEXT ELEMENT @P1M*/ 00733000 B @RC00868 0870 00734000 @RF00868 DS 0H 0871 00735000 * RPARM=ADDR(RWORK7->OCBACKUP);/* @P1M*/ 00736000 LA RPARM,OCBACKUP(,RWORK7) 0871 00737000 * RWORK6=RWORK7;/* @P1M*/ 00738000 LR RWORK6,RWORK7 0872 00739000 * RWORK7=RWORK7->OCLINK;/* @P1M*/ 00740000 L RWORK7,OCLINK(,RWORK7) 0873 00741000 * END; /* @P1M*/ 00742000 * END; /* @P1M*/ 00743000 * ELSE 0876 00744000 * DO; /* ELSE GO TO NEXT ELEMENT @P1M*/ 00745000 B @RC00866 0876 00746000 @RF00866 DS 0H 0877 00747000 * RPARM=ADDR(RWORK7->OCBACKUP);/* @P1M*/ 00748000 LA RPARM,OCBACKUP(,RWORK7) 0877 00749000 * RWORK6=RWORK7; /* @P1M*/ 00750000 LR RWORK6,RWORK7 0878 00751000 * RWORK7=RWORK7->OCLINK;/* @P1M*/ 00752000 L RWORK7,OCLINK(,RWORK7) 0879 00753000 * END; /* @P1M*/ 00754000 * END; /* @P1M*/ 00755000 * ELSE 0882 00756000 * SWITCH01=ON; /* @P1M*/ 00757000 B @RC00864 0882 00758000 @RF00864 OI SWITCH01(ROPCAVT),B'00010000' 0882 00759000 * END; /* @P1M*/ 00760000 @RC00864 DS 0H 0884 00761000 * END; 0884 00762000 @RC00841 DS 0H 0884 00763000 @DE00840 CLC GRPNAME(8,RPARM),OCBACKUP(RWORK7) 0884 00764000 BNE @DC00840 0884 00765000 TM SWITCH01(ROPCAVT),B'00010000' 0884 00766000 BNZ @DC00840 0884 00767000 LTR RWORK7,RWORK7 0884 00768000 BNZ @DL00840 0884 00769000 @DC00840 DS 0H 0885 00770000 * IF SWITCH01=OFF&RWORK7^=0 THEN 0885 00771000 TM SWITCH01(ROPCAVT),B'00010000' 0885 00772000 BNZ @RF00885 0885 00773000 LTR RWORK7,RWORK7 0885 00774000 BZ @RF00885 0885 00775000 * DO; /* IF HAVE NOT FOUND OPCE ELEMENT 00776000 * AND NOT AT END OF CHAIN, GO TO 00777000 * NEXT ELEMENT IN CHAIN @OZ32505*/ 00778000 * RWORK6=RWORK7; /* @OZ32505*/ 00779000 LR RWORK6,RWORK7 0887 00780000 * RWORK7=RWORK7->OCLINK; /* @OZ32505*/ 00781000 L RWORK7,OCLINK(,RWORK7) 0888 00782000 * END; /* @OZ32505*/ 00783000 * ELSE 0890 00784000 * ; /* @OZ32505*/ 00785000 @RF00885 DS 0H 0891 00786000 * END; /* @OZ32505*/ 00787000 @DE00839 LTR RWORK7,RWORK7 0891 00788000 BZ @DC00839 0891 00789000 TM SWITCH01(ROPCAVT),B'00010000' 0891 00790000 BZ @DL00839 0891 00791000 @DC00839 DS 0H 0892 00792000 * IF RWORK7=0 THEN 0892 00793000 LTR RWORK7,RWORK7 0892 00794000 BNZ @RF00892 0892 00795000 * RPARM=0; /* NO OPCE FOUND */ 00796000 SLR RPARM,RPARM 0893 00797000 * ELSE 0894 00798000 * DO; 0894 00799000 B @RC00892 0894 00800000 @RF00892 DS 0H 0895 00801000 * RPARM=RWORK7; /* R1=OPCE */ 00802000 LR RPARM,RWORK7 0895 00803000 * RZERO=RWORK6; /* R0=PREVIOUS OPCE */ 00804000 LR RZERO,RWORK6 0896 00805000 * END; 0897 00806000 * RESPECIFY 0898 00807000 * (RWORK6, 0898 00808000 * RWORK7) UNRSTD; 0898 00809000 * RETURN; 0899 00810000 @EL00008 DS 0H 0899 00811000 @EF00008 DS 0H 0899 00812000 @ER00008 BR @14 0899 00813000 * END; /* END OF WAITLSRH */ 00814000 B @EL00008 0900 00815000 * 0901 00816000 * /*****************************************************************/ 00817000 * /* */ 00818000 * /* THIS SUBR BUILDS THE ACT LINK REQUEST THIS ROUTINE IS CALLED */ 00819000 * /* BY STRTREQ */ 00820000 * /* */ 00821000 * /*****************************************************************/ 00822000 * 0901 00823000 *ACTLINK: 0901 00824000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0901 00825000 ACTLINK DS 0H 0902 00826000 * OPCWRKSP(4)=RRETURN; /* SAVE RETURN ADDR */ 00827000 ST RRETURN,OPCWRKSP+12(,ROPCAVT) 0902 00828000 * RPARM=1; /* GET ONE BUFFER */ 00829000 LA RPARM,1 0903 00830000 * RESPECIFY 0904 00831000 * RSAVE RSTD; /* R13=SAVE AREA ADDR */ 00832000 * RSAVE=ADDR(OPCSAVE); /* ADDR OF SAVE AREA */ 00833000 LA RSAVE,OPCSAVE(,ROPCAVT) 0905 00834000 * CALL ALLOCBUF; /* GET BUFF SUBR IN QCA */ 00835000 L @15,OPCGETBF(,ROPCAVT) 0906 00836000 BALR @14,@15 0906 00837000 * RESPECIFY 0907 00838000 * RSAVE UNRSTD; 0907 00839000 * RPARM->OPREPRI=PRIHIFLG; /* SET PRIORITY */ 00840000 MVI OPREPRI(RPARM),X'E9' 0908 00841000 * RPARM->OPREFLG1=OPRA0; /* SET FLAG FOR A0 */ 00842000 MVI OPREFLG1(RPARM),X'01' 0909 00843000 * RPARM->OCSWITCH=OCACTLK; /* SET ACTLINK REQ FLAG */ 00844000 MVI OCSWITCH(RPARM),X'50' 0910 00845000 * RPARM->OCWTG=VK; /* INDICATE RETURN HERE @01C*/ 00846000 MVC OCWTG(2,RPARM),@CC03048 0911 00847000 * RPARM->OCACTREQ=ON; /* INDICATE ACTIVATE IN PROG */ 00848000 OI OCACTREQ(RPARM),B'00001000' 0912 00849000 * RPARM->OCTRMTBL=OCTRMTBL; /* GET TTCIN FROM OPCE MOVE TO 0913 00850000 * DUMMY OPCE */ 00851000 MVC OCTRMTBL(2,RPARM),OCTRMTBL(ROPCE) 0913 00852000 * RPARM->OCBACKUP=OCBACKUP; /* MOVE GRPNAME FROM OPCE TO 0914 00853000 * DUMMY OPCE */ 00854000 MVC OCBACKUP(8,RPARM),OCBACKUP(ROPCE) 0914 00855000 * OPCCOPCE=RPARM; /* ATTACH DUMMY OPCE TO OAVT */ 00856000 ST RPARM,OPCCOPCE(,ROPCAVT) 0915 00857000 * CALL WAITLADD; /* PUT ORIGINAL OPCE ON WAITL */ 00858000 BAL @14,WAITLADD 0916 00859000 * RRETURN=OPCWRKSP(4); /* RESTORE RETURN ADDR */ 00860000 L RRETURN,OPCWRKSP+12(,ROPCAVT) 0917 00861000 * RETURN; 0918 00862000 @EL00009 DS 0H 0918 00863000 @EF00009 DS 0H 0918 00864000 @ER00009 BR @14 0918 00865000 * END; /* END OF ACTLINK */ 00866000 * 0920 00867000 * /*****************************************************************/ 00868000 * /* */ 00869000 * /* THIS SUBROUTINE PUTS AN ELEMENT ON THE WAITL CHAIN THIS */ 00870000 * /* ROUTINE IS CALLED BY ACTLINK,STRTLINE */ 00871000 * /* */ 00872000 * /*****************************************************************/ 00873000 * 0920 00874000 *WAITLADD: 0920 00875000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0920 00876000 WAITLADD DS 0H 0921 00877000 * RESPECIFY 0921 00878000 * RWORK7 RSTD; /* RWORK7 IS USED TO CONTAIN ADDR 00879000 * OF AN ELEMENT OF WAITL */ 00880000 * RWORK7=OPCWAITV; /* GET 1ST ELEM ON WAITL */ 00881000 L RWORK7,OPCWAITV(,ROPCAVT) 0922 00882000 * OCLINK=RWORK7; /* SET NEXT ELEM PTR */ 00883000 ST RWORK7,OCLINK(,ROPCE) 0923 00884000 * ROPCE=ROPCE&MASKBYTE; /* CLEAR THE HIGH ORDER BYTE 0924 00885000 * @YM04620*/ 00886000 N ROPCE,@CF02999 0924 00887000 * OPCWAITV=ROPCE; /* CHAIN ELEM IN */ 00888000 ST ROPCE,OPCWAITV(,ROPCAVT) 0925 00889000 * RETURN; 0926 00890000 @EL00010 DS 0H 0926 00891000 @EF00010 DS 0H 0926 00892000 @ER00010 BR @14 0926 00893000 * RESPECIFY 0927 00894000 * RWORK7 UNRSTD; 0927 00895000 * END; /* END OF WAITLADD */ 00896000 * 0929 00897000 * /*****************************************************************/ 00898000 * /* */ 00899000 * /* ERROR PROCESSING THIS ROUTINE IS CALLED BY SNASTRT, */ 00900000 * /* LINESTAT,ACT3705,ERRRESP */ 00901000 * /* */ 00902000 * /*****************************************************************/ 00903000 * 0929 00904000 *ERREXIT: 0929 00905000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0929 00906000 ERREXIT DS 0H 0930 00907000 * OPCWRKSP(5)=RRETURN; /* SAVE RETURN ADDR */ 00908000 ST RRETURN,OPCWRKSP+16(,ROPCAVT) 0930 00909000 * CALL ERRSTAT; /* UPDATE ERROR STATUS */ 00910000 BAL @14,ERRSTAT 0931 00911000 * IF MORELINE=OFF THEN 0932 00912000 TM MORELINE(ROPCAVT),B'01000000' 0932 00913000 BNZ @RF00932 0932 00914000 * DO; /* IF NO MORE LINES TO PROCESS, 00915000 * THEN SETUP EXIT */ 00916000 * IF OCWTG=0 THEN 0934 00917000 ICM @15,3,OCWTG(ROPCE) 0934 00918000 BNZ @RF00934 0934 00919000 * DO; /* NOT INTERNAL CALL */ 00920000 * RZERO=OPCWRKSP(1); /* SET UPMSG NUMB */ 00921000 L RZERO,OPCWRKSP(,ROPCAVT) 0936 00922000 * RPARM=OPCWRKSP(2); /* PARM VALUE */ 00923000 L RPARM,OPCWRKSP+4(,ROPCAVT) 0937 00924000 * IF RZERO=MSG511 /* IF SOME LINES STARTED @ZM48467*/ 00925000 * THEN 0938 00926000 CH RZERO,@CH03017 0938 00927000 BNE @RF00938 0938 00928000 * DO; /* @ZM48467*/ 00929000 * OPCMODID=CHKPT; /* SET TO XCTL TO IGC0610D 0940 00930000 * @ZM48467*/ 00931000 MVC OPCMODID(2,ROPCAVT),@CC03036 0940 00932000 * OCWTG=MOD03; /* SET TO GO TO ERROR MESSAGE 0941 00933000 * MODULE CHAIN FOLLOWING 0941 00934000 * CHECKPOINT @ZM48467*/ 00935000 MVC OCWTG(2,ROPCE),@CC03042 0941 00936000 * OCPARM=RZERO; /* SET MESSAGE NUMBER IN OPCE SO 00937000 * THAT IGC0610D CAN SET RZERO 0942 00938000 * PRIOR TO XCTL TO IGC0310D 0942 00939000 * @ZM48484*/ 00940000 STH RZERO,OCPARM(,ROPCE) 0942 00941000 * END; /* @ZM48467*/ 00942000 * ELSE 0944 00943000 * OPCMODID=MOD03; /* ..ELSE XCTL DIRECTLY TO MSG 0944 00944000 * MODULE @ZM48467*/ 00945000 B @RC00938 0944 00946000 @RF00938 MVC OPCMODID(2,ROPCAVT),@CC03042 0944 00947000 * CALL NONINTEX; /* COMMON NON-INTERNALEXIT */ 00948000 @RC00938 BAL @14,NONINTEX 0945 00949000 * END; 0946 00950000 * ELSE 0947 00951000 * CALL INTRINVK; /* ELSE INTERNAL INVOKER */ 00952000 B @RC00934 0947 00953000 @RF00934 BAL @14,INTRINVK 0947 00954000 * END; 0948 00955000 * ELSE 0949 00956000 * ; 0949 00957000 @RF00932 DS 0H 0950 00958000 * RRETURN=OPCWRKSP(5); /* RESTORE RETURN ADDR */ 00959000 @RC00932 L RRETURN,OPCWRKSP+16(,ROPCAVT) 0950 00960000 * RETURN; 0951 00961000 @EL00011 DS 0H 0951 00962000 @EF00011 DS 0H 0951 00963000 @ER00011 BR @14 0951 00964000 * END; /* END OF ERREXIT */ 00965000 * 0953 00966000 * /*****************************************************************/ 00967000 * /* */ 00968000 * /* NORMAL EXIT PROCESSING THIS ROUTINE IS CALLED BY */ 00969000 * /* STRTRET,SNASTRT */ 00970000 * /* */ 00971000 * /*****************************************************************/ 00972000 * 0953 00973000 *NORMEXIT: 0953 00974000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0953 00975000 NORMEXIT DS 0H 0954 00976000 * OPCWRKSP(4)=RRETURN; /* SAVE RTURN ADDR */ 00977000 ST RRETURN,OPCWRKSP+12(,ROPCAVT) 0954 00978000 * CALL NORMSTAT; /* UPDATE NORMAL STATUS */ 00979000 BAL @14,NORMSTAT 0955 00980000 * IF MORELINE=OFF THEN 0956 00981000 TM MORELINE(ROPCAVT),B'01000000' 0956 00982000 BNZ @RF00956 0956 00983000 * DO; /* IF NO MORE LINES */ 00984000 * IF OCWTG^=0 THEN 0958 00985000 ICM @15,3,OCWTG(ROPCE) 0958 00986000 BZ @RF00958 0958 00987000 * CALL INTRINVK; /* IF INTERNALLY INVOKED, SETUP 00988000 * TO RETURN INTERNALLY */ 00989000 BAL @14,INTRINVK 0959 00990000 * ELSE 0960 00991000 * DO; /* NOT INTERNALLY INVOKED */ 00992000 B @RC00958 0960 00993000 @RF00958 DS 0H 0961 00994000 * RZERO=OPCWRKSP(1); /* PUT MSG NUMBER IN R0 */ 00995000 L RZERO,OPCWRKSP(,ROPCAVT) 0961 00996000 * RPARM=OPCWRKSP(2); /* SET UP PARAMETER */ 00997000 L RPARM,OPCWRKSP+4(,ROPCAVT) 0962 00998000 * OCPARM=RZERO; /* PUT MSG NUMBER IN OCPARM */ 00999000 STH RZERO,OCPARM(,ROPCE) 0963 01000000 * OPCMODID=CHKPT; /* EXIT TO CHECK POINT */ 01001000 MVC OPCMODID(2,ROPCAVT),@CC03036 0964 01002000 * OCWTG=MOD09; /* THEN TO MSG MOD 09 */ 01003000 MVC OCWTG(2,ROPCE),@CC03038 0965 01004000 * CALL NONINTEX; /* EXIT SET UP */ 01005000 BAL @14,NONINTEX 0966 01006000 * END; 0967 01007000 * END; 0968 01008000 * ELSE 0969 01009000 * ; 0969 01010000 @RF00956 DS 0H 0970 01011000 * RRETURN=OPCWRKSP(4); /* RESTORE RETURN ADDR */ 01012000 @RC00956 L RRETURN,OPCWRKSP+12(,ROPCAVT) 0970 01013000 * RETURN; 0971 01014000 @EL00012 DS 0H 0971 01015000 @EF00012 DS 0H 0971 01016000 @ER00012 BR @14 0971 01017000 * END; /* END OF NORMEXIT */ 01018000 * 0973 01019000 * /*****************************************************************/ 01020000 * /* */ 01021000 * /* UPDATE STATUS IN AN ERROR SITUATION THIS ROUTINE IS CALLED BY */ 01022000 * /* ERREXIT */ 01023000 * /* */ 01024000 * /*****************************************************************/ 01025000 * 0973 01026000 *ERRSTAT: 0973 01027000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0973 01028000 ERRSTAT DS 0H 0974 01029000 * OPCWRKSP(7)=RRETURN; /* SAVE RETURN ADDR */ 01030000 ST RRETURN,OPCWRKSP+24(,ROPCAVT) 0974 01031000 * IF OCALLFLG=ON THEN 0975 01032000 TM OCALLFLG(ROPCE),B'00000100' 0975 01033000 BNO @RF00975 0975 01034000 * DO; /* IF GRP,ALL PROCESSING */ 01035000 * IF OCSOME=OFF THEN 0977 01036000 TM OCSOME(ROPCE),B'00000010' 0977 01037000 BNZ @RF00977 0977 01038000 * DO; /* IF NO LINES STARTED OR STATE 01039000 * INDICATOR IS UNSET, CHANGE 0978 01040000 * STATE TO NO LINES STARTED */ 01041000 * OCNONE=ON; /* NO LINES STARTED */ 01042000 OI OCNONE(ROPCE),B'00000001' 0979 01043000 * OPCWRKSP(1)=MSG512; /* SET UP MSG NUMBER */ 01044000 MVC OPCWRKSP(4,ROPCAVT),@CF00972 0980 01045000 * END; 0981 01046000 * ELSE 0982 01047000 * DO; 0982 01048000 B @RC00977 0982 01049000 @RF00977 DS 0H 0983 01050000 * OCNONE=OFF; /* IF SOME OR ALL LINES STARTED 01051000 * INDICATOR ON,CHANGE STATE TO 01052000 * SOME STARTED */ 01053000 NI OCNONE(ROPCE),B'11111110' 0983 01054000 * OPCWRKSP(1)=MSG511; /* SET UP MSG NUMBER */ 01055000 MVC OPCWRKSP(4,ROPCAVT),@CF03017 0984 01056000 * END; 0985 01057000 * CALL CHKMORE; /* CHECK FOR MORE LINES */ 01058000 @RC00977 BAL @14,CHKMORE 0986 01059000 * END; 0987 01060000 * ELSE 0988 01061000 * ; 0988 01062000 @RF00975 DS 0H 0989 01063000 * RRETURN=OPCWRKSP(7); /* RESTORE RETURN ADDR */ 01064000 L RRETURN,OPCWRKSP+24(,ROPCAVT) 0989 01065000 * RETURN; 0990 01066000 @EL00013 DS 0H 0990 01067000 @EF00013 DS 0H 0990 01068000 @ER00013 BR @14 0990 01069000 * END; /* END OF ERRSTAT */ 01070000 * 0992 01071000 * /*****************************************************************/ 01072000 * /* */ 01073000 * /* UPDATE ALL STATUS IN NORMAL PROCESSING THIS ROUTINE IS CALLED */ 01074000 * /* BY NORMEXIT */ 01075000 * /* */ 01076000 * /*****************************************************************/ 01077000 * 0992 01078000 *NORMSTAT: 0992 01079000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0992 01080000 NORMSTAT DS 0H 0993 01081000 * OPCWRKSP(5)=RRETURN; /* SAVE RETURN ADDR */ 01082000 ST RRETURN,OPCWRKSP+16(,ROPCAVT) 0993 01083000 * IF OCALLFLG=ON THEN 0994 01084000 TM OCALLFLG(ROPCE),B'00000100' 0994 01085000 BNO @RF00994 0994 01086000 * DO; /* IF GRP,ALL PROCESSING */ 01087000 * IF(OCSOME=OFF&OCNONE=OFF)|(OCSOME=ON&OCNONE=ON) THEN 0996 01088000 TM OCSOME(ROPCE),B'00000011' 0996 01089000 BZ @RT00996 0996 01090000 TM OCSOME(ROPCE),B'00000011' 0996 01091000 BNO @RF00996 0996 01092000 @RT00996 DS 0H 0997 01093000 * DO; /* IF THIS IS 1ST SUCCESSFUL LINE 01094000 * START OR ALL HAVE BEEN 0997 01095000 * SUCESSFUL,THEN DO */ 01096000 * OCSOME=ON; /* INDICATE ALL SUCCESSFUL */ 01097000 * OCNONE=ON; 0999 01098000 OI OCSOME(ROPCE),B'00000011' 0999 01099000 * OPCWRKSP(1)=MSG510; /* MSG NUMBER 510 */ 01100000 MVC OPCWRKSP(4,ROPCAVT),@CF03015 1000 01101000 * END; 1001 01102000 * ELSE 1002 01103000 * DO; /* IF NOT ALL HAVE BEEN SUCC */ 01104000 B @RC00996 1002 01105000 @RF00996 DS 0H 1003 01106000 * OCSOME=ON; /* INDICATE SOME STARTED */ 01107000 * OCNONE=OFF; 1004 01108000 OI OCSOME(ROPCE),B'00000010' 1004 01109000 NI OCNONE(ROPCE),B'11111110' 1004 01110000 * OPCWRKSP(1)=MSG511; /* SET UP MSG NUMBER */ 01111000 MVC OPCWRKSP(4,ROPCAVT),@CF03017 1005 01112000 * END; 1006 01113000 * CALL CHKMORE; /* MORE LINES TO PROCESS? */ 01114000 @RC00996 BAL @14,CHKMORE 1007 01115000 * END; 1008 01116000 * ELSE 1009 01117000 * ; 1009 01118000 @RF00994 DS 0H 1010 01119000 * RRETURN=OPCWRKSP(5); /* RESTORE RETURN ADDR */ 01120000 L RRETURN,OPCWRKSP+16(,ROPCAVT) 1010 01121000 * RETURN; 1011 01122000 @EL00014 DS 0H 1011 01123000 @EF00014 DS 0H 1011 01124000 @ER00014 BR @14 1011 01125000 * END; /* END OF NORMSTAT */ 01126000 * 1013 01127000 * /*****************************************************************/ 01128000 * /* */ 01129000 * /* INTERNAL INVOCATION PROCESSING THIS ROUTINE IS CALLED BY */ 01130000 * /* ERREXIT,NORMEXIT */ 01131000 * /* */ 01132000 * /*****************************************************************/ 01133000 * 1013 01134000 *INTRINVK: 1013 01135000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 1013 01136000 INTRINVK DS 0H 1014 01137000 * RZERO=OPCWRKSP(1); /* SET UP MSG NUMBER */ 01138000 L RZERO,OPCWRKSP(,ROPCAVT) 1014 01139000 * OCPARM=RZERO; /* SAVE INOPCE */ 01140000 STH RZERO,OCPARM(,ROPCE) 1015 01141000 * OPCMODID=OCWTG; /* RETURN TO CALLER */ 01142000 MVC OPCMODID(2,ROPCAVT),OCWTG(ROPCE) 1016 01143000 * OCWTG=0; /* NO RETURN */ 01144000 SLR @15,@15 1017 01145000 STH @15,OCWTG(,ROPCE) 1017 01146000 * IF OPCMODID=MOD07 THEN 1018 01147000 CLC OPCMODID(2,ROPCAVT),@CC03040 1018 01148000 BNE @RF01018 1018 01149000 * DO; /* IF EXIT IS TO IGC0710D */ 01150000 * RZERO=0; /* CLEAR RZERO */ 01151000 SLR RZERO,RZERO 1020 01152000 * OCPARM=RZERO; /* CLEAR OCPARM */ 01153000 STH RZERO,OCPARM(,ROPCE) 1021 01154000 * END; 1022 01155000 * ELSE 1023 01156000 * ; 1023 01157000 @RF01018 DS 0H 1024 01158000 * RETURN; 1024 01159000 @EL00015 DS 0H 1024 01160000 @EF00015 DS 0H 1024 01161000 @ER00015 BR @14 1024 01162000 * END; /* END OF INTRINVK */ 01163000 * 1026 01164000 * /*****************************************************************/ 01165000 * /* */ 01166000 * /* COMMON NON-INTERNAL EXIT PROCESSING THIS ROUTINE IS CALLED BY */ 01167000 * /* ERREXIT,NORMEXIT */ 01168000 * /* */ 01169000 * /*****************************************************************/ 01170000 * 1026 01171000 *NONINTEX: 1026 01172000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 1026 01173000 NONINTEX DS 0H 1027 01174000 * IF OCTOTE=ON THEN 1027 01175000 TM OCTOTE(ROPCE),B'01000000' 1027 01176000 BNO @RF01027 1027 01177000 * DO; /* IF TOTE INPUT */ 01178000 * OCWTG=MOD07; /* SET EXIT TO IGC0710D */ 01179000 MVC OCWTG(2,ROPCE),@CC03040 1029 01180000 * OCPARM=RPARM; /* SAVE RETURN CODE */ 01181000 STH RPARM,OCPARM(,ROPCE) 1030 01182000 * RZERO=RPARM; /* RETURN CODE */ 01183000 LR RZERO,RPARM 1031 01184000 * IF OPCMODID=MOD03 THEN 1032 01185000 CLC OPCMODID(2,ROPCAVT),@CC03042 1032 01186000 BNE @RF01032 1032 01187000 * DO; /* IF EXIT IS TO ERROR MOD */ 01188000 * OPCMODID=MOD07; /* GO TO MSG MODULE */ 01189000 MVC OPCMODID(2,ROPCAVT),@CC03040 1034 01190000 * OCWTG=0; /* NO RETURN */ 01191000 SLR @15,@15 1035 01192000 STH @15,OCWTG(,ROPCE) 1035 01193000 * END; 1036 01194000 * ELSE 1037 01195000 * ; 1037 01196000 @RF01032 DS 0H 1038 01197000 * END; 1038 01198000 * ELSE 1039 01199000 * ; 1039 01200000 @RF01027 DS 0H 1040 01201000 * IF OPCWRKSP(1)^=MSG199 THEN /* IS THIS MSG IED199I? @YM09054*/ 01202000 CLC OPCWRKSP(4,ROPCAVT),@CF03013 1040 01203000 BE @RF01040 1040 01204000 * OCUNIT=BADTIC; /* INDICATE INVALID TIC ADDR */ 01205000 MVC OCUNIT(4,ROPCE),@CF02988 1041 01206000 * ELSE 1042 01207000 * ; /* IF IED199I, DO NOT RESET 1042 01208000 * OCUNIT @YM09054*/ 01209000 @RF01040 DS 0H 1043 01210000 * RETURN; 1043 01211000 @EL00016 DS 0H 1043 01212000 @EF00016 DS 0H 1043 01213000 @ER00016 BR @14 1043 01214000 * END; /* END OF NONINTEX */ 01215000 * 1045 01216000 * /*****************************************************************/ 01217000 * /* */ 01218000 * /* CHECK FOR MORE LINES THIS ROUTINE IS CALLED BY */ 01219000 * /* NORMSTAT,ERRSTAT */ 01220000 * /* */ 01221000 * /*****************************************************************/ 01222000 * 1045 01223000 *CHKMORE: 1045 01224000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 1045 01225000 CHKMORE DS 0H 1046 01226000 * RESPECIFY 1046 01227000 * (RWORK6) RSTD; /* @ZM46522*/ 01228000 * OPCWRKSP(6)=RRETURN; /* SAVE RETURN ADDR */ 01229000 ST RRETURN,OPCWRKSP+20(,ROPCAVT) 1047 01230000 * RPARM=RTERM; /* @ZM46522*/ 01231000 LR RPARM,RTERM 1048 01232000 * RPARM=RPARM-LENGTH(IEDNTRM); /* BACK UP FOR NEG PREFIX 1049 01233000 * @ZM46522*/ 01234000 SH RPARM,@CH00954 1049 01235000 * DO UNTIL((RPARM->TRMTYPE=TRMGRP)|(RPARM->TRMRSACT=OFF));/* INSURE 01236000 * THAT A VALID ENTRY IS FOUND 1050 01237000 * @ZM46522*/ 01238000 @DL01050 DS 0H 1051 01239000 * RWORK6=RPARM->TRMCOHTG; /* SAVE TTCIN FOR OPC UPDATE 1051 01240000 * @ZM46522*/ 01241000 SLR @15,@15 1051 01242000 ICM @15,3,TRMCOHTG(RPARM) 1051 01243000 LR RWORK6,@15 1051 01244000 * RPARM=RPARM->TRMCOHTG; /* GET COHORT G PTR */ 01245000 LR RPARM,@15 1052 01246000 * CALL IEDQTNT; /* CONVERT TO TTE */ 01247000 L @15,AVTRNMPT(,IEDQAPTR) 1053 01248000 BALR @14,@15 1053 01249000 * RPARM=RPARM-LENGTH(IEDNTRM); /* BACK UP TO NEG PREFIX ADDR */ 01250000 SH RPARM,@CH00954 1054 01251000 * OCRLN=OCRLN+1; /* INCREMENT RLN FOR MSG @Q1A*/ 01252000 LA @15,1 1055 01253000 SLR @07,@07 1055 01254000 IC @07,OCRLN(,ROPCE) 1055 01255000 ALR @15,@07 1055 01256000 STC @15,OCRLN(,ROPCE) 1055 01257000 * END; /* @ZM46522*/ 01258000 @DE01050 CLI TRMTYPE(RPARM),X'00' 1056 01259000 BE @DC01050 1056 01260000 TM TRMRSACT(RPARM),B'10000000' 1056 01261000 BNZ @DL01050 1056 01262000 @DC01050 DS 0H 1057 01263000 * IF RPARM->TRMTYPE=TRMGRP THEN 1057 01264000 CLI TRMTYPE(RPARM),X'00' 1057 01265000 BNE @RF01057 1057 01266000 * MORELINE=OFF; /* IF TTE IS FOR GROUP THEN NO 1058 01267000 * MORE LINES TOPROC */ 01268000 NI MORELINE(ROPCAVT),B'10111111' 1058 01269000 * ELSE 1059 01270000 * DO; /* MORE LINES TO PROCESS */ 01271000 B @RC01057 1059 01272000 @RF01057 DS 0H 1060 01273000 * MORELINE=ON; /* SET INDICATOR */ 01274000 OI MORELINE(ROPCAVT),B'01000000' 1060 01275000 * OCTRMTBL=RWORK6; /* SET NEXT LINE TO PROC @ZM46522*/ 01276000 STH RWORK6,OCTRMTBL(,ROPCE) 1061 01277000 * END; 1062 01278000 * RRETURN=OPCWRKSP(6); /* RELOAD RETURN ADDR */ 01279000 @RC01057 L RRETURN,OPCWRKSP+20(,ROPCAVT) 1063 01280000 * RESPECIFY 1064 01281000 * (RWORK6) UNRSTD; /* @ZM46522*/ 01282000 * RETURN; 1065 01283000 @EL00017 DS 0H 1065 01284000 @EF00017 DS 0H 1065 01285000 @ER00017 BR @14 1065 01286000 * END; /* END OF CHKMORE */ 01287000 * END /* IGCVI10D END */ 01288000 * 1067 01289000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01290000 */*%INCLUDE SYSLIB (TAVTD ) */ 01291000 */*%INCLUDE SYSLIB (IHADCBDF) */ 01292000 */*%INCLUDE SYSLIB (IHADCB ) */ 01293000 */*%INCLUDE SYSLIB (TDEBD ) */ 01294000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 01295000 */*%INCLUDE SYSLIB (TNSLD ) */ 01296000 */*%INCLUDE SYSLIB (TOPCED ) */ 01297000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01298000 */*%INCLUDE SYSLIB (TOPRED ) */ 01299000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01300000 */*%INCLUDE SYSLIB (TQCBD ) */ 01301000 */*%INCLUDE SYSLIB (TTNTD ) */ 01302000 */*%INCLUDE SYSLIB (TTRMD ) */ 01303000 * 1067 01304000 * ; 1067 01305000 @DATA DS 0H 01306000 @CH00954 DC H'28' 01307000 @CH00924 DC H'36' 01308000 DS 0F 01309000 DS 0F 01310000 @CF00256 DC F'4' 01311000 @CF00046 DC F'8' 01312000 @CF03007 DC F'19' 01313000 @CF03005 DC F'49' 01314000 @CF03026 DC F'102' 01315000 @CF03013 DC F'199' 01316000 @CF03011 DC F'210' 01317000 @CF03009 DC F'400' 01318000 @CF03003 DC F'443' 01319000 @CF03015 DC F'510' 01320000 @CF03017 DC F'511' 01321000 @CH03017 EQU @CF03017+2 01322000 @CF00972 DC F'512' 01323000 @CF03137 DC F'-13' 01324000 @CF03140 DC F'-12' 01325000 @CF03138 DC F'-11' 01326000 @CF03141 DC F'-10' 01327000 @CF01974 DC F'-3' 01328000 @CF02988 DC XL4'08000002' 01329000 @CF02999 DC XL4'00FFFFFF' 01330000 DS 0D 01331000 @CC03056 DC C' RNCP' 01332000 @CC03036 DC C'06' 01333000 @CC03038 DC C'09' 01334000 @CC03040 DC C'07' 01335000 @CC03042 DC C'03' 01336000 @CC03044 DC C'A0' 01337000 @CC03046 DC C'VI' 01338000 @CC03048 DC C'VK' 01339000 @CC03050 DC C'00' 01340000 @CC03052 DC C'FA' 01341000 VIFLG DC X'FF' 01342000 ZAPAREA DC 60X'00' 01343000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01344000 @01 EQU 01 01345000 @02 EQU 02 01346000 @03 EQU 03 01347000 @04 EQU 04 01348000 @05 EQU 05 01349000 @06 EQU 06 01350000 @07 EQU 07 01351000 @08 EQU 08 01352000 @09 EQU 09 01353000 @10 EQU 10 01354000 @11 EQU 11 01355000 @12 EQU 12 01356000 @13 EQU 13 01357000 @14 EQU 14 01358000 @15 EQU 15 01359000 IEDQAPTR EQU @04 01360000 IEDNSLP EQU @03 01361000 ROPCE EQU @03 01362000 ROPCAVT EQU @02 01363000 IEDQTPTR EQU @05 01364000 RTERM EQU @05 01365000 RNSL EQU @03 01366000 RZERO EQU @00 01367000 RPARM EQU @01 01368000 ROPRE EQU @03 01369000 RAVT EQU @04 01370000 RWORK6 EQU @06 01371000 RWORK7 EQU @07 01372000 RSAVE EQU @13 01373000 RRETURN EQU @14 01374000 RLINK EQU @15 01375000 RWORK10 EQU @10 01376000 RWORK11 EQU @11 01377000 RWORK8 EQU @08 01378000 RWORK9 EQU @09 01379000 IEDQAVTD EQU 0 01380000 AVTSAVEX EQU IEDQAVTD+288 01381000 AVTREADD EQU IEDQAVTD+380 01382000 AVTBUFSW EQU IEDQAVTD+384 01383000 @NM00004 EQU IEDQAVTD+388 01384000 AVTCKFLG EQU @NM00004 01385000 AVTBASE EQU IEDQAVTD+412 01386000 AVTPKF EQU AVTBASE 01387000 AVTRNMPT EQU IEDQAVTD+424 01388000 AVTHG02 EQU IEDQAVTD+528 01389000 AVTDISP EQU IEDQAVTD+552 01390000 AVTHD EQU IEDQAVTD+556 01391000 AVTSCOPT EQU AVTHD 01392000 AVTSAVTP EQU IEDQAVTD+612 01393000 AVTSAVTF EQU AVTSAVTP 01394000 AVTCKPEL EQU IEDQAVTD+652 01395000 AVTCKRMV EQU AVTCKPEL 01396000 AVTCKELF EQU IEDQAVTD+680 01397000 AVTCKBYT EQU IEDQAVTD+691 01398000 AVTHG01 EQU IEDQAVTD+692 01399000 AVTCKLNK EQU IEDQAVTD+696 01400000 AVTCRELE EQU IEDQAVTD+708 01401000 AVTCCELE EQU AVTCRELE 01402000 AVTCLRHI EQU IEDQAVTD+716 01403000 AVTADBUF EQU IEDQAVTD+720 01404000 AVTSYSER EQU IEDQAVTD+728 01405000 AVTBFRFG EQU IEDQAVTD+784 01406000 AVTCKPQB EQU IEDQAVTD+804 01407000 AVTCKPTB EQU AVTCKPQB 01408000 AVTCKPEC EQU AVTCKPQB+4 01409000 AVTCKPCC EQU AVTCKPEC 01410000 AVTOPCQB EQU IEDQAVTD+816 01411000 AVTOPCOB EQU AVTOPCQB 01412000 AVTOPCEC EQU AVTOPCQB+4 01413000 AVTOPCCC EQU AVTOPCEC 01414000 AVTOLTQB EQU IEDQAVTD+828 01415000 AVTCWFL1 EQU IEDQAVTD+924 01416000 AVTCWFL2 EQU IEDQAVTD+925 01417000 AVTSUBT EQU IEDQAVTD+948 01418000 AVTIOTR EQU IEDQAVTD+949 01419000 AVTBIT1 EQU IEDQAVTD+1050 01420000 AVTBIT2 EQU IEDQAVTD+1051 01421000 AVTBIT3 EQU IEDQAVTD+1052 01422000 AVTBIT4 EQU IEDQAVTD+1136 01423000 @NM00078 EQU IEDQAVTD+1232 01424000 IEDNSVTD EQU 0 01425000 SAVTDIAG EQU IEDNSVTD 01426000 SAVTDIAF EQU SAVTDIAG 01427000 SAVTLUSQ EQU IEDNSVTD+88 01428000 SAVTSCLU EQU IEDNSVTD+168 01429000 SAVTTCPU EQU IEDNSVTD+238 01430000 SAVTZELM EQU IEDNSVTD+270 01431000 SAVTRDRV EQU IEDNSVTD+284 01432000 SAVTCKQB EQU IEDNSVTD+300 01433000 SAVTCKTB EQU SAVTCKQB 01434000 SAVTCKEC EQU SAVTCKQB+4 01435000 SAVTCKCC EQU SAVTCKEC 01436000 SAVTNETF EQU IEDNSVTD+324 01437000 SAVTCDRV EQU IEDNSVTD+332 01438000 IHADCB EQU 0 01439000 IHADCS1A EQU 0 01440000 DCBBCKUP EQU IHADCS1A+8 01441000 IHADCS2K EQU 0 01442000 DCBDUMPD EQU IHADCS2K 01443000 DCBTRSTA EQU IHADCS2K+5 01444000 DCBDSORG EQU IHADCS2K+6 01445000 DCBDSRG2 EQU DCBDSORG+1 01446000 DCBRNCKD EQU IHADCS2K+12 01447000 DCBEXLST EQU IHADCS2K+16 01448000 IHADCS24 EQU 0 01449000 DCBOFLGS EQU IHADCS24+8 01450000 DCBOFLWR EQU DCBOFLGS 01451000 DCBIFLG EQU IHADCS24+9 01452000 DCBIBPCT EQU DCBIFLG 01453000 DCBMACR EQU IHADCS24+10 01454000 DCBMACR1 EQU DCBMACR 01455000 DCBMRFE EQU DCBMACR1 01456000 DCBMRGET EQU DCBMRFE 01457000 DCBMRAPG EQU DCBMACR1 01458000 DCBMRRD EQU DCBMRAPG 01459000 DCBMRCI EQU DCBMACR1 01460000 DCBMRMVG EQU DCBMRCI 01461000 DCBMRLCG EQU DCBMACR1 01462000 DCBMRABC EQU DCBMACR1 01463000 DCBMRPT1 EQU DCBMRABC 01464000 DCBMRSBG EQU DCBMRPT1 01465000 DCBMRCRL EQU DCBMACR1 01466000 DCBMRCHK EQU DCBMRCRL 01467000 DCBMRRDX EQU DCBMRCHK 01468000 DCBMRDMG EQU DCBMACR1 01469000 DCBMACR2 EQU DCBMACR+1 01470000 DCBMRPUT EQU DCBMACR2 01471000 DCBMRWRT EQU DCBMACR2 01472000 DCBMRMVP EQU DCBMACR2 01473000 DCBMR5WD EQU DCBMACR2 01474000 DCBMRLDM EQU DCBMR5WD 01475000 DCBMRLCP EQU DCBMRLDM 01476000 DCBMR4WD EQU DCBMACR2 01477000 DCBMRPT2 EQU DCBMR4WD 01478000 DCBMRTMD EQU DCBMRPT2 01479000 DCBMR3WD EQU DCBMACR2 01480000 DCBMRCTL EQU DCBMR3WD 01481000 DCBMRSTK EQU DCBMRCTL 01482000 DCBMR1WD EQU DCBMACR2 01483000 DCBMRSWA EQU DCBMR1WD 01484000 DCBMRDMD EQU DCBMRSWA 01485000 IHADCS25 EQU 0 01486000 DCBMACRF EQU IHADCS25+2 01487000 DCBMACF1 EQU DCBMACRF 01488000 DCBMFFE EQU DCBMACF1 01489000 DCBMFGET EQU DCBMFFE 01490000 DCBMFAPG EQU DCBMACF1 01491000 DCBMFRD EQU DCBMFAPG 01492000 DCBMFCI EQU DCBMACF1 01493000 DCBMFMVG EQU DCBMFCI 01494000 DCBMFLCG EQU DCBMACF1 01495000 DCBMFABC EQU DCBMACF1 01496000 DCBMFPT1 EQU DCBMFABC 01497000 DCBMFSBG EQU DCBMFPT1 01498000 DCBMFCRL EQU DCBMACF1 01499000 DCBMFCHK EQU DCBMFCRL 01500000 DCBMFDMG EQU DCBMACF1 01501000 DCBMACF2 EQU DCBMACRF+1 01502000 DCBMFPUT EQU DCBMACF2 01503000 DCBMFWRT EQU DCBMACF2 01504000 DCBMFMVP EQU DCBMACF2 01505000 DCBMF5WD EQU DCBMACF2 01506000 DCBMFLDM EQU DCBMF5WD 01507000 DCBMFLCP EQU DCBMFLDM 01508000 DCBMF4WD EQU DCBMACF2 01509000 DCBMFPT2 EQU DCBMF4WD 01510000 DCBMFTMD EQU DCBMFPT2 01511000 DCBMF3WD EQU DCBMACF2 01512000 DCBMFCTL EQU DCBMF3WD 01513000 DCBMFSTK EQU DCBMFCTL 01514000 DCBMF1WD EQU DCBMACF2 01515000 DCBMFSWA EQU DCBMF1WD 01516000 DCBMFDMD EQU DCBMFSWA 01517000 DCBDEBAD EQU IHADCS25+4 01518000 DCBIFLGS EQU DCBDEBAD 01519000 DCBIFPCT EQU DCBIFLGS 01520000 IHADCS27 EQU 0 01521000 DCBGET EQU IHADCS27 01522000 DCBPUT EQU DCBGET 01523000 DCBGETA EQU DCBPUT+1 01524000 IHADCS43 EQU 0 01525000 DCBSCTAB EQU IHADCS43 01526000 IEDQDEB EQU 0 01527000 DEBPRF EQU IEDQDEB 01528000 DEBAPVT EQU DEBPRF 01529000 DEBNMSUB EQU IEDQDEB+36 01530000 DEBNMEXT EQU IEDQDEB+52 01531000 DEBDEVDP EQU IEDQDEB+68 01532000 DEBUCBS EQU DEBDEVDP 01533000 IEDQDPTR EQU 0 01534000 DEBDASD EQU 0 01535000 DEBUCBPT EQU DEBDASD 01536000 UCB EQU 0 01537000 UCBOB EQU 0 01538000 UCBJBNR EQU UCBOB 01539000 UCBFL5 EQU UCBOB+1 01540000 UCBAF EQU UCBFL5 01541000 UCBSTAT EQU UCBOB+3 01542000 UCBCHAN EQU UCBOB+4 01543000 UCBSFLS EQU UCBOB+6 01544000 UCBFLA EQU UCBSFLS 01545000 UCBFL1 EQU UCBFLA 01546000 UCBBSY EQU UCBFL1 01547000 UCBNRY EQU UCBFL1 01548000 UCBPST EQU UCBFL1 01549000 UCBCUB EQU UCBFL1 01550000 UCBFLB EQU UCBSFLS+1 01551000 UCBCHM EQU UCBOB+8 01552000 UCBCHM1 EQU UCBCHM 01553000 UCBPTH0 EQU UCBCHM1 01554000 UCBPTH1 EQU UCBCHM1 01555000 UCBWGT EQU UCBOB+12 01556000 UCBNAME EQU UCBOB+13 01557000 UCBTYP EQU UCBOB+16 01558000 UCBTBYT1 EQU UCBTYP 01559000 UCB1FEA5 EQU UCBTBYT1 01560000 UCB1FEA6 EQU UCBTBYT1 01561000 UCBTBYT2 EQU UCBTYP+1 01562000 UCB2OPT2 EQU UCBTBYT2 01563000 UCBDUDN1 EQU UCB2OPT2 01564000 UCB2OPT3 EQU UCBTBYT2 01565000 UCBDUDN2 EQU UCB2OPT3 01566000 UCB2OPT4 EQU UCBTBYT2 01567000 UCBRWTAU EQU UCB2OPT4 01568000 UCB2OPT6 EQU UCBTBYT2 01569000 UCB2OPT7 EQU UCBTBYT2 01570000 UCBTBYT3 EQU UCBTYP+2 01571000 UCBDVCLS EQU UCBTBYT3 01572000 UCBTBYT4 EQU UCBTYP+3 01573000 UCBEXTPT EQU UCBOB+20 01574000 UCBFLC EQU UCBEXTPT 01575000 UCBDEV EQU UCBOB+24 01576000 UCBCMEXT EQU 0 01577000 UCBATI EQU UCBCMEXT+3 01578000 @NM00117 EQU UCBATI 01579000 UCBFLP1 EQU UCBCMEXT+5 01580000 UCBMIHTI EQU UCBCMEXT+16 01581000 UCBMT EQU 0 01582000 UCBOCR EQU 0 01583000 UCB3540X EQU 0 01584000 UCBDKBYT EQU UCB3540X+6 01585000 UCB3800X EQU 0 01586000 UCBOPTNS EQU UCB3800X 01587000 UCBACTIV EQU UCB3800X+3 01588000 UCBMDRBF EQU UCB3800X+36 01589000 UCBUCS EQU 0 01590000 UCBUCSOP EQU UCBUCS+4 01591000 UCBFCBOP EQU UCBUCS+5 01592000 IEDNNSLD EQU 0 01593000 IEDNSLD EQU 0 01594000 NSLPLCB EQU IEDNSLD+8 01595000 NSLGPCUS EQU IEDNSLD+12 01596000 NSLERB EQU IEDNSLD+20 01597000 NSLESTAT EQU NSLERB+8 01598000 NSLUNCNT EQU NSLERB+12 01599000 NSLGRPNM EQU IEDNSLD+36 01600000 NSLTTEBG EQU NSLGRPNM 01601000 NSLTTEPT EQU IEDNSLD+44 01602000 IEDQOPCE EQU 0 01603000 OCLINK EQU IEDQOPCE 01604000 OCELEM EQU IEDQOPCE+4 01605000 OCELMPRI EQU OCELEM 01606000 OCELMPTR EQU OCELEM+1 01607000 OCUNIT EQU IEDQOPCE+8 01608000 OCRUDEST EQU OCUNIT 01609000 OCCKPKEY EQU OCRUDEST 01610000 OCSCAN EQU OCCKPKEY 01611000 @NM00124 EQU OCRUDEST+1 01612000 OCUNITBF EQU @NM00124+2 01613000 OCOPTCDE EQU IEDQOPCE+12 01614000 OCSWITCH EQU IEDQOPCE+13 01615000 OCFLAG EQU IEDQOPCE+14 01616000 OCTOTE EQU OCFLAG 01617000 OCATTACH EQU OCFLAG 01618000 OCRESP EQU OCFLAG 01619000 OCRLN EQU IEDQOPCE+15 01620000 OCLOCAD EQU OCRLN 01621000 OCCIB EQU IEDQOPCE+16 01622000 OCMSTSAV EQU OCCIB 01623000 OCDEST EQU OCMSTSAV 01624000 OCTRMTBL EQU IEDQOPCE+20 01625000 OCLINENO EQU IEDQOPCE+22 01626000 OCTIOT EQU OCLINENO 01627000 OCWTGB EQU OCTIOT 01628000 OCTRUNIT EQU IEDQOPCE+24 01629000 OCRSID EQU OCTRUNIT 01630000 OCALSTAT EQU OCRSID 01631000 OCRENTRD EQU OCALSTAT 01632000 OCFNAALL EQU OCALSTAT 01633000 OCACTREQ EQU OCALSTAT 01634000 OCALLFLG EQU OCALSTAT 01635000 OCSOME EQU OCALSTAT 01636000 OCNONE EQU OCALSTAT 01637000 OCFLAG1 EQU OCRSID+1 01638000 OCLNTYP EQU OCFLAG1 01639000 OCPARM EQU IEDQOPCE+28 01640000 OCWTG EQU IEDQOPCE+30 01641000 OCBACKUP EQU IEDQOPCE+32 01642000 OCBUFNED EQU OCBACKUP 01643000 OCCOUNT1 EQU OCBUFNED 01644000 OCBUFGOT EQU OCBACKUP+2 01645000 OCCOUNT2 EQU OCBUFGOT 01646000 OCMODNME EQU IEDQOPCE+40 01647000 OCIPLWA EQU OCMODNME 01648000 OCPTRSAV EQU OCMODNME+4 01649000 OCECHOPT EQU OCPTRSAV 01650000 OCCKDATA EQU IEDQOPCE+48 01651000 OCRSTGTM EQU OCCKDATA 01652000 OC379RRT EQU OCRSTGTM 01653000 OCNCP EQU OCRSTGTM+2 01654000 OCOID EQU IEDQOPCE+56 01655000 OCFLOADP EQU IEDQOPCE+60 01656000 OCLSTTC EQU OCFLOADP 01657000 IEDQOPCN EQU 0 01658000 OCLDNME EQU IEDQOPCN 01659000 OCLINTTE EQU OCLDNME 01660000 OCREQFLG EQU OCLINTTE+2 01661000 OCPREFLG EQU OCLINTTE+3 01662000 IEDQOPCD EQU 0 01663000 OPCAVTPT EQU IEDQOPCD+8 01664000 OPCCOPCE EQU IEDQOPCD+12 01665000 OPCTRACE EQU IEDQOPCD+32 01666000 OPCSAVE EQU IEDQOPCD+56 01667000 OPCFLAG1 EQU IEDQOPCD+146 01668000 OPCAQCTL EQU IEDQOPCD+180 01669000 OPCXCTL EQU IEDQOPCD+204 01670000 OPCLDNME EQU IEDQOPCD+212 01671000 OPCMODID EQU OPCLDNME+3 01672000 OPCHORT EQU IEDQOPCD+256 01673000 OPCGETBF EQU IEDQOPCD+276 01674000 OPCFREBF EQU IEDQOPCD+280 01675000 OPCSPEC EQU IEDQOPCD+300 01676000 OPCWRKSP EQU IEDQOPCD+320 01677000 OPCWAITV EQU IEDQOPCD+364 01678000 OPCPWCOB EQU IEDQOPCD+368 01679000 OPCPWQCB EQU OPCPWCOB 01680000 OPCPWECB EQU OPCPWCOB+4 01681000 OPCSESS EQU IEDQOPCD+384 01682000 OPCSFLAG EQU OPCSESS 01683000 OPCCSIB EQU OPCSESS+4 01684000 OPCSENSE EQU OPCSESS+8 01685000 OPCSNSSY EQU OPCSENSE 01686000 OPCSNSUS EQU OPCSENSE+2 01687000 OPCPCID EQU IEDQOPCD+456 01688000 OPCUNIQP EQU OPCPCID+2 01689000 OPCSESSF EQU IEDQOPCD+464 01690000 IEDOPRED EQU 0 01691000 OPREPRI EQU IEDOPRED+4 01692000 OPRESAVE EQU IEDOPRED+8 01693000 OPRETIC EQU OPRESAVE 01694000 OPRVTCHK EQU OPRETIC+3 01695000 OPREFLG1 EQU IEDOPRED+12 01696000 OPREFLG3 EQU IEDOPRED+14 01697000 IEDQQCB EQU 0 01698000 QCBDSFLG EQU IEDQQCB 01699000 QCBDISK EQU QCBDSFLG 01700000 QCBELCHN EQU IEDQQCB+1 01701000 QCBEOLDT EQU IEDQQCB+16 01702000 QCBBYTE1 EQU QCBEOLDT+1 01703000 QCBLKRLN EQU IEDQQCB+18 01704000 QCBRETCT EQU QCBLKRLN 01705000 QCBSTAT EQU IEDQQCB+19 01706000 QCBINSRC EQU IEDQQCB+21 01707000 QCBNBACK EQU QCBINSRC 01708000 QCBTSOF2 EQU QCBNBACK+1 01709000 QCBINHBN EQU QCBTSOF2 01710000 QCBTSOF1 EQU QCBNBACK+2 01711000 QCBINTVL EQU IEDQQCB+24 01712000 QCBEXTO EQU QCBINTVL 01713000 QCBPREN EQU IEDQQCB+28 01714000 QCBSLPIU EQU QCBPREN 01715000 QCBLKRRN EQU QCBSLPIU+1 01716000 QCBRELLN EQU IEDQQCB+32 01717000 QCBDCBAD EQU IEDQQCB+33 01718000 QCBFLAG EQU IEDQQCB+36 01719000 IEDQQPTR EQU 0 01720000 IEDQPQCB EQU 0 01721000 QCBFHDLZ EQU IEDQPQCB+3 01722000 QCBFHDTZ EQU IEDQPQCB+6 01723000 QCBINTLF EQU IEDQPQCB+12 01724000 IEDNQCB EQU 0 01725000 QCBSTAT1 EQU IEDNQCB+4 01726000 QCBPLCBA EQU IEDNQCB+5 01727000 QCBPASCF EQU 0 01728000 QCBASCFG EQU QCBPASCF 01729000 IEDRQCBP EQU 0 01730000 IEDRATIQ EQU 0 01731000 IEDQTNTD EQU 0 01732000 TNTSTART EQU IEDQTNTD+82 01733000 IEDQNPTR EQU 0 01734000 IEDTNTA EQU 0 01735000 IEDNTRM EQU 0 01736000 TRMSABPT EQU IEDNTRM 01737000 TRMACTDV EQU IEDNTRM+4 01738000 TRMDIALQ EQU TRMACTDV+1 01739000 TRMBYTE8 EQU TRMDIALQ+1 01740000 TRMBYTE7 EQU TRMDIALQ+2 01741000 TRMATNDX EQU IEDNTRM+8 01742000 TRMASNDX EQU TRMATNDX 01743000 TRMLKCHN EQU TRMASNDX 01744000 TRMINDEX EQU IEDNTRM+10 01745000 TRMCDST EQU TRMINDEX 01746000 TRMCOHTG EQU IEDNTRM+12 01747000 TRMBYTE6 EQU TRMCOHTG 01748000 TRMCDF0 EQU TRMBYTE6 01749000 TRMBYTE5 EQU TRMCOHTG+1 01750000 TRMBYTE4 EQU IEDNTRM+14 01751000 TRMBYTE3 EQU IEDNTRM+15 01752000 TRMBYTE2 EQU IEDNTRM+16 01753000 TRMRSACT EQU TRMBYTE2 01754000 TRMINPG EQU TRMBYTE2 01755000 TRMBYTE1 EQU IEDNTRM+17 01756000 TRMSCPRQ EQU TRMBYTE1 01757000 TRMSTOTE EQU TRMBYTE1 01758000 TRMCOHRT EQU IEDNTRM+18 01759000 TRMBYTE0 EQU IEDNTRM+20 01760000 TRMNOWCD EQU TRMBYTE0 01761000 TRMSIBPT EQU IEDNTRM+21 01762000 TRMLTRAC EQU TRMSIBPT 01763000 TRMLBUFR EQU TRMLTRAC 01764000 TRMRLMCT EQU IEDNTRM+24 01765000 TRMLGBST EQU TRMRLMCT 01766000 TRMTYPE EQU IEDNTRM+25 01767000 TRMSUBST EQU IEDNTRM+26 01768000 IEDQTRM EQU 0 01769000 TRMSTATE EQU IEDQTRM 01770000 TRMLOG EQU TRMSTATE 01771000 TRMDESTQ EQU IEDQTRM+1 01772000 TRMRSTRT EQU TRMDESTQ+2 01773000 TRMINSEQ EQU IEDQTRM+4 01774000 TLISTCNT EQU TRMINSEQ 01775000 TRMSESCT EQU TLISTCNT 01776000 TRMOUTSQ EQU IEDQTRM+6 01777000 TLISTEN EQU TRMOUTSQ 01778000 TRMDSORG EQU TLISTEN 01779000 TRMPLIM EQU TLISTEN+1 01780000 TRMALTD EQU IEDQTRM+8 01781000 TRMPRILK EQU TRMALTD 01782000 TRMSTEAL EQU TRMPRILK 01783000 TRMTGNUM EQU TRMSTEAL 01784000 TRMDEVFL EQU IEDQTRM+10 01785000 TRMADDC EQU TRMDEVFL 01786000 TRMNCPI EQU TRMDEVFL+1 01787000 TRMSTAT EQU IEDQTRM+12 01788000 TRMAPB EQU TRMSTAT 01789000 TRMSIO EQU TRMAPB 01790000 TRMOWNER EQU TRMSIO 01791000 TRMSENSE EQU TRMAPB+3 01792000 TRMNTPRC EQU 0 01793000 TRMTPRC0 EQU TRMNTPRC 01794000 GRPNAME EQU 0 01795000 QCTLPARM EQU 0 01796000 QCTLWRD1 EQU QCTLPARM 01797000 QCTLWRD2 EQU QCTLPARM+4 01798000 ALLOCBUF EQU 0 01799000 IEDQTNT EQU 0 01800000 COHORTLK EQU 0 01801000 DEBSUBR EQU 0 01802000 FREEBUF EQU 0 01803000 QCBLDCB EQU 0 01804000 TNTCODE EQU 0 01805000 TNTDCODE EQU 46 01806000 TNTNAME EQU 0 01807000 UCBBGN EQU 0 01808000 UCBDCPTR EQU 0 01809000 DCBPTR EQU QCBDCBAD 01810000 DEBUCB EQU DEBUCBS 01811000 DEBDVMOD EQU DEBUCB 01812000 DEBUCBAD EQU DEBUCB+1 01813000 UCBPTR EQU DEBUCBAD 01814000 UCBOBS01 EQU UCBDEV 01815000 UCBSTAB EQU UCBOBS01+10 01816000 UCBBSVL EQU UCBSTAB 01817000 UCBPRSRS EQU UCBSTAB 01818000 UCBDMCT EQU UCBOBS01+11 01819000 UCBFL4 EQU UCBOBS01+13 01820000 UCBOBS02 EQU UCBDEV 01821000 UCBTFL1 EQU UCBOBS02+19 01822000 UCBXTN EQU UCBOBS02+20 01823000 UCBVOPT EQU UCBXTN 01824000 UCBOBS03 EQU UCBDEV 01825000 UCBXTADR EQU UCBOBS03 01826000 UCBOBS04 EQU UCBDEV 01827000 UCBBTA EQU UCBOBS04+12 01828000 UCBOBS06 EQU UCBDEV 01829000 UCBAOF EQU UCBOBS06 01830000 UCBAOF1 EQU UCBAOF 01831000 UCBAOF2 EQU UCBAOF+1 01832000 @NM00116 EQU UCBOBS06+3 01833000 UCBIRB EQU UCBOBS06+4 01834000 UCBGRAF EQU UCBIRB 01835000 UCBLDNCA EQU UCBOBS06+8 01836000 UCBRDYQ EQU UCBLDNCA 01837000 UCBIRLN EQU UCBRDYQ 01838000 UCBLDNCB EQU UCBRDYQ+1 01839000 UCBCTLNK EQU UCBOBS06+12 01840000 UCBOBS07 EQU UCBDEV 01841000 UCBOBS08 EQU UCBDEV 01842000 UCBCTCAD EQU UCBOBS08 01843000 UCBCTCF1 EQU UCBOBS08+4 01844000 UCBOBS09 EQU UCBDEV 01845000 OCTG EQU OCFLAG1 01846000 @NM00130 EQU OCTG 01847000 OCMISCFG EQU OCFLAG1 01848000 @NM00133 EQU OCCKDATA 01849000 OCCURVR EQU @NM00133 01850000 @NM00135 EQU OCCIB 01851000 OCSTAT EQU @NM00135+1 01852000 OCCKPKY1 EQU OCCKPKEY 01853000 OCCKPTYP EQU OCCKPKY1 01854000 OCICACTN EQU OCMODNME 01855000 OCICDADR EQU OCICACTN 01856000 OCICSW EQU OCICDADR+3 01857000 @NM00140 EQU OCBACKUP 01858000 OCROUTE EQU OCFLAG1 01859000 OCBOTH EQU OCROUTE 01860000 @NM00142 EQU OCCKDATA 01861000 OCMSGFLG EQU OCPREFLG 01862000 OCBKUP1 EQU OCMODNME 01863000 OCTARTTC EQU OCBKUP1+4 01864000 @NM00146 EQU OCMODNME 01865000 OCCSIB EQU @NM00146 01866000 OCBKUP2 EQU OCCKDATA 01867000 OCBKUP3 EQU OCLDNME 01868000 OCRESPTR EQU OCBKUP3+4 01869000 OCDIALLN EQU OCRESPTR 01870000 OCIPLDMP EQU OCLDNME+4 01871000 @NM00151 EQU OCLDNME 01872000 OCERSTAT EQU @NM00151 01873000 OPCAQWD EQU OPCAQCTL 01874000 OPCAQWD1 EQU OPCAQWD 01875000 OPCAQWD2 EQU OPCAQWD+4 01876000 OPCAQWD3 EQU OPCAQWD+8 01877000 @NM00194 EQU QCBFHDLZ 01878000 @NM00208 EQU TRMSTATE 01879000 TRMPUSST EQU TRMBYTE7 01880000 TRMLUFD0 EQU TRMBYTE7 01881000 TRMSNAST EQU TRMBYTE6 01882000 TRMCDFD0 EQU TRMBYTE5 01883000 TRMPRE1 EQU TRMBYTE4 01884000 TRMLS1 EQU TRMBYTE4 01885000 TRMNCP1 EQU TRMBYTE4 01886000 TRMLU1 EQU TRMBYTE4 01887000 TRMLINK1 EQU TRMBYTE4 01888000 TRMDCONS EQU TRMLINK1 01889000 TRMPRE EQU TRMBYTE3 01890000 TRMNCP EQU TRMBYTE3 01891000 TRMIPLDM EQU TRMNCP 01892000 TRMNCP2 EQU TRMBYTE8 01893000 TRMPU EQU TRMBYTE3 01894000 TRMLU EQU TRMBYTE3 01895000 TRMCDMGR EQU TRMBYTE3 01896000 TRMLINK EQU TRMBYTE3 01897000 TRMEPMOD EQU TRMLINK 01898000 FLAGS EQU OPCFLAG1 01899000 FIRSTREQ EQU FLAGS 01900000 MORELINE EQU FLAGS 01901000 EXITFLAG EQU FLAGS 01902000 SWITCH01 EQU FLAGS 01903000 OCCOSNME EQU OCLDNME 01904000 OCLINRRT EQU OCTRUNIT 01905000 OCPCID EQU OCBACKUP 01906000 OCRCVSZ EQU OCOID 01907000 OCRSNCDE EQU OCALSTAT 01908000 OCSENSE EQU OCBACKUP 01909000 OCSNTSZ EQU OCRLN 01910000 TNTFIRST EQU TNTSTART 01911000 TRMASCMH EQU TRMBYTE1 01912000 TRMOPT EQU IEDQTRM+20 01913000 TRMPOOLP EQU TRMINSEQ 01914000 TRMSRPTR EQU TRMPLIM 01915000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01916000 @NM00225 EQU FLAGS 01917000 TRMLDISC EQU TRMLINK 01918000 TRMVSRL EQU TRMLINK 01919000 TRMLALOC EQU TRMLINK 01920000 TRMLSTAT EQU TRMLINK 01921000 TRMLINT EQU TRMLINK 01922000 TRMCDLOG EQU TRMCDMGR 01923000 @NM00222 EQU TRMCDMGR 01924000 @NM00221 EQU TRMCDMGR 01925000 @NM00220 EQU TRMCDMGR 01926000 @NM00219 EQU TRMCDMGR 01927000 TRMCDRDR EQU TRMCDMGR 01928000 TRMBKDUP EQU TRMCDMGR 01929000 TRMLULOG EQU TRMLU 01930000 @NM00218 EQU TRMLU 01931000 @NM00217 EQU TRMLU 01932000 @NM00216 EQU TRMLU 01933000 TRMTDIFF EQU TRMLU 01934000 TRMNTODS EQU TRMLU 01935000 TRMPCONT EQU TRMPU 01936000 TRMPDOCQ EQU TRMPU 01937000 TRMPULOC EQU TRMPU 01938000 TRMPDNAS EQU TRMPU 01939000 TRMPALOC EQU TRMPU 01940000 @NM00215 EQU TRMNCP2 01941000 TRMSAVFY EQU TRMNCP2 01942000 TRMNCONT EQU TRMNCP 01943000 TRMQUCKN EQU TRMNCP 01944000 TRMSLOWN EQU TRMNCP 01945000 TRMSYGEN EQU TRMNCP 01946000 TRMNCPCL EQU TRMNCP 01947000 TRMCONN EQU TRMIPLDM 01948000 TRMINOUT EQU TRMPRE 01949000 TRMRDOUT EQU TRMPRE 01950000 TRMNLOUT EQU TRMPRE 01951000 TRMWROUT EQU TRMPRE 01952000 TRMASNXI EQU TRMPRE 01953000 TRMSTMM EQU TRMPRE 01954000 TRMCMODE EQU TRMPRE 01955000 TRMSTPND EQU TRMPRE 01956000 TRMNCPLK EQU TRMLINK1 01957000 @NM00214 EQU TRMLINK1 01958000 TRMDIRCA EQU TRMLINK1 01959000 TRMDICAL EQU TRMLINK1 01960000 TRMDCONN EQU TRMDCONS 01961000 TRMDCOP EQU TRMDCONS 01962000 TRMPMARY EQU TRMLU1 01963000 TRMLUNAS EQU TRMLU1 01964000 TRMCDSRQ EQU TRMLU1 01965000 TRMLSCVP EQU TRMLU1 01966000 TRMSPURG EQU TRMLU1 01967000 TRMCPOPT EQU TRMLU1 01968000 TRMCPREQ EQU TRMLU1 01969000 TRMINNLK EQU TRMNCP1 01970000 TRMSANDX EQU TRMNCP1 01971000 TRMDYDMP EQU TRMNCP1 01972000 TRMCCPND EQU TRMNCP1 01973000 TRMSNA4 EQU TRMNCP1 01974000 TRMANS EQU TRMNCP1 01975000 TRMLINOP EQU TRMNCP1 01976000 TRMINOP EQU TRMNCP1 01977000 @NM00213 EQU TRMLS1 01978000 TRMCBIU EQU TRMLS1 01979000 TRMLYNCH EQU TRMPRE1 01980000 TRMSPOUT EQU TRMPRE1 01981000 TRMERLCK EQU TRMPRE1 01982000 TRMQNPL EQU TRMPRE1 01983000 TRMSPACT EQU TRMPRE1 01984000 TRMOCNI EQU TRMPRE1 01985000 TRMSESSN EQU TRMPRE1 01986000 TRMCONT EQU TRMPRE1 01987000 TRMINERR EQU TRMCDFD0 01988000 TRMLUTM EQU TRMCDFD0 01989000 TRMLUIT EQU TRMCDFD0 01990000 TRMLUREQ EQU TRMCDFD0 01991000 TRMCDPRE EQU TRMCDFD0 01992000 TRMWASCD EQU TRMCDFD0 01993000 TRMSRPFG EQU TRMCDFD0 01994000 TRMSESRQ EQU TRMCDFD0 01995000 @NM00212 EQU TRMSNAST 01996000 TRMDRSRC EQU TRMSNAST 01997000 @NM00211 EQU TRMLUFD0 01998000 TRMRMTMA EQU TRMLUFD0 01999000 TRMNHDRN EQU TRMLUFD0 02000000 TRMNOINP EQU TRMLUFD0 02001000 TRMASSOC EQU TRMLUFD0 02002000 TRMAUTO EQU TRMLUFD0 02003000 TRMCONTP EQU TRMPUSST 02004000 @NM00210 EQU TRMPUSST 02005000 @NM00209 EQU @NM00208 02006000 TRMENTRY EQU @NM00208 02007000 QCBPFEFO EQU @NM00194+1 02008000 QCBDATFL EQU @NM00194 02009000 OPCAQLST EQU OPCAQWD3+1 02010000 OPCAQRQ3 EQU OPCAQWD3 02011000 OPCAQSEC EQU OPCAQWD2+1 02012000 OPCAQRQ2 EQU OPCAQWD2 02013000 OPCAQFST EQU OPCAQWD1+1 02014000 OPCAQREQ EQU OPCAQWD1 02015000 @NM00152 EQU @NM00151+5 02016000 OCUNDFER EQU OCERSTAT+4 02017000 OCINOPER EQU OCERSTAT+3 02018000 OCOPER EQU OCERSTAT+2 02019000 OCINACER EQU OCERSTAT+1 02020000 OCACTER EQU OCERSTAT 02021000 @NM00150 EQU OCIPLDMP 02022000 OCDYDMP EQU OCIPLDMP 02023000 OCACTRQ EQU OCIPLDMP 02024000 OCDACRQ EQU OCIPLDMP 02025000 OCIPLRQ EQU OCIPLDMP 02026000 OCDMPRQ EQU OCIPLDMP 02027000 @NM00149 EQU OCRESPTR+2 02028000 OCOHNATA EQU OCDIALLN 02029000 OCRRTPTR EQU OCBKUP3 02030000 @NM00148 EQU OCBKUP2+4 02031000 OCNHITTC EQU OCBKUP2+2 02032000 OCLINTTC EQU OCBKUP2 02033000 @NM00147 EQU @NM00146+4 02034000 OCCSAB EQU OCCSIB 02035000 @NM00145 EQU OCBKUP1+6 02036000 OCLNKTNT EQU OCTARTTC 02037000 OCSRTTC EQU OCBKUP1+2 02038000 OCRSTTC EQU OCBKUP1 02039000 @NM00144 EQU OCMSGFLG 02040000 OCRRT EQU OCMSGFLG 02041000 OCNAME EQU OCMSGFLG 02042000 OCLU1TTE EQU @NM00142+5 02043000 OCSFLAG EQU @NM00142+4 02044000 OCLU2TTI EQU @NM00142+2 02045000 OCLU1TTI EQU @NM00142 02046000 @NM00141 EQU OCROUTE 02047000 OCTEST EQU OCROUTE 02048000 OCINOP EQU OCBOTH 02049000 OCOP EQU OCBOTH 02050000 OCDISTLN EQU @NM00140+6 02051000 OCDISTAD EQU @NM00140+2 02052000 OCDISTNA EQU @NM00140 02053000 OCICINAC EQU OCICSW 02054000 @NM00139 EQU OCICSW 02055000 OCICATST EQU OCICDADR+1 02056000 OCICTYPE EQU OCICDADR 02057000 @NM00138 EQU OCCKPKY1 02058000 OCCKPENV EQU OCCKPKY1 02059000 OCCKPRST EQU OCCKPTYP 02060000 OCCKPNCP EQU OCCKPTYP 02061000 OCCKPINC EQU OCCKPTYP 02062000 @NM00137 EQU @NM00135+2 02063000 @NM00136 EQU OCSTAT 02064000 OCDCDRM EQU OCSTAT 02065000 OCTSTAT EQU OCSTAT 02066000 OCREASON EQU @NM00135 02067000 @NM00134 EQU @NM00133+4 02068000 OCOIDEP EQU OCCURVR 02069000 @NM00132 EQU OCMISCFG 02070000 OCCONRRT EQU OCMISCFG 02071000 OCINTRNL EQU OCMISCFG 02072000 OCLSCBS EQU OCMISCFG 02073000 OCTGTRRQ EQU OCMISCFG 02074000 OCTRMRQD EQU OCMISCFG 02075000 OCNODISC EQU OCMISCFG 02076000 @NM00131 EQU OCTG 02077000 OCALLNKS EQU OCTG 02078000 OCINACT EQU @NM00130 02079000 OCACT EQU @NM00130 02080000 UCBRV066 EQU UCBOBS09+4 02081000 UCBIOSBA EQU UCBOBS09 02082000 UCBRV042 EQU UCBOBS08+5 02083000 UCBRV082 EQU UCBCTCF1 02084000 UCBRV081 EQU UCBCTCF1 02085000 UCBRV080 EQU UCBCTCF1 02086000 UCBRV079 EQU UCBCTCF1 02087000 UCBRV078 EQU UCBCTCF1 02088000 UCBRV077 EQU UCBCTCF1 02089000 UCBRV076 EQU UCBCTCF1 02090000 UCBCTC80 EQU UCBCTCF1 02091000 UCBCTCAL EQU UCBCTCAD 02092000 UCBICNCB EQU UCBOBS07+4 02093000 UCBRV040 EQU UCBOBS07 02094000 UCBCTLNA EQU UCBCTLNK+1 02095000 UCBRLN EQU UCBCTLNK 02096000 UCBRDYQA EQU UCBLDNCB 02097000 UCBINRLN EQU UCBIRLN 02098000 UCBIRBA EQU UCBIRB+1 02099000 UCBRV039 EQU UCBGRAF 02100000 UCBDWNR EQU UCBGRAF 02101000 UCBRPND EQU UCBGRAF 02102000 UCBUPM EQU UCBGRAF 02103000 UCBBTAM EQU UCBGRAF 02104000 UCBDRNO EQU UCBGRAF 02105000 UCBDRO EQU UCBGRAF 02106000 UCBOIP EQU UCBGRAF 02107000 UCBATRCD EQU @NM00116 02108000 UCBSKPFG EQU @NM00116 02109000 UCBRIPND EQU @NM00116 02110000 UCBRTIAC EQU @NM00116 02111000 UCBRSV79 EQU @NM00116 02112000 UCBRSV78 EQU @NM00116 02113000 UCBRSV77 EQU @NM00116 02114000 UCBOLTEP EQU @NM00116 02115000 UCBATNCT EQU UCBOBS06+2 02116000 UCBRSV76 EQU UCBAOF2 02117000 UCBRSV75 EQU UCBAOF2 02118000 UCBRSV74 EQU UCBAOF2 02119000 UCBRSV73 EQU UCBAOF2 02120000 UCBRSV72 EQU UCBAOF2 02121000 UCBRSV71 EQU UCBAOF2 02122000 UCBRSV70 EQU UCBAOF2 02123000 UCBRSV69 EQU UCBAOF2 02124000 UCBRSV68 EQU UCBAOF1 02125000 UCBRSV67 EQU UCBAOF1 02126000 UCBRSV66 EQU UCBAOF1 02127000 UCBRSV65 EQU UCBAOF1 02128000 UCBRSV64 EQU UCBAOF1 02129000 UCBOFNL EQU UCBAOF1 02130000 UCBOFSP EQU UCBAOF1 02131000 UCBOFMCR EQU UCBAOF1 02132000 UCBBTB EQU UCBBTA+1 02133000 UCBDI EQU UCBBTA 02134000 UCBSNS EQU UCBOBS04+8 02135000 UCBTEB EQU UCBOBS04+4 02136000 UCBGCB EQU UCBOBS04+3 02137000 UCBOPEN EQU UCBOBS04+2 02138000 UCBSTART EQU UCBOBS04 02139000 UCBXTNB EQU UCBXTN+1 02140000 UCBRSV22 EQU UCBVOPT 02141000 UCBRSV21 EQU UCBVOPT 02142000 UCBRSV20 EQU UCBVOPT 02143000 UCBESVE EQU UCBVOPT 02144000 UCBERPC EQU UCBVOPT 02145000 UCBESVC EQU UCBVOPT 02146000 UCBEVA EQU UCBVOPT 02147000 UCBESV EQU UCBVOPT 02148000 UCBRV009 EQU UCBTFL1 02149000 UCBRV008 EQU UCBTFL1 02150000 UCBRV007 EQU UCBTFL1 02151000 UCBRV006 EQU UCBTFL1 02152000 UCBRV005 EQU UCBTFL1 02153000 UCBDQDSP EQU UCBTFL1 02154000 UCBNSLTP EQU UCBTFL1 02155000 UCBNLTP EQU UCBTFL1 02156000 UCBRES1B EQU UCBOBS02+18 02157000 UCBFSER EQU UCBOBS02+12 02158000 @NM00115 EQU UCBOBS02+4 02159000 UCBFSEQ EQU UCBOBS02+2 02160000 UCBFSCT EQU UCBOBS02 02161000 UCBNEXP EQU UCBOBS01+20 02162000 UCBBASE EQU UCBOBS01+16 02163000 UCBRES1A EQU UCBOBS01+15 02164000 UCBUSER EQU UCBOBS01+14 02165000 UCBFL47 EQU UCBFL4 02166000 UCBFL46 EQU UCBFL4 02167000 UCBFL45 EQU UCBFL4 02168000 UCBRV065 EQU UCBFL4 02169000 UCBDSS EQU UCBFL4 02170000 UCBRESVP EQU UCBFL4 02171000 UCBWDAV EQU UCBFL4 02172000 UCBDAVV EQU UCBFL4 02173000 UCBSQC EQU UCBOBS01+12 02174000 UCBDATP EQU UCBOBS01+12 02175000 UCBDMC EQU UCBDMCT 02176000 UCBMOUNT EQU UCBDMCT 02177000 UCBBNUL EQU UCBSTAB 02178000 UCBSHAR EQU UCBSTAB 02179000 UCBBSTR EQU UCBSTAB 02180000 UCBBPUB EQU UCBSTAB 02181000 UCBBPRV EQU UCBSTAB 02182000 UCBBALB EQU UCBPRSRS 02183000 UCBPGFL EQU UCBSTAB 02184000 UCBDVSHR EQU UCBBSVL 02185000 UCBVOLI EQU UCBOBS01+4 02186000 UCBVTOC EQU UCBOBS01 02187000 @NM00227 EQU QCTLWRD2+1 02188000 QCTLEND EQU QCTLWRD2 02189000 @NM00226 EQU QCTLWRD1+1 02190000 QCTLREQ EQU QCTLWRD1 02191000 @NM00224 EQU TRMNTPRC+1 02192000 @NM00223 EQU TRMTPRC0 02193000 TRMRAPIT EQU TRMTPRC0 02194000 TRMOPTBL EQU IEDQTRM+18 02195000 TRMOPNO EQU IEDQTRM+17 02196000 TRMCHCIN EQU IEDQTRM+16 02197000 TRMLOCAD EQU TRMSENSE 02198000 TRMTEMPR EQU TRMAPB+2 02199000 TRMNADDR EQU TRMOWNER 02200000 @NM00207 EQU TRMDEVFL+1 02201000 TRMTPIN EQU TRMDEVFL+1 02202000 @NM00206 EQU TRMNCPI 02203000 TRMRNTRM EQU TRMDEVFL+1 02204000 @NM00205 EQU TRMDEVFL+1 02205000 TRMLMD EQU TRMDEVFL+1 02206000 TRMCONC EQU TRMDEVFL+1 02207000 TRMTSOB EQU TRMDEVFL 02208000 TRMBFDY EQU TRMDEVFL 02209000 TRMTBLK EQU TRMDEVFL 02210000 TRMSBLK EQU TRMDEVFL 02211000 TRMBLKS EQU TRMDEVFL 02212000 TRMSCV EQU TRMADDC 02213000 TRMDDIG EQU TRMDEVFL 02214000 TRMBUFS EQU TRMDEVFL 02215000 TRMTGCON EQU TRMTGNUM+1 02216000 TRMTGRRT EQU TRMTGNUM 02217000 TRMLGB EQU TRMDSORG 02218000 TRMUTERM EQU TRMSESCT 02219000 TRMVERIF EQU TRMRSTRT 02220000 @NM00204 EQU TRMRSTRT 02221000 @NM00203 EQU TRMDESTQ 02222000 TRMSCNYN EQU TRMSTATE 02223000 TRMOPTFN EQU TRMSTATE 02224000 TRMHELDN EQU TRMSTATE 02225000 TRMACPTN EQU TRMSTATE 02226000 TRMPREF EQU TRMSTATE 02227000 TRMPROC EQU TRMLOG 02228000 TRMLIST EQU TRMLOG 02229000 TRMLINE EQU TRMSTATE 02230000 TRMPRIME EQU TRMLGBST 02231000 TRMOWNR EQU TRMLBUFR+1 02232000 TRMGPCNT EQU TRMLBUFR 02233000 TRMBUFRD EQU TRMBYTE0 02234000 TRMSNA EQU TRMBYTE0 02235000 TRMGP EQU TRMBYTE0 02236000 TRMDIAL EQU TRMBYTE0 02237000 TRMACDC EQU TRMNOWCD 02238000 TRMOUTPT EQU TRMBYTE0 02239000 TRMINPUT EQU TRMBYTE0 02240000 TRMUDEF EQU TRMBYTE0 02241000 TRMCKPRN EQU TRMBYTE1 02242000 TRMTSATN EQU TRMBYTE1 02243000 TRMTRACE EQU TRMBYTE1 02244000 TRMSWBCK EQU TRMBYTE1 02245000 TRMAUTOC EQU TRMBYTE1 02246000 TRMINPTP EQU TRMBYTE1 02247000 TRMWTNEG EQU TRMSCPRQ 02248000 TRMWRBRK EQU TRMBYTE2 02249000 TRMNOSND EQU TRMBYTE2 02250000 TRMPREP EQU TRMBYTE2 02251000 TRMGPACT EQU TRMBYTE2 02252000 TRMANDL EQU TRMBYTE2 02253000 TRMCLOSN EQU TRMINPG 02254000 TRMREMB EQU TRMBYTE2 02255000 TRMCINOP EQU TRMCDF0 02256000 TRMRSTPD EQU TRMCDF0 02257000 TRMCLNXI EQU TRMCDF0 02258000 TRMDVAS0 EQU TRMCDF0 02259000 TRMPURGE EQU TRMCDF0 02260000 TRMLSNCP EQU TRMCDST 02261000 TRMDRTYC EQU TRMLKCHN 02262000 TRMBYTE9 EQU TRMDIALQ 02263000 TRMBYTEA EQU TRMACTDV 02264000 TRMRECON EQU TRMSABPT+2 02265000 TRMILSA EQU TRMSABPT 02266000 TNTTRMAD EQU IEDTNTA 02267000 @NM00202 EQU IEDQTNTD+46 02268000 TNTLEN EQU IEDQTNTD+44 02269000 @NM00201 EQU IEDQTNTD+41 02270000 TNTENLEN EQU IEDQTNTD+40 02271000 @NM00200 EQU IEDQTNTD+38 02272000 @NM00199 EQU IEDQTNTD 02273000 @NM00198 EQU IEDRATIQ 02274000 QCBSTGQA EQU IEDRQCBP+4 02275000 QCBSTGQL EQU IEDRQCBP 02276000 @NM00197 EQU QCBPASCF+1 02277000 @NM00196 EQU QCBASCFG 02278000 QCBTRMNG EQU QCBASCFG 02279000 QCBTTCIN EQU QCBPLCBA+1 02280000 @NM00195 EQU QCBPLCBA 02281000 QCBRAPMH EQU QCBSTAT1 02282000 QCBFLUSH EQU QCBSTAT1 02283000 QCBNDXRQ EQU QCBSTAT1 02284000 QCBESIG EQU QCBSTAT1 02285000 QCBRCVRQ EQU QCBSTAT1 02286000 QCBSNDRQ EQU QCBSTAT1 02287000 QCBWAITC EQU QCBSTAT1 02288000 QCBPLCBN EQU QCBSTAT1 02289000 QCBCHAIN EQU IEDNQCB 02290000 QCBPQBCK EQU IEDQPQCB+25 02291000 QCBPRIPQ EQU IEDQPQCB+24 02292000 QCBCFHDR EQU IEDQPQCB+21 02293000 QCBLFEFO EQU IEDQPQCB+18 02294000 QCBFFEFO EQU IEDQPQCB+15 02295000 QCBPREVF EQU QCBINTLF 02296000 QCBINTFF EQU IEDQPQCB+9 02297000 QCBDATSQ EQU QCBFHDTZ+1 02298000 @NM00193 EQU QCBFHDTZ 02299000 QCBDNHDR EQU IEDQPQCB 02300000 QCBQBACK EQU IEDQQCB+37 02301000 QCBCKPT EQU QCBFLAG 02302000 QCBPROC EQU QCBFLAG 02303000 QCBSDFFO EQU QCBFLAG 02304000 QCBTERMQ EQU QCBFLAG 02305000 QCBRSRV EQU QCBFLAG 02306000 QCBREAD EQU QCBFLAG 02307000 QCBNOBRK EQU QCBFLAG 02308000 QCBTSSES EQU QCBFLAG 02309000 QCBLGBAD EQU QCBDCBAD 02310000 QCBTJID EQU QCBLKRRN+1 02311000 QCBCARCT EQU QCBLKRRN 02312000 QCBPRLVL EQU QCBSLPIU 02313000 QCBMSGCT EQU IEDQQCB+26 02314000 QCBRBACK EQU QCBEXTO 02315000 QCBDISC EQU QCBTSOF1 02316000 QCBDELAY EQU QCBTSOF1 02317000 QCBPARTO EQU QCBTSOF1 02318000 QCBSATRD EQU QCBTSOF1 02319000 QCBNOBUF EQU QCBTSOF1 02320000 QCBTPUT EQU QCBTSOF1 02321000 QCBTGET EQU QCBTSOF1 02322000 QCBWRBRK EQU QCBTSOF1 02323000 QCBSATLC EQU QCBTSOF2 02324000 QCBSATTI EQU QCBTSOF2 02325000 QCBSATCH EQU QCBTSOF2 02326000 QCBSIMRD EQU QCBTSOF2 02327000 QCBDSSMI EQU QCBTSOF2 02328000 QCBPOSTO EQU QCBTSOF2 02329000 QCBBUFQ EQU QCBTSOF2 02330000 QCBMTP EQU QCBINHBN 02331000 QCBSATCT EQU QCBNBACK 02332000 QCBSCBOF EQU IEDQQCB+20 02333000 QCBTIME EQU QCBSTAT 02334000 QCBCLOCK EQU QCBSTAT 02335000 QCBSCHDL EQU QCBSTAT 02336000 QCBSMODE EQU QCBSTAT 02337000 QCBSEND EQU QCBSTAT 02338000 QCBBUFRD EQU QCBSTAT 02339000 QCBTRMHO EQU QCBSTAT 02340000 QCBEOM EQU QCBSTAT 02341000 QCBHUCT EQU QCBRETCT 02342000 QCBIEND EQU QCBRETCT 02343000 QCBEND EQU QCBRETCT 02344000 QCBNL EQU QCBRETCT 02345000 QCBLOGCT EQU QCBRETCT 02346000 @NM00192 EQU QCBBYTE1 02347000 QCBRITRM EQU QCBBYTE1 02348000 @NM00191 EQU QCBEOLDT 02349000 QCBSLINK EQU IEDQQCB+13 02350000 QCBSTPRI EQU IEDQQCB+12 02351000 QCBSTCHN EQU IEDQQCB+9 02352000 QCBSTVTO EQU IEDQQCB+8 02353000 QCBLINK EQU IEDQQCB+5 02354000 QCBPRI EQU IEDQQCB+4 02355000 QCBCNTEN EQU QCBELCHN+2 02356000 @NM00190 EQU QCBELCHN+2 02357000 @NM00189 EQU QCBELCHN 02358000 QCBHELD EQU QCBDSFLG 02359000 QCBFQCB EQU QCBDSFLG 02360000 QCBDRQQ EQU QCBDSFLG 02361000 QCBALTMH EQU QCBDSFLG 02362000 QCBREUS EQU QCBDISK 02363000 QCBNREUS EQU QCBDISK 02364000 QCBCORE EQU QCBDSFLG 02365000 QCBTSQ EQU QCBDSFLG 02366000 @NM00188 EQU OPREFLG3 02367000 OPREATCH EQU OPREFLG3 02368000 @NM00187 EQU OPREFLG3 02369000 OPREFLG2 EQU IEDOPRED+13 02370000 @NM00186 EQU OPRVTCHK 02371000 OPRITSET EQU OPRVTCHK 02372000 @NM00185 EQU OPRVTCHK 02373000 @NM00184 EQU OPRETIC 02374000 OPRELINK EQU IEDOPRED+5 02375000 OPREQCB EQU IEDOPRED+1 02376000 OPREKEY EQU IEDOPRED 02377000 OPCBOTTM EQU IEDQOPCD+11936 02378000 OPCTNLEX EQU IEDQOPCD+11920 02379000 @NM00183 EQU IEDQOPCD+7152 02380000 OPCTNIEX EQU IEDQOPCD+7136 02381000 OPCTNHEX EQU IEDQOPCD+7120 02382000 OPCTCLEX EQU IEDQOPCD+7104 02383000 @NM00182 EQU IEDQOPCD+2336 02384000 OPCTCIEX EQU IEDQOPCD+2320 02385000 OPCTCHEX EQU IEDQOPCD+2304 02386000 @NM00181 EQU IEDQOPCD+2272 02387000 OPCTTRC EQU IEDQOPCD+2104 02388000 OPCRHOLD EQU IEDQOPCD+2040 02389000 OPCADCB EQU IEDQOPCD+1864 02390000 OPCTRCAD EQU IEDQOPCD+1860 02391000 OPCADROP EQU IEDQOPCD+1856 02392000 @NM00180 EQU IEDQOPCD+1806 02393000 OPCNAM EQU IEDQOPCD+1798 02394000 @NM00179 EQU IEDQOPCD+1796 02395000 OPCBLIST EQU IEDQOPCD+1794 02396000 @NM00178 EQU IEDQOPCD+1793 02397000 @NM00177 EQU IEDQOPCD+1792 02398000 @NM00176 EQU IEDQOPCD+1789 02399000 @NM00175 EQU IEDQOPCD+1788 02400000 OPCBLDL EQU IEDQOPCD+1784 02401000 @NM00174 EQU IEDQOPCD+1712 02402000 OPCDSRWT EQU IEDQOPCD+1708 02403000 @NM00173 EQU IEDQOPCD+1616 02404000 @NM00172 EQU IEDQOPCD+1420 02405000 @NM00171 EQU IEDQOPCD+1412 02406000 @NM00170 EQU IEDQOPCD+612 02407000 @NM00169 EQU IEDQOPCD+611 02408000 OPCLSSEQ EQU IEDQOPCD+610 02409000 OPCRCTCH EQU IEDQOPCD+608 02410000 OPCRSASC EQU IEDQOPCD+604 02411000 OPCRECON EQU IEDQOPCD+600 02412000 OPCGETSA EQU IEDQOPCD+596 02413000 OPCSAASC EQU IEDQOPCD+592 02414000 OPCLKASC EQU IEDQOPCD+588 02415000 OPCDCBCH EQU IEDQOPCD+584 02416000 OPCCDSER EQU IEDQOPCD+580 02417000 OPCGTCDT EQU IEDQOPCD+576 02418000 OPCSRSCE EQU IEDQOPCD+572 02419000 OPCGTNSP EQU IEDQOPCD+568 02420000 OPCFGXPT EQU IEDQOPCD+564 02421000 OPCNCPLC EQU IEDQOPCD+560 02422000 OPCCTVRL EQU IEDQOPCD+556 02423000 OPCMSACE EQU IEDQOPCD+552 02424000 OPCRVRLT EQU IEDQOPCD+548 02425000 OPCRCOSN EQU IEDQOPCD+544 02426000 OPCLOCLS EQU IEDQOPCD+540 02427000 OPCFXNAD EQU IEDQOPCD+536 02428000 @NM00168 EQU IEDQOPCD+532 02429000 OPCCDRDR EQU IEDQOPCD+528 02430000 OPCRSTRS EQU IEDQOPCD+524 02431000 OPCSAVES EQU IEDQOPCD+520 02432000 OPCRSPBD EQU IEDQOPCD+516 02433000 OPCNFY03 EQU IEDQOPCD+512 02434000 OPCNFY01 EQU IEDQOPCD+508 02435000 OPCURC EQU IEDQOPCD+504 02436000 OPCCINBD EQU IEDQOPCD+500 02437000 OPCCRKEY EQU IEDQOPCD+496 02438000 OPCDRSET EQU IEDQOPCD+492 02439000 OPCDRCLN EQU IEDQOPCD+488 02440000 OPCDRDEL EQU IEDQOPCD+484 02441000 OPCDRLOD EQU IEDQOPCD+480 02442000 OPCDRLOC EQU IEDQOPCD+476 02443000 OPCDRCVT EQU IEDQOPCD+472 02444000 OPCDRFST EQU IEDQOPCD+468 02445000 OPCLSABC EQU IEDQOPCD+466 02446000 @NM00167 EQU IEDQOPCD+465 02447000 @NM00166 EQU OPCSESSF 02448000 OPCGTSAB EQU OPCSESSF 02449000 @NM00165 EQU OPCSESSF 02450000 OPCUNIQV EQU OPCUNIQP+2 02451000 OPCUNIQU EQU OPCUNIQP 02452000 OPCOSSCP EQU OPCPCID 02453000 @NM00164 EQU IEDQOPCD+452 02454000 @NM00163 EQU IEDQOPCD+448 02455000 OPCSDUPU EQU IEDQOPCD+444 02456000 OPCSDULU EQU IEDQOPCD+440 02457000 OPCSDRVT EQU IEDQOPCD+436 02458000 OPCSDRET EQU IEDQOPCD+432 02459000 OPCSDHSY EQU IEDQOPCD+428 02460000 OPCSDENQ EQU IEDQOPCD+424 02461000 OPCSDDIA EQU IEDQOPCD+420 02462000 OPCSDAPU EQU IEDQOPCD+416 02463000 OPCSDALU EQU IEDQOPCD+412 02464000 OPCCSKEY EQU IEDQOPCD+408 02465000 OPCSSKEY EQU IEDQOPCD+404 02466000 OPCPRTTE EQU IEDQOPCD+400 02467000 OPCLU2TT EQU OPCSESS+14 02468000 OPCLU1TT EQU OPCSESS+12 02469000 OPCSNSU2 EQU OPCSNSUS+1 02470000 OPCSNSU1 EQU OPCSNSUS 02471000 OPCSNSMN EQU OPCSNSSY+1 02472000 OPCSNSMJ EQU OPCSNSSY 02473000 OPCCSAB EQU OPCCSIB 02474000 OPCCTTE EQU OPCSESS+1 02475000 OPCARSRT EQU OPCSFLAG 02476000 OPCISQUD EQU OPCSFLAG 02477000 @NM00162 EQU OPCSFLAG 02478000 OPCLUREQ EQU OPCSFLAG 02479000 OPCISRSP EQU OPCSFLAG 02480000 OPCISQUE EQU OPCSFLAG 02481000 OPCRAPMH EQU OPCSFLAG 02482000 OPCRAPI EQU OPCSFLAG 02483000 OPCGTSIB EQU IEDQOPCD+380 02484000 @NM00161 EQU OPCPWCOB+9 02485000 @NM00160 EQU OPCPWCOB+8 02486000 @NM00159 EQU OPCPWECB+1 02487000 OPCPWCCC EQU OPCPWECB 02488000 OPCPWCHN EQU OPCPWQCB+1 02489000 OPCPWVTO EQU OPCPWQCB 02490000 OPCTOTCK EQU IEDQOPCD+360 02491000 OPCAPXTL EQU IEDQOPCD+356 02492000 OPCDECR EQU IEDQOPCD+352 02493000 OPCBUFWT EQU IEDQOPCD+348 02494000 OPCADGOT EQU IEDQOPCD+318 02495000 OPCRQCNT EQU IEDQOPCD+316 02496000 OPPOLSTP EQU IEDQOPCD+312 02497000 OPCCKCIB EQU IEDQOPCD+308 02498000 OPCEND EQU IEDQOPCD+307 02499000 OPCSTCBS EQU IEDQOPCD+306 02500000 OPCHNEND EQU IEDQOPCD+302 02501000 OPCOQSW EQU IEDQOPCD+301 02502000 @NM00158 EQU OPCSPEC 02503000 @NM00157 EQU OPCSPEC 02504000 @NM00156 EQU OPCSPEC 02505000 @NM00155 EQU OPCSPEC 02506000 OPCFRMCA EQU OPCSPEC 02507000 OPCRSTRT EQU OPCSPEC 02508000 OPCPART EQU OPCSPEC 02509000 OPCALTD EQU OPCSPEC 02510000 OPCBFEND EQU IEDQOPCD+296 02511000 OPCBFIRS EQU IEDQOPCD+292 02512000 OPCAVBUF EQU IEDQOPCD+290 02513000 OPCIPLCT EQU IEDQOPCD+289 02514000 OPCCLNTS EQU IEDQOPCD+288 02515000 OPCHA8 EQU IEDQOPCD+286 02516000 OPCBFREQ EQU IEDQOPCD+284 02517000 OPCNEXT EQU IEDQOPCD+272 02518000 OPCFMDFC EQU IEDQOPCD+268 02519000 OPCSCNC EQU IEDQOPCD+264 02520000 OPCHORTG EQU IEDQOPCD+260 02521000 OPCCKPTL EQU IEDQOPCD+252 02522000 OPCCKPTF EQU IEDQOPCD+248 02523000 OPCWAITA EQU IEDQOPCD+244 02524000 OPCWAITR EQU IEDQOPCD+240 02525000 OPCWAITP EQU IEDQOPCD+236 02526000 OPCWAITO EQU IEDQOPCD+232 02527000 OPCWAITN EQU IEDQOPCD+228 02528000 OPCWAITL EQU IEDQOPCD+224 02529000 OPCWAITC EQU IEDQOPCD+220 02530000 @NM00154 EQU OPCLDNME+5 02531000 @NM00153 EQU OPCLDNME 02532000 OPCWAIT EQU IEDQOPCD+192 02533000 OPCCKERB EQU IEDQOPCD+164 02534000 OPCBFERB EQU IEDQOPCD+148 02535000 OPCFLAG2 EQU IEDQOPCD+147 02536000 OPCWRKSZ EQU IEDQOPCD+144 02537000 OPCWORK EQU IEDQOPCD+140 02538000 OPCRSAVE EQU IEDQOPCD+132 02539000 OPCQCBAD EQU IEDQOPCD+128 02540000 OPCTRMWA EQU IEDQOPCD+52 02541000 OPCPSTWT EQU IEDQOPCD+48 02542000 OPCTNTEA EQU IEDQOPCD+44 02543000 OPCPGCK EQU IEDQOPCD+40 02544000 OPCLCB EQU IEDQOPCD+36 02545000 OPCIPLAD EQU IEDQOPCD+28 02546000 OPCTOFLK EQU IEDQOPCD+24 02547000 OPCOPTLK EQU IEDQOPCD+20 02548000 OPCDCBLK EQU IEDQOPCD+16 02549000 OPCDOUBL EQU IEDQOPCD 02550000 @NM00143 EQU OCLDNME+6 02551000 OC1SQID EQU OCLDNME+4 02552000 OCWAITPC EQU OCPREFLG 02553000 OCSRCCLN EQU OCPREFLG 02554000 OCREMCON EQU OCPREFLG 02555000 OCCLNUP EQU OCPREFLG 02556000 OCTOTEP EQU OCPREFLG 02557000 OCREPOST EQU OCPREFLG 02558000 OCRSPSNT EQU OCPREFLG 02559000 OCBFREQ EQU OCPREFLG 02560000 OCIDLE EQU OCREQFLG 02561000 OCFORCE EQU OCREQFLG 02562000 OCDCARD EQU OCREQFLG 02563000 OCPARTAL EQU OCREQFLG 02564000 OCADNCP EQU OCREQFLG 02565000 OCRMPORQ EQU OCREQFLG 02566000 OCCDLACT EQU OCREQFLG 02567000 OCFLUSHZ EQU OCREQFLG 02568000 OCRESPCT EQU OCLINTTE 02569000 OCDSUBA EQU OCFLOADP+2 02570000 OCOSUBA EQU OCLSTTC 02571000 OCURC EQU OCOID 02572000 OCCKPTWA EQU OCCKDATA+4 02573000 OCSRCTTC EQU OCNCP 02574000 OCCKDAT2 EQU OC379RRT+1 02575000 OCCKDAT1 EQU OC379RRT 02576000 OCVRLST EQU OCECHOPT 02577000 OCPUADR EQU OCIPLWA+2 02578000 OCWTGSAV EQU OCIPLWA 02579000 OCDVRDCT EQU OCBACKUP+6 02580000 @NM00129 EQU OCBACKUP+4 02581000 OCBUFRET EQU OCCOUNT2 02582000 OCBUFUSD EQU OCCOUNT1 02583000 OCRESNUM EQU OCPARM 02584000 OCSEQ EQU OCTRUNIT+2 02585000 OCPEND EQU OCLNTYP 02586000 OCQUED EQU OCLNTYP 02587000 OCDOWN EQU OCLNTYP 02588000 OCALACT EQU OCLNTYP 02589000 OCLNQDAP EQU OCFLAG1 02590000 OCTYPTRM EQU OCFLAG1 02591000 OCREDRVE EQU OCALSTAT 02592000 OCSEQIND EQU OCALSTAT 02593000 OCDACTIP EQU OCFNAALL 02594000 OCDIALX EQU OCWTGB 02595000 OCATNDX EQU OCMSTSAV+2 02596000 OCREQVAL EQU OCDEST+1 02597000 OCCONID EQU OCDEST 02598000 OCTGN EQU OCLOCAD 02599000 OCSSCP EQU OCFLAG 02600000 OCOUTPUT EQU OCFLAG 02601000 OCLINE EQU OCFLAG 02602000 OCMPP EQU OCFLAG 02603000 OCCONSOL EQU OCFLAG 02604000 @NM00128 EQU OCSWITCH 02605000 OCQUCKN EQU OCSWITCH 02606000 OCPRIFLG EQU OCOPTCDE 02607000 @NM00127 EQU OCUNITBF 02608000 OCINVTIC EQU OCUNITBF 02609000 @NM00126 EQU OCUNITBF 02610000 @NM00125 EQU @NM00124 02611000 @NM00123 EQU OCSCAN 02612000 OCNOTUCB EQU OCSCAN 02613000 OCNONAME EQU OCSCAN 02614000 OCALLRLN EQU OCSCAN 02615000 OCDDNAME EQU OCSCAN 02616000 OCDDNRLN EQU OCSCAN 02617000 OCADDR EQU OCSCAN 02618000 NSLILUTT EQU IEDNSLD+48 02619000 NSLTTEND EQU NSLGRPNM+4 02620000 NSLOPCEP EQU NSLTTEBG 02621000 NSLREQTY EQU IEDNSLD+35 02622000 @NM00122 EQU IEDNSLD+34 02623000 NSLUNREQ EQU NSLUNCNT+1 02624000 NSLBFREQ EQU NSLUNCNT 02625000 NSLBUFFR EQU NSLERB+9 02626000 @NM00121 EQU NSLESTAT 02627000 NSLMPPI EQU NSLESTAT 02628000 @NM00120 EQU NSLESTAT 02629000 NSLELINK EQU NSLERB+5 02630000 NSLERBPR EQU NSLERB+4 02631000 NSLERQCB EQU NSLERB 02632000 NSLFLGBK EQU IEDNSLD+19 02633000 NSLPRIBK EQU IEDNSLD+18 02634000 NSLTTCIN EQU IEDNSLD+16 02635000 NSLCTTRM EQU IEDNSLD+13 02636000 @NM00119 EQU NSLGPCUS 02637000 NSLDRDRV EQU NSLGPCUS 02638000 NSLSDIAL EQU NSLGPCUS 02639000 NSLNGPSL EQU NSLGPCUS 02640000 NSLGPTSP EQU NSLGPCUS 02641000 NSLNGPST EQU NSLGPCUS 02642000 NSLSAVE EQU IEDNSLD+9 02643000 @NM00118 EQU NSLPLCB 02644000 NSLPLCBR EQU NSLPLCB 02645000 NSLOPRE EQU IEDNSLD 02646000 NSLSAVE2 EQU IEDNNSLD+4 02647000 NSLSAVE1 EQU IEDNNSLD 02648000 UCBERADR EQU UCBUCS+12 02649000 UCBFCBID EQU UCBUCS+8 02650000 UCBERCNT EQU UCBUCS+7 02651000 UCBRSV51 EQU UCBUCS+6 02652000 UCBFCBPE EQU UCBFCBOP 02653000 UCBRSV49 EQU UCBFCBOP 02654000 UCBRSV48 EQU UCBFCBOP 02655000 UCBRSV47 EQU UCBFCBOP 02656000 UCBRSV46 EQU UCBFCBOP 02657000 UCBRSV45 EQU UCBFCBOP 02658000 UCBRSV44 EQU UCBFCBOP 02659000 UCBFCBO1 EQU UCBFCBOP 02660000 UCBUCSPE EQU UCBUCSOP 02661000 UCBRSV43 EQU UCBUCSOP 02662000 UCBRSV42 EQU UCBUCSOP 02663000 UCBRSV41 EQU UCBUCSOP 02664000 UCBRSV40 EQU UCBUCSOP 02665000 UCBRSV39 EQU UCBUCSOP 02666000 UCBUCSO2 EQU UCBUCSOP 02667000 UCBUCSO1 EQU UCBUCSOP 02668000 UCBUCSID EQU UCBUCS 02669000 UCBMDRBA EQU UCBMDRBF+1 02670000 UCBRV075 EQU UCBMDRBF 02671000 UCBRV074 EQU UCB3800X+32 02672000 UCBIMAGE EQU UCB3800X+28 02673000 UCBFCBNM EQU UCB3800X+24 02674000 UCBCHAR4 EQU UCB3800X+20 02675000 UCBCHAR3 EQU UCB3800X+16 02676000 UCBCHAR2 EQU UCB3800X+12 02677000 UCBCHAR1 EQU UCB3800X+8 02678000 UCBCGMID EQU UCB3800X+4 02679000 UCBBRSTA EQU UCBACTIV 02680000 UCBRV063 EQU UCBACTIV 02681000 UCBRV062 EQU UCBACTIV 02682000 UCBRV061 EQU UCBACTIV 02683000 UCBRV060 EQU UCBACTIV 02684000 UCBRV059 EQU UCBACTIV 02685000 UCBRV058 EQU UCBACTIV 02686000 UCBRV057 EQU UCBACTIV 02687000 UCBRV050 EQU UCB3800X+2 02688000 UCBCGMNO EQU UCB3800X+1 02689000 UCBRV083 EQU UCBOPTNS 02690000 UCBBRSTR EQU UCBOPTNS 02691000 UCBRV056 EQU UCBOPTNS 02692000 UCBRV055 EQU UCBOPTNS 02693000 UCBRV054 EQU UCBOPTNS 02694000 UCBRV053 EQU UCBOPTNS 02695000 UCBRV052 EQU UCBOPTNS 02696000 UCBRV051 EQU UCBOPTNS 02697000 UCBRV073 EQU UCB3540X+7 02698000 UCBRV072 EQU UCBDKBYT 02699000 UCBRV071 EQU UCBDKBYT 02700000 UCBRV070 EQU UCBDKBYT 02701000 UCBRV069 EQU UCBDKBYT 02702000 UCBRV068 EQU UCBDKBYT 02703000 UCBRV067 EQU UCBDKBYT 02704000 UCBVLVER EQU UCBDKBYT 02705000 UCBDKAMX EQU UCBDKBYT 02706000 UCBVLSER EQU UCB3540X 02707000 UCBRDATA EQU UCBOCR+4 02708000 UCBFRID EQU UCBOCR 02709000 UCBCLN EQU UCBMT+14 02710000 UCBERG EQU UCBMT+12 02711000 UCBMS EQU UCBMT+11 02712000 UCBNB EQU UCBMT+10 02713000 UCBPW EQU UCBMT+9 02714000 UCBPR EQU UCBMT+8 02715000 UCBSIO EQU UCBMT+6 02716000 UCBTW EQU UCBMT+5 02717000 UCBTR EQU UCBMT+4 02718000 UCBTWT EQU UCBMT+3 02719000 UCBTRT EQU UCBMT+2 02720000 UCBCTD EQU UCBMT 02721000 UCBWTOID EQU UCBCMEXT+17 02722000 UCBMIHET EQU UCBMIHTI 02723000 UCBMIHT2 EQU UCBMIHTI 02724000 UCBMIHT1 EQU UCBMIHTI 02725000 UCBMIHPB EQU UCBMIHTI 02726000 UCBMIHSF EQU UCBMIHTI 02727000 UCBASID EQU UCBCMEXT+14 02728000 UCBMFCNT EQU UCBCMEXT+12 02729000 UCBPMSK EQU UCBCMEXT+10 02730000 UCBCCWOF EQU UCBCMEXT+8 02731000 UCBRV041 EQU UCBCMEXT+6 02732000 UCBRV036 EQU UCBFLP1 02733000 UCBRV035 EQU UCBFLP1 02734000 UCBERLOG EQU UCBFLP1 02735000 UCBSWAPF EQU UCBFLP1 02736000 UCBINHIO EQU UCBFLP1 02737000 UCBNSWAP EQU UCBFLP1 02738000 UCBSHRUP EQU UCBFLP1 02739000 UCBNSRCH EQU UCBFLP1 02740000 UCBSNSCT EQU UCBCMEXT+4 02741000 UCBHPDV EQU @NM00117 02742000 UCBHALI EQU @NM00117 02743000 UCBRSV09 EQU @NM00117 02744000 UCBRSV08 EQU @NM00117 02745000 UCBRSV07 EQU @NM00117 02746000 UCBRSV06 EQU @NM00117 02747000 UCBRSV05 EQU @NM00117 02748000 UCBRSV04 EQU @NM00117 02749000 UCBDTI EQU UCBCMEXT+2 02750000 UCBSTI EQU UCBCMEXT+1 02751000 UCBETI EQU UCBCMEXT 02752000 UCBEXTP EQU UCBEXTPT+1 02753000 UCBDDRSW EQU UCBFLC 02754000 UCBTICBT EQU UCBFLC 02755000 UCBIVRR EQU UCBFLC 02756000 UCBIVRS EQU UCBFLC 02757000 UCBITF EQU UCBFLC 02758000 UCBUDE EQU UCBFLC 02759000 UCBWAA EQU UCBFLC 02760000 UCBATTP EQU UCBFLC 02761000 UCBUNTYP EQU UCBTBYT4 02762000 UCBRSV11 EQU UCBDVCLS 02763000 UCBRSV10 EQU UCBDVCLS 02764000 UCB3CHAR EQU UCBDVCLS 02765000 UCB3UREC EQU UCBDVCLS 02766000 UCB3DISP EQU UCBDVCLS 02767000 UCB3DACC EQU UCBDVCLS 02768000 UCB3COMM EQU UCBDVCLS 02769000 UCB3TAPE EQU UCBDVCLS 02770000 UCBDVPWR EQU UCB2OPT7 02771000 UCBVLPWR EQU UCB2OPT6 02772000 UCB2OPT5 EQU UCBTBYT2 02773000 UCBRVDEV EQU UCBRWTAU 02774000 UCBRPS EQU UCBDUDN2 02775000 UCBRR EQU UCBDUDN1 02776000 UCB2OPT1 EQU UCBTBYT2 02777000 UCB2OPT0 EQU UCBTBYT2 02778000 UCB1FEA7 EQU UCBTBYT1 02779000 UCBD6250 EQU UCB1FEA6 02780000 UCBD1600 EQU UCB1FEA5 02781000 UCB1FEA4 EQU UCBTBYT1 02782000 UCB1FEA3 EQU UCBTBYT1 02783000 UCB1FEA2 EQU UCBTBYT1 02784000 UCB1FEA1 EQU UCBTBYT1 02785000 UCB1FEA0 EQU UCBTBYT1 02786000 UCBRV029 EQU UCBWGT 02787000 UCBVHRSN EQU UCBWGT 02788000 UCBVORSN EQU UCBWGT 02789000 UCBMTPXP EQU UCBWGT 02790000 UCBREW EQU UCBWGT 02791000 UCBPUB EQU UCBWGT 02792000 UCBOUT EQU UCBWGT 02793000 UCBIN EQU UCBWGT 02794000 UCBCPU EQU UCBOB+11 02795000 UCBLCI EQU UCBOB+10 02796000 UCBCNT EQU UCBOB+9 02797000 UCBRV017 EQU UCBCHM1 02798000 UCBRV016 EQU UCBCHM1 02799000 UCBRV015 EQU UCBCHM1 02800000 UCBRV014 EQU UCBCHM1 02801000 UCBSPB EQU UCBPTH1 02802000 UCBPPB EQU UCBPTH1 02803000 UCBSPA EQU UCBPTH0 02804000 UCBPPA EQU UCBPTH0 02805000 UCBSIGP EQU UCBFLB 02806000 UCBVALPH EQU UCBFLB 02807000 UCBCRHSN EQU UCBFLB 02808000 UCBCRHRV EQU UCBFLB 02809000 UCBRESVH EQU UCBFLB 02810000 UCBSPST EQU UCBFLB 02811000 UCBASNS EQU UCBFLB 02812000 UCBIORST EQU UCBFLB 02813000 UCBQISCE EQU UCBFL1 02814000 UCBACTV EQU UCBFL1 02815000 UCBSAP EQU UCBFL1 02816000 UCBNOTRC EQU UCBCUB 02817000 UCBPSNS EQU UCBFL1 02818000 UCBUSING EQU UCBPST 02819000 UCBNOTRD EQU UCBNRY 02820000 UCBBUSYD EQU UCBBSY 02821000 UCBUA EQU UCBCHAN+1 02822000 UCBCHA EQU UCBCHAN 02823000 UCBDADI EQU UCBSTAT 02824000 UCBSYSR EQU UCBSTAT 02825000 UCBPRES EQU UCBSTAT 02826000 UCBALOC EQU UCBSTAT 02827000 UCBUNLD EQU UCBSTAT 02828000 UCBRESV EQU UCBSTAT 02829000 UCBCHGS EQU UCBSTAT 02830000 UCBONLI EQU UCBSTAT 02831000 UCBID EQU UCBOB+2 02832000 UCBALTPH EQU UCBFL5 02833000 UCBALTCU EQU UCBFL5 02834000 UCBNALOC EQU UCBFL5 02835000 UCBENVRD EQU UCBFL5 02836000 UCBVSDR EQU UCBFL5 02837000 UCBSASK EQU UCBFL5 02838000 UCBAMV EQU UCBAF 02839000 UCBDCC EQU UCBFL5 02840000 UCBMONT EQU UCBJBNR 02841000 UCBRV011 EQU UCBJBNR 02842000 UCBMMSGP EQU UCBJBNR 02843000 UCBOLDSM EQU UCBJBNR 02844000 UCBRV003 EQU UCBJBNR 02845000 UCBDUC EQU UCBJBNR 02846000 UCBJES3 EQU UCBJBNR 02847000 UCBVRDEV EQU UCBJBNR 02848000 UCBCMSEG EQU UCBOB 02849000 UCBPFXND EQU UCB+512 02850000 UCBIOQ EQU UCB+508 02851000 UCBLOCK EQU UCB+504 02852000 UCBPXST EQU UCB+504 02853000 @NM00114 EQU UCB 02854000 DEBNMTRK EQU DEBDASD+14 02855000 DEBENDHH EQU DEBDASD+12 02856000 DEBENDCC EQU DEBDASD+10 02857000 DEBSTRHH EQU DEBDASD+8 02858000 DEBSTRCC EQU DEBDASD+6 02859000 DEBBINUM EQU DEBDASD+4 02860000 DEBUCBA EQU DEBUCBPT+1 02861000 DEBDVMDF EQU DEBUCBPT 02862000 DEBAPPAD EQU IEDQDEB+65 02863000 DEBEXSCL EQU IEDQDEB+64 02864000 DEBDCBAD EQU IEDQDEB+61 02865000 DEBPROTG EQU IEDQDEB+60 02866000 DEBECBAD EQU IEDQDEB+57 02867000 DEBPRIOR EQU IEDQDEB+56 02868000 DEBUSRPG EQU IEDQDEB+53 02869000 DEBSYSPG EQU IEDQDEB+49 02870000 DEBOPATB EQU IEDQDEB+48 02871000 DEBIRBAD EQU IEDQDEB+45 02872000 DEBOFLGS EQU IEDQDEB+44 02873000 DEBDEBAD EQU IEDQDEB+41 02874000 DEBAMLNG EQU IEDQDEB+40 02875000 DEBTCBAD EQU IEDQDEB+37 02876000 @NM00113 EQU DEBPRF+33 02877000 DEBLNGTH EQU DEBPRF+32 02878000 DEBDCBMK EQU DEBPRF+28 02879000 DEBDSCBA EQU DEBPRF+21 02880000 DEBWKARA EQU DEBPRF+20 02881000 DEBXCEA EQU DEBAPVT+16 02882000 DEBCEA EQU DEBAPVT+12 02883000 DEBPCIA EQU DEBAPVT+8 02884000 DEBSIOA EQU DEBAPVT+4 02885000 DEBEOEA EQU DEBAPVT 02886000 DCBBUFSI EQU IHADCS43+6 02887000 DCBUNTCT EQU IHADCS43+5 02888000 DCBILCT EQU IHADCS43+4 02889000 DCBSCTAD EQU DCBSCTAB+1 02890000 @NM00112 EQU DCBSCTAB 02891000 DCBPUTA EQU DCBGETA 02892000 @NM00111 EQU DCBPUT 02893000 DCBDEBA EQU DCBDEBAD+1 02894000 @NM00110 EQU DCBIFLGS 02895000 DCBIFIOE EQU DCBIFLGS 02896000 DCBCH12 EQU DCBIFPCT 02897000 DCBCH9 EQU DCBIFPCT 02898000 DCBIFEC EQU DCBIFLGS 02899000 DCBMFSTI EQU DCBMFDMD 02900000 DCBMFAWR EQU DCBMFSTK 02901000 DCBMFUIP EQU DCBMFTMD 02902000 DCBMFIDW EQU DCBMFLCP 02903000 DCBMFWRK EQU DCBMFMVP 02904000 DCBMFRDQ EQU DCBMFWRT 02905000 DCBMFGTQ EQU DCBMFPUT 02906000 DCBMFSTL EQU DCBMACF2 02907000 DCBMFCK EQU DCBMFDMG 02908000 DCBMFRDX EQU DCBMFCHK 02909000 DCBMFDBF EQU DCBMFSBG 02910000 DCBMFRDI EQU DCBMFLCG 02911000 DCBMFRDK EQU DCBMFMVG 02912000 DCBMFWRQ EQU DCBMFRD 02913000 DCBMFPTQ EQU DCBMFGET 02914000 DCBMFECP EQU DCBMACF1 02915000 DCBTIOT EQU IHADCS25 02916000 DCBMRSTI EQU DCBMRDMD 02917000 DCBMRAWR EQU DCBMRSTK 02918000 DCBMRUIP EQU DCBMRTMD 02919000 DCBMRIDW EQU DCBMRLCP 02920000 DCBMRWRK EQU DCBMRMVP 02921000 DCBMRRDQ EQU DCBMRWRT 02922000 DCBMRGTQ EQU DCBMRPUT 02923000 DCBMRSTL EQU DCBMACR2 02924000 DCBMRCK EQU DCBMRDMG 02925000 DCBPGFXA EQU DCBMRRDX 02926000 DCBMRDBF EQU DCBMRSBG 02927000 DCBMRRDI EQU DCBMRLCG 02928000 DCBMRRDK EQU DCBMRMVG 02929000 DCBMRWRQ EQU DCBMRRD 02930000 DCBMRPTQ EQU DCBMRGET 02931000 DCBMRECP EQU DCBMACR1 02932000 @NM00109 EQU DCBIFLG 02933000 DCBIBIOE EQU DCBIFLG 02934000 DCBICH12 EQU DCBIBPCT 02935000 DCBICH9 EQU DCBIBPCT 02936000 DCBIBEC EQU DCBIFLG 02937000 DCBOFIOF EQU DCBOFLGS 02938000 DCBOFUEX EQU DCBOFLGS 02939000 DCBOFTM EQU DCBOFLGS 02940000 DCBOFPPC EQU DCBOFLGS 02941000 DCBOFOPN EQU DCBOFLGS 02942000 DCBOFEOV EQU DCBOFLGS 02943000 DCBOFLRB EQU DCBOFLGS 02944000 DCBOFIOD EQU DCBOFLWR 02945000 DCBDDNAM EQU IHADCS24 02946000 DCBEXLSA EQU DCBEXLST+1 02947000 DCBEIOBX EQU DCBEXLST 02948000 DCBRNCKA EQU DCBRNCKD+1 02949000 @NM00108 EQU DCBRNCKD 02950000 DCBIOBAD EQU IHADCS2K+8 02951000 DCBDSGTR EQU DCBDSRG2 02952000 @NM00107 EQU DCBDSRG2 02953000 DCBDSRG1 EQU DCBDSORG 02954000 DCBCHNGL EQU DCBTRSTA 02955000 DCBNIDLE EQU DCBTRSTA 02956000 DCBBAKUP EQU DCBTRSTA 02957000 DCBIPLED EQU DCBTRSTA 02958000 DCBRSTRT EQU DCBTRSTA 02959000 DCBINITL EQU DCBTRSTA 02960000 DCBAUTOD EQU DCBTRSTA 02961000 DCBAUTOI EQU DCBTRSTA 02962000 @NM00106 EQU IHADCS2K+4 02963000 DCBDUMPA EQU DCBDUMPD+1 02964000 DCBUNITN EQU DCBDUMPD 02965000 DCBBCKUA EQU DCBBCKUP+1 02966000 @NM00105 EQU DCBBCKUP 02967000 DCBIPLTX EQU IHADCS1A 02968000 @NM00104 EQU IHADCB 02969000 SAVTAUXC EQU IEDNSVTD+772 02970000 SAVTSCAN EQU IEDNSVTD+768 02971000 SAVTFCSP EQU IEDNSVTD+764 02972000 SAVTFCSN EQU IEDNSVTD+760 02973000 SAVTFCLI EQU IEDNSVTD+756 02974000 SAVTVARR EQU IEDNSVTD+752 02975000 SAVTFCIN EQU IEDNSVTD+748 02976000 SAVTPTNT EQU IEDNSVTD+744 02977000 SAVTFSAB EQU IEDNSVTD+740 02978000 SAVTGSAB EQU IEDNSVTD+736 02979000 SAVTARSI EQU IEDNSVTD+728 02980000 SAVTARSQ EQU IEDNSVTD+724 02981000 SAVTSABP EQU IEDNSVTD+720 02982000 SAVTPUS EQU IEDNSVTD+716 02983000 SAVTEACR EQU IEDNSVTD+712 02984000 SAVTERAV EQU IEDNSVTD+708 02985000 SAVTCINO EQU IEDNSVTD+704 02986000 SAVTEAVR EQU IEDNSVTD+700 02987000 SAVTEVRP EQU IEDNSVTD+696 02988000 SAVTNLSA EQU IEDNSVTD+692 02989000 SAVTENOP EQU IEDNSVTD+688 02990000 SAVTEROP EQU IEDNSVTD+684 02991000 SAVTEACT EQU IEDNSVTD+680 02992000 SAVTEMGR EQU IEDNSVTD+676 02993000 SAVTEBRQ EQU IEDNSVTD+672 02994000 @NM00103 EQU IEDNSVTD+668 02995000 SAVTERFB EQU IEDNSVTD+664 02996000 SAVTERRB EQU IEDNSVTD+660 02997000 SAVTRTSB EQU IEDNSVTD+656 02998000 SAVTERCQ EQU IEDNSVTD+652 02999000 SAVTVPMG EQU IEDNSVTD+648 03000000 SAVTVNFY EQU IEDNSVTD+644 03001000 SAVTVNOP EQU IEDNSVTD+640 03002000 SAVTVDVR EQU IEDNSVTD+636 03003000 SAVTVDAC EQU IEDNSVTD+632 03004000 SAVTVACT EQU IEDNSVTD+628 03005000 SAVTVAVR EQU IEDNSVTD+624 03006000 SAVTVCVD EQU IEDNSVTD+620 03007000 SAVTVCVA EQU IEDNSVTD+616 03008000 SAVTVMGR EQU IEDNSVTD+612 03009000 SAVTVRIT EQU IEDNSVTD+608 03010000 SAVTERTP EQU IEDNSVTD+604 03011000 SAVTVRTE EQU IEDNSVTD+600 03012000 SAVTERMP EQU IEDNSVTD+596 03013000 SAVTVRTP EQU IEDNSVTD+592 03014000 SAVTWSET EQU IEDNSVTD+588 03015000 SAVTCOSP EQU IEDNSVTD+584 03016000 SAVTINIQ EQU IEDNSVTD+580 03017000 SAVTVRMM EQU IEDNSVTD+576 03018000 SAVTVERI EQU IEDNSVTD+572 03019000 SAVTVRER EQU IEDNSVTD+568 03020000 SAVTFCTL EQU IEDNSVTD+564 03021000 SAVTCNOT EQU IEDNSVTD+560 03022000 SAVTCMMD EQU IEDNSVTD+556 03023000 SAVTCGBU EQU IEDNSVTD+552 03024000 SAVTCBND EQU IEDNSVTD+548 03025000 SAVTPCT2 EQU IEDNSVTD+544 03026000 @NM00102 EQU IEDNSVTD+540 03027000 SAVTERTS EQU IEDNSVTD+536 03028000 SAVTERVR EQU IEDNSVTD+532 03029000 SAVTLST0 EQU IEDNSVTD+530 03030000 SAVTVRTM EQU IEDNSVTD+528 03031000 SAVTVRTC EQU IEDNSVTD+526 03032000 SAVTVRTN EQU IEDNSVTD+524 03033000 SAVTMTPF EQU IEDNSVTD+523 03034000 SAVTMERN EQU IEDNSVTD+522 03035000 SAVTMVRN EQU IEDNSVTD+521 03036000 SAVTSAVR EQU IEDNSVTD+520 03037000 SAVTDEFA EQU IEDNSVTD+516 03038000 SAVTDEFR EQU IEDNSVTD+515 03039000 @NM00101 EQU IEDNSVTD+514 03040000 SAVTDEFL EQU IEDNSVTD+512 03041000 SAVTTDEF EQU IEDNSVTD+508 03042000 SAVTSESN EQU IEDNSVTD+504 03043000 SAVTLCNT EQU IEDNSVTD+502 03044000 SAVTSMAX EQU IEDNSVTD+500 03045000 SAVTSINO EQU IEDNSVTD+498 03046000 SAVTAMAX EQU IEDNSVTD+496 03047000 SAVTAENO EQU IEDNSVTD+494 03048000 SAVTAINO EQU IEDNSVTD+492 03049000 SAVTNMAX EQU IEDNSVTD+490 03050000 SAVTNENO EQU IEDNSVTD+488 03051000 SAVTNINO EQU IEDNSVTD+486 03052000 SAVTRSZE EQU IEDNSVTD+484 03053000 SAVTRMAX EQU IEDNSVTD+482 03054000 SAVTRENO EQU IEDNSVTD+480 03055000 SAVTRINO EQU IEDNSVTD+478 03056000 SAVTRMIN EQU IEDNSVTD+476 03057000 SAVTPMID EQU IEDNSVTD+474 03058000 SAVTRRTC EQU IEDNSVTD+472 03059000 SAVTLUSG EQU IEDNSVTD+468 03060000 SAVTACNQ EQU IEDNSVTD+464 03061000 SAVTCM20 EQU IEDNSVTD+460 03062000 SAVTCFDC EQU IEDNSVTD+456 03063000 SAVTCMOT EQU IEDNSVTD+452 03064000 SAVTCMIN EQU IEDNSVTD+448 03065000 SAVTCPCH EQU IEDNSVTD+444 03066000 SAVTCRGT EQU IEDNSVTD+440 03067000 SAVTNALC EQU IEDNSVTD+436 03068000 SAVTATCT EQU IEDNSVTD+434 03069000 SAVTCRIU EQU IEDNSVTD+432 03070000 SAVTCRHI EQU IEDNSVTD+430 03071000 SAVTCRIB EQU IEDNSVTD+428 03072000 SAVTLCQ EQU IEDNSVTD+424 03073000 SAVTDRSR EQU IEDNSVTD+420 03074000 SAVTATPT EQU IEDNSVTD+416 03075000 SAVTCSMI EQU IEDNSVTD+412 03076000 SAVTNXCR EQU IEDNSVTD+408 03077000 SAVTCRPT EQU IEDNSVTD+404 03078000 SAVTCIPH EQU IEDNSVTD+400 03079000 SAVTBTCO EQU IEDNSVTD+396 03080000 SAVTBTCI EQU IEDNSVTD+392 03081000 SAVTBPCO EQU IEDNSVTD+388 03082000 SAVTBPCI EQU IEDNSVTD+384 03083000 SAVTLLCB EQU IEDNSVTD+380 03084000 SAVTSCF0 EQU IEDNSVTD+376 03085000 SAVTLSNY EQU IEDNSVTD+372 03086000 SAVTLSZP EQU IEDNSVTD+368 03087000 SAVTOMSU EQU IEDNSVTD+364 03088000 SAVTGTSB EQU IEDNSVTD+360 03089000 SAVTHIBL EQU IEDNSVTD+356 03090000 SAVTHISY EQU IEDNSVTD+352 03091000 SAVTNAX2 EQU IEDNSVTD+348 03092000 SAVTCDRU EQU IEDNSVTD+344 03093000 SAVTPOLC EQU IEDNSVTD+342 03094000 SAVTPOLM EQU IEDNSVTD+340 03095000 SAVTPOLR EQU IEDNSVTD+336 03096000 SAVTCDRN EQU SAVTCDRV 03097000 SAVTPOLL EQU IEDNSVTD+328 03098000 SAVTPOLN EQU IEDNSVTD+326 03099000 @NM00100 EQU IEDNSVTD+325 03100000 @NM00099 EQU SAVTNETF 03101000 SAVTPTRC EQU SAVTNETF 03102000 SAVTSDIS EQU SAVTNETF 03103000 SAVTROUT EQU SAVTNETF 03104000 SAVTNETW EQU SAVTNETF 03105000 SAVTDIAL EQU IEDNSVTD+320 03106000 SAVTRQUT EQU IEDNSVTD+316 03107000 SAVTBITN EQU IEDNSVTD+312 03108000 @NM00098 EQU SAVTCKQB+8 03109000 @NM00097 EQU SAVTCKEC+1 03110000 @NM00096 EQU SAVTCKCC 03111000 SAVTCKPO EQU SAVTCKCC 03112000 SAVTCKWA EQU SAVTCKCC 03113000 SAVTCKCH EQU SAVTCKTB+1 03114000 SAVTCKVT EQU SAVTCKTB 03115000 @NM00095 EQU IEDNSVTD+297 03116000 SAVTRDFG EQU SAVTRDRV+12 03117000 @NM00094 EQU SAVTRDRV+5 03118000 SAVTRDPY EQU SAVTRDRV+4 03119000 SAVTRDQB EQU SAVTRDRV+1 03120000 SAVTRDKY EQU SAVTRDRV 03121000 SAVTNID EQU IEDNSVTD+280 03122000 SAVTDVAS EQU IEDNSVTD+276 03123000 SAVTPLSZ EQU IEDNSVTD+274 03124000 @NM00093 EQU IEDNSVTD+273 03125000 SAVTSUBL EQU IEDNSVTD+272 03126000 @NM00092 EQU SAVTZELM+1 03127000 SAVTSUBM EQU SAVTZELM 03128000 SAVTMHDX EQU IEDNSVTD+268 03129000 SAVTNAT1 EQU IEDNSVTD+266 03130000 SAVTSH20 EQU IEDNSVTD+264 03131000 SAVTLCBS EQU IEDNSVTD+260 03132000 SAVTRNMP EQU IEDNSVTD+256 03133000 SAVTTNTX EQU IEDNSVTD+252 03134000 SAVTNAX EQU IEDNSVTD+248 03135000 SAVTSUBV EQU IEDNSVTD+247 03136000 SAVTSUBA EQU IEDNSVTD+246 03137000 SAVTSIBC EQU IEDNSVTD+244 03138000 SAVTBSM EQU IEDNSVTD+240 03139000 SAVTSCPT EQU SAVTTCPU 03140000 SAVTRQTG EQU IEDNSVTD+236 03141000 SAVTRQCH EQU IEDNSVTD+232 03142000 SAVTMAND EQU IEDNSVTD+228 03143000 SAVTSPLN EQU IEDNSVTD+224 03144000 SAVTNADL EQU IEDNSVTD+222 03145000 SAVTNATL EQU IEDNSVTD+220 03146000 SAVTMHTB EQU IEDNSVTD+216 03147000 SAVTSSMH EQU IEDNSVTD+212 03148000 SAVTQRS EQU IEDNSVTD+208 03149000 SAVTRQIN EQU IEDNSVTD+204 03150000 SAVTDFCO EQU IEDNSVTD+200 03151000 SAVTSAO EQU IEDNSVTD+196 03152000 SAVTSARI EQU IEDNSVTD+192 03153000 SAVTSAC EQU IEDNSVTD+188 03154000 SAVTSAI EQU IEDNSVTD+184 03155000 SAVTCSCI EQU IEDNSVTD+180 03156000 SAVTSSRP EQU IEDNSVTD+176 03157000 SAVTSSRQ EQU IEDNSVTD+172 03158000 SAVTEP EQU SAVTSCLU 03159000 SAVTXTRQ EQU IEDNSVTD+164 03160000 SAVTMVBF EQU IEDNSVTD+160 03161000 @NM00091 EQU IEDNSVTD+148 03162000 SAVTIPCQ EQU IEDNSVTD+144 03163000 @NM00090 EQU IEDNSVTD+136 03164000 SAVTXFMI EQU IEDNSVTD+132 03165000 @NM00089 EQU IEDNSVTD+124 03166000 SAVTXFMO EQU IEDNSVTD+120 03167000 @NM00088 EQU IEDNSVTD+116 03168000 SAVTSSSR EQU IEDNSVTD+112 03169000 SAVTSCPQ EQU IEDNSVTD+108 03170000 SAVTSLCB EQU IEDNSVTD+104 03171000 SAVTLUSR EQU IEDNSVTD+100 03172000 @NM00087 EQU SAVTLUSQ+8 03173000 SAVTLUSP EQU SAVTLUSQ+4 03174000 SAVTLUSB EQU SAVTLUSQ 03175000 @NM00086 EQU IEDNSVTD+84 03176000 SAVTSAT EQU IEDNSVTD+80 03177000 SAVTNAT EQU IEDNSVTD+76 03178000 SAVTCLUP EQU IEDNSVTD+72 03179000 SAVTPIUT EQU IEDNSVTD+68 03180000 SAVTRNTA EQU IEDNSVTD+64 03181000 SAVTDNIR EQU IEDNSVTD+60 03182000 SAVTCNIR EQU IEDNSVTD+56 03183000 SAVTFLDH EQU IEDNSVTD+52 03184000 SAVTSRTN EQU IEDNSVTD+48 03185000 SAVTSREQ EQU IEDNSVTD+44 03186000 SAVTFAIL EQU IEDNSVTD+42 03187000 SAVTSUSE EQU IEDNSVTD+40 03188000 SAVTSIB EQU IEDNSVTD+36 03189000 SAVTPRTN EQU IEDNSVTD+32 03190000 @NM00085 EQU IEDNSVTD+28 03191000 SAVTWH20 EQU IEDNSVTD+26 03192000 SAVTPWT EQU IEDNSVTD+24 03193000 SAVTPRTQ EQU IEDNSVTD+20 03194000 SAVTPREQ EQU IEDNSVTD+16 03195000 SAVTPH20 EQU IEDNSVTD+14 03196000 SAVTPUSE EQU IEDNSVTD+12 03197000 SAVTPLCB EQU IEDNSVTD+8 03198000 SAVTPOOL EQU IEDNSVTD+4 03199000 SAVTPRMT EQU SAVTDIAF 03200000 SAVTVIRT EQU SAVTDIAF 03201000 AVTTVT EQU IEDQAVTD+1268 03202000 AVTSITS EQU IEDQAVTD+1264 03203000 AVTMSUHI EQU IEDQAVTD+1260 03204000 AVTSITU EQU IEDQAVTD+1256 03205000 AVTSITP EQU IEDQAVTD+1252 03206000 AVTPADDR EQU IEDQAVTD+1248 03207000 @NM00084 EQU IEDQAVTD+1246 03208000 AVTCPBNO EQU IEDQAVTD+1244 03209000 AVTHRESS EQU IEDQAVTD+1243 03210000 @NM00083 EQU IEDQAVTD+1242 03211000 @NM00082 EQU IEDQAVTD+1241 03212000 @NM00081 EQU IEDQAVTD+1240 03213000 @NM00080 EQU IEDQAVTD+1237 03214000 @NM00079 EQU IEDQAVTD+1236 03215000 AVTHRESE EQU @NM00078 03216000 AVTRADDR EQU IEDQAVTD+1228 03217000 AVTNADDR EQU IEDQAVTD+1224 03218000 AVTHRESN EQU IEDQAVTD+1220 03219000 AVTVOLRN EQU IEDQAVTD+1216 03220000 AVTTOTNN EQU IEDQAVTD+1212 03221000 AVTTRCYN EQU IEDQAVTD+1208 03222000 AVTRCTRN EQU IEDQAVTD+1204 03223000 AVTNOVON EQU IEDQAVTD+1200 03224000 AVTADEBN EQU IEDQAVTD+1196 03225000 AVTVOLRR EQU IEDQAVTD+1192 03226000 AVTTOTNR EQU IEDQAVTD+1188 03227000 AVTTRCYR EQU IEDQAVTD+1184 03228000 AVTRCTRR EQU IEDQAVTD+1180 03229000 AVTNOVOR EQU IEDQAVTD+1176 03230000 AVTADEBR EQU IEDQAVTD+1172 03231000 AVTLODPT EQU IEDQAVTD+1168 03232000 AVTIOBN EQU IEDQAVTD+1164 03233000 AVTIOBR EQU IEDQAVTD+1160 03234000 AVTCPBPT EQU IEDQAVTD+1156 03235000 AVTFCPB EQU IEDQAVTD+1152 03236000 @NM00077 EQU IEDQAVTD+1148 03237000 AVTINCPQ EQU IEDQAVTD+1144 03238000 @NM00076 EQU IEDQAVTD+1140 03239000 @NM00075 EQU IEDQAVTD+1137 03240000 @NM00074 EQU AVTBIT4 03241000 @NM00073 EQU AVTBIT4 03242000 @NM00072 EQU AVTBIT4 03243000 @NM00071 EQU AVTBIT4 03244000 @NM00070 EQU AVTBIT4 03245000 @NM00069 EQU AVTBIT4 03246000 @NM00068 EQU AVTBIT4 03247000 AVTRUFTN EQU AVTBIT4 03248000 @NM00067 EQU IEDQAVTD+1132 03249000 AVTNOBFQ EQU IEDQAVTD+1128 03250000 @NM00066 EQU IEDQAVTD+1124 03251000 AVTDKENQ EQU IEDQAVTD+1120 03252000 @NM00065 EQU IEDQAVTD+1116 03253000 AVTDKAPQ EQU IEDQAVTD+1112 03254000 AVTCOPY EQU IEDQAVTD+1108 03255000 AVTIA EQU IEDQAVTD+1104 03256000 AVTFL EQU IEDQAVTD+1100 03257000 @NM00064 EQU IEDQAVTD+1096 03258000 AVTNCPBQ EQU IEDQAVTD+1092 03259000 AVTTOTNC EQU IEDQAVTD+1088 03260000 AVTCMAX EQU IEDQAVTD+1084 03261000 AVTCMIN EQU IEDQAVTD+1080 03262000 AVTHM02 EQU IEDQAVTD+1076 03263000 AVTOPCIN EQU IEDQAVTD+1074 03264000 AVTDCTLN EQU IEDQAVTD+1072 03265000 AVTOPMSK EQU IEDQAVTD+1068 03266000 AVTDDFT EQU IEDQAVTD+1064 03267000 AVTSTEAL EQU IEDQAVTD+1060 03268000 AVTOPTN EQU IEDQAVTD+1056 03269000 AVTDSKCT EQU IEDQAVTD+1054 03270000 AVTCKRST EQU IEDQAVTD+1053 03271000 AVTSTAN EQU AVTBIT3 03272000 AVTSTACN EQU AVTBIT3 03273000 AVTSTAIN EQU AVTBIT3 03274000 AVTSTAYN EQU AVTBIT3 03275000 AVTOLTBN EQU AVTBIT3 03276000 AVTTSAB EQU AVTBIT3 03277000 AVTRFULN EQU AVTBIT3 03278000 AVTRECVN EQU AVTBIT3 03279000 @NM00063 EQU AVTBIT2 03280000 @NM00062 EQU AVTBIT2 03281000 AVTOPEIN EQU AVTBIT2 03282000 AVTSTRTN EQU AVTBIT2 03283000 AVTTOPOL EQU AVTBIT2 03284000 AVTCOPYN EQU AVTBIT2 03285000 AVTREUSN EQU AVTBIT2 03286000 AVTEXTSC EQU AVTBIT2 03287000 AVTDISKN EQU AVTBIT1 03288000 AVTQUCKN EQU AVTBIT1 03289000 AVTCLOSN EQU AVTBIT1 03290000 AVTREADN EQU AVTBIT1 03291000 AVTDLAYN EQU AVTBIT1 03292000 AVTAQTAN EQU AVTBIT1 03293000 AVTTSON EQU AVTBIT1 03294000 AVTAPLKN EQU AVTBIT1 03295000 AVTDUMBR EQU IEDQAVTD+1048 03296000 AVTDLQX EQU IEDQAVTD+1046 03297000 AVTINTLV EQU IEDQAVTD+1044 03298000 AVTSMCNT EQU IEDQAVTD+1042 03299000 AVTAVFCT EQU IEDQAVTD+1040 03300000 AVTOPCON EQU IEDQAVTD+1038 03301000 AVTOPCNT EQU IEDQAVTD+1036 03302000 AVTLNCNT EQU IEDQAVTD+1034 03303000 AVTKEYLE EQU IEDQAVTD+1032 03304000 AVTHA16 EQU IEDQAVTD+1030 03305000 AVTHA7 EQU IEDQAVTD+1028 03306000 AVTHA4 EQU IEDQAVTD+1026 03307000 AVTHA3 EQU IEDQAVTD+1024 03308000 AVTHA2 EQU IEDQAVTD+1022 03309000 AVTGETMS EQU IEDQAVTD+1021 03310000 @NM00061 EQU IEDQAVTD+1020 03311000 AVTGETMD EQU IEDQAVTD+1016 03312000 AVTGETMN EQU IEDQAVTD+1012 03313000 AVTCWTOT EQU IEDQAVTD+1008 03314000 AVTCWINT EQU IEDQAVTD+960 03315000 AVTCCECB EQU IEDQAVTD+956 03316000 AVTDTRAP EQU IEDQAVTD+952 03317000 @NM00060 EQU IEDQAVTD+950 03318000 @NM00059 EQU AVTIOTR 03319000 AVTIOTRH EQU AVTIOTR 03320000 AVTIOTRE EQU AVTIOTR 03321000 @NM00058 EQU AVTSUBT 03322000 AVTSUBPT EQU AVTSUBT 03323000 AVTSUBON EQU AVTSUBT 03324000 AVTAFE30 EQU IEDQAVTD+944 03325000 AVTAFE20 EQU IEDQAVTD+940 03326000 AVTAFE10 EQU IEDQAVTD+936 03327000 AVTCWEC2 EQU IEDQAVTD+932 03328000 AVTCWPM2 EQU IEDQAVTD+928 03329000 AVTCWTS2 EQU IEDQAVTD+927 03330000 AVTCWTS1 EQU IEDQAVTD+926 03331000 AVTCWCLD EQU AVTCWFL2 03332000 AVTCWRAP EQU AVTCWFL2 03333000 AVTCFE50 EQU AVTCWFL2 03334000 AVTCFE30 EQU AVTCWFL2 03335000 AVTCFE10 EQU AVTCWFL2 03336000 AVTCFE20 EQU AVTCWFL2 03337000 AVTCFE40 EQU AVTCWFL2 03338000 AVTCWACT EQU AVTCWFL2 03339000 @NM00057 EQU AVTCWFL1 03340000 @NM00056 EQU AVTCWFL1 03341000 @NM00055 EQU AVTCWFL1 03342000 @NM00054 EQU AVTCWFL1 03343000 @NM00053 EQU AVTCWFL1 03344000 @NM00052 EQU AVTCWFL1 03345000 @NM00051 EQU AVTCWFL1 03346000 AVTCOMWN EQU AVTCWFL1 03347000 AVTCWEC1 EQU IEDQAVTD+920 03348000 AVTCWPM1 EQU IEDQAVTD+916 03349000 AVTCAREA EQU IEDQAVTD+912 03350000 AVTFZERO EQU IEDQAVTD+908 03351000 AVTCADDR EQU IEDQAVTD+904 03352000 AVTCOREC EQU IEDQAVTD+900 03353000 @NM00050 EQU IEDQAVTD+892 03354000 AVTCPBCB EQU IEDQAVTD+888 03355000 @NM00049 EQU IEDQAVTD+880 03356000 AVTDSIOB EQU IEDQAVTD+876 03357000 @NM00048 EQU IEDQAVTD+868 03358000 AVTCPRMB EQU IEDQAVTD+864 03359000 @NM00047 EQU IEDQAVTD+856 03360000 AVTCLOSB EQU IEDQAVTD+852 03361000 @NM00046 EQU IEDQAVTD+844 03362000 AVTACTIB EQU IEDQAVTD+840 03363000 @NM00045 EQU IEDQAVTD+836 03364000 AVTOLTEB EQU IEDQAVTD+832 03365000 AVTOLTCH EQU AVTOLTQB+1 03366000 AVTOLTVT EQU AVTOLTQB 03367000 @NM00044 EQU AVTOPCQB+8 03368000 @NM00043 EQU AVTOPCEC+1 03369000 @NM00042 EQU AVTOPCCC 03370000 AVTOPCPO EQU AVTOPCCC 03371000 AVTOPCWA EQU AVTOPCCC 03372000 AVTOPCCH EQU AVTOPCOB+1 03373000 AVTOPCVT EQU AVTOPCOB 03374000 @NM00041 EQU AVTCKPQB+9 03375000 AVTCKPTS EQU AVTCKPQB+8 03376000 @NM00040 EQU AVTCKPEC+1 03377000 @NM00039 EQU AVTCKPCC 03378000 AVTCKPPO EQU AVTCKPCC 03379000 AVTCKPWA EQU AVTCKPCC 03380000 AVTCKPCH EQU AVTCKPTB+1 03381000 AVTCKPVT EQU AVTCKPTB 03382000 @NM00038 EQU IEDQAVTD+796 03383000 AVTBFRTB EQU IEDQAVTD+792 03384000 @NM00037 EQU IEDQAVTD+788 03385000 AVTSELCH EQU IEDQAVTD+785 03386000 AVTBFRTN EQU AVTBFRFG 03387000 AVTBFREB EQU IEDQAVTD+780 03388000 AVTTIMQ EQU IEDQAVTD+776 03389000 @NM00036 EQU IEDQAVTD+772 03390000 AVTIMQPS EQU IEDQAVTD+768 03391000 AVTINOUT EQU IEDQAVTD+766 03392000 AVTREFTM EQU IEDQAVTD+764 03393000 @NM00035 EQU IEDQAVTD+752 03394000 AVTDELYB EQU IEDQAVTD+748 03395000 AVTOCQPT EQU IEDQAVTD+744 03396000 AVTTSOPT EQU IEDQAVTD+740 03397000 AVTSUPPT EQU IEDQAVTD+736 03398000 AVTCBQCB EQU IEDQAVTD+732 03399000 AVTMSGS EQU IEDQAVTD+729 03400000 @NM00034 EQU AVTSYSER 03401000 @NM00033 EQU AVTSYSER 03402000 @NM00032 EQU AVTSYSER 03403000 @NM00031 EQU AVTSYSER 03404000 @NM00030 EQU AVTSYSER 03405000 @NM00029 EQU AVTSYSER 03406000 AVTCMAXN EQU AVTSYSER 03407000 AVTCMINN EQU AVTSYSER 03408000 AVT2260L EQU IEDQAVTD+724 03409000 AVTABEPL EQU AVTADBUF 03410000 AVTHFF EQU AVTCLRHI+2 03411000 @NM00028 EQU AVTCLRHI 03412000 AVTCCLNK EQU AVTCRELE+5 03413000 AVTCCPRI EQU AVTCRELE+4 03414000 AVTCCQCB EQU AVTCCELE+1 03415000 AVTCCKEY EQU AVTCCELE 03416000 AVTDELAD EQU IEDQAVTD+704 03417000 AVTDELEM EQU IEDQAVTD+700 03418000 AVTBSX EQU AVTCKLNK 03419000 AVTOPETR EQU AVTHG01 03420000 @NM00027 EQU AVTCKBYT 03421000 AVTCKONQ EQU AVTCKBYT 03422000 @NM00026 EQU AVTCKBYT 03423000 @NM00025 EQU AVTCKBYT 03424000 @NM00024 EQU AVTCKBYT 03425000 @NM00023 EQU AVTCKBYT 03426000 @NM00022 EQU AVTCKBYT 03427000 @NM00021 EQU AVTCKBYT 03428000 AVTOPERT EQU IEDQAVTD+690 03429000 AVTOPXCL EQU IEDQAVTD+688 03430000 AVTOPERL EQU IEDQAVTD+687 03431000 @NM00020 EQU IEDQAVTD+686 03432000 AVTCKTIM EQU IEDQAVTD+684 03433000 AVTCKELV EQU IEDQAVTD+682 03434000 AVTCPRCD EQU IEDQAVTD+681 03435000 AVTWARMN EQU AVTCKELF 03436000 AVTCRTLN EQU AVTCKELF 03437000 AVTCPIPN EQU AVTCKELF 03438000 AVTCCLCN EQU AVTCKELF 03439000 AVTCINCN EQU AVTCKELF 03440000 @NM00019 EQU AVTCKELF 03441000 AVTCMCPN EQU AVTCKELF 03442000 AVTNQBCK EQU AVTCKELF 03443000 AVTCKQAD EQU IEDQAVTD+677 03444000 AVTSCBSZ EQU IEDQAVTD+676 03445000 @NM00018 EQU IEDQAVTD+672 03446000 AVTCKELE EQU IEDQAVTD+668 03447000 @NM00017 EQU AVTCKPEL+8 03448000 AVTCKRLK EQU AVTCKPEL+5 03449000 AVTCKRPR EQU AVTCKPEL+4 03450000 AVTCKRMQ EQU AVTCKRMV+1 03451000 AVTCKRKY EQU AVTCKRMV 03452000 AVTHK EQU IEDQAVTD+648 03453000 AVTHI EQU IEDQAVTD+644 03454000 AVTIOT EQU IEDQAVTD+640 03455000 AVTNX EQU IEDQAVTD+636 03456000 AVTTONE EQU IEDQAVTD+632 03457000 AVTA3TL EQU IEDQAVTD+628 03458000 AVTDMECB EQU IEDQAVTD+624 03459000 AVTABEND EQU IEDQAVTD+618 03460000 AVTPLCBN EQU IEDQAVTD+616 03461000 @NM00016 EQU AVTSAVTP+1 03462000 @NM00015 EQU AVTSAVTF 03463000 AVTRAPI EQU AVTSAVTF 03464000 AVTLCLST EQU AVTSAVTF 03465000 AVT370X EQU AVTSAVTF 03466000 AVTSNA EQU AVTSAVTF 03467000 AVTONSNA EQU AVTSAVTF 03468000 AVTVTMCP EQU AVTSAVTF 03469000 AVTTRNOS EQU IEDQAVTD+608 03470000 AVTCMBSS EQU IEDQAVTD+604 03471000 AVTRCV EQU IEDQAVTD+600 03472000 AVTSEND EQU IEDQAVTD+596 03473000 AVTCSCH EQU IEDQAVTD+592 03474000 AVTQ1 EQU IEDQAVTD+588 03475000 AVTE7 EQU IEDQAVTD+584 03476000 AVTHB EQU IEDQAVTD+580 03477000 AVTR1 EQU IEDQAVTD+576 03478000 AVTBZ EQU IEDQAVTD+572 03479000 AVTEZ EQU IEDQAVTD+568 03480000 AVTEC EQU IEDQAVTD+564 03481000 AVTEW EQU IEDQAVTD+560 03482000 AVTNDIAL EQU AVTSCOPT 03483000 AVTN2741 EQU AVTSCOPT 03484000 AVTCONCO EQU AVTSCOPT 03485000 AVTCONC EQU AVTSCOPT 03486000 AVTCMBUF EQU AVTSCOPT 03487000 AVTAPDMP EQU AVTSCOPT 03488000 @NM00014 EQU AVTSCOPT 03489000 AVTHA EQU AVTDISP 03490000 AVTEA EQU IEDQAVTD+548 03491000 AVTAX EQU IEDQAVTD+544 03492000 AVTA3 EQU IEDQAVTD+540 03493000 AVTGD EQU IEDQAVTD+536 03494000 AVTAL EQU IEDQAVTD+532 03495000 AVTOLTST EQU AVTHG02 03496000 AVTE8 EQU IEDQAVTD+524 03497000 AVTUI EQU IEDQAVTD+520 03498000 AVTCOMPT EQU IEDQAVTD+516 03499000 AVTCRSRF EQU IEDQAVTD+512 03500000 @NM00013 EQU IEDQAVTD+508 03501000 AVTKA02 EQU IEDQAVTD+504 03502000 AVTOPTPT EQU IEDQAVTD+500 03503000 AVTPCBPT EQU IEDQAVTD+496 03504000 AVTECBAD EQU IEDQAVTD+492 03505000 AVTOPECA EQU IEDQAVTD+488 03506000 AVTOLECA EQU IEDQAVTD+484 03507000 AVTCKECA EQU IEDQAVTD+480 03508000 AVTCWECA EQU IEDQAVTD+476 03509000 AVTCWTCB EQU IEDQAVTD+472 03510000 AVTOLTCB EQU IEDQAVTD+468 03511000 AVTOCTCB EQU IEDQAVTD+464 03512000 AVTCKTCB EQU IEDQAVTD+460 03513000 AVTAS EQU IEDQAVTD+456 03514000 AVTNOLBF EQU IEDQAVTD+454 03515000 AVTNCKPR EQU IEDQAVTD+453 03516000 AVTCIB EQU IEDQAVTD+452 03517000 AVTSPLPT EQU IEDQAVTD+448 03518000 AVTMVBFR EQU IEDQAVTD+444 03519000 AVTSBTA EQU IEDQAVTD+440 03520000 AVTRARTN EQU IEDQAVTD+436 03521000 AVTBSCAN EQU IEDQAVTD+432 03522000 AVTRDYA EQU IEDQAVTD+428 03523000 AVTDISTR EQU IEDQAVTD+420 03524000 AVTPARM3 EQU IEDQAVTD+416 03525000 @NM00012 EQU AVTPKF 03526000 @NM00011 EQU AVTPKF 03527000 @NM00010 EQU AVTPKF 03528000 AVTFTCHF EQU AVTPKF 03529000 @NM00009 EQU AVTPKF 03530000 @NM00008 EQU AVTPKF 03531000 @NM00007 EQU AVTPKF 03532000 @NM00006 EQU AVTPKF 03533000 AVTPARM EQU IEDQAVTD+408 03534000 AVTEXS2A EQU IEDQAVTD+402 03535000 AVTEXA2S EQU IEDQAVTD+396 03536000 AVTOCGET EQU IEDQAVTD+392 03537000 AVTCKAVT EQU @NM00004+1 03538000 @NM00005 EQU AVTCKFLG 03539000 AVTCKHLT EQU AVTCKFLG 03540000 AVTCKREQ EQU AVTCKFLG 03541000 AVTCKENV EQU AVTCKFLG 03542000 AVTCKNAC EQU AVTCKFLG 03543000 AVTCKTAC EQU AVTCKFLG 03544000 AVTBUENT EQU IEDQAVTD+386 03545000 @NM00003 EQU IEDQAVTD+385 03546000 AVTFULLT EQU AVTBUFSW 03547000 AVTUNCON EQU AVTBUFSW 03548000 AVTTRAPI EQU AVTBUFSW 03549000 @NM00002 EQU AVTBUFSW 03550000 AVTBUFTR EQU AVTREADD 03551000 AVTREADY EQU IEDQAVTD+376 03552000 AVTRACE EQU IEDQAVTD+372 03553000 AVTTCB EQU IEDQAVTD+368 03554000 AVTPASWD EQU IEDQAVTD+360 03555000 AVTCTLCH EQU IEDQAVTD+352 03556000 AVTDOUBL EQU IEDQAVTD+344 03557000 AVTDOUBX EQU IEDQAVTD+336 03558000 AVTDPARM EQU IEDQAVTD+332 03559000 AVTCSTCS EQU IEDQAVTD+328 03560000 AVTDLQ EQU AVTSAVEX+32 03561000 @NM00001 EQU AVTSAVEX 03562000 AVTSAVE4 EQU IEDQAVTD+216 03563000 AVTSAVE3 EQU IEDQAVTD+144 03564000 AVTSAVE2 EQU IEDQAVTD+72 03565000 AVTSAVE1 EQU IEDQAVTD 03566000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03567000 @RC00625 EQU @RC00623 03568000 @RF00654 EQU @RC00651 03569000 @RF00657 EQU @RC00651 03570000 @RF00660 EQU @RC00651 03571000 @RC00685 EQU @RC00683 03572000 @RC00699 EQU @RC00695 03573000 @RC00847 EQU @RC00841 03574000 @RC00866 EQU @RC00864 03575000 @RC00892 EQU @EL00008 03576000 @RC00934 EQU @RC00932 03577000 @RC00958 EQU @RC00956 03578000 @RC00849 EQU @RC00847 03579000 @RC00868 EQU @RC00866 03580000 @ENDDATA EQU * 03581000 END IGCVI10D 03582000