* %GOTO FOEBSL; /* 02000021 MACRO 04000021 IHAFOE 06000021 ** FIX OWNERSHIP ELEMENT 08000021 ** 08050021 ** RELEASE 1 AOS, 11/4/71, LEVEL=1 08100021 ** 08150021 FOE DSECT , FOEPTR 10000021 FOEFLNKF DS 0F - FULLWORD REFERENCE FOR FOEFLINK 12000021 FOEFLAG DS BL1 - FLAG BYTE 14000021 FOEINT EQU X'80' - WHEN 1, FOE QUIESCED OR PURGED 16000021 FOEFLINK DS AL3 - FORWARD LINK-POINTER TO NEXT FOE OR 18000021 * 0 IF THIS IS LAST FOE 20000021 FOEVINDX DS XL2 - VIRTUAL INDEX OF PAGE REPRESENTED BY 22000021 * THIS FOE, 12 BIT VIRTUAL BLOCK NUMBER 24000021 * CONCATENATED TO 4 LOW ORDER 0 BITS 26000021 FOEFXCT DS H - FIX COUNT ASSOCIATED WITH THIS FOE 28000021 FOEEND DS 0C - END OF FIX OWNERSHIP ELEMENT 30000021 FOELEN EQU FOEEND-FOE - LENGTH OF FIX OWNERSHIP ELEMENT 32000021 MEND , */ 34000021 *%FOEBSL : ; 36000021 */* FIX OWNERSHIP ELEMENT */ 38000021 * 38050021 */* RELEASE 1 AOS, 11/4/71, LEVEL=1 */ 38100021 * 38150021 *DECLARE 40000021 * 1 FOE BASED(FOEPTR), 42000021 * 2 FOEFLNKF FIXED(31), /* FULLWORD REFERENCE FOR 44000021 * FOEFLINK */ 46000021 * 3 FOEFLAG CHAR(1), /* FLAG BYTE */ 48000021 * 4 FOEINT BIT(1), /* WHEN 1, FOE QUIESCED OR 50000021 * PURGED */ 52000021 * 4 * BIT(1), /* RESERVED */ 54000021 * 4 * BIT(1), /* RESERVED */ 56000021 * 4 * BIT(1), /* RESERVED */ 58000021 * 4 * BIT(1), /* RESERVED */ 60000021 * 4 * BIT(1), /* RESERVED */ 62000021 * 4 * BIT(1), /* RESERVED */ 64000021 * 4 * BIT(1), /* RESERVED */ 66000021 * 3 FOEFLINK PTR(24) BDY(BYTE), /* FORWARD LINK-POINTER TO 68000021 * NEXT FOE OR 0 IF THIS 70000021 * IS LAST FOE */ 72000021 * 2 FOEVINDX CHAR(2), /* VIRTUAL INDEX OF PAGE 74000021 * REPRESENTED BY THIS 76000021 * FOE, 12 BIT VIRTUAL 78000021 * BLOCK NUMBER 80000021 * CONCATENATED TO 4 LOW 82000021 * ORDER 0 BITS */ 84000021 * 2 FOEFXCT FIXED(15); /* FIX COUNT ASSOCIATED 86000021 * WITH THIS FOE */ 88000021 *DECLARE 1 FOEEND (*) CHAR(1) BASED 90000021 * (ADDR(FOE )+LENGTH(FOE )); 92000021 * /* END OF FIX OWNERSHIP 94000021 * ELEMENT */ 96000021