Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0125/getap.for
There is 1 other file named getap.for in the archive. Click here to see a list.
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