|
|
1.1 root 1: #
2: # Copyright (c) 1979 Regents of the University of California
3: #
4: # char sccsid[] = "@(#)10mul.s 4.1 10/10/80";
5: #
6: # MULTIPLICATION AND SQUARING
7: #
8: _MUL2:
9: incl r10
10: cvtwl (sp)+,r0
11: cvtwl (sp)+,r1
12: mull3 r0,r1,-(sp)
13: jmp (r8)
14: _MUL24:
15: incl r10
16: cvtwl (sp)+,r0
17: mull2 r0,(sp)
18: jmp (r8)
19: _MUL42:
20: incl r10
21: movl (sp)+,r0
22: cvtwl (sp)+,r1
23: mull3 r0,r1,-(sp)
24: jmp (r8)
25: _SQR2:
26: _SQR4:
27: movl (sp),-(sp)
28: _MUL4:
29: incl r10
30: mull2 (sp)+,(sp)
31: jmp (r8)
32: _MUL28:
33: incl r10
34: cvtwd (sp)+,r0
35: muld2 r0,(sp)
36: jmp (r8)
37: _MUL82:
38: incl r10
39: movd (sp)+,r0
40: cvtwd (sp)+,r2
41: muld3 r0,r2,-(sp)
42: jmp (r8)
43: _MUL48:
44: incl r10
45: cvtld (sp)+,r0
46: muld2 r0,(sp)
47: jmp (r8)
48: _MUL84:
49: incl r10
50: movd (sp)+,r0
51: cvtld (sp)+,r2
52: muld3 r0,r2,-(sp)
53: jmp (r8)
54: _SQR8:
55: movd (sp),-(sp)
56: _MUL8:
57: incl r10
58: muld2 (sp)+,(sp)
59: jmp (r8)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.