#include "powerpc.h"

.sect .text

! Set intersection.
!  Stack: ( b a -- a*b )
!  With r3 = size of set

.define .and
.and:
	mr	r4, sp			! r4 = ptr to set a
	add	r5, sp, r3		! r5 = ptr to set b
	rlwinm	r6, r3, 30, 2, 31
	mtspr	ctr, r6			! ctr = r3 / 4
1:
	lwz	r7, 0(r4)
	lwz	r8, 0(r5)
	and	r8, r7, r8		! intersection of words
	stw	r8, 0(r5)
	addi	r4, r4, 4
	addi	r5, r5, 4
	bc	DNZ, 0, 1b		! loop ctr times
	add	sp, sp, r3
	bclr	ALWAYS, 0, 0