ack/mach/pdp/libem/xor.s
1994-06-24 14:02:31 +00:00

16 lines
206 B
ArmAsm

.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.define xor~
.extern save~,retu~
! $Id$
xor~:
jsr pc,save~
mov sp,r1
add r0,r1
asr r0
1:
mov (sp)+,r2
xor r2,(r1)+
sob r0,1b
jmp retu~