.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.define	.and

        ! $Header$

	! bytes in r0
.and:
	movl	(sp)+,r3
	addl3	r0,sp,r1
	ashl	$-2,r0,r0
1:
	mcoml	(sp)+,r2
	bicl2	r2,(r1)+
	sobgtr	r0,1b
	jmp	(r3)