* %GOTO TPCPLS1; /* 00050002 MACRO 00100002 &NAME IEAVVTPC &DSECT=YES */ 00150002 *%TPCPLS1 : ; 00160002 * /******************************************************************/ 00170002 * /* */ 00180002 * /* MACCOMP OS/VS2,RELEASE 4 SC1CV/PZD81 */ 00190040 * /* */ 00190402 * /* MACSTAT OS/VS2,RELEASE 4 73137/Y02759 */ 00192040 * /* */ 00192402 * /******************************************************************/ 00192802 * %GOTO TPCPLS2; /* 00194002 AIF ('&DSECT' EQ 'NO').TT 00200002 TPC DSECT ,TPCPTR 00250002 AGO .EE 00300002 .TT ANOP 00350002 ENTRY IEATPC 00400002 ENTRY IEATSELM 00410002 ENTRY TPCMFTQE 00420002 .EE ANOP 00450002 IEATPC DS 0D TIMER SUPERVISION WORK AREA 00500002 TPCTPCA DC C' TPC' TPC IDENTIFICATION 00550002 TPCFLGS1 DC X'00' TPCA FLAG BYTE 1 00600002 TPCABND EQU X'80' REAL TQES ABENDED 00650002 TPCSYNC EQU X'40' SYNC CHECK OCCURRED 00660002 DC X'0000' RESERVED 00700002 TPCCC DC X'00' STCK CONDITION CODE 00750002 TPCTZORG DC F'0' IPL TIME ZONE CONSTANT 00800002 TPCHDCCQ DC A(TPCDMTQE) HEAD OF REAL TIME QUEUE 00850002 TPCDMTQE DC C' TQE' DUMMY TQE 00900002 DFD DC A(TPCDMTQE) DUMMY TQE 00950002 DC A(TPCHDCCQ-DFD+TPCDMTQE) DUMMY TQE 01000002 DC H'0' DUMMY TQE 01050002 DC X'03' DUMMY TQE 01100002 DC X'10' DUMMY TQE 01150002 DC X'FFFFFFFFFFFFFFFF' DUMMY TQE 01200002 TPCMNTQE DC C' TQE' MIDNIGHT TQE 01250002 DC F'0' MIDNIGHT TQE 01300002 DC F'0' MIDNIGHT TQE 01350002 DC H'0' MIDNIGHT TQE 01400002 DC X'83' MIDNIGHT TQE 01450002 DC X'01' MIDNIGHT TQE 01500002 MNIGHT DC 2F'0' MIDNIGHT TQE 01550002 TPCMFTQE DC C' TQE' MF/1 TQE 01600002 DC F'0' MF/1 TQE 01650002 DC F'0' MF/1 TQE 01700002 DC H'0' MF/1 TQE 01750002 DC X'83' MF/1 TQE 01800002 DC X'02' MF/1 TQE 01850002 DC 2F'0' MF/1 TQE 01900002 IEATSELM DC C' TQE' SYSTEM RESOURCES MANAGER TQE 01950002 DC F'0' SYSTEM RESOURCES MANAGER TQE 02000002 DC F'0' SYSTEM RESOURCES MANAGER TQE 02050002 DC H'0' SYSTEM RESOURCES MANAGER TQE 02100002 DC X'83' SYSTEM RESOURCES MANAGER TQE 02150002 DC X'04' SYSTEM RESOURCES MANAGER TQE 02200002 DC 2F'0' SYSTEM RESOURCES MANAGER TQE 02250002 TPCLMTQE DC C' TQE' TIME LIMIT CHECKING TQE 02300002 DC F'0' TIME LIMIT CHECKING TQE 02350002 DC F'0' TIME LIMIT CHECKING TQE 02400002 DC H'0' TIME LIMIT CHECKING TQE 02450002 DC X'83' TIME LIMIT CHECKING TQE 02500002 DC X'08' TIME LIMIT CHECKING TQE 02550002 DC 2F'0' TIME LIMIT CHECKING TQE 02600002 TPCSAVE1 DS 16F TIMER GLOBAL SAVE AREA 1 02650002 TPCSAVE2 DS 16F TIMER GLOBAL SAVE AREA 2 02700002 TPCWORK DC 2F'0' WORK AREA 02800002 TPCMISC DC 18F'0' WORK AREA 02802002 TPCVPTR DC V(IEAVRNEW) ADDR OF VARY ONLINE ROUTINE 02802102 TPCFRRP DC V(IEAVRFRR) ADDR OF TIMER FRR 02802402 TPCCRSAV DC F'0' SAVE AREA FOR CR 0 02804002 TPCTCWA DC F'0' ADDR OF TOD WORKAREA 02810002 AIF ('&DSECT' EQ 'NO').ZZZ 02820002 TPCRSRB DC 11F'0' 02822002 AGO .QQQ 02824002 .ZZZ ANOP 02826002 SRBSIZE EQU 44 SRB SIZE IN BYTES 02830002 SRB EQU 0 02840002 SRBASCB EQU 8 02842002 SRBASID EQU 14 02844002 SRBPTCB EQU 16 02846002 TPCRSRB DC (SRBSIZE/4)F'0' TIMER HW RECOVERY SRB 02850002 ORG TPCRSRB+(SRBASCB-SRB) 02860002 DC A(IEAMASCB) PTR TO MASTER ASCB 02870002 ORG TPCRSRB+(SRBASID-SRB) 02880002 DC H'1' ASID OF MASTER 02890002 ORG TPCRSRB+(SRBPTCB-SRB) 02892002 DC A(IEAMSTCB) ADDR OF MASTER TCB 02894002 ORG TPCRSRB+SRBSIZE 02896002 .QQQ ANOP 02898002 TPCCKQ DC V(IEAVRCKQ) ADDRESS OF IEAVRCKQ 02900002 TPCCLA DC AL4(0) ADDRESS OF IEAVRCLA 02950002 TPCSDIE DC V(IEAVRDIE) ADDRESS OF SETDIE @Z40FPYB 02960040 TPCOCL DC V(IEAVROCL) ADDRESS OF IEAVROCL @Z40FPYB 02970040 MEND , */ 03000002 *%TPCPLS2 : ; 03050002 *%IF DSECT^='NO' %THEN 03100002 * %GOTO VVTPCL01; 03150002 *%ELSE 03200002 * %GOTO TT; 03250002 *%VVTPCL01 : ; 03300002 *DECLARE 03350002 * 1 TPC BASED(TPCPTR) BDY(DWORD), 03400002 *%GOTO EE ; 03450002 *%TT : ; 03500002 *DECLARE 1 TPC STATIC LOCAL, 03550002 *%EE : ; 03600002 * 2 IEATPC, /* TIMER SUPERVISION WORKAREA */ 03650002 * 3 TPCTPCA CHAR(4) BDY(DWORD) 03700002 * INITIAL(' TPC'), /* TPC IDENTIFICATION */ 03750002 * 3 TPCFLGS1 CHAR(1)INITIAL('00'X), /* TPCA FLAG BYTE 1 */ 03800002 * 5 TPCABND BIT(1), /* REAL TQES ABENDED */ 03850002 5 TPCSYNC BIT(1), /* SYNC CHECK OCCURRED */ 03860002 * 5 * BIT(6), /* RESERVED */ 03900002 * 3 * CHAR(2) INITIAL('0000'X), /* RESERVED */ 03950002 * 3 TPCCC CHAR(1) INITIAL('00'X), /* STCK CONDITION CODE */ 04000002 * 3 TPCTZORG FIXED(31) INITIAL(0), /* IPL TIME ZONE CONSTANT */ 04050002 * 3 TPCHDCCQ POINTER(31) 04100002 * INITIAL(ADDR(TPCDMTQE)), /* HEAD OF REAL TIME QUEUE */ 04150002 * 3 TPCDMTQE, /* DUMMY TQE */ 04200002 * 5 * CHAR(4) INITIAL(' TQE'), /* DUMMY TQE */ 04250002 * 5 DFD POINTER(31) /* DUMMY TQE */ 04300002 * INITIAL(ADDR(TPCDMTQE)), /* DUMMY TQE */ 04350002 * 5 * POINTER(31) INITIAL /* DUMMY TQE */ 04400002 * (ADDR(TPCHDCCQ)-ADDR(DFD)+ADDR(TPCDMTQE)), /* DUMMY TQE */ 04450002 * 5 * FIXED(16) UNSIGNED /* DUMMY TQE */ 04500002 * INITIAL(0), /* DUMMY TQE */ 04550002 * 5 * CHAR(1) INITIAL('03'X), /* DUMMY TQE */ 04600002 * 5 * CHAR(1) INITIAL('10'X), /* DUMMY TQE */ 04650002 * 5 * BIT(64) INITIAL('FFFFFFFFFFFFFFFF'X), /* DUMMY TQE */ 04700002 * 3 TPCMNTQE, /* MIDNIGHT TQE */ 04750002 * 5 * CHAR(4) INITIAL(' TQE'), /* MIDNIGHT TQE */ 04800002 * 5 * POINTER(31) INITIAL(0), /* MIDNIGHT TQE */ 04850002 * 5 * POINTER(31) INITIAL(0), /* MIDNIGHT TQE */ 04900002 * 5 * FIXED(16) UNSIGNED /* MIDNIGHT TQE */ 04950002 * INITIAL(0), /* MIDNIGHT TQE */ 05000002 * 5 * CHAR(1) INITIAL('83'X), /* MIDNIGHT TQE */ 05050002 * 5 * CHAR(1) INITIAL('01'X), /* MIDNIGHT TQE */ 05100002 * 5 MNIGHT BIT(64) BDY(DWORD) /* MIDNIGHT TQE */ 05150002 * INIT('0000000000000000'), 05152002 * 7 MNIGHTLH FIXED(32) UNSIGNED, 05160002 * 7 MNIGHTRH FIXED(32) UNSIGNED, 05170002 * 3 TPCMFTQE, /* MF/1 TQE */ 05200002 * 5 * CHAR(4) INITIAL(' TQE'), /* MF/1 TQE */ 05250002 * 5 * POINTER(31) INITIAL(0), /* MF/1 TQE */ 05300002 * 5 * POINTER(31) INITIAL(0), /* MF/1 TQE */ 05350002 * 5 * FIXED(16) UNSIGNED /* MF/1 TQE */ 05400002 * INITIAL(0), /* MF/1 TQE */ 05450002 * 5 * CHAR(1) INITIAL('83'X), /* MF/1 TQE */ 05500002 * 5 * CHAR(1) INITIAL('02'X), /* MF/1 TQE */ 05550002 * 5 * BIT(64), /* MF/1 TQE */ 05600002 * 3 IEATSELM, /* SYS RESOURCES MGR TQE */ 05650002 * 5 * CHAR(4) INITIAL(' TQE'), /* SYS RESOURCES MGR TQE */ 05700002 * 5 * POINTER(31) INITIAL(0), /* SYS RESOURCES MGR TQE */ 05750002 * 5 * POINTER(31) INITIAL(0), /* SYS RESOURCES MGR TQE */ 05800002 * 5 * FIXED(16) UNSIGNED /* SYS RESOURCES MGR TQE */ 05850002 * INITIAL (0), /* SYS RESOURCES MGR TQE */ 05900002 * 5 * CHAR(1) INITIAL('83'X), /* SYS RESOURCES MGR TQE */ 05950002 * 5 * CHAR(1) INITIAL('04'X), /* SYS RESOURCES MGR TQE */ 06000002 * 5 * BIT(64), /* SYS RESOURCES MGR TQE */ 06050002 * 3 TPCLMTQE, /* TIME LIMIT CKING TQE */ 06100002 * 5 * CHAR(4) INITIAL(' TQE'), /* TIME LIMIT CKING TQE */ 06150002 * 5 * POINTER(31) INITIAL(0), /* TIME LIMIT CKING TQE */ 06200002 * 5 * POINTER(31) INITIAL(0), /* TIME LIMIT CKING TQE */ 06250002 * 5 * FIXED(16) UNSIGNED /* TIME LIMIT CKING TQE */ 06300002 * INITIAL(0), /* TIME LIMIT CKING TQE */ 06350002 * 5 * CHAR(1) INITIAL('83'X), /* TIME LIMIT CKING TQE */ 06400002 * 5 * CHAR(1) INITIAL('08'X), /* TIME LIMIT CKING TQE */ 06450002 * 5 * BIT(64), /* TIME LIMIT CKING TQE */ 06500002 * 3 TPCSAVE1 (16) FIXED(31), /* TIMER GLBL SAVEAREA 1 */ 06550002 * 3 TPCSAVE2 (16) FIXED(31), /* TIMER GLBL SAVEAREA 2 */ 06600002 * 3 TPCWORK BIT(64) BDY(DWORD), /* WORKAREA */ 06750002 * 5 TPCWORKL FIXED(32) UNSIGNED, 06760002 * 5 TPCWORKR FIXED(32) UNSIGNED, 06770002 * 3 TPCMISC(18) POINTER(31), /* WORK AREA */ 06772002 * 3 TPCVPTR POINTER(31), /* PTR TO VARY ONLINE ROUTINE*/ 06772402 * 3 TPCFRRP POINTER(31), /* PTR TO TIMER FRR */ 06774002 * 3 TPCCRSAV FIXED(32) UNSIGNED 06780002 * INITIAL(0), /* SAVE AREA FOR CR0 */ 06790002 * 3 TPCTCWA POINTER(31) INITIAL(0), /* ADDR OF TOD WORKAREA */ 06800002 * 3 TPCRSRB (11) FIXED(31) INITIAL(0), /* TIMER HW RECVY SRB */ 06850002 * 3 TPCCKQ POINTER(31), /* ADDR OF IEAVRCK */ 06900002 * 3 TPCCLA POINTER(31) INITIAL(0), /* ADDR OF IEAVRCLA */ 06950040 * 3 TPCSDIE POINTER(31), /* ADDR OF SETDIE ROUTINE @Z40FPYB*/ 07000040 * 3 TPCOCL POINTER(31); /* ADDR OF OCL ROUTINE @Z40FPYB*/ 07050040