;   arpreq(hail,file,dir,window)

		section __MERGED,BSS

fs		ds.l	1   ;hailing text
		ds.l	1   ;file name
		ds.l	1   ;directory
		ds.l	1   ;window requesting
		ds.w	1   ;LONG Align, idiots!  set to 0
		ds.l	1   ;func for wildcards
		ds.l	1   ;func to call w/intuimessages

		section text,CODE

		xdef	_arpreq
		xref	_LVOOldOpenLibrary
		xref	_LVOCloseLibrary
		xref	_SysBase

_LVOFileRequest equ	-294

arp_name_text	dc.b 'arp.library',0

_arpreq:
		lea.l	fs(A4),A0
		movem.l 4(sp),D0-D3             ;setup fields
		movem.l D0-D3,(A0)
		clr.w	fs+16(A4)
		move.l	_SysBase(A4),A6

		lea.l	arp_name_text(pc),a1    ;open library
		jsr	_LVOOldOpenLibrary(a6)
		tst.l	d0
		beq	.done
		move.l	d0,a6
		lea.l	fs(A4),a0
		jsr	_LVOFileRequest(A6)     ;call requestor
		move.l	D0,-(sp)                ;return value
		move.l	A6,A1			;CloseLibrary(arpbase)
		move.l	_SysBase(A4),A6
		jsr	_LVOCloseLibrary(A6)
		move.l	(sp)+,D0                ;return value
.done		rts

		END