iAPX 286 Operating System Writers Guide 1983

interBINDING AND LOADINGPL/M-286 COMPILER 960-521 date PAGE 2192021222324252627282930313233343536221221221221221111DECLARE CONN CONNECTION, EXCEP$P POINTER;END DQ$DETACH;DQ$OPEN:PROCEDURE (CONN,DECLARE CONNEXCEP$PEND DQ$OPEN;DQ$SEEK:(CONN,DECLAREACCESS, NUM$BUF , EXCEP$P) EXTERNAL;CONNECTION, (ACCESS, NUM$BUF) BYTE,POINTER; .PROCEDUREMODE, LOCATION, EXCEP$P) EXTERNAL;CONN CONNECTION, MODE BYTE,LOCATION DWORD,END DQ$SEEK;DQ$READ:(CONN,DECLAREEND DQ$READ;EXCEP$P POINTER;PROCEDUREBUF$P, COUNT, EXCEP$P) WORD EXTERNAL;CONN CONNECTION, COUNT WORD,(BUF$P, EXCEP$P) POINTER;DQ$CLOSE: PROCEDURE (CONN, EXCEP$P) EXTERNAL;DECLARE CONN CONNECTION, EXCEP$P POINTER;END DQ$CLOSE;/***************************************************** ~*//* Data */DECLARE IN_LDT LITERALLY '1',DATA W LITERALLY 'lll10010B', /* Access rights:present~ DPL=3, expand-up, writable, data segment */READ LITERALLY '1',EQUALS LITERALLY '0FFFFH',OK LITERALLY '0',EXCEPTION LITERALLY 'EXCEPOK';DECLARE BOND FILEACTUALSELWSELDECLARE FILE_HEADERDECLARE MODULE HEADERTOTAL-LENGTHSEGMENT COUNTGATE COUNTPUB COUNTEXT-COUNTLINKEDDATETIMEMODULE NAMECREATORIGNOREIPUBDEF LOCPUBDEF::::LENGTHCONNECTION,WORD,SELECTOR, /* for type conversion */WORD AT (@SEL);BYTE;(8 )(8 )(41)(41 )(6)STRUCTUREDWORD,WORD,WORD,WORD,WORD,BYTE,BYTE,BYTE,BYTE,BYTE,DWORD,miORD,DWORD,Figure 11-7. BOND Module of Binding Loader (Cont'd.)11-25 121960-001