TITLE 'IKTCAS51 - TCAS INITIALIZATION *00001000 ' 00002000 IKTCAS51 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IKTCAS51 77.238' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@00,12(@13) 0001 00010000 STM @02,@12,28(@13) 0001 00011000 BALR @12,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@12 0001 00014000 ST @13,@SA00001+4 0001 00015000 LA @14,@SA00001 0001 00016000 ST @14,8(,@13) 0001 00017000 LR @13,@14 0001 00018000 * /* */ 00019000 * /* GETMAIN FOR TCAS WORK AREA */ 00020000 * /* */ 00021000 * R8=LENGTH(TWAR); /* LENGTH OF TWA */ 00022000 LA R8,536 0013 00023000 * GEN CODE ; 0014 00024000 GETMAIN R,LV=(R8) GETMAIN FOR TWA 00025000 * TWAPTR=R1 ; /* TWA ADDRESSIBILITY */ 00026000 LR TWAPTR,R1 0015 00027000 * /* */ 00028000 * /* INITIALIZE TCAS WORK AREA */ 00029000 * /* */ 00030000 * RFY AREA BASED(R1) ; 0016 00031000 * DO WHILE(R8>=256) ; /* LOOP AROUND TO CLEAR */ 00032000 B @DE00017 0017 00033000 @DL00017 DS 0H 0018 00034000 * AREA=''B ; /* THE GETMAIN AREA */ 00035000 XC AREA(256,R1),AREA(R1) 0018 00036000 * R1=R1+256 ; /* FOR NEXT 256 BYTES */ 00037000 LA @10,256 0019 00038000 ALR R1,@10 0019 00039000 * R8=R8-256 ; /* THE REMAINING LENGTH */ 00040000 SLR R8,@10 0020 00041000 * END ; 0021 00042000 @DE00017 C R8,@CF00159 0021 00043000 BNL @DL00017 0021 00044000 * IF R8>0 THEN /* IS THERE REMAINING AREA */ 00045000 LTR R8,R8 0022 00046000 BNP @RF00022 0022 00047000 * AREA(1:R8)=AREA(1:R8) /* CLEAR THE AREA */ 00048000 * && AREA(1:R8) ; 0023 00049000 LR @10,R8 0023 00050000 BCTR @10,0 0023 00051000 EX @10,@SX00171 0023 00052000 * TWAMID='MAIN' ; /* MAIN TASK SECTION ID */ 00053000 @RF00022 MVC TWAMID(4,TWAPTR),@CC00165 0024 00054000 * TWAVID='VTAM' ; /* VTAM SECTION ID */ 00055000 MVC TWAVID(4,TWAPTR),@CC00166 0025 00056000 * TWAUID='USER' ; /* USER INT SUBTASK SECTION ID*/ 00057000 MVC TWAUID(4,TWAPTR),@CC00167 0026 00058000 * TWACID='COMM' ; /* CON COMM SUBTASK SECTION ID*/ 00059000 MVC TWACID(4,TWAPTR),@CC00168 0027 00060000 * TWAMTWA=TWAPTR ; /*ADDRESSIBILITY OF TWA FOR */ 00061000 ST TWAPTR,TWAMTWA(,TWAPTR) 0028 00062000 * /* ESTAE EXIT ROUTINE */ 00063000 * TWAVTWA=TWAPTR ; /*ADDRESSIBILITY OF TWA FOR */ 00064000 ST TWAPTR,TWAVTWA(,TWAPTR) 0029 00065000 * /* ESTAE EXIT ROUTINE */ 00066000 * TWAUTWA=TWAPTR ; /*ADDRESSIBILITY OF TWA FOR */ 00067000 ST TWAPTR,TWAUTWA(,TWAPTR) 0030 00068000 * /* ESTAE EXIT ROUTINE */ 00069000 * TWACTWA=TWAPTR ; /*ADDRESSIBILITY OF TWA FOR */ 00070000 ST TWAPTR,TWACTWA(,TWAPTR) 0031 00071000 * /* ESTAE EXIT ROUTINE */ 00072000 * /* */ 00073000 * /* ESTABLISHES ADDRESSIBILITY OF ALL ROUTINES IN TCAS */ 00074000 * /* */ 00075000 * TWATTSR=ADDR(IKTCAS52) ; /* STORE TCAS TERM ROUTINE A */ 00076000 L @10,@CV00153 0032 00077000 ST @10,TWATTSR(,TWAPTR) 0032 00078000 * TWATCSR=ADDR(IKTCAS53) ; /* STORE TCAST CR ROUTINE A */ 00079000 L @10,@CV00154 0033 00080000 ST @10,TWATCSR(,TWAPTR) 0033 00081000 * TWAPPSR=ADDR(IKTCAS54) ; /* STORE PARM PROC ROUTINE A */ 00082000 L @10,@CV00155 0034 00083000 ST @10,TWAPPSR(,TWAPTR) 0034 00084000 * TWAEESR=ADDR(IKTCAS55) ; /* STORE ESTAE EXIT RTN ADDR */ 00085000 L @10,@CV00156 0035 00086000 ST @10,TWAEESR(,TWAPTR) 0035 00087000 * TWAMSG=ADDR(IKTCAS56) ; /* STORE MSG BLOCK ADDR */ 00088000 L @10,@CV00157 0036 00089000 ST @10,TWAMSG(,TWAPTR) 0036 00090000 * TWAINIT=TWAPTR ; /* THIS ROUTINE ADDR */ 00091000 ST TWAPTR,TWAINIT(,TWAPTR) 0037 00092000 * R1=TWAPTR ; 0038 00093000 LR R1,TWAPTR 0038 00094000 * END IKTCAS51 0039 00095000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00096000 */*%INCLUDE SYSLIB (IKTCASWA) * 00097000 *; 0039 00098000 @EL00001 L @13,4(,@13) 0039 00099000 @EF00001 DS 0H 0039 00100000 @ER00001 LM @14,@00,12(@13) 0039 00101000 LM @02,@12,28(@13) 0039 00102000 BR @14 0039 00103000 @DATA DS 0H 00104000 @SX00171 XC AREA(0,R1),AREA(R1) 00105000 DS 0F 00106000 @SA00001 DS 18F 00107000 DS 0F 00108000 @CF00159 DC F'256' 00109000 @CV00153 DC V(IKTCAS52) 00110000 @CV00154 DC V(IKTCAS53) 00111000 @CV00155 DC V(IKTCAS54) 00112000 @CV00156 DC V(IKTCAS55) 00113000 @CV00157 DC V(IKTCAS56) 00114000 DS 0D 00115000 @CC00165 DC C'MAIN' 00116000 @CC00166 DC C'VTAM' 00117000 @CC00167 DC C'USER' 00118000 @CC00168 DC C'COMM' 00119000 PATCH DC 13F'0' 00120000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00121000 @01 EQU 01 00122000 @02 EQU 02 00123000 @03 EQU 03 00124000 @04 EQU 04 00125000 @05 EQU 05 00126000 @06 EQU 06 00127000 @07 EQU 07 00128000 @08 EQU 08 00129000 @09 EQU 09 00130000 @10 EQU 10 00131000 @11 EQU 11 00132000 @12 EQU 12 00133000 @13 EQU 13 00134000 @14 EQU 14 00135000 @15 EQU 15 00136000 R1 EQU @01 00137000 TWAPTR EQU @11 00138000 R8 EQU @08 00139000 TWAR EQU 0 00140000 TWAINIT EQU TWAR+24 00141000 TWATTSR EQU TWAR+28 00142000 TWATCSR EQU TWAR+32 00143000 TWAPPSR EQU TWAR+36 00144000 TWAEESR EQU TWAR+40 00145000 TWAMSG EQU TWAR+48 00146000 TWAMFL EQU TWAR+80 00147000 TWAVFL EQU TWAR+81 00148000 TWAUFL EQU TWAR+82 00149000 TWACFL EQU TWAR+83 00150000 TWAM EQU TWAR+84 00151000 TWAMID EQU TWAM 00152000 TWAMTWA EQU TWAM+52 00153000 TWAME EQU TWAM+68 00154000 TWAMEI EQU TWAME 00155000 TWAV EQU TWAR+184 00156000 TWAVID EQU TWAV 00157000 TWAVTWA EQU TWAV+52 00158000 TWAVE EQU TWAV+68 00159000 TWAVEI EQU TWAVE 00160000 TWAVI EQU TWAR+284 00161000 TWAU EQU TWAR+300 00162000 TWAUID EQU TWAU 00163000 TWAUTWA EQU TWAU+52 00164000 TWAUE EQU TWAU+68 00165000 TWAUEI EQU TWAUE 00166000 TWAUI EQU TWAR+400 00167000 TWAC EQU TWAR+408 00168000 TWACID EQU TWAC 00169000 TWACTWA EQU TWAC+52 00170000 TWACE EQU TWAC+68 00171000 TWACEI EQU TWACE 00172000 TWACI EQU TWAR+508 00173000 AREA EQU 0 00174000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00175000 TWAEND EQU TWAR+536 00176000 TWAWORKE EQU TWAR+524 00177000 @NM00005 EQU TWACI+13 00178000 TWACSKIP EQU TWACI+12 00179000 TWACMODQ EQU TWACI+8 00180000 TWACSTPQ EQU TWACI+4 00181000 TWACECB EQU TWACI 00182000 TWACERRS EQU TWACE+4 00183000 TWACERA EQU TWACEI+1 00184000 TWACEIFC EQU TWACEI 00185000 TWACRTFC EQU TWAC+60 00186000 TWACABFC EQU TWAC+56 00187000 TWACEWA EQU TWAC+4 00188000 TWAUACQH EQU TWAUI+4 00189000 TWAUECB EQU TWAUI 00190000 TWAUERRS EQU TWAUE+4 00191000 TWAUERA EQU TWAUEI+1 00192000 TWAUEIFC EQU TWAUEI 00193000 TWAURTFC EQU TWAU+60 00194000 TWAUABFC EQU TWAU+56 00195000 TWAUEWA EQU TWAU+4 00196000 TWAVACQH EQU TWAVI+12 00197000 TWAVTHQH EQU TWAVI+8 00198000 TWAVTEQH EQU TWAVI+4 00199000 TWAVECB EQU TWAVI 00200000 TWAVERRS EQU TWAVE+4 00201000 TWAVERA EQU TWAVEI+1 00202000 TWAVEIFC EQU TWAVEI 00203000 TWAVRTFC EQU TWAV+60 00204000 TWAVABFC EQU TWAV+56 00205000 TWAVEWA EQU TWAV+4 00206000 TWAMERRS EQU TWAME+4 00207000 TWAMERA EQU TWAMEI+1 00208000 TWAMEIFC EQU TWAMEI 00209000 TWAMRTFC EQU TWAM+60 00210000 TWAMABFC EQU TWAM+56 00211000 TWAMEWA EQU TWAM+4 00212000 @NM00004 EQU TWACFL 00213000 TWACFL4 EQU TWACFL 00214000 TWACFL2 EQU TWACFL 00215000 TWACFL1 EQU TWACFL 00216000 @NM00003 EQU TWAUFL 00217000 TWAUFL4 EQU TWAUFL 00218000 TWAUFL3 EQU TWAUFL 00219000 TWAUFL2 EQU TWAUFL 00220000 TWAUFL1 EQU TWAUFL 00221000 @NM00002 EQU TWAVFL 00222000 TWAVFL6 EQU TWAVFL 00223000 TWAVFL5 EQU TWAVFL 00224000 TWAVFL4 EQU TWAVFL 00225000 TWAVFL3 EQU TWAVFL 00226000 TWAVFL2 EQU TWAVFL 00227000 TWAVFL1 EQU TWAVFL 00228000 @NM00001 EQU TWAMFL 00229000 TWAMFL1 EQU TWAMFL 00230000 TWACCOMP EQU TWAR+76 00231000 TWAUCOMP EQU TWAR+72 00232000 TWAVCOMP EQU TWAR+68 00233000 TWAMECB EQU TWAR+64 00234000 TWACTCB EQU TWAR+60 00235000 TWAUTCB EQU TWAR+56 00236000 TWAVTCB EQU TWAR+52 00237000 TWADEQAS EQU TWAR+44 00238000 TWATCAST EQU TWAR+20 00239000 TWACSCB EQU TWAR+16 00240000 TWAASCB EQU TWAR+12 00241000 TWAPASQH EQU TWAR+8 00242000 TWASYNQH EQU TWAR+4 00243000 TWARSON EQU TWAR+2 00244000 TWACOMP EQU TWAR 00245000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00246000 @ENDDATA EQU * 00247000 END IKTCAS51,(C'PLS0453',0701,77238) 00248000