From: phk@data.fls.dk (Poul-Henning Kamp)
Newsgroups: comp.sources.hp48
Subject: v01i023:  prcl - Port Recall program v1.0, Part01/01
Date: 20 Aug 91 02:01:07 GMT
Followup-To: comp.sys.hp48

Checksum: 2271184336 (verify with brik -cv)
Submitted-by: Poul-Henning Kamp <phk@data.fls.dk>
Posting-number: Volume 1, Issue 23
Archive-name: prcl/part01

BEGIN_DOC prcl.doc
Hi,

Here is a small, but very usefull program:  PRCL ( Port Recall )

It takes an real on the stack, and recalls all objects (if any) in that
port and leaves the number of objects at the bottom of the stack.  This
allows objects from read-only cards to be recalled.

SYNTAX:

	Nport --> PRCL --> OBJn, .. OBJ1, Nobj

If you do not feed it a real, it will say something like:
	XLIB 2342 23 Error:
	Bad Argument Type
this is a harmless side effect of not having it in a library.

If you feed it a negative number you get port 0, if the number is above 2
you get port 2.
END_DOC

The source for those who use HACKIT ASC->

BEGIN_HACKIT prcl.hak
%%HP: T(1)A(D)F(.);
"@ PRCL.SRC by Poul-Henning Kamp [phk(at)data.fls.dk]
D9D20	@ :
ECE81	@ =CK1&Dispatch
9FF30	@ =real
D9D20	@ :
AEC81	@ =COERCE
22912	@ %Ap__RclPort__Ap,O...,Acnt
88130	@ =DUP
D2E30	@ =#2+
52330	@ =ROLL
44230	@ =DROP
FBD81	@ =UNCOERCE
B2130	@ ;
B2130	@ ;
"
END_HACKIT

ASC-coded for the rest:

BEGIN_ASC prcl.asc
%%HP: T(1)A(D)F(.);
@ PRCL.ASC
"D9D20ECE819FF30D9D20AEC812291288130D2E305233044230FBD81B2130B213
064FF"
END_ASC


BYTES: #FF46h	41.0

BEGIN_UU prcl.uu
begin 644 prcl
I2%!(4#0X+46=+>#L&/D_T-D"ZHPADB&(,=#B`R4S0"0#OXVQ$@,K,0`KK
``
end
END_UU

-- 
phk@data.fls.dk		  ||  A host is a host from coast to coast,
Poul-Henning Kamp	  ||  & no one will talk to a host that's close,
FLS DATA A/S		  ||  Unless the host (that isn't close)
Phone: (+45) 36 18 12 35  ||  is busy, hung or dead.
Fax:   (+45) 36 18 12 18  || 				Anon (?)