rmu2.s 258 B

12345678910111213141516171819202122
  1. .define rmu2
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. rmu2:
  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: ld R0, R1
  18. cp R2, R1
  19. jp UGT, 2b
  20. sub R0, R2
  21. jp 2b