SUBROUTINE MASK(IN,IOUT,MASK)
C ANDS THE INPUT "IN" WITH "MASK". RESULT IS "IOUT"
C FORTRAN II
S	CLA CLL
S	TAD I \IN
S	AND I \MASK
S	DCA I \IOUT
	RETURN
	END