home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / AslL.def < prev    next >
Text File  |  1996-07-22  |  1KB  |  47 lines
  1. (*
  2. **    Cyclone Modula-2 Interface module:
  3. **    $VER: asl.h 38.5 (5.1.93)
  4. **    Includes Release 40.15
  5. **
  6. **    ASL library structures and constants
  7. **
  8. **    (C) Copyright 1989-1993 Commodore-Amiga Inc.
  9. **    (C) Copyright 1989-1990 Charlie Heath
  10. **    All Rights Reserved
  11. **
  12. **      Interface module by Marcel Timmermans
  13. **      (C) Copyright 1995-1996 Marcel Timmermans
  14. **      All Rights Reserved
  15. *)
  16.  
  17. DEFINITION MODULE AslL {"asl.library",36};
  18.  
  19. FROM SYSTEM IMPORT ADDRESS;
  20. FROM UtilityD IMPORT TagItemPtr;
  21.  
  22. IMPORT ad:AslD,ExecD,Reg;
  23.  
  24. VAR
  25.  aslBase:ExecD.LibraryPtr;
  26.  
  27. CONST
  28.  aslMinVersion=36;
  29.  aslName="asl.library";
  30.  
  31. PROCEDURE AllocFileRequest():ad.FileRequesterPtr; CODE -30;
  32.  
  33. PROCEDURE FreeFileRequest(VAR fileReq{Reg.A0}:ad.FileRequester); CODE -36;
  34.  
  35. PROCEDURE RequestFile(
  36.            VAR fileReq{Reg.A0}:ad.FileRequester):BOOLEAN; CODE -42;
  37.  
  38. PROCEDURE AllocAslRequest(type{Reg.D0}:LONGCARD;
  39.                           tagList{Reg.A0}:TagItemPtr):ADDRESS; CODE -48;
  40.  
  41. PROCEDURE FreeAslRequest(request{Reg.A0}:ADDRESS); CODE -54;
  42.  
  43. PROCEDURE AslRequest(request{Reg.A0}:ADDRESS;
  44.                      tagList{Reg.A1}:TagItemPtr):BOOLEAN; CODE -60;
  45.  
  46. END AslL.
  47.