* %GOTO SGTEBSL; /* 01000021 MACRO 02000021 IHASGTE 03000021 ** SEGMENT TABLE ENTRY 04000021 ** 04050021 * RELEASE 1 AOS, 11/3/71, LEVEL=1 04100021 ** 04150021 SGTSTE DSECT , STEPTR 05000021 SGTLK DS BL1 - LENGTH AND KEY BYTE 06000021 SGTPTL EQU X'F0' - PAGE TABLE LENGTH 07000021 SGTKEY EQU X'0F' - SEGMENT PROTECTION KEY 08000021 SGTPTO DS 0AL3 - FIRST 21 BITS CONCATENATED WITH 09000021 * THREE ZEROS ON THE LOW ORDER END 10000021 * FORM A 24 BIT REAL ADDRESS OF 11000021 * THE PAGE TABLE ORIGIN 12000021 SGTORG DS BL2 - FIRST 16 BITS OF THE ADDRESS 13000021 * OF THE PAGE TABLE ORIGIN 14000021 SGTBYTE DS BL1 - NEXT 5 BITS OF ADDRESS AND 15000021 * FLAG BITS 16000021 SGTEAC EQU X'06' - EXTERNAL ACCESS CODE 17000021 SGTPAM EQU X'01' - PAGE TABLE AVAILABILITY FLAG 18000021 * WHEN 1 = SEGMENT IS INVALID 19000021 SGTEND DS 0C - END OF SEGMENT TABLE ENTRY 20000021 SGTLEN EQU SGTEND-SGTSTE - LENGTH OF SEGMENT TABLE ENTRY 21000021 MEND , */ 22000021 *%SGTEBSL : ; 23000021 */* SEGMENT TABLE ENTRY */ 24000021 * 24050021 */* RELEASE 1 AOS, 11/3/71, LEVEL=1 */ 24100021 * 24150021 *DECLARE 25000021 * 1 SGTSTE BASED(STEPTR), 26000021 * 2 SGTLK CHAR(1), /* LENGTH AND KEY BYTE */ 27000021 * 3 SGTPTL BIT(4), /* PAGE TABLE LENGTH */ 28000021 * 3 SGTKEY BIT(4), /* SEGMENT PROTECTION KEY */ 29000021 * 2 SGTPTO PTR(24) BDY(BYTE), /* FIRST 21 BITS 30000021 * CONCATENATED WITH THREE 31000021 * ZEROS ON THE LOW ORDER 32000021 * END FORM A 24 BIT REAL 33000021 * ADDRESS OF THE PAGE 34000021 * TABLE ORIGIN */ 35000021 * 3 SGTORG CHAR(2), /* FIRST 16 BITS OF THE 36000021 * ADDRESS OF THE PAGE 37000021 * TABLE ORIGIN */ 38000021 * 3 SGTBYTE CHAR(1), /* NEXT 5 BITS OF ADDRESS 39000021 * AND FLAG BITS */ 40000021 * 4 * BIT(1), /* RESERVED */ 41000021 * 4 * BIT(1), /* RESERVED */ 42000021 * 4 * BIT(1), /* RESERVED */ 43000021 * 4 * BIT(1), /* RESERVED */ 44000021 * 4 * BIT(1), /* RESERVED */ 45000021 * 4 SGTEAC BIT(2), /* EXTERNAL ACCESS CODE */ 46000021 * 4 SGTPAM BIT(1); /* PAGE TABLE AVAILABILITY 47000021 * FLAG WHEN 1 = SEGMENT 48000021 * IS INVALID */ 49000021 *DECLARE 1 SGTEND (*) CHAR(1) BASED 50000021 * (ADDR(SGTSTE )+LENGTH(SGTSTE )); 51000021 * /* END OF SEGMENT TABLE 52000021 * ENTRY */ 53000021