* 00050002 * %GOTO ASVTL1; /* 00060002 MACRO 00100002 IHAASVT &DSECT=YES */ 00150002 *%ASVTL1 : ; 00152002 * 00154002 */* **************************************************************** */ 00156002 */* */ 00158002 */* ADDRESS SPACE VECTOR TABLE */ 00158402 */* */ 00158802 */* OS/VS2 RELEASE 4, 04/22/75, LEVEL=1 */ 00159204 */* */ 00159602 */* METHOD OF ACCESS */ 00159702 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 00159802 */* USING ON ASVT GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 00159902 */* PL/S - DCL ASVTPTR PTR */ 00163202 */* */ 00165202 */* **************************************************************** */ 00165602 *%GOTO ASVTL2; /* 00166002 SPACE 1 00166402 AIF ('&DSECT' EQ 'NO').ASVT10 00166702 ASVT DSECT 00170002 AGO .ASVT20 00180002 .ASVT10 ANOP 00190002 DS 0D 00190402 ASVT EQU * 00192002 .ASVT20 ANOP 00194002 DS CL512 - RESERVED FOR FUTURE EXPANSION 00200002 ASVTBEGN DS 0D - BEGINNING OF ASVT 00250002 ASVTASVT DS CL4 - ACRONYM IN EBCDIC -ASVT- 00300002 ASVTMAXU DS F - MAXIMUM NUMBER OF ADDRESS SPACES 00350002 ASVTRS00 DS F - RESERVED 00400002 ASVTFRST DS A - ADDRESS OF FIRST AVAILABLE ASVT 00450004 * ENTRY (MDC300) @Z40AQ9A 00453004 ASVTAVAI EQU X'80' - BIT ONE IF ASID IS AVAILABLE AND 00460002 * ZERO IF ASID IS ASSIGNED MDC002 00470002 ASVTENTY DS A - ENTRY FOR EACH POSSIBLE ASID. 00500004 * IF ADDRESS SPACE ASSIGNED, ENTRY 00550002 * CONTAINS ADDRESS OF ASCB. IF NOT 00600002 * ASSIGNED, ENTRY CONTAINS EITHER 00650002 * ADDRESS OF NEXT AVAILABLE ASID OR 00700002 * ZEROS WITH HIGH-ORDER BIT ON IF 00750004 * LAST ENTRY. (MDC301) @Z40AQ9A 00760004 ASVTAVAL EQU X'80' - BIT ONE IF ASID IS AVAILABLE AND 00800002 * ZERO IF ASID IS ASSIGNED 00810002 ASVTEND EQU * - END OF ASVT MDC003 00820002 ASVTLEN EQU ASVTEND-ASVT - LENGTH OF ASVT INCLUDING RESERVED 00830002 * FIELDS MDC004 00840002 ASVTULEN EQU ASVTEND-ASVTBEGN - LENGTH OF USED FIELDS IN ASVT MDC005 00842002 MEND , - */ 00850002 *%ASVTL2 : ; 00900002 * 00950002 *DCL 1 ASVT BASED(ASVTPTR) BDY(DWORD), 01000002 * 2 * CHAR(512), /* RESERVED FOR FUTURE EXPANSION */ 01050002 * 2 ASVTBEGN CHAR(0) /* BEGINNING OF ASVT */ 01100002 * BDY (DWORD), 01110002 * 2 ASVTASVT CHAR(4), /* ACRONYM IN EBCDIC -ASVT- */ 01150002 * 2 ASVTMAXU FIXED (31), /* MAXIMUM NUMBER OF ADDRESS SPACES*/ 01200002 * 2 ASVTRS00 FIXED(31), /* RESERVED */ 01250002 * 2 ASVTFRST PTR (31), /* ADDRESS OF FIRST AVAILABLE ASVT 01300004 * ENTRY (MDC300) @Z40AQ9A*/ 01303004 * 3 ASVTAVAI BIT(1), /* BIT ONE IF ASID IS AVAILABLE AND 01310002 * ZERO IF ASID IS ASSIGNED MDC002*/ 01320002 * 2 ASVTENTY (*) PTR (31), /* ENTRY FOR EACH POSSIBLE ASID. 01350004 * IF ADDRESS SPACE ASSIGNED, ENTRY 01400002 * CONTAINS ADDRESS OF ASCB. IF NOT 01450002 * ASSIGNED, ENTRY CONTAINS EITHER 01500002 * ADDRESS OF NEXT AVAILABLE ASID 01550002 * OR ZEROS WITH HIGH-ORDER BIT ON 01600004 * IF LAST ENTRY. 01610004 * (MDC301) @Z40AQ9A*/ 01620004 * 3 ASVTAVAL BIT(1), /* BIT ONE IF ASID IS AVAILABLE AND 01650002 * ZERO IF ASID IS ASSIGNED */ 01700002 * 2 ASVTEND CHAR(0) BDY(WORD); /* END OF ASVT MDC003*/ 01750002 *%ASVTLEN='LENGTH(ASVT)+4'; /* LENGTH OF ASVT INCLUDING 01800002 * RESERVED FIELDS MDC004*/ 01850002 *%ASVTULEN='LENGTH(ASVT)-508'; /* LENGTH OF USED FIELDS IN ASVT 01900002 * MDC005*/ 01950002