ack/mach/ns/libem/cms.s

26 lines
295 B
ArmAsm
Raw Normal View History

1985-07-26 11:56:24 +00:00
.define .cms
.text
.cms: movd tos, r7 !return addres
addr 4(sp), r1
movd r1, r2
addd 0(sp), r2
movd 0(sp), r0
muld -2, r0
subd 4, r0
3:
cmpd 0(r2), 0(r1)
bne 2f
addr 4(r1), r1
addr 4(r2), r2
acbd -4, 0(sp), 3b
xord r1, r1
4:
adjspd r0
movd r7, tos
ret 0
2:
movd 1, r1
br 4b