* %GOTO DDTX1; /* 00050064 MACRO 00100064 IECDDT , */ 00150064 *%DDTX1: ; 00200064 * 00250064 */* **************************************************************** */ 00300064 */* DDT - DEVICE DESCRIPTOR TABLE */ 00350064 */* THE 'DDT' IS A LOGICAL EXTENSION TO THE UCB. IT IS A */ 00400064 */* VARIABLE LENGTH LIST OF ENTRIES THAT CORRESPOND TO DEVICE */ 00430064 */* DEPENDENT ROUTINES AND ROUTINES OR TABLES WHICH RESIDE IN */ 00460064 */* EITHER THE NUCLEUS OR THE LINK PACK AREA. A DEVICE */ 00490064 */* DESCRIPTOR TABLE WILL POINTED TO BY ALL UCBS THAT DESCRIBE */ 00520064 */* THE SAME DEVICE TYPE. THE 'DDT' IS USED BY BASIC IOS, THE */ 00550064 */* ERP MESSAGE WRITER, THE CCW TRANSLATION PROGRAM, MIH, AND */ 00580064 */* DDR. */ 00700064 */* */ 00750064 */* COPYRIGHT = NONE */ 00800064 */* */ 00850064 */* FUNCTION = MAP THE FIELDS OF A DDT POINTED TO BY A UCB. */ 00900064 */* */ 00950064 */* DEPENDENCIES = NONE */ 01000064 */* */ 01050064 */* RESTRICTIONS = NONE */ 01100064 */* */ 01150064 */* MODULE TYPE = DSECT */ 01200064 */* */ 01250064 */* PROCESSOR = PLS COMPILER OR ASSEMBLER */ 01300064 */* */ 01350064 */* CHANGE ACTIVITY = NONE */ 01400064 */*A-000000-999999 @G64JPLP*/ 01430064 */****************************************************************** */ 01460064 * 01550064 *%GOTO DDTX2; /* 01600064 DDT DSECT 01650064 DDTNAME DS CL4'DDT ' CHARACTER ID (DDT) AND BLANK 01700064 DDTFL1 DS XL1 READ ONLY FLAG BYTE 01750064 DDTLPAIN EQU X'80' LPA ADDRESSES IN THE DDT ARE 01800064 * INITIALIZED. 01850064 DDTS1ID DS XL1 DEFINES THE MUTUALLY EXCLUSIVE 01900064 * USE OF DDTSUB1. 01950064 DDTRSVD1 DS XL2 RESERVED 02100064 DDTVALBM DS 0XL4 VALIDITY BIT MAP 02150064 DDTVALB1 DS XL1 BIT MAP BYTE 1 02200064 DDTVSIO EQU X'80' SIO EXIT IS VALID (REQUIRED) 02240064 DDTVTRAP EQU X'40' TRAP EXIT IS VALID (REQUIRED) 02280064 DDTVUNIN EQU X'20' UNSOLICITED INTERRUPT EXIT IS VALID 02320064 DDTVSENS EQU X'10' SENSE EXIT IS VALID 02400064 DDTVEOS EQU X'08' END-OF-SENSE EXIT IS VALID 02450064 DDTVTCCW EQU X'04' CCW TABLE ENTRY IS VALID (REQUIRED) 02500064 DDTVERPM EQU X'02' ERP MESSAGE WRITER EXIT IS VALID (REQ) 02530064 DDTVMIH EQU X'01' MIH EXIT IS VALID 02600064 DDTVALB2 DS XL1 BIT MAP BYTE 2 02650064 DDTVALB3 DS XL1 BIT MAP BYTE 3 02710064 DDTVALB4 DS XL1 BIT MAP BYTE 4 02740064 DDTLPABM DS 0XL4 LPA BIT MAP 02800064 DDTLPAB1 DS XL1 ERP MESSAGE WRITER ENTRY 02850064 DDTLPERP EQU X'02' ERP MESSAGE WRITER ENTRY 02900064 * CONTAINS AN ID INSTEAD OF AN 02950064 * ADDRESS. 03000064 DDTLPAB2 DS XL1 BIT MAP BYTE 1 03050064 DDTLPAB3 DS XL1 BIT MAP BYTE 2 03100064 DDTLPAB4 DS XL1 BIT MAP BYTE 3 03150064 DDTLPAPF DS CL4 FOUR CHARACTER PREFIX CONCATENATED 03200064 * WITH FOUR CHARACTER SUFFIX TO 03240064 * BUILD LPA MODULE NAMES. 03280064 DDTENTRY DS 0F START OF DDT ENTRIES 03320064 DDTSIO DS A SIO EXIT ADDRESS 03360064 DDTTRAP DS A TRAP CODE EXIT ADDRESS 03450064 DDTUNIN DS A UNSOLICITED INTERRUPT EXIT ADDR 03500064 DDTSENSE DS A SENSE ROUTINE EXIT ADDRESS 03550064 DDTEOS DS A END-OF-SENSE EXIT ADDRESS 03600064 DDTTCCW DS A TCCW OP TABLE ADDRESS 03650064 DDTERPMS DS A ERP MESSAGE WRITER EXIT ID @ZM49526 03700064 DDTMIH DS A MIH INDEX VALUE (REQUIRED) 03720064 DDTSUB1 DS A USED FOR A SUBSET OF DEVICES AS 03760064 * DEFINED BY DDTS1ID. 03800064 MEND , */ 03840064 *%DDTX2 : ; 03880064 *DECLARE 03920064 * 1 DDT BASED(DDTPTR) BDY(WORD), /* @ZM48986*/ 03960064 * 2 DDTNAME CHAR(4) BDY(WORD), /* CHARACTER ID (DDT) AND BLANK */ 04090064 * 2 DDTFL1 BIT(8), /* READ ONLY FLAG BYTE */ 04130064 * 3 DDTLPAIN BIT(1), /* LPA ADDRESSES IN THE DDT ARE 04170064 * INITIALIZED. */ 04210064 * 3 * BIT(7), /* RESERVED */ 04250064 * 2 DDTS1ID FIXED(8), /* DEFINES THE MUTUALLY EXCLUSIVE 04290064 * USE OF DDTSUB1. */ 04330064 * 2 DDTRSVD1 CHAR(2), /* RESERVED */ 04370064 * 2 DDTVALBM BDY(WORD), /* VALIDITY BIT MAP */ 04410064 * 3 DDTVALB1 BIT(8), /* BIT MAP BYTE 1 */ 04450064 * 4 DDTVSIO BIT(1), /* SIO TRAP IS VALID (REQUIRED) */ 04490064 * 4 DDTVTRAP BIT(1), /* TRAP EXIT IS VALID (REQUIRED) */ 04530064 * 4 DDTVUNIN BIT(1), /* UNSOLICITED INTERRUPT EXIT IS VALID */ 04570064 * 4 DDTVSENS BIT(1), /* SENSE EXIT IS VALID */ 04750064 * 4 DDTVEOS BIT(1), /* END-OF-SENSE EXIT IS VALID */ 04800064 * 4 DDTVTCCW BIT(1), /* CCW TABLE ENTRY IS VALID (REQUIRED) */ 04850064 * 4 DDTVERPM BIT(1), /* ERP MESSAGE WRITE EXIT IS VALID(REQ)*/ 04880064 * 4 DDTVMIH BIT(1), /* MIH EXIT ENTRY IS VALID */ 04950064 * 3 DDTVALB2 BIT(8), /* BIT MAP BYTE 2 */ 05000064 * 3 DDTVALB3 BIT(8), /* BIT MAP BYTE 3 */ 05120064 * 3 DDTVALB4 BIT(8), /* BIT MAP BYTE 4 */ 05160064 * 2 DDTLPABM BDY(WORD), /* LPA BIT MAP */ 05200064 * 3 DDTLPAB1 BIT(8), /* BIT MAP BYTE 1 */ 05240064 * 4 * BIT(6), /* RESERVED */ 05280064 * 4 DDTLPERP BIT(1), /* ERP MESSAGE WRITER ENTRY CONTAINS 05320064 * A MODULE SUFFIX INSTEAD OF AN ADDR. */ 05360064 * 4 * BIT(1), /* RESERVED */ 05400064 * 3 DDTLPAB2 BIT(8), /* BIT MAP BYTE 2 */ 05440064 * 3 DDTLPAB3 BIT(8), /* BIT MAP BYTE 3 */ 05480064 * 3 DDTLPAB4 BIT(8), /* BIT MAP BYTE 4 */ 05520064 * 2 DDTLPAPF CHAR(4) BDY(WORD), /* FOUR CHARACTER PREFIX 05560064 * CONCATENATED WITH FOUR CHARACTER 05600064 * SUFFIX TO BUILD LPA MODULE NAMES. */ 05640064 * 2 DDTENTRY BDY(WORD), /* START OF DDT ENTRIES */ 05680064 * 3 DDTSIO PTR(31), /* SIO EXIT ADDRESS */ 05720064 * 3 DDTTRAP PTR(31), /* TRAP CODE EXIT ADDRESS */ 05850064 * 3 DDTUNIN PTR(31), /* UNSOLICITED INTERRUPT EXIT ADDR */ 05900064 * 3 DDTSENSE PTR(31), /* SENSE ROUTINE EXIT ADDRESS */ 05950064 * 3 DDTEOS PTR(31), /* END-OF-SENSE EXIT ADDRESS */ 06000064 * 3 DDTTCCW PTR(31), /* TCCW OP TABLE ADDRESS */ 06050064 * 3 DDTERPMS PTR(31), /* ERP MESSAGE WRITER EXIT ID@ZM49526*/ 06100064 * 3 DDTMIH PTR(31), /* MIH INDEX VALUE (REQUIRED) */ 06150064 * 3 DDTSUB1 FIXED(31); /* USED AS A SUBSET OF DEVICES AS 06200064 * DEFINED BY DDTS1ID */ 06250064