.title 	test

	.inclu	"b:global"

	.byte	17, 17

RtoB1::	push	<r2, r3>
	asl	r0
	mov	131024(r0), r3	; Get file cluster size to r3
	mov	131042(r0), r2		; # of clusters per block
	cmp	r0, #8.
	blo	10$
	cmp	r0, #6.*2
	beq	10$			; File 6 special hack
	add	r2, r1
10$:	dec	r1
	clr	r0

	div	r2, r0

	inc	r0
	mul	r3, r1
	pop	<r3, r2>
	rts	pc

	.byte	17, 17, 0, 0 , 17, 17

RtoB2::	push	<r2, r3>
	asl	r0
	mov	131024(r0), r3	; Get file cluster size to r3
	mov	131042(r0), -(sp)	; # of clusters per block
	cmp	r0, #8.
	blo	10$
	add	(sp), r1
10$:	dec	r1
	clr	r0

	call	@#164742		; Block to r0, cluster in block to r1
	mov	r1, r0
	pop	r1

	inc	r0
	mul	r3, r1
	pop	<r3, r2>
	rts	pc

	.end	rtob1