* %GOTO PLSGSDA1; /* 00300002 MACRO 00302002 IHAGSDA 00304002 **/ 00306002 *%PLSGSDA1 : ; 00308002 */********************************************************************/ 00310002 */* GLOBAL SYSTEM DUPLEX AREA */ 00320002 */* OS/VS2 RELEASE 2,4/11/73,LEVEL 1 */ 00330002 */* */ 00340002 */********************************************************************/ 00342002 * %GOTO PLSGSDA2; /* 00392002 GSDA DSECT 00450002 * THE FOLLOWING FIELDS DUPLEX CVT FIELDS 00460002 GSDA001 EQU * START LABEL FOR CVT DUPLEXING 00470002 GSDAASVT DS A ASVT DUPLEXED ADDRESS 00500002 GSDAASVB EQU X'80' IF ON DUPLEXED ASVT IS VALID 00550002 GSDAPCCT DS A PCCAT DUPLEXED ADDRESS 00600002 GSDAPCCB EQU X'80' IF ON DUPLEXED PCCAT IS VALID 00650002 GSDAGDA DS A GDA DUPLEXED ADDRESS 00700002 GSDAGDAB EQU X'80' IF ON DUPLEXED GDA IS VALID 00750002 GSDACSD DS A CSD DUPLEXED ADDRESS 00800002 GSDACSDB EQU X'80' IF ON DUPLEXED CSD IS VALID 00850002 GSDALCCT DS A LCCAT DUPLEXED ADDRESS 00900002 GSDALCCB EQU X'80' IF ON DUPLEXED LCCAT IS VALID 00950002 GSDA001E EQU * END LABEL FOR CVT DUPLEXING 00960002 GSDA001N EQU (GSDA001E-GSDA001)/4 NUMBER OF CVT ENTRIES 00970002 * THE FOLLOWING FIELDS DUPLEX ASVT FIELDS 00980002 GSDAMAX DS 0F MAXUSER VALUE DUPLEX 01000002 DS H FIRST 2 BYTES ONLY USED FOR HIGH 01050002 * BIT 01100002 GSDAMAXB EQU X'80' IF ON MAXUSER DUPLEX IS VALID 01150002 GSDAMAXU DS H MAXUSER DUPLEX AREA 01200002 DS 0D ASSURE DOUBLE WORD ALIGNMENT 01250002 GSDAEND EQU * END OF GSDA 01300002 GSDALEN EQU GSDAEND-GSDA LENGTH OF GSDA 01350002 MEND , */ 01400002 *%PLSGSDA2 : ; 01450002 *DECLARE /* GLOBAL SYSTEM DUPLEX AREA */ 01500002 * 1 GSDA BASED(CVTGSDA), 01550002 * 2 GSDAASVT PTR(31), /* ASVT DUPLEXED ADDRESS */ 01600002 * 3 GSDAASVB BIT(1), /* IF ON THEN DUPLEX IS VALID */ 01650002 * 3 * BIT(31), /* ADDRESS */ 01700002 * 2 GSDAPCCT PTR(31), /* PCCAT DUPLEXED ADDRESS */ 01750002 * 3 GSDAPCCB BIT(1), /* IF ON THEN DUPLEX IS VALID */ 01800002 * 3 * BIT(31), /* ADDRESS */ 01850002 * 2 GSDAGDA PTR(31), /* GDA DUPLEXED ADDRESS */ 01900002 * 3 GSDAGDAB BIT(1), /* IF ON THEN DUPLEX IS VALID */ 01950002 * 3 * BIT(31), /* ADDRESS */ 02000002 * 2 GSDACSD PTR(31), /* CSD DUPLEXED ADDRESS */ 02050002 * 3 GSDACSDB BIT(1), /* IF ON THEN DUPLEX IS VALID */ 02100002 * 3 * BIT(31), /* ADDRESS */ 02150002 * 2 GSDALCCT PTR(31), /* LCCAT DUPLEXED ADDRESS */ 02200002 * 3 GSDALCCB BIT(1), /* IF ON THEN DUPLEX IS VALID */ 02250002 * 3 * BIT(31), /* ADDRESS */ 02300002 * 2 GSDAMAX FIXED(31), /* MAXUSER VALUE DUPLEX AREA */ 02350002 * 3 * FIXED(15), /* USED ONLY FOR HIGH BIT */ 02400002 * 4 GSDAMAXB BIT(1), /* IF ON THEN DUPLEX IS VALID */ 02500002 * 4 * BIT(15), /*RESERVED */ 02550002 * 3 GSDAMAXU FIXED(15), /* MAXUSER DUPLEX AREA */ 02600002 * 2 * CHAR(0) BDY(DWORD); /* ASSURE DWORD ALIGNED */ 02650002