home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Libraries / ExpansionBase.i < prev    next >
Text File  |  1990-08-28  |  741b  |  40 lines
  1. {
  2.     ExpansionBase.i for PCQ Pascal
  3. }
  4.  
  5. {$I "Include:Exec/Libraries.i"}
  6. {$I "Include:Exec/Interrupts.i"}
  7. {$I "Include:Exec/Semaphores.i"}
  8. {$I "Include:Libraries/ConfigVars.i"}
  9.  
  10. Const
  11.  
  12.     TOTALSLOTS    = 256;
  13.  
  14. Type
  15.  
  16.     ExpansionInt = record
  17.     IntMask        : Short;
  18.     ArrayMax    : Short;
  19.     ArraySize    : Short;
  20.     end;
  21.     ExpansionIntPtr = ^ExpansionInt;
  22.  
  23.  
  24.     ExpansionBaseRec = record
  25.     LibNode        : Library;
  26.     Flags        : Byte;
  27.     pad        : Byte;
  28.     ExecBase    : Address;
  29.     SegList        : Address;
  30.     eb_CurrentBinding    : CurrentBinding;
  31.     BoardList    : List;
  32.     MountList    : List;
  33.     AllocTable    : Array [0..TOTALSLOTS-1] of Byte;
  34.     BindSemaphore    : SignalSemaphore;
  35.     Int2List    : Interrupt;
  36.     Int6List    : Interrupt;
  37.     Int7List    : Interrupt;
  38.     end;
  39.     ExpansionBasePtr = ^ExpansionBaseRec;
  40.