mlu4.s 323 B

1234567891011121314151617181920212223
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define mlu4~
  4. .extern save~,retu~
  5. ! $Id$
  6. mlu4~:
  7. jsr pc,save~
  8. clr r1
  9. mov 02(sp),r0
  10. mov 06(sp),r3
  11. mul r3,r0
  12. tst r3
  13. bge 1f
  14. add 02(sp),r0
  15. 1: mov 02(sp),r3
  16. mul 04(sp),r3
  17. add r3,r0
  18. mov 06(sp),r3
  19. mul (sp),r3
  20. add r3,r0
  21. add $010,sp
  22. jmp retu~