Rev 485 | Rev 2490 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
31 | halyavin | 1 | |
2 | ; ßÛß ÛÜÛ ÛÛÛ ÛÛÜ loveC: thanks, Serzh: eat my socks dude ;] compile the |
||
3 | ; ( ) ( ) ( ) ( ) e-mail: baze@stonline.sk, web: www.3SC.sk source code |
||
4 | |||
5 | |||
6 | |||
7 | |||
316 | heavyiron | 8 | |
9 | |||
31 | halyavin | 10 | org 0x0 |
11 | |||
12 | |||
13 | dd 0x01 |
||
14 | dd START |
||
15 | dd I_END |
||
16 | dd 0x40000 |
||
17 | dd 0x40000 |
||
316 | heavyiron | 18 | dd 0,0 |
31 | halyavin | 19 | |
20 | |||
485 | heavyiron | 21 | |
31 | halyavin | 22 | |
23 | |||
24 | |||
25 | |||
26 | |||
27 | |||
28 | |||
29 | |||
30 | |||
31 | |||
32 | |||
33 | |||
34 | |||
35 | |||
36 | |||
37 | |||
38 | |||
39 | mov ebx,1 |
||
40 | mcall |
||
485 | heavyiron | 41 | |
31 | halyavin | 42 | |
43 | jne no_red |
||
44 | call draw_window |
||
45 | jmp still |
||
46 | no_red: |
||
47 | |||
48 | |||
49 | je still |
||
50 | |||
51 | |||
316 | heavyiron | 52 | mcall |
485 | heavyiron | 53 | |
31 | halyavin | 54 | |
55 | PIXBUF equ 200h |
||
56 | EYE equ EYE_P-2 |
||
57 | |||
58 | |||
59 | |||
60 | |||
61 | |||
62 | mov edi,PIXBUF |
||
63 | fadd dword [di-PIXBUF+TEXUV-4] |
||
64 | push di |
||
65 | mov dx,-80 |
||
66 | |||
67 | |||
68 | |||
69 | |||
70 | |||
71 | |||
72 | |||
73 | |||
74 | fild word [si-TEXUV+EYE] |
||
75 | mov [si],bp |
||
76 | fild word [si] |
||
77 | mov [si],dx |
||
78 | fild word [si] |
||
79 | mov cl,2 |
||
80 | |||
81 | |||
82 | |||
83 | |||
84 | fsincos |
||
85 | fld st2 |
||
86 | fmul st0,st1 |
||
87 | fld st4 |
||
88 | fmul st0,st3 |
||
89 | db 0xde,0xe9 ; fsubp st1,st0 |
||
90 | db 0xd9,0xcb ; fxch st3 |
||
91 | fmulp st2,st0 |
||
92 | fmulp st3,st0 |
||
93 | faddp st2,st0 |
||
94 | db 0xd9,0xca ; fxch st2 |
||
95 | |||
96 | |||
97 | |||
98 | |||
99 | db 0xdc,0xc8 ; fmul st0,st |
||
100 | fld st1 |
||
101 | db 0xdc,0xc8 ; fmul st0,st |
||
102 | faddp st1,st0 |
||
103 | fsqrt |
||
104 | db 0xde,0xfb ; fdivp st3,st0 |
||
105 | fpatan |
||
106 | fimul word [si-4] |
||
107 | fistp word [si] |
||
108 | fimul word [si-4] |
||
109 | fistp word [si+1] |
||
110 | mov si,[si] |
||
111 | |||
112 | |||
113 | add al,ah |
||
114 | and al,64 |
||
115 | mov al,-5 |
||
116 | jz STORE_1 |
||
117 | |||
118 | |||
119 | lea ax,[bx+si] |
||
120 | sub al,ah |
||
121 | mov al,-16 |
||
122 | jns STORE_1 |
||
123 | |||
124 | |||
125 | mov al,-48 |
||
126 | |||
127 | |||
128 | |||
129 | |||
130 | add [di],al |
||
131 | inc di |
||
132 | |||
133 | |||
134 | cmp bp,160 |
||
135 | |||
136 | |||
137 | |||
138 | |||
139 | inc dx |
||
140 | cmp dx,80 |
||
141 | jnz TUBEY |
||
142 | |||
143 | |||
144 | |||
145 | |||
146 | mov ch,SCREEN*320/256 |
||
147 | |||
148 | |||
149 | |||
150 | |||
151 | sar byte [si],2 |
||
152 | loop BLUR |
||
153 | |||
154 | |||
155 | |||
156 | |||
157 | |||
158 | |||
159 | |||
160 | |||
161 | |||
162 | |||
163 | mov edi,0x10000 |
||
164 | newp: |
||
165 | movzx edx,byte [esi] |
||
166 | shl edx,4 |
||
167 | ; mov dh,dl |
||
168 | mov [edi],edx |
||
169 | |||
170 | |||
171 | inc esi |
||
172 | |||
173 | |||
174 | jbe newp |
||
175 | |||
176 | |||
177 | mov ecx,320*65536+160 |
||
178 | xor edx,edx |
||
316 | heavyiron | 179 | mov ebx,0x10000 |
31 | halyavin | 180 | mcall |
485 | heavyiron | 181 | |
31 | halyavin | 182 | |
183 | ret |
||
184 | |||
185 | |||
186 | |||
187 | |||
188 | |||
189 | |||
190 | |||
191 | |||
192 | mov ebx,1 |
||
193 | mcall |
||
485 | heavyiron | 194 | xor eax,eax |
316 | heavyiron | 195 | mov ebx,100*65536+329 |
196 | mov ecx,100*65536+186 |
||
197 | mov edx,0x34000000 |
||
551 | spraid | 198 | mov edi,title |
485 | heavyiron | 199 | mcall |
200 | mov eax,12 |
||
31 | halyavin | 201 | mov ebx,2 |
202 | mcall |
||
485 | heavyiron | 203 | popa |
31 | halyavin | 204 | ret |
205 | |||
206 | |||
485 | heavyiron | 207 | |
31 | halyavin | 208 | |
209 | |||
210 | |||
211 | |||
212 | |||
213 | |||
214 | |||
215 | |||
216 | |||
217 | |||
218 | |||
219 | mov ax,cx |
||
220 | inc dx |
||
221 | sar al,1 |
||
222 | js PAL2 |
||
223 | mul al |
||
224 | shr ax,6 |
||
225 | |||
226 | |||
227 | |||
228 | |||
229 | jns PAL3 |
||
230 | sub al,cl |
||
231 | shr al,1 |
||
232 | shr al,1 |
||
233 | |||
234 | |||
235 | |||
236 | |||
237 | mov [ebx+0x1000],bh |
||
238 | loop PAL1 |
||
239 | mov ecx,256 |
||
240 | |||
241 | |||
242 | |||
243 | |||
244 | add ax,cx |
||
245 | rol ax,cl |
||
246 | mov dh,al |
||
247 | sar dh,5 |
||
248 | adc dl,dh |
||
249 | adc dl,[ebx+255+0x1000] |
||
250 | shr dl,1 |
||
251 | mov [ebx+0x1000],dl |
||
252 | not bh |
||
253 | mov [ebx+0x1000],dl |
||
254 | loop TEX |
||
255 | |||
256 | |||
257 | fldz |
||
258 | |||
259 | |||
260 | |||
261 | |||
262 | |||
263 |