![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t06.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 t06.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: L21:
4: .long 1
5: .align 2
6: L22:
7: .long 6
8: .align 2
9: L28:
10: .long 0xC5F25000 # .float -1938.5
11: .align 2
12: L32:
13: .long 0xC0000000 # .float -.5
14: .align 2
15: L33:
16: .long 0x00000000 # .float 0
17: .align 2
18: L34:
19: .long 0x3556BF95 # .float 2.e-07
20: .align 2
21: L35:
22: .long 0xC1D00000 # .float -6.5
23: .align 2
24: L38:
25: .long 2
26: .align 2
27: L41:
28: .long 3
29: .align 2
30: L44:
31: .long 4
32: .align 2
33: L46:
34: .long 0x40C00000, 0x00000000 # .double 1.5
35: .align 2
36: L47:
37: .long 0x3B83126E, 0x978D4FDF # .double .001
38: .align 2
39: L51:
40: .long 5
41: .align 2
42: L67:
43: .long 7
44: .align 2
45: L80:
46: .long 8
47: .align 2
48: L96:
49: .byte 0145,00
50: .align 2
51: L98:
52: .byte 0157,00
53: .align 2
54: L103:
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: mnegl $10,r10
73: L17:
74: movl r10,v.2-v.1(r11)
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 $L22
89: pushl $L21
90: callf $12,_e_
91: L20:
92: movl $1939,r10
93: L25:
94: movl r10,v.2-v.1(r11)
95: L23:
96: cvlf r10
97: stf r0
98: ldf L28
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 L25
105: L24:
106: movl r10,v.2-v.1(r11)
107: ldf v.4-v.1(r11)
108: addf L32
109: stf r0
110: movl r0,-56(fp)
111: cmpf2 L33,-56(fp)
112: jgtr L9997
113: movl -56(fp),r0
114: jbr L9996
115: L9997:
116: lnf -56(fp)
117: stf r0
118: L9996:
119: cmpf2 r0,L34
120: jgtr L9998
121: ldf v.4-v.1+24(r11)
122: addf L35
123: stf r0
124: movl r0,-60(fp)
125: cmpf2 L33,-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,L34
134: jleq L29
135: L9998:
136: pushl $L22
137: pushl $L38
138: callf $12,_e_
139: L29:
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 L40
146: L9993:
147: pushl $L22
148: pushl $L41
149: callf $12,_e_
150: L40:
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 L43
157: L9992:
158: pushl $L22
159: pushl $L44
160: callf $12,_e_
161: L43:
162: movl L46+4,v.6-v.1+4(r11)
163: movl L46,v.6-v.1(r11)
164: movl L47+4,v.6-v.1+12(r11)
165: movl L47,v.6-v.1+8(r11)
166: cmpd2 v.6-v.1(r11),L46
167: jneq L9991
168: cmpd2 v.6-v.1+8(r11),L47
169: jeql L48
170: L9991:
171: pushl $L22
172: pushl $L51
173: callf $12,_e_
174: L48:
175: movl $1939,r10
176: L55:
177: movl r10,v.2-v.1(r11)
178: L53:
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 L55
185: L54:
186: movl r10,v.2-v.1(r11)
187: cmpl v.7-v.1+64(r11),$2240
188: jeql L58
189: pushl $L22
190: pushl $L22
191: callf $12,_e_
192: L58:
193: movl $50,r10
194: L63:
195: movl r10,v.2-v.1(r11)
196: L61:
197: addl3 $200,r10,r0
198: movl r0,v.7-v.1+16(r11)[r10]
199: incl r10
200: cmpl r10,$52
201: jleq L63
202: L62:
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 L66
208: L9990:
209: pushl $L22
210: pushl $L67
211: callf $12,_e_
212: L66:
213: mnegl $10,r10
214: L71:
215: movl r10,v.2-v.1(r11)
216: L69:
217: clrl v.3-v.1+40(r11)[r10]
218: incl r10
219: cmpl r10,$10
220: jleq L71
221: L70:
222: movl r10,v.2-v.1(r11)
223: clrl r10
224: L76:
225: movl r10,v.2-v.1(r11)
226: L74:
227: addl3 $1,r10,r0
228: divl3 $2,r10,r1
229: divl3 $2,r10,r2
230: addl2 r2,r1
231: movl r0,v.3-v.1+40(r11)[r1]
232: incl r10
233: cmpl r10,$10
234: jleq L76
235: L75:
236: movl r10,v.2-v.1(r11)
237: cmpl v.3-v.1+40(r11),$2
238: jneq L9989
239: tstl v.3-v.1+60(r11)
240: jneq L9989
241: cmpl v.3-v.1+72(r11),$10
242: jeql L79
243: L9989:
244: pushl $L22
245: pushl $L80
246: callf $12,_e_
247: L79:
248: clrl r10
249: L84:
250: movl r10,v.2-v.1(r11)
251: clrl r9
252: L88:
253: movl r9,v.8-v.1(r11)
254: clrl r8
255: L92:
256: movl r8,v.9-v.1(r11)
257: addl3 r9,r10,r0
258: addl2 r8,r0
259: divl2 $2,r0
260: shll $1,r0,r0
261: addl3 r9,r10,r1
262: addl2 r8,r1
263: cmpl r0,r1
264: jneq L95
265: shll $2,r8,r0
266: addl2 r9,r0
267: mull2 $11,r0
268: addl2 r10,r0
269: movb L96,v.10-v.1(r11)[r0]
270: jbr L97
271: L95:
272: shll $2,r8,r0
273: addl2 r9,r0
274: mull2 $11,r0
275: addl2 r10,r0
276: movb L98,v.10-v.1(r11)[r0]
277: L97:
278: L82:
279: incl r8
280: cmpl r8,$3
281: jleq L92
282: L91:
283: movl r8,v.9-v.1(r11)
284: incl r9
285: cmpl r9,$3
286: jleq L88
287: L87:
288: movl r9,v.8-v.1(r11)
289: incl r10
290: cmpl r10,$10
291: jleq L84
292: L83:
293: movl r10,v.2-v.1(r11)
294: cmpb v.10-v.1+112(r11),L96
295: jneq L9988
296: cmpb v.10-v.1+156(r11),L98
297: jneq L9988
298: cmpb v.10-v.1+77(r11),L96
299: jeql L99
300: L9988:
301: pushl $L22
302: pushl $L103
303: callf $12,_e_
304: L99:
305: L14:
306: ret#0
307: L12:
308: movl $v.1,r11
309: jbr L13
310: .set LF1,60
311: .set LWM1,0x1F04
312: .text
313: .data 2
314: v.10:
315: .space 176
316: .align 2
317: v.4:
318: .space 28
319: .align 2
320: v.5:
321: .space 12
322: .align 2
323: v.8:
324: .space 4
325: .align 2
326: v.9:
327: .space 4
328: .align 2
329: v.2:
330: .space 4
331: .align 2
332: v.6:
333: .space 16
334: .align 2
335: v.3:
336: .space 84
337: .align 2
338: v.7:
339: .space 336
340: .set v.1,v.9
341:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.