33 lines
704 B
ArmAsm
33 lines
704 B
ArmAsm
|
#include "powerpc.h"
|
||
|
|
|
||
|
|
.sect .text
|
||
|
|
|
||
|
|
! Compare sets a, b.
|
||
|
|
! Stack: ( b a -- )
|
||
|
|
! With r3 = size of each set
|
||
|
|
! Yields r3 = 0 if equal, nonzero if not equal
|
||
|
|
|
||
|
|
.define .cms
|
||
|
|
.cms:
|
||
|
|
mr r4, sp ! r4 = ptr to set a
|
||
|
|
add r5, sp, r3 ! r5 = ptr to set b
|
||
|
|
mr r6, r3 ! r6 = size
|
||
|
|
rlwinm r3, r3, 30, 2, 31
|
||
|
|
mtspr ctr, r3 ! ctr = size / 4
|
||
|
|
1:
|
||
|
|
lwz r7, 0(r4)
|
||
|
|
lwz r8, 0(r5)
|
||
|
|
cmp cr0, 0, r7, r8 ! compare words in sets
|
||
|
|
addi r4, r4, 4
|
||
|
|
addi r5, r5, 4
|
||
|
|
bc IFFALSE, EQ, 2f ! branch if not equal
|
||
|
|
bc DNZ, 0, 1b ! loop ctr times
|
||
|
|
addi r3, r0, 0 ! equal: return 0
|
||
|
|
b 3f
|
||
|
|
2:
|
||
|
|
addi r3, r0, 1 ! not equal: return 1
|
||
|
|
3:
|
||
|
|
rlwinm r6, r6, 1, 0, 30 ! r6 = size * 2
|
||
|
|
add sp, sp, r6 ! remove sets from stack
|
||
|
|
bclr ALWAYS, 0, 0
|