.TITLE	TSTBIT
	.IDENT	/V01/
;
;	THIS FUNCTION TESTS IF THE BITS SPECIFIED IN BITMSK ARE
;	SET IN THE DATA.   CALLING SEQUENCE: II = TSTBIT(DATA,BITMSK)
;	R0 IS SET TO ONE IF ANY OF THE BITS ARE SET, ZERO ELSEWISE.
;
	.PSECT	$CODE1
TSTBIT::
	CLR	R0			;INITIALIZE R0
	BITB	@2(R5),@4(R5)		;TEST BITS
	BEQ	NO			;BRANCH IF NONE SET
	INC	R0			;RETURN A ONE
NO:	RETURN
	.END