ack/mach/vax4/libem/xor.s
1985-01-18 14:30:03 +00:00

13 lines
147 B
ArmAsm

# $Header$
.globl .xor
# bytes in r0
.xor:
movl (sp)+,r2
addl3 r0,sp,r1
ashl $-2,r0,r0
L1:
xorl2 (sp)+,(r1)+
sobgtr r0,L1
jmp (r2)