![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to b7.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 b7.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: L20:
4: .long 10
5: .data 2
6: .data 1
7: .data 0
8: .data 2
9: .data 1
10: .data 0
11: .data 2
12: .data 1
13: .data 0
14: .data 2
15: .data 1
16: .data 0
17: .globl _MAIN_
18: .globl _stat_
19: .globl _gtmean_
20: .globl _getmed_
21: .align 2
22: .stabs "b7.f",0x64,0,0,0
23:
24: .text
25: .globl _MAIN_
26: .align 1
27: _MAIN_:
28: .word LWM1
29: subl3 $LF1,fp,sp
30: jbr L12
31: L13:
32: movl v.3-v.1(r11),r10
33: movl $1,r10
34: L17:
35: L15:
36: pushl $L20
37: addl3 $v.2-v.1,r11,r0
38: pushl r0
39: callf $12,_stat_
40: incl r10
41: cmpl r10,$30000
42: jleq L17
43: L16:
44: movl r10,v.3-v.1(r11)
45: L14:
46: ret#0
47: L12:
48: movl $v.1,r11
49: jbr L13
50: .set LF1,52
51: .set LWM1,0x1C00
52: .text
53: .globl _stat_
54: .align 1
55: _stat_:
56: .word LWM2
57: subl3 $LF2,fp,sp
58: jbr L22
59: L25:
60: clrl v.5-v.4(r11)
61: movl *8(r12),-60(fp)
62: movl v.5-v.4(r11),r10
63: movl v.6-v.4(r11),r9
64: movl 4(r12),r8
65: movl -60(fp),r7
66: movl $1,r9
67: cmpl r9,r7
68: jgtr L29
69: L30:
70: L28:
71: addl3 (r8)[r9],r10,r0
72: movl r0,r10
73: incl r9
74: cmpl r9,r7
75: jleq L30
76: L29:
77: movl r9,v.6-v.4(r11)
78: movl r10,v.5-v.4(r11)
79: addl3 $v.5-v.4,r11,r0
80: pushl r0
81: pushl 8(r12)
82: addl3 $4,4(r12),r0
83: pushl r0
84: callf $16,_gtmean_
85: movl r0,v.7-v.4(r11)
86: addl3 $v.5-v.4,r11,r0
87: pushl r0
88: pushl 8(r12)
89: addl3 $4,4(r12),r0
90: pushl r0
91: callf $16,_getmed_
92: L24:
93: L23:
94: ret#0
95: L22:
96: movl $v.4,r11
97: movl fp,r12
98: movl *8(r12),-56(fp)
99: subl2 $4,4(r12)
100: jbr L25
101: .set LF2,60
102: .set LWM2,0x1F80
103: .text
104: .globl _gtmean_
105: .align 1
106: _gtmean_:
107: .word LWM3
108: subl3 $LF3,fp,sp
109: jbr L35
110: L37:
111: clrl v.9-v.8(r11)
112: movl *8(r12),-68(fp)
113: movl v.10-v.8(r11),r10
114: movl v.9-v.8(r11),r9
115: movl 4(r12),r8
116: movl -68(fp),r7
117: movl $1,r10
118: cmpl r10,r7
119: jgtr L42
120: L43:
121: L41:
122: mull3 r10,(r8)[r10],r0
123: addl2 r9,r0
124: movl r0,r9
125: incl r10
126: cmpl r10,r7
127: jleq L43
128: L42:
129: movl r9,v.9-v.8(r11)
130: movl r10,v.10-v.8(r11)
131: divl3 *12(r12),v.9-v.8(r11),r0
132: movl r0,-64(fp)
133: jbr L36
134: L36:
135: movl -64(fp),r0
136: ret#1
137: L35:
138: movl $v.8,r11
139: movl fp,r12
140: movl *8(r12),-56(fp)
141: subl2 $4,4(r12)
142: jbr L37
143: .set LF3,68
144: .set LWM3,0x1F80
145: .text
146: .globl _getmed_
147: .align 1
148: _getmed_:
149: .word LWM4
150: subl3 $LF4,fp,sp
151: jbr L48
152: L51:
153: clrl v.12-v.11(r11)
154: movl *8(r12),-60(fp)
155: shar $2,*12(r12),r0
156: movl r0,-64(fp)
157: movl v.12-v.11(r11),r10
158: movl 4(r12),r9
159: movl -60(fp),r8
160: movl -64(fp),r7
161: movl v.13-v.11(r11),r6
162: movl $1,r6
163: cmpl r6,r8
164: jgtr L55
165: L56:
166: addl3 (r9)[r6],r10,r0
167: movl r0,r10
168: cmpl r10,r7
169: jleq L59
170: movl r10,v.12-v.11(r11)
171: movl r6,v.13-v.11(r11)
172: jbr L60
173: L59:
174: L54:
175: incl r6
176: cmpl r6,r8
177: jleq L56
178: L55:
179: movl r6,v.13-v.11(r11)
180: movl r10,v.12-v.11(r11)
181: L60:
182: jbr L50
183: L50:
184: L49:
185: ret#0
186: L48:
187: movl $v.11,r11
188: movl fp,r12
189: movl *8(r12),-56(fp)
190: subl2 $4,4(r12)
191: jbr L51
192: .set LF4,64
193: .set LWM4,0x1FC0
194: .text
195: .data 2
196: .align 2
197: v.2:
198: .quad 0x1F4000003E8
199: .quad 0x7D000000FA0
200: .quad 0x64000000C8
201: .quad 0x19000000320
202: .quad 0x64000000C80
203: .align 2
204: v.3:
205: .space 4
206: .set v.1,v.3
207:
208: .align 2
209: v.5:
210: .space 4
211: .align 2
212: v.7:
213: .space 4
214: .align 2
215: v.6:
216: .space 4
217: .set v.4,v.7
218:
219: .align 2
220: v.10:
221: .space 4
222: .align 2
223: v.9:
224: .space 4
225: .set v.8,v.9
226:
227: .align 2
228: v.13:
229: .space 4
230: .align 2
231: v.12:
232: .space 4
233: .set v.11,v.12
234:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.