dvu2.s 255 B

12345678910111213141516171819202122
  1. .define dvu2
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. dvu2:
  8. popl saveret, *RR14
  9. pop R2, *RR14
  10. pop R1, *RR14
  11. test R2
  12. jr MI, 1f
  13. ldk R0, $0
  14. div RR0, R2
  15. 2: pushl *RR14, saveret
  16. ret
  17. 1: cp R2, R1
  18. ldk R1, $0
  19. jr UGT, 2b
  20. inc R1
  21. jr 2b