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