27 lines
472 B
ArmAsm
27 lines
472 B
ArmAsm
#include "powerpc.h"
|
|
|
|
.sect .text
|
|
|
|
! Set intersection.
|
|
! Stack: ( b a size -- a*b )
|
|
|
|
.define .and
|
|
.and:
|
|
lwz r3, 0 (sp) ! r3 = size
|
|
addi sp, sp, 4
|
|
|
|
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
|