PDP-10 Archive: decus/20-0125/setsta.for from decus_20tap4

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0125/setsta.for

There is 1 other file named setsta.for in the archive. Click here to see a list.

	INTEGER FUNCTION SETSTA(ITAL, LP)
C************************************************************
C
C  THIS FUNCTION RETURNS A STATUS-A INSTRUCTION.
C
C  FOR A DESCRIPTION OF PARAMETERS SEE "SETA.F4"
C
C  POSSIBLE ERRORS:
C	NONE
C
C  ROUTINES CALLED:
C	NONE
C
C************************************************************
	IMPLICIT INTEGER (A - Z)
	LOGICAL ITAL, LP

	STA = "171240
	IF(ITAL) STA = STA .OR. "20
	IF(LP) STA = STA .OR. "100
	SETSTA = STA
	RETURN
	END