(*#-- BEGIN AutoRevision header, please do NOT edit!
*
* $VER: XpkMasterL.def 1.0 (27.01.98)
* Auth: T.B. (tonyiommi@geocities.com)
*
* Desc: LibCalls for xpkmaster 4.0 (27.12.96) by SDI
* Reqs: AMIGA OS 2.0
* Lang: MODULA-2
* Comp: Cyclone © by M. Timmermans
* 
*-- END AutoRevision header --*)

DEFINITION MODULE XpkMasterL {"xpkmaster.library",4}; (*$ Implementation- *)

FROM SYSTEM IMPORT ADDRESS;
FROM ExecD IMPORT LibraryPtr;
FROM UtilityD IMPORT TagItemPtr;
FROM XpkMasterD IMPORT FibPtr,StrPtr;
IMPORT r:Reg;

CONST xpkMasterMinVersion=4;
 xpkMasterName="xpkmaster.library";

VAR xpkMasterBase:LibraryPtr;

PROCEDURE Examine   (fib{r.A0}:FibPtr; tags{r.A1}:TagItemPtr):LONGINT; 								CODE -24H;
PROCEDURE Pack      (tags{r.A0}:TagItemPtr):LONGINT;                   								CODE -2AH;
PROCEDURE Unpack    (tags{r.A0}:TagItemPtr):LONGINT;                   								CODE -30H;
PROCEDURE Open      (xfh{r.A0}:FibPtr; tags{r.A1}:TagItemPtr):LONGINT;     						CODE -36H;
PROCEDURE Read      (xfh{r.A0}:FibPtr; buf{r.A1}:StrPtr; len{r.D0}:LONGINT):LONGINT;  CODE -3CH;
PROCEDURE Write     (xfh{r.A0}:FibPtr; buf{r.A1}:StrPtr; ulen{r.D0}:LONGINT):LONGINT; CODE -42H;
PROCEDURE Seek      (xfh{r.A0}:FibPtr; dist{r.D0},mode{r.D1}:LONGINT):LONGINT;        CODE -48H;
PROCEDURE Close     (xfh{r.A0}:FibPtr):LONGINT;                           						CODE -4EH;
PROCEDURE Query     (tags{r.A0}:TagItemPtr):LONGINT;                      						CODE -54H;

(* --- here start version 4 functions --- *)
PROCEDURE AllocObject   (type{r.D0}:LONGINT; tags{r.A0}:TagItemPtr):ADDRESS;          CODE -5AH;
PROCEDURE FreeObject    (type{r.D0}:LONGINT; object{r.A0}:ADDRESS);                   CODE -60H;
PROCEDURE PrintFault    (code{r.D0}:LONGINT; header{r.A0}:StrPtr):BOOLEAN;            CODE -66H;
PROCEDURE Fault         (code{r.D0}:LONGINT; header{r.A0},buffer{r.A1}:StrPtr; size{r.D1}:LONGINT):LONGINT; CODE -6CH;
PROCEDURE PassRequest   (tags{r.A0}:TagItemPtr):LONGINT;                             	CODE -72H;

END XpkMasterL.