* %GOTO BSLBASEA; /* 00100020 MACRO 00200020 IEEBASEA &NOD 00300020 .* D 236000,543000 @YM4036P 00344702 .* C 237000,544000 @YM4036P 00344802 .* A 124000,380500 @YM3520P 00345002 .* A 123000,379500 @Y02669P 00345402 .* C 379000 @Y02669P 00345802 .* C 380000 @YM3520P 00346202 .* A 145940-145960,420985-420997 Y02669 00346602 .* C 146000,421000 Y02669 00347002 .* C 087000 Y02893 00347302 .* A 145920,420980-420984 R20290 00350302 .* C 138000,145920,413000,421000 R20290 00353002 .* A 145800-145900,420940-420960 Y02675 00355702 .* A 096500,145700,329500,420900-420920 Y02675 00358402 .* C 146000,329000,421000 Y02675 00361102 .* A 087500,317500-317700 Y02139 00363802 .* C 146000,237000,421000,544000 Y02668 00366502 .* C 143000,379000,418000-418100 Y02668 00370402 .* D 122500 Y02668 00372402 .* C 138000,413000 Y02669 00372802 .* C 128500-129000,143500-144500,329000,393000-400000 Y02669 00373602 .* C 418500-419600,458000-460000,522000 Y02669 00387202 .* D 097000,130000-134000,176000-177000,221000 Y02669 00400802 .* C 104000,342000 Y02097 00414402 .* A 092020,324500-325940 Y01939 00428002 .* C 062000,299000,304000,309000,311000,318000,319000,323000 Y01939 00441602 .* C 060000,143000,296000,418000-418100 Y01012 00455202 .* A 073500,304500-304600 Y01029 00468802 .* C 142000,417000-417500 Y01043 00482402 .* C 140000,415000 Y01029 00496002 .* D 141000,416000 Y01029 00509602 .* C 138000,413000-413500 Y01012 00523202 .* A 122500,379000-379500 Y01012 00536802 .* A 099500 Y01040 00550402 .* C 333000-333500 Y01040 00564002 .* A 137500,412500-412600 Y01044 00577602 .* C 138000,413000 Y01044 00591202 .* A 061500,062500-062600,092100-092700,139500,414100-414600 Y01037 00604802 .* C 088000-092000,107000,111000,122000,139000,333000 Y01037 00618402 .* C 374000-375000,414000 Y01037 00632002 .* D 100000,123000-124000,334000,376000-378000 Y01037 00645602 .* A SYSTEM CONTROL PROGRAM 2 @G64MP2D 00665664 .* C SYSTEM CONTROL PROGRAM 2 @G64MP2D 00715664 .* A 096000,329500 @VS49464 00735664 .* 00765664 ********************************************************************** 00815664 * @G64MP2D 00865664 * MODULE NAME = IEEBASEA @G64MP2D 00915664 * @G64MP2D 00965664 * DESCRIPTIVE NAME = MASTER SCHEDULER RESIDENT DATA AREA @G64MP2D 01015664 * MACRO LEVEL 14 04/20/78 @G64MP2D 01065664 * @G64MP2D 01115664 * STATUS = OS/VS2 SYSTEM CONTROL PROGRAM 2 @G64MP2D 01165664 * @G64MP2D 01215664 * FUNCTION = @G64MP2D 01265664 * THIS MACRO PROVIDES THE MAPPING OF MASTER RESIDENT CORE 01315664 * UNIQUE TO THE OS/VS2 SYSTEM AND A MAPPING OF THE MASTER 01365664 * COMMUNICATIONS REGION WHICH IS COMMON TO ALL SYSTEMS OF 01415664 * OS/VS2. THE AREA MAY BE ADDRESSED THROUGH THE 01465664 * COMMUNICATIONS VECTOR TABLE UNDER LABEL CVTMSER. 01515664 * @G64MP2D 01565664 * OPERATION = @G64MP2D 01615664 * THE MACRO HAS TWO CALLING SEQUENCES-- 01665664 * IEEBASEA PROVIDES A DSECT STATEMENT FOR 01715664 * MODULES WHICH USE THE MACRO ONLY 01765664 * AS A MAPPING. 01815664 * IEEBASEA NODSECT DOES NOT PROVIDE A DSECT STATE- 01865664 * MENT WHICH CAUSES THE STATEMENTS 01915664 * TO OCCUPY SPACE UNDER THE 01965664 * CALLER'S CSECT. 02015664 * @G64MP2D 02065664 * MODULE TYPE = MACRO @G64MP2D 02115664 * @G64MP2D 02165664 * PROCESSOR = BILINGUAL PL/S AND ASSEMBLER @G64MP2D 02215664 * @G64MP2D 02265664 ********************************************************************** 02315664 * 02365664 AIF ('&NOD' EQ 'NODSECT').S0 Y01012 06095102 BASE DSECT 06100020 AGO .S1 Y01037 06150001 .S0 ANOP Y01939 06200001 ENTRY IEAMSLNK Y01037 06250001 .S1 ANOP Y01037 06260001 SPACE 06300020 * THE FOLLOWING VALUES DEFINE BIT PATTERNS FOR SWITCHES 06400020 SPACE 06500020 BA0 EQU 128 06600020 BA1 EQU 64 06700020 BA2 EQU 32 06800020 BA3 EQU 16 06900020 BA4 EQU 8 07000020 BA5 EQU 4 07100020 BA6 EQU 2 07200020 BA7 EQU 1 07300020 SPACE 07310001 BAVKEY EQU BA7 VIRTUAL REGION PROTECT KEY Y01029 07350001 SPACE 08200020 BACHN DC F'0' HANDLE TO COMMAND SCHEDULING CHAIN 08300020 BACBID DC C'MSER' CONTROL BLOCK IDENTIFIFER @G64MP2D 08350064 BALAD DC F'0' ECB FOR ADDED CHAIN ELEMENT 08500020 BAIPL DC AL1(128) ECB FOR IPL-COMMUNICATIONS TASK 08600020 DC VL3(IEACVPRB) WAITS ON IT--POSTED BY IEEVIPL Y02893 08700002 BAIPLCC EQU BAIPL+3 USED BY TOD CLOCK MANAGEMENT Y02139 08750002 BAQ DS F OVERLAYED BY BAMSLNK WORD 1 @G64MP2D 08770064 BAPRC DS F OVERLAYED BY BAMSLNK WORD 2 @G64MP2D 08810064 BALGSTAT DS 0D 08950002 MSLOGSVC DC F'0' COUNT OF EXECUTING WTL SVC'S 09000002 BALOG DS F ADDRESS OF LOG CONTROL TABLE Y01037 09200002 BALOGINT EQU BA0 INITIALIZED LOG INDICATOR Y01939 09202001 BASPWD01 DC F'0' RESERVED WORD @G64MP2D 09203064 ORG BAQ Y01037 09210001 BAMSLNK EQU * NIP PARM LIST FOR NIP LINK TO IEEVIPL Y01037 09250001 IEAMSLNK LINK EP=IEEVIPL,SF=L Y01037 09260001 BAPMLGTH EQU *-BAMSLNK LINK LIST LENGTH Y01037 09270001 SPACE 09300020 DC F'00' FILLER FOR PROJECT #Y02669 09350002 BARSW DS 0C 09400020 BASFL DC X'00' 09500020 BAIN EQU BA0 IPL FLAG 09600020 MSTODWTO EQU BA1 FAST IPL TOD WTO/WTOR INDICATOR Y02675 09650002 BAINTSET EQU BA2 INDICATES INTERNAL SET FOR TOD @VS49464 09700064 SPACE 10300020 BASPBT01 DC X'00' RESERVED BYTE @G64MP2D 10350064 BAICTR DC H'0' INTERPRETER COUNTER 10400064 BAPKES DC H'0' MASK OF INITIATOR PROTECT KEYS 10450064 BASPHW01 DC H'0' RESERVED HALFWORD @G64MP2D 10500064 BASPHW02 DC H'0' RESERVED HALFWORD @G64MP2D 10550064 MSLOGST DC X'00' LOG STATUS XMCS 11200020 MSLOGENQ EQU BA0 LOG DATASET SCHEDULED TO BE XMCS 11300020 * QUEUED TO SYSOUT WRITER XMCS 11400020 MSLOGTHD EQU BA1 LOG NOT SUPPORTED BIT XMCS 11500020 MSLOGCOM EQU BA2 SIGNAL FOR COM TASK TO STOP XMCS 11600020 * ISSUING WTLS XMCS 11700020 MSLOGDAR EQU BA3 LOG INTERNAL ABEND FLAG @G64MP2D 11750064 MSLOGIPL EQU BA4 LOG FIRST-TIME ENTRY SWITCH 12050002 MSLOGSTA EQU BA5 LOG STAE ENVIRONMENT SWITCH 12060002 BASPBYTE DC X'00' MSTR SCH INIT CPL 20030 12100020 BAMSSTAR EQU BA0 STAR RECURSION POINTER Y01037 12200001 BATRACE EQU BA1 KEEP NIP TRACE ACTIVE @Y02669P 12300002 BAMASCH EQU BA2 MASTER SCHEDULER ACTIVE @YM3520P 12400002 BALOGECB DC F'0' LOG ECB XMCS 12500020 BASPWD02 DC F'0' RESERVED WORD @G64MP2D 12550064 BAMONITR DC X'00' MONITOR FLAGS (TERMINALS-TJB CHAIN, 20030 12700020 * CONSOLES-UCME CHAIN) 20030 12800020 BADSN EQU BA0 DSNAMES ARE BEING MONITORED Y02669 12850002 BASPACE EQU BA1 SPACE IS BEING MONITORED Y02669 12900002 BAMONTR2 DC X'00' RESERVED FOR MONITOR 20030 12950064 BABCMAX DC H'00' MAX NUMBER OF BROADCAST MESSAGES 20030 13000064 BASPWD03 DC F'0' RESERVED FULLWORD @G64MP2D 13050064 BASPWD04 DC F'0' RESERVED FULLWORD @G64MP2D 13100064 BASPWD05 DC F'0' RESERVED FULLWORD @G64MP2D 13150064 BASPWD06 DC F'0' RESERVED FULLWORD @G64MP2D 13200064 BALOGCOM DC F'0' SYSLOG DEB TABLE ADDR @G64MP2D 13250064 BASUBECB DC F'0' SYSTEM SERIALIZATION ECB Y02668 14300002 BAJNCNT DC H'0' # OF DEVICES MONITORING JOBNAMES Y02669 14350002 BASESCT DC H'0' # OF DEVICES MONITORING SESSIONS Y02669 14400002 BASTCNT DC H'0' # OF DEVICES MONITORING STATUS Y02669 14450002 BASPHW03 DC H'0' RESERVED HALFWORD @G64MP2D 14470064 MSCOMMND DC F'0' 'CANNED' COMMAND INTERFACE @G64MP2D 14570064 MSSMFPRM DC F'0' POINTER TO THE SMF PARMLIB MEMBER LIST *14580002 Y02675 14590002 BAASCB DC F'0' MASTER SCHEDULER ASCB ADDRESS R20290 14592002 MSLOGCLS DC X'00' LOG OUTPUT CLASS Y02669 14594002 MSLOGLMT DC XL3'00' NO. OF WTLS IN ONE LOG DATA SET @G64MP2D 14596064 MSLGCLOZ DS 0F LOG TERMINATION ECB 14598002 MSCLOSSW DC X'00' ECB WAIT/POST FIELD 14598402 MSCLOSW EQU BA0 ECB WAIT BIT 14598802 MSCLOSP EQU BA1 ECB POST BIT 14599202 DC XL3'00' 14599602 MSLGWLOG DS 0F LOG DATA SET SWITCH ECB 14599702 MSWLOGSW DC X'00' ECB WAIT/POST FIELD 14599802 MSWLOGW EQU BA0 ECB WAIT BIT 14599902 MSWLOGP EQU BA1 ECB POST BIT 14633202 DC XL3'00' 14643202 MSLGWTR DS 0F LOG WTL QUEUE WRITER ECB 14653202 MSWTRSW DC X'00' ECB WAIT/POST FIELD 14663202 MSWTRW EQU BA0 ECB WAIT BIT 14665202 MSWTRP EQU BA1 ECB POST BIT 14665602 DC XL3'00' 14666002 MSLGSTRT DS 0F LOG RE-ACTIVATION ECB 14666402 MSSTRTSW DC X'00' ECB WAIT/POST FIELD 14666502 MSSTRTW EQU BA0 ECB WAIT BIT 14666602 MSSTRTP EQU BA1 ECB POST BIT 14677702 MSSTRTRB DC XL3'00' ECB RB ADDRESS @G64MP2D 14678764 MSLGJSCB DC F'0' LOG SWAPPED JSCB ADDRESS @G64MP2D 14728764 BASPWD07 DC F'0' RESERVED FULLWORD @G64MP2D 14778764 BASPWD08 DC F'0' RESERVED FULLWORD @G64MP2D 14828764 .* 15300020 .* THE FOLLOWING MACRO CALL GENERATES THE SYMBOLS TO BE USED I272 15400020 .* IN EQUATES FOR BIT MASKS I272 15500020 .* 15600020 IEZBITS 15650020 MS1BASEX EQU * 15700020 DC XL76'00' 76 BYTES ZEROED @G64MP2D 15800064 ORG MS1BASEX 16100020 SPACE 16200020 BASPBT02 DC X'0' RESERVED BYTE @G64MP2D 16250064 MSSSB DC X'00' MONITOR TIME NOTE BYTE @G64MP2D 16300064 MSBTN EQU MSSSB TIME NOTE BIT IS BIT 6 @G64MP2D 16350064 MSTN EQU BA6 VALUE TO TURN ON TIME NOTE @G64MP2D 16400064 SPACE 16450064 BASPBT03 DC X'0' RESERVED BYTE @G64MP2D 16500064 SPACE 16550064 MSECBFL DC X'0' SCHEDULER FLAGBYTE @G64MP2D 16600064 MSWTL EQU BIT2 LOG ABEND RECURSION BIT @G64MP2D 16650064 MSSUM EQU BIT7 SUMMARY BIT, VARY UCB SCAN REQUIRED. 16700064 SPACE 16750064 BAMTTBL DC F'0' MASTER TRACE TABLE ADDRESS @G64MP2D 16800064 BAMTRTN DC F'0' MASTER TRACE DATA ENTRY RTN @G64MP2D 16850064 BAMTSPSZ DS 0F MASTER TRACE TABLE SIZE AND @G64MP2D 16900064 * SUBPOOL @G64MP2D 16950064 BAMTSP DS B MASTER TRACE TABLE SUBPOOL @G64MP2D 17000064 BAMTLEN DS 3B MASTER TRACE TABLE SIZE @G64MP2D 17050064 BASTSPSZ DS 0F SYSTEM TRACE TABLE SIZE AND @G64MP2D 17100064 * SUBPOOL @G64MP2D 17110064 BASTSP DS B SYSTEM TRACE TABLE SUBPOOL @G64MP2D 17120064 BASTSZ DS 3B SYSTEM TRACE TABLE SIZE @G64MP2D 17130064 BAMTCDR DC F'0' MASTER TRACE TABLE CHNGE RTN ADDR @G64MP2D 17150064 BAMTDTAB DC F'0' ADDRESS OF TABLE DUMPED BY THE @G64MP2D 17200064 * MASTER TRACE RECOVERY ROUTINE @G64MP2D 17250064 BAMTDTSZ DS 0F SIZE AND SUBPOOL OF TABLE DUMPED @G64MP2D 17300064 * BY THE MASTER TRACE RECOVERY RTN @G64MP2D 17350064 BAMTDTSP DS B SUBPOOL OF RECOVERY DUMPED TABLE @G64MP2D 17400064 BAMTDTLN DS 3B SIZE OF RECOVERY DUMPED TABLE @G64MP2D 17450064 BAMTCNTL DC X'00' MASTER TRACE MODULE IN CONTROL @G64MP2D 17500064 * FLAG @G64MP2D 17520064 BAMT808 EQU BA0 IEEMB808 IN CONTROL @G64MP2D 17600064 BAMT809 EQU BA1 IEEMB809 IN CONTROL @G64MP2D 17650064 BAMT816 EQU BA2 IEEMB816 IN CONTROL @G64MP2D 17700064 BAMTRTRY EQU BA3 IEEMB816 RETRY RTN ENTERED @G64MP2D 17750064 BAMTRECF DC X'00' MASTER TRACE ERROR RECURSION @G64MP2D 17800064 * FLAG @G64MP2D 17830064 BAMTR808 EQU BA0 RECURSION IN IEEMB808 @G64MP2D 17900064 BAMTR809 EQU BA1 RECURSION IN IEEMB809 @G64MP2D 17950064 BAMTR816 EQU BA2 FAILURE IN IEEMB816 @G64MP2D 18000064 BAMTRUNK EQU BA3 UNKNOWN IEEMB816 INVOCATION @G64MP2D 18050064 BAMTITFL DC X'80' INTERNAL PROCESSING FLAG USED BY @G64MP2D 18100064 * MASTER TRACE FACILITY @G64MP2D 18120064 BAMTITAB EQU BA0 MASTER TRACE TABLE REQUIRED AT @G64MP2D 18140064 * SYSTEM INITIALIZATION BIT @G64MP2D 18170064 BAMTSFRR EQU BA1 SETFRR ADD ISSUED BY IEEMB809 @G64MP2D 18200064 BAMTFRRR EQU BA2 SETFRR DELETE RETURNED CONTROL @G64MP2D 18230064 * TO IEEMB809 @G64MP2D 18260064 BASPBT04 DC X'00' RESERVED BYTE @G64MP2D 18350064 BAMTDECB DS 0F MASTER TRACE RECOVERY SDUMP @G64MP2D 18400064 * COMPLETION ECB @G64MP2D 18450064 BAMTDSW DC X'00' ECB WAIT/POST FIELD @G64MP2D 18460064 BAMTDW EQU BA0 ECB WAIT BIT @G64MP2D 18470064 BAMTDP EQU BA1 ECB POST BIT @G64MP2D 18480064 DC XL3'00' @G64MP2D 18490064 BAMTINIT DS 0F DEFAULT MASTER TRACE TABLE SIZE @G64MP2D 18493064 * AND SUBPOOL REQUESTED @G64MP2D 18494064 * AT SYSTEM INITIALIZATION @G64MP2D 18495064 BAMTINSP DS B DEFAULT SUBPOOL @G64MP2D 18496064 BAMTINLN DS 3B DEFAULT SIZE @G64MP2D 18497064 BAMTVTCB DC F'0' ADDRESS OF IEEVIPLS TCB FOR @G64MP2D 18500064 * USE IN MASTER TRACE TABLE @G64MP2D 18510064 * GETMAIN AND FREEMAIN IN IEEMB809 @G64MP2D 18520064 BASPWD0A DC F'0' RESERVED FULLWORD @G64MP2D 18550064 BASPWD0B DC F'0' RESERVED FULLWORD @G64MP2D 18600064 BASPWD0C DC F'0' RESERVED FULLWORD @G64MP2D 18650064 BASPWD0D DC F'0' RESERVED FULLWORD @G64MP2D 18660064 BASPWD0E DC F'0' RESERVED FULLWORD @G64MP2D 18670064 BASPWD0F DC F'0' RESERVED FULLWORD @G64MP2D 18680064 BASPWD0G DC F'0' RESERVED FULLWORD @G64MP2D 18690064 MEND , */ 18750064 * @EJECT; @G64MP2D 18800064 * %BSLBASEA: ; 23900020 */* 23950064 ********************************************************************** 24000064 * @G64MP2D 24050064 * MODULE NAME = IEEBASEA @G64MP2D 24100064 * @G64MP2D 24150064 * DESCRIPTIVE NAME = MASTER SCHEDULER RESIDENT DATA AREA @G64MP2D 24200064 * MACRO LEVEL 14 04/20/78 @G64MP2D 24250064 * @G64MP2D 24300064 * STATUS = OS/VS2 SYSTEM CONTROL PROGRAM 2 @G64MP2D 24350064 * @G64MP2D 24400064 * FUNCTION = @G64MP2D 24450064 * THIS MACRO PROVIDES THE MAPPING OF MASTER RESIDENT CORE 24500064 * UNIQUE TO THE OS/VS2 SYSTEM AND A MAPPING OF THE MASTER 24550064 * COMMUNICATIONS REGION WHICH IS COMMON TO ALL SYSTEMS OF 24600064 * OS/VS2. THE AREA MAY BE ADDRESSED THROUGH THE 24650064 * COMMUNICATIONS VECTOR TABLE UNDER LABEL CVTMSER. 24700064 * @G64MP2D 24750064 * OPERATION = @G64MP2D 24800064 * THE MACRO HAS TWO CALLING SEQUENCES-- 24850064 * IEEBASEA PROVIDES A DSECT STATEMENT FOR 24900064 * MODULES WHICH USE THE MACRO ONLY 24950064 * AS A MAPPING. 25000064 * IEEBASEA NODSECT DOES NOT PROVIDE A DSECT STATE- 25050064 * MENT WHICH CAUSES THE STATEMENTS 25100064 * TO OCCUPY SPACE UNDER THE 25150064 * CALLER'S CSECT. 25200064 * @G64MP2D 25250064 * MODULE TYPE = MACRO @G64MP2D 25300064 * @G64MP2D 25350064 * PROCESSOR = BILINGUAL PL/S AND ASSEMBLER @G64MP2D 25400064 * @G64MP2D 25450064 ********************************************************************** 25500064 * */ 25550064 * %IF NOD^='NODSECT' %THEN /* Y01012 */ 29666702 * %GOTO BASEAL01; 29700020 * %ELSE 29800020 * %GOTO S0 ; /* Y01939 */ 29900001 * %BASEAL01: ; 30000020 * 30100020 * DECLARE 30200020 * 1 BASE BASED(CVTMSER), 30300020 * %S0 : ; /* Y01939 */ 30400001 * % DCL BAVKEY FIXED; /* VIRTUAL REGION Y01029 */ 30450001 * % BAVKEY=1; /* PROTECT KEY Y01029 */ 30460001 * 30500020 * 30560064 * /* FOLLOWING VALUES DEFINE BIT PATTERNS FOR SWITCHES */ 30600002 * 30700020 * 30800020 * 2 BACHN PTR(31), /* HANDLE TO COMMAND 30900001 * SCHEDULING CHAIN Y01939 */ 31000001 * 2 BACBID CHAR(4), /* CONTROL BLOCK ID @G64MP2D*/ 31050064 * 2 BALAD FIXED(31), /* ECB FOR ADDED CHAIN 31100064 * ELEMENT */ 31150064 * 2 * PTR(32), /* @G64MP2D*/ 31200064 * 3 BAIPL PTR(8), /* ECB FOR 31360064 * IPL-COMMUNICATIONS TASK */ 31500020 * 3 * PTR(24), /* WAITS ON IT--POSTED BY 31550064 * IEEVIPL */ 31700020 * 4 * CHAR(2), /* FILLER Y02139 */ 31720064 * 4 BAIPLCC CHAR(1), /* USED BY TOD CLOCK 31730064 * MANAGEMENT Y02139 */ 31770002 * 2 BAQ PTR(31), /* OVERLAYED BY BAMSLNK WORD1 31780064 * @G64MP2D*/ 31786064 * 2 BAPRC PTR(31), /* OVERLAYED BY BAMSLNK WORD2 31816064 * @G64MP2D*/ 31846064 * 2 BALGSTAT BDY(DWORD), 31950002 * 3 MSLOGSVC PTR(31) BDY(WORD), 32000002 * 3 BALOG PTR(31), /* POINTER TO LOG CONTROL 32300002 * TABLE Y01939*/ 32400001 * 4 BALOGINT BIT(1), /* INITIALIZED LOG 32450002 * INDICATOR Y01939*/ 32500002 * 4 * BIT(1), /* RESERVED */ 32550002 * 4 * BIT(1), /* RESERVED */ 32560002 * 4 * BIT(1), /* RESERVED */ 32570002 * 4 * BIT(1), /* RESERVED */ 32580002 * 4 * BIT(1), /* RESERVED */ 32590002 * 4 * BIT(1), /* RESERVED */ 32592002 * 4 * BIT(1), /* RESERVED */ 32594002 * 2 BASPWD01 FIXED(31), /* RESERVED WORD @G64MP2D*/ 32595064 * 2 BASFL CHAR(1), 32600020 * 3 BARSW CHAR(1), 32700020 * 4 BAIN BIT(1), /* IPL FLAG */ 32800002 * 4 MSTODWTO BIT(1), /* FAST IPL TOD WTO/WTOR 32900002 * INDICATOR Y02675 */ 32950002 * 4 BAINTSET BIT(1), /* INDICATES INTERNAL SET 32970064 * FOR TOD @VS49464*/ 32980064 * 4 * BIT(5), /* RESERVED BITS @G64MP2D*/ 32990064 * 33020064 * 2 BASPBT01 CHAR(1), /* RESERVED BYTE @G64MP2D*/ 33070064 * 2 BAICTR FIXED(15), /* INTERPRETER COUNTER */ 34300020 * 2 BAPKES FIXED(15), /* MASK OF INITIATOR 34400020 * PROTECT KEYS */ 34500020 * 2 BASPHW01 FIXED(15), /* RESERVED HALF 34550064 * WORD @G64MP2D*/ 34600064 * 2 BASPHW02 FIXED(15), /* RESERVED HALFWORD 34650064 * @G64MP2D*/ 34700064 * 2 MSLOGST CHAR(1), /* LOG STATUS XMCS */ 35500020 * 3 MSLOGENQ BIT(1), /* LOG DATASET SCHEDULED TO 35600020 * BE XMCS QUEUED TO 35700020 * SYSOUT WRITER XMCS */ 35800020 * 3 MSLOGTHD BIT(1), /* LOG NOT SUPPORTED BIT 35900020 * XMCS */ 36000020 * 3 MSLOGCOM BIT(1), /* SIGNAL FOR COM TASK TO 36100020 * STOP XMCS ISSUING WTLS 36200020 * XMCS */ 36300020 * 3 MSLOGDAR BIT(1), /* LOG INTERNAL ABEND 36350064 * FLAG @G64MP2D*/ 36400064 * 3 MSLOGIPL BIT(1), /* RESERVED */ 36900002 * 3 MSLOGSTA BIT(1), /* RESERVED */ 37000002 * 3 * BIT(1), /* RESERVED */ 37100020 * 3 * BIT(1), /* RESERVED */ 37200020 * 2 BASPBYTE CHAR(1), /* MSTR SCH INIT CPL 20030 */ 37300020 * 3 BAMSSTAR BIT(1), /* STAR RECURSION POINTER 37400001 * Y01037 */ 37500001 * 3 BATRACE BIT(1), /* KEEP NIP TRACE ACTIVE 37900002 * @Y02669P */ 37950002 * 3 BAMASCH BIT(1), /* MASTER SCHEDULER ACTIVE 38000002 * @YM3520P */ 38050064 * 3 * BIT(5), /* RESERVED @G64MP2D*/ 38100064 * 2 BALOGECB FIXED(31), /* LOG ECB XMCS */ 38150064 * 2 BASPWD02 FIXED(31), /* RESERVED WORD @G64MP2D*/ 38200064 * 2 BAMONITR CHAR(1), /* MONITOR FLAGS 38900020 * (TERMINALS-TJB CHAIN, 39000020 * 20030 CONSOLES-UCME 39100020 * CHAIN) 20030 */ 39200020 * 3 BADSN BIT(1), /* # OF DEVICES MONITORING 39300002 * JOBNAMES Y02669 */ 39400002 * 3 BASPACE BIT(1), /* SPACE IS BEING MONITORED 39500064 * Y02669 */ 39600002 * 3 * BIT(1), /* RESERVED @G64MP2D*/ 39630064 * 3 * BIT(1), /* SPARE Y02669 */ 39680064 * 3 * BIT(1), /* SPARE Y02669 */ 39730064 * 3 * BIT(1), /* RESERVED BIT @G64MP2D*/ 39780064 * 3 * BIT(1), /* RESERVED */ 39830064 * 3 * BIT(1), /* RESERVED @G64MP2D*/ 39880064 * 2 BAMONTR2 CHAR(1), /* RESERVED FOR MONITOR 40700020 * 20030 */ 40800020 * 2 BABCMAX FIXED(15), /* MAX NUMBER OF BROADCAST 40900020 * MESSAGES 20030 */ 41000020 * 2 BASPWD03 FIXED(31), /* RESERVED WORD @G64MP2D*/ 41050064 * 2 BASPWD04 FIXED(31), /* RESERVED WORD @G64MP2D*/ 41100064 * 2 BASPWD05 FIXED(31), /* RESERVED WORD @G64MP2D*/ 41150064 * 2 BASPWD06 FIXED(31), /* RESERVED WORD @G64MP2D*/ 41200064 * 2 BALOGCOM FIXED(31), /* SYSLOG DEB 41250064 * TABLE ADDRESS @G64MP2D*/ 41300064 * 2 BASUBECB FIXED(31), /* SUBSYSTEM SERIALIZATION ECB 41800002 * Y02668 */ 41810002 * 2 BAJNCNT FIXED(15), /* # OF DEVICES MONITORING 41850002 * JOBNAMES Y02669 */ 41860002 * 2 BASESCT FIXED(15), /* # OF DEVICES MONITORING 41900002 * SESSIONS Y02669 */ 41910002 * 2 BASTCNT FIXED(15), /* # OF DEVICES MONITORING 41950002 * STATUS Y02669 */ 41960002 * 2 BASPHW03 FIXED(15), /* RESERVED HALF 41980064 * WORD @G64MP2D*/ 42010064 * 2 MSCOMMND PTR(31), /* 'CANNED' COMMAND INTERFACE 42090064 * @G64MP2D*/ 42091064 * 2 MSSMFPRM PTR(31), /* POINTER TO THE SMF 42094002 * PARMLIB MEMBER Y02675 */ 42096002 * 2 BAASCB PTR(31), /* MASTER SCHEDULER ASCB 42098002 * ADDRESS R20290 */ 42098402 * 2 * BDY(WORD), /* Y02669 */ 42098502 * 3 MSLOGCLS CHAR(1), /* LOG OUTPUT CLASS Y02669 */ 42098802 * 3 MSLOGLMT FIXED(24), /* NO. OF WTLS IN ONE DATA 42099664 * SET @G64MP2D*/ 42106664 * 2 MSLGCLOZ PTR(31), /* LOG TERMINATION ECB */ 42121264 * 3 MSCLOSSW PTR(8), /* ECB WAIT/POST FIELD */ 42127264 * 4 MSCLOSW BIT(1), /* ECB WAIT BIT */ 42133202 * 4 MSCLOSP BIT(1), /* ECB POST BIT */ 42143202 * 4 * BIT(6), /* RESERVED */ 42153202 * 2 MSLGWLOG PTR(31), /* LOG DATA SET SWITCH ECB */ 42163202 * 3 MSWLOGSW PTR(8), /* ECB WAIT/POST FIELD */ 42165202 * 4 MSWLOGW BIT(1), /* ECB WAIT BIT */ 42165602 * 4 MSWLOGP BIT(1), /* ECB POST BIT */ 42166002 * 4 * BIT(6), /* RESERVED */ 42166402 * 2 MSLGWTR PTR(31), /* LOG WTL QUEUE WRITER ECB */ 42166502 * 3 MSWTRSW PTR(8), /* ECB WAIT/POST FIELD */ 42166602 * 4 MSWTRW BIT(1), /* ECB WAIT BIT */ 42177702 * 4 MSWTRP BIT(1), /* ECB POST BIT */ 42187702 * 4 * BIT(6), /* RESERVED */ 42188102 * 3 MSSTRTRB PTR(24), /* ECB RB ADDRESS @G64MP2D*/ 42188364 * 2 MSLGSTRT PTR(31), /* LOG RE-ACTIVATION ECB */ 42188502 * 3 MSSTRTSW PTR(8), /* ECB WAIT/POST FIELD */ 42188602 * 4 MSSTRTW BIT(1), /* ECB WAIT BIT */ 42188702 * 4 MSSTRTP BIT(1), /* ECB POST BIT */ 42188802 * 4 * BIT(6), /* RESERVED */ 42192502 * 2 MSLGJSCB FIXED(31), /* LOG SWAPPED JSCB ADDRESS 42194564 * @G64MP2D*/ 42194864 * 2 BASPWD07 FIXED(31), /* RESERVED FULLWORD 42195464 * @G64MP2D*/ 42195664 * 2 BASPWD08 FIXED(31), /* RESERVED FULLWORD 42245664 * @G64MP2D*/ 42295664 * 2 MS1BASEX BDY(BYTE), 43200020 * 3 * CHAR(20), 43300020 * 3 * CHAR(20), 43400020 3 * CHAR(16), 43500064 * 3 * CHAR(20); /* 76 BYTES ZEROED. */ 43530064 * DECLARE 1 BASES01 43600020 * BASED(ADDR(MS1BASEX)), 43700020 * 43800020 * 2 BASPBT02 CHAR(1), /* RESERVED BYTE @G64MP2D*/ 43850064 * 43900064 * 2 MSSSB CHAR(1), /* MONITOR TIME NOTE 43950064 * BYTE @G64MP2D*/ 44000064 * 3 MSBTN CHAR(1), /* TIME NOTE BIT IS BIT 6 */ 44050064 * 4 * BIT(1), /* RESERVED BIT @G64MP2D*/ 44100064 * 4 * BIT(1), /* RESERVED BIT @G64MP2D*/ 44150064 * 4 * BIT(1), /* RESERVED BIT @G64MP2D*/ 44200064 * 4 * BIT(1), /* RESERVED BIT @G64MP2D*/ 44250064 * 4 * BIT(1), /* RESERVED BIT @G64MP2D*/ 44300064 * 4 * BIT(1), /* RESERVED BIT @G64MP2D*/ 44350064 * 4 MSTN BIT(1), /* VALUE TO TURN ON TIME 46100020 * NOTE */ 46200020 * 4 * BIT(1), /* RESERVED */ 46300020 * 46400020 * 2 BASPBT03 CHAR(1), /* RESERVED BYTE @G64MP2D*/ 46450064 * 46490064 * 2 MSECBFL CHAR(1), /* SCHEDULER FLAG 46530064 * BYTE @G64MP2D*/ 46570064 * 3 * BIT(1), /* RESERVED BIT @G64MP2D*/ 46610064 * 3 * BIT(1), /* RESERVED BIT @G64MP2D*/ 46650064 * 3 MSWTL BIT(1), /* LOG ABEND 46690064 * RECURSION BIT @G64MP2D*/ 46730064 * 3 * BIT(1), /* RESERVED BIT @G64MP2D*/ 46770064 * 3 * BIT(1), /* RESERVED BIT @G64MP2D*/ 46810064 * 3 * BIT(1), /* RESERVED BIT @G64MP2D*/ 46850064 * 3 * BIT(1), /* RESERVED BIT @G64MP2D*/ 46890064 * 3 MSSUM BIT(1) ABNL, /* SUMMARY BIT, VARY UCB 46930064 * SCAN REQUIRED. */ 46970064 * 2 BAMTTBL PTR(31), /* MASTER TRACE 47010064 * TABLE ADDRESS @G64MP2D*/ 47050064 * 2 BAMTRTN PTR(31), /* MASTER TRACE DATA ENTRY 47090064 * ROUTINE ADDRESS @G64MP2D*/ 47130064 * 47170064 * 2 BAMTSPSZ CHAR(4), /* MASTER TRACE TABLE 47210064 * SUBPOOL AND SIZE @G64MP2D*/ 47250064 * 3 BAMTSP CHAR(1), /* SUBPOOL OF MASTER 47290064 * TRACE TABLE @G64MP2D*/ 47330064 * 3 BAMTLEN CHAR(3), /* SIZE OF MASTER 47370064 * TRACE TABLE @G64MP2D*/ 47380064 * 2 BASTSPSZ FIXED(31), /* SYSTEM TRACE TABLE 47390064 * SUBPOOL AND SIZE @G64MP2D*/ 47400064 * 3 BASTSP CHAR(1), /* SUBPOOL OF SYSTEM 47410064 * TRACE TABLE @G64MP2D*/ 47420064 * 3 BASTSZ CHAR(3), /* SIZE OF SYSTEM 47430064 * TRACE TABLE @G64MP2D*/ 47440064 * 2 BAMTCDR PTR(31), /* MASTER TRACE TABLE CHANGE 47530064 * ROUTINE ADDRESS @G64MP2D*/ 47570064 * 2 BAMTDTAB PTR(31), /* ADDR OF TABLE DUMPED BY 47610064 * THE MASTER TRACE 47650064 * RECOVERY ROUTINE @G64MP2D*/ 47690064 * 2 BAMTDTSZ CHAR(4), /* SIZE AND SUBPOOL OF TABLE 47730064 * DUMPED BY THE MASTER TRACE 47770064 * RECOVERY ROUTINE @G64MP2D*/ 47810064 * 3 BAMTDTSP CHAR(1), /* SUBPOOL OF RECOVERY 47850064 * DUMPED TABLE @G64MP2D*/ 47890064 * 3 BAMTDTLN CHAR(3), /* SIZE OF RECOVERY DUMPED 47930064 * TABLE @G64MP2D*/ 47970064 * 2 BAMTCNTL BIT(8), /* MASTER TRACE MODULE 48010064 * IN CONTROL FLAG @G64MP2D*/ 48050064 * 3 BAMT808 BIT(1), /* IEEMB808 IN CONTROL 48090064 * @G64MP2D*/ 48130064 * 3 BAMT809 BIT(1), /* IEEMB809 IN CONTROL 48170064 * @G64MP2D*/ 48210064 * 3 BAMT816 BIT(1), /* IEEMB816 IN CONTROL 48250064 * @G64MP2D*/ 48290064 * 3 BAMTRTRY BIT(1), /* IEEMB816 RETRY ROUTINE 48330064 * ENTERED @G64MP2D*/ 48370064 * 3 * BIT(4), /* RESERVED @G64MP2D*/ 48410064 * 2 BAMTRECF BIT(8), /* MASTER TRACE ERROR 48450064 * RECURSION FLAG @G64MP2D*/ 48490064 * 3 BAMTR808 BIT(1), /* RECURSION IN IEEMB808 48530064 * @G64MP2D*/ 48570064 * 3 BAMTR809 BIT(1), /* RECURSION IN IEEMB809 48610064 * @G64MP2D*/ 48650064 * 3 BAMTR816 BIT(1), /* FAILURE IN IEEMB816 48690064 * @G64MP2D*/ 48730064 * 3 BAMTRUNK BIT(1), /* UNKNOWN IEEMB816 48770064 * INVOCATION @G64MP2D*/ 48810064 * 3 * BIT(4), /* RESERVED @G64MP2D*/ 48850064 * 2 BAMTITFL BIT(8), /* INTERNAL PROCESSING 49288064 * FLAG USED BY MASTER 49294064 * TRACE FACILITY @G64MP2D*/ 49300064 * 3 BAMTITAB BIT(1), /* MASTER TRACE TABLE 49306064 * REQUIRED AT SYSTEM 49312064 * INITIALIZATION BIT 49318064 * @G64MP2D*/ 49324064 * 3 BAMTSFRR BIT(1), /* SETFRR A MACRO 49330064 * ISSUED BY IEEMB809 49336064 * @G64MP2D*/ 49342064 * 3 BAMTFRRR BIT(1), /* SETFRR D RETURNED CONTROL 49348064 * TO IEEMB809 @G64MP2D*/ 49354064 * 3 * BIT(5), /* RESERVED @G64MP2D*/ 49360064 * 2 BASPBT04 CHAR(1), /* RESERVED BYTE @G64MP2D*/ 49376064 * 49396064 * 2 BAMTDECB FIXED(31), /* MASTER TRACE RECVRY SDUMP 49416064 * COMPLETION ECB @G64MP2D*/ 49436064 * 3 BAMTDSW PTR(8), /* ECB WAIT/POST FIELD */ 49440064 * 4 BAMTDW BIT(1), /* ECB WAIT BIT */ 49444064 * 4 BAMTDP BIT(1), /* ECB POST BIT */ 49448064 * 4 * BIT(6), /* RESERVED */ 49452064 * 2 BAMTINIT FIXED(31), /* DEFAULT MASTER TRACE 49452664 * TABLE SIZE AND 49452864 * SUBPOOL REQUESTED 49453064 * AT SYSTEM 49453264 * INITIALIZATION @G64MP2D*/ 49453464 * 3 BAMTINSP CHAR(1), /* DEFAULT SUBPOOL @G64MP2D*/ 49453664 * 3 BAMTINLN CHAR(3), /* DEFAULT SIZE @G64MP2D*/ 49453864 * 2 BAMTVTCB FIXED(31), /* ADDRESS OF IEEVIPLS 49454464 * TCB FOR MASTER TRACE 49454664 * TABLE GETMAIN AND 49454864 * FREEMAIN IN 49455064 * IEEMB809 @G64MP2D*/ 49455264 * 2 BASPWD0A FIXED(31), /* RESERVED FULL 49456064 * WORD @G64MP2D*/ 49476064 * 2 BASPWD0B FIXED(31), /* RESERVED FULL 49496064 * WORD @G64MP2D*/ 49516064 * 2 BASPWD0C FIXED(31), /* RESERVED FULL 49536064 * WORD @G64MP2D*/ 49545064 * 2 BASPWD0D FIXED(31), /* RESERVED FULL 49554064 * WORD @G64MP2D*/ 49563064 * 2 BASPWD0E FIXED(31), /* RESERVED FULL 49572064 * WORD @G64MP2D*/ 49581064 * 2 BASPWD0F FIXED(31), /* RESERVED FULL 49590064 * WORD @G64MP2D*/ 49599064 * 2 BASPWD0G FIXED(31); /* RESERVED FULL 49608064 * WORD @G64MP2D*/ 49636064 *@EJECT; 49860064 */********************************************************************/ 49890064 */* */ 49940064 */* IEEBASEA - ENTRY POINT DECLARES */ 49990064 */* */ 50040064 */********************************************************************/ 50090064 * 50140064 * DECLARE 50190064 * MB808 ENTRY BASED(BAMTRTN); /* SYMBOLIC ENTRY POINT TO 50240064 * MASTER TRACE DATA ENTRY 50290064 * ROUTINE IEEMB808 50340064 * TO USE, ISSUE CALL MB808 @G64MP2D*/ 50390064 * DECLARE 50440064 * MB809 ENTRY BASED(BAMTCDR); /* SYMBOLIC ENTRY POINT TO 50490064 * MASTER TRACE TABLE CREATE 50540064 * - DEACTIVATE RTN IEEMB809 50590064 * TO USE, ISSUE CALL MB809 @G64MP2D*/ 50640064