mli.s 368 B

12345678910111213141516171819202122232425262728293031323334353637
  1. .define .mli
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .mli:
  8. move.l 4(sp),d1
  9. move.l 8(sp),d0
  10. move.l d5,-(sp)
  11. clr d5
  12. tst.l d0
  13. bpl 1f
  14. neg.l d0
  15. not d5
  16. 1:
  17. tst.l d1
  18. bpl 2f
  19. neg.l d1
  20. not d5
  21. 2:
  22. move.l d0,-(sp)
  23. move.l d1,-(sp)
  24. jsr .mlu
  25. tst d5
  26. beq 3f
  27. neg.l d1
  28. negx.l d0
  29. 3:
  30. move.l (sp)+,d5
  31. move.l (sp)+,a0
  32. add.l #8,sp
  33. jmp (a0)
  34. .align 2