![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t06.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 t06.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: L74:
4: .long 1
5: .align 2
6: L75:
7: .long 6
8: .align 2
9: L76:
10: .long 0xC5F25000 # .float -1938.5
11: .align 2
12: L77:
13: .long 0xC0000000 # .float -.5
14: .align 2
15: L78:
16: .long 0xC1D00000 # .float -6.5
17: .align 2
18: L79:
19: .long 0x00000000 # .float 0
20: .align 2
21: L80:
22: .long 0x3556BF95 # .float 2.e-07
23: .align 2
24: L83:
25: .long 2
26: .align 2
27: L85:
28: .long 3
29: .align 2
30: L87:
31: .long 4
32: .align 2
33: L89:
34: .long 0x40C00000, 0x00000000 # .double 1.5
35: .align 2
36: L90:
37: .long 0x3B83126E, 0x978D4FDF # .double .001
38: .align 2
39: L93:
40: .long 5
41: .align 2
42: L97:
43: .long 7
44: .align 2
45: L99:
46: .long 8
47: .align 2
48: L101:
49: .byte 0145,00
50: .align 2
51: L102:
52: .byte 0157,00
53: .align 2
54: L106:
55: .long 9
56: .data 2
57: .data 1
58: .data 0
59: .globl _MAIN_
60: .globl _e_
61: .align 2
62: .stabs "t06.f",0x64,0,0,0
63:
64: .text
65: .globl _MAIN_
66: .align 1
67: _MAIN_:
68: .word LWM1
69: subl3 $LF1,fp,sp
70: jbr L12
71: L13:
72: movl v.2-v.1(r11),r10
73: mnegl $10,r10
74: L17:
75: L15:
76: mull3 r10,r10,r0
77: movl r0,v.3-v.1+40(r11)[r10]
78: incl r10
79: cmpl r10,$10
80: jleq L17
81: L16:
82: movl r10,v.2-v.1(r11)
83: cmpl v.3-v.1(r11),$100
84: jneq L9999
85: cmpl v.3-v.1+76(r11),$81
86: jeql L20
87: L9999:
88: pushl $L75
89: pushl $L74
90: callf $12,_e_
91: L20:
92: movl v.2-v.1(r11),r10
93: movl $1939,r10
94: L23:
95: L21:
96: cvlf r10
97: stf r0
98: ldf L76
99: addf r0
100: stf r0
101: movl r0,v.4-v.1+-7756(r11)[r10]
102: incl r10
103: cmpl r10,$1945
104: jleq L23
105: L22:
106: movl r10,v.2-v.1(r11)
107: ldf v.4-v.1(r11)
108: addf L77
109: stf r0
110: movl r0,-56(fp)
111: ldf v.4-v.1+24(r11)
112: addf L78
113: stf r0
114: movl r0,-60(fp)
115: cmpf2 L79,-56(fp)
116: jgtr L9997
117: movl -56(fp),r0
118: jbr L9996
119: L9997:
120: lnf -56(fp)
121: stf r0
122: L9996:
123: cmpf2 r0,L80
124: jgtr L9998
125: cmpf2 L79,-60(fp)
126: jgtr L9995
127: movl -60(fp),r0
128: jbr L9994
129: L9995:
130: lnf -60(fp)
131: stf r0
132: L9994:
133: cmpf2 r0,L80
134: jleq L26
135: L9998:
136: pushl $L75
137: pushl $L83
138: callf $12,_e_
139: L26:
140: movl $1,v.5-v.1+8(r11)
141: movl $1,v.5-v.1+4(r11)
142: cmpl v.5-v.1+8(r11),$1
143: jneq L9993
144: cmpl v.5-v.1+4(r11),$1
145: jeql L27
146: L9993:
147: pushl $L75
148: pushl $L85
149: callf $12,_e_
150: L27:
151: clrl v.5-v.1+8(r11)
152: clrl v.5-v.1+4(r11)
153: tstl v.5-v.1+8(r11)
154: jneq L9992
155: tstl v.5-v.1+4(r11)
156: jeql L28
157: L9992:
158: pushl $L75
159: pushl $L87
160: callf $12,_e_
161: L28:
162: movl L89+4,v.6-v.1+4(r11)
163: movl L89,v.6-v.1(r11)
164: movl L90+4,v.6-v.1+12(r11)
165: movl L90,v.6-v.1+8(r11)
166: cmpd2 v.6-v.1(r11),L89
167: jneq L9991
168: cmpd2 v.6-v.1+8(r11),L90
169: jeql L29
170: L9991:
171: pushl $L75
172: pushl $L93
173: callf $12,_e_
174: L29:
175: movl v.2-v.1(r11),r10
176: movl $1939,r10
177: L32:
178: L30:
179: addl3 $300,r10,r0
180: mull3 $12,r10,r1
181: movl r0,v.7+-93056[r1]
182: incl r10
183: cmpl r10,$1945
184: jleq L32
185: L31:
186: movl r10,v.2-v.1(r11)
187: cmpl v.7-v.1+64(r11),$2240
188: jeql L35
189: pushl $L75
190: pushl $L75
191: callf $12,_e_
192: L35:
193: movl v.2-v.1(r11),r10
194: movl $50,r10
195: L38:
196: L36:
197: addl3 $200,r10,r0
198: movl r0,v.7-v.1+16(r11)[r10]
199: incl r10
200: cmpl r10,$52
201: jleq L38
202: L37:
203: movl r10,v.2-v.1(r11)
204: cmpl v.7-v.1+216(r11),$250
205: jneq L9990
206: cmpl v.7-v.1+224(r11),$252
207: jeql L41
208: L9990:
209: pushl $L75
210: pushl $L97
211: callf $12,_e_
212: L41:
213: movl v.2-v.1(r11),r10
214: mnegl $10,r10
215: L44:
216: L42:
217: clrl v.3-v.1+40(r11)[r10]
218: incl r10
219: cmpl r10,$10
220: jleq L44
221: L43:
222: movl r10,v.2-v.1(r11)
223: movl -64(fp),r10
224: movl v.2-v.1(r11),r9
225: clrl r9
226: L49:
227: L47:
228: divl3 $2,r9,r0
229: movl r0,r10
230: addl3 $1,r9,r0
231: addl3 r10,r10,r1
232: movl r0,v.3-v.1+40(r11)[r1]
233: incl r9
234: cmpl r9,$10
235: jleq L49
236: L48:
237: movl r9,v.2-v.1(r11)
238: movl r10,-64(fp)
239: cmpl v.3-v.1+40(r11),$2
240: jneq L9989
241: tstl v.3-v.1+60(r11)
242: jneq L9989
243: cmpl v.3-v.1+72(r11),$10
244: jeql L52
245: L9989:
246: pushl $L75
247: pushl $L99
248: callf $12,_e_
249: L52:
250: movl v.9-v.1(r11),r10
251: movl v.2-v.1(r11),r9
252: movl v.8-v.1(r11),r8
253: movl -68(fp),r7
254: movl -72(fp),r6
255: clrl r9
256: L55:
257: clrl r8
258: L59:
259: addl3 r8,r9,r0
260: movl r0,r7
261: addl3 r8,r9,r0
262: movl r0,r6
263: clrl r10
264: L63:
265: addl3 r10,r7,r0
266: divl2 $2,r0
267: shll $1,r0,r0
268: addl3 r10,r6,r1
269: cmpl r0,r1
270: jneq L66
271: shll $2,r10,r0
272: addl2 r8,r0
273: mull2 $11,r0
274: addl2 r9,r0
275: movb L101,v.10-v.1(r11)[r0]
276: jbr L67
277: L66:
278: shll $2,r10,r0
279: addl2 r8,r0
280: mull2 $11,r0
281: addl2 r9,r0
282: movb L102,v.10-v.1(r11)[r0]
283: L67:
284: L53:
285: incl r10
286: cmpl r10,$3
287: jleq L63
288: L62:
289: incl r8
290: cmpl r8,$3
291: jleq L59
292: L58:
293: incl r9
294: cmpl r9,$10
295: jleq L55
296: L54:
297: movl r6,-72(fp)
298: movl r7,-68(fp)
299: movl r8,v.8-v.1(r11)
300: movl r9,v.2-v.1(r11)
301: movl r10,v.9-v.1(r11)
302: cmpb v.10-v.1+112(r11),L101
303: jneq L9988
304: cmpb v.10-v.1+156(r11),L102
305: jneq L9988
306: cmpb v.10-v.1+77(r11),L101
307: jeql L68
308: L9988:
309: pushl $L75
310: pushl $L106
311: callf $12,_e_
312: L68:
313: L14:
314: ret#0
315: L12:
316: movl $v.1,r11
317: jbr L13
318: .set LF1,72
319: .set LWM1,0x1FC0
320: .text
321: .data 2
322: v.10:
323: .space 176
324: .align 2
325: v.4:
326: .space 28
327: .align 2
328: v.5:
329: .space 12
330: .align 2
331: v.8:
332: .space 4
333: .align 2
334: v.9:
335: .space 4
336: .align 2
337: v.2:
338: .space 4
339: .align 2
340: v.6:
341: .space 16
342: .align 2
343: v.3:
344: .space 84
345: .align 2
346: v.7:
347: .space 336
348: .set v.1,v.9
349:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.