1
0

mul.s 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293
  1. t = 97
  2. u = 98
  3. v = 99
  4. Q = 131
  5. link = 64
  6. TEXT _mull(SB), $-4
  7. DELAY /* need an instruction for SETIP to take effect */
  8. MTSR R0, R(Q)
  9. MSTEPL $0, R0, R(t)
  10. MSTEPL R(t), R0, R(t)
  11. MSTEPL R(t), R0, R(t)
  12. MSTEPL R(t), R0, R(t)
  13. MSTEPL R(t), R0, R(t)
  14. MSTEPL R(t), R0, R(t)
  15. MSTEPL R(t), R0, R(t)
  16. MSTEPL R(t), R0, R(t)
  17. MSTEPL R(t), R0, R(t)
  18. MSTEPL R(t), R0, R(t)
  19. MSTEPL R(t), R0, R(t)
  20. MSTEPL R(t), R0, R(t)
  21. MSTEPL R(t), R0, R(t)
  22. MSTEPL R(t), R0, R(t)
  23. MSTEPL R(t), R0, R(t)
  24. MSTEPL R(t), R0, R(t)
  25. MSTEPL R(t), R0, R(t)
  26. MSTEPL R(t), R0, R(t)
  27. MSTEPL R(t), R0, R(t)
  28. MSTEPL R(t), R0, R(t)
  29. MSTEPL R(t), R0, R(t)
  30. MSTEPL R(t), R0, R(t)
  31. MSTEPL R(t), R0, R(t)
  32. MSTEPL R(t), R0, R(t)
  33. MSTEPL R(t), R0, R(t)
  34. MSTEPL R(t), R0, R(t)
  35. MSTEPL R(t), R0, R(t)
  36. MSTEPL R(t), R0, R(t)
  37. MSTEPL R(t), R0, R(t)
  38. MSTEPL R(t), R0, R(t)
  39. MSTEPL R(t), R0, R(t)
  40. MSTEPLL R(t), R0, R(t)
  41. MFSR R(Q), R0
  42. JMP (R(link))
  43. TEXT _mulml(SB), $-4
  44. MOVL R(link), R(v)
  45. CALL _mull(SB)
  46. ORL $0, R(t), R0
  47. JMP (R(v))
  48. TEXT _mulul(SB), $-4
  49. DELAY /* need an instruction for SETIP to take effect */
  50. MTSR R0, R(Q)
  51. MSTEPUL $0, R0, R(t)
  52. MSTEPUL R(t), R0, R(t)
  53. MSTEPUL R(t), R0, R(t)
  54. MSTEPUL R(t), R0, R(t)
  55. MSTEPUL R(t), R0, R(t)
  56. MSTEPUL R(t), R0, R(t)
  57. MSTEPUL R(t), R0, R(t)
  58. MSTEPUL R(t), R0, R(t)
  59. MSTEPUL R(t), R0, R(t)
  60. MSTEPUL R(t), R0, R(t)
  61. MSTEPUL R(t), R0, R(t)
  62. MSTEPUL R(t), R0, R(t)
  63. MSTEPUL R(t), R0, R(t)
  64. MSTEPUL R(t), R0, R(t)
  65. MSTEPUL R(t), R0, R(t)
  66. MSTEPUL R(t), R0, R(t)
  67. MSTEPUL R(t), R0, R(t)
  68. MSTEPUL R(t), R0, R(t)
  69. MSTEPUL R(t), R0, R(t)
  70. MSTEPUL R(t), R0, R(t)
  71. MSTEPUL R(t), R0, R(t)
  72. MSTEPUL R(t), R0, R(t)
  73. MSTEPUL R(t), R0, R(t)
  74. MSTEPUL R(t), R0, R(t)
  75. MSTEPUL R(t), R0, R(t)
  76. MSTEPUL R(t), R0, R(t)
  77. MSTEPUL R(t), R0, R(t)
  78. MSTEPUL R(t), R0, R(t)
  79. MSTEPUL R(t), R0, R(t)
  80. MSTEPUL R(t), R0, R(t)
  81. MSTEPUL R(t), R0, R(t)
  82. MSTEPUL R(t), R0, R(t)
  83. MFSR R(Q), R0
  84. JMP (R(link))
  85. TEXT _mulmul(SB), $-4
  86. MOVL R(link), R(v)
  87. CALL _mulul(SB)
  88. ORL $0, R(t), R0
  89. JMP (R(v))