#include "powerpc.h"

.sect .text

! Set complement.
!  Stack: ( a size -- ~a )

.define .com
.com:
	lwz r3, 0 (sp)       ! size
	addi sp, sp, 4

	mr	r4, sp			! r4 = pointer to set a
	rlwinm	r5, r3, 30, 2, 31
	mtspr	ctr, r5			! ctr = r3 / 4
1:
	lwz	r6, 0(r4)
	nor	r6, r6, r6		! complement of word
	stw	r6, 0(r4)
	addi	r4, r4, 4
	bc	DNZ, 0, 1b		! loop ctr times
	bclr	ALWAYS, 0, 0