SECTION asltest,code_c
	
	opt	o+,c-
	
	include	includes/libs.i

; -------> Open Asl Library (any version)
	
	move.l	$4.w,a6
	lea	ASLname,a1
	move.l	#0,d0
	jsr	OpenLibrary(a6)
	move.l	d0,ASLbase

; -------> Allocate File Requester Space
	
	move.l	ASLbase,a6
	jsr	AllocFileRequest(a6)
	move.l	d0,Requesthd
		
; -------> Display Requester

	move.l	ASLbase,a6
	move.l	Requesthd,a0
	jsr	RequestFile(a6)
	move.l	d0,reqoutput
	
; -------> Remove Requester Space

	move.l	ASLbase,a6
	move.l	Requesthd,a0
	jsr	FreeFileRequest(a6)
	
; -------> Close Asl Library

	move.l	$4.w,a6
	move.l	ASLbase,a1
	jsr	CloseLibrary(a6)
	moveq.w	#0,d0
	rts
	
; -------> Data and Equates


ASLname		dc.b	'asl.library',0
	Even	
ASLbase		dc.l	0	
Requesthd	dc.l	0
Reqoutput	dc.l	0

	end