*%IRBSTGST: /* GLOBAL SUPERVISOR TABLE */ 00010000 * MACRO 00020000 * KEYS( 00030000 * ATTRIBUT /* ATTRIBUTES OF THE STRUCTURE 00040000 * PRODUCED BY THIS MACRO. (THE 00050000 * BOUNDARY ATTRIBUTE IS APPENDED 00060000 * TO IT.) */ 00070000 * ); 00080000 * /* BILINGUAL (MAPPING) MACRO 00090000 MACRO 00100000 &STGSLBL IRBSTGST 00110000 * 00120000 */**** START OF SPECIFICATIONS ***************************************/ 00130000 */* */ 00140000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 00150000 */* MACSTAT Y-2 73121/Y02150 */ 00160000 */* MACMEAN STGST MEANS GLOBAL SUPERVISOR TABLE */ 00170000 */* */ 00180000 */* MODULE-NAME = IRBSTGST */ 00190000 */* */ 00200000 */* DESCRIPTIVE-NAME = GLOBAL SUPERVISOR TABLE */ 00210000 */* */ 00220000 */* COPYRIGHT = NONE */ 00230000 */* */ 00240000 */* STATUS = RELEASE 2, VERSION 0 */ 00250000 */* */ 00260000 */* FUNCTION = MAPPING MACRO FOR THE STGST. IT CONTAINS MF/1 DATA */ 00270000 */* WHICH MUST BE FIXED OR BE ACCESSIBLE FROM ANY ADDRESS */ 00280000 */* SPACE. */ 00290000 */* */ 00300000 */* NOTES = SEE BELOW */ 00310000 */* */ 00320000 */* MODULE-TYPE = BILINGUAL MAPPING MACRO */ 00330000 */* */ 00340000 */* CHANGE-ACTIVITY = */ 00350000 */* */ 00360000 */* A000000-999999 Y02150*/ 00370000 */* */ 00380000 */* METHOD-OF-INVOCATION = SEE BELOW */ 00390000 */* */ 00400000 */* PLS - .QUESTION MARK.IRBSTGST ATTRIBUT(ATTRIBUTES) */ 00410000 */* WHERE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 00420000 */* FOR STRUCTURE DECLARATIONS. */ 00430000 */* */ 00440000 */* BAL - LABEL IRBSTGST */ 00450000 */* WHERE THE OPTIONAL LABEL PROVIDES A DSECT BY THE SAME */ 00460000 */* NAME. */ 00470000 */* */ 00480000 */**** END OF SPECIFICATIONS *****************************************/ 00490000 */* 00500000 &STGSLBL DSECT , START OF GLOBAL SUPERVISOR TABLE 00510000 DS 0F FULLWORD BOUNDARY 00520000 STGSNAME DS CL4'STGS' TABLE NAME FOR DUMP IDENTIFICATION 00530000 STGSSCT DS A ADDRESS OF SCT 00540000 STGSTCB DS A ADDRESS OF MF/1 MAINLINE TCB 00550000 STGSASID DS AL2 MF/1 ASID 00560000 STGSRES1 DS AL2 RESERVED 00570000 STGSMMV DS A ADDRESS OF MFROUTER VECTOR TABLE 00580000 STGSCYC DS 2F SAMPLING CYCLE INTERVAL, BIT 51 00590000 * IS ONE MICROSECOND 00600000 MEXIT 00610000 MEND 00620000 **/ 00630000 * DCL KEY CHAR; /* KEY WORD PRINTED IN COMMENT */ 00640000 ANS( '00650000 */**** START OF SPECIFICATIONS ***************************************/ 00660000 */* */ 00670000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 00680000 */* MACSTAT Y-2 73121/Y02150 */ 00690000 */* MACMEAN STGST MEANS GLOBAL SUPERVISOR TABLE */ 00700000 */* */ 00710000 */* MODULE-NAME = IRBSTGST */ 00720000 */* */ 00730000 */* DESCRIPTIVE-NAME = GLOBAL SUPERVISOR TABLE */ 00740000 */* */ 00750000 ' ) COL(2); 00760000 ANS( '00770000 */* COPYRIGHT = NONE */ 00780000 */* */ 00790000 */* STATUS = RELEASE 2, VERSION 0 */ 00800000 */* */ 00810000 */* FUNCTION = MAPPING MACRO FOR THE STGST. IT CONTAINS MF/1 DATA */ 00820000 */* WHICH MUST BE FIXED OR BE ACCESSIBLE FROM ANY ADDRESS */ 00830000 */* SPACE. */ 00840000 */* */ 00850000 */* NOTES = SEE BELOW */ 00860000 */* */ 00870000 */* MODULE-TYPE = BILINGUAL MAPPING MACRO */ 00880000 ' ) COL(2); 00890000 ANS( '00900000 */* */ 00910000 */* CHANGE-ACTIVITY = */ 00920000 */* */ 00930000 */* A000000-999999 Y02150*/ 00940000 */* */ 00950000 ' ) COL(2); 00960000 ANS( '00970000 */* METHOD-OF-INVOCATION = SEE BELOW */ 00980000 */* */ 00990000 */* PLS - .QUESTION MARK.IRBSTGST ATTRIBUT(ATTRIBUTES) */ 01000000 */* WHERE ATTRIBUTES ARE ANY ACCEPTABLE PLS ATTRIBUTES */ 01010000 */* FOR STRUCTURE DECLARATIONS. */ 01020000 */* */ 01030000 */* BAL - LABEL IRBSTGST */ 01040000 */* WHERE THE OPTIONAL LABEL PROVIDES A DSECT BY THE SAME */ 01050000 */* NAME. */ 01060000 */* */ 01070000 */**** END OF SPECIFICATIONS *****************************************/ 01080000 ' ) COL(2); 01090000 * 01100000 * /* ANSWER BACK A COPY OF INVOKING STATEMENT */ 01110000 * IF ATTRIBUT = '' THEN /* IF NO STRUCTURE ATTRIBUTES WERE 01120000 * INPUT, DO NOT PRINT KEY WORD */ 01130000 * KEY = ''; /* KEY WORD IS BLANKS */ 01140000 * ELSE 01150000 * KEY = 'ATTRIBUT'; /* PRINT KEYWORD NAME */ 01160000 * ANS('/* ?'||MACLABEL||MACNAME||' '||MACLIST||KEY||ATTRIBUT||' */' 01170000 * ) SKIP; 01180000 * 01190000 * /* ANSWER DECLARE, STRUCTURE NAME, INPUT ATTRIBUTES OF STRUCTURE*/ 01200000 * /* AND BOUNDARY ATTRIBUTE. */ 01210000 * ANS( 01220000 * 'DECLARE ' 01230000 * )SKIP; 01240000 * ANS( 01250000 * ' 1 STGST /* GLOBAL SUPERVISOR TABLE */' 01260000 * )SKIP; 01270000 * ANS( 01280000 * ' '||ATTRIBUT(1)||' ' 01290000 * )SKIP; 01300000 * ANS( 01310000 * ' BDY(WORD), ' 01320000 * )SKIP; 01330000 * 01340000 * /* ANSWER BACK THE STRUCTURE DEFINITION */ 01350000 *ANS( 01360000 * ' 2 STGSNAME /* TABLE NAME (STGS) */ 01370000 * CHAR(4), 01380000 * 2 STGSSCT /* ADDRESS OF SUPERVISOR CONTROL 01390000 * TABLE (STSCT) */ 01400000 * PTR(31), 01410000 * 2 STGSTCB /* TCB ADDRESS OF TASK WHICH 01420000 * ISSUED MSTART SVC (SVC 103, 01430000 * CODE 13) (IRBMFMFC) */ 01440000 * PTR(31), ' 01450000 * )SKIP; 01460000 *ANS( 01470000 * ' 2 STGSASID /* ASID OF TASK WHICH ISSUED 01480000 * MFSTART SVC (SVC 103, CODE 13) 01490000 * (IRBMFMFC) */ 01500000 * FIXED(15), 01510000 * 2 * CHAR(2), 01520000 * 2 STGSMMV /* ADDRESS OF MFROUTER MG VECTOR 01530000 * TABLE (MFMMV) */ 01540000 * PTR(31), 01550000 * 2 STGSCYC /* MF/1 SAMPLING CYCLE PERIOD, IN 01560000 * TIME OF DAY (TOD) CLOCK FORMAT*/ 01570000 * CHAR(8) ' 01580000 * )SKIP; 01590000 * 01600000 * ANS(';') SKIP; /* ALIGN ; OF DECLARE WITH 'D' */ 01610000 * %END; 01620000