ack/mach/ns/libem/cmu.s

30 lines
327 B
ArmAsm
Raw Normal View History

1985-07-26 11:56:24 +00:00
.define .cmu
.text
.cmu: 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)
bhi 1f
blo 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
1:
movd 1, r1
br 4b
2:
movd -1, r1
br 4b