|
|
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.