TITLE 'IGG09411, TSO/TCAM GTTERM MACRO SUPPORT MODULE *00001000 ' 00002000 IGG09411 CSECT 00003000 USING IGG09411,RBASE ESTABLISH BASE ADDRESSABILITY 00004000 IGG09411 IEDHJN AFTERHJN,HJN 00005000 * 0010 00006000 * /*****************************************************************/ 00007000 * /* */ 00008000 * /* PARAMETER REGISTER 1 MUST HAVE THE ADDRESS OF A TWO WORD PARM */ 00009000 * /* LIST. IF THE FIRST WORD OF THE LIST IS 0, OR REG1 IS 0, RETURN*/ 00010000 * /* CODE 12 IS ISSUED. */ 00011000 * /* */ 00012000 * /*****************************************************************/ 00013000 * 0010 00014000 * IF REG1=0|PRMSZEP=0 THEN 0010 00015000 SLR @04,@04 0010 00016000 CR REG1,@04 0010 00017000 BE @RT00010 0010 00018000 C @04,PRMSZEP(,REG1) 0010 00019000 BNE @RF00010 0010 00020000 @RT00010 DS 0H 0011 00021000 * RETCODE=CODE12; 0011 00022000 LA RETCODE,12 0011 00023000 * ELSE /* PARAMETERS OKAY */ 00024000 * IF TSBDSPLY='0'B THEN /* NOT A DISPLAY TERMINAL */ 00025000 B @RC00010 0012 00026000 @RF00010 TM TSBDSPLY(TSBPTR),B'00100000' 0012 00027000 BNZ @RF00012 0012 00028000 * RETCODE=CODE08; 0013 00029000 LA RETCODE,8 0013 00030000 * ELSE /* A DISPLAY TERMINAL */ 00031000 * 0014 00032000 * /*************************************************************/ 00033000 * /* */ 00034000 * /* GET PRIMARY (DEFAULT) AND ALTERNATE SCREEN SIZES FROM THE */ 00035000 * /* TSB AND PLACE IN USER'S AREA */ 00036000 * /* */ 00037000 * /*************************************************************/ 00038000 * 0014 00039000 * DO; 0014 00040000 B @RC00012 0014 00041000 @RF00012 DS 0H 0015 00042000 * RETCODE=CODE00; /* SET GOOD RETURN CODE */ 00043000 SLR RETCODE,RETCODE 0015 00044000 * PRMROW=TSBPRMR; /* GET PRIMARY ROW VALUE */ 00045000 L @04,PRMSZEP(,REG1) 0016 00046000 IC @03,TSBPRMR(,TSBPTR) 0016 00047000 STC @03,PRMROW(,@04) 0016 00048000 * PRMCOL=TSBPRMC; /* GET PRIMARY COL VALUE */ 00049000 * 0017 00050000 IC @03,TSBPRMC(,TSBPTR) 0017 00051000 STC @03,PRMCOL(,@04) 0017 00052000 * /***********************************************************/ 00053000 * /* */ 00054000 * /* IF USER WANTS ALTERNATE SIZE, RETURN VALUE FROM TSB. IF */ 00055000 * /* TSBALT SIZE IS ZERO, RETURN ALT EQUAL TO PRIMARY */ 00056000 * /* */ 00057000 * /***********************************************************/ 00058000 * 0018 00059000 * IF ALTSZEP^=0 /* USER WANTS ALTERNATE */ 00060000 * THEN 0018 00061000 L @04,ALTSZEP(,REG1) 0018 00062000 LTR @04,@04 0018 00063000 BZ @RF00018 0018 00064000 * IF TSBALTR=0 /* IF NOT AVAILABLE - */ 00065000 * THEN 0019 00066000 CLI TSBALTR(TSBPTR),0 0019 00067000 BNE @RF00019 0019 00068000 * DO; 0020 00069000 * ALTROW=TSBPRMR; /* SET ALTERNATE EQUAL TO */ 00070000 IC @03,TSBPRMR(,TSBPTR) 0021 00071000 STC @03,ALTROW(,@04) 0021 00072000 * ALTCOL=TSBPRMC; /* PRIMARY SIZES */ 00073000 IC @03,TSBPRMC(,TSBPTR) 0022 00074000 STC @03,ALTCOL(,@04) 0022 00075000 * END; 0023 00076000 * ELSE 0024 00077000 * DO; 0024 00078000 B @RC00019 0024 00079000 @RF00019 DS 0H 0025 00080000 * ALTROW=TSBALTR; /* RETURN ALTERNATE VALUES */ 00081000 L @04,ALTSZEP(,REG1) 0025 00082000 IC @03,TSBALTR(,TSBPTR) 0025 00083000 STC @03,ALTROW(,@04) 0025 00084000 * ALTCOL=TSBALTC; 0026 00085000 IC @03,TSBALTC(,TSBPTR) 0026 00086000 STC @03,ALTCOL(,@04) 0026 00087000 * END; 0027 00088000 * ELSE 0028 00089000 * ; 0028 00090000 @RF00018 DS 0H 0029 00091000 * END; 0029 00092000 @RC00018 DS 0H 0030 00093000 * 0030 00094000 * /*****************************************************************/ 00095000 * /* */ 00096000 * /* RETURN TO CALLER */ 00097000 * /* */ 00098000 * /*****************************************************************/ 00099000 * 0030 00100000 * GEN CODE REFS(RLINK); 0030 00101000 @RC00012 DS 0H 0030 00102000 @RC00010 DS 0H 0030 00103000 BR RLINK 00104000 * END IGG09411 0031 00105000 * 0031 00106000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00107000 */*%INCLUDE SYSLIB (IKJTSB ) */ 00108000 * 0031 00109000 * ; 0031 00110000 @DATA DS 0H 00111000 @DATD DSECT 00112000 DS 0F 00113000 IGG09411 CSECT 00114000 DS 0F 00115000 @DATD DSECT 00116000 DS 0D 00117000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00118000 @ENDDATD EQU * 00119000 IGG09411 CSECT 00120000 DS 0F 00121000 @SIZDATD DC AL1(0) 00122000 DC AL3(@ENDDATD-@DATD) 00123000 DS 0D 00124000 PATCH DS CL50 00125000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00126000 @01 EQU 01 00127000 @02 EQU 02 00128000 @03 EQU 03 00129000 @04 EQU 04 00130000 @05 EQU 05 00131000 @06 EQU 06 00132000 @07 EQU 07 00133000 @08 EQU 08 00134000 @09 EQU 09 00135000 @10 EQU 10 00136000 @11 EQU 11 00137000 @12 EQU 12 00138000 @13 EQU 13 00139000 @14 EQU 14 00140000 @15 EQU 15 00141000 RBASE EQU @12 00142000 REG1 EQU @01 00143000 REG2 EQU @02 00144000 TSBPTR EQU @05 00145000 RLINK EQU @14 00146000 RETCODE EQU @15 00147000 INPARMS EQU 0 00148000 PRMSZEP EQU INPARMS 00149000 ALTSZEP EQU INPARMS+4 00150000 PRMSZE EQU 0 00151000 PRMROW EQU PRMSZE 00152000 PRMCOL EQU PRMSZE+1 00153000 ALTSZE EQU 0 00154000 ALTROW EQU ALTSZE 00155000 ALTCOL EQU ALTSZE+1 00156000 TSB EQU 0 00157000 TSBASCBA EQU TSB 00158000 TSBSTAT EQU TSBASCBA 00159000 TSBDSPLY EQU TSBSTAT 00160000 TSBFLG1 EQU TSB+4 00161000 TSBFLG2 EQU TSB+16 00162000 TSBFLG3 EQU TSB+24 00163000 TSBFLG5 EQU TSB+25 00164000 TSBTERMC EQU TSB+26 00165000 TSBTERM1 EQU TSBTERMC 00166000 TSBTERM2 EQU TSBTERMC+1 00167000 TSBSTCC EQU TSB+34 00168000 TSBFLG4 EQU TSB+41 00169000 TSBRCB EQU TSB+64 00170000 TSBLINKA EQU TSBRCB+4 00171000 TSBTPOST EQU TSB+72 00172000 TSBTPFLG EQU TSBTPOST 00173000 TSBMINL EQU TSB+84 00174000 TSBPRMR EQU TSB+100 00175000 TSBPRMC EQU TSB+101 00176000 TSBALTR EQU TSB+102 00177000 TSBALTC EQU TSB+103 00178000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00179000 TSBEND EQU TSB+120 00180000 TSBSF1 EQU TSB+112 00181000 TSBTRMID EQU TSB+104 00182000 TSBEXTNT EQU TSB+96 00183000 TSBPSWD EQU TSB+88 00184000 TSBLECB EQU TSBMINL 00185000 TSBLINE EQU TSB+82 00186000 TSBSTAX EQU TSB+81 00187000 TSBATTNC EQU TSB+80 00188000 TSBF1V EQU TSBTPOST+7 00189000 TSBF1M EQU TSBTPOST+6 00190000 TSBF2V EQU TSBTPOST+5 00191000 TSBF2M EQU TSBTPOST+4 00192000 TSBFLAGV EQU TSBTPOST+3 00193000 TSBFLAGM EQU TSBTPOST+2 00194000 @NM00015 EQU TSBTPOST+1 00195000 @NM00014 EQU TSBTPFLG 00196000 @NM00013 EQU TSBTPFLG 00197000 @NM00012 EQU TSBTPFLG 00198000 @NM00011 EQU TSBTPFLG 00199000 TSBNEWID EQU TSBTPFLG 00200000 TSBTPAYI EQU TSBTPFLG 00201000 TSBTPQCB EQU TSBTPFLG 00202000 TSBPOSTO EQU TSBTPFLG 00203000 TSBLINKB EQU TSBLINKA+1 00204000 TSBPRI EQU TSBLINKA 00205000 TSBRQCB EQU TSBRCB 00206000 TSBCTCB EQU TSB+60 00207000 TSBERSDS EQU TSB+56 00208000 TSBAUTOI EQU TSB+52 00209000 TSBAUTOS EQU TSB+48 00210000 TSBATNCC EQU TSB+44 00211000 TSBASRCE EQU TSB+42 00212000 TSBHLDL EQU TSBFLG4 00213000 TSBGETBF EQU TSBFLG4 00214000 TSBCANC EQU TSBFLG4 00215000 TSBHOLD EQU TSBFLG4 00216000 TSBHUNG EQU TSBFLG4 00217000 TSBOWAIT EQU TSBFLG4 00218000 TSBIWAIT EQU TSBFLG4 00219000 TSBOCAB EQU TSBFLG4 00220000 TSBLNNO EQU TSB+40 00221000 TSBATNTC EQU TSB+38 00222000 TSBATNLC EQU TSB+36 00223000 TSBCHDCC EQU TSBSTCC+1 00224000 TSBLNDCC EQU TSBSTCC 00225000 TSBWTJID EQU TSB+32 00226000 TSBECB EQU TSB+28 00227000 TSBC1050 EQU TSBTERM2 00228000 @NM00010 EQU TSBTERM2 00229000 @NM00009 EQU TSBTERM2 00230000 @NM00008 EQU TSBTERM2 00231000 @NM00007 EQU TSBTERM2 00232000 TSBCTWX EQU TSBTERM2 00233000 @NM00006 EQU TSBTERM2 00234000 @NM00005 EQU TSBTERM2 00235000 @NM00004 EQU TSBTERM1 00236000 @NM00003 EQU TSBTERM1 00237000 @NM00002 EQU TSBTERM1 00238000 TSBC2741 EQU TSBTERM1 00239000 TSBC5041 EQU TSBTERM1 00240000 TSBCATTN EQU TSBTERM1 00241000 TSBCBRK EQU TSBTERM1 00242000 TSBCIHBN EQU TSBTERM1 00243000 TSBVTAM EQU TSBFLG5 00244000 TSBKEYS EQU TSBFLG5 00245000 @NM00001 EQU TSBFLG5 00246000 TSBSPF EQU TSBFLG5 00247000 TSBATMP EQU TSBFLG5 00248000 TSBNFLOP EQU TSBFLG3 00249000 TSBNOBRK EQU TSBFLG3 00250000 TSBTPUT EQU TSBFLG3 00251000 TSBAWOIP EQU TSBFLG3 00252000 TSBNBKSP EQU TSBFLG3 00253000 TSBSPIT EQU TSBFLG3 00254000 TSBTJMSG EQU TSBFLG3 00255000 TSBATTN EQU TSBFLG3 00256000 TSBIBFP EQU TSB+21 00257000 TSBNIBF EQU TSB+20 00258000 TSBITBFP EQU TSB+17 00259000 TSBSATN2 EQU TSBFLG2 00260000 TSBSATN1 EQU TSBFLG2 00261000 TSBSTAUT EQU TSBFLG2 00262000 TSBAUTOC EQU TSBFLG2 00263000 TSBAULST EQU TSBFLG2 00264000 TSBBRKIN EQU TSBFLG2 00265000 TSBAUTON EQU TSBFLG2 00266000 TSBBIPI EQU TSBFLG2 00267000 TSBOBFP EQU TSB+13 00268000 TSBNOBF EQU TSB+12 00269000 TSBOTBFP EQU TSB+9 00270000 TSBLNSZ EQU TSB+8 00271000 TSBWTCB EQU TSB+5 00272000 TSBTJBF EQU TSBFLG1 00273000 TSBTJIP EQU TSBFLG1 00274000 TSBTJOW EQU TSBFLG1 00275000 TSBIFLSH EQU TSBFLG1 00276000 TSBWOWIP EQU TSBFLG1 00277000 TSBOWIP EQU TSBFLG1 00278000 TSBOFLSH EQU TSBFLG1 00279000 TSBANSR EQU TSBFLG1 00280000 TSBASCB EQU TSBASCBA+1 00281000 TSBATNLD EQU TSBSTAT 00282000 TSB3270 EQU TSBSTAT 00283000 TSBDISC EQU TSBSTAT 00284000 TSBITOFF EQU TSBSTAT 00285000 TSBNOBUF EQU TSBSTAT 00286000 TSBLWAIT EQU TSBSTAT 00287000 TSBINUSE EQU TSBSTAT 00288000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00289000 @RC00019 EQU @RC00018 00290000 @ENDDATA EQU * 00291000 END IGG09411,(C'PLS1930',0701,78087) 00292000