home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Exec / Resident.i < prev    next >
Text File  |  1990-08-28  |  1KB  |  47 lines
  1. {
  2.     Resident.i for PCQ Pascal
  3. }
  4.  
  5. {$I "Include:Exec/Nodes.i"}
  6.  
  7. type
  8.     Resident = record
  9.     rt_MatchWord    : Short;    { word to match on (ILLEGAL)    }
  10.     rt_MatchTag    : ^Resident;    { pointer to the above        }
  11.     rt_EndSkip    : Address;    { address to continue scan    }
  12.     rt_Flags    : Byte;        { various tag flags        }
  13.     rt_Version    : Byte;        { release version number    }
  14.     rt_Type        : Byte;        { type of module (NT_mumble)    }
  15.     rt_Pri        : Byte;        { initialization priority    }
  16.     rt_Name        : String;    { pointer to node name        }
  17.     rt_IdString    : String;    { pointer to ident string    }
  18.     rt_Init        : Address;    { pointer to init code        }
  19.     end;
  20.     ResidentPtr = ^Resident;
  21.  
  22. const
  23.     RTC_MATCHWORD    = $4AFC;
  24.  
  25.     RTF_AUTOINIT    = 128;
  26.     RTF_COLDSTART    = 1;
  27.  
  28. { Compatibility: }
  29.  
  30.     RTM_WHEN        = 3;
  31.     RTW_NEVER        = 0;
  32.     RTW_COLDSTART    = 1;
  33.  
  34.  
  35. Function FindResident(name : String) : ResidentPtr;
  36.     External;
  37.  
  38. Procedure InitCode(startClass, version : Integer);
  39.     External;
  40.  
  41. Procedure InitResident(resident : ResidentPtr; segList : Address);
  42.     External;
  43.  
  44. Procedure SumKickData;
  45.     External;
  46.  
  47.