TITLE 'IEDNCU2, STATUS ANALYSIS ROUTINE *00001000 ' 00002000 IEDNCU2 CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 * /* 00005000 USING IEDNCU2,REG15 INFORM THE ASSEMBLER OF THE 00006000 * BASE REGISTER TO BE USED FOR 00007000 * ADDRESSING CODE 00008000 STM RCUR,RRETURN,USERREGS SAVE USER REGS 00009000 LR RBASE,REG15 ESTABLISH CORRECT BASE 00010000 DROP REG15 00011000 USING IEDNCU2,RBASE ESTABLISH NEW/CORRECT BASE 00012000 * /* 00013000 IEDNCU2 IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00014000 * 02S0754 00015000 * /*****************************************************************/ 00016000 * /* */ 00017000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00018000 * /* PREFORM THE FUNCTION OF THE MODULE */ 00019000 * /* */ 00020000 * /*****************************************************************/ 00021000 * 02S0754 00022000 * RTRM=RPARM; /* TRM ADDRESSABILITY @YM07312*/ 00023000 LR RTRM,RPARM 02S0754 00024000 * REG15=4; /* SET NON ZERO RETURN CODE 02S0755 00025000 * ASSUMPTION */ 00026000 LA REG15,4 02S0755 00027000 * RSIB=0; /* INITIALIZE */ 00028000 SLR RSIB,RSIB 02S0756 00029000 * IF TRMTYPE=TRMPUNT THEN /* IF SNA PU AND NOT NCP */ 00030000 CLI TRMTYPE(RTRM),X'18' 02S0757 00031000 BNE @RF00757 02S0757 00032000 * DO; 02S0758 00033000 * 03S0759 00034000 * /*************************************************************/ 00035000 * /* */ 00036000 * /* PROCESS.SNAPU: THIS SEGMENT DOES TRM AND SIB ANALYSIS OF A*/ 00037000 * /* SNA PU */ 00038000 * /* */ 00039000 * /*************************************************************/ 00040000 * 03S0759 00041000 * RFY 03S0759 00042000 * RTH RSTD; 03S0759 00043000 * IF TRMSIBPT^=0 THEN /* ANY SIB */ 00044000 SLR @14,@14 03S0760 00045000 ICM @14,7,TRMSIBPT(RTRM) 03S0760 00046000 LTR @14,@14 03S0760 00047000 BZ @RF00760 03S0760 00048000 * DO; 03S0761 00049000 * RSIB=TRMSIBPT; /* SET SIB BASE */ 00050000 LR RSIB,@14 03S0762 00051000 * IF SIBSSTAT=SIBSAPND /* ACTPU OUTSTANDING OR ... */ 00052000 * |SIBSSTAT=SIBSRPND THEN/* ... DACTPU OUTSTANDING */ 00053000 TM SIBSSTAT(RSIB),B'00000100' 03S0763 00054000 BNO @GL00001 03S0763 00055000 TM SIBSSTAT(RSIB),B'00011000' 03S0763 00056000 BZ @RT00763 03S0763 00057000 @GL00001 TM SIBSSTAT(RSIB),B'00001000' 03S0763 00058000 BNO @RF00763 03S0763 00059000 TM SIBSSTAT(RSIB),B'00010100' 03S0763 00060000 BNZ @RF00763 03S0763 00061000 @RT00763 DS 0H 03S0764 00062000 * DO; 03S0764 00063000 * SEARCH=ON; /* REQUEST A SEARCH OF THE OP CTL 00064000 * FID1 REQUEST QUEUES @YM07310*/ 00065000 OI SEARCH,B'01000000' 03S0765 00066000 * CALL FID1PERR; 03S0766 00067000 BAL @14,FID1PERR 03S0766 00068000 * IF REG15^=0 THEN /* IF BUFFER AVAILABLE */ 00069000 LTR REG15,REG15 03S0767 00070000 BZ @RF00767 03S0767 00071000 * DO; 03S0768 00072000 * 04S0769 00073000 * /*************************************************/ 00074000 * /* */ 00075000 * /* PROCESS.SNAPU.ACTDACPU: THIS SEGMENT DOES */ 00076000 * /* FURTHER INITIALIZES THE RESPONSE FOR ACTPU OR */ 00077000 * /* DACTPU */ 00078000 * /* */ 00079000 * /*************************************************/ 00080000 * 04S0769 00081000 * TRHRUCAT=TRHSC; /* SET SESSION CONTROL TYPE */ 00082000 OI TRHRUCAT+10(RTH),B'01100000' 04S0769 00083000 * IF SIBSSTAT=SIBSAPND THEN/* ACTPU */ 00084000 TM SIBSSTAT(RSIB),B'00000100' 04S0770 00085000 BNO @RF00770 04S0770 00086000 TM SIBSSTAT(RSIB),B'00011000' 04S0770 00087000 BNZ @RF00770 04S0770 00088000 * HEXCODE=CD1ACTPU;/* SET ACTPU CODE */ 00089000 MVI HEXCODE+17(RTH),X'11' 04S0771 00090000 * ELSE 04S0772 00091000 * HEXCODE=CD1DATPU;/* SET DACTPU CODE */ 00092000 B @RC00770 04S0772 00093000 @RF00770 MVI HEXCODE+17(RTH),X'12' 04S0772 00094000 * END; 03S0773 00095000 * END; 03S0774 00096000 * END; 03S0775 00097000 * ELSE /* NOT SSCP-PU SESSION */ 00098000 * DO; 03S0776 00099000 B @RC00760 03S0776 00100000 @RF00760 DS 0H 03S0777 00101000 * IF TRMPCONT=TRMCCSNT /* CONTACT OUTSTANDING OR ... */ 00102000 * |TRMPCONT=TRMCAPND /* ... CONTACTED OUTSTANDING OR 00103000 * ... */ 00104000 * |TRMPCONT=TRMCRPND THEN/* ... DISCONTACT OUTSTANDING */ 00105000 TM TRMPCONT(RTRM),B'00000001' 03S0777 00106000 BNO @GL00003 03S0777 00107000 TM TRMPCONT(RTRM),B'00000110' 03S0777 00108000 BZ @RT00777 03S0777 00109000 @GL00003 TM TRMPCONT(RTRM),B'00000010' 03S0777 00110000 BNO @GL00002 03S0777 00111000 TM TRMPCONT(RTRM),B'00000101' 03S0777 00112000 BZ @RT00777 03S0777 00113000 @GL00002 TM TRMPCONT(RTRM),B'00000011' 03S0777 00114000 BNO @RF00777 03S0777 00115000 TM TRMPCONT(RTRM),B'00000100' 03S0777 00116000 BNZ @RF00777 03S0777 00117000 @RT00777 DS 0H 03S0778 00118000 * DO; 03S0778 00119000 * IF TRMPCONT^=TRMCAPND THEN/* IF NOT CONTACTED THEN 00120000 * @YM07310*/ 00121000 TM TRMPCONT(RTRM),B'00000010' 03S0779 00122000 BNO @RT00779 03S0779 00123000 TM TRMPCONT(RTRM),B'00000101' 03S0779 00124000 BZ @RF00779 03S0779 00125000 @RT00779 DS 0H 03S0780 00126000 * SEARCH=ON; /* REQUEST SEARCH OF OP CTL FID1 00127000 * REQ QUEUES @YM07310*/ 00128000 OI SEARCH,B'01000000' 03S0780 00129000 * CALL FID1PERR; 03S0781 00130000 @RF00779 BAL @14,FID1PERR 03S0781 00131000 * IF REG15^=0 THEN /* IF BUFFER AVAILABLE */ 00132000 LTR REG15,REG15 03S0782 00133000 BZ @RF00782 03S0782 00134000 * DO; 03S0783 00135000 * 04S0784 00136000 * /*************************************************/ 00137000 * /* */ 00138000 * /* PROCESS.SNAPU.CCD: THIS SEGMENT FURTHER */ 00139000 * /* INITIALIZES THE RESPONSE FOR CONTACT, */ 00140000 * /* CONTACTED, OR DISCONTACT */ 00141000 * /* */ 00142000 * /*************************************************/ 00143000 * 04S0784 00144000 * TRHRUCAT=TRHFMD;/* SET FM DATA TYPE */ 00145000 LA @14,10 04S0784 00146000 ALR @14,RTH 04S0784 00147000 NI TRHRUCAT(@14),B'10011111' 04S0784 00148000 * TTHEFI=OFF; /* RESET EXPIDITED FLOW */ 00149000 NI TTHEFI(RTH),B'11111110' 04S0785 00150000 * IF TRMPCONT=TRMCAPND THEN/* CONTACTED */ 00151000 TM TRMPCONT(RTRM),B'00000010' 04S0786 00152000 BNO @RF00786 04S0786 00153000 TM TRMPCONT(RTRM),B'00000101' 04S0786 00154000 BNZ @RF00786 04S0786 00155000 * DO; 04S0787 00156000 * TRHTYPE=OFF;/* REQUEST */ 00157000 * TRHSDI=OFF; /* NO SENSE DATA */ 00158000 NI TRHTYPE(@14),B'01111011' 04S0789 00159000 * XCTDCODE=CD1XCTD;/* CONTACTED */ 00160000 MVC XCTDCODE+13(3,RTH),@CB00862 04S0790 00161000 * RPARM=CURFAILT;/* FAILING DEVICE TNT INDEX */ 00162000 LH RPARM,CURFAILT(,RCUR) 04S0791 00163000 * CALL IEDIAP04;/* @YM07288*/ 00164000 L @09,AVTSAVTP(,RAVT) 04S0792 00165000 L @15,SAVTTNTX(,@09) 04S0792 00166000 BALR @14,@15 04S0792 00167000 * XCTDADDR=REG15;/* SET NETWORK ADDRESS */ 00168000 LA @14,13 04S0793 00169000 ALR @14,RTH 04S0793 00170000 STCM REG15,3,XCTDADDR(@14) 04S0793 00171000 * XCTDSTAT=FERR;/* ERROR TYPE */ 00172000 MVI XCTDSTAT(@14),X'03' 04S0794 00173000 * TTHDCF=TTHDCF+1;/* UPDATA DATA COUNT */ 00174000 LA @14,1 04S0795 00175000 SLR @09,@09 04S0795 00176000 ICM @09,3,TTHDCF(RTH) 04S0795 00177000 ALR @14,@09 04S0795 00178000 STCM @14,3,TTHDCF(RTH) 04S0795 00179000 * END; 04S0796 00180000 * ELSE /* CONTACT OR DISCONTACT */ 00181000 * DO; 04S0797 00182000 B @RC00786 04S0797 00183000 @RF00786 DS 0H 04S0798 00184000 * IF TRMPCONT=TRMCCSNT THEN/* CONTACT */ 00185000 TM TRMPCONT(RTRM),B'00000001' 04S0798 00186000 BNO @RF00798 04S0798 00187000 TM TRMPCONT(RTRM),B'00000110' 04S0798 00188000 BNZ @RF00798 04S0798 00189000 * HEXCDALL=CD1XCON;/* SET CONTACT CODE */ 00190000 MVC HEXCDALL+17(3,RTH),@CB00860 04S0799 00191000 * ELSE 04S0800 00192000 * HEXCDALL=CD1XDSC;/* SET CONTACTED CODE */ 00193000 B @RC00798 04S0800 00194000 @RF00798 MVC HEXCDALL+17(3,RTH),@CB00864 04S0800 00195000 * TTHDCF=TTHDCF+2;/* DATA COUNT */ 00196000 @RC00798 LA @14,2 04S0801 00197000 SLR @09,@09 04S0801 00198000 ICM @09,3,TTHDCF(RTH) 04S0801 00199000 ALR @14,@09 04S0801 00200000 STCM @14,3,TTHDCF(RTH) 04S0801 00201000 * END; 04S0802 00202000 * END; 03S0803 00203000 @RC00786 DS 0H 03S0804 00204000 * END; 03S0804 00205000 @RF00782 DS 0H 03S0805 00206000 * END; 03S0805 00207000 @RF00777 DS 0H 03S0806 00208000 * RFY 03S0806 00209000 * RTH UNRSTD; 03S0806 00210000 @RC00760 DS 0H 03S0807 00211000 * END; 02S0807 00212000 * ELSE 02S0808 00213000 * IF TRMTYPE=TRMSDLC /* IF SNA LINK */ 00214000 * |TRMTYPE=TRMNSDLC THEN /* OR PRE-SNA LINE THEN @YM08536*/ 00215000 B @RC00757 02S0808 00216000 @RF00757 CLI TRMTYPE(RTRM),X'21' 02S0808 00217000 BE @RT00808 02S0808 00218000 CLI TRMTYPE(RTRM),X'20' 02S0808 00219000 BNE @RF00808 02S0808 00220000 @RT00808 DS 0H 02S0809 00221000 * DO; 02S0809 00222000 * 03S0810 00223000 * /***********************************************************/ 00224000 * /* */ 00225000 * /* PROCESS.LINK: THIS SEGMENT DOES TRM ANALYSIS OF A SNA */ 00226000 * /* LINK OR A PRE-SNA LINE @YM08536*/ 00227000 * /* */ 00228000 * /***********************************************************/ 00229000 * 03S0810 00230000 * RFY 03S0810 00231000 * RTH RSTD; 03S0810 00232000 * IF TRMLSTAT=TRMLAPND /* ACTLINK OUTSTANDING OR ... */ 00233000 * |TRMLSTAT=TRMLRPND THEN/* ... DACTLINK OUTSTANDING */ 00234000 TM TRMLSTAT(RTRM),B'00010000' 03S0811 00235000 BNO @GL00005 03S0811 00236000 TM TRMLSTAT(RTRM),B'00100000' 03S0811 00237000 BZ @RT00811 03S0811 00238000 @GL00005 TM TRMLSTAT(RTRM),B'00100000' 03S0811 00239000 BNO @RF00811 03S0811 00240000 TM TRMLSTAT(RTRM),B'00010000' 03S0811 00241000 BNZ @RF00811 03S0811 00242000 @RT00811 DS 0H 03S0812 00243000 * DO; 03S0812 00244000 * SEARCH=ON; /* REQUEST A SEARCH OF THE OP CTL 00245000 * FID1 REQUEST QUEUES @YM07310*/ 00246000 OI SEARCH,B'01000000' 03S0813 00247000 * CALL FID1PERR; 03S0814 00248000 BAL @14,FID1PERR 03S0814 00249000 * IF REG15^=0 THEN /* IF BUFFER AVAILABLE */ 00250000 LTR REG15,REG15 03S0815 00251000 BZ @RF00815 03S0815 00252000 * DO; 03S0816 00253000 * 04S0817 00254000 * /***************************************************/ 00255000 * /* */ 00256000 * /* PROCESS.LINK.ACTDACLI: THIS SEGMENT FURTHER */ 00257000 * /* INITIALIZES THE RESPONSE FOR ACTLINK OR DACTLINK*/ 00258000 * /* */ 00259000 * /***************************************************/ 00260000 * 04S0817 00261000 * RPARM=TTHOAF; /* GET LINE NETWORK ADDRESS 04S0817 00262000 * @YM07715*/ 00263000 SLR RPARM,RPARM 04S0817 00264000 ICM RPARM,3,TTHOAF(RTH) 04S0817 00265000 * CALL IEDIAP06; /* CONVERT NETWORK ADDRESS TO 00266000 * 3705 LCB ADDRESS @YM07715*/ 00267000 L @09,AVTSAVTP(,RAVT) 04S0818 00268000 L @15,SAVTLCBS(,@09) 04S0818 00269000 BALR @14,@15 04S0818 00270000 * RPARM=REG15->LCBTTCIN;/* GET TNT INDEX OF THE NCP 00271000 * @YM07715*/ 00272000 LH RPARM,LCBTTCIN(,REG15) 04S0819 00273000 N RPARM,@CF02773 04S0819 00274000 * CALL IEDIAP04; /* GET NCP NETWORK ADDRESS 04S0820 00275000 * @YM07715*/ 00276000 L @09,AVTSAVTP(,RAVT) 04S0820 00277000 L @15,SAVTTNTX(,@09) 04S0820 00278000 BALR @14,@15 04S0820 00279000 * TTHOAF=REG15; /* SET PROPER NETWORK ADDRESS IN 00280000 * TH @YM07715*/ 00281000 STCM REG15,3,TTHOAF(RTH) 04S0821 00282000 * TRHRUCAT=TRHFMD; /* SET FM DATA TYPE */ 00283000 NI TRHRUCAT+10(RTH),B'10011111' 04S0822 00284000 * TTHEFI=OFF; /* RESET EXPIDITED FLOW */ 00285000 NI TTHEFI(RTH),B'11111110' 04S0823 00286000 * IF TRMLSTAT=TRMLAPND THEN/* ACTLINK */ 00287000 TM TRMLSTAT(RTRM),B'00010000' 04S0824 00288000 BNO @RF00824 04S0824 00289000 TM TRMLSTAT(RTRM),B'00100000' 04S0824 00290000 BNZ @RF00824 04S0824 00291000 * HEXCDALL=CD1XALK;/* SET ACTLINK HEX CODE */ 00292000 MVC HEXCDALL+17(3,RTH),@CB00856 04S0825 00293000 * ELSE 04S0826 00294000 * HEXCDALL=CD1XDLK;/* SET DACTLINK HEX CODE */ 00295000 B @RC00824 04S0826 00296000 @RF00824 MVC HEXCDALL+17(3,RTH),@CB00858 04S0826 00297000 * TTHDCF=TTHDCF+2; /* UPDATE DATA COUNT */ 00298000 @RC00824 LA @14,2 04S0827 00299000 SLR @09,@09 04S0827 00300000 ICM @09,3,TTHDCF(RTH) 04S0827 00301000 ALR @14,@09 04S0827 00302000 STCM @14,3,TTHDCF(RTH) 04S0827 00303000 * END; 03S0828 00304000 * END; 03S0829 00305000 @RF00815 DS 0H 03S0830 00306000 * RFY 03S0830 00307000 * RTH UNRSTD; 03S0830 00308000 @RF00811 DS 0H 03S0831 00309000 * END; 02S0831 00310000 * ELSE 02S0832 00311000 * IF TRMTYPE=TRMLNCP THEN /* IF SNA PU AND NCP */ 00312000 B @RC00808 02S0832 00313000 @RF00808 CLI TRMTYPE(RTRM),X'0F' 02S0832 00314000 BNE @RF00832 02S0832 00315000 * DO; 02S0833 00316000 * 03S0834 00317000 * /*********************************************************/ 00318000 * /* */ 00319000 * /* PROCESS.SNAPUNCP: THIS SEGMENT DOES TRM AND SIB */ 00320000 * /* ANALYSIS OF A SNA NCP PU */ 00321000 * /* */ 00322000 * /*********************************************************/ 00323000 * 03S0834 00324000 * RFY 03S0834 00325000 * RTH RSTD; 03S0834 00326000 * IF TRMSIBPT^=0 THEN /* IF SIB ASSIGNED */ 00327000 SLR @14,@14 03S0835 00328000 ICM @14,7,TRMSIBPT(RTRM) 03S0835 00329000 LTR @14,@14 03S0835 00330000 BZ @RF00835 03S0835 00331000 * DO; 03S0836 00332000 * RSIB=TRMSIBPT; /* SIB BASE */ 00333000 LR RSIB,@14 03S0837 00334000 * IF(SIBSSTAT=SIBSACTV&SIBDSTAT=SIBDAPND)/* IF SDT OR 00335000 * ... */ 00336000 * |SIBSSTAT=SIBSAPND/* ... ACTPU OUTSTANDING OR ...*/ 00337000 * |SIBSSTAT=SIBSRPND THEN/* ... DACTPU OUTSTANDING */ 00338000 TM SIBSSTAT(RSIB),B'00011100' 03S0838 00339000 BNO @GL00007 03S0838 00340000 TM SIBDSTAT(RSIB),B'00000001' 03S0838 00341000 BNO @GL00007 03S0838 00342000 TM SIBDSTAT(RSIB),B'00000010' 03S0838 00343000 BZ @RT00838 03S0838 00344000 @GL00007 TM SIBSSTAT(RSIB),B'00000100' 03S0838 00345000 BNO @GL00006 03S0838 00346000 TM SIBSSTAT(RSIB),B'00011000' 03S0838 00347000 BZ @RT00838 03S0838 00348000 @GL00006 TM SIBSSTAT(RSIB),B'00001000' 03S0838 00349000 BNO @RF00838 03S0838 00350000 TM SIBSSTAT(RSIB),B'00010100' 03S0838 00351000 BNZ @RF00838 03S0838 00352000 @RT00838 DS 0H 03S0839 00353000 * DO; 03S0839 00354000 * SEARCH=ON; /* REQUEST A SEARCH OF THE OP CTL 00355000 * FID1 REQUEST QUEUES @YM07310*/ 00356000 OI SEARCH,B'01000000' 03S0840 00357000 * CALL FID1PERR; 03S0841 00358000 BAL @14,FID1PERR 03S0841 00359000 * IF REG15^=0 THEN/* IF BUFFER AVAILABLE */ 00360000 LTR REG15,REG15 03S0842 00361000 BZ @RF00842 03S0842 00362000 * DO; 03S0843 00363000 * 04S0844 00364000 * /*********************************************/ 00365000 * /* */ 00366000 * /* PROCESS.SNAPUNCP.DAS: THIS SEGMENT FURTHER*/ 00367000 * /* INITIALIZES THE RESPONSE FOR SDT,ACTPU, OR*/ 00368000 * /* DACTPU */ 00369000 * /* */ 00370000 * /*********************************************/ 00371000 * 04S0844 00372000 * TRHRUCAT=TRHSC;/* SET SESSION CONTROL TYPE */ 00373000 OI TRHRUCAT+10(RTH),B'01100000' 04S0844 00374000 * IF SIBSSTAT=SIBSACTV&SIBDSTAT=SIBDAPND THEN/* 00375000 * SDT */ 00376000 TM SIBSSTAT(RSIB),B'00011100' 04S0845 00377000 BNO @RF00845 04S0845 00378000 TM SIBDSTAT(RSIB),B'00000001' 04S0845 00379000 BNO @RF00845 04S0845 00380000 TM SIBDSTAT(RSIB),B'00000010' 04S0845 00381000 BNZ @RF00845 04S0845 00382000 * HEXCODE=CD1SDT;/* SET START DATA TRAFFIC 00383000 * HEX CODE */ 00384000 MVI HEXCODE+17(RTH),X'A0' 04S0846 00385000 * ELSE 04S0847 00386000 * IF SIBSSTAT=SIBSAPND THEN/* ACTPU */ 00387000 B @RC00845 04S0847 00388000 @RF00845 TM SIBSSTAT(RSIB),B'00000100' 04S0847 00389000 BNO @RF00847 04S0847 00390000 TM SIBSSTAT(RSIB),B'00011000' 04S0847 00391000 BNZ @RF00847 04S0847 00392000 * HEXCODE=CD1ACTPU;/* SET ACTPU HEX CODE */ 00393000 MVI HEXCODE+17(RTH),X'11' 04S0848 00394000 * ELSE 04S0849 00395000 * HEXCODE=CD1DATPU;/* SET DACTPU HEX CODE */ 00396000 B @RC00847 04S0849 00397000 @RF00847 MVI HEXCODE+17(RTH),X'12' 04S0849 00398000 * END; 03S0850 00399000 @RC00847 DS 0H 03S0850 00400000 @RC00845 DS 0H 03S0851 00401000 * END; 03S0851 00402000 @RF00842 DS 0H 03S0852 00403000 * RFY 03S0852 00404000 * RTH UNRSTD; 03S0852 00405000 @RF00838 DS 0H 03S0853 00406000 * END; 03S0853 00407000 * END; 02S0854 00408000 * ELSE 02S0855 00409000 * IF TRMTYPE=TRMPSNA /* IF NONSNA WITH ... */ 00410000 * &TRMSPACT=OFF /* ... SUPERIOR RESOURCE INACTIVE 00411000 * ... @YM08416*/ 00412000 * &TRMOCNI=OFF THEN 02S0855 00413000 B @RC00832 02S0855 00414000 @RF00832 CLI TRMTYPE(RTRM),X'4F' 02S0855 00415000 BNE @RF00855 02S0855 00416000 TM TRMSPACT(RTRM),B'00110000' 02S0855 00417000 BZ @RT00855 02S0855 00418000 * ; /* ... OR NO STOPTERM IN PROGRESS 00419000 * ... DO NOTHING @YM08416*/ 00420000 * ELSE 02S0857 00421000 * DO; 02S0857 00422000 @RF00855 DS 0H 02S0858 00423000 * IF TRMTYPE=TRMLUNT THEN/* SNA LU */ 00424000 CLI TRMTYPE(RTRM),X'30' 02S0858 00425000 BNE @RF00858 02S0858 00426000 * DO; 02S0859 00427000 * 03S0860 00428000 * /***************************************************/ 00429000 * /* */ 00430000 * /* PROCESS.SNALU: THIS SEGMENT DOES TRM AND SIB */ 00431000 * /* ANALYSIS OF A SNA LU */ 00432000 * /* */ 00433000 * /***************************************************/ 00434000 * 03S0860 00435000 * RFY 03S0860 00436000 * RTH RSTD; 03S0860 00437000 * IF TRMSIBPT^=0 THEN/* IF ANY SIB ASSIGNED */ 00438000 SLR @14,@14 03S0861 00439000 ICM @14,7,TRMSIBPT(RTRM) 03S0861 00440000 LTR @14,@14 03S0861 00441000 BZ @RF00861 03S0861 00442000 * DO; 03S0862 00443000 * RSIB=TRMSIBPT; 03S0863 00444000 LR RSIB,@14 03S0863 00445000 * IF SIBINDEX^=SAVTSCPT THEN/* LU TO LU SIB */ 00446000 L @14,AVTSAVTP(,RAVT) 03S0864 00447000 CLC SIBINDEX(2,RSIB),SAVTSCPT(@14) 03S0864 00448000 BE @RF00864 03S0864 00449000 * DO; 03S0865 00450000 * IF SIBSSTAT=SIBSACTV THEN/* IF SESSION 00451000 * ACTIVE */ 00452000 TM SIBSSTAT(RSIB),B'00011100' 03S0866 00453000 BNO @RF00866 03S0866 00454000 * DO; 03S0867 00455000 * IF SIBDSTAT=SIBDACTV THEN/* DATA TRAFIC 00456000 * ACTIVE */ 00457000 TM SIBDSTAT(RSIB),B'00000011' 03S0868 00458000 BNO @RF00868 03S0868 00459000 * MOREAN=ON;/* REQUEST MORE ANALYSIS 00460000 * AND EXIT */ 00461000 OI MOREAN,B'10000000' 03S0869 00462000 * ELSE 03S0870 00463000 * IF(SIBDSTAT=SIBDAPND|/* SDT OR CLEAR 00464000 * OUTSTANDING @YM08991*/ 00465000 * SIBDSTAT=SIBDRPND)&/* AND NOT 00466000 * @YM08991*/ 00467000 * CURTERM=OFF THEN/* FORCED 03S0870 00468000 * TERMINATE CLEANUP @YM08991*/ 00469000 B @RC00868 03S0870 00470000 @RF00868 TM SIBDSTAT(RSIB),B'00000001' 03S0870 00471000 BNO @GL00012 03S0870 00472000 TM SIBDSTAT(RSIB),B'00000010' 03S0870 00473000 BZ @GL00011 03S0870 00474000 @GL00012 TM SIBDSTAT(RSIB),B'00000010' 03S0870 00475000 BNO @RF00870 03S0870 00476000 TM SIBDSTAT(RSIB),B'00000001' 03S0870 00477000 BNZ @RF00870 03S0870 00478000 @GL00011 TM CURTERM(RCUR),B'00000001' 03S0870 00479000 BNZ @RF00870 03S0870 00480000 * DO; 03S0871 00481000 * CALL FID1PERR; 03S0872 00482000 BAL @14,FID1PERR 03S0872 00483000 * IF REG15^=0 THEN/* IF BUFFERS 00484000 * AVAILABLE */ 00485000 LTR REG15,REG15 03S0873 00486000 BZ @RF00873 03S0873 00487000 * DO; 03S0874 00488000 * 04S0875 00489000 * /*******************************/ 00490000 * /* */ 00491000 * /* PROCESS.SNALU.SDTCLR: THIS */ 00492000 * /* SEGMENT FURTHER INITIALIZES */ 00493000 * /* THE RESPONSE FOR SDT AND */ 00494000 * /* CLEAR */ 00495000 * /* */ 00496000 * /*******************************/ 00497000 * 04S0875 00498000 * TRHRUCAT=TRHSC;/* SET SESSION 00499000 * CONTROL TYPE */ 00500000 OI TRHRUCAT+10(RTH),B'01100000' 04S0875 00501000 * IF SIBDSTAT=SIBDAPND THEN/* SDT*/ 00502000 TM SIBDSTAT(RSIB),B'00000001' 04S0876 00503000 BNO @RF00876 04S0876 00504000 TM SIBDSTAT(RSIB),B'00000010' 04S0876 00505000 BNZ @RF00876 04S0876 00506000 * HEXCODE=CD1SDT;/* SET SDT CODE*/ 00507000 MVI HEXCODE+17(RTH),X'A0' 04S0877 00508000 * ELSE 04S0878 00509000 * HEXCODE=CD1CLEAR;/* SET CLEAR 00510000 * CODE */ 00511000 B @RC00876 04S0878 00512000 @RF00876 MVI HEXCODE+17(RTH),X'A1' 04S0878 00513000 * END; 03S0879 00514000 * END; 03S0880 00515000 * END; 03S0881 00516000 * ELSE 03S0882 00517000 * IF(SIBSSTAT=SIBSAPND|/* BIND OR UNBIND 00518000 * @YM08991*/ 00519000 * SIBSSTAT=SIBSRPND)&/* OUTSTANDING AND 00520000 * NOT @YM08991*/ 00521000 * CURTERM=OFF THEN/* FORCED TERMINATE 00522000 * @YM08991*/ 00523000 B @RC00866 03S0882 00524000 @RF00866 TM SIBSSTAT(RSIB),B'00000100' 03S0882 00525000 BNO @GL00014 03S0882 00526000 TM SIBSSTAT(RSIB),B'00011000' 03S0882 00527000 BZ @GL00013 03S0882 00528000 @GL00014 TM SIBSSTAT(RSIB),B'00001000' 03S0882 00529000 BNO @RF00882 03S0882 00530000 TM SIBSSTAT(RSIB),B'00010100' 03S0882 00531000 BNZ @RF00882 03S0882 00532000 @GL00013 TM CURTERM(RCUR),B'00000001' 03S0882 00533000 BNZ @RF00882 03S0882 00534000 * DO; 03S0883 00535000 * CALL FID1PERR; 03S0884 00536000 BAL @14,FID1PERR 03S0884 00537000 * IF REG15^=0 THEN/* IF BUFFERS 03S0885 00538000 * AVAILABLE */ 00539000 LTR REG15,REG15 03S0885 00540000 BZ @RF00885 03S0885 00541000 * DO; 03S0886 00542000 * 04S0887 00543000 * /*********************************/ 00544000 * /* */ 00545000 * /* PROCESS.SNALU.BINDUB: THIS */ 00546000 * /* SEGMENT FURTHER INITIALIZES */ 00547000 * /* THE RESPONSE FOR BIND OR */ 00548000 * /* UNBIND */ 00549000 * /* */ 00550000 * /*********************************/ 00551000 * 04S0887 00552000 * TRHRUCAT=TRHSC;/* SET SESSION 00553000 * CONTROL TYPE */ 00554000 OI TRHRUCAT+10(RTH),B'01100000' 04S0887 00555000 * IF SIBSSTAT=SIBSAPND THEN/* BIND */ 00556000 TM SIBSSTAT(RSIB),B'00000100' 04S0888 00557000 BNO @RF00888 04S0888 00558000 TM SIBSSTAT(RSIB),B'00011000' 04S0888 00559000 BNZ @RF00888 04S0888 00560000 * HEXCODE=CD1BIND;/* SET BIND CODE*/ 00561000 MVI HEXCODE+17(RTH),X'31' 04S0889 00562000 * ELSE 04S0890 00563000 * HEXCODE=CD1UBIND;/* SET UNBIND 00564000 * CODE */ 00565000 B @RC00888 04S0890 00566000 @RF00888 MVI HEXCODE+17(RTH),X'32' 04S0890 00567000 * END; 03S0891 00568000 * END; 03S0892 00569000 * END; 03S0893 00570000 * ELSE /* NO LU-LU SIB */ 00571000 * DO; 03S0894 00572000 B @RC00864 03S0894 00573000 @RF00864 DS 0H 03S0895 00574000 * IF SIBSSTAT=SIBSAPND/* IF ACTLU OUTSTANDING 00575000 * OR ... */ 00576000 * |SIBSSTAT=SIBSRPND THEN/* ... DACTLU 00577000 * OUTSTANDING */ 00578000 TM SIBSSTAT(RSIB),B'00000100' 03S0895 00579000 BNO @GL00015 03S0895 00580000 TM SIBSSTAT(RSIB),B'00011000' 03S0895 00581000 BZ @RT00895 03S0895 00582000 @GL00015 TM SIBSSTAT(RSIB),B'00001000' 03S0895 00583000 BNO @RF00895 03S0895 00584000 TM SIBSSTAT(RSIB),B'00010100' 03S0895 00585000 BNZ @RF00895 03S0895 00586000 @RT00895 DS 0H 03S0896 00587000 * DO; 03S0896 00588000 * SEARCH=ON;/* REQUEST A SEARCH OF THE OP 00589000 * CTL FID1 REQUEST QUEUES 03S0897 00590000 * @YM07310*/ 00591000 OI SEARCH,B'01000000' 03S0897 00592000 * CALL FID1PERR; 03S0898 00593000 BAL @14,FID1PERR 03S0898 00594000 * IF REG15^=0 THEN/* IF BUFFERS AVAILABLE*/ 00595000 LTR REG15,REG15 03S0899 00596000 BZ @RF00899 03S0899 00597000 * DO; 03S0900 00598000 * 04S0901 00599000 * /***********************************/ 00600000 * /* */ 00601000 * /* PROCESS.SNALU.ACTDACLU: THIS */ 00602000 * /* SEGMENT FURTHER INITIALIZES THE */ 00603000 * /* RESPONSE FOR ACTLU OR DACTLU */ 00604000 * /* */ 00605000 * /***********************************/ 00606000 * 04S0901 00607000 * TRHRUCAT=TRHSC;/* SET SESSION 04S0901 00608000 * CONTROL TYPE */ 00609000 OI TRHRUCAT+10(RTH),B'01100000' 04S0901 00610000 * IF SIBSSTAT=SIBSAPND THEN/* IF 00611000 * ACTLU */ 00612000 TM SIBSSTAT(RSIB),B'00000100' 04S0902 00613000 BNO @RF00902 04S0902 00614000 TM SIBSSTAT(RSIB),B'00011000' 04S0902 00615000 BNZ @RF00902 04S0902 00616000 * HEXCODE=CD1ACTLU;/* SET ACTLU 00617000 * CODE */ 00618000 MVI HEXCODE+17(RTH),X'0D' 04S0903 00619000 * ELSE 04S0904 00620000 * HEXCODE=CD1DATLU;/* SET DACTLU 00621000 * CODE */ 00622000 B @RC00902 04S0904 00623000 @RF00902 MVI HEXCODE+17(RTH),X'0E' 04S0904 00624000 * END; 03S0905 00625000 @RC00902 DS 0H 03S0906 00626000 * END; 03S0906 00627000 @RF00899 DS 0H 03S0907 00628000 * END; 03S0907 00629000 @RF00895 DS 0H 03S0908 00630000 * END; 03S0908 00631000 @RC00864 DS 0H 03S0909 00632000 * RFY 03S0909 00633000 * RTH UNRSTD; 03S0909 00634000 @RF00861 DS 0H 03S0910 00635000 * END; 02S0910 00636000 * ELSE /* PRESNA */ 00637000 * MOREAN=ON; /* REQUEST MORE ANALYSIS */ 00638000 B @RC00858 02S0911 00639000 @RF00858 OI MOREAN,B'10000000' 02S0911 00640000 * IF MOREAN=ON THEN /* MORE ANALYSIS REQUESTED */ 00641000 @RC00858 TM MOREAN,B'10000000' 02S0912 00642000 BNO @RF00912 02S0912 00643000 * DO; 02S0913 00644000 * MOREAN=OFF; /* RESET SWITCH */ 00645000 NI MOREAN,B'01111111' 02S0914 00646000 * IF TRMSNA=ON THEN /* IF SNA ... @YM07731*/ 00647000 TM TRMSNA(RTRM),B'00000010' 02S0915 00648000 BNO @RF00915 02S0915 00649000 * RSIB=TRMSIBPT; /* ... SET SIB ADDRESS */ 00650000 SLR RSIB,RSIB 02S0916 00651000 ICM RSIB,7,TRMSIBPT(RTRM) 02S0916 00652000 * 03S0917 00653000 * /***************************************************/ 00654000 * /* */ 00655000 * /* PROCESS.MOREANAL: THIS SEGMENT CONTINUES THE */ 00656000 * /* PROCESS SEGMENT */ 00657000 * /* */ 00658000 * /***************************************************/ 00659000 * 03S0917 00660000 * IF QCBPLCBN=ON THEN/* PLCB ASSIGNED */ 00661000 @RF00915 SLR @14,@14 03S0917 00662000 ICM @14,7,TRMDESTQ(RTRM) 03S0917 00663000 SL @14,@CF00044 03S0917 00664000 TM QCBPLCBN(@14),B'10000000' 03S0917 00665000 BNO @RF00917 03S0917 00666000 * DO; 03S0918 00667000 * RLCB=QCBPLCBA;/* PLCB BASE */ 00668000 L RLCB,QCBPLCBA-1(,@14) 03S0919 00669000 LA RLCB,0(,RLCB) 03S0919 00670000 * IF LCBMSGNN=ON THEN/* MSGGEN */ 00671000 TM LCBMSGNN(RLCB),B'01000000' 03S0920 00672000 BNO @RF00920 03S0920 00673000 * DO; 03S0921 00674000 * 04S0922 00675000 * /*******************************************/ 00676000 * /* */ 00677000 * /* PROCESS.MOREANAL.MSGGEN: THIS SEGMENT */ 00678000 * /* POSTS THE ERB TO IEDQBD TO CONTINUE */ 00679000 * /* PROCESSING */ 00680000 * /* */ 00681000 * /*******************************************/ 00682000 * 04S0922 00683000 * LCBERBQB=SQCBADR;/* QCB */ 00684000 L @14,AVTMSGS-1(,RAVT) 04S0922 00685000 MVC LCBERBQB(3,RLCB),SQCBADR+1(@14) 04S0922 00686000 * LCBERBPY=PRIRCQCB;/* PRIORITY */ 00687000 MVI LCBERBPY(RLCB),X'E0' 04S0923 00688000 * RPARM=ADDR(LCBERB); 04S0924 00689000 LA RPARM,LCBERB(,RLCB) 04S0924 00690000 * CALL DSPPOSTR; 04S0925 00691000 LA @15,DSPPOSTR(,RDISP) 04S0925 00692000 BALR @14,@15 04S0925 00693000 * END; 03S0926 00694000 * ELSE 03S0927 00695000 * IF LCBRECVN=ON THEN/* RECEIVING */ 00696000 B @RC00920 03S0927 00697000 @RF00920 TM LCBRECVN(RLCB),B'00000010' 03S0927 00698000 BNO @RF00927 03S0927 00699000 * DO; 03S0928 00700000 * 04S0929 00701000 * /*****************************************/ 00702000 * /* */ 00703000 * /* PROCESS.MOREANAL.RECEIVE: THIS SEGMENT*/ 00704000 * /* DOES CLEANUP PROCESSING FOR PLCB */ 00705000 * /* MARKED RECEIVING */ 00706000 * /* */ 00707000 * /*****************************************/ 00708000 * 04S0929 00709000 * RFY 04S0929 00710000 * RTH RSTD; 04S0929 00711000 * IF TRMSNA=ON THEN/* SNA */ 00712000 TM TRMSNA(RTRM),B'00000010' 04S0930 00713000 BNO @RF00930 04S0930 00714000 * IF SIBINBIU=ON THEN/* SEGMENTING */ 00715000 TM SIBINBIU(RSIB),B'00100000' 04S0931 00716000 BNO @RF00931 04S0931 00717000 * DO; 04S0932 00718000 * 05S0933 00719000 * /***********************************/ 00720000 * /* */ 00721000 * /* PROCESS.MOREANAL.RECEIVE.COPYSEG*/ 00722000 * /* : THIS SEGMENT GETS A BUFFER AND*/ 00723000 * /* COPYS THE FIRST UNIT OF A */ 00724000 * /* SEGMENT CHAIN, SETS BEGIN */ 00725000 * /* SEGMENT, AND END SEGMENT TO */ 00726000 * /* TERMINATE SEGMENTING */ 00727000 * /* */ 00728000 * /***********************************/ 00729000 * 05S0933 00730000 * RFY 05S0933 00731000 * REG00 RSTD; 05S0933 00732000 * CALL GETBUF; 05S0934 00733000 BAL @14,GETBUF 05S0934 00734000 * IF REG15^=0 THEN/* IF BUFFER 05S0935 00735000 * AVAILABLE */ 00736000 LTR REG15,REG15 05S0935 00737000 BZ @RF00935 05S0935 00738000 * DO; 05S0936 00739000 * RFY 05S0937 00740000 * IEDQPRF BASED(REG15); 05S0937 00741000 * PRFQCBA=SAVTIPCQ;/* QCB */ 00742000 L @14,AVTSAVTP(,RAVT) 05S0938 00743000 MVC PRFQCBA(3,REG15),SAVTIPCQ+1(@14) 05S0938 00744000 * PRFPRI=PRIFLDH;/* PRIORITY */ 00745000 MVI PRFPRI(REG15),X'E4' 05S0939 00746000 * PRFPIUO=PIUOVALU;/* SET 05S0940 00747000 * VALUE=X'11' */ 00748000 LA @14,17 05S0940 00749000 STC @14,PRFPIUO(,REG15) 05S0940 00750000 * NEWTHRH=OLDTHRH;/* COPY TH AND 00751000 * RH */ 00752000 LA @09,PRFPIUO(,REG15) 05S0941 00753000 ALR @14,@09 05S0941 00754000 L @07,SIBRUSEG(,RSIB) 05S0941 00755000 SLR @03,@03 05S0941 00756000 IC @03,PRFPIUO(,@07) 05S0941 00757000 ALR @09,@03 05S0941 00758000 MVC NEWTHRH(13,@14),OLDTHRH(@09) 05S0941 00759000 * RTH=PRFPIUO+ADDR(PRFPIUO);/* TTH 00760000 * BASE */ 00761000 LR RTH,@14 05S0942 00762000 * REG00=TTHOAF;/* SAVE OAF FOR 00763000 * SWAP */ 00764000 SLR REG00,REG00 05S0943 00765000 ICM REG00,3,TTHOAF(RTH) 05S0943 00766000 * TTHOAF=TTHDAF;/* MAKE ORIGIN 00767000 * DESTINATION */ 00768000 MVC TTHOAF(2,RTH),TTHDAF(RTH) 05S0944 00769000 * TTHDAF=REG00;/* MAKE DESTINATION 00770000 * ORIGIN */ 00771000 STCM REG00,3,TTHDAF(RTH) 05S0945 00772000 * SNSMAJ=SNSPATH;/* SET PATH ERROR 00773000 * SENSE */ 00774000 LA @14,13 05S0946 00775000 ALR @14,RTH 05S0946 00776000 MVI SNSMAJ(@14),X'80' 05S0946 00777000 * IF CURTERM=ON THEN/* FORCED 00778000 * TERMINATE REQ. @YM08991*/ 00779000 TM CURTERM(RCUR),B'00000001' 05S0947 00780000 BNO @RF00947 05S0947 00781000 * SNSMIN=SNSLUINP;/* YES, SET LU 00782000 * INOPERATV @YM08991*/ 00783000 MVI SNSMIN(@14),X'03' 05S0948 00784000 * ELSE/* NO, @YM08991*/ 00785000 * SNSMIN=SNSLNKF;/* SET LINK 00786000 * FAILURE SENSE */ 00787000 B @RC00947 05S0949 00788000 @RF00947 MVI SNSMIN+13(RTH),X'02' 05S0949 00789000 * SNSUSER=0;/* NO USER DATA SENSE */ 00790000 @RC00947 SLR @14,@14 05S0950 00791000 STCM @14,3,SNSUSER+13(RTH) 05S0950 00792000 * IF SIBRUSEG->TRHTYPE=ON THEN/* 00793000 * IF A REQUEST */ 00794000 L @14,SIBRUSEG(,RSIB) 05S0951 00795000 TM TRHTYPE(@14),B'10000000' 05S0951 00796000 BNO @RF00951 05S0951 00797000 * DO;/* SET NEGATIVE RESPONSE */ 00798000 * TRHDR1=ON;/* SET DEFINITE 00799000 * RESPONSE 1 */ 00800000 LA @14,10 05S0953 00801000 ALR @14,RTH 05S0953 00802000 OI TRHDR1(@14),B'10000000' 05S0953 00803000 * TRHTYPE=ON;/* SET RESPONSE */ 00804000 OI TRHTYPE(@14),B'10000000' 05S0954 00805000 * TRHER=ON;/* SET EXCEPTION 00806000 * RESPONSE */ 00807000 OI TRHER(@14),B'00010000' 05S0955 00808000 * END; 05S0956 00809000 * ELSE/* SET EXR */ 00810000 * TRHTYPE=OFF;/* REQUEST */ 00811000 B @RC00951 05S0957 00812000 @RF00951 NI TRHTYPE+10(RTH),B'01111111' 05S0957 00813000 * TRHSDI=ON;/* SENSE DATA INCLUDED*/ 00814000 @RC00951 DS 0H 05S0959 00815000 * TRHBC=ON;/* BEGIN CHAIN */ 00816000 * TRHEC=ON;/* END CHAIN */ 00817000 OI TRHSDI+10(RTH),B'00000111' 05S0960 00818000 * TTHBBIU=ON;/* BEGIN SEGMENT */ 00819000 * TTHEBIU=ON;/* END SEGMENT */ 00820000 OI TTHBBIU(RTH),B'00001100' 05S0962 00821000 * PRFTIC=CURPIUPC;/* ADD TO PIU 00822000 * FOR PATH CONTROL QUEUE */ 00823000 L @14,CURPIUPC(,RCUR) 05S0963 00824000 ST @14,PRFTIC(,REG15) 05S0963 00825000 * CURPIUPC=REG15;/* SAME */ 00826000 ST REG15,CURPIUPC(,RCUR) 05S0964 00827000 * RFY 05S0965 00828000 * IEDQPRF BASED(RPRF); 05S0965 00829000 * END; 05S0966 00830000 * RFY 05S0967 00831000 * REG00 UNRSTD; 05S0967 00832000 @RF00935 DS 0H 05S0968 00833000 * END; 04S0968 00834000 * ELSE 04S0969 00835000 * IF LCBCHN=LCBINC/* IN CHAIN STATE OR 00836000 * ... */ 00837000 * |LCBCHN=LCBPURG/* ... PURGE CHAIN 00838000 * STATE OR ... */ 00839000 * |(LCBCHN=LCBWMG&TRMINPTP=ON) THEN 00840000 B @RC00931 04S0969 00841000 @RF00931 TM LCBCHN(RLCB),B'00010000' 04S0969 00842000 BNO @GL00017 04S0969 00843000 TM LCBCHN(RLCB),B'11100000' 04S0969 00844000 BZ @RT00969 04S0969 00845000 @GL00017 TM LCBCHN(RLCB),B'00100000' 04S0969 00846000 BNO @GL00016 04S0969 00847000 TM LCBCHN(RLCB),B'11010000' 04S0969 00848000 BZ @RT00969 04S0969 00849000 @GL00016 TM LCBCHN(RLCB),B'00110000' 04S0969 00850000 BNO @RF00969 04S0969 00851000 TM LCBCHN(RLCB),B'11000000' 04S0969 00852000 BNZ @RF00969 04S0969 00853000 TM TRMINPTP(RTRM),B'01000000' 04S0969 00854000 BNO @RF00969 04S0969 00855000 @RT00969 DS 0H 04S0970 00856000 * /* ... BETWEEN CHAIN WITH INPUT 00857000 * PENDING */ 00858000 * DO; 04S0970 00859000 * 05S0971 00860000 * /*********************************/ 00861000 * /* */ 00862000 * /* PROCESS.MOREANAL.RECEIVE.FID1E*/ 00863000 * /* XR: THIS SEGMENT BUILDS A FID1*/ 00864000 * /* EXR RESPONSE */ 00865000 * /* */ 00866000 * /*********************************/ 00867000 * 05S0971 00868000 * CALL FID1PERR; 05S0971 00869000 BAL @14,FID1PERR 05S0971 00870000 * IF REG15^=0 THEN/* IF BUFFER 00871000 * AVAILABLE */ 00872000 LTR REG15,REG15 05S0972 00873000 BZ @RF00972 05S0972 00874000 * DO; 05S0973 00875000 * TRHBC=ON;/* BEGIN CHAIN */ 00876000 * TRHEC=ON;/* END CHAIN */ 00877000 LA @14,10 05S0975 00878000 ALR @14,RTH 05S0975 00879000 OI TRHBC(@14),B'00000011' 05S0975 00880000 * TRHRUCAT=TRHFMD;/* SET FM DATA 00881000 * TYPE */ 00882000 NI TRHRUCAT(@14),B'10011111' 05S0976 00883000 * END; 05S0977 00884000 * END; 04S0978 00885000 * ELSE 04S0979 00886000 * IF LCBCHN=LCBWERAS/* SCREEN 04S0979 00887000 * RESPONSE OUTSTANDING OR ... */ 00888000 * |LCBCHN=LCBWSMI THEN/* ... 00889000 * WAITING FOR SMI */ 00890000 B @RC00969 04S0979 00891000 @RF00969 TM LCBCHN(RLCB),B'01110000' 04S0979 00892000 BNO @GL00019 04S0979 00893000 TM LCBCHN(RLCB),B'10000000' 04S0979 00894000 BZ @RT00979 04S0979 00895000 @GL00019 TM LCBCHN(RLCB),B'10000000' 04S0979 00896000 BNO @RF00979 04S0979 00897000 TM LCBCHN(RLCB),B'01110000' 04S0979 00898000 BNZ @RF00979 04S0979 00899000 @RT00979 DS 0H 04S0980 00900000 * DO; 04S0980 00901000 * CALL FID1PERR; 04S0981 00902000 BAL @14,FID1PERR 04S0981 00903000 * IF REG15^=0 THEN/* IF BUFFER 00904000 * ABAILABLE */ 00905000 LTR REG15,REG15 04S0982 00906000 BZ @RF00982 04S0982 00907000 * DO; 04S0983 00908000 * 05S0984 00909000 * /******************************/ 00910000 * /* */ 00911000 * /* STATANAL.MOREANAL.RECEIVE.S*/ 00912000 * /* ESMI: THIS SEGMENT TALORS */ 00913000 * /* THE RESPONSE FOR SCREEN */ 00914000 * /* RESPONSE OR SMI */ 00915000 * /* */ 00916000 * /******************************/ 00917000 * 05S0984 00918000 * TRHRUCAT=TRHFMD;/* SET FM DATA 00919000 * TYPE */ 00920000 NI TRHRUCAT+10(RTH),B'10011111' 05S0984 00921000 * TTHEFI=OFF;/* RESET EXPEDITED 00922000 * FLOW */ 00923000 NI TTHEFI(RTH),B'11111110' 05S0985 00924000 * END; 04S0986 00925000 * END; 04S0987 00926000 * ELSE 04S0988 00927000 * ; 04S0988 00928000 @RF00979 DS 0H 04S0989 00929000 * ELSE 04S0989 00930000 * DO; 04S0989 00931000 B @RC00930 04S0989 00932000 @RF00930 DS 0H 04S0990 00933000 * 05S0990 00934000 * /*************************************/ 00935000 * /* */ 00936000 * /* PROCESS.MOREANAL.RECEIVE.NONSNA: */ 00937000 * /* THIS SEGMENT DOES LCB AND SCB */ 00938000 * /* ANALYSIS FOR NON-SNA DEVICES */ 00939000 * /* */ 00940000 * /*************************************/ 00941000 * 05S0990 00942000 * IF LCBCONT=ON/* MIDDLE OF CHAIN OR 00943000 * ... */ 00944000 * |SCBBFMM=ON THEN/* ... MIDDLE OF 00945000 * MESSAGE */ 00946000 TM LCBCONT(RLCB),B'00001000' 05S0990 00947000 BO @RT00990 05S0990 00948000 L @14,LCBSCBA-1(,RLCB) 05S0990 00949000 TM SCBBFMM(@14),B'00000001' 05S0990 00950000 BNO @RF00990 05S0990 00951000 @RT00990 DS 0H 05S0991 00952000 * DO; 05S0991 00953000 * CALL FID0PERR; 05S0992 00954000 BAL @14,FID0PERR 05S0992 00955000 * IF REG15^=0 THEN/* IF BUFFER 00956000 * AVAILABLE */ 00957000 LTR REG15,REG15 05S0993 00958000 BZ @RF00993 05S0993 00959000 * DO; 05S0994 00960000 * BDUCMND=CD0READ;/* SET READ */ 00961000 LA @14,14 05S0995 00962000 ALR @14,RTH 05S0995 00963000 MVI BDUCMND(@14),X'01' 05S0995 00964000 * BDUMODIF=CD0RT;/* SET READ 00965000 * TRANSMISSION */ 00966000 MVI BDUMODIF(@14),X'03' 05S0996 00967000 * END; 05S0997 00968000 * END; 05S0998 00969000 * ELSE 05S0999 00970000 * IF SCBLCK1N=ON THEN/* IF LOCK MODE */ 00971000 B @RC00990 05S0999 00972000 @RF00990 L @14,LCBSCBA-1(,RLCB) 05S0999 00973000 TM SCBLCK1N(@14),B'00100000' 05S0999 00974000 BNO @RF00999 05S0999 00975000 * DO; 05S1000 00976000 * 06S1001 00977000 * /********************************/ 00978000 * /* */ 00979000 * /* PROCESS.MOREANAL.RECEIVE.NONS*/ 00980000 * /* NA.LOCK: THIS SEGMENT CLEANS */ 00981000 * /* UP LOCK MODE @YM06114*/ 00982000 * /* */ 00983000 * /********************************/ 00984000 * 06S1001 00985000 * IF QCBLKRRN=0 THEN/* LOCK 06S1001 00986000 * RELATIVE RECORD NUMBER ZERO 00987000 * @YM06114*/ 00988000 SLR @14,@14 06S1001 00989000 ICM @14,7,TRMDESTQ(RTRM) 06S1001 00990000 L @14,QCBLKRRN-1(,@14) 06S1001 00991000 LA @14,0(,@14) 06S1001 00992000 LTR @14,@14 06S1001 00993000 BNZ @RF01001 06S1001 00994000 * DO;/* @YM06114*/ 00995000 * IF TRMINOUT=ON|/* INVITE 06S1003 00996000 * OUTSTANDING OR @YM08094*/ 00997000 * TRMRDOUT=ON THEN/* READ 00998000 * OUTSTANDING THEN @YM08094*/ 00999000 TM TRMINOUT(RTRM),B'00000011' 06S1003 01000000 BZ @RF01003 06S1003 01001000 * DO;/* @YM08094*/ 01002000 * CALL FID0PERR;/* BUILD FID0 01003000 * RESPONSE @YM08094*/ 01004000 BAL @14,FID0PERR 06S1005 01005000 * IF REG15^=0 THEN/* IF BUFFER 01006000 * AVAILABLE @YM08094*/ 01007000 LTR REG15,REG15 06S1006 01008000 BZ @RF01006 06S1006 01009000 * DO;/* @YM08094*/ 01010000 * CALL IRMNC;/* SET COMMAND 01011000 * & MODIFIER @YM08094*/ 01012000 BAL @14,IRMNC 06S1008 01013000 * SCBDESTQ=ADDR(AVTBFRTB);/* 01014000 * SCBDESTQ TO BFR RTN @YM08094*/ 01015000 L @14,LCBSCBA-1(,RLCB) 06S1009 01016000 LA @09,AVTBFRTB(,RAVT) 06S1009 01017000 STCM @09,7,SCBDESTQ(@14) 06S1009 01018000 * END;/* @YM08094*/ 01019000 * END;/* @YM08094*/ 01020000 * ELSE/* @YM08094*/ 01021000 * IF LCBBDFLG=ON THEN/* NOT TO 01022000 * BD @YM06114*/ 01023000 B @RC01003 06S1012 01024000 @RF01003 TM LCBBDFLG(RLCB),B'10000000' 06S1012 01025000 BNO @RF01012 06S1012 01026000 * REG15=1;/* INDICATE NO BFR 01027000 * NEEDED @YM08094*/ 01028000 LA REG15,1 06S1013 01029000 * ELSE/* @YM06114*/ 01030000 * DO;/* @YM06114*/ 01031000 B @RC01012 06S1014 01032000 @RF01012 DS 0H 06S1015 01033000 * LCBQCBA=SQCBADR;/* BD'S QCB 01034000 * ADDR @YM08094*/ 01035000 L @14,AVTMSGS-1(,RAVT) 06S1015 01036000 MVC LCBQCBA(3,RLCB),SQCBADR+1(@14) 06S1015 01037000 * LCBPRI=PRILCB;/* CLEANUP 01038000 * PRIORITY @YM08094*/ 01039000 MVI LCBPRI(RLCB),X'E7' 06S1016 01040000 * LCBRCLLN=ON;/* INDICATE 01041000 * BFRS FREED @YM08094*/ 01042000 OI LCBRCLLN(RLCB),B'10000000' 06S1017 01043000 * RPARM=RLCB;/* ADDRESS OF 01044000 * PLCB @YM06114*/ 01045000 LR RPARM,RLCB 06S1018 01046000 * CALL DSPPOSTR;/* POST PLCB 01047000 * TO ITSELF @YM06114*/ 01048000 LA @15,DSPPOSTR(,RDISP) 06S1019 01049000 BALR @14,@15 06S1019 01050000 * END;/* @YM06114*/ 01051000 * IF REG15^=0 THEN/* IF BUFFER 01052000 * WAS EITHER AVAILABLE OR NOT 01053000 * NEEDED THEN @YM08094*/ 01054000 @RC01012 DS 0H 06S1021 01055000 @RC01003 SLR @14,@14 06S1021 01056000 CR REG15,@14 06S1021 01057000 BE @RF01021 06S1021 01058000 * DO;/* @YM08094*/ 01059000 * LCBINSRC=0;/* RESET @YM06114*/ 01060000 STCM @14,7,LCBINSRC(RLCB) 06S1023 01061000 * SCBLCK1N=OFF;/* RESET LOCK 01062000 * MODE @YM06114*/ 01063000 * SCBMSGLN=OFF;/* RESET LOCK 01064000 * MODE @YM06114*/ 01065000 L @14,LCBSCBA-1(,RLCB) 06S1025 01066000 NI SCBLCK1N(@14),B'11010111' 06S1025 01067000 * QCBLKRLN=0;/* ZERO @YM06114*/ 01068000 SLR @14,@14 06S1026 01069000 ICM @14,7,TRMDESTQ(RTRM) 06S1026 01070000 MVI QCBLKRLN(@14),X'00' 06S1026 01071000 * END;/* @YM08094*/ 01072000 * END;/* @YM06114*/ 01073000 @RF01021 DS 0H 06S1029 01074000 * END; 05S1029 01075000 @RF01001 DS 0H 05S1030 01076000 * END; 04S1030 01077000 @RF00999 DS 0H 04S1030 01078000 @RC00990 DS 0H 04S1031 01079000 * RFY 04S1031 01080000 * RTH UNRSTD; 04S1031 01081000 @RC00930 DS 0H 04S1032 01082000 * END; 03S1032 01083000 * ELSE 03S1033 01084000 * DO; 03S1033 01085000 B @RC00927 03S1033 01086000 @RF00927 DS 0H 03S1034 01087000 * 04S1034 01088000 * /*****************************************/ 01089000 * /* */ 01090000 * /* PROCESS.MOREANAL.SENDING: THIS SEGMENT*/ 01091000 * /* DOES CLEANUP PROCESSING FOR PLCB */ 01092000 * /* MARKED SENDING */ 01093000 * /* */ 01094000 * /*****************************************/ 01095000 * 04S1034 01096000 * RFY 04S1034 01097000 * RTH RSTD; 04S1034 01098000 * IF LCBDLNKN=OFF/* DISK I/O OR ... */ 01099000 * |LCBRCLLN=ON THEN 04S1035 01100000 TM LCBDLNKN(RLCB),B'00000001' 04S1035 01101000 BZ @RT01035 04S1035 01102000 TM LCBRCLLN(RLCB),B'10000000' 04S1035 01103000 BO @RT01035 04S1035 01104000 * ; /* ... RECALL -- DO NOTHING */ 01105000 * ELSE 04S1037 01106000 * IF TRMSNA=ON THEN/* IF SNA */ 01107000 TM TRMSNA(RTRM),B'00000010' 04S1037 01108000 BNO @RF01037 04S1037 01109000 * DO; 04S1038 01110000 * 05S1039 01111000 * /***********************************/ 01112000 * /* */ 01113000 * /* PROCESS.MOREANAL.SENDING.SNALCBC*/ 01114000 * /* H: THIS SEGMENT DOES PLCB */ 01115000 * /* ANALYSIS FOR SNA DEVICES MARKED */ 01116000 * /* SENDING */ 01117000 * /* */ 01118000 * /***********************************/ 01119000 * 05S1039 01120000 * IF LCBCHN=LCBINC/* IN CHAIN STATE 01121000 * OR ... */ 01122000 * |LCBCHN=LCBPURG/* ... PURGE 01123000 * CHAIN STATE OR ... */ 01124000 * |LCBCHN=LCBWFMD THEN/* ... 01125000 * WAITING FOR RESPONSE TO FM 01126000 * DATA */ 01127000 TM LCBCHN(RLCB),B'00010000' 05S1039 01128000 BNO @GL00023 05S1039 01129000 TM LCBCHN(RLCB),B'11100000' 05S1039 01130000 BZ @RT01039 05S1039 01131000 @GL00023 TM LCBCHN(RLCB),B'00100000' 05S1039 01132000 BNO @GL00022 05S1039 01133000 TM LCBCHN(RLCB),B'11010000' 05S1039 01134000 BZ @RT01039 05S1039 01135000 @GL00022 TM LCBCHN(RLCB),B'01000000' 05S1039 01136000 BNO @RF01039 05S1039 01137000 TM LCBCHN(RLCB),B'10110000' 05S1039 01138000 BNZ @RF01039 05S1039 01139000 @RT01039 DS 0H 05S1040 01140000 * DO; 05S1040 01141000 * CALL FID1PERR; 05S1041 01142000 BAL @14,FID1PERR 05S1041 01143000 * IF REG15^=0 THEN/* BUFFER 05S1042 01144000 * AVAILABLE */ 01145000 LTR REG15,REG15 05S1042 01146000 BZ @RF01042 05S1042 01147000 * DO; 05S1043 01148000 * 06S1044 01149000 * /******************************/ 01150000 * /* */ 01151000 * /* PROCESS.MOREANAL.SENDING.SN*/ 01152000 * /* ALCBCH.ICPC: THIS SEGMENT */ 01153000 * /* FURTHER INITS FID1 PATH */ 01154000 * /* ERROR RESPONSES FOR FM DATA*/ 01155000 * /* */ 01156000 * /******************************/ 01157000 * 06S1044 01158000 * TRHRUCAT=TRHFMD;/* SET FM DATA 01159000 * CATAGORY */ 01160000 LA @14,10 06S1044 01161000 ALR @14,RTH 06S1044 01162000 NI TRHRUCAT(@14),B'10011111' 06S1044 01163000 * TTHEFI=OFF;/* RESET EXPIDITED 01164000 * FLOW */ 01165000 NI TTHEFI(RTH),B'11111110' 06S1045 01166000 * TRHFI=OFF;/* RESET FORMATTED */ 01167000 NI TRHFI(@14),B'11110111' 06S1046 01168000 * END; 05S1047 01169000 * END; 05S1048 01170000 * ELSE 05S1049 01171000 * IF LCBCHN=LCBWCAN/* WAITING FOR 01172000 * CANCEL OR ... */ 01173000 * |LCBCHN=LCBWBID THEN/* ... 01174000 * WAITING FOR BID */ 01175000 B @RC01039 05S1049 01176000 @RF01039 TM LCBCHN(RLCB),B'01010000' 05S1049 01177000 BNO @GL00024 05S1049 01178000 TM LCBCHN(RLCB),B'10100000' 05S1049 01179000 BZ @RT01049 05S1049 01180000 @GL00024 TM LCBCHN(RLCB),B'01100000' 05S1049 01181000 BNO @RF01049 05S1049 01182000 TM LCBCHN(RLCB),B'10010000' 05S1049 01183000 BNZ @RF01049 05S1049 01184000 @RT01049 DS 0H 05S1050 01185000 * DO; 05S1050 01186000 * CALL FID1PERR; 05S1051 01187000 BAL @14,FID1PERR 05S1051 01188000 * IF REG15^=0 THEN/* BUFFER 05S1052 01189000 * AVAILABLE */ 01190000 LTR REG15,REG15 05S1052 01191000 BZ @RF01052 05S1052 01192000 * DO; 05S1053 01193000 * 06S1054 01194000 * /*****************************/ 01195000 * /* */ 01196000 * /* PROCESS.MOREANAL.SENDING.S*/ 01197000 * /* NALCBCH.CANCBID: THIS */ 01198000 * /* SEGMENT FURTHER */ 01199000 * /* INITIALIZES RESPONCES FOR */ 01200000 * /* CANCEL OR BID */ 01201000 * /* */ 01202000 * /*****************************/ 01203000 * 06S1054 01204000 * TRHRUCAT=TRHDFC;/* SET 06S1054 01205000 * CATAGORY */ 01206000 NI TRHRUCAT+10(RTH),B'11011111' 06S1054 01207000 OI TRHRUCAT+10(RTH),B'01000000' 06S1054 01208000 * TTHEFI=OFF;/* RESET EXPIDITED 01209000 * FLOW */ 01210000 NI TTHEFI(RTH),B'11111110' 06S1055 01211000 * HEXCODE=CD1CANCL;/* CANCEL 01212000 * HEX CODE */ 01213000 LA @14,17 06S1056 01214000 ALR @14,RTH 06S1056 01215000 MVI HEXCODE(@14),X'83' 06S1056 01216000 * IF LCBCHN=LCBWBID THEN/* 01217000 * WAITING FOR BID */ 01218000 TM LCBCHN(RLCB),B'01100000' 05S1057 01219000 BNO @RF01057 05S1057 01220000 TM LCBCHN(RLCB),B'10010000' 05S1057 01221000 BNZ @RF01057 05S1057 01222000 * DO; 05S1058 01223000 * 06S1059 01224000 * /***************************/ 01225000 * /* */ 01226000 * /* PROCESS.MOREANAL.SENDING*/ 01227000 * /* .SNALCBCH.BID: THIS */ 01228000 * /* SEGMENT MODIFIES A ERROR*/ 01229000 * /* RESPONSE TO CANCEL TO BE*/ 01230000 * /* A ERROR RESPONSE TO BID */ 01231000 * /* */ 01232000 * /***************************/ 01233000 * 06S1059 01234000 * HEXCODE=CD1BID;/* SET BID 01235000 * HEX CODE */ 01236000 MVI HEXCODE(@14),X'C8' 06S1059 01237000 * END; 05S1060 01238000 * END; 05S1061 01239000 * END; 05S1062 01240000 * END; 04S1063 01241000 * ELSE 04S1064 01242000 * DO; 04S1064 01243000 B @RC01037 04S1064 01244000 @RF01037 DS 0H 04S1065 01245000 * CALL FID0PERR; 04S1065 01246000 BAL @14,FID0PERR 04S1065 01247000 * IF REG15^=0 THEN/* IF BUFFER 04S1066 01248000 * AVAILABLE */ 01249000 LTR REG15,REG15 04S1066 01250000 BZ @RF01066 04S1066 01251000 * DO; 04S1067 01252000 * BDUCMND=CD0WRT;/* SET WRITE */ 01253000 LA @14,14 04S1068 01254000 ALR @14,RTH 04S1068 01255000 MVI BDUCMND(@14),X'02' 04S1068 01256000 * BDUMODIF=CD0RT;/* READ 04S1069 01257000 * TRANSMISSION */ 01258000 MVI BDUMODIF(@14),X'03' 04S1069 01259000 * END; 04S1070 01260000 * END; 04S1071 01261000 @RF01066 DS 0H 04S1072 01262000 * RFY 04S1072 01263000 * RTH UNRSTD; 04S1072 01264000 @RC01037 DS 0H 04S1072 01265000 @RT01035 DS 0H 04S1073 01266000 * END; 03S1073 01267000 * END; 03S1074 01268000 * ELSE 03S1075 01269000 * DO; 03S1075 01270000 B @RC00917 03S1075 01271000 @RF00917 DS 0H 03S1076 01272000 * 04S1076 01273000 * /***********************************************/ 01274000 * /* */ 01275000 * /* PROCESS.MOREANAL.NOPLCB: THIS SEGMENT DOES */ 01276000 * /* TRM ANALYSIS FOR DEVICE WITHOUT A PLCB */ 01277000 * /* ASSIGNED */ 01278000 * /* */ 01279000 * /***********************************************/ 01280000 * 04S1076 01281000 * RFY 04S1076 01282000 * RTH RSTD; 04S1076 01283000 * IF TRMSNA=OFF&/* IF NOT SNA AND ... */ 01284000 * (TRMINOUT=ON/* ... INVITE OUTSTANDING OR 01285000 * ... */ 01286000 * |TRMRDOUT=ON/* ... READ OUTSTANDING OR ... */ 01287000 * |TRMPREP=ON/* ... TSOMM OUTSTANDING OR ... */ 01288000 * |TRMNLOUT=ON/* ... NULL WRITE OUTSTANDING 01289000 * OR ... */ 01290000 * |(TRMCONT=ON&TRMSESSN=OFF)) THEN/* ... 01291000 * CONTACT OUTSTANDING TO A DIAL 01292000 * TERMINAL @YM07784*/ 01293000 TM TRMSNA(RTRM),B'00000010' 04S1077 01294000 BNZ @RF01077 04S1077 01295000 TM TRMINOUT(RTRM),B'00000011' 04S1077 01296000 BNZ @RT01077 04S1077 01297000 TM TRMPREP(RTRM),B'00000100' 04S1077 01298000 BO @RT01077 04S1077 01299000 TM TRMNLOUT(RTRM),B'00000100' 04S1077 01300000 BO @RT01077 04S1077 01301000 TM TRMCONT(RTRM),B'10000000' 04S1077 01302000 BNO @RF01077 04S1077 01303000 TM TRMSESSN(RTRM),B'01000000' 04S1077 01304000 BNZ @RF01077 04S1077 01305000 @RT01077 DS 0H 04S1078 01306000 * DO; 04S1078 01307000 * CALL FID0PERR; 04S1079 01308000 BAL @14,FID0PERR 04S1079 01309000 * IF REG15^=0 THEN/* IF BUFFER AVAILABLE 01310000 * @YM07784*/ 01311000 LTR REG15,REG15 04S1080 01312000 BZ @RF01080 04S1080 01313000 * CALL IRMNC;/* SET COMMAND & MODIFIER 01314000 * @YM08094*/ 01315000 BAL @14,IRMNC 04S1081 01316000 * END; 04S1082 01317000 @RF01080 DS 0H 04S1083 01318000 * RFY 04S1083 01319000 * RTH UNRSTD; 04S1083 01320000 @RF01077 DS 0H 04S1084 01321000 * END; 03S1084 01322000 * END; 02S1085 01323000 @RC00917 DS 0H 02S1086 01324000 * END; 02S1086 01325000 @RF00912 DS 0H 02S1087 01326000 * 02S1087 01327000 * /*****************************************************************/ 01328000 * /* */ 01329000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 01330000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. THE CALL TO DSPDISP*/ 01331000 * /* IS USED TO EXIT TO THE DISPATCHER */ 01332000 * /* */ 01333000 * /*****************************************************************/ 01334000 * 02S1087 01335000 * RFY 02S1087 01336000 * RRETURN RSTD; 02S1087 01337000 @RT00855 DS 0H 02S1087 01338000 @RC00832 DS 0H 02S1087 01339000 @RC00808 DS 0H 02S1087 01340000 @RC00757 DS 0H 02S1088 01341000 * RPARM=RTRM; /* RESTORE TRM ADDRESS */ 01342000 LR RPARM,RTRM 02S1088 01343000 * GEN REFS(USERREGS) SETS(RRETURN); 02S1089 01344000 * /* 01345000 LM RCUR,RRETURN,USERREGS RESTORE USER REGISTERS 01346000 * RFY 02S1090 01347000 * RRETURN UNRSTD; 02S1090 01348000 * 02S1091 01349000 * /*****************************************************************/ 01350000 * /* */ 01351000 * /* GETBUF: THIS SEGMENT CONTAINS THE GETBUF INTERNAL PROCEDURE */ 01352000 * /* WHICH ACQUIRES BUFFERS TO BE USED TO CONTAIN A RESPONSE. */ 01353000 * /* AVAILABLE BUFFER UNITS ARE CHAINED ON CURNEWBF. IF NONE ARE */ 01354000 * /* AVAILABLE, A BUFFER STEAL IS ATTEMPTED. IF NONE ARE AVAILABLE,*/ 01355000 * /* R1 IS RETURNED 0 ELSE R1 IS RETURNED WITH THE ADDRESS OF THE */ 01356000 * /* ACQUIRED BUFFER */ 01357000 * /* */ 01358000 * /*****************************************************************/ 01359000 * 02S1091 01360000 *GETBUF: 02S1091 01361000 * PROC OPTIONS(RETREG,SAVE(14)); 02S1091 01362000 @EL00001 DS 0H 02S1091 01363000 @EF00001 DS 0H 02S1091 01364000 @ER00001 BR @14 02S1091 01365000 GETBUF ST @14,@SA00002 02S1091 01366000 * RFY 02S1092 01367000 * REG00 RSTD; 02S1092 01368000 * IF CURNEWBF^=0 /* IF ANY BUFFERS ARE AVAILABLE 01369000 * ... */ 01370000 * &CURNEWBF^=PRFINTIC THEN /* ... ON FREE BUFFER QUEUE */ 01371000 L @14,CURNEWBF(,RCUR) 02S1093 01372000 LTR @14,@14 02S1093 01373000 BZ @RF01093 02S1093 01374000 C @14,@CF01794 02S1093 01375000 BE @RF01093 02S1093 01376000 * DO; /* DEQUEUE THE TOP ONE */ 01377000 * RFY 02S1095 01378000 * IEDQPRF BASED(REG15); 02S1095 01379000 * REG15=CURNEWBF; /* ADDRESS OF BUFFER TO RETURN TO 01380000 * CALLER */ 01381000 LR REG15,@14 02S1096 01382000 * CURNEWBF=PRFTIC; /* CONTINUE CHAIN */ 01383000 L @14,PRFTIC(,REG15) 02S1097 01384000 ST @14,CURNEWBF(,RCUR) 02S1097 01385000 * RFY 02S1098 01386000 * IEDQPRF BASED(RPRF); 02S1098 01387000 * END; 02S1099 01388000 * ELSE /* NO BUFFERS AVAILABLE */ 01389000 * DO; /* STEAL ONE */ 01390000 B @RC01093 02S1100 01391000 @RF01093 DS 0H 02S1101 01392000 * REG00=1; /* ONE BUFFER */ 01393000 LA @14,1 02S1101 01394000 LR REG00,@14 02S1101 01395000 * RPARM=1; /* ONE UNIT */ 01396000 LR RPARM,@14 02S1102 01397000 * CALL IEDQGA02; 02S1103 01398000 L @15,AVTSTEAL(,RAVT) 02S1103 01399000 BALR @14,@15 02S1103 01400000 * END; 02S1104 01401000 * IF REG15^=0 THEN /* IF A BUFFER IS AVAILABLE ... 01402000 * @YM07815*/ 01403000 @RC01093 LTR REG15,REG15 02S1105 01404000 BZ @RF01105 02S1105 01405000 * DO; /* ... INITIALIZE IT TO ZERO 01406000 * @YM07815*/ 01407000 * RFY 02S1107 01408000 * IEDQPRF BASED(REG15); 02S1107 01409000 * CLEARBUF=''B; /* CLEAR UNIT */ 01410000 LR @14,REG15 02S1108 01411000 AL @14,@CF02779 02S1108 01412000 XC CLEARBUF(64,@14),CLEARBUF(@14) 02S1108 01413000 * RFY 02S1109 01414000 * IEDQPRF BASED(RPRF); 02S1109 01415000 * END; /* @YM07815*/ 01416000 * RFY 02S1111 01417000 * REG00 UNRSTD; 02S1111 01418000 * END GETBUF; 02S1112 01419000 @EL00002 DS 0H 02S1112 01420000 @EF00002 DS 0H 02S1112 01421000 @ER00002 L @14,@SA00002 02S1112 01422000 BR @14 02S1112 01423000 * 02S1113 01424000 * /*****************************************************************/ 01425000 * /* */ 01426000 * /* FID1PERR: THIS SEGMENT CONTAINS THE INTERNAL PROCEDURE WHICH */ 01427000 * /* BUILDS A STANDARD FID1 PATH ERROR RESPONSE */ 01428000 * /* */ 01429000 * /*****************************************************************/ 01430000 * 02S1113 01431000 *FID1PERR: 02S1113 01432000 * PROC OPTIONS(RETREG,SAVE(14)); 02S1113 01433000 FID1PERR ST @14,@SA00003 02S1113 01434000 * RFY 02S1114 01435000 * RTH RSTD; 02S1114 01436000 * CALL GETBUF; 02S1115 01437000 BAL @14,GETBUF 02S1115 01438000 * IF REG15^=0 THEN /* GOT BUFFER */ 01439000 SLR @14,@14 02S1116 01440000 CR REG15,@14 02S1116 01441000 BE @RF01116 02S1116 01442000 * DO; 02S1117 01443000 * RPRF=REG15; /* BUFFER POINTER */ 01444000 LR RPRF,REG15 02S1118 01445000 * PRFPIUO=PIUOVALU; /* HEX 11 */ 01446000 LA @09,17 02S1119 01447000 STC @09,PRFPIUO(,RPRF) 02S1119 01448000 * RTH=PRFPIUO+ADDR(PRFPIUO); /* TTH BASE */ 01449000 LA RTH,PRFPIUO(,RPRF) 02S1120 01450000 ALR @09,RTH 02S1120 01451000 LR RTH,@09 02S1120 01452000 * TTHFTYPE=TTHFID1; /* TH TYPE IS FID1 */ 01453000 NI TTHFTYPE(RTH),B'00011111' 02S1121 01454000 OI TTHFTYPE(RTH),B'00010000' 02S1121 01455000 * TTHBBIU=ON; /* SET ONLY SEGMENT INDICATORS 01456000 * @YM07307*/ 01457000 * TTHEBIU=ON; /* @YM07307*/ 01458000 * TTHEFI=ON; /* EXPIDITED FLOW ON */ 01459000 OI TTHBBIU(RTH),B'00001101' 02S1124 01460000 * RPARM=SAVTSCPT; /* ASSUME SSCP SESSION @YM07345*/ 01461000 L @09,AVTSAVTP(,RAVT) 02S1125 01462000 LH RPARM,SAVTSCPT(,@09) 02S1125 01463000 N RPARM,@CF02773 02S1125 01464000 * IF RSIB^=0 THEN /* IF A SIB EXISTS THEN @YM07345*/ 01465000 CR RSIB,@14 02S1126 01466000 BE @RF01126 02S1126 01467000 * RPARM=SIBINDEX; /* GET TNT INDEX @YM07288*/ 01468000 LH RPARM,SIBINDEX(,RSIB) 02S1127 01469000 N RPARM,@CF02773 02S1127 01470000 * CALL IEDIAP04; /* CONVERT TO NETWORK ADDRESS 01471000 * @YM07288*/ 01472000 @RF01126 L @09,AVTSAVTP(,RAVT) 02S1128 01473000 L @15,SAVTTNTX(,@09) 02S1128 01474000 BALR @14,@15 02S1128 01475000 * TTHDAF=REG15; /* SET DESTINATION @YM07288*/ 01476000 STCM REG15,3,TTHDAF(RTH) 02S1129 01477000 * RPARM=CURFAILT; /* GET TNT INDEX @YM07288*/ 01478000 LH RPARM,CURFAILT(,RCUR) 02S1130 01479000 * CALL IEDIAP04; /* CONVERT TNT INDEX TO NETWORK 01480000 * ADDRESS @YM07288*/ 01481000 L @09,AVTSAVTP(,RAVT) 02S1131 01482000 L @15,SAVTTNTX(,@09) 02S1131 01483000 BALR @14,@15 02S1131 01484000 * TTHOAF=REG15; /* ORIGIN @YM07288*/ 01485000 STCM REG15,3,TTHOAF(RTH) 02S1132 01486000 * TTHDCF=LENGTH(IEDRH)+LENGTH(IEDSNSD)+1;/* ASSUME SMALLEST 01487000 * DATA COUNT PLUS ONE DIGIT HEX 01488000 * CODE */ 01489000 MVC TTHDCF(2,RTH),@CH00044 02S1133 01490000 * TRHTYPE=ON; /* RESPONSE */ 01491000 * TRHFI=ON; /* FORMATTED */ 01492000 * TRHSDI=ON; /* SENSE DATA INCLUDED */ 01493000 LA @14,10 02S1136 01494000 ALR @14,RTH 02S1136 01495000 OI TRHTYPE(@14),B'10001100' 02S1136 01496000 * TRHDR1=ON; /* DEFINITE RESPONSE */ 01497000 OI TRHDR1(@14),B'10000000' 02S1137 01498000 * SNSMAJ=SNSPATH; /* PATH ERROR */ 01499000 LA @14,13 02S1138 01500000 ALR @14,RTH 02S1138 01501000 MVI SNSMAJ(@14),X'80' 02S1138 01502000 * IF CURTERM=ON THEN /* FORCED TERMINATE REQ. @YM08991*/ 01503000 TM CURTERM(RCUR),B'00000001' 02S1139 01504000 BNO @RF01139 02S1139 01505000 * SNSMIN=SNSLUINP; /* YES, SET LU INOPERATV @YM08991*/ 01506000 MVI SNSMIN(@14),X'03' 02S1140 01507000 * ELSE /* NO, SET ... @YM08991*/ 01508000 * SNSMIN=SNSLNKF; /* LINK FAILURE */ 01509000 B @RC01139 02S1141 01510000 @RF01139 MVI SNSMIN+13(RTH),X'02' 02S1141 01511000 * SNSUSER='0000'X; /* NO USER DATA */ 01512000 @RC01139 MVC SNSUSER+13(2,RTH),@CB02653 02S1142 01513000 * IF SEARCH=ON THEN /* IF SEARCH OF OP CTL FID1 02S1143 01514000 * REQUEST QUEUES IS REQUESTED 01515000 * THEN ... @YM07310*/ 01516000 TM SEARCH,B'01000000' 02S1143 01517000 BNO @RF01143 02S1143 01518000 * DO; /* ... BEGIN SEARCH @YM07310*/ 01519000 * RFY 02S1145 01520000 * ROPCE RSTD; /* @YM07310*/ 01521000 * TS(OPCCLNTS); /* FID1 QUEUES AVAILABLE FOR 01522000 * SEARCH @YM07310*/ 01523000 L @14,AVTOCGET(,RAVT) 02S1146 01524000 TS OPCCLNTS(@14) 02S1146 01525000 * BC(ZER,QSEARCH); /* YES, CONTINUE TO SEARCH 02S1147 01526000 * @YM07310*/ 01527000 BC 8,QSEARCH 02S1147 01528000 * CURNCURE=ON; /* ELSE REQUEST POST TO OP CTL 01529000 * UNTIL QUEUES BECOME AVAILABLE 01530000 * @YM07310*/ 01531000 OI CURNCURE(RCUR),B'00010000' 02S1148 01532000 *QSEARCH: /* @YM07310*/ 01533000 * IF CURNCURE=OFF THEN /* IF QUEUES AVAILABLE THEN ... 01534000 * @YM07310*/ 01535000 QSEARCH TM CURNCURE(RCUR),B'00010000' 02S1149 01536000 BNZ @RF01149 02S1149 01537000 * DO; /* ... CONTINUE TO SEARCH FID1 01538000 * QUEUES @YM07310*/ 01539000 * ROPCE=OPCFMDFC; /* GET FIRST FID1 REQUEST QUEUE 01540000 * TOP ELEMENT @YM07310*/ 01541000 L @14,AVTOCGET(,RAVT) 02S1151 01542000 L ROPCE,OPCFMDFC(,@14) 02S1151 01543000 * DO WHILE ROPCE^=0& /* SEARCH UNTIL LAST ELEMENT 01544000 * OR... @YM07310*/ 01545000 * SEARCH=ON; /* REQUESTED ELEMENT IS FOUND 01546000 * @YM07310*/ 01547000 B @DE01152 02S1152 01548000 @DL01152 DS 0H 02S1153 01549000 * IF CURFAILT=OCTRMTBL THEN/* IF A MATCH IS FOUND ... 01550000 * @YM07310*/ 01551000 LH @14,OCTRMTBL(,ROPCE) 02S1153 01552000 N @14,@CF02773 02S1153 01553000 CH @14,CURFAILT(,RCUR) 02S1153 01554000 BNE @RF01153 02S1153 01555000 * DO; /* SEARCH IS ENDED @YM07310*/ 01556000 * TTHSNF=OCSEQ; /* COPY OP CTL SEQUENCE ID 02S1155 01557000 * @YM07310*/ 01558000 MVC TTHSNF(2,RTH),OCSEQ(ROPCE) 02S1155 01559000 * SEARCH=OFF; /* INDICATE SEARCH ENDED @YM07310*/ 01560000 NI SEARCH,B'10111111' 02S1156 01561000 * END; /* @YM07310*/ 01562000 * ELSE /* ELSE NO MATCH WAS FOUND SO ... 01563000 * @YM07696*/ 01564000 * ROPCE=OCLINK; /* ... UPDATE TO NEXT OPCE 02S1158 01565000 * @YM07696*/ 01566000 B @RC01153 02S1158 01567000 @RF01153 L ROPCE,OCLINK(,ROPCE) 02S1158 01568000 * END; /* @YM07310*/ 01569000 @RC01153 DS 0H 02S1159 01570000 @DE01152 LTR ROPCE,ROPCE 02S1159 01571000 BZ @DC01152 02S1159 01572000 TM SEARCH,B'01000000' 02S1159 01573000 BO @DL01152 02S1159 01574000 @DC01152 DS 0H 02S1160 01575000 * ROPCE=OPCSCNC; /* GET SECOND FID1 REQUEST QUEUE 01576000 * TOP ELEMENT @YM07310*/ 01577000 L @14,AVTOCGET(,RAVT) 02S1160 01578000 L ROPCE,OPCSCNC(,@14) 02S1160 01579000 * DO WHILE ROPCE^=0& /* SEARCH UNTIL LAST ELEMENT 01580000 * OR... @YM07310*/ 01581000 * SEARCH=ON; /* REQUESTED ELEMENT IS FOUND 01582000 * @YM07310*/ 01583000 B @DE01161 02S1161 01584000 @DL01161 DS 0H 02S1162 01585000 * IF CURFAILT=OCTRMTBL THEN/* IF A MATCH IS FOUND ... 01586000 * @YM07310*/ 01587000 LH @14,OCTRMTBL(,ROPCE) 02S1162 01588000 N @14,@CF02773 02S1162 01589000 CH @14,CURFAILT(,RCUR) 02S1162 01590000 BNE @RF01162 02S1162 01591000 * DO; /* SEARCH IS ENDED @YM07310*/ 01592000 * TTHSNF=OCSEQ; /* COPY OP CTL SEQUENCE ID 02S1164 01593000 * @YM07310*/ 01594000 MVC TTHSNF(2,RTH),OCSEQ(ROPCE) 02S1164 01595000 * SEARCH=OFF; /* INDICATE SEARCH ENDED @YM07310*/ 01596000 NI SEARCH,B'10111111' 02S1165 01597000 * END; /* @YM07310*/ 01598000 * ELSE /* ELSE NO MATCH WAS FOUND SO ... 01599000 * @YM07696*/ 01600000 * ROPCE=OCLINK; /* ... UPDATE TO NEXT OPCE 02S1167 01601000 * @YM07696*/ 01602000 B @RC01162 02S1167 01603000 @RF01162 L ROPCE,OCLINK(,ROPCE) 02S1167 01604000 * END; /* @YM07310*/ 01605000 @RC01162 DS 0H 02S1168 01606000 @DE01161 LTR ROPCE,ROPCE 02S1168 01607000 BZ @DC01161 02S1168 01608000 TM SEARCH,B'01000000' 02S1168 01609000 BO @DL01161 02S1168 01610000 @DC01161 DS 0H 02S1169 01611000 * OPCCLNTS=0; /* MAKE FID1 QUEUES AVALIABLE 01612000 * @YM07310*/ 01613000 L @14,AVTOCGET(,RAVT) 02S1169 01614000 MVI OPCCLNTS(@14),X'00' 02S1169 01615000 * END; /* @YM07310*/ 01616000 * END; /* @YM07310*/ 01617000 @RF01149 DS 0H 02S1172 01618000 * IF SEARCH=ON /* IF NO MATCH FOUND ... @YM07310*/ 01619000 * |CURNCURE=ON THEN /* OR QUEUES NOT AVAILABLE 02S1172 01620000 * @YM07310*/ 01621000 @RF01143 TM SEARCH,B'01000000' 02S1172 01622000 BO @RT01172 02S1172 01623000 TM CURNCURE(RCUR),B'00010000' 02S1172 01624000 BNO @RF01172 02S1172 01625000 @RT01172 DS 0H 02S1173 01626000 * DO; /* @YM07310*/ 01627000 * SEARCH=OFF; /* INDICATE SEARCH ENDED @YM07310*/ 01628000 NI SEARCH,B'10111111' 02S1174 01629000 * PRFTIC=CURNEWBF; /* ENQUEUE THIS UNIT ON THE FREE 01630000 * BFR QUE @YM07310*/ 01631000 L @14,CURNEWBF(,RCUR) 02S1175 01632000 ST @14,PRFTIC(,RPRF) 02S1175 01633000 * CURNEWBF=RPRF; /* @YM07310*/ 01634000 ST RPRF,CURNEWBF(,RCUR) 02S1176 01635000 * RPRF=0; /* @YM07310*/ 01636000 SLR RPRF,RPRF 02S1177 01637000 * END; /* @YM07310*/ 01638000 * ELSE /* ELSE ENQUEUE ON THE PIU QUEUE 01639000 * @YM07310*/ 01640000 * DO; /* @YM07310*/ 01641000 B @RC01172 02S1179 01642000 @RF01172 DS 0H 02S1180 01643000 * PRFQCBA=SAVTIPCQ; /* QCB */ 01644000 L @14,AVTSAVTP(,RAVT) 02S1180 01645000 MVC PRFQCBA(3,RPRF),SAVTIPCQ+1(@14) 02S1180 01646000 * PRFPRI=PRIFLDH; /* PRIORITY */ 01647000 MVI PRFPRI(RPRF),X'E4' 02S1181 01648000 * PRFTIC=CURPIUPC; /* ADD TO ... @YM07306*/ 01649000 L @14,CURPIUPC(,RCUR) 02S1182 01650000 ST @14,PRFTIC(,RPRF) 02S1182 01651000 * CURPIUPC=RPRF; /* ... PIU QUEUE @YM07306*/ 01652000 ST RPRF,CURPIUPC(,RCUR) 02S1183 01653000 * END; /* @YM07310*/ 01654000 * RFY 02S1185 01655000 * ROPCE UNRSTD; /* @YM07310*/ 01656000 @RC01172 DS 0H 02S1186 01657000 * REG15=RPRF; /* RESTORE RETURN CODE @YM07306*/ 01658000 LR REG15,RPRF 02S1186 01659000 * END; 02S1187 01660000 * RFY 02S1188 01661000 * RTH UNRSTD; 02S1188 01662000 * END FID1PERR; 02S1189 01663000 @EL00003 DS 0H 02S1189 01664000 @EF00003 DS 0H 02S1189 01665000 @ER00003 L @14,@SA00003 02S1189 01666000 BR @14 02S1189 01667000 * 02S1190 01668000 * /*****************************************************************/ 01669000 * /* */ 01670000 * /* FID0PERR: THIS SEGMENT CONTAINS THE INTERNAL PROCEDURE WHICH */ 01671000 * /* BUILDS A STANDARD FID0 NEGATIVE RESPONSE */ 01672000 * /* */ 01673000 * /*****************************************************************/ 01674000 * 02S1190 01675000 *FID0PERR: 02S1190 01676000 * PROC OPTIONS(RETREG,SAVE(14)); 02S1190 01677000 FID0PERR ST @14,@SA00004 02S1190 01678000 * RFY 02S1191 01679000 * RTH RSTD; 02S1191 01680000 * CALL GETBUF; 02S1192 01681000 BAL @14,GETBUF 02S1192 01682000 * IF REG15^=0 THEN /* GOT BUFFER */ 01683000 LTR REG15,REG15 02S1193 01684000 BZ @RF01193 02S1193 01685000 * DO; 02S1194 01686000 * RPRF=REG15; /* BUFFER BASE */ 01687000 LR RPRF,REG15 02S1195 01688000 * PRFPIUO=PIUOVALU; /* HEX 11 */ 01689000 LA @14,17 02S1196 01690000 STC @14,PRFPIUO(,RPRF) 02S1196 01691000 * RTH=PRFPIUO+ADDR(PRFPIUO); /* TTH BASE */ 01692000 LA RTH,PRFPIUO(,RPRF) 02S1197 01693000 ALR @14,RTH 02S1197 01694000 LR RTH,@14 02S1197 01695000 * TTHFTYPE=TTHFID0; /* TH TYPE IS FID0 */ 01696000 NI TTHFTYPE(RTH),B'00001111' 02S1198 01697000 * TTHBBIU=ON; /* SET ONLY SEGMENT INDICATORS 01698000 * @YM07307*/ 01699000 * TTHEBIU=ON; /* @YM07307*/ 01700000 OI TTHBBIU(RTH),B'00001100' 02S1200 01701000 * RPARM=SAVTSCPT; /* GET TNT INDEX @YM07288*/ 01702000 L @14,AVTSAVTP(,RAVT) 02S1201 01703000 LH RPARM,SAVTSCPT(,@14) 02S1201 01704000 N RPARM,@CF02773 02S1201 01705000 * CALL IEDIAP04; /* CONVERT TO NETWORK ADDRESS 01706000 * @YM07288*/ 01707000 L @15,SAVTTNTX(,@14) 02S1202 01708000 BALR @14,@15 02S1202 01709000 * TTHDAF=REG15; /* SSCP IS DESTINATION @YM07288*/ 01710000 STCM REG15,3,TTHDAF(RTH) 02S1203 01711000 * RPARM=CURFAILT; /* GET TNT INDEX @YM07288*/ 01712000 LH RPARM,CURFAILT(,RCUR) 02S1204 01713000 * CALL IEDIAP04; /* CONVERT TO NETWORK ADDRESS 01714000 * @YM07288*/ 01715000 L @09,AVTSAVTP(,RAVT) 02S1205 01716000 L @15,SAVTTNTX(,@09) 02S1205 01717000 BALR @14,@15 02S1205 01718000 * TTHOAF=REG15; /* ORIGIN @YM07288*/ 01719000 STCM REG15,3,TTHOAF(RTH) 02S1206 01720000 * TTHDCF=LENGTH(IEDRH)+1+LENGTH(IEDBDU);/* FID0 DATA COUNT 01721000 * FIELD */ 01722000 LA @14,10 02S1207 01723000 STCM @14,3,TTHDCF(RTH) 02S1207 01724000 * IEDRH=TRHFID0; /* INIT FID0 RH */ 01725000 ALR @14,RTH 02S1208 01726000 MVC IEDRH(3,@14),@CB02462 02S1208 01727000 * TRHTYPE=ON; /* INDICATE RESPONSE @YM07983*/ 01728000 OI TRHTYPE(@14),B'10000000' 02S1209 01729000 * BDUFNFLG=0; /* ALL FLAGS OFF EXCEPT */ 01730000 LA @14,14 02S1210 01731000 ALR @14,RTH 02S1210 01732000 MVI BDUFNFLG(@14),X'00' 02S1210 01733000 * BDUSTHDR=ON; /* START OF HEADER */ 01734000 * BDUFRSTB=ON; /* FIRST BLOCK */ 01735000 * BDUNEGAK=ON; /* NEGATIVE ACK */ 01736000 OI BDUSTHDR(@14),B'10010010' 02S1213 01737000 * BDUERROR=RSPERR; /* ERROR TYPE */ 01738000 OI BDUERROR(@14),B'10000000' 02S1214 01739000 * BDUPHASE=RSP40; 02S1215 01740000 NI BDUPHASE(@14),B'11011111' 02S1215 01741000 OI BDUPHASE(@14),B'01000000' 02S1215 01742000 * BDURESP=RSPE02; 02S1216 01743000 NI BDURESP(@14),B'11100010' 02S1216 01744000 OI BDURESP(@14),B'00000010' 02S1216 01745000 * PRFQCBA=SAVTIPCQ; /* QCB */ 01746000 L @14,AVTSAVTP(,RAVT) 02S1217 01747000 MVC PRFQCBA(3,RPRF),SAVTIPCQ+1(@14) 02S1217 01748000 * PRFPRI=PRIFLDH; /* PRIORITY */ 01749000 MVI PRFPRI(RPRF),X'E4' 02S1218 01750000 * PRFTIC=CURPIUPC; /* ADD TO ... @YM07306*/ 01751000 L @14,CURPIUPC(,RCUR) 02S1219 01752000 ST @14,PRFTIC(,RPRF) 02S1219 01753000 * CURPIUPC=RPRF; /* ... PIU QUEUE @YM07306*/ 01754000 ST RPRF,CURPIUPC(,RCUR) 02S1220 01755000 * REG15=RPRF; /* RESTORE RETURN CODE @YM07306*/ 01756000 LR REG15,RPRF 02S1221 01757000 * END; 02S1222 01758000 * RFY 02S1223 01759000 * RTH UNRSTD; 02S1223 01760000 * END FID0PERR; 02S1224 01761000 @EL00004 DS 0H 02S1224 01762000 @EF00004 DS 0H 02S1224 01763000 @ER00004 L @14,@SA00004 02S1224 01764000 BR @14 02S1224 01765000 * 02S1225 01766000 * /*****************************************************************/ 01767000 * /* */ 01768000 * /* IRMNC: THIS SEGMENT ADDS THE BDU COMMAND AND MODIFIER FOR */ 01769000 * /* INVITE, READ, TSO MONITOR MODE, NULL WRITE, OR CONTACT */ 01770000 * /* */ 01771000 * /*****************************************************************/ 01772000 * 02S1225 01773000 *IRMNC: 02S1225 01774000 * PROC OPTIONS(RETREG,SAVE(14)); /* @YM08094*/ 01775000 IRMNC ST @14,12(,@13) 02S1225 01776000 * RFY 02S1226 01777000 * RTH RSTD; /* @YM08094*/ 01778000 * IF TRMINOUT=ON THEN /* INVITE OUTSTANDING */ 01779000 TM TRMINOUT(RTRM),B'00000001' 02S1227 01780000 BNO @RF01227 02S1227 01781000 * DO; 02S1228 01782000 * BDUCMND=CD0INV; /* SET INVITE */ 01783000 LA @14,14 02S1229 01784000 ALR @14,RTH 02S1229 01785000 MVI BDUCMND(@14),X'05' 02S1229 01786000 * BDUMODIF=CD0IT; /* INVITE TRANSMISSION */ 01787000 MVI BDUMODIF(@14),X'03' 02S1230 01788000 * END; 02S1231 01789000 * ELSE 02S1232 01790000 * IF TRMRDOUT=ON THEN /* READ OUTSTANDING */ 01791000 B @RC01227 02S1232 01792000 @RF01227 TM TRMRDOUT(RTRM),B'00000010' 02S1232 01793000 BNO @RF01232 02S1232 01794000 * DO; 02S1233 01795000 * BDUCMND=CD0READ; /* SET READ */ 01796000 LA @14,14 02S1234 01797000 ALR @14,RTH 02S1234 01798000 MVI BDUCMND(@14),X'01' 02S1234 01799000 * BDUMODIF=CD0RT; /* READ TRANSMISSION */ 01800000 MVI BDUMODIF(@14),X'03' 02S1235 01801000 * END; 02S1236 01802000 * ELSE 02S1237 01803000 * IF TRMPREP=ON THEN /* TSOMM OUTSTANDING */ 01804000 B @RC01232 02S1237 01805000 @RF01232 TM TRMPREP(RTRM),B'00000100' 02S1237 01806000 BNO @RF01237 02S1237 01807000 * DO; 02S1238 01808000 * BDUCMND=CD0UNSIP; /* SET UNSOLICITED INPUT COMMAND 01809000 * @YM08002*/ 01810000 LA @14,14 02S1239 01811000 ALR @14,RTH 02S1239 01812000 MVI BDUCMND(@14),X'77' 02S1239 01813000 * BDUMODIF=0; /* NO MODIFIER @YM08002*/ 01814000 MVI BDUMODIF(@14),X'00' 02S1240 01815000 * BDUSYRSP=RSPHNGUP; /* SYSTEM RESPONSE IS HANGUP 01816000 * @YM08002*/ 01817000 MVI BDUSYRSP(@14),X'AC' 02S1241 01818000 * BDUPHASE=RSP60; /* PHASE 3 RESPONSE @YM08002*/ 01819000 OI BDUPHASE(@14),B'01100000' 02S1242 01820000 * END; 02S1243 01821000 * ELSE 02S1244 01822000 * IF TRMNLOUT=ON THEN /* NULL WRITE OUTSTANDING */ 01823000 B @RC01237 02S1244 01824000 @RF01237 TM TRMNLOUT(RTRM),B'00000100' 02S1244 01825000 BNO @RF01244 02S1244 01826000 * IF LCBRESP=ON THEN /* RESPONSE OWED */ 01827000 TM LCBRESP(RLCB),B'00000001' 02S1245 01828000 BNO @RF01245 02S1245 01829000 * DO; 02S1246 01830000 * BDUCMND=CD0WRT; /* SET WRITE */ 01831000 LA @14,14 02S1247 01832000 ALR @14,RTH 02S1247 01833000 MVI BDUCMND(@14),X'02' 02S1247 01834000 * BDUMODIF=CD0WT; /* WRITE WITH EOT */ 01835000 MVI BDUMODIF(@14),X'02' 02S1248 01836000 * END; 02S1249 01837000 * ELSE 02S1250 01838000 * IF TRMSESSN=ON THEN /* IF IN SESSION */ 01839000 B @RC01245 02S1250 01840000 @RF01245 TM TRMSESSN(RTRM),B'01000000' 02S1250 01841000 BNO @RF01250 02S1250 01842000 * DO; 02S1251 01843000 * BDUCMND=CD0WRT; /* SET WRITE */ 01844000 LA @14,14 02S1252 01845000 ALR @14,RTH 02S1252 01846000 MVI BDUCMND(@14),X'02' 02S1252 01847000 * BDUMODIF=CD0W; /* WRITE NORMAL */ 01848000 MVI BDUMODIF(@14),X'00' 02S1253 01849000 * END; 02S1254 01850000 * ELSE 02S1255 01851000 * DO; 02S1255 01852000 B @RC01250 02S1255 01853000 @RF01250 DS 0H 02S1256 01854000 * BDUCMND=CD0CONT; /* SET CONTACT */ 01855000 LA @14,14 02S1256 01856000 ALR @14,RTH 02S1256 01857000 MVI BDUCMND(@14),X'06' 02S1256 01858000 * BDUMODIF=CD0C; /* CONTACT NORMAL */ 01859000 MVI BDUMODIF(@14),X'00' 02S1257 01860000 * BDURESP=RSPE09; /* SET SESSION NOT STARTED 02S1258 01861000 * RESPONSE @YM09089*/ 01862000 NI BDURESP(@14),B'11101001' 02S1258 01863000 OI BDURESP(@14),B'00001001' 02S1258 01864000 * END; 02S1259 01865000 * ELSE /* MUST BE CONTACT OUTSTANDING */ 01866000 * DO; 02S1260 01867000 B @RC01244 02S1260 01868000 @RF01244 DS 0H 02S1261 01869000 * BDUCMND=CD0CONT; /* SET CONTACT */ 01870000 LA @14,14 02S1261 01871000 ALR @14,RTH 02S1261 01872000 MVI BDUCMND(@14),X'06' 02S1261 01873000 * BDUMODIF=CD0C; /* CONTACT NORMAL */ 01874000 MVI BDUMODIF(@14),X'00' 02S1262 01875000 * BDURESP=RSPE09; /* SET SESSION NOT STARTED 02S1263 01876000 * RESPONSE @YM09089*/ 01877000 NI BDURESP(@14),B'11101001' 02S1263 01878000 OI BDURESP(@14),B'00001001' 02S1263 01879000 * END; 02S1264 01880000 * RFY 02S1265 01881000 * RTH UNRSTD; /* @YM08094*/ 01882000 * END IRMNC; /* @YM08094*/ 01883000 @EL00005 DS 0H 02S1266 01884000 @EF00005 DS 0H 02S1266 01885000 @ER00005 L @14,12(,@13) 02S1266 01886000 BR @14 02S1266 01887000 * END IEDNCU2 01S1267 01888000 * 01S1267 01889000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01890000 */*%INCLUDE SYSLIB (TAVTD ) */ 01891000 */*%INCLUDE SYSLIB (TBDUD ) */ 01892000 */*%INCLUDE SYSLIB (TCD0D ) */ 01893000 */*%INCLUDE SYSLIB (TCD1D ) */ 01894000 */*%INCLUDE SYSLIB (TCURD ) */ 01895000 */*%INCLUDE SYSLIB (TDISPD ) */ 01896000 */*%INCLUDE SYSLIB (TLCBD ) */ 01897000 */*%INCLUDE SYSLIB (TOPCED ) */ 01898000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01899000 */*%INCLUDE SYSLIB (TPRFD ) */ 01900000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01901000 */*%INCLUDE SYSLIB (TQCBD ) */ 01902000 */*%INCLUDE SYSLIB (TRSPD ) */ 01903000 */*%INCLUDE SYSLIB (TSCBD ) */ 01904000 */*%INCLUDE SYSLIB (TSIBD ) */ 01905000 */*%INCLUDE SYSLIB (TSNSD ) */ 01906000 */*%INCLUDE SYSLIB (TRHD ) */ 01907000 */*%INCLUDE SYSLIB (TTRMD ) */ 01908000 */*%INCLUDE SYSLIB (TTHD ) */ 01909000 */*%INCLUDE SYSLIB (TXCTDD ) */ 01910000 */*%INCLUDE SYSUT5 (RFY ) */ 01911000 */*%INCLUDE SYSUT5 (DCL ) */ 01912000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01913000 */*%INCLUDE SYSUT5 (PROCESS ) */ 01914000 */*%INCLUDE SYSUT5 (SNAPU ) */ 01915000 */*%INCLUDE SYSUT5 (ACTDACPU) */ 01916000 */*%INCLUDE SYSUT5 (CCD ) */ 01917000 */*%INCLUDE SYSUT5 (LINK ) */ 01918000 */*%INCLUDE SYSUT5 (ACTDACLI) */ 01919000 */*%INCLUDE SYSUT5 (SNAPUNCP) */ 01920000 */*%INCLUDE SYSUT5 (DAS ) */ 01921000 */*%INCLUDE SYSUT5 (SNALU ) */ 01922000 */*%INCLUDE SYSUT5 (SDTCLR ) */ 01923000 */*%INCLUDE SYSUT5 (BINDUB ) */ 01924000 */*%INCLUDE SYSUT5 (ACTDACLU) */ 01925000 */*%INCLUDE SYSUT5 (MOREANAL) */ 01926000 */*%INCLUDE SYSUT5 (MSGGEN ) */ 01927000 */*%INCLUDE SYSUT5 (RECEIVE ) */ 01928000 */*%INCLUDE SYSUT5 (COPYSEG ) */ 01929000 */*%INCLUDE SYSUT5 (FID1EXR ) */ 01930000 */*%INCLUDE SYSUT5 (SESMI ) */ 01931000 */*%INCLUDE SYSUT5 (NONSNA ) */ 01932000 */*%INCLUDE SYSUT5 (LOCK ) */ 01933000 */*%INCLUDE SYSUT5 (SENDING ) */ 01934000 */*%INCLUDE SYSUT5 (SNALCBCH) */ 01935000 */*%INCLUDE SYSUT5 (ICPC ) */ 01936000 */*%INCLUDE SYSUT5 (CANCBID ) */ 01937000 */*%INCLUDE SYSUT5 (BID ) */ 01938000 */*%INCLUDE SYSUT5 (NOPLCB ) */ 01939000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 01940000 */*%INCLUDE SYSUT5 (GETBUF ) */ 01941000 */*%INCLUDE SYSUT5 (FID1PERR) */ 01942000 */*%INCLUDE SYSUT5 (FID0PERR) */ 01943000 */*%INCLUDE SYSUT5 (IRMNC ) */ 01944000 * 01S1267 01945000 * ; 01S1267 01946000 @DATA DS 0H 01947000 DS 0F 01948000 @SA00003 DS 1F 01949000 @SA00002 DS 1F 01950000 @SA00004 DS 1F 01951000 DS 0F 01952000 @CF00044 DC F'8' 01953000 @CH00044 EQU @CF00044+2 01954000 @CF02779 DC F'-8' 01955000 @CF01794 DC XL4'08000002' 01956000 @CF02773 DC XL4'0000FFFF' 01957000 DS 0D 01958000 @CB00856 DC X'01020A' 01959000 @CB00858 DC X'01020B' 01960000 @CB00860 DC X'010201' 01961000 @CB00862 DC X'010280' 01962000 @CB00864 DC X'010202' 01963000 @CB02462 DC X'0B8000' 01964000 @CB02653 DC X'0000' 01965000 @NM00217 DC X'00' 01966000 ORG @NM00217 01967000 MOREAN DS BL1 01968000 SEARCH EQU @NM00217+0 01969000 @NM00218 EQU @NM00217+0 01970000 ORG @NM00217+1 01971000 DS CL3 01972000 USERREGS DS 13A 01973000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01974000 @01 EQU 01 01975000 @02 EQU 02 01976000 @03 EQU 03 01977000 @04 EQU 04 01978000 @05 EQU 05 01979000 @06 EQU 06 01980000 @07 EQU 07 01981000 @08 EQU 08 01982000 @09 EQU 09 01983000 @10 EQU 10 01984000 @11 EQU 11 01985000 @12 EQU 12 01986000 @13 EQU 13 01987000 @14 EQU 14 01988000 @15 EQU 15 01989000 RCUR EQU @02 01990000 RDISP EQU @11 01991000 LCBXPTR EQU @05 01992000 ROPCE EQU @03 01993000 RTRM EQU @08 01994000 RAVT EQU @13 01995000 RLCB EQU @04 01996000 RPRF EQU @06 01997000 RTH EQU @10 01998000 RSIB EQU @05 01999000 REG00 EQU @00 02000000 RPARM EQU @01 02001000 RBASE EQU @12 02002000 RRETURN EQU @14 02003000 REG15 EQU @15 02004000 RBRANCH EQU @15 02005000 REG03 EQU @03 02006000 REG05 EQU @05 02007000 REG09 EQU @09 02008000 REG10 EQU @10 02009000 RQCB EQU @07 02010000 IEDQAVTD EQU 0 02011000 AVTSAVEX EQU IEDQAVTD+216 02012000 @NM00003 EQU IEDQAVTD+316 02013000 AVTCKFLG EQU @NM00003 02014000 AVTOCGET EQU IEDQAVTD+320 02015000 AVTBASE EQU IEDQAVTD+340 02016000 AVTPKF EQU AVTBASE 02017000 AVTOSECB EQU IEDQAVTD+420 02018000 AVTECB1 EQU AVTOSECB 02019000 AVTHG02 EQU IEDQAVTD+456 02020000 AVTDISP EQU IEDQAVTD+480 02021000 AVTHD EQU IEDQAVTD+484 02022000 AVTSCOPT EQU AVTHD 02023000 AVTSAVTP EQU IEDQAVTD+540 02024000 AVTSAVTF EQU AVTSAVTP 02025000 AVTCKPEL EQU IEDQAVTD+580 02026000 AVTCKRMV EQU AVTCKPEL 02027000 AVTCKELF EQU IEDQAVTD+608 02028000 AVTCKBYT EQU IEDQAVTD+619 02029000 AVTHG01 EQU IEDQAVTD+620 02030000 AVTCKLNK EQU IEDQAVTD+624 02031000 AVTCRELE EQU IEDQAVTD+636 02032000 AVTCCELE EQU AVTCRELE 02033000 AVTCLRHI EQU IEDQAVTD+644 02034000 AVTADBUF EQU IEDQAVTD+648 02035000 AVTSYSER EQU IEDQAVTD+656 02036000 AVTMSGS EQU IEDQAVTD+657 02037000 AVTBFRTB EQU IEDQAVTD+720 02038000 AVTCKPQB EQU IEDQAVTD+732 02039000 AVTCKPTB EQU AVTCKPQB 02040000 AVTCKPEC EQU AVTCKPQB+4 02041000 AVTCKPCC EQU AVTCKPEC 02042000 AVTOPCQB EQU IEDQAVTD+744 02043000 AVTOPCOB EQU AVTOPCQB 02044000 AVTOPCEC EQU AVTOPCQB+4 02045000 AVTOPCCC EQU AVTOPCEC 02046000 AVTOLTQB EQU IEDQAVTD+756 02047000 AVTCWFL1 EQU IEDQAVTD+852 02048000 AVTCWFL2 EQU IEDQAVTD+853 02049000 AVTSUBT EQU IEDQAVTD+876 02050000 AVTIOTR EQU IEDQAVTD+877 02051000 AVTBIT1 EQU IEDQAVTD+978 02052000 AVTBIT2 EQU IEDQAVTD+979 02053000 AVTBIT3 EQU IEDQAVTD+980 02054000 AVTSTEAL EQU IEDQAVTD+988 02055000 AVTBIT4 EQU IEDQAVTD+1064 02056000 @NM00085 EQU IEDQAVTD+1160 02057000 IEDQAPTR EQU 0 02058000 IEDNSVTD EQU 0 02059000 SAVTDIAG EQU IEDNSVTD 02060000 SAVTDIAF EQU SAVTDIAG 02061000 SAVTLUSQ EQU IEDNSVTD+88 02062000 SAVTIPCQ EQU IEDNSVTD+144 02063000 SAVTTCPU EQU IEDNSVTD+238 02064000 SAVTSCPT EQU SAVTTCPU 02065000 SAVTTNTX EQU IEDNSVTD+252 02066000 SAVTLCBS EQU IEDNSVTD+260 02067000 SAVTZELM EQU IEDNSVTD+270 02068000 SAVTRDRV EQU IEDNSVTD+284 02069000 SAVTCKQB EQU IEDNSVTD+300 02070000 SAVTCKTB EQU SAVTCKQB 02071000 SAVTCKEC EQU SAVTCKQB+4 02072000 SAVTCKCC EQU SAVTCKEC 02073000 IEDBDU EQU 0 02074000 BDUCMND EQU IEDBDU 02075000 BDUMODIF EQU IEDBDU+1 02076000 BDUFNFLG EQU IEDBDU+2 02077000 BDUSTHDR EQU BDUFNFLG 02078000 BDUFRSTB EQU BDUFNFLG 02079000 BDUNEGAK EQU BDUFNFLG 02080000 BDUBDUFG EQU IEDBDU+3 02081000 BDURSP EQU IEDBDU+4 02082000 BDUSYRSP EQU BDURSP 02083000 BDUERROR EQU BDUSYRSP 02084000 BDUPHASE EQU BDUSYRSP 02085000 BDURESP EQU BDUSYRSP 02086000 BDUEXRSP EQU BDURSP+1 02087000 BDUEND EQU IEDBDU+6 02088000 IEDCUREQ EQU 0 02089000 CURTOTIN EQU IEDCUREQ+12 02090000 CURFLG2 EQU IEDCUREQ+14 02091000 CURTERM EQU CURFLG2 02092000 CURFLG3 EQU IEDCUREQ+15 02093000 CURNCURE EQU CURFLG3 02094000 CURFAILT EQU IEDCUREQ+18 02095000 CURNEWBF EQU IEDCUREQ+24 02096000 CURPIUPC EQU IEDCUREQ+32 02097000 IEDQDISP EQU 0 02098000 DSPPOSTR EQU 28 02099000 IEDQLCB EQU 0 02100000 LCBRCB EQU IEDQLCB 02101000 LCBQCBA EQU LCBRCB+1 02102000 LCBPRI EQU LCBRCB+4 02103000 LCBTSOB EQU IEDQLCB+19 02104000 LCBCHAIN EQU IEDQLCB+20 02105000 LCBSCRNN EQU LCBCHAIN 02106000 LCBTETEN EQU LCBCHAIN 02107000 LCBINSRC EQU IEDQLCB+21 02108000 LCBLKMDE EQU LCBINSRC+2 02109000 LCBBDFLG EQU LCBLKMDE 02110000 LCBNTXT EQU IEDQLCB+24 02111000 LCBSTAT4 EQU LCBNTXT 02112000 LCBPHASE EQU LCBSTAT4 02113000 LCBSCBDA EQU IEDQLCB+25 02114000 LCBMHA EQU IEDQLCB+29 02115000 LCBFLAG1 EQU IEDQLCB+32 02116000 LCBIOBSN EQU IEDQLCB+33 02117000 LCBSNS EQU LCBIOBSN+1 02118000 LCBSENS0 EQU LCBSNS 02119000 LCBLOSDT EQU LCBSENS0 02120000 LCBTMOUT EQU LCBSENS0 02121000 LCBFLAG3 EQU LCBIOBSN+7 02122000 LCBCSW EQU LCBIOBSN+8 02123000 LCBCSWST EQU LCBCSW+3 02124000 LCBCSWUS EQU LCBCSWST 02125000 LCBCSWCS EQU LCBCSWST+1 02126000 LCBSIOCC EQU LCBIOBSN+15 02127000 LCBDCBPT EQU IEDQLCB+52 02128000 LCBRCQCB EQU IEDQLCB+56 02129000 LCBTHSQ EQU IEDQLCB+60 02130000 LCBINCAM EQU LCBTHSQ 02131000 LCBERRCT EQU IEDQLCB+62 02132000 LCBLSPCI EQU IEDQLCB+65 02133000 LCBRCBFR EQU LCBLSPCI 02134000 LCBSTATE EQU IEDQLCB+70 02135000 LCBSTAT1 EQU LCBSTATE 02136000 LCBRCLLN EQU LCBSTAT1 02137000 LCBCONT EQU LCBSTAT1 02138000 LCBRECVN EQU LCBSTAT1 02139000 LCBSTAT2 EQU LCBSTATE+1 02140000 LCBMSGNN EQU LCBSTAT2 02141000 LCBBEOTN EQU LCBSTAT2 02142000 LCBSYNC EQU LCBSTAT2 02143000 LCBDIAL EQU LCBSTAT2 02144000 LCBRESP EQU LCBSTAT2 02145000 LCBTSTSW EQU IEDQLCB+72 02146000 LCBERB EQU IEDQLCB+76 02147000 LCBERBQB EQU LCBERB+1 02148000 LCBERBPY EQU IEDQLCB+80 02149000 LCBERBST EQU IEDQLCB+84 02150000 LCBDLNKN EQU LCBERBST 02151000 LCBERBCT EQU IEDQLCB+88 02152000 LCBRBCT2 EQU LCBERBCT+1 02153000 LCBTTCIN EQU IEDQLCB+90 02154000 LCBMSGFM EQU IEDQLCB+92 02155000 LCBSCBA EQU IEDQLCB+93 02156000 LCBOBRCH EQU IEDQLCB+96 02157000 LCBINVPT EQU LCBOBRCH+1 02158000 LCBBFRW EQU LCBINVPT 02159000 LCBTPCD EQU IEDQLCB+100 02160000 LCBSTAT5 EQU LCBTPCD 02161000 LCBSTAT6 EQU LCBTPCD+4 02162000 LCBCHN EQU LCBSTAT6 02163000 LCBRSPSV EQU LCBTPCD+8 02164000 LCBSAVSN EQU IEDQLCB+112 02165000 LCBERCCW EQU IEDQLCB+120 02166000 LCBCPA EQU IEDQLCB+144 02167000 LCBCCW5 EQU LCBCPA+32 02168000 IEDQLPTR EQU 0 02169000 IEDQLCBX EQU 0 02170000 LCBXCON EQU IEDQLCBX 02171000 LCBXFLAG EQU LCBXCON 02172000 LCBXDCT EQU LCBXCON+1 02173000 LCBXRADR EQU LCBXCON+4 02174000 IEDQOPCE EQU 0 02175000 OCLINK EQU IEDQOPCE 02176000 OCELEM EQU IEDQOPCE+4 02177000 OCUNIT EQU IEDQOPCE+8 02178000 OCRUDEST EQU OCUNIT 02179000 OCCKPKEY EQU OCRUDEST 02180000 OCSCAN EQU OCCKPKEY 02181000 OCOPTCDE EQU IEDQOPCE+12 02182000 OCSWITCH EQU IEDQOPCE+13 02183000 OCFLAG EQU IEDQOPCE+14 02184000 @NM00150 EQU IEDQOPCE+16 02185000 OCDEST EQU @NM00150 02186000 OCREQVAL EQU OCDEST+1 02187000 OCTRMTBL EQU IEDQOPCE+20 02188000 OCLINENO EQU IEDQOPCE+22 02189000 OCTIOT EQU OCLINENO 02190000 OCTRUNIT EQU IEDQOPCE+24 02191000 OCRSID EQU OCTRUNIT 02192000 OCALSTAT EQU OCRSID 02193000 OCSEQ EQU OCTRUNIT+2 02194000 OCPARM EQU IEDQOPCE+28 02195000 OCBACKUP EQU IEDQOPCE+32 02196000 OCMODNME EQU IEDQOPCE+40 02197000 OCIPLWA EQU OCMODNME 02198000 OCCKDATA EQU IEDQOPCE+48 02199000 OCRSTGTM EQU OCCKDATA 02200000 IEDQOPCN EQU 0 02201000 OCLDNME EQU IEDQOPCN 02202000 OCLINTTE EQU OCLDNME 02203000 OCREQFLG EQU OCLINTTE+2 02204000 OCPREFLG EQU OCLINTTE+3 02205000 IEDQOPCD EQU 0 02206000 OPCAQCTL EQU IEDQOPCD+180 02207000 OPCLDNME EQU IEDQOPCD+212 02208000 OPCSCNC EQU IEDQOPCD+264 02209000 OPCFMDFC EQU IEDQOPCD+268 02210000 OPCCLNTS EQU IEDQOPCD+288 02211000 OPCSPEC EQU IEDQOPCD+300 02212000 OPCPWCOB EQU IEDQOPCD+368 02213000 OPCPWQCB EQU OPCPWCOB 02214000 OPCPWECB EQU OPCPWCOB+4 02215000 ROPCAVT EQU 0 02216000 IEDQPRF EQU 0 02217000 PRFRCB EQU IEDQPRF 02218000 PRFKEY EQU PRFRCB 02219000 PRFQCBA EQU PRFRCB+1 02220000 PRFPRI EQU PRFRCB+4 02221000 PRFLINK EQU PRFRCB+5 02222000 PRFTIC EQU IEDQPRF+8 02223000 PRFTICC EQU PRFTIC 02224000 PRFNBUNT EQU IEDQPRF+12 02225000 PRFSUNIT EQU PRFNBUNT 02226000 PRFPLQCB EQU PRFSUNIT 02227000 PRFPIUO EQU PRFPLQCB 02228000 @NM00181 EQU IEDQPRF+16 02229000 PRFSVFFO EQU @NM00181 02230000 PRFSTAT1 EQU IEDQPRF+20 02231000 PRFEOFN EQU PRFSTAT1 02232000 PRFCORE EQU IEDQPRF+21 02233000 PRFXTRA EQU PRFCORE 02234000 PRFSCAN EQU IEDQPRF+24 02235000 PRFTQBCK EQU IEDQPRF+26 02236000 PRFNTXT EQU PRFTQBCK 02237000 PRFEOBOF EQU PRFNTXT 02238000 PRFCHDR EQU IEDQPRF+32 02239000 PRFHQBCK EQU IEDQPRF+35 02240000 IEDQPPTR EQU 0 02241000 IEDPF1 EQU 0 02242000 PRF1FLG1 EQU IEDPF1+3 02243000 PRF1WD2 EQU IEDPF1+4 02244000 PRF1SEQP EQU PRF1WD2 02245000 PRF1SQID EQU PRF1SEQP 02246000 PRF1TAG1 EQU PRF1SQID 02247000 IEDPF2 EQU 0 02248000 PRF2FLG2 EQU IEDPF2 02249000 PRF2WD2 EQU IEDPF2+4 02250000 IEDQQCB EQU 0 02251000 QCBDSFLG EQU IEDQQCB 02252000 QCBDISK EQU QCBDSFLG 02253000 QCBEOLDT EQU IEDQQCB+16 02254000 QCBBYTE1 EQU QCBEOLDT+1 02255000 QCBLKRLN EQU IEDQQCB+18 02256000 QCBRETCT EQU QCBLKRLN 02257000 QCBSTAT EQU IEDQQCB+19 02258000 QCBINSRC EQU IEDQQCB+21 02259000 @NM00189 EQU QCBINSRC 02260000 QCBTSOF2 EQU @NM00189+1 02261000 QCBTSOF1 EQU @NM00189+2 02262000 QCBINTVL EQU IEDQQCB+24 02263000 QCBPREN EQU IEDQQCB+28 02264000 QCBLKRRN EQU QCBPREN+1 02265000 QCBDCBAD EQU IEDQQCB+33 02266000 QCBFLAG EQU IEDQQCB+36 02267000 IEDQQPTR EQU 0 02268000 IEDQPQCB EQU 0 02269000 QCBFHDLZ EQU IEDQPQCB+3 02270000 QCBPFEFO EQU QCBFHDLZ+1 02271000 QCBFHDTZ EQU IEDQPQCB+6 02272000 QCBINTLF EQU IEDQPQCB+12 02273000 IEDNQCB EQU 0 02274000 QCBSTAT1 EQU IEDNQCB+4 02275000 QCBPLCBN EQU QCBSTAT1 02276000 QCBPLCBA EQU IEDNQCB+5 02277000 IEDQSCB EQU 0 02278000 SCBSTATE EQU IEDQSCB 02279000 SCBSEQIN EQU SCBSTATE 02280000 SCBLCK1N EQU SCBSTATE 02281000 SCBMSGLN EQU SCBSTATE 02282000 SCBDESTQ EQU IEDQSCB+1 02283000 SCBRCVCT EQU IEDQSCB+4 02284000 SCBMBHEN EQU IEDQSCB+5 02285000 SCBBKFCT EQU IEDQSCB+9 02286000 SCBEOBSZ EQU SCBBKFCT+1 02287000 SCBSALEV EQU IEDQSCB+12 02288000 SCBQTYPE EQU SCBSALEV 02289000 SCBBFMM EQU SCBQTYPE 02290000 SCBERRST EQU IEDQSCB+16 02291000 SCBERR1 EQU SCBERRST 02292000 SCBHDRRN EQU SCBERR1 02293000 SCBORIGN EQU SCBERR1 02294000 SCBNOTRM EQU SCBERR1 02295000 SCBSEQHN EQU SCBERR1 02296000 SCBSEQLN EQU SCBERR1 02297000 SCBCUTFN EQU SCBERR1 02298000 SCBERR2 EQU SCBERRST+1 02299000 SCBABRTN EQU SCBERR2 02300000 SCBERR3 EQU SCBERRST+2 02301000 SCBLOSTN EQU SCBERR3 02302000 SCBTMIDN EQU SCBERR3 02303000 SCBFORMN EQU SCBERR3 02304000 SCBATTN EQU SCBERR3 02305000 SCBXCEPN EQU SCBERR3 02306000 SCBERR4 EQU SCBERRST+3 02307000 SCBTXTTN EQU SCBERR4 02308000 SCBCTLUN EQU SCBERR4 02309000 SCBCHANN EQU SCBERR4 02310000 SCBDLPTR EQU IEDQSCB+22 02311000 SCBEOBAC EQU SCBDLPTR 02312000 SCBCTBAC EQU SCBEOBAC 02313000 SCBBSCFM EQU IEDQSCB+24 02314000 SCBDATEN EQU SCBBSCFM 02315000 SCBITBSZ EQU IEDQSCB+40 02316000 SCBCTBSV EQU SCBITBSZ 02317000 SCBDNSEG EQU IEDQSCB+41 02318000 SCBCLSEG EQU IEDQSCB+45 02319000 SCBITBAC EQU IEDQSCB+48 02320000 SCBCTBFL EQU SCBITBAC 02321000 SCBBLKCT EQU SCBCTBFL 02322000 SCBDCSEG EQU IEDQSCB+49 02323000 SCBSTAT1 EQU IEDQSCB+60 02324000 SCBCORE EQU IEDQSCB+61 02325000 SCBSCAN EQU IEDQSCB+64 02326000 SCBNTXT EQU IEDQSCB+66 02327000 SCBCHDR EQU IEDQSCB+72 02328000 SCBCCSEG EQU IEDQSCB+75 02329000 SCBEND EQU IEDQSCB+84 02330000 IEDQSPTR EQU 0 02331000 IEDSIBD EQU 0 02332000 SIBRUSEG EQU IEDSIBD 02333000 SIBINDEX EQU IEDSIBD+8 02334000 SIBSESSN EQU IEDSIBD+10 02335000 SIBINBIU EQU SIBSESSN 02336000 SIBSSTAT EQU SIBSESSN 02337000 SIBDSTAT EQU SIBSESSN 02338000 SIBPACIN EQU IEDSIBD+11 02339000 SIBSEQN EQU IEDSIBD+12 02340000 SIBSTAT1 EQU IEDSIBD+16 02341000 SIBSTAT2 EQU IEDSIBD+17 02342000 SIBBIND EQU IEDSIBD+20 02343000 SIBBIND1 EQU SIBBIND 02344000 SIBBIND2 EQU SIBBIND+1 02345000 SIBBIND3 EQU SIBBIND+2 02346000 SIBSTAT0 EQU IEDSIBD+23 02347000 IEDSNSD EQU 0 02348000 SNSSYSTM EQU IEDSNSD 02349000 SNSMAJ EQU SNSSYSTM 02350000 SNSMIN EQU SNSSYSTM+1 02351000 SNSUSER EQU IEDSNSD+2 02352000 SNSPTR EQU 0 02353000 IEDRH EQU 0 02354000 TRHBYTE0 EQU IEDRH 02355000 TRHTYPE EQU TRHBYTE0 02356000 TRHRUCAT EQU TRHBYTE0 02357000 TRHFI EQU TRHBYTE0 02358000 TRHSDI EQU TRHBYTE0 02359000 TRHBC EQU TRHBYTE0 02360000 TRHEC EQU TRHBYTE0 02361000 TRHBYTE1 EQU IEDRH+1 02362000 TRHDR1 EQU TRHBYTE1 02363000 TRHER EQU TRHBYTE1 02364000 TRHBYTE2 EQU IEDRH+2 02365000 IEDTRM EQU 0 02366000 IEDNTRM EQU IEDTRM 02367000 TRMBYTE4 EQU IEDNTRM 02368000 TRMBYTE3 EQU IEDNTRM+1 02369000 TRMBYTE2 EQU IEDNTRM+2 02370000 TRMINPG EQU TRMBYTE2 02371000 TRMPREP EQU TRMBYTE2 02372000 TRMBYTE1 EQU IEDNTRM+3 02373000 TRMSCPRQ EQU TRMBYTE1 02374000 TRMINPTP EQU TRMBYTE1 02375000 TRMBYTE0 EQU IEDNTRM+6 02376000 TRMSNA EQU TRMBYTE0 02377000 TRMSIBPT EQU IEDNTRM+7 02378000 TRMTYPE EQU IEDNTRM+11 02379000 IEDQTRM EQU IEDTRM+14 02380000 TRMSTATE EQU IEDQTRM 02381000 TRMLOG EQU TRMSTATE 02382000 TRMDESTQ EQU IEDQTRM+1 02383000 TRMINSEQ EQU IEDQTRM+4 02384000 TLISTCNT EQU TRMINSEQ 02385000 TRMOUTSQ EQU IEDQTRM+6 02386000 TLISTEN EQU TRMOUTSQ 02387000 TRMDSORG EQU TLISTEN 02388000 TRMALTD EQU IEDQTRM+8 02389000 TRMDEVFL EQU IEDQTRM+10 02390000 TRMSTAT EQU IEDQTRM+12 02391000 IEDTH EQU 0 02392000 TTHBYTE0 EQU IEDTH 02393000 TTHFTYPE EQU TTHBYTE0 02394000 TTHBBIU EQU TTHBYTE0 02395000 TTHEBIU EQU TTHBYTE0 02396000 TTHEFI EQU TTHBYTE0 02397000 TTHDAF EQU IEDTH+2 02398000 TTHOAF EQU IEDTH+4 02399000 TTHSNF EQU IEDTH+6 02400000 TTHTAG EQU TTHSNF 02401000 TTHTAG1 EQU TTHTAG 02402000 TTHDCF EQU IEDTH+8 02403000 IEDXCTDD EQU 0 02404000 XCTDCMD EQU IEDXCTDD 02405000 XCTDCODE EQU XCTDCMD 02406000 XCTDADDR EQU XCTDCMD+3 02407000 XCTDSTAT EQU XCTDCMD+5 02408000 XCTDPTR EQU 0 02409000 SQCBADR EQU 0 02410000 CLEARBUF EQU 0 02411000 NEWTHRH EQU 0 02412000 OLDTHRH EQU 0 02413000 IEDQGA02 EQU 0 02414000 IEDIAP04 EQU 0 02415000 IEDIAP06 EQU 0 02416000 HEXCDALL EQU 0 02417000 HEXCODE EQU HEXCDALL 02418000 NETADDR EQU HEXCDALL+1 02419000 DCBPTR EQU 0 02420000 DSPBYPAS EQU 20 02421000 DSPCHAIN EQU 12 02422000 DSPDISP EQU 4 02423000 DSPLIFO EQU 56 02424000 DSPLIFOR EQU 60 02425000 DSPLIST EQU 8 02426000 DSPPOST EQU 24 02427000 DSPPRIO EQU 48 02428000 DSPPRIOR EQU 52 02429000 DSPTRACE EQU 64 02430000 DSPTSTQ EQU 32 02431000 DSPTSTQR EQU 36 02432000 DSPUNAV EQU 40 02433000 DSPUNAVR EQU 44 02434000 DSPWAIT EQU 16 02435000 IEDQDPTR EQU 0 02436000 IEDQTPTR EQU 0 02437000 LCBRSPIN EQU LCBIOBSN 02438000 LCBLUSNS EQU LCBRSPIN+5 02439000 LCBSCPRS EQU LCBRSPIN+9 02440000 LCBCSWU1 EQU LCBSCPRS+2 02441000 LCBRSPFG EQU LCBRSPIN+15 02442000 LCBCOREQ EQU LCBTPCD 02443000 @NM00134 EQU LCBCPA+40 02444000 LCBQNX EQU LCBERCCW 02445000 LCBQNXMN EQU LCBQNX 02446000 LCBQEBPL EQU LCBQNX+4 02447000 LCBCANCL EQU LCBSAVSN 02448000 LCBCANFG EQU LCBCANCL 02449000 OCCKPKY1 EQU OCCKPKEY 02450000 OCCKPTYP EQU OCCKPKY1 02451000 OCICACTN EQU OCMODNME 02452000 OCICDADR EQU OCICACTN 02453000 OCICSW EQU OCICDADR+3 02454000 OPCAQWD EQU OPCAQCTL 02455000 OPCAQWD1 EQU OPCAQWD 02456000 OPCAQWD2 EQU OPCAQWD+4 02457000 OPCAQWD3 EQU OPCAQWD+8 02458000 TRMPRE1 EQU TRMBYTE4 02459000 TRMCONT EQU TRMPRE1 02460000 TRMSESSN EQU TRMPRE1 02461000 TRMOCNI EQU TRMPRE1 02462000 TRMSPACT EQU TRMPRE1 02463000 TRMNCP1 EQU TRMBYTE4 02464000 TRMPRE EQU TRMBYTE3 02465000 TRMNLOUT EQU TRMPRE 02466000 TRMRDOUT EQU TRMPRE 02467000 TRMINOUT EQU TRMPRE 02468000 TRMNCP EQU TRMBYTE3 02469000 TRMPU EQU TRMBYTE3 02470000 TRMPCONT EQU TRMPU 02471000 TRMLU EQU TRMBYTE3 02472000 TRMLINK EQU TRMBYTE3 02473000 TRMLSTAT EQU TRMLINK 02474000 BDUTEXT EQU BDUEND 02475000 OCCIB EQU OCREQVAL 02476000 PRFSHDR EQU IEDQPRF+42 02477000 SCBRGSAV EQU SCBEND 02478000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02479000 @NM00214 EQU TRMLINK 02480000 TRMLINT EQU TRMLINK 02481000 TRMEPMOD EQU TRMLINK 02482000 TRMLULOG EQU TRMLU 02483000 TRMINERR EQU TRMLU 02484000 TRMLUREQ EQU TRMLU 02485000 TRMSESRQ EQU TRMLU 02486000 TRMTDIFF EQU TRMLU 02487000 TRMLUTM EQU TRMLU 02488000 TRMLUIT EQU TRMLU 02489000 TRMAUTO EQU TRMLU 02490000 @NM00213 EQU TRMPU 02491000 TRMNCONT EQU TRMNCP 02492000 TRMQUCKN EQU TRMNCP 02493000 TRMSLOWN EQU TRMNCP 02494000 TRMSYGEN EQU TRMNCP 02495000 TRMNCPCL EQU TRMNCP 02496000 TRMIPLDM EQU TRMNCP 02497000 TRMWROUT EQU TRMPRE 02498000 TRMASNXI EQU TRMPRE 02499000 TRMSTMM EQU TRMPRE 02500000 TRMCMODE EQU TRMPRE 02501000 TRMSTPND EQU TRMPRE 02502000 @NM00212 EQU TRMNCP1 02503000 TRMINOP EQU TRMNCP1 02504000 TRMLYNCH EQU TRMPRE1 02505000 TRMSPOUT EQU TRMPRE1 02506000 TRMERLCK EQU TRMPRE1 02507000 TRMQNPL EQU TRMPRE1 02508000 OPCAQLST EQU OPCAQWD3+1 02509000 OPCAQRQ3 EQU OPCAQWD3 02510000 OPCAQSEC EQU OPCAQWD2+1 02511000 OPCAQRQ2 EQU OPCAQWD2 02512000 OPCAQFST EQU OPCAQWD1+1 02513000 OPCAQREQ EQU OPCAQWD1 02514000 OCICINAC EQU OCICSW 02515000 @NM00156 EQU OCICSW 02516000 OCICATST EQU OCICDADR+1 02517000 OCICTYPE EQU OCICDADR 02518000 @NM00155 EQU OCCKPKY1 02519000 OCCKPENV EQU OCCKPKY1 02520000 OCCKPRST EQU OCCKPTYP 02521000 OCCKPNCP EQU OCCKPTYP 02522000 OCCKPINC EQU OCCKPTYP 02523000 @NM00141 EQU LCBCANCL+3 02524000 LCBCANTH EQU LCBCANCL+1 02525000 @NM00140 EQU LCBCANFG 02526000 LCBCANCD EQU LCBCANFG 02527000 @NM00139 EQU LCBCANFG 02528000 LCBCANEB EQU LCBCANFG 02529000 LCBCANXT EQU LCBCANFG 02530000 LCBUNADD EQU LCBQNX+21 02531000 LCBUASZE EQU LCBQNX+20 02532000 LCBDSTEA EQU LCBQNX+16 02533000 @NM00138 EQU LCBQNX+12 02534000 LCBCP EQU LCBQEBPL+4 02535000 LCBIOSB EQU LCBQEBPL+1 02536000 LCBSIO EQU LCBQEBPL 02537000 LCBSTSAV EQU LCBQNX+1 02538000 @NM00137 EQU LCBQNXMN 02539000 LCBNX509 EQU LCBQNXMN 02540000 LCBNX162 EQU LCBQNXMN 02541000 LCBNX142 EQU LCBQNXMN 02542000 LCBNX064 EQU LCBQNXMN 02543000 @NM00136 EQU @NM00134+4 02544000 LCBNCPPT EQU @NM00134+1 02545000 @NM00135 EQU @NM00134 02546000 LCBWRSCH EQU LCBCOREQ+8 02547000 LCBCQLNK EQU LCBCOREQ+4 02548000 LCBCQELE EQU LCBCOREQ 02549000 LCBPAKCH EQU LCBRSPIN+16 02550000 @NM00133 EQU LCBRSPFG 02551000 LCBRSRH EQU LCBRSPFG 02552000 LCBEXPI EQU LCBRSPFG 02553000 @NM00132 EQU LCBRSPIN+12 02554000 LCBUSUE1 EQU LCBCSWU1 02555000 @NM00131 EQU LCBCSWU1 02556000 @NM00130 EQU LCBSCPRS+1 02557000 LCBDFCMD EQU LCBSCPRS 02558000 LCBUSER EQU LCBLUSNS+2 02559000 LCBSMIN EQU LCBLUSNS+1 02560000 LCBSMAJ EQU LCBLUSNS 02561000 LCBRHSV EQU LCBRSPIN+2 02562000 LCBSNS0 EQU LCBRSPIN+1 02563000 @NM00129 EQU LCBRSPIN 02564000 HEXCODE3 EQU NETADDR+1 02565000 HEXCODE2 EQU NETADDR 02566000 XCTDREQ EQU XCTDCODE+2 02567000 XCTDCONF EQU XCTDCODE+1 02568000 XCTDNETS EQU XCTDCODE 02569000 TTHTAG2 EQU TTHTAG+1 02570000 @NM00216 EQU TTHTAG1 02571000 TTHTAGS EQU TTHTAG1 02572000 TTHBYTE1 EQU IEDTH+1 02573000 @NM00215 EQU TTHBYTE0 02574000 TRMOPT EQU IEDTRM+34 02575000 TRMOPTBL EQU IEDQTRM+18 02576000 TRMOPNO EQU IEDQTRM+17 02577000 TRMCHCIN EQU IEDQTRM+16 02578000 TRMSENSE EQU TRMSTAT+3 02579000 TRMTEMPR EQU TRMSTAT+2 02580000 TRMSIO EQU TRMSTAT 02581000 @NM00211 EQU TRMDEVFL+1 02582000 TRMTPIN EQU TRMDEVFL+1 02583000 TRMNCPI EQU TRMDEVFL+1 02584000 TRMRNTRM EQU TRMDEVFL+1 02585000 @NM00210 EQU TRMDEVFL+1 02586000 TRMLMD EQU TRMDEVFL+1 02587000 TRMCONC EQU TRMDEVFL+1 02588000 TRMTSOB EQU TRMDEVFL 02589000 TRMBFDY EQU TRMDEVFL 02590000 TRMTBLK EQU TRMDEVFL 02591000 TRMSBLK EQU TRMDEVFL 02592000 TRMBLKS EQU TRMDEVFL 02593000 TRMADDC EQU TRMDEVFL 02594000 TRMDDIG EQU TRMDEVFL 02595000 TRMBUFS EQU TRMDEVFL 02596000 TRMPRILK EQU TRMALTD 02597000 TRMLGB EQU TRMDSORG 02598000 TRMUTERM EQU TLISTCNT 02599000 TRMSCNYN EQU TRMSTATE 02600000 TRMOPTFN EQU TRMSTATE 02601000 TRMHELDN EQU TRMSTATE 02602000 TRMACPTN EQU TRMSTATE 02603000 TRMPREF EQU TRMSTATE 02604000 TRMPROC EQU TRMLOG 02605000 TRMLIST EQU TRMLOG 02606000 TRMLINE EQU TRMSTATE 02607000 TRMSUBST EQU IEDNTRM+12 02608000 TRMRLMCT EQU IEDNTRM+10 02609000 TRMCOHTG EQU TRMSIBPT+1 02610000 TRMGPCNT EQU TRMSIBPT 02611000 TRMBUFRD EQU TRMBYTE0 02612000 TRMGP EQU TRMBYTE0 02613000 TRMDIAL EQU TRMBYTE0 02614000 @NM00209 EQU TRMBYTE0 02615000 TRMOUTPT EQU TRMBYTE0 02616000 TRMINPUT EQU TRMBYTE0 02617000 TRMUDEF EQU TRMBYTE0 02618000 TRMCOHRT EQU IEDNTRM+4 02619000 TRMSTOTE EQU TRMBYTE1 02620000 TRMCKPRN EQU TRMBYTE1 02621000 TRMTSATN EQU TRMBYTE1 02622000 TRMTRACE EQU TRMBYTE1 02623000 TRMSWBCK EQU TRMBYTE1 02624000 TRMAUTOC EQU TRMBYTE1 02625000 TRMWTNEG EQU TRMSCPRQ 02626000 TRMWRBRK EQU TRMBYTE2 02627000 TRMNOSND EQU TRMBYTE2 02628000 TRMGPACT EQU TRMBYTE2 02629000 TRMANDL EQU TRMBYTE2 02630000 TRMCLOSN EQU TRMINPG 02631000 TRMREMB EQU TRMBYTE2 02632000 TRMRSACT EQU TRMBYTE2 02633000 @NM00208 EQU TRHBYTE2 02634000 @NM00207 EQU TRHBYTE2 02635000 @NM00206 EQU TRHBYTE2 02636000 TRHCSI EQU TRHBYTE2 02637000 @NM00205 EQU TRHBYTE2 02638000 TRHCDI EQU TRHBYTE2 02639000 TRHEB EQU TRHBYTE2 02640000 TRHBB EQU TRHBYTE2 02641000 TRHPI EQU TRHBYTE1 02642000 @NM00204 EQU TRHBYTE1 02643000 @NM00203 EQU TRHBYTE1 02644000 @NM00202 EQU TRHBYTE1 02645000 TRHDR2 EQU TRHBYTE1 02646000 @NM00201 EQU TRHBYTE1 02647000 @NM00200 EQU TRHBYTE0 02648000 SNSUSR2 EQU SNSUSER+1 02649000 SNSUSR1 EQU SNSUSER 02650000 SIBLUTYP EQU SIBSTAT0 02651000 SIBCD EQU SIBSTAT0 02652000 @NM00199 EQU SIBBIND3 02653000 SIBCRES EQU SIBBIND3 02654000 SIBSPKR EQU SIBBIND3 02655000 SIBRECOV EQU SIBBIND3 02656000 SIBFMODE EQU SIBBIND3 02657000 SIBALT EQU SIBBIND2 02658000 SIBBTERM EQU SIBBIND2 02659000 SIBBRACK EQU SIBBIND2 02660000 SIBFMUSE EQU SIBBIND2 02661000 SIBSEBI EQU SIBBIND2 02662000 SIBSCMP EQU SIBBIND2 02663000 SIBSEXC EQU SIBBIND2 02664000 SIBSDEF EQU SIBBIND2 02665000 SIBSRQM EQU SIBBIND1 02666000 SIBSCHNG EQU SIBBIND1 02667000 SIBPEBI EQU SIBBIND1 02668000 SIBPCMP EQU SIBBIND1 02669000 SIBPEXC EQU SIBBIND1 02670000 SIBPDEF EQU SIBBIND1 02671000 SIBPRQM EQU SIBBIND1 02672000 SIBPCHN EQU SIBBIND1 02673000 SIBFMPRO EQU IEDSIBD+19 02674000 SIBTSPRO EQU IEDSIBD+18 02675000 @NM00198 EQU SIBSTAT2 02676000 SIBDACLU EQU SIBSTAT2 02677000 SIBRDSCN EQU SIBSTAT2 02678000 SIBTERM EQU SIBSTAT2 02679000 SIBUSS EQU SIBSTAT2 02680000 SIBBSTAT EQU SIBSTAT1 02681000 SIBRTRP EQU SIBSTAT1 02682000 SIBFTERM EQU SIBSTAT1 02683000 SIBRQEND EQU SIBSTAT1 02684000 SIBRQSHT EQU SIBSTAT1 02685000 SIBSEQO EQU SIBSEQN+2 02686000 SIBSEQI EQU SIBSEQN 02687000 SIBNCNT EQU SIBPACIN 02688000 SIBMCNT EQU SIBPACIN 02689000 SIBSHUTC EQU SIBSESSN 02690000 SIBLGOFF EQU SIBSESSN 02691000 SIBCHAIN EQU IEDSIBD+4 02692000 SCBTRANS EQU IEDQSCB+81 02693000 SCBUNTCT EQU IEDQSCB+80 02694000 SCBEOB EQU IEDQSCB+78 02695000 SCBNXCPB EQU SCBCCSEG 02696000 SCBNHDR EQU SCBCHDR 02697000 SCBCRCD EQU IEDQSCB+69 02698000 SCBTQBCK EQU SCBNTXT 02699000 SCBOSEQ EQU SCBSCAN 02700000 SCBXTRA EQU SCBCORE 02701000 SCBNOPST EQU SCBSTAT1 02702000 SCBNIDLE EQU SCBSTAT1 02703000 SCBCEND EQU SCBSTAT1 02704000 SCBCBGN EQU SCBSTAT1 02705000 SCBSIZE EQU IEDQSCB+58 02706000 SCBSRCE EQU IEDQSCB+56 02707000 SCBDEOB EQU IEDQSCB+52 02708000 SCBFEFO EQU SCBDCSEG 02709000 SCBCTBND EQU SCBBLKCT 02710000 SCBSCHDR EQU SCBCLSEG 02711000 SCBHBFNO EQU IEDQSCB+44 02712000 SCBSCSEG EQU SCBDNSEG 02713000 SCBBCTR EQU SCBCTBSV 02714000 SCBCCHDR EQU IEDQSCB+37 02715000 SCBDESTL EQU IEDQSCB+36 02716000 SCBDCHDR EQU IEDQSCB+33 02717000 SCBCPBNO EQU IEDQSCB+32 02718000 SCBMBSSA EQU IEDQSCB+25 02719000 SCBMLMTN EQU SCBBSCFM 02720000 SCBNOEOT EQU SCBBSCFM 02721000 @NM00197 EQU SCBBSCFM 02722000 SCBNPDTR EQU SCBDATEN 02723000 SCBCNTEN EQU SCBBSCFM 02724000 SCBRCVTX EQU SCBBSCFM 02725000 SCBNONTR EQU SCBBSCFM 02726000 SCBTRNSP EQU SCBBSCFM 02727000 SCBENDCR EQU SCBCTBAC+1 02728000 SCBCRLEN EQU SCBCTBAC 02729000 SCBMRFSD EQU IEDQSCB+20 02730000 SCBUNDFN EQU SCBERR4 02731000 SCBSTERN EQU SCBCHANN 02732000 SCBCPMEN EQU SCBCTLUN 02733000 @NM00196 EQU SCBERR4 02734000 SCBTRMLN EQU SCBERR4 02735000 SCBCONNN EQU SCBERR4 02736000 SCBAPERR EQU SCBTXTTN 02737000 SCBSLCTN EQU SCBERR4 02738000 SCBPERRN EQU SCBXCEPN 02739000 SCBTHRSN EQU SCBATTN 02740000 SCBFIERN EQU SCBFORMN 02741000 SCBUSERN EQU SCBERR3 02742000 SCBSATTN EQU SCBERR3 02743000 SCBTMINN EQU SCBERR3 02744000 SCBXPD EQU SCBTMIDN 02745000 SCBXPI EQU SCBLOSTN 02746000 SCBSOHE EQU SCBERR2 02747000 SCBFRWDN EQU SCBERR2 02748000 SCBRRJN EQU SCBABRTN 02749000 SCBOLTR EQU SCBERR2 02750000 SCBALN EQU SCBERR2 02751000 SCBCODER EQU SCBERR2 02752000 SCBCRMAX EQU SCBERR2 02753000 SCBCRMIN EQU SCBERR2 02754000 SCBRVISL EQU SCBCUTFN 02755000 SCBNOBFN EQU SCBERR1 02756000 @NM00195 EQU SCBERR1 02757000 SCBNOVAC EQU SCBSEQLN 02758000 SCBNOTSO EQU SCBSEQHN 02759000 SCBRVITX EQU SCBNOTRM 02760000 SCBHANG EQU SCBORIGN 02761000 SCBNOLOG EQU SCBHDRRN 02762000 SCBMRFPL EQU IEDQSCB+13 02763000 SCBBBFTM EQU SCBQTYPE 02764000 SCBNOFF EQU SCBQTYPE 02765000 SCBCONC EQU SCBQTYPE 02766000 SCBNREUS EQU SCBQTYPE 02767000 SCBREUS EQU SCBQTYPE 02768000 SCBCOREQ EQU SCBQTYPE 02769000 SCBNORCL EQU SCBQTYPE 02770000 SCBCTBSZ EQU SCBEOBSZ 02771000 @NM00194 EQU SCBBKFCT 02772000 SCBPRI EQU IEDQSCB+8 02773000 SCBMACR EQU SCBMBHEN 02774000 SCBSNDCT EQU SCBRCVCT 02775000 SCBCODE EQU SCBSTATE 02776000 SCBPRER EQU SCBSTATE 02777000 SCBCKPT EQU SCBSTATE 02778000 SCBERSDS EQU SCBSTATE 02779000 SCBMGFMN EQU SCBSEQIN 02780000 SCBTRANP EQU SCBSTATE 02781000 QCBTTCIN EQU QCBPLCBA+1 02782000 @NM00193 EQU QCBPLCBA 02783000 @NM00192 EQU QCBSTAT1 02784000 QCBFLUSH EQU QCBSTAT1 02785000 QCBNDXRQ EQU QCBSTAT1 02786000 QCBESIG EQU QCBSTAT1 02787000 QCBRCVRQ EQU QCBSTAT1 02788000 QCBSNDRQ EQU QCBSTAT1 02789000 QCBWAITC EQU QCBSTAT1 02790000 QCBCHAIN EQU IEDNQCB 02791000 QCBPQBCK EQU IEDQPQCB+25 02792000 QCBPRIPQ EQU IEDQPQCB+24 02793000 QCBCFHDR EQU IEDQPQCB+21 02794000 QCBLFEFO EQU IEDQPQCB+18 02795000 QCBFFEFO EQU IEDQPQCB+15 02796000 QCBPREVF EQU QCBINTLF 02797000 QCBINTFF EQU IEDQPQCB+9 02798000 QCBDATSQ EQU QCBFHDTZ+1 02799000 @NM00191 EQU QCBFHDTZ 02800000 @NM00190 EQU QCBPFEFO 02801000 QCBDATFL EQU QCBFHDLZ 02802000 QCBDNHDR EQU IEDQPQCB 02803000 QCBQBACK EQU IEDQQCB+37 02804000 QCBCKPT EQU QCBFLAG 02805000 QCBPROC EQU QCBFLAG 02806000 QCBSDFFO EQU QCBFLAG 02807000 QCBTERMQ EQU QCBFLAG 02808000 QCBRSRV EQU QCBFLAG 02809000 QCBREAD EQU QCBFLAG 02810000 QCBNOBRK EQU QCBFLAG 02811000 QCBTSSES EQU QCBFLAG 02812000 QCBLGBAD EQU QCBDCBAD 02813000 QCBRELLN EQU IEDQQCB+32 02814000 QCBTJID EQU QCBLKRRN+1 02815000 QCBCARCT EQU QCBLKRRN 02816000 QCBPRLVL EQU QCBPREN 02817000 QCBMSGCT EQU IEDQQCB+26 02818000 QCBEXTO EQU QCBINTVL 02819000 QCBDISC EQU QCBTSOF1 02820000 QCBDELAY EQU QCBTSOF1 02821000 QCBPARTO EQU QCBTSOF1 02822000 QCBSATRD EQU QCBTSOF1 02823000 QCBNOBUF EQU QCBTSOF1 02824000 QCBTPUT EQU QCBTSOF1 02825000 QCBTGET EQU QCBTSOF1 02826000 QCBWRBRK EQU QCBTSOF1 02827000 QCBSATLC EQU QCBTSOF2 02828000 QCBSATTI EQU QCBTSOF2 02829000 QCBSATCH EQU QCBTSOF2 02830000 QCBSIMRD EQU QCBTSOF2 02831000 QCBDSSMI EQU QCBTSOF2 02832000 QCBPOSTO EQU QCBTSOF2 02833000 QCBBUFQ EQU QCBTSOF2 02834000 QCBINHBN EQU QCBTSOF2 02835000 QCBSATCT EQU @NM00189 02836000 QCBSCBOF EQU IEDQQCB+20 02837000 QCBTIME EQU QCBSTAT 02838000 QCBCLOCK EQU QCBSTAT 02839000 QCBSCHDL EQU QCBSTAT 02840000 QCBSMODE EQU QCBSTAT 02841000 QCBSEND EQU QCBSTAT 02842000 QCBBUFRD EQU QCBSTAT 02843000 QCBTRMHO EQU QCBSTAT 02844000 QCBEOM EQU QCBSTAT 02845000 QCBHUCT EQU QCBRETCT 02846000 QCBIEND EQU QCBRETCT 02847000 QCBEND EQU QCBRETCT 02848000 QCBNL EQU QCBRETCT 02849000 QCBLOGCT EQU QCBRETCT 02850000 @NM00188 EQU QCBBYTE1 02851000 QCBRITRM EQU QCBBYTE1 02852000 @NM00187 EQU QCBEOLDT 02853000 QCBSLINK EQU IEDQQCB+13 02854000 QCBSTPRI EQU IEDQQCB+12 02855000 QCBSTCHN EQU IEDQQCB+9 02856000 QCBSTVTO EQU IEDQQCB+8 02857000 QCBLINK EQU IEDQQCB+5 02858000 QCBPRI EQU IEDQQCB+4 02859000 QCBELCHN EQU IEDQQCB+1 02860000 QCBHELD EQU QCBDSFLG 02861000 QCBFQCB EQU QCBDSFLG 02862000 QCBDRQQ EQU QCBDSFLG 02863000 QCBALTMH EQU QCBDSFLG 02864000 QCBREUS EQU QCBDISK 02865000 QCBNREUS EQU QCBDISK 02866000 QCBCORE EQU QCBDSFLG 02867000 QCBTSQ EQU QCBDSFLG 02868000 PRF2SEQP EQU PRF2WD2 02869000 @NM00186 EQU IEDPF2+1 02870000 @NM00185 EQU PRF2FLG2 02871000 PRF2TERM EQU PRF2FLG2 02872000 PRF2SMI EQU PRF2FLG2 02873000 PRF2FORM EQU PRF2FLG2 02874000 PRF2TNTI EQU PRF2FLG2 02875000 PRF1RULN EQU PRF1SEQP+2 02876000 PRF1TAG2 EQU PRF1SQID+1 02877000 @NM00184 EQU PRF1TAG1 02878000 PRF1TAGS EQU PRF1TAG1 02879000 @NM00183 EQU PRF1FLG1 02880000 PRF1LOGD EQU PRF1FLG1 02881000 PRF1USS EQU PRF1FLG1 02882000 PRF1FORM EQU PRF1FLG1 02883000 PRF1EXPI EQU PRF1FLG1 02884000 PRF1FIDI EQU PRF1FLG1 02885000 PRF1RH EQU IEDPF1 02886000 PRFDEST EQU IEDQPRF+40 02887000 PRFISEQ EQU IEDQPRF+38 02888000 PRFSTXT EQU PRFHQBCK 02889000 PRFNHDR EQU PRFCHDR 02890000 PRFCRCD EQU IEDQPRF+29 02891000 PRFSVSEQ EQU PRFNTXT+1 02892000 PRFSVPRI EQU PRFEOBOF 02893000 PRFISIZE EQU PRFSCAN+1 02894000 @NM00182 EQU PRFSCAN 02895000 PRFEOB EQU PRFXTRA+1 02896000 PRFSTSO EQU PRFXTRA 02897000 PRFNHDRN EQU PRFSTAT1 02898000 PRFNLSTN EQU PRFSTAT1 02899000 PRFLOCK EQU PRFEOFN 02900000 PRFDUPLN EQU PRFSTAT1 02901000 PRFTSMSG EQU PRFSTAT1 02902000 PRFITCPN EQU PRFSTAT1 02903000 PRFERMGN EQU PRFSTAT1 02904000 PRFCNCLN EQU PRFSTAT1 02905000 PRFSVFLG EQU @NM00181+3 02906000 PRFSIZE EQU PRFSVFFO+2 02907000 PRFSRCE EQU PRFSVFFO 02908000 PRFLCB EQU IEDQPRF+13 02909000 PRFTI0 EQU PRFTIC+1 02910000 @NM00180 EQU PRFTICC 02911000 @NM00179 EQU PRFTICC 02912000 @NM00178 EQU PRFTICC 02913000 PRFTICON EQU PRFTICC 02914000 @NM00177 EQU PRFTICC 02915000 @NM00176 EQU PRFTICC 02916000 PRFBFMM EQU PRFTICC 02917000 PRFEOMSG EQU PRFTICC 02918000 PRFCOUNT EQU PRFLINK+1 02919000 @NM00175 EQU PRFLINK 02920000 PRFFLAGS EQU PRFPRI 02921000 PRFIOADR EQU PRFQCBA 02922000 PRFOPCDE EQU PRFKEY 02923000 OPCBOTTM EQU IEDQOPCD+1184 02924000 @NM00174 EQU IEDQOPCD+1100 02925000 @NM00173 EQU IEDQOPCD+948 02926000 @NM00172 EQU IEDQOPCD+940 02927000 @NM00171 EQU IEDQOPCD+380 02928000 @NM00170 EQU OPCPWCOB+9 02929000 @NM00169 EQU OPCPWCOB+8 02930000 @NM00168 EQU OPCPWECB+1 02931000 OPCPWCCC EQU OPCPWECB 02932000 OPCPWCHN EQU OPCPWQCB+1 02933000 OPCPWVTO EQU OPCPWQCB 02934000 OPCWAITV EQU IEDQOPCD+364 02935000 OPCTOTCK EQU IEDQOPCD+360 02936000 OPCAPXTL EQU IEDQOPCD+356 02937000 OPCDECR EQU IEDQOPCD+352 02938000 OPCBUFWT EQU IEDQOPCD+348 02939000 OPCWRKSP EQU IEDQOPCD+320 02940000 OPCADGOT EQU IEDQOPCD+318 02941000 OPCRQCNT EQU IEDQOPCD+316 02942000 OPPOLSTP EQU IEDQOPCD+312 02943000 OPCCKCIB EQU IEDQOPCD+308 02944000 OPCEND EQU IEDQOPCD+307 02945000 OPCSTCBS EQU IEDQOPCD+306 02946000 OPCHNEND EQU IEDQOPCD+302 02947000 OPCOQSW EQU IEDQOPCD+301 02948000 @NM00167 EQU OPCSPEC 02949000 @NM00166 EQU OPCSPEC 02950000 @NM00165 EQU OPCSPEC 02951000 @NM00164 EQU OPCSPEC 02952000 OPCFRMCA EQU OPCSPEC 02953000 OPCRSTRT EQU OPCSPEC 02954000 OPCPART EQU OPCSPEC 02955000 OPCALTD EQU OPCSPEC 02956000 OPCBFEND EQU IEDQOPCD+296 02957000 OPCBFIRS EQU IEDQOPCD+292 02958000 OPCAVBUF EQU IEDQOPCD+290 02959000 OPCIPLCT EQU IEDQOPCD+289 02960000 OPCHA8 EQU IEDQOPCD+286 02961000 OPCBFREQ EQU IEDQOPCD+284 02962000 OPCFREBF EQU IEDQOPCD+280 02963000 OPCGETBF EQU IEDQOPCD+276 02964000 OPCNEXT EQU IEDQOPCD+272 02965000 OPCHORTG EQU IEDQOPCD+260 02966000 OPCHORT EQU IEDQOPCD+256 02967000 OPCCKPTL EQU IEDQOPCD+252 02968000 OPCCKPTF EQU IEDQOPCD+248 02969000 OPCWAITA EQU IEDQOPCD+244 02970000 OPCWAITR EQU IEDQOPCD+240 02971000 OPCWAITP EQU IEDQOPCD+236 02972000 OPCWAITO EQU IEDQOPCD+232 02973000 OPCWAITN EQU IEDQOPCD+228 02974000 OPCWAITL EQU IEDQOPCD+224 02975000 OPCWAITC EQU IEDQOPCD+220 02976000 @NM00163 EQU OPCLDNME+5 02977000 OPCMODID EQU OPCLDNME+3 02978000 @NM00162 EQU OPCLDNME 02979000 OPCXCTL EQU IEDQOPCD+204 02980000 OPCWAIT EQU IEDQOPCD+192 02981000 OPCCKERB EQU IEDQOPCD+164 02982000 OPCBFERB EQU IEDQOPCD+148 02983000 OPCFLAG2 EQU IEDQOPCD+147 02984000 OPCFLAG1 EQU IEDQOPCD+146 02985000 OPCWRKSZ EQU IEDQOPCD+144 02986000 OPCWORK EQU IEDQOPCD+140 02987000 OPCRSAVE EQU IEDQOPCD+132 02988000 OPCQCBAD EQU IEDQOPCD+128 02989000 OPCSAVE EQU IEDQOPCD+56 02990000 OPCTRMWA EQU IEDQOPCD+52 02991000 OPCPSTWT EQU IEDQOPCD+48 02992000 OPCTNTEA EQU IEDQOPCD+44 02993000 OPCPGCK EQU IEDQOPCD+40 02994000 OPCLCB EQU IEDQOPCD+36 02995000 @NM00161 EQU IEDQOPCD+32 02996000 OPCIPLAD EQU IEDQOPCD+28 02997000 OPCTOFLK EQU IEDQOPCD+24 02998000 OPCOPTLK EQU IEDQOPCD+20 02999000 OPCDCBLK EQU IEDQOPCD+16 03000000 OPCCOPCE EQU IEDQOPCD+12 03001000 OPCAVTPT EQU IEDQOPCD+8 03002000 OPCDOUBL EQU IEDQOPCD 03003000 @NM00160 EQU OCLDNME+4 03004000 @NM00159 EQU OCPREFLG 03005000 OCTOTEP EQU OCPREFLG 03006000 OCREPOST EQU OCPREFLG 03007000 OCRSPSNT EQU OCPREFLG 03008000 OCBFREQ EQU OCPREFLG 03009000 OCIDLE EQU OCREQFLG 03010000 OCFORCE EQU OCREQFLG 03011000 OCDCARD EQU OCREQFLG 03012000 OCPARTAL EQU OCREQFLG 03013000 OCADNCP EQU OCREQFLG 03014000 @NM00158 EQU OCREQFLG 03015000 @NM00157 EQU OCREQFLG 03016000 OCFLUSHZ EQU OCREQFLG 03017000 OCRESPCT EQU OCLINTTE 03018000 OCCKPTWA EQU OCCKDATA+4 03019000 @NM00154 EQU OCRSTGTM+2 03020000 OCCKDAT2 EQU OCRSTGTM+1 03021000 OCCKDAT1 EQU OCRSTGTM 03022000 OCPTRSAV EQU OCMODNME+4 03023000 OCPUADR EQU OCIPLWA+2 03024000 OCWTGSAV EQU OCIPLWA 03025000 OCDVRDCT EQU OCBACKUP+6 03026000 OCNCP EQU OCBACKUP+4 03027000 OCBUFGOT EQU OCBACKUP+2 03028000 OCBUFNED EQU OCBACKUP 03029000 OCWTG EQU IEDQOPCE+30 03030000 OCRESNUM EQU OCPARM 03031000 @NM00153 EQU OCRSID+1 03032000 OCNONE EQU OCALSTAT 03033000 OCSOME EQU OCALSTAT 03034000 OCALLFLG EQU OCALSTAT 03035000 OCACTREQ EQU OCALSTAT 03036000 OCREDRVE EQU OCALSTAT 03037000 OCSEQIND EQU OCALSTAT 03038000 @NM00152 EQU OCALSTAT 03039000 OCRENTRD EQU OCALSTAT 03040000 OCWTGB EQU OCTIOT 03041000 @NM00151 EQU @NM00150+2 03042000 OCCONID EQU OCDEST 03043000 OCRLN EQU IEDQOPCE+15 03044000 OCRESP EQU OCFLAG 03045000 OCATTACH EQU OCFLAG 03046000 OCSSCP EQU OCFLAG 03047000 OCOUTPUT EQU OCFLAG 03048000 OCLINE EQU OCFLAG 03049000 OCMPP EQU OCFLAG 03050000 OCTOTE EQU OCFLAG 03051000 OCCONSOL EQU OCFLAG 03052000 @NM00149 EQU OCSWITCH 03053000 OCQUCKN EQU OCSWITCH 03054000 OCPRIFLG EQU OCOPTCDE 03055000 @NM00148 EQU OCRUDEST+1 03056000 @NM00147 EQU OCSCAN 03057000 OCNOTUCB EQU OCSCAN 03058000 OCNONAME EQU OCSCAN 03059000 OCALLRLN EQU OCSCAN 03060000 OCDDNAME EQU OCSCAN 03061000 OCDDNRLN EQU OCSCAN 03062000 OCADDR EQU OCSCAN 03063000 OCELMPTR EQU OCELEM+1 03064000 OCELMPRI EQU OCELEM 03065000 LCBERADR EQU LCBXRADR+1 03066000 LCBPCIRC EQU LCBXRADR 03067000 LCBDCT3 EQU LCBXDCT+2 03068000 LCBDCT2 EQU LCBXDCT+1 03069000 LCBDCT1 EQU LCBXDCT 03070000 @NM00146 EQU LCBXFLAG 03071000 LCBERPND EQU LCBXFLAG 03072000 LCBSRCPF EQU LCBXFLAG 03073000 LCBGPCTV EQU LCBXFLAG 03074000 @NM00145 EQU LCBXFLAG 03075000 @NM00144 EQU LCBXFLAG 03076000 @NM00143 EQU LCBXFLAG 03077000 @NM00142 EQU LCBXFLAG 03078000 LCBCCW10 EQU LCBCPA+72 03079000 LCBCCW9 EQU LCBCPA+64 03080000 LCBCCW8 EQU LCBCPA+56 03081000 LCBCCW7 EQU LCBCPA+48 03082000 LCBCCW6 EQU LCBCPA+40 03083000 LCBATTEL EQU LCBCCW5 03084000 LCBCCW4 EQU LCBCPA+24 03085000 LCBCCW3 EQU LCBCPA+16 03086000 LCBCCW2 EQU LCBCPA+8 03087000 LCBCCW1 EQU LCBCPA 03088000 @NM00128 EQU LCBERCCW+16 03089000 LCBATL05 EQU LCBERCCW+8 03090000 @NM00127 EQU LCBERCCW 03091000 LCBCSWSV EQU LCBSAVSN+1 03092000 LCBSNSV EQU LCBSAVSN 03093000 LCBBFSNS EQU LCBRSPSV 03094000 LCBWAITC EQU LCBTPCD+5 03095000 LCBINPAK EQU LCBSTAT6 03096000 LCBMHBID EQU LCBSTAT6 03097000 LCBRTRRO EQU LCBSTAT6 03098000 LCBHDRPD EQU LCBSTAT6 03099000 LCBBFRSV EQU LCBTPCD+1 03100000 @NM00126 EQU LCBSTAT5 03101000 LCBLUS EQU LCBSTAT5 03102000 LCBLUNIT EQU LCBSTAT5 03103000 LCBPERM EQU LCBSTAT5 03104000 LCBNXCMD EQU LCBBFRW 03105000 LCBERMSK EQU LCBOBRCH 03106000 LCBOLT EQU LCBMSGFM 03107000 LCBEOT EQU LCBMSGFM 03108000 LCBENQ EQU LCBMSGFM 03109000 LCBTTD EQU LCBMSGFM 03110000 LCBRSTRT EQU LCBMSGFM 03111000 LCBVSTRT EQU LCBMSGFM 03112000 LCBACKI EQU LCBMSGFM 03113000 LCBNAK EQU LCBMSGFM 03114000 @NM00125 EQU LCBRBCT2 03115000 LCBDCNT EQU LCBRBCT2 03116000 LCBRBCT1 EQU LCBERBCT 03117000 LCBERBCH EQU IEDQLCB+85 03118000 LCBCOMPL EQU LCBDLNKN 03119000 LCBPRCPG EQU LCBERBST 03120000 LCBERROR EQU LCBERBST 03121000 @NM00124 EQU LCBERBST 03122000 LCBINQ EQU LCBERBST 03123000 LCBRDERR EQU LCBERBST 03124000 LCBEOMSG EQU LCBERBST 03125000 LCBMSG EQU LCBERBST 03126000 LCBERBLK EQU IEDQLCB+81 03127000 LCBERBKY EQU LCBERB 03128000 LCBRECAD EQU IEDQLCB+73 03129000 @NM00123 EQU LCBTSTSW 03130000 @NM00122 EQU LCBTSTSW 03131000 @NM00121 EQU LCBTSTSW 03132000 @NM00120 EQU LCBTSTSW 03133000 @NM00119 EQU LCBTSTSW 03134000 @NM00118 EQU LCBTSTSW 03135000 @NM00117 EQU LCBTSTSW 03136000 LCBCONCT EQU LCBTSTSW 03137000 LCBBFRAV EQU LCBDIAL 03138000 LCBATTN EQU LCBSYNC 03139000 LCBNEGRP EQU LCBSTAT2 03140000 LCBSNDPR EQU LCBSTAT2 03141000 LCBCONNN EQU LCBBEOTN 03142000 LCBTRACE EQU LCBSTAT2 03143000 LCBSENDN EQU LCBSTAT1 03144000 LCBFREEN EQU LCBSTAT1 03145000 LCBINITN EQU LCBSTAT1 03146000 LCBOCNI EQU LCBSTAT1 03147000 LCBOCWTN EQU LCBSTAT1 03148000 LCBRECOF EQU IEDQLCB+68 03149000 LCBRDBFR EQU LCBRCBFR 03150000 LCBUCBX EQU IEDQLCB+64 03151000 LCBTTBIN EQU LCBERRCT 03152000 @NM00116 EQU LCBINCAM 03153000 LCBGETMN EQU LCBINCAM 03154000 LCBRESTR EQU LCBRCQCB 03155000 LCBPCILK EQU LCBDCBPT 03156000 LCBSTART EQU LCBIOBSN+16 03157000 LCBAP4OL EQU LCBSIOCC 03158000 LCBAP3OL EQU LCBSIOCC 03159000 LCBAP2OL EQU LCBSIOCC 03160000 LCBAP1OL EQU LCBSIOCC 03161000 LCBSIOC2 EQU LCBSIOCC 03162000 LCBSIOC1 EQU LCBSIOCC 03163000 @NM00115 EQU LCBSIOCC 03164000 LCBCSWRC EQU LCBCSW+5 03165000 LCBCSCHC EQU LCBCSWCS 03166000 LCBCSICC EQU LCBCSWCS 03167000 LCBCSCCC EQU LCBCSWCS 03168000 LCBCSCDC EQU LCBCSWCS 03169000 LCBCSPTC EQU LCBCSWCS 03170000 LCBCSPGC EQU LCBCSWCS 03171000 LCBCSIL EQU LCBCSWCS 03172000 LCBCSPCI EQU LCBCSWCS 03173000 LCBUSUE EQU LCBCSWUS 03174000 LCBUSUC EQU LCBCSWUS 03175000 LCBUSDE EQU LCBCSWUS 03176000 LCBUSCE EQU LCBCSWUS 03177000 LCBUSBSY EQU LCBCSWUS 03178000 LCBUSCUE EQU LCBCSWUS 03179000 LCBUSSM EQU LCBCSWUS 03180000 LCBUSAT EQU LCBCSWUS 03181000 LCBCSWCA EQU LCBCSW 03182000 LCBOBR EQU LCBFLAG3 03183000 LCBOBRRD EQU LCBFLAG3 03184000 LCBIOMSG EQU LCBFLAG3 03185000 LCBSOHC EQU LCBFLAG3 03186000 LCBRLAD EQU LCBFLAG3 03187000 LCBSOHR EQU LCBFLAG3 03188000 @NM00114 EQU LCBFLAG3 03189000 LCBECBPT EQU LCBIOBSN+4 03190000 LCBECBCC EQU LCBIOBSN+3 03191000 LCBSENS1 EQU LCBSNS+1 03192000 LCBABORT EQU LCBTMOUT 03193000 LCBNOTIN EQU LCBLOSDT 03194000 LCBOVRUN EQU LCBSENS0 03195000 LCBDATCK EQU LCBSENS0 03196000 LCBEQUCK EQU LCBSENS0 03197000 LCBBUSCK EQU LCBSENS0 03198000 LCBINTRQ EQU LCBSENS0 03199000 LCBCMDRJ EQU LCBSENS0 03200000 LCBFLAG2 EQU LCBIOBSN 03201000 @NM00113 EQU LCBFLAG1 03202000 LCBUNREL EQU LCBFLAG1 03203000 LCBEXCPN EQU LCBFLAG1 03204000 @NM00112 EQU LCBFLAG1 03205000 LCBERPIN EQU LCBFLAG1 03206000 @NM00111 EQU LCBFLAG1 03207000 LCBFSBFR EQU LCBMHA 03208000 LCBISZE EQU IEDQLCB+28 03209000 LCBLNENT EQU LCBSCBDA+1 03210000 @NM00110 EQU LCBSCBDA 03211000 LCBCPGMH EQU LCBSTAT4 03212000 LCBREAL EQU LCBPHASE 03213000 @NM00109 EQU LCBSTAT4 03214000 LCBACTRQ EQU LCBSTAT4 03215000 LCBIPLRQ EQU LCBSTAT4 03216000 LCBDACRQ EQU LCBSTAT4 03217000 LCBDMPRQ EQU LCBSTAT4 03218000 @NM00108 EQU LCBLKMDE 03219000 LCBLOCKI EQU LCBLKMDE 03220000 LCBLOCKR EQU LCBLKMDE 03221000 LCBHMFLG EQU LCBLKMDE 03222000 @NM00107 EQU LCBINSRC 03223000 LCBABRTN EQU LCBCHAIN 03224000 LCBCTLMD EQU LCBTETEN 03225000 LCBBFRSZ EQU LCBCHAIN 03226000 LCBUREQN EQU LCBCHAIN 03227000 LCBNORTY EQU LCBCHAIN 03228000 LCBERMSG EQU LCBCHAIN 03229000 LCBEXCP EQU LCBCHAIN 03230000 LCBINVRQ EQU LCBSCRNN 03231000 LCB2741N EQU LCBTSOB 03232000 LCBINHBN EQU LCBTSOB 03233000 LCBCIRCD EQU LCBTSOB 03234000 LCBPREP EQU LCBTSOB 03235000 LCBSOPL EQU LCBTSOB 03236000 LCBSATRD EQU LCBTSOB 03237000 LCBTSBUF EQU LCBTSOB 03238000 LCBWRBRK EQU LCBTSOB 03239000 LCBTDL EQU IEDQLCB+18 03240000 LCBEOLTD EQU IEDQLCB+16 03241000 LCBRSLNK EQU IEDQLCB+13 03242000 LCBRSPRI EQU IEDQLCB+12 03243000 LCBSTCBA EQU IEDQLCB+9 03244000 LCBRSKEY EQU IEDQLCB+8 03245000 LCBLINK EQU LCBRCB+5 03246000 LCBKEY EQU LCBRCB 03247000 CURTRM EQU IEDCUREQ+40 03248000 CUROPCE EQU IEDCUREQ+36 03249000 CURTOTBF EQU IEDCUREQ+28 03250000 CURNXTRC EQU IEDCUREQ+22 03251000 CURTTCIN EQU IEDCUREQ+20 03252000 CURPIUCT EQU IEDCUREQ+16 03253000 @NM00106 EQU CURFLG3 03254000 CURDIAL EQU CURFLG3 03255000 CURFIRST EQU CURFLG3 03256000 CURTOTEP EQU CURFLG3 03257000 CUREPOST EQU CURFLG3 03258000 CURATTCH EQU CURFLG2 03259000 @NM00105 EQU CURFLG2 03260000 CURENDCH EQU CURFLG2 03261000 CURF1ID EQU CURFLG2 03262000 CURF1SEQ EQU CURFLG2 03263000 CURF0FIN EQU CURFLG2 03264000 CURSWCH EQU CURTOTIN+1 03265000 CURFLG1 EQU CURTOTIN 03266000 CURLINK EQU IEDCUREQ+8 03267000 CURELEM EQU IEDCUREQ+5 03268000 CURPRI EQU IEDCUREQ+4 03269000 CURQCB EQU IEDCUREQ+1 03270000 CURKEY EQU IEDCUREQ 03271000 BDUXGRPH EQU BDUEXRSP 03272000 BDUXFINL EQU BDUEXRSP 03273000 BDUXINIT EQU BDUEXRSP 03274000 BDUXERLK EQU BDUBDUFG 03275000 BDUALTAK EQU BDUFNFLG 03276000 BDUPOSAK EQU BDUFNFLG 03277000 BDUTPTX EQU BDUFNFLG 03278000 BDULEADG EQU BDUFNFLG 03279000 BDUHEADR EQU BDUFNFLG 03280000 SAVTBITN EQU IEDNSVTD+312 03281000 @NM00104 EQU SAVTCKQB+8 03282000 @NM00103 EQU SAVTCKEC+1 03283000 @NM00102 EQU SAVTCKCC 03284000 SAVTCKPO EQU SAVTCKCC 03285000 SAVTCKWA EQU SAVTCKCC 03286000 SAVTCKCH EQU SAVTCKTB+1 03287000 SAVTCKVT EQU SAVTCKTB 03288000 @NM00101 EQU IEDNSVTD+297 03289000 SAVTRDFG EQU SAVTRDRV+12 03290000 @NM00100 EQU SAVTRDRV+5 03291000 SAVTRDPY EQU SAVTRDRV+4 03292000 SAVTRDQB EQU SAVTRDRV+1 03293000 SAVTRDKY EQU SAVTRDRV 03294000 SAVTNID EQU IEDNSVTD+280 03295000 SAVTDVAS EQU IEDNSVTD+276 03296000 SAVTPLSZ EQU IEDNSVTD+274 03297000 @NM00099 EQU IEDNSVTD+273 03298000 SAVTSUBL EQU IEDNSVTD+272 03299000 @NM00098 EQU SAVTZELM+1 03300000 SAVTSUBM EQU SAVTZELM 03301000 SAVTMHDX EQU IEDNSVTD+268 03302000 SAVTNAT1 EQU IEDNSVTD+266 03303000 SAVTSH20 EQU IEDNSVTD+264 03304000 SAVTRNMP EQU IEDNSVTD+256 03305000 SAVTNAX EQU IEDNSVTD+248 03306000 SAVTSUBV EQU IEDNSVTD+247 03307000 SAVTSUBA EQU IEDNSVTD+246 03308000 SAVTSIBC EQU IEDNSVTD+244 03309000 SAVTBSM EQU IEDNSVTD+240 03310000 SAVTRQTG EQU IEDNSVTD+236 03311000 SAVTRQCH EQU IEDNSVTD+232 03312000 SAVTMAND EQU IEDNSVTD+228 03313000 SAVTSPLN EQU IEDNSVTD+224 03314000 SAVTNADL EQU IEDNSVTD+222 03315000 SAVTNATL EQU IEDNSVTD+220 03316000 SAVTMHTB EQU IEDNSVTD+216 03317000 SAVTSSMH EQU IEDNSVTD+212 03318000 SAVTQRS EQU IEDNSVTD+208 03319000 SAVTRQIN EQU IEDNSVTD+204 03320000 SAVTDFCO EQU IEDNSVTD+200 03321000 SAVTSAO EQU IEDNSVTD+196 03322000 SAVTSARI EQU IEDNSVTD+192 03323000 SAVTSAC EQU IEDNSVTD+188 03324000 SAVTSAI EQU IEDNSVTD+184 03325000 SAVTCSCI EQU IEDNSVTD+180 03326000 SAVTSSRP EQU IEDNSVTD+176 03327000 SAVTSSRQ EQU IEDNSVTD+172 03328000 SAVTSCLU EQU IEDNSVTD+168 03329000 SAVTXTRQ EQU IEDNSVTD+164 03330000 SAVTMVBF EQU IEDNSVTD+160 03331000 @NM00097 EQU IEDNSVTD+148 03332000 @NM00096 EQU IEDNSVTD+136 03333000 SAVTXFMI EQU IEDNSVTD+132 03334000 @NM00095 EQU IEDNSVTD+124 03335000 SAVTXFMO EQU IEDNSVTD+120 03336000 @NM00094 EQU IEDNSVTD+116 03337000 SAVTSSSR EQU IEDNSVTD+112 03338000 SAVTSCPQ EQU IEDNSVTD+108 03339000 SAVTSLCB EQU IEDNSVTD+104 03340000 SAVTLUSR EQU IEDNSVTD+100 03341000 @NM00093 EQU SAVTLUSQ+8 03342000 SAVTLUSP EQU SAVTLUSQ+4 03343000 SAVTLUSB EQU SAVTLUSQ 03344000 @NM00092 EQU IEDNSVTD+84 03345000 SAVTSAT EQU IEDNSVTD+80 03346000 SAVTNAT EQU IEDNSVTD+76 03347000 SAVTCLUP EQU IEDNSVTD+72 03348000 SAVTPIUT EQU IEDNSVTD+68 03349000 SAVTRNTA EQU IEDNSVTD+64 03350000 SAVTDNIR EQU IEDNSVTD+60 03351000 SAVTCNIR EQU IEDNSVTD+56 03352000 SAVTFLDH EQU IEDNSVTD+52 03353000 SAVTSRTN EQU IEDNSVTD+48 03354000 SAVTSREQ EQU IEDNSVTD+44 03355000 SAVTFAIL EQU IEDNSVTD+42 03356000 SAVTSUSE EQU IEDNSVTD+40 03357000 SAVTSIB EQU IEDNSVTD+36 03358000 SAVTPRTN EQU IEDNSVTD+32 03359000 @NM00091 EQU IEDNSVTD+28 03360000 SAVTWH20 EQU IEDNSVTD+26 03361000 SAVTPWT EQU IEDNSVTD+24 03362000 SAVTPRTQ EQU IEDNSVTD+20 03363000 SAVTPREQ EQU IEDNSVTD+16 03364000 SAVTPH20 EQU IEDNSVTD+14 03365000 SAVTPUSE EQU IEDNSVTD+12 03366000 SAVTPLCB EQU IEDNSVTD+8 03367000 SAVTPOOL EQU IEDNSVTD+4 03368000 SAVTPRMT EQU SAVTDIAF 03369000 SAVTVIRT EQU SAVTDIAF 03370000 AVTCPBNO EQU IEDQAVTD+1172 03371000 AVTHRESS EQU IEDQAVTD+1171 03372000 @NM00090 EQU IEDQAVTD+1170 03373000 @NM00089 EQU IEDQAVTD+1169 03374000 @NM00088 EQU IEDQAVTD+1168 03375000 @NM00087 EQU IEDQAVTD+1165 03376000 @NM00086 EQU IEDQAVTD+1164 03377000 AVTHRESE EQU @NM00085 03378000 AVTRADDR EQU IEDQAVTD+1156 03379000 AVTNADDR EQU IEDQAVTD+1152 03380000 AVTHRESN EQU IEDQAVTD+1148 03381000 AVTVOLRN EQU IEDQAVTD+1144 03382000 AVTTOTNN EQU IEDQAVTD+1140 03383000 AVTTRCYN EQU IEDQAVTD+1136 03384000 AVTRCTRN EQU IEDQAVTD+1132 03385000 AVTNOVON EQU IEDQAVTD+1128 03386000 AVTADEBN EQU IEDQAVTD+1124 03387000 AVTVOLRR EQU IEDQAVTD+1120 03388000 AVTTOTNR EQU IEDQAVTD+1116 03389000 AVTTRCYR EQU IEDQAVTD+1112 03390000 AVTRCTRR EQU IEDQAVTD+1108 03391000 AVTNOVOR EQU IEDQAVTD+1104 03392000 AVTADEBR EQU IEDQAVTD+1100 03393000 AVTLODPT EQU IEDQAVTD+1096 03394000 AVTIOBN EQU IEDQAVTD+1092 03395000 AVTIOBR EQU IEDQAVTD+1088 03396000 AVTCPBPT EQU IEDQAVTD+1084 03397000 AVTFCPB EQU IEDQAVTD+1080 03398000 @NM00084 EQU IEDQAVTD+1076 03399000 AVTINCPQ EQU IEDQAVTD+1072 03400000 @NM00083 EQU IEDQAVTD+1068 03401000 @NM00082 EQU IEDQAVTD+1065 03402000 @NM00081 EQU AVTBIT4 03403000 @NM00080 EQU AVTBIT4 03404000 @NM00079 EQU AVTBIT4 03405000 @NM00078 EQU AVTBIT4 03406000 @NM00077 EQU AVTBIT4 03407000 @NM00076 EQU AVTBIT4 03408000 @NM00075 EQU AVTBIT4 03409000 AVTRUFTN EQU AVTBIT4 03410000 @NM00074 EQU IEDQAVTD+1060 03411000 AVTNOBFQ EQU IEDQAVTD+1056 03412000 @NM00073 EQU IEDQAVTD+1052 03413000 AVTDKENQ EQU IEDQAVTD+1048 03414000 @NM00072 EQU IEDQAVTD+1044 03415000 AVTDKAPQ EQU IEDQAVTD+1040 03416000 AVTCOPY EQU IEDQAVTD+1036 03417000 AVTIA EQU IEDQAVTD+1032 03418000 AVTFL EQU IEDQAVTD+1028 03419000 @NM00071 EQU IEDQAVTD+1024 03420000 AVTNCPBQ EQU IEDQAVTD+1020 03421000 AVTTOTNC EQU IEDQAVTD+1016 03422000 AVTCMAX EQU IEDQAVTD+1012 03423000 AVTCMIN EQU IEDQAVTD+1008 03424000 AVTHM02 EQU IEDQAVTD+1004 03425000 AVTOPCIN EQU IEDQAVTD+1002 03426000 AVTDCTLN EQU IEDQAVTD+1000 03427000 AVTOPMSK EQU IEDQAVTD+996 03428000 AVTDDFT EQU IEDQAVTD+992 03429000 AVTOPTN EQU IEDQAVTD+984 03430000 AVTDSKCT EQU IEDQAVTD+982 03431000 AVTCKRST EQU IEDQAVTD+981 03432000 AVTSTAN EQU AVTBIT3 03433000 AVTSTACN EQU AVTBIT3 03434000 AVTSTAIN EQU AVTBIT3 03435000 AVTSTAYN EQU AVTBIT3 03436000 AVTOLTBN EQU AVTBIT3 03437000 AVTTSAB EQU AVTBIT3 03438000 AVTRFULN EQU AVTBIT3 03439000 AVTRECVN EQU AVTBIT3 03440000 @NM00070 EQU AVTBIT2 03441000 @NM00069 EQU AVTBIT2 03442000 AVTOPEIN EQU AVTBIT2 03443000 AVTSTRTN EQU AVTBIT2 03444000 AVTTOPOL EQU AVTBIT2 03445000 AVTCOPYN EQU AVTBIT2 03446000 AVTREUSN EQU AVTBIT2 03447000 AVTEXTSC EQU AVTBIT2 03448000 AVTDISKN EQU AVTBIT1 03449000 AVTQUCKN EQU AVTBIT1 03450000 AVTCLOSN EQU AVTBIT1 03451000 AVTREADN EQU AVTBIT1 03452000 AVTDLAYN EQU AVTBIT1 03453000 AVTAQTAN EQU AVTBIT1 03454000 AVTTSON EQU AVTBIT1 03455000 AVTAPLKN EQU AVTBIT1 03456000 AVTDUMBR EQU IEDQAVTD+976 03457000 AVTDLQX EQU IEDQAVTD+974 03458000 AVTINTLV EQU IEDQAVTD+972 03459000 AVTSMCNT EQU IEDQAVTD+970 03460000 AVTAVFCT EQU IEDQAVTD+968 03461000 AVTOPCON EQU IEDQAVTD+966 03462000 AVTOPCNT EQU IEDQAVTD+964 03463000 AVTLNCNT EQU IEDQAVTD+962 03464000 AVTKEYLE EQU IEDQAVTD+960 03465000 AVTHA16 EQU IEDQAVTD+958 03466000 AVTHA7 EQU IEDQAVTD+956 03467000 AVTHA4 EQU IEDQAVTD+954 03468000 AVTHA3 EQU IEDQAVTD+952 03469000 AVTHA2 EQU IEDQAVTD+950 03470000 AVTGETMS EQU IEDQAVTD+949 03471000 @NM00068 EQU IEDQAVTD+948 03472000 AVTGETMD EQU IEDQAVTD+944 03473000 AVTGETMN EQU IEDQAVTD+940 03474000 AVTCWTOT EQU IEDQAVTD+936 03475000 AVTCWINT EQU IEDQAVTD+884 03476000 AVTDTRAP EQU IEDQAVTD+880 03477000 @NM00067 EQU IEDQAVTD+878 03478000 @NM00066 EQU AVTIOTR 03479000 AVTIOTRH EQU AVTIOTR 03480000 AVTIOTRE EQU AVTIOTR 03481000 @NM00065 EQU AVTSUBT 03482000 AVTSUBPT EQU AVTSUBT 03483000 AVTSUBON EQU AVTSUBT 03484000 AVTAFE30 EQU IEDQAVTD+872 03485000 AVTAFE20 EQU IEDQAVTD+868 03486000 AVTAFE10 EQU IEDQAVTD+864 03487000 AVTCWEC2 EQU IEDQAVTD+860 03488000 AVTCWPM2 EQU IEDQAVTD+856 03489000 AVTCWTS2 EQU IEDQAVTD+855 03490000 AVTCWTS1 EQU IEDQAVTD+854 03491000 AVTCWCLD EQU AVTCWFL2 03492000 AVTCWRAP EQU AVTCWFL2 03493000 @NM00064 EQU AVTCWFL2 03494000 @NM00063 EQU AVTCWFL2 03495000 @NM00062 EQU AVTCWFL2 03496000 @NM00061 EQU AVTCWFL2 03497000 @NM00060 EQU AVTCWFL2 03498000 AVTCWACT EQU AVTCWFL2 03499000 @NM00059 EQU AVTCWFL1 03500000 @NM00058 EQU AVTCWFL1 03501000 @NM00057 EQU AVTCWFL1 03502000 @NM00056 EQU AVTCWFL1 03503000 @NM00055 EQU AVTCWFL1 03504000 @NM00054 EQU AVTCWFL1 03505000 @NM00053 EQU AVTCWFL1 03506000 AVTCOMWN EQU AVTCWFL1 03507000 AVTCWEC1 EQU IEDQAVTD+848 03508000 AVTCWPM1 EQU IEDQAVTD+844 03509000 AVTCAREA EQU IEDQAVTD+840 03510000 AVTFZERO EQU IEDQAVTD+836 03511000 AVTCADDR EQU IEDQAVTD+832 03512000 AVTCOREC EQU IEDQAVTD+828 03513000 @NM00052 EQU IEDQAVTD+820 03514000 AVTCPBCB EQU IEDQAVTD+816 03515000 @NM00051 EQU IEDQAVTD+808 03516000 AVTDSIOB EQU IEDQAVTD+804 03517000 @NM00050 EQU IEDQAVTD+796 03518000 AVTCPRMB EQU IEDQAVTD+792 03519000 @NM00049 EQU IEDQAVTD+784 03520000 AVTCLOSB EQU IEDQAVTD+780 03521000 @NM00048 EQU IEDQAVTD+772 03522000 AVTACTIB EQU IEDQAVTD+768 03523000 @NM00047 EQU IEDQAVTD+764 03524000 AVTOLTEB EQU IEDQAVTD+760 03525000 AVTOLTCH EQU AVTOLTQB+1 03526000 AVTOLTVT EQU AVTOLTQB 03527000 @NM00046 EQU AVTOPCQB+8 03528000 @NM00045 EQU AVTOPCEC+1 03529000 @NM00044 EQU AVTOPCCC 03530000 AVTOPCPO EQU AVTOPCCC 03531000 AVTOPCWA EQU AVTOPCCC 03532000 AVTOPCCH EQU AVTOPCOB+1 03533000 AVTOPCVT EQU AVTOPCOB 03534000 @NM00043 EQU AVTCKPQB+9 03535000 AVTCKPTS EQU AVTCKPQB+8 03536000 @NM00042 EQU AVTCKPEC+1 03537000 @NM00041 EQU AVTCKPCC 03538000 AVTCKPPO EQU AVTCKPCC 03539000 AVTCKPWA EQU AVTCKPCC 03540000 AVTCKPCH EQU AVTCKPTB+1 03541000 AVTCKPVT EQU AVTCKPTB 03542000 @NM00040 EQU IEDQAVTD+724 03543000 @NM00039 EQU IEDQAVTD+712 03544000 AVTBFREB EQU IEDQAVTD+708 03545000 AVTTIMQ EQU IEDQAVTD+704 03546000 @NM00038 EQU IEDQAVTD+700 03547000 AVTIMQPS EQU IEDQAVTD+696 03548000 AVTINOUT EQU IEDQAVTD+694 03549000 AVTREFTM EQU IEDQAVTD+692 03550000 @NM00037 EQU IEDQAVTD+680 03551000 AVTDELYB EQU IEDQAVTD+676 03552000 AVTOCQPT EQU IEDQAVTD+672 03553000 AVTTSOPT EQU IEDQAVTD+668 03554000 AVTSUPPT EQU IEDQAVTD+664 03555000 AVTCBQCB EQU IEDQAVTD+660 03556000 @NM00036 EQU AVTSYSER 03557000 @NM00035 EQU AVTSYSER 03558000 @NM00034 EQU AVTSYSER 03559000 @NM00033 EQU AVTSYSER 03560000 @NM00032 EQU AVTSYSER 03561000 @NM00031 EQU AVTSYSER 03562000 AVTCMAXN EQU AVTSYSER 03563000 AVTCMINN EQU AVTSYSER 03564000 AVT2260L EQU IEDQAVTD+652 03565000 AVTABEPL EQU AVTADBUF 03566000 AVTHFF EQU AVTCLRHI+2 03567000 @NM00030 EQU AVTCLRHI 03568000 AVTCCLNK EQU AVTCRELE+5 03569000 AVTCCPRI EQU AVTCRELE+4 03570000 AVTCCQCB EQU AVTCCELE+1 03571000 AVTCCKEY EQU AVTCCELE 03572000 AVTDELAD EQU IEDQAVTD+632 03573000 AVTDELEM EQU IEDQAVTD+628 03574000 AVTBSX EQU AVTCKLNK 03575000 AVTOPETR EQU AVTHG01 03576000 @NM00029 EQU AVTCKBYT 03577000 AVTCKONQ EQU AVTCKBYT 03578000 @NM00028 EQU AVTCKBYT 03579000 @NM00027 EQU AVTCKBYT 03580000 @NM00026 EQU AVTCKBYT 03581000 @NM00025 EQU AVTCKBYT 03582000 @NM00024 EQU AVTCKBYT 03583000 @NM00023 EQU AVTCKBYT 03584000 AVTOPERT EQU IEDQAVTD+618 03585000 AVTOPXCL EQU IEDQAVTD+616 03586000 AVTOPERL EQU IEDQAVTD+615 03587000 @NM00022 EQU IEDQAVTD+614 03588000 AVTCKTIM EQU IEDQAVTD+612 03589000 AVTCKELV EQU IEDQAVTD+610 03590000 AVTCPRCD EQU IEDQAVTD+609 03591000 AVTWARMN EQU AVTCKELF 03592000 AVTCRTLN EQU AVTCKELF 03593000 AVTCPIPN EQU AVTCKELF 03594000 AVTCCLCN EQU AVTCKELF 03595000 AVTCINCN EQU AVTCKELF 03596000 @NM00021 EQU AVTCKELF 03597000 AVTCMCPN EQU AVTCKELF 03598000 AVTNQBCK EQU AVTCKELF 03599000 AVTCKQAD EQU IEDQAVTD+605 03600000 AVTSCBSZ EQU IEDQAVTD+604 03601000 @NM00020 EQU IEDQAVTD+600 03602000 AVTCKELE EQU IEDQAVTD+596 03603000 @NM00019 EQU AVTCKPEL+8 03604000 AVTCKRLK EQU AVTCKPEL+5 03605000 AVTCKRPR EQU AVTCKPEL+4 03606000 AVTCKRMQ EQU AVTCKRMV+1 03607000 AVTCKRKY EQU AVTCKRMV 03608000 AVTHK EQU IEDQAVTD+576 03609000 AVTHI EQU IEDQAVTD+572 03610000 AVTIOT EQU IEDQAVTD+568 03611000 AVTNX EQU IEDQAVTD+564 03612000 AVTTONE EQU IEDQAVTD+560 03613000 AVTA3TL EQU IEDQAVTD+556 03614000 AVTDMECB EQU IEDQAVTD+552 03615000 AVTABEND EQU IEDQAVTD+546 03616000 AVTPLCBN EQU IEDQAVTD+544 03617000 @NM00018 EQU AVTSAVTP+1 03618000 @NM00017 EQU AVTSAVTF 03619000 AVTSNA EQU AVTSAVTF 03620000 AVTONSNA EQU AVTSAVTF 03621000 AVTVTMCP EQU AVTSAVTF 03622000 @NM00016 EQU IEDQAVTD+536 03623000 AVTCMBSS EQU IEDQAVTD+532 03624000 AVTRCV EQU IEDQAVTD+528 03625000 AVTSEND EQU IEDQAVTD+524 03626000 AVTCSCH EQU IEDQAVTD+520 03627000 AVTQ1 EQU IEDQAVTD+516 03628000 AVTE7 EQU IEDQAVTD+512 03629000 AVTHB EQU IEDQAVTD+508 03630000 AVTR1 EQU IEDQAVTD+504 03631000 AVTBZ EQU IEDQAVTD+500 03632000 AVTEZ EQU IEDQAVTD+496 03633000 AVTEC EQU IEDQAVTD+492 03634000 AVTEW EQU IEDQAVTD+488 03635000 AVTNDIAL EQU AVTSCOPT 03636000 AVTN2741 EQU AVTSCOPT 03637000 AVTCONCO EQU AVTSCOPT 03638000 AVTCONC EQU AVTSCOPT 03639000 AVTCMBUF EQU AVTSCOPT 03640000 AVTAPDMP EQU AVTSCOPT 03641000 @NM00015 EQU AVTSCOPT 03642000 AVTHA EQU AVTDISP 03643000 AVTEA EQU IEDQAVTD+476 03644000 AVTAX EQU IEDQAVTD+472 03645000 AVTA3 EQU IEDQAVTD+468 03646000 AVTGD EQU IEDQAVTD+464 03647000 AVTAL EQU IEDQAVTD+460 03648000 AVTOLTST EQU AVTHG02 03649000 AVTE8 EQU IEDQAVTD+452 03650000 AVTUI EQU IEDQAVTD+448 03651000 AVTCOMPT EQU IEDQAVTD+444 03652000 AVTCRSRF EQU IEDQAVTD+440 03653000 @NM00014 EQU IEDQAVTD+436 03654000 AVTKA02 EQU IEDQAVTD+432 03655000 AVTOPTPT EQU IEDQAVTD+428 03656000 AVTPCBPT EQU IEDQAVTD+424 03657000 @NM00013 EQU AVTECB1 03658000 AVTCOMP EQU AVTECB1 03659000 @NM00012 EQU AVTECB1 03660000 AVTOPECA EQU IEDQAVTD+416 03661000 AVTOLECA EQU IEDQAVTD+412 03662000 AVTCKECA EQU IEDQAVTD+408 03663000 AVTCWECA EQU IEDQAVTD+404 03664000 AVTCWTCB EQU IEDQAVTD+400 03665000 AVTOLTCB EQU IEDQAVTD+396 03666000 AVTOCTCB EQU IEDQAVTD+392 03667000 AVTCKTCB EQU IEDQAVTD+388 03668000 AVTAS EQU IEDQAVTD+384 03669000 AVTNOLBF EQU IEDQAVTD+382 03670000 AVTNCKPR EQU IEDQAVTD+381 03671000 AVTCIB EQU IEDQAVTD+380 03672000 AVTSPLPT EQU IEDQAVTD+376 03673000 AVTMVBFR EQU IEDQAVTD+372 03674000 AVTSBTA EQU IEDQAVTD+368 03675000 AVTRARTN EQU IEDQAVTD+364 03676000 AVTBSCAN EQU IEDQAVTD+360 03677000 AVTRDYA EQU IEDQAVTD+356 03678000 AVTRNMPT EQU IEDQAVTD+352 03679000 AVTDISTR EQU IEDQAVTD+348 03680000 AVTPARM3 EQU IEDQAVTD+344 03681000 @NM00011 EQU AVTPKF 03682000 @NM00010 EQU AVTPKF 03683000 @NM00009 EQU AVTPKF 03684000 AVTFTCHF EQU AVTPKF 03685000 @NM00008 EQU AVTPKF 03686000 @NM00007 EQU AVTPKF 03687000 @NM00006 EQU AVTPKF 03688000 @NM00005 EQU AVTPKF 03689000 AVTPARM EQU IEDQAVTD+336 03690000 AVTEXS2A EQU IEDQAVTD+330 03691000 AVTEXA2S EQU IEDQAVTD+324 03692000 AVTCKAVT EQU @NM00003+1 03693000 @NM00004 EQU AVTCKFLG 03694000 AVTCKHLT EQU AVTCKFLG 03695000 AVTCKREQ EQU AVTCKFLG 03696000 AVTCKENV EQU AVTCKFLG 03697000 AVTCKNAC EQU AVTCKFLG 03698000 AVTCKTAC EQU AVTCKFLG 03699000 @NM00002 EQU IEDQAVTD+312 03700000 AVTREADD EQU IEDQAVTD+308 03701000 AVTREADY EQU IEDQAVTD+304 03702000 AVTRACE EQU IEDQAVTD+300 03703000 AVTTCB EQU IEDQAVTD+296 03704000 AVTPASWD EQU IEDQAVTD+288 03705000 AVTCTLCH EQU IEDQAVTD+280 03706000 AVTDOUBL EQU IEDQAVTD+272 03707000 AVTDOUBX EQU IEDQAVTD+264 03708000 AVTDPARM EQU IEDQAVTD+260 03709000 AVTCSTCS EQU IEDQAVTD+256 03710000 AVTDLQ EQU AVTSAVEX+32 03711000 @NM00001 EQU AVTSAVEX 03712000 AVTSAVE4 EQU IEDQAVTD+144 03713000 AVTSAVE3 EQU IEDQAVTD+72 03714000 AVTSAVE2 EQU IEDQAVTD 03715000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03716000 @RF00763 EQU @RC00760 03717000 @RF00767 EQU @RC00760 03718000 @RC00770 EQU @RC00760 03719000 @RF00835 EQU @RC00832 03720000 @RF00882 EQU @RC00864 03721000 @RC00866 EQU @RC00864 03722000 @RF00885 EQU @RC00864 03723000 @RC00888 EQU @RC00864 03724000 @RC00979 EQU @RC00930 03725000 @RC00969 EQU @RC00930 03726000 @RC00931 EQU @RC00930 03727000 @RF00993 EQU @RC00990 03728000 @RF01006 EQU @RC01003 03729000 @RF01049 EQU @RC01037 03730000 @RC01039 EQU @RC01037 03731000 @RF01052 EQU @RC01037 03732000 @RF01057 EQU @RC01037 03733000 @RC00927 EQU @RC00917 03734000 @RC00920 EQU @RC00917 03735000 @RF01105 EQU @EL00002 03736000 @RF01116 EQU @EL00003 03737000 @RF01193 EQU @EL00004 03738000 @RC01244 EQU @EL00005 03739000 @RC01237 EQU @EL00005 03740000 @RC01232 EQU @EL00005 03741000 @RC01227 EQU @EL00005 03742000 @PB00005 EQU @EL00001 03743000 @RF00870 EQU @RC00866 03744000 @RC00868 EQU @RC00866 03745000 @RF00873 EQU @RC00866 03746000 @RC00876 EQU @RC00866 03747000 @RF00972 EQU @RC00969 03748000 @RF00982 EQU @RC00979 03749000 @RF01042 EQU @RC01039 03750000 @PB00004 EQU @PB00005 03751000 @RC01250 EQU @RC01244 03752000 @RC01245 EQU @RC01244 03753000 @PB00003 EQU @PB00004 03754000 @PB00002 EQU @PB00003 03755000 @ENDDATA EQU * 03756000 END IEDNCU2,(C'PLS0416',0701,77119) 03757000