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