home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Libraries / Expansion.i < prev    next >
Text File  |  1990-08-28  |  1KB  |  49 lines
  1. {
  2.     Expansion.i for PCQ Pascal
  3.  
  4.     external definitions for expansion.library
  5. }
  6.  
  7. Const
  8.     EXPANSIONNAME    = "expansion.library";
  9.  
  10. { flags for the AddDosNode() call }
  11.     ADNB_STARTPROC    = 0;
  12.  
  13.     ADNF_STARTPROC    = 1;
  14.  
  15. Var
  16.     ExpansionBase : Address;
  17.  
  18.  
  19. Function AddDosNode(bootPri : Short; flags : Short;
  20.             deviceNode : Address) : Boolean;
  21.     External;
  22.     { deviceNode is actually a DeviceNodePtr }
  23.  
  24. Function AllocBoardMem(slotSpec : Short) : Short;
  25.     External;
  26.  
  27. Function AllocExpansionMem(numSlots, slotOffset : Short) : Short;
  28.     External;
  29.  
  30. Procedure FreeBoardMem(startSlot, slotSpec : Short);
  31.     External;
  32.  
  33. Procedure FreeExpansionMem(startSlot, numSlots : Short);
  34.     External;
  35.  
  36. Function MakeDosNode(parameterPkt : Address) : Address; { DeviceNodePtr }
  37.     External;
  38.  
  39. Function ReadExpansionByte(board : Address; offset : Integer) : Short;
  40.     External;
  41.  
  42. Function ReadExpansionRom(board : Address; configDev : Address) : Boolean;
  43.     External;
  44.  
  45. Function WriteExpansionByte(board : Address; offset : Integer;
  46.                 value : Byte) : Boolean;
  47.     External;
  48.  
  49.