(*************************************************************************

:Program.    XpkSubL.def
:Contents.   Lib-Call-Interface-Module for XpkSub-libraries
:Author.     Oliver Knorr
:Remark.     Derived from Hartmut Goebel's Oberon Interface
:Remark.     This is yet untested!
:Copyright.  Copyright © 1992 by Oliver Knorr
:Copyright.  May be freely distributed with the Xpk-Package
:Copyright.  permission is given to be included with M2Amiga
:Language.   Modula-2
:Translator. M2Amiga V4.0
:History.    V1.0, 29 Jul 1992 Oliver Knorr
:Date.       29 Jul 1992 01:28:40

*************************************************************************)

DEFINITION MODULE XpkSubL;

IMPORT d:XpkSubD, R, ExecD;

VAR
  xpkSubVersion : INTEGER;
  subBase : ExecD.LibraryPtr;

PROCEDURE XpksPackerInfo  (): d.XpkInfoPtr; CODE -30;
PROCEDURE XpksPackChunk   (params{R.A0}: d.XpkSubParamsPtr): LONGINT; CODE -36;
PROCEDURE XpksPackFree    (params{R.A0}: d.XpkSubParamsPtr); CODE -42;
PROCEDURE XpksPackReset   (params{R.A0}: d.XpkSubParamsPtr): LONGINT; CODE -48;
PROCEDURE XpksUnpackChunk (params{R.A0}: d.XpkSubParamsPtr): LONGINT; CODE -54;
PROCEDURE XpksUnpackFree  (params{R.A0}: d.XpkSubParamsPtr); CODE -60;

END XpkSubL.