home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / expansion.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.8 KB  |  51 lines
  1. {$if not def EXPANSION_LIB_H} CONST EXPANSION_LIB_H=0;
  2.  
  3. { ***************************************************************
  4.   ** KickPascal-Include-Datei "expansion.lib" zu Kickstart 3.0 **
  5.   *************************************************************** }
  6.  
  7. {$if not def LIBRARIES_EXPANSION_H;incl "libraries/expansion.h";endif}
  8. {$if not def LIBRARIES_CONFIGVARS_H;incl "libraries/configvars.h";endif}
  9. {$if not def DOS_FILEHANDLER_H;incl "dos/filehandler.h";endif}
  10.  
  11.  
  12. VAR ExpansionBase : Ptr;
  13.  
  14. LIBRARY ExpansionBase :
  15.  
  16. { *** Routinen ab V33 / Release 1.2 *** }
  17.  
  18.  -30 : PROCEDURE AddConfigDev(A0:p_ConfigDev);
  19.  
  20. { *** Routinen ab V36 / Release 2.0 *** }
  21.  
  22.  -36 : FUNCTION  AddBootNode(D0:LongInt; D1:Long; A0:p_DeviceNode; A1:p_ConfigDev): Boolean;
  23.  
  24. { *** Routinen ab V33 / Release 1.2 *** }
  25.  
  26.  -42 : PROCEDURE AllocBoardMem(D0:Long);
  27.  -48 : FUNCTION  AllocConfigDev: p_ConfigDev;
  28.  -54 : FUNCTION  AllocExpansionMem(D0,D1:Long): Ptr;
  29.  -60 : PROCEDURE ConfigBoard(A0: Ptr; A1:ConfigDev);
  30.  -66 : PROCEDURE ConfigChain(A0:Ptr);
  31.  -72 : FUNCTION  FindConfigDev(A0:p_ConfigDev; D0,D1:LongInt): p_ConfigDev;
  32.  -78 : PROCEDURE FreeBoardMem(D0,D1:Long);
  33.  -84 : PROCEDURE FreeConfigDev(A0:p_ConfigDev);
  34.  -90 : PROCEDURE FreeExpansionMem(D0,D1:Long);
  35.  -96 : FUNCTION  ReadExpansionByte(A0:Ptr; D0:Long): Byte;
  36. -102 : PROCEDURE ReadExpansionRom(A0:Ptr; A1:p_ConfigDev);
  37. -108 : PROCEDURE RemConfigDev(A0:p_ConfigDev);
  38. -114 : PROCEDURE WriteExpansionByte(A0:Ptr; D0,D1:Long);
  39. -120 : PROCEDURE ObtainConfigBinding;
  40. -126 : PROCEDURE ReleaseConfigBinding;
  41. -132 : PROCEDURE SetCurrentBinding(A0:p_CurrentBinding; D0:Long);
  42. -138 : FUNCTION  GetCurrentBinding(A0:p_CurrentBinding; D0:Long): Long;
  43. -144 : FUNCTION  MakeDosNode(A0:Ptr): p_DeviceNode;
  44. -150 : FUNCTION  AddDosNode(D0:LongInt; D1:Long; A0:p_DeviceNode): Boolean;
  45.  
  46. { *** Routinen ab V36 / Release 2.0 *** }
  47.  
  48. { *** 2 private Routinen *** }
  49. END;
  50. {$endif}
  51.