![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t17.t0 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.t0 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: L15:
4: .long 0x41400000 # .float 3
5: .long 0x41800000 # .float 4
6: .align 2
7: L16:
8: .long 0xC1000000 # .float -2
9: .long 0x40800000 # .float 1
10: .align 2
11: L17:
12: .long 0x40800000 # .float 1
13: .long 0xC1000000 # .float -2
14: .align 2
15: L20:
16: .long 0xC1400000 # .float -3
17: .align 2
18: L21:
19: .long 0x00000000 # .float 0
20: .align 2
21: L22:
22: .long 0x3556BF95 # .float 2.e-07
23: .align 2
24: L23:
25: .long 1
26: .align 2
27: L24:
28: .long 17
29: .align 2
30: L27:
31: .long 0xC1800000 # .float -4
32: .align 2
33: L30:
34: .long 2
35: .align 2
36: L34:
37: .long 0xC1A00000 # .float -5
38: .align 2
39: L37:
40: .long 3
41: .align 2
42: L42:
43: .long 0xC1000000 # .float -2
44: .long 0xC0800000 # .float -1
45: .align 2
46: L44:
47: .long 4
48: .align 2
49: L49:
50: .long 0x40800000 # .float 1
51: .long 0x41A00000 # .float 5
52: .align 2
53: L51:
54: .long 5
55: .align 2
56: L56:
57: .long 0x00000000 # .float 0
58: .long 0x41A00000 # .float 5
59: .align 2
60: L58:
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 L15,v.2-v.1(r11)
87: movl L15+4,v.2-v.1+4(r11)
88: movl L16,v.3-v.1(r11)
89: movl L16+4,v.3-v.1+4(r11)
90: movl L17,v.4-v.1(r11)
91: movl L17+4,v.4-v.1+4(r11)
92: ldf v.2-v.1(r11)
93: addf L20
94: stf r0
95: movl r0,-56(fp)
96: cmpf2 L21,-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,L22
105: jleq L18
106: pushl $L24
107: pushl $L23
108: callf $12,_e_
109: L18:
110: addl3 $v.2-v.1,r11,r0
111: pushl r0
112: callf $8,_r_imag
113: ldf r0
114: addf L27
115: stf r0
116: movl r0,-60(fp)
117: cmpf2 L21,-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,L22
126: jleq L25
127: pushl $L24
128: pushl $L30
129: callf $12,_e_
130: L25:
131: addl3 $v.2-v.1,r11,r0
132: pushl r0
133: callf $8,_c_abs
134: ldf r0
135: addf L34
136: stf r0
137: movl r0,-64(fp)
138: cmpf2 L21,-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,L22
147: jleq L32
148: pushl $L24
149: pushl $L37
150: callf $12,_e_
151: L32:
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 L42
159: stf r0
160: movl r0,-72(fp)
161: ldf -76(fp)
162: subf L42+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,L22
169: jleq L39
170: pushl $L24
171: pushl $L44
172: callf $12,_e_
173: L39:
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 L49
184: stf r0
185: movl r0,-88(fp)
186: ldf -92(fp)
187: subf L49+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,L22
194: jleq L46
195: pushl $L24
196: pushl $L51
197: callf $12,_e_
198: L46:
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 L56
221: stf r0
222: movl r0,-104(fp)
223: ldf -108(fp)
224: subf L56+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,L22
231: jleq L53
232: pushl $L24
233: pushl $L58
234: callf $12,_e_
235: L53:
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,L22
255: jleq L60
256: pushl $L24
257: pushl $L58
258: callf $12,_e_
259: L60:
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.