.TITLE	MACRO BIT MANIPULATING SUBS FOR FORTRAN
;
;	SUBROUTINE TO BIC A VALUE
;
;	CALL BIC(IMASK,IVALUE)
;
BIC::	TST	(R5)+
	MOV	R0,-(SP)
	MOV	@(R5)+,R0	; GET MASK TO BIC
	BIC	R0,@(R5)	; DO THE BIC
	MOV	(SP)+,R0
	RTS	PC
;
;	CALL	R50NAM(BUFFER,I4VALUE)
;
R50NAM::
	MOV	R0,-(SP)
	MOV	R1,-(SP)
	MOV	R2,-(SP)
	TST	(R5)+
	MOV	(R5)+,R0	; OUTPUT BUFFER
	MOV	(R5),R5
	MOV	(R5)+,R1	; RAD50 VALUE
	CALL	$C5TA
	MOV	(R5)+,R1	; NEXT RAD50 VALUE
	CALL	$C5TA
10$:	MOV	(SP)+,R2	;RESTORE REGS
	MOV	(SP)+,R1
	MOV	(SP)+,R0
	RTS	PC

	.END