home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
402.lha
/
IconTools
/
arp
/
arp_support
< prev
next >
Wrap
Text File
|
1990-07-27
|
873b
|
45 lines
\ 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
;