* %GOTO MTPRMLBL; /* 00030064 MACRO 00060064 IEZMTPRM 00090064 SPACE 1 */ 00120064 *% MTPRMLBL: ; 00150064 */********************************************************************/ 00230064 */* */ 00290064 */* MODULE NAME = IEZMTPRM */ 00330064 */* */ 00370064 */* DESCRIPTIVE NAME = IEETRACE PARAMETER LIST */ 00410064 */* MAPPING MACRO */ 00450064 */* */ 00490064 */* STATUS = 0S/VS2, SYSTEM CONTROL PROGRAM 2 */ 00530064 */* */ 00560064 */* LAST UPDATE - 05/11/78 */ 00590064 */* */ 00650064 */* FUNCTION = MAPS THE PARAMETER LIST PASSED TO THE */ 00690064 */* MASTER TRACE SERVICE ROUTINE VIA IEETRACE */ 00730064 */* MACRO */ 00770064 */* */ 00810064 */* MODULE TYPE = MACRO */ 00850064 */* */ 00890064 */* PROCESSOR = BILINGUAL PLS 2 AND ASSEMBLER */ 00930064 */* */ 00970064 */* CHANGE ACTIVITY = G64MP2D */ 01010064 */* */ 01050064 */********************************************************************/ 01090064 * %GOTO IEZMTPRM; /* 01350064 MTPRMMAP DSECT 01400064 IEZBITS 01420064 DS 0F ALIGN IEETRACE PARMLIST 01450064 * MAPPING ON A WORD BOUNDARY 01500064 SPACE 01600064 MTPMTHDR DS 0C WILL BE USED AS THE HEADER 01610064 * FOR THE MASTER TRACE TABLE 01620064 * ENTRY 01630064 MTPFLG01 DS 0H FIRST FLAG FIELD 01640064 MTPDATFM DS B DATA FORMAT DESCRIPTOR BYTE 01680064 MTPDATHX EQU BIT0 IF ON DATA IS NOT PRINTABLE 01720064 MTPCBYTE DS B TABLE CREATE/DELETE BYTE 01760064 MTPINNEW EQU BIT0 INITIALIZE A NEW TABLE 01800064 MTPDEACT EQU BIT1 DEACTIVATE THE TABLE 01840064 SPACE 01880064 MTPCTAGS DS 0H IDENTIFIES MASTER TRACE 01920064 * CALLER 01960064 MTPTGFL1 DS B FIRST TAG BYTE 02000064 MTPTGFL2 DS B SECOND TAG BYTE 02040064 MTPRSVD EQU X'00' RESERVED 02050064 MTPCMTSK EQU X'01' COMMUNICATIONS TASK HARD COPY 02090064 MTPMASTS EQU X'02' MASTER SCHEDULER INIT. 02130064 MTPTRCMD EQU X'03' TRACE COMMAND 02170064 SPACE 02280064 MTPIMDAT DS F CALLERS IMMEDIATE DATA 02320064 SPACE 02360064 MTPDATLN DS H LENGTH OF CALLERS DATA 02400064 MTPHDRLN EQU *-MTPMTHDR LENGTH OF MASTER TRACE 02410064 * HEADER 02420064 SPACE 02440064 MTPFLG02 DS 0H SECOND FLAG FIELD 02480064 MTPSPHW1 DS H RESERVED 02520064 SPACE 02560064 MTPDATPT DS F CALLERS DATA POINTER 02600064 MTPEND EQU * END OF IEZMTPRM 02760064 MTPLNGTH EQU MTPEND-MTPRMMAP LENGTH OF IEZMTPRM 02800064 SPACE 03150064 MEND */ 03200064 * %IEZMTPRM: ; 03210064 * DECLARE 03250064 * 1 MTPRMMAP BDY(WORD) BASED, /* ALIGN IEETRACE PARMLIST 03300064 * MAPPING ON A WORD BOUNDARY */ 03340064 * 03420064 * 2 MTPMTHDR BDY(WORD), /* WILL BE USED AS THE HEADER 03460064 * FOR THE MASTER TRACE TABLE 03500064 * ENTRY */ 03540064 * 4 MTPFLG01 BIT(16), /* FIRST FLAG FIELD */ 03580064 * 6 MTPDATFM BIT(8) , /* DATA FORMAT BYTE */ 03620064 * 8 MTPDATHX BIT(1), /* DATA IS NOT PRINTABLE IF ON*/ 03660064 * 8 * BIT(1), /* RESERVED BIT */ 03700064 * 03740064 * 8 * BIT(6), /* RESERVED BITS */ 03780064 * 03820064 * 6 MTPCBYTE BIT(8), /* TABLE CREATE/DELETE */ 03860064 * 8 MTPINNEW BIT(1), /* INITIALIZE A NEW TABLE */ 03900064 * 8 MTPDEACT BIT(1), /* DEACTIVATE THE TABLE */ 03940064 * 8 * BIT(6), /* RESERVED BITS */ 03980064 * 04020064 * 4 MTPCTAGS CHAR(2), /* IDENTIFIES MASTER TRACE 04060064 * CALLER */ 04100064 * 6 MTPTGFL1 CHAR(1), /* FIRST TAG BYTE */ 04140064 * 6 MTPTGFL2 CHAR(1), /* SECOND TAG BYTE */ 04180064 * 04220064 * 4 MTPIMDAT CHAR(4), /* CALLER IMMEDIATE DATA */ 04260064 * 6 MTPIDATF BIT(32), /* SAME-ARITHMETIC */ 04300064 * 04340064 * 4 MTPDATLN FIXED(16), /* LENGTH OF CALLERS DATA */ 04380064 * 04420064 * 2 MTPFLG02 CHAR(2), /* SECOND FLAG FIELD */ 04460064 * 4 MTPSPHW1 CHAR(2), /* RESERVED */ 04500064 * 04540064 * 2 MTPDATPT PTR(32); /* CALLERS DATA POINTER */ 04580064 * 04900064 *@EJECT; 04950064 * /*******************************************************************/ 04980064 * /* */ 05010064 * /* IEZMTPRM - TAGS OF CALLERS OF MASTER TRACE FACILITY */ 05040064 * /* */ 05100064 * /*******************************************************************/ 05150064 * 05200064 * DCL 05250064 * MTPRSVD BIT(16) CONSTANT('0000'X); /* RESERVED */ 05260064 * DCL 05280064 * MTPCMTSK BIT(16) CONSTANT('0001'X); /* COMMUNICATIONS TASK */ 05300064 * DCL 05350064 * MTPMASTS BIT(16) CONSTANT('0002'X); /* MASTER SCHEDULER */ 05400064 * DCL 05450064 * MTPTRCMD BIT(16) CONSTANT('0003'X); /* TRACE COMMAND */ 05500064 * 05550064