Subversion Repositories Kolibri OS

Rev

Rev 2490 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
31 halyavin 1
 
2492 leency 2
;  ßÛß ÛÜÛ ÛÛÛ ÛÛÜ   loveC: thanks, Serzh: eat my socks dude ;]
3
;  ( ) ( ) ( ) ( )   e-mail: baze@stonline.sk, web: www.3SC.sk
4
31 halyavin 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
 
2492 leency 192
	 mcall 48, 4 ;get skin width
193
	 lea  ecx,[100*65536+164+eax]
194
     xor  eax,eax
316 heavyiron 195
     mov  ebx,100*65536+329
196
     mov  edx,0x74000000
2490 mario79 197
     mov  edi,title
485 heavyiron 198
     mcall
199
     mcall 12, 2
2492 leency 200
     popa
31 halyavin 201
     ret
202
203
 
485 heavyiron 204
31 halyavin 205
 
206
207
 
208
209
 
210
211
 
212
213
 
214
215
 
216
  mov ax,cx
217
  inc dx
218
  sar al,1
219
  js PAL2
220
  mul al
221
  shr ax,6
222
223
 
224
225
 
226
  jns PAL3
227
  sub al,cl
228
  shr al,1
229
  shr al,1
230
231
 
232
233
 
234
  mov [ebx+0x1000],bh
235
  loop PAL1
236
  mov  ecx,256
237
238
 
239
240
 
241
  add ax,cx
242
  rol ax,cl
243
  mov dh,al
244
  sar dh,5
245
  adc dl,dh
246
  adc dl,[ebx+255+0x1000]
247
  shr dl,1
248
  mov [ebx+0x1000],dl
249
  not bh
250
  mov [ebx+0x1000],dl
251
  loop TEX
252
253
 
254
  fldz
255
256
 
257
258
 
259
 
260