![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to g.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 g.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: L15:
4: .long 0x00000000 # .float 0
5: .align 2
6: L16:
7: .long 0x41C90FDB # .float 6.2831855
8: .align 2
9: L17:
10: .long 0x3DA3D70A # .float .02
11: .align 2
12: L18:
13: .long 0xC0800000 # .float -1
14: .align 2
15: L19:
16: .long 0x40800000 # .float 1
17: .data 2
18: .data 1
19: .data 0
20: .align 2
21: L30:
22: .long L29
23: .align 2
24: L33:
25: .long L29
26: .align 2
27: L29:
28: .byte 050,070
29: .byte 060,0141
30: .byte 061,051
31: .byte 00,00
32: .align 2
33: L43:
34: .byte 040,00
35: .align 2
36: L44:
37: .long 1
38: .align 2
39: L47:
40: .byte 052,00
41: .data 2
42: .data 1
43: .data 0
44: .align 2
45: L55:
46: .long 0x42400000 # .float 12
47: .data 2
48: .data 1
49: .data 0
50: .globl _MAIN_
51: .globl _graf_
52: .globl _xsin_
53: .globl _s_wsfe
54: .globl _do_fio
55: .globl _e_wsfe
56: .align 2
57: .stabs "g.f",0x64,0,0,0
58:
59: .text
60: .globl _MAIN_
61: .align 1
62: _MAIN_:
63: .word LWM1
64: subl3 $LF1,fp,sp
65: jbr L12
66: L13:
67: pushl $L19
68: pushl $L18
69: pushl $L17
70: pushl $L16
71: pushl $L15
72: pushl $_xsin_
73: callf $28,_graf_
74: L14:
75: ret#0
76: L12:
77: jbr L13
78: .set LF1,52
79: .set LWM1,0x1000
80: .text
81: .globl _graf_
82: .align 1
83: _graf_:
84: .word LWM2
85: subl3 $LF2,fp,sp
86: jbr L21
87: L24:
88: movl *8(r12),v.3-v.2(r11)
89: L26:
90: addl3 $v.3-v.2,r11,r0
91: pushl r0
92: calls $8,*4(r12)
93: movl r0,v.4-v.2(r11)
94: cmpf2 v.4-v.2(r11),*20(r12)
95: jlss L9999
96: cmpf2 v.4-v.2(r11),*24(r12)
97: jleq L27
98: L9999:
99: movl L30,v.5+12
100: pushl $v.5
101: callf $8,_s_wsfe
102: movb L43,-53(fp)
103: pushl $1
104: addl3 $-53,fp,r0
105: pushl r0
106: pushl $L44
107: callf $16,_do_fio
108: callf $4,_e_wsfe
109: jbr L32
110: L27:
111: ldf v.4-v.2(r11)
112: subf *20(r12)
113: stf r0
114: ldf *24(r12)
115: subf *20(r12)
116: stf r1
117: ldf r0
118: divf r1
119: stf r0
120: cvlf $74
121: stf r1
122: ldf r0
123: mulf r1
124: stf r0
125: ldf r0
126: cvfl r0
127: movl r0,v.6-v.2(r11)
128: movl L33,v.7+12
129: pushl $v.7
130: callf $8,_s_wsfe
131: movl v.6-v.2(r11),-60(fp)
132: movl -60(fp),r10
133: movl v.8-v.2(r11),r9
134: movl $1,r9
135: cmpl r9,r10
136: jgtr L35
137: L36:
138: movb L43,-54(fp)
139: pushl $1
140: addl3 $-54,fp,r0
141: pushl r0
142: pushl $L44
143: callf $16,_do_fio
144: incl r9
145: cmpl r9,r10
146: jleq L36
147: L35:
148: movl r9,v.8-v.2(r11)
149: movb L47,-55(fp)
150: pushl $1
151: addl3 $-55,fp,r0
152: pushl r0
153: pushl $L44
154: callf $16,_do_fio
155: callf $4,_e_wsfe
156: L32:
157: ldf v.3-v.2(r11)
158: addf *16(r12)
159: stf r0
160: movl r0,v.3-v.2(r11)
161: cmpf2 v.3-v.2(r11),*12(r12)
162: jgtr L41
163: jbr L26
164: L41:
165: jbr L23
166: L23:
167: L22:
168: ret#0
169: L21:
170: movl $v.2,r11
171: movl fp,r12
172: jbr L24
173: .set LF2,60
174: .set LWM2,0x1E00
175: .text
176: .globl _xsin_
177: .align 1
178: _xsin_:
179: .word LWM3
180: subl3 $LF3,fp,sp
181: jbr L50
182: L52:
183: ldf *4(r12)
184: mulf L55
185: stf r0
186: ldf r0
187: sinf
188: stf r0
189: ldf *4(r12)
190: sinf
191: stf r1
192: ldf r0
193: mulf r1
194: stf r0
195: movl r0,-60(fp)
196: jbr L51
197: L51:
198: movl -60(fp),r0
199: ret#1
200: L50:
201: movl fp,r12
202: jbr L52
203: .set LF3,60
204: .set LWM3,0x1000
205: .text
206: .data 2
207: .align 2
208: v.7:
209: .long 0
210: .long 6
211: .space 8
212: .align 2
213: v.5:
214: .long 0
215: .long 6
216: .space 8
217: .align 2
218: v.8:
219: .space 4
220: .align 2
221: v.3:
222: .space 4
223: .align 2
224: v.4:
225: .space 4
226: .align 2
227: v.6:
228: .space 4
229: .set v.2,v.4
230:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.