Subversion Repositories Kolibri OS

;  ßÛß ÛÜÛ ÛÛÛ ÛÛÜ   loveC: thanks, Serzh: eat my socks dude ;]   compile the

;  ( ) ( ) ( ) ( )   e-mail: baze@stonline.sk, web: www.3SC.sk    source code

             org  0x0

             dd   0x01

             dd   START

             dd   I_END

             dd   0x40000

             dd   0x3ff00

             dd   0,0

   mov  ebx,1

   int  0x40

   jne  no_red

   call draw_window

   jmp  still

  no_red:

   je   still

   int  0x40

PIXBUF  equ 200h

EYE     equ EYE_P-2

 mov    edi,PIXBUF

 fadd   dword [di-PIXBUF+TEXUV-4]

 push   di

 mov    dx,-80

 fild   word [si-TEXUV+EYE]

 mov    [si],bp

 fild   word [si]

 mov    [si],dx

 fild   word [si]

 mov    cl,2

 fsincos

 fld    st2

 fmul   st0,st1

 fld    st4

 fmul   st0,st3

 db     0xde,0xe9 ; fsubp   st1,st0

 db     0xd9,0xcb ; fxch    st3

 fmulp  st2,st0

 fmulp  st3,st0

 faddp  st2,st0

 db     0xd9,0xca ; fxch    st2

 db     0xdc,0xc8 ; fmul    st0,st

 fld    st1

 db     0xdc,0xc8 ; fmul    st0,st

 faddp  st1,st0

 fsqrt

 db     0xde,0xfb ; fdivp   st3,st0

 fpatan

 fimul  word [si-4]

 fistp  word [si]

 fimul  word [si-4]

 fistp  word [si+1]

 mov    si,[si]

 add    al,ah

 and    al,64

 mov    al,-5

 jz     STORE_1

 lea    ax,[bx+si]

 sub    al,ah

 mov    al,-16

 jns    STORE_1

 mov    al,-48

 add    [di],al

 inc    di

 cmp    bp,160

 inc    dx

 cmp    dx,80

 jnz    TUBEY

 mov    ch,SCREEN*320/256

 sar    byte [si],2

 loop   BLUR

  mov edi,0x10000

 newp:

  movzx edx,byte [esi]

  shl edx,4

;  mov dh,dl

  mov [edi],edx

  inc esi

  jbe newp

  mov ecx,320*65536+160

  mov edx,10*65536+27

  mov ebx,0x10000

  int 0x40

  ret

     mov  ebx,1

     int  0x40

     mov  ebx,100*65536+339

     mov  ecx,100*65536+198

     mov  edx,0x03225588

     mov  esi,0x0

     mov  esi,0x0

     int  0x40

     mov  ebx,8*65536+8

     mov  ecx,0xffffff

     mov  edx,labeltext

     mov  esi,19

     int  0x40

     mov  ebx,2

     int  0x40

     ret

  mov ax,cx

  inc dx

  sar al,1

  js PAL2

  mul al

  shr ax,6

  jns PAL3

  sub al,cl

  shr al,1

  shr al,1

  mov [ebx+0x1000],bh

  loop PAL1

  mov  ecx,256

  add ax,cx

  rol ax,cl

  mov dh,al

  sar dh,5

  adc dl,dh

  adc dl,[ebx+255+0x1000]

  shr dl,1

  mov [ebx+0x1000],dl

  not bh

  mov [ebx+0x1000],dl

  loop TEX

  fldz