BUFR=4
BUFSIZ=8

	.ENTRY	CVT10,^M<R2,R3>
	MOVL	BUFR(AP),R0
	CLRL	R1
CVT.1:	CMPL	R1,@BUFSIZ(AP)
	BLSS	CVT.4
	MOVL	#1,R0
	RET
CVT.4:	CLRL	R2
	MOVL	#3,R3
	BRB	CVT.3
CVT.2:	ROTL	#8,R2,R2
CVT.3:	BISB2	(R1)[R0],R2
	CLRB	(R1)+[R0]
	SOBGEQ	R3,CVT.2

	EXTZV	#25,#7,R2,R3
	MOVB	R3,-4(R1)[R0]
	EXTZV	#18,#7,R2,R3
	MOVB	R3,-3(R1)[R0]
	EXTZV	#11,#7,R2,R3
	MOVB	R3,-2(R1)[R0]
	EXTZV	#4,#7,R2,R3
	MOVB	R3,-1(R1)[R0]
	BICL2	#^XFFFFFFF3,R2
	EXTZV	#1,#5,(R1)[R0],R3
	ROTL	#3,R2,R2
	BISL2	R3,R2
	MOVB	R2,(R1)+[R0]
	BRB	CVT.1
	.END