home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / cardres.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  1.4 KB  |  34 lines
  1. {$if not def CARDRES_LIB_H} CONST CARDRES_LIB_H=0;
  2.  
  3. { *************************************************************
  4.   ** KickPascal-Include-Datei "cardres.lib" zu Kickstart 3.0 **
  5.   ************************************************************* }
  6.  
  7. {$if not def EXEC_RESIDENT_H;incl "exec/resident.h";endif}
  8. {$if not def RESOURCES_CARD_H;incl "resources/card.h";endif}
  9.  
  10. VAR CardResource : Ptr;
  11.  
  12. LIBRARY CardResource:
  13.  
  14.   -6 : FUNCTION  OwnCard(A1:p_CardHandle): p_CardHandle;
  15.  -12 : PROCEDURE ReleaseCard(A1:p_CardHandle; D0:Long);
  16.  -18 : FUNCTION  GetCardMap: p_CardMemoryMap;
  17.  -24 : FUNCTION  BeginCardAccess(A1:p_CardHandle): Boolean;
  18.  -30 : FUNCTION  EndCardAccess(A1:p_CardHandle): Boolean;
  19.  -36 : FUNCTION  ReadCardStatus: Byte;
  20.  -42 : FUNCTION  CardResetRemove(A1:p_CardHandle; D0:Long): Boolean;
  21.  -48 : FUNCTION  CardMiscControl(A1:p_CardHandle; D1:Long): Byte;
  22.  -54 : FUNCTION  CardAccessSpeed(A1:p_CardHandle; D0:Long): Long;
  23.  -60 : FUNCTION  CardProgramVoltage(A1:p_CardHandle; D0:Long): Long;
  24.  -66 : FUNCTION  CardResetCard(A1:p_CardHandle): Boolean;
  25.  -72 : FUNCTION  CopyTuple(A1:p_CardHandle; A0:Ptr; D1:Long; D0:Long): Boolean;
  26.  -78 : FUNCTION  DeviceTuple(A0:Ptr; A1:p_DeviceTData): Long;
  27.  -84 : FUNCTION  IfAmigaXIP(A2:p_CardHandle): p_Resident;
  28.  -90 : FUNCTION  CardForceChange: Boolean;
  29.  -96 : FUNCTION  CardChangeCount: Long;
  30. -104 : FUNCTION  CardInterface: Long;
  31. END;
  32.  
  33. {$endif}
  34.