|
|
1.1 root 1: /
2: / 32-bit multiplication routine for fixed pt hardware.
3: / Implements * operator
4: / Credit to an unknown author who slipped it under the door.
5: .globl lmul
6: .globl csv, cret
7:
8: lmul:
9: jsr r5,csv
10: mov 6(r5),r2
11: sxt r1
12: sub 4(r5),r1
13: mov 10.(r5),r0
14: sxt r3
15: sub 8.(r5),r3
16: mul r0,r1
17: mul r2,r3
18: add r1,r3
19: mul r2,r0
20: sub r3,r0
21: jmp cret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.