ack/mach/ns/libem/dvu.s
1985-07-26 11:56:24 +00:00

22 lines
246 B
ArmAsm

.define .dvu
.text
.dvu:
enter[r1,r2],0
movd 1,r2
andd 12(fp), r2
movd 12(fp), r0
lshd -1,r0
quod 8(fp), r0
lshd 1,r0
movd 12(fp), r1
lshd -1,r1
remd 8(fp), r1
lshd 1,r1
addd r2, r1
quod 8(fp),r1
addd r1, r0
exit[r1,r2]
ret 8