Network Mail received on 06-Apr-82 at 20:26

From: PSEUDO::SMITH       	"David Smith"
To:   MOLSON::OREILLY
Subject: Enclosed file "S:(1,112)IPEEK.MAC"

	.title	IPEEK
	.sbttl	IPEEK will simulate the RT-11 IPEEK routine
	.sbttl	for FORTRAN IV V2.5
	.page


	.psect	IPEEK

ipeek::	tst	(r5)+		;we don't want to know the number of arguments
	mov	@(r5)+,r0	;get the address to peek in user low core
	mov	@r0,@(r5)+	;peek the address and shove in r5 for Fortran
	return			;Thaaaaats all folks!!!

	.end