Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
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