* %GOTO ZB806LBL; /* 00020064 MACRO 00040064 IEEZB806 00060064 SPACE 1 */ 00080064 *% ZB806LBL: ; 00100064 */********************************************************************/ 00150064 */* */ 00200064 */* MODULE NAME = IEEZB806 */ 00250064 */* */ 00300064 */* DESCRIPTIVE NAME = MASTER TRACE TABLE MAPPING MACRO */ 00350064 */* */ 00400064 */* STATUS = OS/VS2, SYSTEM CONTROL PROGRAM 2 */ 00450064 */* */ 00480064 */* LAST UPDATE = 05/11/78 */ 00510064 */* */ 00600064 */* FUNCTION = MAPS THE MASTER TRACE TABLE */ 00650064 */* */ 00700064 */* OPERATION = THIS MACRO PROVIDES TWO MAPPINGS */ 00750064 */* */ 00800064 */* 1 MTTABLE - MAPS THE MASTER TRACE TABLE */ 00850064 */* */ 00900064 */* 2 MTENTRY - MAPS A MASTER TRACE TABLE ENTRY */ 00950064 */* */ 01000064 */* MODULE TYPE = MACRO */ 01050064 */* */ 01100064 */* PROCESSOR = PLS2 */ 01150064 */* CHANGE ACTIVITY = G64MP2D */ 01200064 */* */ 01250064 */********************************************************************/ 01300064 */* */ 01350064 * %GOTO IEEZB806; /* 01400064 MTTABLE DSECT 01550064 DS 0D ALIGN MASTER TRACE TABLE 01600064 * MAPPING TO A DOUBLE 01640064 * WORD BOUNDARY 01680064 MTTHDRA DS 0C HEADER AREA OF TABLE 01720064 MTTID DS CL4 MASTER TRACE TABLE IDENTIFIER 01760064 MTTCURPT DS F ADDRESS OF CURRENT ENTRY 01800064 MTTENTPT DS F ADDRESS OF STORAGE AREA FOR 01850064 * TABLE ENTRIES 01900064 MTTENDPT DS F ADDRESS OF FIRST BYTE BEYOND 01950064 * END OF THE TABLE 02000064 MTTSIZE DS 0F SUBPOOL AND LENGTH OF TABLE FOR 02050064 * FREEMAIN 02100064 MTTSP DS B SUBPOOL OF TABLE 02150064 MTTLEN DS 3B LENGTH OF TABLE 02200064 MTTWRPTM DS CL12 TIME TABLE WAS INITIALIZED OR 02250064 * LAST WRAPPED, IN FORM 02300064 * IT/WTHH:MM:SS.S PRODUCED BY 02320064 * THE USE OF THE CONTIME MACRO 02340064 MTTWRPPT DS F ADDRESS OF LAST ENTRY STORED 02400064 * BEFORE TABLE WRAP 02450064 MTTPFLAG DS F MASTER TRACE FACILITY INTERNAL 02500064 * TRACING FLAGS USED BY IEEMB808 02550064 MTTDAREA DS F DATA AREA LENGTH 02600064 MTTRSVD1 DS 4C RESERVED WORD 02700064 MTTWK808 DS 16F WORK AREA FOR IEEMB808 02705064 MTTRSVD2 DS 16C RESERVED WORDS 02710064 MTTHDRLN EQU *-MTTHDRA LENGTH OF MASTER TRACE HEADER 02720064 MTTENTA DS 0C STORAGE AREA FOR TABLE ENTRIES 02750064 SPACE 02800064 *********************************************************************** 02850064 * * 02900064 * MT ENTRY MAPS A SINGLE MASTER TRACE TABLE ENTRY * 02950064 * * 02980064 * A DETAILED DESCRIPTION OF FIELDS MTENTFLG AND MTENTTAG * 03010064 * CAN BE FOUND IN MACRO IEZMTPRM * 03100064 * * 03150064 *********************************************************************** 03200064 SPACE 03250064 MTENTRY DSECT 03300064 MTENTHDR DS 0CL10 TABLE ENTRY HEADER 03450064 MTENTFLG DS CL2 FLGS SET BY CALLER 03500064 MTENTTAG DS CL2 IDENTIFIES CALLER 03540064 MTENTIMM DS CL4 CALLERS IMMEDIATE DATA 03580064 MTENTLEN DS CL2 LENGTH OF CALLERS DATA 03620064 MTENTDAT DS 0C DATA PASSED BY CALLER 03700064 MEND */ 03750064 *% IEEZB806: ; 03760064 */* */ 03770064 *DECLARE 03800064 * 03850064 *1 MTTABLE BDY(DWORD) BASED(BAMTTBL), /* ALIGN MASTER TRACE 03900064 * TABLE MAPPING TO A 03940064 * DOUBLE WORD BOUNDARY */ 03980064 * 04020064 * 2 MTTHDRA BDY(DWORD), /* HEADER AREA OF TABLE */ 04060064 * 04150064 * 4 MTTID CHAR(4), /* MASTER TRACE TABLE IDENT. */ 04160064 * 04170064 * 4 MTTCURPT PTR(31), /* ADDR OF CURRENT ENTRY */ 04200064 * 04250064 * 4 MTTENTPT PTR(31), /* ADDR OF STORAGE AREA 04300064 * FOR TABLE ENTRIES */ 04350064 * 04400064 * 4 MTTENDPT PTR(31), /* ADDR OF FIRST BYTE 04450064 * BEYOND END OF TABLE */ 04500064 * 04550064 * 4 MTTSIZE FIXED(32), /* SUBPOOL AND LENGTH 04600064 * FOR FREEMAIN */ 04640064 * 6 MTTSP FIXED(8), /* SUBPOOL OF TABLE */ 04680064 * 6 MTTLEN FIXED(24), /* LENGTH OF TABLE */ 04720064 * 4 MTTWRPTM CHAR(12), /* TIME TABLE INITIALIZED 04800064 * OR TIME LAST WRAPPED IN 04850064 * FORM IT/WTHH:MM:SS.S, 04900064 * PRODUCED VIA THE USE OF 04920064 * THE CONTIME MACRO */ 04940064 * 05000064 * 4 MTTWRPPT PTR(31), /* ADDR OF LAST ENTRY 05050064 * STORED BEFORE TABLE WRAP */ 05100064 * 05150064 * 4 MTTPFLAG BIT(32), /* MASTER TRACE FACILITY 05200064 * PROCESSING INTERNAL 05250064 * TRACING FLAGS USED BY 05300064 * IEEMB808 AND IEEMB809 */ 05350064 * 05450064 * 4 MTTDAREA FIXED(31), /* DATA AREA LENGTH */ 05500064 * 05550064 * 4 MTTRSVD1 CHAR(4), /* RESERVED WORD TO ASSURE 05600064 * DWORD BDY FOR MTTWK808 */ 05607064 * 05614064 * 4 MTTWK808 CHAR(64), /* WORK AREA FOR IEEMB808 */ 05621064 * 05628064 * 4 MTTRSVD2 CHAR(16), /* RESERVED WORDS */ 05635064 * 05650064 * 2 MTTENTA CHAR(*); /* STORAGE AREA FOR 05700064 * TABLE ENTRIES */ 05750064 *@EJECT; 05770064 */********************************************************************/ 05800064 */* */ 05850064 */* IEEZB806- */ 05900064 */* */ 05910064 */* MTENTRY MAPS A SINGLE MASTER TRACE TABLE ENTRY */ 05920064 */* */ 05970064 */* A DETAILED DESCRIPTION OF FIELDS MTENTFLG AND MTENTTAG */ 06000064 */* CAN BE FOUND IN MACRO IEZMTPRM */ 06050064 */* */ 06100064 */********************************************************************/ 06150064 *DECLARE 06200064 * 06250064 * 1 MTENTRY BDY(BYTE) BASED(MTTCURPT),/* ALIGNS TO BYTE BNDRY */ 06300064 * 06350064 * 2 MTENTHDR CHAR(10), /* TABLE ENTRY HEADER */ 06400064 * 06450064 * 4 MTENTFLG BIT(16), /* FLAGS SET BY CALLER */ 06500064 * 06550064 * 4 MTENTTAG BIT(16), /* IDENTIFIES CALLER */ 06600064 * 06650064 * 4 MTENTIMM BIT(32), /* CALLERS IMMEDIATE DATA */ 06700064 * 06750064 * 4 MTENTLEN BIT(16), /* LENGTH OF CALLER'S DATA */ 06800064 * 06850064 * 2 MTENTDAT CHAR(*); /* DATA PASSED BY CALLER */ 06900064