![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to spill.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mc-sun / tst|
Return to spill.s CVS log | Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mc-sun / tst |
1.1 root 1: .text
2: .globl _main
3: .align 2
4: _main:link a6,#-0
5: L1:
6: unlk a6
7: rts
8: .globl _f
9: .align 2
10: _f:link a6,#-8
11: moveml #0x90,a6@(-8)
12: jbsr _f:l
13: movl d0,d7
14: jbsr _f:l
15: movl d7,d4; addl d0,d4
16: movl d4,a6@(8)
17: L2:
18: moveml a6@(-8),#0x90
19: unlk a6
20: rts
21: .globl _f2
22: .align 2
23: _f2:link a6,#-12
24: moveml #0xd0,a6@(-12)
25: jbsr _f:l
26: movl d0,d6
27: tstl a6@(8); jeq L6
28: jbsr _f:l
29: movl d0,d7
30: jra L7
31: L6:
32: movl #1,d7
33: L7:
34: movl d6,d4; addl d7,d4
35: movl d4,a6@(8)
36: L4:
37: moveml a6@(-12),#0xd0
38: unlk a6
39: rts
40: .globl _f3
41: .align 2
42: _f3:link a6,#-48
43: moveml #0x4e0,a6@(-48)
44: clrl d7
45: clrl d6
46: clrl d5
47: clrl a6@(-4)
48: clrl a6@(-8)
49: clrl a6@(-12)
50: clrl a6@(-16)
51: clrl a6@(-20)
52: clrl a6@(-24)
53: clrl a6@(-28)
54: movl a6@(12),a2
55: lea a2@(4),a1
56: movl a1,a6@(12)
57: movl a6@(8),a6@(-32)
58: tstl a6@(-32); jeq L11
59: jbsr _f:l
60: movl d0,a6@(-32)
61: L11:
62: movl a6@(-32),a2@
63: L9:
64: moveml a6@(-48),#0x4e0
65: unlk a6
66: rts
67: .globl _f4
68: .align 2
69: _f4:link a6,#-76
70: fmovemx #0xf0,a6@(-64)
71: moveml #0x98,a6@(-76)
72: clrl d7
73: clrl d0
74: clrl d1
75: clrl a6@(-4)
76: clrl a6@(-8)
77: clrl a6@(-12)
78: movl _i:l,d4
79: movl d4,d3; asll #3,d3
80: fmoved @(_a:l,d3:l:1),fp3
81: fmoved @(_b:l,d3:l:1),fp2
82: fmovex fp3,fp1; faddx fp2,fp1
83: fmoved L17:l,fp0
84: fcmpx fp0,fp1; fjeq L15
85: tstl d4; jeq L15
86: fsubx fp2,fp3
87: fcmpx fp0,fp3; fjeq L15
88: movl #1,a6@(-16)
89: jra L16
90: L15:
91: clrl a6@(-16)
92: L16:
93: movl a6@(-16),_i:l
94: L13:
95: moveml a6@(-76),#0x98
96: fmovemx a6@(-64),#0xf0
97: unlk a6
98: rts
99: .globl _f5
100: .align 2
101: _f5:link a6,#-48
102: fmovemx #0x30,a6@(-24)
103: moveml #0x341c,a6@(-48)
104: movl _k:l,d4
105: movl _m:l,d3
106: movl d4,d2; mulsl d3,d2
107: asll #3,d2
108: movl _A:l,a2
109: movl d2,a1; addl a2,a1
110: fmoved a1@,fp3
111: movl _j:l,d2
112: movl d2,d1; mulsl d3,d1
113: movl d1,d3; asll #3,d3
114: movl d3,a0; addl a2,a0
115: movl a0,a5
116: fmuld a0@,fp3
117: movl _n:l,d3
118: mulsl d3,d4
119: asll #3,d4
120: movl _B:l,a2
121: movl d4,a0; addl a2,a0
122: movl a0,a4
123: fmoved a0@,fp2
124: movl d2,d4; mulsl d3,d4
125: asll #3,d4
126: movl d4,a0; addl a2,a0
127: fmuld a0@,fp2
128: faddx fp2,fp3
129: fmoved fp3,_x:l
130: fmoved a1@,fp3
131: fmuld a0@,fp3
132: fmoved a4@,fp2
133: fmuld a5@,fp2
134: fsubx fp2,fp3
135: fmoved fp3,_x:l
136: L18:
137: moveml a6@(-48),#0x341c
138: fmovemx a6@(-24),#0x30
139: unlk a6
140: rts
141: .bss
142: .globl _x
143: .comm _x,8
144: .globl _B
145: .comm _B,4
146: .globl _A
147: .comm _A,4
148: .globl _n
149: .comm _n,4
150: .globl _m
151: .comm _m,4
152: .globl _k
153: .comm _k,4
154: .globl _j
155: .comm _j,4
156: .globl _i
157: .comm _i,4
158: .globl _b
159: .comm _b,80
160: .globl _a
161: .comm _a,80
162: .text
163: .align 2; L17:.long 0x0,0x0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.