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