* 00200010 * %GOTO TCXL1; /* 00600010 MACRO 00800010 TTCXD 01000010 IEDQTCX DSECT 01100010 SPACE 1 */ 01200010 *%TCXL1 : ; 01400010 * 01800010 */********************************************************************/ 02200010 */* */ 02600010 */* TCAM'S COMMUNICATION VECTOR TABLE EXTENSION */ 03000010 */* */ 03400010 */* OS/VS2 , TCAM LEVEL 9, 9/22/75 @Z40X9NG*/ 03800010 */* */ 04200010 */* METHOD OF ACCESS */ 04600010 */* BAL - USING ON TCX GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 05000010 */* */ 05400010 */* PL/S - DCL TCXPTR PTR */ 05800010 */* */ 06200010 */*C040000,152000,340000,470000 @ZA00227*/ 06300010 */*C568000,768000,902400 @ZA00227*/ 06400010 */*A154000,264200-264800,470200-471800 @ZA00227*/ 06600010 */*A570000,701200-701800,902500-903000 @ZA00227*/ 06660010 */*C255000,462000,687000,890000 @ZA02601*/ 06740010 */*A472000,903200 @Z40X9NG*/ 06748010 */*C040000,265000,471800,702000,903000 @Z40X9NG*/ 06756010 */*A151500,567500 @ZA07083*/ 06764010 */*C240000,265800,703600,903500 @G36XRXG*/ 06772010 */*A903650,903700,475400,475600,703650-703700,265850-265870 @G36XRXG*/ 06780010 */*A903710,903720,475700,475800,265880,265890 @G36XRXG*/ 06788010 */* ******************************************************************/ 06800010 *%GOTO TCXL2; /* 07000010 SPACE 1 07400010 TCXAVT DS A ADDRESS OF TCAM'S AVT 07800010 TCXATTLN DS 0X LENGTH OF ATTENTION HANDLER 09800010 TCXATTEN DS A ADDRESS OF TCAM'S ATTENTION RTN 10000010 TCXTCB DS A ADDRESS OF TCAM'S TCB 10200010 TCXDISP DS A ADDRESS OF TCAM'S DISPATCHER 10600010 TCXPASWD DS CL8' ' CONTAINS THE PASSWORD IF 11000010 * SPECIFIED ON INTRO (INITIALIZED 11400010 * BY LINE GROUP OPEN). 11800010 TCXREADY DS A ASYNCHRONOUS READY QUEUE 12200010 TCXASCB DS A ADDRESS OF TCAM'S ADDRESS SPACE 12600010 * CONTROL BLOCK 13000010 TCXASID DS AL2 TCAM'S ADDRESS SPACE ID 13400010 TCXFLAG1 DS AL1 FIRST FLAG BYTE 13800010 * TCXFLAG1 BIT DEFINITIONS 14200010 TCXAUTH EQU X'80' APPL PGMS REQUIRE AUTHORIZATION 14600010 TCXMCPCD EQU X'40' TCAM MCP IS TERMINATING 14800010 TCXRTM EQU X'20' TCAM'S RTM HAS BEEN CALLED 15000010 TCXAPPL EQU X'10' TCAM'S RTM IS WAITING FOR 15040010 * APPLICATION PROGRAMS TO 15080010 * TERMINATE 15120010 TCXAPDMP EQU X'04' APPL DUMP REQUESTED @ZA07083 15160010 TCXCC3TS DS AL1 TEST AND SET LOCK FOR @ZA00227 15200010 * CONDITION CODE 3 @ZA00227 15400010 TCXRPT DS A ADDRESS OF TIOC REFERENCE 15600010 * POINTER TABLE 15800010 TCXTSI DS A ADDRESS OF TSINPUT QCB 16200010 TCXGETQ DS A ADDRESS OF QCB FOR GET/READ MCP 16600010 * ROUTINE 17000010 TCXPUTQ DS A ADDRESS OF QCB FOR PUT/WRITE 17400010 * MCP ROUTINE 17800010 TCXPNTQ DS A ADDRESS OF QCB FOR POINT MCP 18200010 * ROUTINE 18600010 TCXOCQ DS A ADDRESS OF QCB FOR OPEN/CLOSE 19000010 * MCP ROUTINE 19400010 TCXQRQ DS A ADDRESS OF QCB FOR QRESET 19800010 * MCP ROUTINE. 20200010 TCXPEWAC DS A ADDRESS OF FIRST PEWA IN CHAIN 20600010 TCXPEBC DS A ADDRESS OF FIRST PEB IN CHAIN 21000010 TCXAIBC DS A ADDRESS OF FIRST AIB IN CHAIN 21400010 TCXSZAIB DS AL2 SIZE OF AIB 21800010 TCXNCKPR DS AL1 NUMBER OF A.P. QUEUES FOR CKREQ 22200010 TCXCKPM DS AL1 CHECK POINT IN MCP 22600010 TCXTOTE DS 0XL1 NUMBER OF TOTE ENTRIES - SET 22800010 * BY IGG01932 23000010 TCXBUFA DS A ADDRESS OF FIXED CORE FOR 23200010 * TRACE,BUFFERS, AND CPBS. 23400010 DS A LNGTH OF FIXED CORE FOR@G36XRXG 23800010 * TRACE, BUFFERS, AND CPBS. 24200010 TCXAVAIL DS A ADDRESS OF CORE AVAILABLE FOR 24600010 * LCB(S)/SCB(S). 25000010 TCXCOMPT DS A ADDRESS OF CSCB FOR MCP 25200010 TCXBIT1 DS X AVTBIT1 25400010 TCXSCBSZ DS X STATION CONTROL BLOCK @ZA02601 25430010 * SIZE FOR RTM @ZA02601 25470010 TCXBITS DS 2X RESERVED @ZA02601 25520010 TCXPLCB DS A ADDRESS OF TABLE OF 3705 PLCB 25530010 * ADDRESSES 25550010 TCXDSAVE DS 2A ADDRESS OF DISABLED SAVE AREA 25600010 * USED BY THE PCI APPENDAGE 25800010 TCXSATTN DS A SAVE AREA FOR ATTENTION TABLE 26200010 * ROUTINE ADDRESS MODIFIED BY 26300010 * TCAM OPEN 26400010 TCXERPSV DS 3F ERP REGISTER SAVE AREA @ZA00227 26410010 TCXERPPM DS F PARM AREA FOR IECVIOPM @ZA00227 26420010 TCXESAVE DS 18F SAVE AREA FOR LINKAGE @ZA00227 26430010 * TO IECVIOPM FROM ERP @ZA00227 26440010 TCXSIOSB DS A CHAIN OF SRB/IOSB'S @Z40X9NG 26450010 * FOR DISK QUEUES @Z40X9NG 26460010 TCXSRBS DS A POINTER TO FIRST BLOCK @Z40X9NG 26470010 * OF SRB'S FOR POST @Z40X9NG 26480010 TCXABEPL DS F ABEND PARM LIST @G36XRXG 26490010 TCXACTE8 DS 0AL1 ACTION CODE FOR IEDQE8 @G36XRXG 26500010 TCXQE8 DS A KEY 0 CODE ADDRESS FOR @G36XRXG 26510010 * IEDQE8 @G36XRXG 26520010 TCXNCPIO DS A PTR TO CHAIN OF ALL @G36XRXG 26530010 * 3705 SRB/IOSB PAIRS @G36XRXG 26540010 TCXEND EQU * END OF TCX 26600010 TCXSIZE EQU TCXEND-IEDQTCX SIZE OF TCX 26800010 * 27000010 *********************************************************************** 27400010 * 0 * TCXAVT * 27800010 *********************************************************************** 28200010 * 4 * TCXATTEN * 28600010 *********************************************************************** 29000010 * 8 * TCXTCB * 29400010 *********************************************************************** 29800010 * 12 * TCXDISP * 30200010 *********************************************************************** 30600010 * 16 * TCXPASWD * 31000010 * * * 31400010 *********************************************************************** 31800010 * 24 * TCXREADY * 32200010 *********************************************************************** 32600010 * 28 * TCXASCB * 33000010 *********************************************************************** 33400010 * 32 * TCXASID * TCXFLAG1 * TCXCC3TS * 33800010 *********************************************************************** 34200010 * 36 * TCXRPT * 34800010 *********************************************************************** 35000010 * 40 * TCXTSI * 35400010 *********************************************************************** 35800010 * 44 * TCXGETQ * 36200010 *********************************************************************** 36600010 * 48 * TCXPUTQ * 37000010 *********************************************************************** 37400010 * 52 * TCXPNTQ * 37800010 *********************************************************************** 38200010 * 56 * TCXOCQ * 38600010 *********************************************************************** 39000010 * 60 * TCXQRQ * 39400010 *********************************************************************** 39800010 * 64 * TCXPEWAC * 40200010 *********************************************************************** 40600010 * 68 * TCXPEBC * 41000010 *********************************************************************** 41600010 * 72 * TCXAIBC * 42000010 *********************************************************************** 42200010 * 76 * TCXSZAIB * TCXNCKPR * TCXKPM * 42600010 *********************************************************************** 42900010 * 80 * TCXBUFA * 43400010 *********************************************************************** 43800010 * 84 * TCXBUFL * 44200010 *********************************************************************** 44600010 * 88 * TCXAVAIL * 45000010 *********************************************************************** 45400010 * 92 * TCXCOMPT * 45800010 *********************************************************************** 46000010 * 96 * TCXBIT1 * TCXSCBSZ * RESERVED @ZA02601 46200010 *********************************************************************** 46250010 * 100 * TCXPLCB * 46300010 *********************************************************************** 46350010 * 104 * TCXDSAVE * 46400010 * * * 46600010 *********************************************************************** 46700010 * 112 * TCXSATTN * 46800010 *********************************************************************** 46900010 * 116 * TCXERPSV * 47000010 * * * 47020010 *********************************************************************** 47040010 * 128 * TCXERPPM * 47060010 *********************************************************************** 47080010 * 132 * TCXESAVE * 47100010 * * * 47120010 * * * 47140010 *********************************************************************** 47160010 * 204 * TCXSIOSB * 47180010 *********************************************************************** 47200010 * 208 * TCXSRBS * 47260010 *********************************************************************** 47320010 * 212 * TCXABEPL * 47400010 *********************************************************************** 47460010 * 216 * TCXQE8 * 47500010 *********************************************************************** 47550010 * 220 * TCXCNPIO * 47560010 *********************************************************************** 47570010 MEND 47600010 * 47800010 * */ 48200010 *%TCXL2 : ; 48600010 * 49000010 * DCL 1 IEDQTCXD BASED(TCXPTR) BDY(DWORD), 49400010 * 2 TCXAVT FIXED(31), /* ADDRESS OF TCAM'S AVT */ 49800010 * 2 TCXATTEN FIXED(31), /* ADDRESS OF TCAM'S ATTENTION*/ 50200010 * /* ROUTINE */ 50600010 * 3 TCXATTLN PTR(8), /* LENGTH OF ATTN HANDLER */ 51000010 * 2 TCXTCB FIXED(31), /* ADDDRESS OF TCAM'S TCB */ 51200010 * 2 TCXDISP FIXED(31), /* ADDRESS OF TCAM'S */ 51400010 * /* DISPATCHER */ 51800010 * 2 TCXPASWD CHAR(8), /* CONTAINS THE PASSWORD IF */ 52200010 * /* SPECIFIED ON INTRO */ 52600010 * /* (INITIALIZED BY LINE GROUP */ 53000010 * /* OPEN). */ 53400010 * 2 TCXREADY FIXED(31), /* ASYNCHRONOUS READY QUEUE */ 53800010 * 2 TCXASCB FIXED(31), /* ADDRESS OF TCAM'S ADDRESS */ 54200010 * /* SPACE CONTROL BLOCK */ 54600010 * 2 TCXASID FIXED(15), /* TCAM'S ADDRESS SPACE ID */ 55000010 * 2 TCXFLAG1 PTR(8), /* FIRST FLAG BYTE */ 55400010 * 3 TCXAUTH BIT(1), /* APPLICATION PROGRAMS */ 55800010 * /* REQUIRE AUTHORIZATION */ 56200010 * 3 TCXMCPCD BIT(1), /* TCAM MCP IS TERMINATING */ 56400010 * 3 TCXRTM BIT(1), /* TCAM'S RTM HAS BEEN CALLED */ 56600010 * 3 TCXAPPL BIT(1), /* TCAM'S RTM IS WAITING */ 56640010 * /* FOR APPLICATION PROGRAMS */ 56680010 * /* TO TERMINATE */ 56720010 * 3 TCXAPDMP BIT(1), /* APPL DUMP REQUESTED@ZA07083*/ 56760010 * 2 TCXCC3TS PTR(8), /* TEST AND SET LOCK FOR 56800010 * CONDITION CODE 3 @ZA00227*/ 57000010 * 2 TCXRPT FIXED(31), /* ADDRESS OF TIOC REFERENCE */ 57200010 * /* POINTER TABLE */ 57400010 * 2 TCXTSI FIXED(31), /* ADDRESS OF TSINPUT QCB */ 57800010 * 2 TCXGETQ FIXED(31), /* ADDRESS OF QCB FOR GET/READ*/ 58200010 * /* MCP ROUTINE */ 58600010 * 2 TCXPUTQ FIXED(31), /* ADDRESS OF QCB FOR PUT/ */ 59000010 * /* WRITE MCP ROUTINE */ 59400010 * 2 TCXPNTQ FIXED(31), /* ADDRESS OF QCB FOR POINT */ 59800010 * /* MCP ROUTINE */ 60200010 * 2 TCXOCQ FIXED(31), /* ADDRESS OF QCB FOR OPEN/ */ 60600010 * /* CLOSE MCP ROUTINE */ 61000010 * 2 TCXQRQ FIXED(31), /* ADDRESS OF QCB FOR QRESET */ 61400010 * /* MCP ROUTINE */ 61800010 * 2 TCXPEWAC FIXED(31), /* ADDRESS OF FIRST PEWA IN */ 62200010 * /* CHAIN */ 62600010 * 2 TCXPEBC FIXED(31), /* ADDRESS OF FIRST PEB IN */ 63000010 * /* CHAIN */ 63400010 * 2 TCXAIBC FIXED(31), /* ADDRESS OF FIRST AIB IN */ 63800010 * /* CHAIN */ 64200010 * 2 TCXSZAIB FIXED(15), /* SIZE OF AIB */ 64600010 * 2 TCXNCKPR PTR(8), /* NUMBER OF A.P. QUEUES FOR */ 65000010 * /* CHECK REQUESTS */ 65400010 * 2 TCXCKPM PTR(8), /* CHECK POINT IN MCP */ 65800010 * 2 TCXBUFA FIXED(31), /* ADDRESS OF FIXED CORE FOR */ 66200010 * /* TRACE, BUFFERS, CPBS. */ 66600010 * 3 TCXTOTE PTR(8), /* NUMBER OF TOTE ENTRIES - */ 66800010 * /* SET BY IGG01932 */ 67000010 * 2 TCXBUFL FIXED(31), /* LENGTH OF FIXED CORE FOR */ 67200010 * /* TRACE, BUFFERS, CPBS. */ 67400010 * 2 TCXAVAIL FIXED(31), /* ADDRESS OF CORE AVAILABLE */ 67800010 * /* FOR LCB(S)/SCB(S). */ 68200010 * 2 TCXCOMPT FIXED(31), /* ADDRESS OF CSCB FOR MCP */ 68400010 * 2 TCXBIT1 PTR(8), /* AVTBIT1 */ 68600010 * 2 TCXSCBSZ PTR(8), /* SCB SIZE @ZA02601*/ 68640010 * 2 TCXBITS PTR(16), /* RESERVED @ZA02601*/ 68680010 * 2 TCXPLCB FIXED(31), /* ADDRESS OF TABLE OF 3705 */ 68720010 * /* PLCB ADDRESSES */ 68760010 * 2 TCXDSAVE, /* ADDRESS OF DISABLED SAVE */ 68800010 * 3 * FIXED(31), /* AREA USED BY THE PCI */ 69000010 * 3 * FIXED(31), /* APPENDAGE */ 69400010 * 2 TCXSATTN FIXED(31), /* SAVE AREA FOR ATTENTION */ 69700010 * /* TABLE ROUTINE ADDRESS */ 70000010 * /* MODIFIED BY TCAM OPEM */ 70030010 * 2 TCXERPSV (3) FIXED(31), /* ERP SAVE AREA @ZA00227*/ 70060010 * 2 TCXERPPM FIXED(31), /* IECVIOPM PARM AREA@ZA00227*/ 70090010 * 2 TCXESAVE (18) FIXED(31), /* SAVE AREA FOR LINKAGE 70120010 * TO IECVIOPM FROM ERP @ZA00227*/ 70150010 * 2 TCXSIOSB PTR(31), /* CHAIN OF SRB/IOSB'S FOR 70200010 * DISK QUEUES @Z40X9NG*/ 70210010 * 2 TCXSRBS PTR(31), /* POINTER TO FIRST BLOCK OF 70220010 * SRB'S FOR POST @Z40X9NG*/ 70230010 * 2 TCXABEPL FIXED(31), /* ABEND PARM LIST @G36XRXG*/ 70240010 * 2 TCXQE8 PTR(31), /* KEY 0 CODE ADDRESS FOR 70250010 * IEDQE8 @G36XRXG*/ 70260010 * 3 TCXACTE8 PTR(8), /* ACTION CODE FOR IEDQE8 70270010 * @G36XRXG*/ 70280010 * 2 TCXNCPIO PTR(31), /* PTR TO CHAIN OF ALL 3705 70290010 * SRB/IOSB PAIRS @G36XRXG*/ 70300010 * /*******************************************************************/ 70400010 * /* 0 * TCXAVT */ 70600010 * /*******************************************************************/ 71000010 * /* 4 * TCXATTEN */ 71400010 * /*******************************************************************/ 71800010 * /* 8 * TCXTCB */ 72200010 * /*******************************************************************/ 72600010 * /* 12 * TCXDISP */ 73000010 * /*******************************************************************/ 73400010 * /* 16 * TCXPASWD */ 73800010 * /* * */ 74200010 * /*******************************************************************/ 74600010 * /* 24 * TCXREADY */ 75000010 * /*******************************************************************/ 75400010 * /* 28 * TCXASCB */ 75800010 * /*******************************************************************/ 76200010 * /* 32 * TCXASID * TCXFLAG1 * TCXCC3TS */ 76600010 * /*******************************************************************/ 77000010 * /* 36 * TCXRPT */ 77400010 * /*******************************************************************/ 77800010 * /* 40 * TCXTSI */ 78200010 * /*******************************************************************/ 78600010 * /* 44 * TCXGETQ */ 79000010 * /*******************************************************************/ 79400010 * /* 48 * TCXPUTQ */ 79800010 * /*******************************************************************/ 80200010 * /* 52 * TCXPNTQ */ 80600010 * /*******************************************************************/ 81000010 * /* 56 * TCXOCQ */ 81400010 * /*******************************************************************/ 81800010 * /* 60 * TCXQRQ */ 82200010 * /*******************************************************************/ 82600010 * /* 64 * TCXPEWAC */ 83000010 * /*******************************************************************/ 83400010 * /* 68 * TCXPEBC */ 83800010 * /*******************************************************************/ 84200010 * /* 72 * TCXAIBC */ 84600010 * /*******************************************************************/ 85000010 * /* 76 * TCXSZAIB * TCXNCKPR * TCXKPM */ 85400010 * /*******************************************************************/ 85800010 * /* 80 * TCXBUFA */ 86200010 * /*******************************************************************/ 86600010 * /* 84 * TCXBUFL */ 87000010 * /*******************************************************************/ 87500010 * /* 88 * TCXAVAIL */ 88000010 * /*******************************************************************/ 88200010 * /* 92 * TCXCOMPT */ 88600010 * /*******************************************************************/ 88800010 * /* 96 * TCXBIT1 * TCXSCBSZ * RESERVED @ZA02601*/ 89000010 * /*******************************************************************/ 89040010 * /*100 * TCXPLCB */ 89120010 * /*******************************************************************/ 89160010 * /*104 * TCXDSAVE */ 89180010 * /* * */ 89210010 * /*******************************************************************/ 89600010 * /*112 * TCXSATTN */ 89800010 * /*******************************************************************/ 90000010 * /*116 * TCXERPSV */ 90200010 * /*******************************************************************/ 90250010 * /*128 * TCXERPPM */ 90260010 * /*******************************************************************/ 90270010 * /*132 * TCXESAVE */ 90280010 * /*******************************************************************/ 90290010 * /*204 * TCXSIOSB */ 90300010 * /*******************************************************************/ 90310010 * /*208 * TCXSRBS */ 90330010 * /*******************************************************************/ 90340010 * /*212 * TCXABEPL */ 90350010 * /*******************************************************************/ 90360010 * /*216 * TCXQE8 */ 90365010 * /*******************************************************************/ 90370010 * /*220 * TCXNCPIO */ 90373010 * /*******************************************************************/ 90376010 * 2 TCXEND CHAR(0); /* END OF TCX */ 90380010