\ arp_support
\ general support for the arp.library
\ 3/25/90
\
\ (c) Copyright 1989. 1990 by Richard Mazzarisi
\      (rich@californium.cchem.berkeley.edu)
\
\ 11/24/89 original library functions and file requester
\ 3/25/89  alternate open library function

ANEW task-arp_support

\ add arp.library to the system

:LIBRARY arp

: arp?	arp_name arp_lib LIB? ;
: -arp	arp_lib -LIB ;


: open.arp-lib		( -- t/f )
\ tries to open lib; returns success flag
\ does NOT automatically quit as does ?arp
	arp_lib DUP @ 0= IF
		arp_name OPENLIB  DUP ROT !
	ELSE
		DROP TRUE   \ already open
	THEN
;


\ *** functions ***

\ file requester

: ArpAllocFreq()        ( -- filerequester )
\ return a structure relative address for use in FileRequest()
	CALL arp_lib ArpAllocFreq IF>REL
;


: FileRequest()         ( filerequester -- filebuffer )
	CALL>ABS arp_lib FileRequest IF>REL
;