ack/mach/ns/libem/dvu.s
1987-01-16 16:49:46 +00:00

27 lines
310 B
ArmAsm

.define .dvu
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
.sect .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