home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / disk.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  669 b   |  25 lines
  1. {$if not def DISK_LIB_H} CONST DISK_LIB_H=0;
  2.  
  3. { **********************************************************
  4.   ** KickPascal-Include-Datei "disk.lib" zu Kickstart 3.0 **
  5.   ********************************************************** }
  6.  
  7. {$if not def RESOURCES_DISK_H;incl "resources/disk.h";endif}
  8.  
  9. VAR DiskBase : Ptr;
  10.  
  11. LIBRARY DiskBase:
  12.  
  13.  -6 : FUNCTION  AllocUnit(D0:LongInt): Boolean;
  14. -12 : PROCEDURE FreeUnit(D0:LongInt);
  15. -18 : FUNCTION  GetUnit(A1:p_DiscResourceUnit): p_DiscResourceUnit;
  16. -24 : PROCEDURE GiveUnit;
  17. -30 : FUNCTION  GetUnitID(D0:LongInt): LongInt;
  18.  
  19. { *** Routine ab V37 / Release 2.04 *** }
  20.  
  21. -36 : FUNCTION ReadUnitID(D0:LongInt): LongInt;
  22. END;
  23.  
  24. {$endif}
  25.