SUBROUTINE EIN1(IDA,IAD,I6)
C DATEN-BYTE VOM RMP
C RMP-REGISTER MIT SDS-RELAIS
C	 I6 = AKTUELLER INHALT VON REGISTER 6
C	IAD = ADRESSE DES DATEN-BYTE (0...7)
C	IDA = DATEN-BYTE
C FORTRAN II
C SR : AUS1.FT
S	CLA
S	TAD I \I6
S	AND (K7770	/ ADRESSTEIL BIT 9...11
S	TAD I \IAD	/ ADRESSE EINFUEGEN
S	DCA I \I6
	CALL AUS1(1,6,I6)
S	CLA
S	6632		/ DATEN-BYTE UEBERNEHMEN
S	AND (K0377	/ NUR BIT 4...11
S	DCA I \IDA
	RETURN
	END