FUNCTION RMPBIT(NBYTE,NBIT,I6)
C TEST EINES RMP-BIT
C NBYTE : NUMMER DES BYTE (0...7)
C  NBIT : NUMMER DES BIT (11...4)
C    I6 : AKTUELLER INHALT VON REGISTER 6
C FORTRAN II
C SR : EIN.FT / AUS.FT / IBIT.SB
	IN=0
	CALL EIN(IN,NBYTE,I6)
	RMPBIT=IBIT(IN,NBIT)
	RETURN
	END