.TITLE	CLRBIT
	.IDENT	/V01/
;
;	THIS FUNCTION CLEARS THE BIT SPECIFIED IN BITDAT IN DATA.
;	CALLING SEQUENCE: CALL CLRBIT(DATA,BITDAT)
;
	.PSECT	$CODE1
CLRBIT::
	BICB	@4(R5),@2(R5)
	RETURN
	.END