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