* 00050002 * %GOTO CSDL1; /* 00100002 MACRO 00150002 IHACSD &DSECT=YES */ 00200002 *%CSDL1 : ; 00250002 * 00300002 */* **************************************************************** */ 00350002 */* */ 00400002 */* COMMON SYSTEM DATA AREA */ 00450002 */* */ 00500002 */* OS/VS2 RELEASE 3, 07/23/74, LEVEL=1 */ 00550003 */* */ 00600002 */* METHOD OF ACCESS */ 00650002 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 00700002 */* USING ON CSD GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 00750002 */* PL/S - INCLUDE CVT TO DEFINE CVTCSD */ 00800002 */* */ 00850002 */* **************************************************************** */ 00900002 *%GOTO CSDL2; /* 00950002 SPACE 1 01000002 AIF ('&DSECT' EQ 'NO').CSD0010 01050002 CSD DSECT 01100002 AGO .CSD0020 01150002 .CSD0010 ANOP 01200002 DS 0D 01250002 CSD EQU * 01300002 .CSD0020 ANOP 01350002 CSDCSD DC CL4'CSD ' - CONTROL BLOCK ACRONYM IN EBCDIC 01400002 CSDCPUJS DC XL2'00' - BIT MASK OF CPU'S AVAILABLE FOR JOB 01450002 * SCHEDULING 01500002 CSDCHAD DC H'0' - HIGHEST CHANNEL ADDRESS SYSGEN'ED MDC014 01510002 CSDSAFF DS 0XL2 - BIT MASK OF CPU'S AVAILABLE TO PROCESS 01520002 * SERVICE REQUESTS (SRB'S) MDC018 01530002 CSDCPUAL DC XL2'00' - BIT MASK OF CPU'S CURRENTLY ALIVE MDC015 01550002 CSDCPUOL DC H'0' - NUMBER OF CPU'S CURRENTLY ALIVE MDC016 01600002 CSDSCWRD DS 0BL4 - SUPERVISOR CONTROL INFORMATION 01700002 CSDSCFL1 DC XL1'00' - FIRST BYTE OF CSDSCWRD 01750002 CSDRV042 EQU X'80',,C'X' - RESERVED MDC011 01800002 CSDSYSND EQU X'40' - SYSTEM-WIDE NON-DISPATCHABILITY BIT. 02000002 * INDICATES ALL ADDRESS SPACES (SRB'S AND 02050002 * TASKS) ARE NON-DISPATCHABLE EXCEPT THOSE 02100002 * WITH EXEMPT STATUS (ASCBXMPT) 02150002 CSDRV001 EQU X'20',,C'X' - RESERVED 02200002 CSDRV002 EQU X'10',,C'X' - RESERVED 02250002 CSDRV003 EQU X'08',,C'X' - RESERVED 02300002 CSDRV004 EQU X'04',,C'X' - RESERVED 02350002 CSDRV005 EQU X'02',,C'X' - RESERVED 02400002 CSDRV006 EQU X'01',,C'X' - RESERVED 02450002 CSDSCFL2 DC XL1'00' - SECOND BYTE OF CSDSCWRD 02500002 CSDRV007 EQU X'80',,C'X' - RESERVED 02550002 CSDRV008 EQU X'40',,C'X' - RESERVED 02600002 CSDRV009 EQU X'20',,C'X' - RESERVED 02650002 CSDRV010 EQU X'10',,C'X' - RESERVED 02700002 CSDRV011 EQU X'08',,C'X' - RESERVED 02750002 CSDRV012 EQU X'04',,C'X' - RESERVED 02800002 CSDRV013 EQU X'02',,C'X' - RESERVED 02850002 CSDRV014 EQU X'01',,C'X' - RESERVED 02900002 CSDSCFL3 DC XL1'00' - THIRD BYTE OF CSDSCWRD 02950002 CSDRV015 EQU X'80',,C'X' - RESERVED 03000002 CSDRV016 EQU X'40',,C'X' - RESERVED 03050002 CSDRV017 EQU X'20',,C'X' - RESERVED 03100002 CSDRV018 EQU X'10',,C'X' - RESERVED 03150002 CSDRV019 EQU X'08',,C'X' - RESERVED 03200002 CSDRV020 EQU X'04',,C'X' - RESERVED 03250002 CSDRV021 EQU X'02',,C'X' - RESERVED 03300002 CSDRV022 EQU X'01',,C'X' - RESERVED 03350002 CSDSCFL4 DC XL1'00' - FOURTH BYTE OF CSDSCWRD 03400002 CSDRV023 EQU X'80',,C'X' - RESERVED 03450002 CSDRV024 EQU X'40',,C'X' - RESERVED 03500002 CSDRV025 EQU X'20',,C'X' - RESERVED 03550002 CSDRV026 EQU X'10',,C'X' - RESERVED 03600002 CSDRV027 EQU X'08',,C'X' - RESERVED 03650002 CSDRV028 EQU X'04',,C'X' - RESERVED 03700002 CSDRV029 EQU X'02',,C'X' - RESERVED 03750002 CSDRV030 EQU X'01',,C'X' - RESERVED 03800002 CSDRV043 DC F'0' - RESERVED MDC012-MDC013 03850002 CSDMF1CP DC XL2'00' - BIT MASK OF CPU'S VARIED ONLINE OR 04050002 * OFFLINE. MF/1 WILL TEST THESE FLAGS AT 04060002 * REPORTING INTERVALS FOR CPU VARY ACTIVITY 04070002 * AND THEN RESET HALFWORD TO ZERO MDC007 04080002 CSDACR DC XL1'00' - VALUE OF X'FF' MEANS ACR IS IN PROGRESS 04100002 * WITHIN SYSTEM MDC006 04150002 CSDFLAGS DC XL1'00' - FLAG BYTE MDC001 04350002 CSDMP EQU X'80' - INDICATES MULTIPROCESSING SYSTEM 04360003 * INSTRUCTION SET IS AVAILABLE. CSDCPUAL 04361003 * MUST BE EXAMINED TO DETERMINE WHETHER A 04362003 * MULTIPROCESSING SYSTEM IS RUNNING OR JUST 04363003 * HALF A MULTIPROCESSING SYSTEM. 04364003 * (MDC300) @Z30AQ9A 04365003 CSDRV032 EQU X'40',,C'X' - RESERVED 04370002 CSDRV033 EQU X'20',,C'X' - RESERVED 04380002 CSDRV034 EQU X'10',,C'X' - RESERVED 04390002 CSDRV035 EQU X'08',,C'X' - RESERVED 04392002 CSDRV036 EQU X'04',,C'X' - RESERVED 04394002 CSDRV037 EQU X'02',,C'X' - RESERVED 04396002 CSDRV038 EQU X'01',,C'X' - RESERVED 04398002 CSDMAFF DC XL80'00' - CPU-AFFINITY FEATURE TABLE 04400002 * (TEN 8-BYTE ENTRIES) 04450002 CSDRV044 DC XL2'00' - RESERVED MDC018 04500002 CSDDDRCT DC H'0' - DDR DEVICE ALLOCATION INTERFACE COUNT 04560002 * FIELD. ACCESSED AND MODIFIED UNDER CMS 04570002 * LOCK. INCREMENTED BY DDR TO INDICATE TO 04580002 * DYNAMIC ALLOCATION THAT DDR EXCHANGED 04590002 * ADDRESSES IN THE IOS LOOKUP TABLE. MDC008 04600002 CSDGDCC DC F'0' - COUNT OF USABLE CLOCK COMPARATORS 04610002 * CURRENTLY IN THE CONFIGURATION MDC003 04620002 CSDGDINT DC F'0' - COUNT OF USABLE CPU TIMERS CURRENTLY IN 04630002 * THE CONFIGURATION MDC004 04640002 CSDGDTOD DC F'0' - COUNT OF CPU'S WHICH HAVE ACCESS TO A 04642002 * GOOD TOD CLOCK MDC005 04644002 CSDTCNT DC F'0' - COUNT OF TAPE ALLOCATIONS IN PROGRESS 04646002 * MDC009 04648002 CSDUCNT DC F'0' - COUNT OF UNIT RECORD ALLOCATIONS IN 04648402 * PROGRESS MDC010 04648802 CSDMASK DS 0XL32 - TABLE OF BIT MASKS FOR TESTING BITS IN 04649202 * CSDCPUAL MDC017 04649602 DC X'8000' - CPU 0 MDC017 04649702 DC X'4000' - CPU 1 MDC017 04649802 DC X'2000' - CPU 2 MDC017 04649902 DC X'1000' - CPU 3 MDC017 04666602 DC X'0800' - CPU 4 MDC017 04676602 DC X'0400' - CPU 5 MDC017 04678602 DC X'0200' - CPU 6 MDC017 04680602 DC X'0100' - CPU 7 MDC017 04682602 DC X'0080' - CPU 8 MDC017 04683002 DC X'0040' - CPU 9 MDC017 04683102 DC X'0020' - CPU A MDC017 04683202 DC X'0010' - CPU B MDC017 04688802 DC X'0008' - CPU C MDC017 04690802 DC X'0004' - CPU D MDC017 04692802 DC X'0002' - CPU E MDC017 04693202 DC X'0001' - CPU F MDC017 04693602 DC XL152'00' - RESERVED 04694402 MEND , - */ 04700002 *%CSDL2 : ; 04750002 * 04800002 *DECLARE 04850002 * 1 CSD BASED(CVTCSD) BDY(DWORD), 04900002 * 2 CSDCSD CHAR(4) BDY(WORD), /* CONTROL BLOCK ACRONYM IN 04950002 * EBCDIC */ 05000002 * 2 CSDCPUJS BIT(16) BDY(WORD), /* BIT MASK OF CPU'S 05050002 * AVAILABLE FOR JOB 05100002 * SCHEDULING */ 05150002 * 2 CSDCHAD FIXED(15), /* HIGHEST CHANNEL ADDRESS 05160002 * SYSGEN'ED MDC014*/ 05170002 * 2 CSDCPUAL BIT(16) BDY(WORD), /* BIT MASK OF CPU'S 05200002 * CURRENTLY ALIVE MDC015*/ 05250002 * 3 CSDSAFF BIT(16), /* BIT MASK OF CPU'S 05260002 * AVAILABLE TO PROCESS 05270002 * SERVICE REQUESTS (SRB'S) 05280002 * MDC018*/ 05290002 * 2 CSDCPUOL FIXED(15), /* NUMBER OF CPU'S CURRENTLY 05300002 * ALIVE MDC016*/ 05350002 * 2 CSDSCWRD CHAR(4) BDY(WORD), /* SUPERVISOR CONTROL 05500002 * INFORMATION */ 05550002 * 3 CSDSCFL1 BIT(8), /* FIRST BYTE OF CSDSCWRD */ 05600002 * 4 CSDRV042 BIT(1), /* RESERVED MDC011*/ 05650002 * 4 CSDSYSND BIT(1), /* SYSTEM-WIDE NON- 06000002 * DISPATCHABILITY BIT. 06050002 * INDICATES ALL ADDRESS 06100002 * SPACES (SRB'S AND TASKS) 06150002 * ARE NON-DISPATCHABLE 06200002 * EXCEPT THOSE WITH EXEMPT 06250002 * STATUS (ASCBXMPT) */ 06300002 * 4 CSDRV001 BIT(1), /* RESERVED */ 06350002 * 4 CSDRV002 BIT(1), /* RESERVED */ 06400002 * 4 CSDRV003 BIT(1), /* RESERVED */ 06450002 * 4 CSDRV004 BIT(1), /* RESERVED */ 06500002 * 4 CSDRV005 BIT(1), /* RESERVED */ 06550002 * 4 CSDRV006 BIT(1), /* RESERVED */ 06600002 * 3 CSDSCFL2 BIT(8), /* SECOND BYTE OF CSDSCWRD */ 06650002 * 4 CSDRV007 BIT(1), /* RESERVED */ 06700002 * 4 CSDRV008 BIT(1), /* RESERVED */ 06750002 * 4 CSDRV009 BIT(1), /* RESERVED */ 06800002 * 4 CSDRV010 BIT(1), /* RESERVED */ 06850002 * 4 CSDRV011 BIT(1), /* RESERVED */ 06900002 * 4 CSDRV012 BIT(1), /* RESERVED */ 06950002 * 4 CSDRV013 BIT(1), /* RESERVED */ 07000002 * 4 CSDRV014 BIT(1), /* RESERVED */ 07050002 * 3 CSDSCFL3 BIT(8), /* THIRD BYTE OF CSDSCWRD */ 07100002 * 4 CSDRV015 BIT(1), /* RESERVED */ 07150002 * 4 CSDRV016 BIT(1), /* RESERVED */ 07200002 * 4 CSDRV017 BIT(1), /* RESERVED */ 07250002 * 4 CSDRV018 BIT(1), /* RESERVED */ 07300002 * 4 CSDRV019 BIT(1), /* RESERVED */ 07350002 * 4 CSDRV020 BIT(1), /* RESERVED */ 07400002 * 4 CSDRV021 BIT(1), /* RESERVED */ 07450002 * 4 CSDRV022 BIT(1), /* RESERVED */ 07500002 * 3 CSDSCFL4 BIT(8), /* FOURTH BYTE OF CSDSCWRD */ 07550002 * 4 CSDRV023 BIT(1), /* RESERVED */ 07600002 * 4 CSDRV024 BIT(1), /* RESERVED */ 07650002 * 4 CSDRV025 BIT(1), /* RESERVED */ 07700002 * 4 CSDRV026 BIT(1), /* RESERVED */ 07750002 * 4 CSDRV027 BIT(1), /* RESERVED */ 07800002 * 4 CSDRV028 BIT(1), /* RESERVED */ 07850002 * 4 CSDRV029 BIT(1), /* RESERVED */ 07900002 * 4 CSDRV030 BIT(1), /* RESERVED */ 07950002 * 2 CSDRV043 FIXED(31), /* RESERVED MDC012-MDC013*/ 08000002 * 2 CSDMF1CP BIT(16), /* BIT MASK OF CPU'S VARIED 08250002 * ONLINE OR OFFLINE. MF/1 08252002 * WILL TEST THESE FLAGS AT 08254002 * REPORTING INTERVALS FOR 08256002 * CPU VARY ACTIVITY AND 08258002 * THEN RESET HALFWORD TO 08258402 * ZERO MDC007*/ 08258802 * 2 CSDACR CHAR(1), /* VALUE OF X'FF' MEANS ACR 08260002 * IN IS PROGRESS WITHIN 08270002 * SYSTEM MDC006*/ 08280002 * 2 CSDFLAGS BIT(8), /* FLAG BYTE MDC001*/ 08300002 * 3 CSDMP BIT(1), /* INDICATES MULTIPROCESSING 08350002 * SYSTEM INSTRUCTION SET IS 08400003 * AVAILABLE. CSDCPUAL MUST 08407003 * BE EXAMINED TO DETERMINE 08414003 * WHETHER A MULTIPROCESSING 08421003 * SYSTEM IS RUNNING OR JUST 08428003 * HALF A MULTIPROCESSING 08435003 * SYSTEM. (MDC300) @Z30AQ9A*/ 08442003 * 3 CSDRV032 BIT(1), /* RESERVED */ 08450002 * 3 CSDRV033 BIT(1), /* RESERVED */ 08500002 * 3 CSDRV034 BIT(1), /* RESERVED */ 08550002 * 3 CSDRV035 BIT(1), /* RESERVED */ 08600002 * 3 CSDRV036 BIT(1), /* RESERVED */ 08650002 * 3 CSDRV037 BIT(1), /* RESERVED */ 08700002 * 3 CSDRV038 BIT(1), /* RESERVED */ 08750002 * 2 CSDMAFF (10) CHAR(8), /* CPU-AFFINITY FEATURE 08800002 * TABLE */ 08850002 * 2 CSDRV044 BIT(16), /* RESERVED MDC018*/ 08900002 * 2 CSDDDRCT FIXED(15), /* DDR DEVICE ALLOCATION 09010002 * INTERFACE COUNT FIELD. 09020002 * ACCESSED AND MODIFIED 09030002 * UNDER CMS LOCK. 09040002 * INCREMENTED BY DDR TO 09050002 * INDICATE TO DYNAMIC 09060002 * ALLOCATION THAT DDR 09070002 * EXCHANGED ADDRESSES IN 09080002 * THE IOS LOOKUP TABLE. 09090002 * MDC008*/ 09092002 * 2 CSDGDCC FIXED(31), /* COUNT OF USABLE CLOCK 09100002 * COMPARATORS CURRENTLY IN 09150002 * THE CONFIGURATION MDC003*/ 09200002 * 2 CSDGDINT FIXED(31), /* COUNT OF USABLE CPU 09250002 * TIMERS CURRENTLY IN THE 09300002 * CONFIGURATION MDC004*/ 09350002 * 2 CSDGDTOD FIXED(31), /* COUNT OF CPU'S WHICH HAVE 09400002 * ACCESS TO A GOOD TOD 09450002 * CLOCK MDC005*/ 09500002 * 2 CSDTCNT FIXED(31), /* COUNT OF TAPE ALLOCATIONS 09600002 * IN PROGRESS MDC009*/ 09650002 * 2 CSDUCNT FIXED(31), /* COUNT OF UNIT RECORD 09700002 * ALLOCATIONS IN PROGRESS 09750002 * MDC010*/ 09800002 * 2 CSDMASK (16) CHAR(2), /* TABLE OF BIT MASKS FOR 09950002 * TESTING BITS IN CSDCPUAL 10000002 * MDC017*/ 10050002 * 2 * CHAR(152) BDY(DWORD); /* RESERVED */ 10100002 T(1), /* INDICATES MULTIPROCESSING * 40404040 SYSTEM INSTRUCTION SET IS * 40404040 AVAILABLE. CSDCPUAL MUST * 40404040 BE EXAMINED TO DETERMINE * 40404040 WHETHER A MULTIPROCESSING ʃ* 40404040 SYSTEM IS RUNNING OR JUST ʃ* 40404040 HALF A MULTIPROCESSING ʄ&* 40404040 SYSTEM. (MDC300) @Z30AQ9A*/ ʅ* 3 CSDRV0324029 T(1), /* RESERVED */ ʠ* 3 CSDRV0334029 T(1), /* RESERVED */ &* 3 CSDRV0344029 T(1), /* RESERVED */ ʡ* 3 CSDRV0354029 T(1), /* RESERVED */ -* 3 CSDRV0364029 T(1), /* RESERVED */ ʵ* 3 CSDRV0374029 T(1), /* RESERVED */ ʛ* 3 CSDRV0384029 T(1), /* RESERVED */ * 2 CSDMAFF 404041 0) CHAR(8), /* CPU-AFFINITY FEATURE ʝ* 40404040 TABLE */ e* 2 CSDRV04440404040 BIT(16), /* RESERVED MDC018*/ * 2 CSDDDRCT40404040 FIXED(15), /* DDR DEVICE ALLOCATION * 40404040 INTERFACE COUNT FIELD. * 40404040 ACCESSED AND MODIFIED * 40404040 UNDER CMS LOCK. * 40404040 INCREMENTED BY DDR TO * 40404040 INDICATE TO DYNAMIC * 40404040 ALLOCATION THAT DDR * 40404040 EXCHANGED ADDRESSES IN * 40404040 THE IOS LOOKUP TABLE. * 40404040 MDC008*/ * 2 CSDGDCC 40404040 FIXED(31), /* COUNT OF USABLE CLOCK * 40404040 COMPARATORS CURRENTLY IN * 40404040 THE CONFIGURATION MDC003*/ * 2 CSDGDINT40404040 FIXED(31), /* COUNT OF USABLE CPU * 40404040 TIMERS CURRENTLY IN THE * 40404040 CONFIGURATION MDC004*/ * 2 CSDGDTOD40404040 FIXED(31), /* COUNT OF CPU'S WHICH HAVE * 40404040 ACCESS TO A GOOD TOD * 40404040 CLOCK MDC005*/ &* 2 CSDTCNT 40404040 FIXED(31), /* COUNT OF TAPE ALLOCATIONS -* 40404040 IN PROGRESS MDC009*/ * 2 CSDUCNT 40404040 FIXED(31), /* COUNT OF UNIT RECORD * 40404040 ALLOCATIONS IN PROGRESS * 40404040 MDC010*/ * 2 CSDMASK 404041 6) CHAR(2), /* TABLE OF BIT MASKS FOR n* 40404040 TESTING BITS IN CSDCPUAL * 40404040 MDC017*/  * 2 * 40404040