1985-07-26 11:56:24 +00:00
|
|
|
.define .dvu
|
1987-01-16 16:49:46 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-07-26 11:56:24 +00:00
|
|
|
|
1987-01-16 16:49:46 +00:00
|
|
|
.sect .text
|
1985-07-26 11:56:24 +00:00
|
|
|
|
|
|
|
|
.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
|
