OpenCores
URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [lcc/] [x86/] [win32/] [tst/] [cf.sbk] - Blame information for rev 110

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 4 hellwig 
.486
2 
.model flat
3 
extrn __fltused:near
4 
extrn __ftol:near
5 
public _main
6 
_TEXT segment
7 
_main:
8 
push ebx
9 
push esi
10 
push edi
11 
push ebp
12 
mov ebp,esp
13 
sub esp,24
14 
cmp dword ptr (20)[ebp],1
15 
jg L2
16 
fld dword ptr (L4)
17 
fstp dword ptr (-16)[ebp]
18 
jmp L3
19 
L2:
20 
mov edi,dword ptr (24)[ebp]
21 
mov edi,dword ptr (4)[edi]
22 
push edi
23 
call _atof
24 
add esp,4
25 
fstp dword ptr (-20)[ebp]
26 
fld dword ptr (-20)[ebp]
27 
fdiv dword ptr (L5)
28 
fstp dword ptr (-16)[ebp]
29 
L3:
30 
mov dword ptr (-4)[ebp],0
31 
L6:
32 
mov edi,dword ptr (-4)[ebp]
33 
lea esi,(1)[edi]
34 
mov dword ptr (-4)[ebp],esi
35 
fld dword ptr (L4)
36 
fstp dword ptr (_f)[edi*4]
37 
L7:
38 
cmp dword ptr (-4)[ebp],127
39 
jle L6
40 
mov dword ptr (-8)[ebp],0
41 
jmp L11
42 
L10:
43 
mov edi,dword ptr (-12)[ebp]
44 
lea edi,(_f)[edi*4]
45 
fld dword ptr [edi]
46 
fadd dword ptr (L13)
47 
fstp dword ptr [edi]
48 
inc dword ptr (-8)[ebp]
49 
L11:
50 
call _getchar
51 
add esp,0
52 
mov dword ptr (-12)[ebp],eax
53 
cmp eax,-1
54 
jne L10
55 
lea edi,(L14)
56 
push edi
57 
call _printf
58 
add esp,4
59 
mov dword ptr (-4)[ebp],0
60 
L15:
61 
mov edi,dword ptr (-4)[ebp]
62 
fld dword ptr (_f)[edi*4]
63 
fstp dword ptr (-24)[ebp]
64 
fld dword ptr (L4)
65 
fcomp dword ptr (-24)[ebp]
66 
fstsw ax
67 
sahf
68 
jp L26
69 
je L19
70 
L26:
71 
fld dword ptr (-24)[ebp]
72 
mov edi,dword ptr (-8)[ebp]
73 
push edi
74 
fild dword ptr 0[esp]
75 
add esp,4
76 
fdivp st(1),st
77 
fld dword ptr (-16)[ebp]
78 
fcompp
79 
fstsw ax
80 
sahf
81 
jp L19
82 
ja L19
83 
cmp dword ptr (-4)[ebp],32
84 
jg L21
85 
mov edi,dword ptr (-4)[ebp]
86 
push edi
87 
lea edi,(L23)
88 
push edi
89 
call _printf
90 
add esp,8
91 
jmp L22
92 
L21:
93 
mov edi,dword ptr (-4)[ebp]
94 
push edi
95 
lea edi,(L24)
96 
push edi
97 
call _printf
98 
add esp,8
99 
L22:
100 
fld dword ptr (L5)
101 
mov edi,dword ptr (-4)[ebp]
102 
fmul dword ptr (_f)[edi*4]
103 
mov edi,dword ptr (-8)[ebp]
104 
push edi
105 
fild dword ptr 0[esp]
106 
add esp,4
107 
fdivp st(1),st
108 
sub esp,8
109 
fstp qword ptr [esp]
110 
lea edi,(L25)
111 
push edi
112 
call _printf
113 
add esp,12
114 
L19:
115 
L16:
116 
inc dword ptr (-4)[ebp]
117 
cmp dword ptr (-4)[ebp],127
118 
jle L15
119 
mov eax,0
120 
L1:
121 
mov esp,ebp
122 
pop ebp
123 
pop edi
124 
pop esi
125 
pop ebx
126 
ret
127 
_TEXT ends
128 
extrn _printf:near
129 
_TEXT segment
130 
_TEXT ends
131 
extrn _getchar:near
132 
_TEXT segment
133 
_TEXT ends
134 
extrn _atof:near
135 
_TEXT segment
136 
_TEXT ends
137 
_DATA segment
138 
public _f
139 
align 4
140 
_f label byte
141 
db 512 dup (0)
142 
_DATA ends
143 
_TEXT segment
144 
align 1
145 
L25 label byte
146 
db 9
147 
db 37
148 
db 46
149 
db 49
150 
db 102
151 
db 10
152 
db 0
153 
align 1
154 
L24 label byte
155 
db 37
156 
db 99
157 
db 0
158 
align 1
159 
L23 label byte
160 
db 37
161 
db 48
162 
db 51
163 
db 111
164 
db 0
165 
align 1
166 
L14 label byte
167 
db 99
168 
db 104
169 
db 97
170 
db 114
171 
db 9
172 
db 102
173 
db 114
174 
db 101
175 
db 113
176 
db 10
177 
db 0
178 
align 4
179 
L13 label byte
180 
dd 03f800000H
181 
align 4
182 
L5 label byte
183 
dd 042c80000H
184 
align 4
185 
L4 label byte
186 
dd 00H
187 
_TEXT ends
188 
end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.