SUBROUTINE DAT(IN)
C DATEN VOM RMP - BYTE ADRESSIERT MIT SUBROUTINE "OUT"
C FORTRAN II
S	CLA
S	6632		/DATEN UEBERNEHMEN
S	AND (K0377	/NUR BIT 4...11
S	DCA I \IN
	RETURN
	END