PDP-10 Archive: 43,50446/setsta.f4 from decuslib10-07

Trailing-Edge - PDP-10 Archives - decuslib10-07 - 43,50446/setsta.f4

There are no other files named setsta.f4 in the archive.

	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