Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-07 - 43,50446/getap.f4
There are no other files named getap.f4 in the archive.
	SUBROUTINE GETAP(X, Y)
C************************************************************
C
C  THIS ROUTINE IS USED TO RETURN THE USER CO-ORDINATES OF
C  THE AUX. POINTER.
C
C  POSSIBLE ERRORS:
C	?INVALID REPLY TO A POINTER REQUEST
C
C  ROUTINES CALLED:
C	GETPTR - POINTER RETRIEVAL ROUTINE
C
C************************************************************
	CALL GETPTR(5, X, Y)
	RETURN
	END