* 00050000 * 00100000 * 00150000 * 00200000 * 00250000 * %GOTO TCASTL1; /* 00300000 MACRO 00350000 IKTTCAST &DSECT=YES 00400000 AIF ('&DSECT' EQ 'NO').NODSCT 00450000 TCAST DSECT 00500000 DS 0F 00550000 AGO .CONT 00600000 .NODSCT ANOP 00650000 DS 0F 00700000 TCAST EQU * 00750000 .CONT ANOP , */ 00800000 *%TCASTL1: ; 00850000 * 00900000 */* ******************************************************************/ 00950000 */* TERMINAL CONTROL ADDRESS SPACE TABLE (TCAST) (OS/VS2) */ 01000000 */* @YM03239 */ 01030000 */* */ 01100000 */* OS/VS2 SU13 6/20/75, LEVEL=0 */ 01150000 */* OS/VS2 SU58 TSO/VTAM NDS/DSE AUG 77, LEVEL=2 @G58AK3A */ 01170000 */* OS/VS2 ABEND FRR MODIFICATIONS OCT 77 @ZM20856 */ 01175000 */* VTAM SHUT DOWN MODIFICATION DEC 77 @ZM21019 */ 01177000 */* ADDING BIT TCASHAST @ZA42031 */ 01178000 */* */ 01180000 */* THE TCAST WILL CONTAIN TSO CONTROL INFORMATION, TCAS */ 01200000 */* STATUS INFORMATION, AND THE TSB ANCHOR POINTER. IT IS */ 01250000 */* OBTAINED DURING TCAS INITIALIZATION AND WILL RESIDE IN */ 01300000 */* THE COMMON AREA. */ 01350000 */* */ 01400000 */* IT IS READ ONLY. UPDATES ARE DONE BY TCAS USING */ 01450000 */* COMPARE AND SWAP. */ 01500000 */* */ 01550000 */* METHOD OF ACCESS */ 01600000 */* BAL - A DSECT IS PRODUCED FOR TCAST UNLESS DSECT=NO */ 01650000 */* IS SPECIFIED. USING ON TCAST GIVES */ 01700000 */* ADDRESSABILITY FOR ALL SYMBOLS. */ 01750000 */* PL/S- DCL TCASTPTR PTR */ 01800000 */* */ 01850000 */* F.E.'S */ 01900000 */* MICROFICHE LISTING - IKTTCAST */ 01950000 */* */ 02000000 */********************************************************************/ 02050000 *%GOTO TCASTL2 ; /* 02100000 TCASID DS CL4'TCAS' 'TCAS' EBCDIC IDENTIFIER 02150000 TCASUSER DS 0F FULLWORD CONTAINING TCASUSEC FOR 02160000 * COMPARE AND SWAP 02170000 TCASUSEC DS H NUMBER OF CURRENTLY ACTIVE USERS 02200000 TCASUMAX DS H MAXIMUM NUMBER OF USERS ALLOWED 02450000 TCASACBP DS CL8 ACB PASSWORD 02500000 TCASRCON DS H RECONNECT TIME INTERVAL IN MINUTES 02550000 TCASCLSZ DS H CELL SIZE 02600000 TCASHBUF DS F HIGH BUFFER THRESHOLD 02650000 TCASLBUF DS F LOW BUFFER THRESHOLD 02700000 TCASCRSZ DS H 3270 SCREEN SIZE 02750000 TCASCHNL DS C MAXIMUM CHAIN LENGTH IN RU'S 02800000 DS C RESERVED 02850000 TCASTID DS CL8 SYMBOLIC TERMINAL IDENTIFIER 03050000 TCASXECB DS F CROSS MEMORY SYNC ECB 03100000 TCASDATI DS F ADDR OF 3270 INPUT DATA ROUTINE 03150000 * (IKT3270I) @G58AK3A 03156000 TCASDATO DS F ADDR OF 3270 OUTPUT DATA ROUTINE 03162000 * (IKT3270O) @G58AK3A 03190000 TCASMSGS DS F POINTER TO LPALIB MESSAGE MODULE 03250000 TCASFRR DS F ADDR I/O FRR RTN (IKTIOFRR) @G58AK3A 03300000 TCASWA DS F POINTER TO TCAS WORK AREA 03350000 TCASTTL DS F POINTER TO TIM/TOM LIST 03400000 TCASTSB DS F POINTER TO FIRST TSO/VTAM TSB 03450000 TCASIQM DS F POINTER TO INPUT QUEUE MANAGER 03500000 TCASOQM DS F POINTER TO OUTPUT QUEUE MANAGER 03550000 TCASEXIT DS F ADDR 3270 EXIT RTN (IKTEXIT) @G58AK3A 03600000 TCASLTE DS F POINTER TO LOSTERM EXIT 03650000 TCASFLG1 DS C FIRST TCAS FLAG BYTE 03700000 TCASBKMD EQU X'80' TERMINAL HAS BREAK MODE @G58AK3A 03710000 TCASMDSW EQU X'40' BREAK MODE SWITCH ALLOWED @G58AK3A 03750000 TCASABND EQU X'20' TCAS ABENDED 03850000 TCASVSD EQU X'10' VTAM SHUTTING DOWN @ZM21019 03900000 TCASNACT EQU X'08' TCAS NOT ACTIVE 03950000 TCASHAST EQU X'04' HALT ISSUED, ADDRESS SPACE @ZA42031 04000000 * TERMINATED @ZA42031 04010000 * BITS 6-7 RESERVED @ZA42031 04020000 TCASFLG2 DS C SECOND TCAS FLAG BYTE 04050000 * BITS 0-7 RESERVED @G58AK3A 04200000 DS CL2 RESERVED 04250000 TCASASCB DS F POINTER TO TCAS ASCB 04300000 DS H RESERVED @G58AK3A 04350000 DS H RESERVED @G58AK3A 04380000 DS H RESERVED @G58AK3A 04410000 DS H RESERVED @G58AK3A 04440000 TCASTTQH DS F POINTER TO FIRST TERM CNTL WORK ELEM 04508000 TCASASCI DS F POINTER TO ASCII TRANSLATE TABLES 04516000 TCASATTN DS F ADDR 3270 ATTN RTN (IKTATTN) @G58AK3A 04524000 TCASBR14 DS H BR 14 INSTRUCTION FOR SRB RMPL ADDR 04532000 DS H RESERVED 04540000 TCASOMJR DS F POINTER TO OUTPUT MANAGER JR 04545000 TCASTPND DS F ADDRESS OF TPEND EXIT @ZM21019 04550000 TCASSCHD DS F PTR TO LOST TERM EXIT SCHED @ZM20856 04560000 TCASDUMP DS F PTR VTAM RETURN CODE TABLE @ZM20856 04570000 TCASTEND EQU * 04600000 * 04650000 * **************************************************************** 04700000 * 0 * * * * 04750000 * * TCASID * TCASUSEC * TCASUMAX * 04800000 * **************************************************************** 04850000 * * * 04900000 * * TCASACBP * 04950000 * **************************************************************** 05000000 * 10 * * * * 05050000 * * TCASRCON * TCASCLSZ * TCASHBUF * 05100000 * **************************************************************** 05150000 * * * * TCAS * * 05200000 * * TCASLBUF * TCASCRSZ * CHNL * RSVD * 05250000 * **************************************************************** 05300000 * 20 * * 05350000 * * TCASTID * 05400000 * **************************************************************** 05450000 * * * * 05500000 * * TCASXECB * TCASDATI * 05550000 * **************************************************************** 05600000 * 30 * * * 05650000 * * TCASDATO * TCASMSGS * 05700000 * **************************************************************** 05750000 * * * * 05800000 * * TCASFRR * TCASWA * 05850000 * **************************************************************** 05900000 * 40 * * * 05950000 * * TCASTTL * TCASTSB * 06000000 * **************************************************************** 06050000 * * * * 06100000 * * TCASIQM * TCASOQM * 06150000 * **************************************************************** 06200000 * 50 * * * 06250000 * * TCASEXIT * TCASLTE * 06300000 * **************************************************************** 06350000 * * TCAS * TCAS * * * 06400000 * * FLG1 * FLG2 * RESERVED * TCASASCB * 06450000 * **************************************************************** 06500000 * 60 * * * * * 06550000 * * RESERVED * RESERVED * RESERVED * RESERVED * 06600000 * **************************************************************** 06650000 * * * * 06657000 * * TCASTTQH * TCASASCI * 06664000 * **************************************************************** 06671000 * 70 * * * * 06678000 * * TCASATTN * TCASBR14 * RESERVED * 06685000 * **************************************************************** 06692000 * * * * 06700000 * * TCASOMJR * TCASTPND * 06730000 * **************************************************************** 06800000 * 80 * * * 06810000 * * TCASSCHD * TCASDUMP * 06820000 * **************************************************************** 06830000 * 06850000 MEND , */ 06900000 *%TCASTL2: ; 06950000 *DECLARE 07000000 * 1 TCAST BASED(TCASTPTR) BDY(WORD), 07050000 * 2 TCASID CHAR(4), /*'TCAS' EBCDIC IDENTIFIER */ 07100000 * 2 TCASUSER BDY(WORD), /*FULLWORD CONTAINING TCASUSEC FOR 07110000 * COMPARE AND SWAP */ 07120000 * 3 TCASUSEC FIXED(15), /*NUMBER OF CURRENTLY ACTIVE USERS */ 07150000 * 3 TCASUMAX FIXED(15), /*MAXIMUM NUMBER OF USERS ALLOWED */ 07400000 * 2 TCASACBP CHAR(8), /*ACB PASSWORD */ 07450000 * 2 TCASRCON FIXED(15), /*RECONNECT TIME INTERVAL IN MINUTES*/ 07490000 * 2 TCASCLSZ FIXED(15), /*CELL SIZE */ 07530000 * 2 TCASHBUF FIXED(31) BDY(BYTE),/*HIGH BUFFER THRESHOLD */ 07570000 * 2 TCASLBUF FIXED(31) BDY(BYTE),/*LOW BUFFER THRESHOLD */ 07610000 * 2 TCASCRSZ FIXED(15), /*3270 SCREEN SIZE */ 07650000 * 2 TCASCHNL FIXED(8), /*MAXIMUM CHAIN LENGTH IN RU'S */ 07690000 * 2 * CHAR(1), /*RESERVED */ 07730000 * 2 TCASTID CHAR(8), /*SYMBOLIC TERMINAL IDENTIFIER */ 08000000 * 2 TCASXECB FIXED(31), /*CROSS MEMORY SYNC ECB */ 08050000 * 2 TCASDATI PTR(31), /*ADDR 3270 INPUT DATA ROUTINE 08100000 * @G58AK3A*/ 08106000 * 2 TCASDATO PTR(31), /*ADDR 3270 OUTPUT DATA ROUTINE 08112000 * @G58AK3A*/ 08140000 * 2 TCASMSGS PTR(31), /*POINTER TO LPALIB MESSAGE MODULE */ 08200000 * 2 TCASFRR PTR(31), /*ADDR I/O FRR RTN IKTIOFRR @G58AK3A*/ 08250000 * 2 TCASWA PTR(31), /*POINTER TO TCAS WORK AREA */ 08300000 * 2 TCASTTL PTR(31), /*POINTER TO 'TIM/TOM' LIST */ 08350000 * 2 TCASTSB PTR(31), /*POINTER TO FIRST TSO/VTAM TSB */ 08400000 * 2 TCASIQM PTR(31), /*POINTER TO INPUT QUEUE MANAGER */ 08450000 * 2 TCASOQM PTR(31), /*POINTER TO OUTPUT QUEUE MANAGER */ 08500000 * 2 TCASEXIT PTR(31), /*ADDR 3270 EXIT RTN IKTEXIT@G58AK3A*/ 08550000 * 2 TCASLTE PTR(31), /*POINTER TO LOSTERM EXIT */ 08600000 * 2 TCASFLG1 , /*FIRST TCAST FLAG BYTE */ 08650000 * 3 TCASBKMD BIT(1), /*TERMINAL HAS BREAK MODE @G58AK3A*/ 08700000 * 3 TCASMDSW BIT(1), /*BREAK MODE SWITCH ALLOWED @G58AK3A*/ 08730000 * 3 TCASABND BIT(1), /*TCAS ABENDED */ 08800000 * 3 TCASVSD BIT(1), /*VTAM SHUTTING DOWN @ZM21019*/ 08850000 * 3 TCASNACT BIT(1), /*TCAS NOT ACTIVE */ 08900000 * 3 TCASHAST BIT(1), /* HALT ISSUED, ADDRESS @ZA42031*/ 08950000 * /* SPACE TERMINATED @ZA42031*/ 08960000 * 3 * BIT(2), /*RESERVED @ZA42031*/ 08970000 * 2 TCASFLG2 , /*SECOND TCAST FLAG BYTE */ 09000000 * 3 * BIT(8), /*RESERVED @G58AK3A*/ 09150000 * 2 * CHAR(2), /*RESERVED */ 09200000 * 2 TCASASCB PTR(31), /*POINTER TO TCAS ASCB */ 09250000 * 2 * FIXED(15), /*RESERVED @G58AK3A*/ 09300000 * 2 * FIXED(15), /*RESERVED @G58AK3A*/ 09330000 * 2 * FIXED(15), /*RESERVED @G58AK3A*/ 09360000 * 2 * FIXED(15), /*RESERVED @G58AK3A*/ 09390000 * 2 TCASTTQH PTR(31), /*POINTER TO FIRST TERM CNTL WORK 09456000 * ELEMENT */ 09462000 * 2 TCASASCI PTR(31), /*POINTER TO ASCII TRANSLATE TABLE */ 09468000 * 2 TCASATTN PTR(31), /*ADDR 3270 ATTN RTN IKTATTN@G58AK3A*/ 09474000 * 2 TCASBR14 FIXED(16), /*BR 14 INSTRUCTION FOR SRB RMPL 09480000 * ADDRESS */ 09486000 * 2 * FIXED(15), /*RESERVED */ 09492000 * 2 TCASOMJR PTR(31), /*POINTER TO OUTPUT MANAGER JR */ 09496000 * 2 TCASTPND PTR(31), /*ADDR OF TPEND EXIT @ZM21019*/ 09500000 * 2 TCASSCHD PTR(31), /*PTR LOST TERM EXIT SCHED @ZM20856*/ 09550000 * 2 TCASDUMP PTR(31), /*PT VTAM RETURN CODE TABLE @ZM20856*/ 09600000 * 2 TCASTEND CHAR(0); /*END OF TCAST */ 09650000