![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to b7.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 b7.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: 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: .text
24: .globl _MAIN_
25: .set LF1,52
26: .set LWM1,0x1C00
27: .align 1
28: _MAIN_:.word LWM1
29: subl3 $LF1,fp,sp
30: movl $v.1,r11
31: movl v.3-v.1(r11),r10
32: movl $1,r10
33: L15:pushl $L20
34: addl3 $v.2-v.1,r11,-(sp)
35: callf $12,_stat_
36: aobleq $30000,r10,L15
37: movl r10,v.3-v.1(r11)
38: ret#0
39: .globl _stat_
40: .set LF2,60
41: .set LWM2,0x1F80
42: .align 1
43: _stat_:.word LWM2
44: subl3 $LF2,fp,sp
45: movl $v.4,r11
46: movl fp,r12
47: movl *8(r12),-56(fp)
48: subl2 $4,4(r12)
49: clrl v.5-v.4(r11)
50: movl *8(r12),-60(fp)
51: movl v.5-v.4(r11),r10
52: movl v.6-v.4(r11),r9
53: movl 4(r12),r8
54: movl -60(fp),r7
55: movl $1,r9
56: cmpl r9,r7
57: jgtr L29
58: L28:addl2 (r8)[r9],r10
59: aobleq r7,r9,L28
60: L29:movl r9,v.6-v.4(r11)
61: movl r10,v.5-v.4(r11)
62: addl3 $v.5-v.4,r11,-(sp)
63: pushl 8(r12)
64: addl3 $4,4(r12),-(sp)
65: callf $16,_gtmean_
66: movl r0,v.7-v.4(r11)
67: addl3 $v.5-v.4,r11,-(sp)
68: pushl 8(r12)
69: addl3 $4,4(r12),-(sp)
70: callf $16,_getmed_
71: ret#0
72: .globl _gtmean_
73: .set LF3,68
74: .set LWM3,0x1F80
75: .align 1
76: _gtmean_:.word LWM3
77: subl3 $LF3,fp,sp
78: movl $v.8,r11
79: movl fp,r12
80: movl *8(r12),-56(fp)
81: subl2 $4,4(r12)
82: clrl v.9-v.8(r11)
83: movl *8(r12),-68(fp)
84: movl v.10-v.8(r11),r10
85: movl v.9-v.8(r11),r9
86: movl 4(r12),r8
87: movl -68(fp),r7
88: movl $1,r10
89: cmpl r10,r7
90: jgtr L42
91: L41:mull3 r10,(r8)[r10],r0
92: addl2 r0,r9
93: aobleq r7,r10,L41
94: L42:movl r9,v.9-v.8(r11)
95: movl r10,v.10-v.8(r11)
96: divl3 *12(r12),r9,-64(fp)
97: movl -64(fp),r0
98: ret#1
99: .globl _getmed_
100: .set LF4,64
101: .set LWM4,0x1FC0
102: .align 1
103: _getmed_:.word LWM4
104: subl3 $LF4,fp,sp
105: movl $v.11,r11
106: movl fp,r12
107: movl *8(r12),-56(fp)
108: subl2 $4,4(r12)
109: clrl v.12-v.11(r11)
110: movl *8(r12),-60(fp)
111: shar $2,*12(r12),-64(fp)
112: movl v.12-v.11(r11),r10
113: movl 4(r12),r9
114: movl -60(fp),r8
115: movl -64(fp),r7
116: movl v.13-v.11(r11),r6
117: movl $1,r6
118: cmpl r6,r8
119: jgtr L55
120: L56:addl2 (r9)[r6],r10
121: cmpl r10,r7
122: jleq L54
123: movl r10,v.12-v.11(r11)
124: movl r6,v.13-v.11(r11)
125: L49:ret#0
126: L54:aobleq r8,r6,L56
127: L55:movl r6,v.13-v.11(r11)
128: movl r10,v.12-v.11(r11)
129: jbr L49
130:
131: .data 2
132: .align 2
133: v.2:
134: .quad 0x1F4000003E8
135: .quad 0x7D000000FA0
136: .quad 0x64000000C8
137: .quad 0x19000000320
138: .quad 0x64000000C80
139: .align 2
140: v.3:
141: .space 4
142: .set v.1,v.3
143:
144: .align 2
145: v.5:
146: .space 4
147: .align 2
148: v.7:
149: .space 4
150: .align 2
151: v.6:
152: .space 4
153: .set v.4,v.7
154:
155: .align 2
156: v.10:
157: .space 4
158: .align 2
159: v.9:
160: .space 4
161: .set v.8,v.9
162:
163: .align 2
164: v.13:
165: .space 4
166: .align 2
167: v.12:
168: .space 4
169: .set v.11,v.12
170:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.