Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50437/gettab.for
There are no other files named gettab.for in the archive.
	INTEGER FUNCTION GETTAB(INDEX,TABNUM)
	IMPLICIT INTEGER(A-Z)
C
C	GETTAB
C
C	RETURN SPECIFIED GETTAB ITEM
C
C	CALL:
C		ITEM = GETTAB(INDEX,TABNUM)
C
C	WHERE:
C		ITEM	ITEM RETURNED
C		INDEX	SPECIFIED INDEX
C		TABNUM	TABLE NUMBER
C
C
C	--MAKE CONTENTS OF AC AND DO GETTAB
C
	AC = XWD(INDEX,TABNUM)
	CALL CALLI("41,AC)
	GETTAB = AC
	RETURN
	END