![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t17.t2 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.t2 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: .text
78: .globl _MAIN_
79: .set LF1,128
80: .set LWM1,0x1800
81: .align 1
82: _MAIN_:.word LWM1
83: subl3 $LF1,fp,sp
84: movl $v.1,r11
85: movl L25,v.2-v.1(r11)
86: movl L25+4,v.2-v.1+4(r11)
87: movl L26,v.3-v.1(r11)
88: movl L26+4,v.3-v.1+4(r11)
89: movl L27,v.4-v.1(r11)
90: movl L27+4,v.4-v.1+4(r11)
91: ldf v.2-v.1(r11)
92: addf L28
93: stf -56(fp)
94: cmpf2 L29,-56(fp)
95: jgtr L9999
96: movl -56(fp),r0
97: jbr L9998
98: L9999:lnf -56(fp)
99: stf r0
100: L9998:cmpf2 r0,L30
101: jleq L15
102: pushl $L32
103: pushl $L31
104: callf $12,_e_
105: L15:addl3 $v.2-v.1,r11,-(sp)
106: callf $8,_r_imag
107: ldf r0
108: addf L33
109: stf -60(fp)
110: cmpf2 L29,-60(fp)
111: jgtr L9997
112: movl -60(fp),r0
113: jbr L9996
114: L9997:lnf -60(fp)
115: stf r0
116: L9996:cmpf2 r0,L30
117: jleq L16
118: pushl $L32
119: pushl $L36
120: callf $12,_e_
121: L16:addl3 $v.2-v.1,r11,-(sp)
122: callf $8,_c_abs
123: ldf r0
124: addf L38
125: stf -64(fp)
126: cmpf2 L29,-64(fp)
127: jgtr L9995
128: movl -64(fp),r0
129: jbr L9994
130: L9995:lnf -64(fp)
131: stf r0
132: L9994:cmpf2 r0,L30
133: jleq L17
134: pushl $L32
135: pushl $L41
136: callf $12,_e_
137: L17:addl3 $v.3-v.1,r11,-(sp)
138: subl3 $80,fp,-(sp)
139: callf $12,_r_cnjg
140: ldf -80(fp)
141: subf L45
142: stf -72(fp)
143: ldf -76(fp)
144: subf L45+4
145: stf -68(fp)
146: subl3 $72,fp,-(sp)
147: callf $8,_c_abs
148: cmpf2 r0,L30
149: jleq L18
150: pushl $L32
151: pushl $L47
152: callf $12,_e_
153: L18:ldf v.2-v.1(r11)
154: addf v.3-v.1(r11)
155: stf -96(fp)
156: ldf v.2-v.1+4(r11)
157: addf v.3-v.1+4(r11)
158: stf -92(fp)
159: ldf -96(fp)
160: subf L51
161: stf -88(fp)
162: ldf -92(fp)
163: subf L51+4
164: stf -84(fp)
165: subl3 $88,fp,-(sp)
166: callf $8,_c_abs
167: cmpf2 r0,L30
168: jleq L19
169: pushl $L32
170: pushl $L53
171: callf $12,_e_
172: L19:ldf v.3-v.1(r11)
173: mulf v.4-v.1(r11)
174: stf r0
175: ldf v.3-v.1+4(r11)
176: mulf v.4-v.1+4(r11)
177: stf r1
178: ldf r0
179: subf r1
180: stf -112(fp)
181: ldf v.3-v.1(r11)
182: mulf v.4-v.1+4(r11)
183: stf r0
184: ldf v.3-v.1+4(r11)
185: mulf v.4-v.1(r11)
186: addf r0
187: stf -108(fp)
188: ldf -112(fp)
189: subf L57
190: stf -104(fp)
191: ldf -108(fp)
192: subf L57+4
193: stf -100(fp)
194: subl3 $104,fp,-(sp)
195: callf $8,_c_abs
196: cmpf2 r0,L30
197: jleq L20
198: pushl $L32
199: pushl $L59
200: callf $12,_e_
201: L20:addl3 $v.2-v.1,r11,-(sp)
202: addl3 $v.4-v.1,r11,-(sp)
203: subl3 $128,fp,-(sp)
204: callf $16,_c_div
205: ldf -128(fp)
206: subf L63
207: stf -120(fp)
208: ldf -124(fp)
209: subf L63+4
210: stf -116(fp)
211: subl3 $120,fp,-(sp)
212: callf $8,_c_abs
213: cmpf2 r0,L30
214: jleq L14
215: pushl $L32
216: pushl $L59
217: callf $12,_e_
218: L14:ret#0
219:
220: .data 2
221: .align 2
222: v.3:
223: .space 8
224: .align 2
225: v.4:
226: .space 8
227: .align 2
228: v.2:
229: .space 8
230: .set v.1,v.4
231:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.