![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t17.t1 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst|
Return to t17.t1 CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst |
1.1 root 1: .data 0
2: .align 2
3: L25:
4: .long 0x41400000 # .float 3
5: .long 0x41800000 # .float 4
6: .align 2
7: L26:
8: .long 0xC1000000 # .float -2
9: .long 0x40800000 # .float 1
10: .align 2
11: L27:
12: .long 0x40800000 # .float 1
13: .long 0xC1000000 # .float -2
14: .align 2
15: L28:
16: .long 0xC1400000 # .float -3
17: .align 2
18: L29:
19: .long 0x00000000 # .float 0
20: .align 2
21: L30:
22: .long 0x3556BF95 # .float 2.e-07
23: .align 2
24: L31:
25: .long 1
26: .align 2
27: L32:
28: .long 17
29: .align 2
30: L33:
31: .long 0xC1800000 # .float -4
32: .align 2
33: L36:
34: .long 2
35: .align 2
36: L38:
37: .long 0xC1A00000 # .float -5
38: .align 2
39: L41:
40: .long 3
41: .align 2
42: L45:
43: .long 0xC1000000 # .float -2
44: .long 0xC0800000 # .float -1
45: .align 2
46: L47:
47: .long 4
48: .align 2
49: L51:
50: .long 0x40800000 # .float 1
51: .long 0x41A00000 # .float 5
52: .align 2
53: L53:
54: .long 5
55: .align 2
56: L57:
57: .long 0x00000000 # .float 0
58: .long 0x41A00000 # .float 5
59: .align 2
60: L59:
61: .long 6
62: .align 2
63: L63:
64: .long 0xBF4CCCCD # .float -.2
65: .long 0xBFCCCCCD # .float -.40000001
66: .data 2
67: .data 1
68: .data 0
69: .globl _MAIN_
70: .globl _e_
71: .globl _r_imag
72: .globl _c_abs
73: .globl _r_cnjg
74: .globl _c_div
75: .align 2
76: .stabs "t17.f",0x64,0,0,0
77:
78: .text
79: .globl _MAIN_
80: .align 1
81: _MAIN_:
82: .word LWM1
83: subl3 $LF1,fp,sp
84: jbr L12
85: L13:
86: movl L25,v.2-v.1(r11)
87: movl L25+4,v.2-v.1+4(r11)
88: movl L26,v.3-v.1(r11)
89: movl L26+4,v.3-v.1+4(r11)
90: movl L27,v.4-v.1(r11)
91: movl L27+4,v.4-v.1+4(r11)
92: ldf v.2-v.1(r11)
93: addf L28
94: stf r0
95: movl r0,-56(fp)
96: cmpf2 L29,-56(fp)
97: jgtr L9999
98: movl -56(fp),r0
99: jbr L9998
100: L9999:
101: lnf -56(fp)
102: stf r0
103: L9998:
104: cmpf2 r0,L30
105: jleq L15
106: pushl $L32
107: pushl $L31
108: callf $12,_e_
109: L15:
110: addl3 $v.2-v.1,r11,r0
111: pushl r0
112: callf $8,_r_imag
113: ldf r0
114: addf L33
115: stf r0
116: movl r0,-60(fp)
117: cmpf2 L29,-60(fp)
118: jgtr L9997
119: movl -60(fp),r0
120: jbr L9996
121: L9997:
122: lnf -60(fp)
123: stf r0
124: L9996:
125: cmpf2 r0,L30
126: jleq L16
127: pushl $L32
128: pushl $L36
129: callf $12,_e_
130: L16:
131: addl3 $v.2-v.1,r11,r0
132: pushl r0
133: callf $8,_c_abs
134: ldf r0
135: addf L38
136: stf r0
137: movl r0,-64(fp)
138: cmpf2 L29,-64(fp)
139: jgtr L9995
140: movl -64(fp),r0
141: jbr L9994
142: L9995:
143: lnf -64(fp)
144: stf r0
145: L9994:
146: cmpf2 r0,L30
147: jleq L17
148: pushl $L32
149: pushl $L41
150: callf $12,_e_
151: L17:
152: addl3 $v.3-v.1,r11,r0
153: pushl r0
154: addl3 $-80,fp,r0
155: pushl r0
156: callf $12,_r_cnjg
157: ldf -80(fp)
158: subf L45
159: stf r0
160: movl r0,-72(fp)
161: ldf -76(fp)
162: subf L45+4
163: stf r0
164: movl r0,-68(fp)
165: addl3 $-72,fp,r0
166: pushl r0
167: callf $8,_c_abs
168: cmpf2 r0,L30
169: jleq L18
170: pushl $L32
171: pushl $L47
172: callf $12,_e_
173: L18:
174: ldf v.2-v.1(r11)
175: addf v.3-v.1(r11)
176: stf r0
177: movl r0,-96(fp)
178: ldf v.2-v.1+4(r11)
179: addf v.3-v.1+4(r11)
180: stf r0
181: movl r0,-92(fp)
182: ldf -96(fp)
183: subf L51
184: stf r0
185: movl r0,-88(fp)
186: ldf -92(fp)
187: subf L51+4
188: stf r0
189: movl r0,-84(fp)
190: addl3 $-88,fp,r0
191: pushl r0
192: callf $8,_c_abs
193: cmpf2 r0,L30
194: jleq L19
195: pushl $L32
196: pushl $L53
197: callf $12,_e_
198: L19:
199: ldf v.3-v.1(r11)
200: mulf v.4-v.1(r11)
201: stf r0
202: ldf v.3-v.1+4(r11)
203: mulf v.4-v.1+4(r11)
204: stf r1
205: ldf r0
206: subf r1
207: stf r0
208: movl r0,-112(fp)
209: ldf v.3-v.1(r11)
210: mulf v.4-v.1+4(r11)
211: stf r0
212: ldf v.3-v.1+4(r11)
213: mulf v.4-v.1(r11)
214: stf r1
215: ldf r0
216: addf r1
217: stf r0
218: movl r0,-108(fp)
219: ldf -112(fp)
220: subf L57
221: stf r0
222: movl r0,-104(fp)
223: ldf -108(fp)
224: subf L57+4
225: stf r0
226: movl r0,-100(fp)
227: addl3 $-104,fp,r0
228: pushl r0
229: callf $8,_c_abs
230: cmpf2 r0,L30
231: jleq L20
232: pushl $L32
233: pushl $L59
234: callf $12,_e_
235: L20:
236: addl3 $v.2-v.1,r11,r0
237: pushl r0
238: addl3 $v.4-v.1,r11,r0
239: pushl r0
240: addl3 $-128,fp,r0
241: pushl r0
242: callf $16,_c_div
243: ldf -128(fp)
244: subf L63
245: stf r0
246: movl r0,-120(fp)
247: ldf -124(fp)
248: subf L63+4
249: stf r0
250: movl r0,-116(fp)
251: addl3 $-120,fp,r0
252: pushl r0
253: callf $8,_c_abs
254: cmpf2 r0,L30
255: jleq L21
256: pushl $L32
257: pushl $L59
258: callf $12,_e_
259: L21:
260: L14:
261: ret#0
262: L12:
263: movl $v.1,r11
264: jbr L13
265: .set LF1,128
266: .set LWM1,0x1800
267: .text
268: .data 2
269: .align 2
270: v.3:
271: .space 8
272: .align 2
273: v.4:
274: .space 8
275: .align 2
276: v.2:
277: .space 8
278: .set v.1,v.4
279:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.