.TITLE	TOBITS
	.IDENT	/012381/
TOBITS::
	MOV	2(R5),R2
	MOV	4(R5),R3
	ADD	#24.,R3
	MOV	(R2)+,R1
	MOV	(R2),R0
	MOV	#24.,R2
1$:	BIT	#1,R1
	BEQ	2$
	MOVB	#1,-(R3)
	BR	3$
2$:	CLRB	-(R3)
3$:	ASHC	#-1,R0
	SOB	R2,1$
	RTS	PC
	.END