home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / packer / xpk_develop / include / modula2 / xpksubl.def < prev   
Encoding:
Modula Definition  |  1998-02-08  |  1.1 KB  |  30 lines
  1. (*#-- BEGIN AutoRevision header, please do NOT edit!
  2. *
  3. * $VER: XpkSubL.def 1.0 (27.01.98)
  4. * Auth: T.B. (tonyiommi@geocities.com)
  5. *
  6. * Desc: This is the Libcall-Module Glue example you have to use, if you want to write your own
  7. *       Sublibs. See also the RLEN.mod example (coming soon, by me).
  8. * Reqs: AMIGA OS 2.0
  9. * Lang: MODULA-2
  10. * Comp: Cyclone © by M. Timmermans
  11. * 
  12. *-- END AutoRevision header --*)
  13.  
  14. DEFINITION MODULE XpkSubL{"xyz.library",1}; (*$ Implementation- *)
  15.  
  16. FROM ExecD IMPORT LibraryPtr;
  17. FROM XpkSubD IMPORT InfoPtr,SubParamsPtr;
  18. IMPORT Reg;
  19.  
  20. CONST XpkSubName="xpksub.library"; XpkSubMinVersion=1;
  21. VAR XpkSubBase:LibraryPtr;
  22.  
  23. PROCEDURE PackerInfo    ():InfoPtr;                             CODE -1EH;
  24. PROCEDURE PackChunk     (pars{Reg.A0}:SubParamsPtr):LONGINT;    CODE -24H;
  25. PROCEDURE PackFree      (pars{Reg.A0}:SubParamsPtr);            CODE -2AH;
  26. PROCEDURE PackReset     (pars{Reg.A0}:SubParamsPtr):LONGINT;    CODE -30H;
  27. PROCEDURE UnpackChunk   (pars{Reg.A0}:SubParamsPtr):LONGINT;    CODE -36H;
  28. PROCEDURE UnpackFree    (pars{Reg.A0}:SubParamsPtr);            CODE -3CH;
  29.  
  30. END XpkSubL.