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