* %GOTO VATBSL; /* BILINGUAL MACRO 00050002 MACRO 00100002 IEFZB611 00150002 * 00200002 * VIRTUAL ADDRESS TABLE (VAT) 00250002 * 00300002 * OS-VS/2 RELEASE 2, 11/17/72, LEVEL=4 00350002 * 00400002 VAT DSECT VIRTUAL ADDRESS TABLE 00450002 VATX DS CL4 CHAIN PTR. TO VAT EXTENSION 00500002 VATBPTR DC CL4 PTR TO PREVIOUS EXTENSION 00510002 VATNO DS CL1 NUMBER OF LAST ENTRY USED 00550002 DS CL3 UNUSED 00600002 VATENTRY EQU * VAT ENTRY 00650002 VATOVA DS CL4 OLD VIRTUAL ADDRESS FIELD 00700002 VATROVA EQU VATOVA OLD VIRTUAL ADDRESS 00750002 VATNVA DS CL4 NEW VIRTUAL ADDRESS FIELD 00800002 VATRNVA EQU VATNVA NEW VIRTUAL ADDRESS 00850002 VATBLKID DS CL1 CONTROL BLOCK ID 00900002 VATMSW DS CL1 MERGE SWITCHES 00950002 VATNUPDT EQU X'80' DO NOT UPDATE BLOCK 01000002 VATDYNAM EQU X'40' ENTRY FOR DYNAMIC BLOCK 01010002 VATENTL EQU *-VATENTRY LENGTH OF ENTRY 01050002 DS 55CL14 SPACE FOR 55 MORE ENTRIES 01100002 MEND */ 01150002 *%VATBSL:; 01200002 */* VIRTUAL ADDRESS TABLE (VAT) */ 01250002 */* */ 01300002 */* OS-VS/2 RELEASE 2, 11/17/72, LEVEL=4 */ 01350002 */* */ 01360002 */* */ 01400002 * DECLARE 01450002 * 1 VAT BASED (VATPTR), /* VIRTUAL ADDRESS TABLE */ 01500002 * 2 VATX PTR(31), /* CHAIN PTR. TO VAT EXTENSION*/ 01550002 * 2 VATBPTR PTR(31), /* PTR. TO PREVIOUS EXTENSION */ 01550402 * 2 VATNO PTR(8), /* NUMBER OF LAST ENTRY USED */ 01552002 * 2 * CHAR(3), /* UNUSED */ 01554002 * 2 VATENTRY(56) CHAR(14) BDY(BYTE), /* VAT ENTRY */ 01600002 * 3 VATRBN FIXED(31), /* RELATIVE BLOCK NUMBER */ 01650002 * 3 VATOVA PTR(31), /* OLD VIRTUAL ADDRESS FIELD */ 01700002 * 4 VATROVA PTR(24) BDY(BYTE), /* OLD VIRTUAL ADDRESS */ 01710002 * 4 * CHAR(1), /* UNUSED */ 01750002 * 3 VATNVA PTR(31), /* NEW VIRTUAL ADDRESS FIELD */ 01770002 * 4 VATRNVA PTR(24) BDY(BYTE), /* NEW VIRTUAL ADDRESS */ 01772002 * 4 * CHAR(1), /* UNUSED */ 01780002 * 3 VATBLKID CHAR(1), /* CONTROL BLOCK ID */ 01850002 * 3 VATMSW BIT(8), /* MERGE SWITCHES */ 01900002 * 4 VATNUPDT BIT(1), /* DO NOT UPDATE BLOCK */ 01950002 * 4 VATDYNAM BIT(1), /* ENTRY FOR DYNAMIC BLOCK */ 01960002 * 4 * BIT(6); /* UNUSED */ 02000002 */* */ 02050002 */* END OF VAT */ 02100002