home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Resources / Misc.i < prev    next >
Text File  |  1990-08-28  |  689b  |  40 lines
  1. {
  2.     Misc.i for PCQ Pascal
  3.  
  4.     external declarations for misc system resources
  5. }
  6.  
  7. {$I "Include:Exec/Libraries.i"}
  8.  
  9.  
  10. {*******************************************************************
  11. *
  12. * Resource structures
  13. *
  14. *******************************************************************}
  15.  
  16. Const
  17.  
  18.     MR_SERIALPORT    = 0;
  19.     MR_SERIALBITS    = 1;
  20.     MR_PARALLELPORT    = 2;
  21.     MR_PARALLELBITS    = 3;
  22.  
  23.     NUMMRTYPES        = 4;
  24.  
  25. Type
  26.  
  27.     MiscResource = record
  28.     mr_Library    : Library;
  29.     mr_AllocArray    : Array [0..NUMMRTYPES-1] of Integer;
  30.     end;
  31.     MiscResourcePtr = ^MiscResource;
  32.  
  33. Const
  34.  
  35.     MR_ALLOCMISCRESOURCE    = LIB_BASE;
  36.     MR_FREEMISCRESOURCE        = LIB_BASE + LIB_VECTSIZE;
  37.  
  38.  
  39.     MISCNAME        = "misc.resource";
  40.