mli4.s 290 B

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