(*#-- BEGIN AutoRevision header, please do NOT edit!
*
* $VER: XpkSubL.def 1.0 (27.01.98)
* Auth: T.B. (tonyiommi@geocities.com)
*
* Desc: This is the Libcall-Module Glue example you have to use, if you want to write your own
*       Sublibs. See also the RLEN.mod example (coming soon, by me).
* Reqs: AMIGA OS 2.0
* Lang: MODULA-2
* Comp: Cyclone © by M. Timmermans
* 
*-- END AutoRevision header --*)

DEFINITION MODULE XpkSubL{"xyz.library",1}; (*$ Implementation- *)

FROM ExecD IMPORT LibraryPtr;
FROM XpkSubD IMPORT InfoPtr,SubParamsPtr;
IMPORT Reg;

CONST XpkSubName="xpksub.library"; XpkSubMinVersion=1;
VAR XpkSubBase:LibraryPtr;

PROCEDURE PackerInfo    ():InfoPtr;                             CODE -1EH;
PROCEDURE PackChunk     (pars{Reg.A0}:SubParamsPtr):LONGINT;    CODE -24H;
PROCEDURE PackFree      (pars{Reg.A0}:SubParamsPtr);            CODE -2AH;
PROCEDURE PackReset     (pars{Reg.A0}:SubParamsPtr):LONGINT;    CODE -30H;
PROCEDURE UnpackChunk   (pars{Reg.A0}:SubParamsPtr):LONGINT;    CODE -36H;
PROCEDURE UnpackFree    (pars{Reg.A0}:SubParamsPtr);            CODE -3CH;

END XpkSubL.