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