@database AslL
@node Main "AslL"

Procedures

   @{" AllocAslRequest " link Modul 37}             @{" AllocFileRequest " link Modul 30}            @{" AslRequest " link Modul 42}
   @{" FreeAslRequest " link Modul 40}              @{" FreeFileRequest " link Modul 32}             @{" RequestFile " link Modul 34}


Constants

   @{" aslMinVersion " link Modul 26}               @{" aslName " link Modul 28}                  

Variables

   @{" aslBase " link Modul 23}                  

@endnode
@node Modul "am2:ModuleRefs/AslL.def"
(*
**	Cyclone Modula-2 Interface module:
**	$VER: asl.h 38.5 (5.1.93)
**	Includes Release 40.15
**
**	ASL library structures and constants
**
**	(C) Copyright 1989-1993 Commodore-Amiga Inc.
**	(C) Copyright 1989-1990 Charlie Heath
**	All Rights Reserved
**
**      Interface module by Marcel Timmermans
**      (C) Copyright 1995-1996 Marcel Timmermans
**      All Rights Reserved
*)

DEFINITION MODULE AslL {"asl.library",36};

FROM SYSTEM IMPORT ADDRESS;
FROM UtilityD IMPORT TagItemPtr;

IMPORT ad:AslD,ExecD,Reg;

VAR
 aslBase:ExecD.LibraryPtr;

CONST
 aslMinVersion=36;
 aslName="asl.library";

PROCEDURE AllocFileRequest():ad.FileRequesterPtr; CODE -30;

PROCEDURE FreeFileRequest(VAR fileReq{Reg.A0}:ad.FileRequester); CODE -36;

PROCEDURE RequestFile(
           VAR fileReq{Reg.A0}:ad.FileRequester):BOOLEAN; CODE -42;

PROCEDURE AllocAslRequest(type{Reg.D0}:LONGCARD;
                          tagList{Reg.A0}:TagItemPtr):ADDRESS; CODE -48;

PROCEDURE FreeAslRequest(request{Reg.A0}:ADDRESS); CODE -54;

PROCEDURE AslRequest(request{Reg.A0}:ADDRESS;
                     tagList{Reg.A1}:TagItemPtr):BOOLEAN; CODE -60;

END AslL.

@endnode