ack/mach/pdp/libem/xor.s

14 lines
135 B
ArmAsm
Raw Normal View History

1984-07-19 12:51:00 +00:00
.globl xor~
.globl save~,retu~
xor~:
jsr pc,save~
mov sp,r1
add r0,r1
asr r0
1:
mov (sp)+,r2
xor r2,(r1)+
sob r0,1b
jmp retu~