* %GOTO LPDEBSL; /* 00050002 MACRO 00100002 IHALPDE 00150002 LPDE DSECT 00200002 SPACE 1 00250002 *********************************************************************** 00300002 * LINK PACK DIRECTORY ENTRY * 00350002 * * 00400002 * AOS/2 REL 2, 04/07/72, LEVEL=3 * 00450002 *********************************************************************** 00500002 SPACE 1 00550002 LPDECHN DS F - ADDRESS OF NEXT LPDE IN CHAIN OF LPDE 00600002 * SYNONYMS 00650002 LPDERBP DS F - RESERVED 00700002 LPDENAME DS CL8 - EITHER MODULE NAME OR ALIAS NAME 00750002 LPDENTP DS F - RELOCATED ENTRY POINT ADDRESS 00800002 LPDEXLP DS F - RESERVED 00850002 LPDEUSE DS H - COUNT FIELD - COUNT EQUALS ONE 00900002 LPDERES1 DS H - RESERVED FOR FUTURE USE 00950002 LPDEATTR DS B - ATTRIBUTE FLAGS 01000002 LPDENIP EQU X'80' - MODULE LOADED BY NIP 01050002 LPDEREN EQU X'20' - MODULE IS REENTERABLE 01100002 LPDESER EQU X'10' - MODULE IS SERIALLY REUSABLE 01150002 LPDEMIN EQU X'04' - THIS IS A MINOR LPDE 01200002 LPDENLR EQU X'01' - NOT LOADABLE ONLY 01250002 LPDEATT2 DS B - SECOND ATTRIBUTE FLAG BYTE 01300002 LPDEXLE EQU X'20' - EXTENT LIST BUILT - MAIN STORAGE 01350002 * OCCUPIED BY MODULE IS DESCRIBED THEREIN 01400002 LPDERLC EQU X'10' - LPDE CONTAINS A RELOCATED ALIAS ENTRY 01450002 * POINT ADDRESS 01500002 LPDESYSL EQU X'02' - AUTHORIZED LIBRARY MODULE 01550002 LPDEAUTH EQU X'01' - PROGRAM AUTHORIZATION FLAG ICB360 01600002 LPDEATT3 DS H - RESERVED 01650002 LPDEMJNM DS 0CL8 - MAJOR LPDE ENTRY POINT NAME WHEN 01700002 * LPDEMIN=1 OR 8-BYTE EXTENT LIST IF 01750002 * LPDEMIN=0 01800002 LPDEXTLN DS F - LENGTH OF MAIN STORAGE BLOCK IN WHICH 01850002 * MODULE RESIDES 01900002 LPDEXTAD DS A - ADDRESS OF MAIN STORAGE BLOCK IN WHICH 01950002 * MODULE RESIDES 02000002 MEND , */ 02050002 *%LPDEBSL : ; 02100002 * 02150002 * /* *************************************************************** */ 02200002 * /* LINK PACK DIRECTORY ENTRY */ 02250002 * /* */ 02300002 * /* AOS/2 REL 2, 04/07/72, LEVEL=3 */ 02350002 * /* *************************************************************** */ 02400002 * 02450002 *DECLARE 02500002 * 1 LPDE BASED(LPDEPTR), 02550002 * 2 LPDECHN PTR(31), /* ADDRESS OF NEXT LPDE IN 02600002 * CHAIN OF LPDE SYNONYMS */ 02650002 * 2 LPDERBP PTR(31), /* RESERVED */ 02700002 * 2 LPDENAME CHAR(8), /* EITHER MODULE NAME OR 02750002 * ALIAS NAME */ 02800002 * 2 LPDENTP PTR(31), /* RELOCATED ENTRY POINT 02850002 * ADDRESS */ 02900002 * 2 LPDEXLP PTR(31), /* RESERVED */ 02950002 * 2 LPDEUSE PTR(15), /* COUNT FIELD - COUNT IS 1 */ 03000002 * 2 * PTR(15), /* RESERVED FOR FUTURE USE */ 03050002 * 2 LPDEATTR CHAR(1), /* ATTRIBUTE FLAGS */ 03100002 * 3 LPDENIP BIT(1), /* MODULE LOADED BY NIP */ 03150002 * 3 * BIT(1), /* RESERVED */ 03200002 * 3 LPDEREN BIT(1), /* MODULE IS REENTERABLE */ 03250002 * 3 LPDESER BIT(1), /* MODULE IS SERIALLY 03300002 * REUSABLE */ 03350002 * 3 * BIT(1), /* RESERVED */ 03400002 * 3 LPDEMIN BIT(1), /* THIS IS A MINOR LPDE */ 03450002 * 3 * BIT(1), /* RESERVED */ 03500002 * 3 LPDENLR BIT(1), /* NOT LOADABLE ONLY */ 03550002 * 2 LPDEATT2 CHAR(1), /* SECOND ATTRIBUTE FLAG 03600002 * BYTE */ 03650002 * 3 * BIT(2), /* RESERVED */ 03700002 * 3 LPDEXLE BIT(1), /* EXTENT LIST BUILT - 03750002 * MAIN STORAGE OCCUPIED 03800002 * BY MODULE IS DESCRIBED 03850002 * THEREIN */ 03900002 * 3 LPDERLC BIT(1), /* LPDE CONTAINS A RELOCATED 03950002 * ALIAS ENTRY POINT ADDRESS*/ 04000002 * 3 * BIT(1), /* RESERVED */ 04050002 * 3 * BIT(1), /* RESERVED */ 04100002 * 3 LPDESYSL BIT(1), /* AUTHORIZED LIBRARY MODULE*/ 04150002 * 3 LPDEAUTH BIT(1), /* PROGRAM AUTHORIZATION 04200002 * FLAG ICB360*/ 04250002 * 2 LPDEATT3 FIXED(15), /* RESERVED VS02728*/ 04300002 * 2 LPDEMJNM CHAR(8) BDY(WORD), /* MAJOR LPDE ENTRY POINT 04350002 * NAME WHEN LPDEMIN=1 OR 04400002 * 8-BYTE EXTENT LIST IF 04450002 * LPDEMIN=0 */ 04500002 * 3 LPDEXTLN FIXED(31), /* LENGTH OF MAIN STORAGE 04550002 * BLOCK IN WHICH MODULE 04600002 * RESIDES */ 04650002 * 3 LPDEXTAD PTR(31); /* ADDRESS OF MAIN STORAGE 04700002 * BLOCK IN WHICH MODULE 04750002 * RESIDES */ 04800002