dvu.s 310 B

1234567891011121314151617181920212223242526
  1. .define .dvu
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .sect .text
  8. .dvu:
  9. enter[r1,r2],0
  10. movd 1,r2
  11. andd 12(fp), r2
  12. movd 12(fp), r0
  13. lshd -1,r0
  14. quod 8(fp), r0
  15. lshd 1,r0
  16. movd 12(fp), r1
  17. lshd -1,r1
  18. remd 8(fp), r1
  19. lshd 1,r1
  20. addd r2, r1
  21. quod 8(fp),r1
  22. addd r1, r0
  23. exit[r1,r2]
  24. ret 8