Subversion Repositories Kolibri OS

;

;    ICON APPLICATION

;

;    Compile with FASM for Menuet

;

;    22.02.05 Mario79

;      1) multi-threading

;      2)dinamic load BMP files

;      3)type on desktop with function 7

;      4)Image in memory only 8000h (32Kb) for all 48 icons.

;        Old version ICON 5000h*48(decimal)=960Kb.

;

use32

  org	 0x0

  db	 'MENUET01'

  dd	 0x01

  dd	 START

  dd	 I_END

  dd	 0x8000

  dd	 0x8000

  dd	 I_Param , 0x0

include 'lang.inc'

include 'macros.inc'

get_bg_info:

    mov  eax,39

    mov  ebx,4

    int  0x40

    mov  [bgrdrawtype],eax

    mov  eax,39     ; get background size

    mov  ebx,1

    int  0x40

    mov  [bgrxy],eax

    mov  ebx,eax

    shr  eax,16

    and  ebx,0xffff

    mov  [bgrx],eax

    mov  [bgry],ebx

    ret

START:

load_icon_list:

    mov   eax,6

    mov   ebx,icon_lst

    xor   ecx,ecx

    mov   edx,-1

    mov   esi,icon_data

    int   0x40

    add   eax,10

    xor   edx,edx

    mov   ebx,52

    div   ebx

    mov   [icons],eax

    call  get_bg_info

    mov  eax,14

    int  0x40

    add  eax,0x00010001

    mov  [scrxy],eax

apply_changes:

    mov  edi,[icons]

    mov  esi,icon_data

    mov  ebp,0x5000 ; threads stack starting point

  start_new:

    movzx eax,byte [esi]    ; x position

    sub  eax,'A'	    ;eax - number of letter

    cmp  eax,4

    jg	 no_left

    shl  eax,6 ;imul eax,64

    add  eax,24

    jmp  x_done

  no_left:

    sub  eax,9

    shl  eax,6 ;imul eax,64

    sub  eax,24+32-1

    movzx ebx,word [scrxy+2]

    add  eax,ebx

  x_done:

;    mov  [xpos],eax

    mov  [ebp-12],eax

    movzx eax,byte [esi+1]  ; y position

    sub  eax,'A'	    ; eax - number of letter

    cmp  eax,4

    jg	 no_up

    lea  eax,[eax+4*eax]

    shl  eax,4		    ;imul eax,80

    add  eax,34

    jmp  y_done

  no_up:

    sub  eax,9

    lea  eax,[eax+4*eax]

    shl  eax,4		    ;imul eax,80

    movzx ebx,word [scrxy]

    sub  eax,32-1

    add  eax,ebx

  y_done:

;    mov  [ypos],eax

    mov  [ebp-8],eax

    mov  eax,51

    mov  ebx,1

    mov  ecx,thread

;    mov  edx,[thread_stack]

    mov  edx,ebp

;    sub  edx,4

;    mov  [edx],esi

    mov  [ebp-4],esi

    int  0x40

;    add  [thread_stack],0x100

    add  ebp,0x100

    mov  eax,5

    mov  ebx,1

wait_thread_start:		 ;wait until thread draw itself first time

    cmp  [create_thread_event],bl

    jz	 wait_thread_end

    int  0x40

    jmp  wait_thread_start

wait_thread_end:

    dec  [create_thread_event]	 ;reset event

    add  esi,50+2

    dec  edi

    jnz  start_new

    or	 eax,-1

    int  0x40

thread:

;   pop  ebp ;ebp - address of our icon

    sub  esp,12

    mov  ebp,esp

    call draw_window

    mov  [create_thread_event],1

    mov  eax,40

    mov  ebx,010101b

    int  0x40

    jmp  still

red:

    call draw_window

still:

    mov  eax,10

    int  0x40

    cmp  eax,1

    je	 red

    cmp  eax,3

    je	 button

    cmp  eax,5

    jne  still

    call  get_bg_info

    mov   eax,5

    mov   ebx,1

    call  draw_icon

    jmp  still

  key:

    mov  eax,2

    int  0x40

    jmp  still

  button:

    mov  eax,17

    int  0x40

;    mcall 55,eax, , ,klick_music

    mov  ebx,[ebp+8]

    add  ebx,19

;    lea  ebx,[ebp+19]

    mov  eax,19

    xor  ecx,ecx

    int  0x40

    mcall 55,eax, , ,klick_music

    jmp  still

klick_music db 0x85,0x60,0x85,0x70,0x85,0x65,0

draw_picture:

    mov  [image],0x3000

    xor  ebx,ebx

    xor  ecx,ecx

    mov  esi,data_from_file+54+32*3*33-96

    mov  [pixpos],0

    mov  [pixpos2],32

  newb:

    push ebx

    push ecx

    cmp  ebx,10

    jb	 yesbpix

    cmp  ebx,42

    jge  yesbpix

    cmp  ecx,32

    jg	 yesbpix

    push esi

    mov  esi,data_from_file+54+32*3*33-96

    sub  esi,[pixpos]

    dec  [pixpos2]

    cmp  [pixpos2],0

    jne  no_correction_pixpos

    add  [pixpos],192

    mov  [pixpos2],32

no_correction_pixpos:

    sub  [pixpos],3

    mov  eax,[esi]

    and  eax,0xffffff

    pop  esi

    cmp eax,0

    je	yesbpix

    cmp eax,0xf5f5f5

    je	yesbpix

    jmp nobpix

  yesbpix:

  stretch:

    cmp   [bgrdrawtype],dword 2

    jne   nostretch

;    mov   eax,[ypos]

    mov   eax,[ebp+4]

    add   eax,ecx

    imul  eax,[bgry]

    cdq

    movzx ebx,word [scrxy]

    div   ebx

    imul  eax,[bgrx]

    push  eax

;    mov   eax,[xpos]

    mov   eax,[ebp+0]

    add   eax,[esp+8]

    imul  eax,[bgrx]

    cdq

    movzx ebx,word [scrxy+2]

    div   ebx

    add   eax,[esp]

    add   esp,4

    jmp   notiled

  nostretch:

    cmp   [bgrdrawtype],dword 1

    jne   notiled

;    mov   eax,[ypos]

    mov   eax,[ebp+4]

    add   eax,ecx

    cdq

    movzx ebx,word [bgrxy]

    div   ebx

    mov   eax,edx

    imul  eax,[bgrx]

    push  eax

;    mov   eax,[xpos]

    mov   eax,[ebp+0]

    add   eax,[esp+8]

    movzx ebx,word [bgrxy+2]

    cdq

    div   ebx

    mov   eax,edx

    add   eax,[esp]

    add   esp,4

  notiled:

    lea  ecx,[eax+eax*2]

    mov  eax,39

    mov  ebx,2

    int  0x40

  nobpix:

    pop  ecx

    pop  ebx

    mov  edx,eax

    mov  eax,[image]

    mov  [eax],dl

    inc  eax

    ror  edx,8

    mov  [eax],dl

    inc  eax

    ror  edx,8

    mov  [eax],dl

    inc  eax

    mov  [image],eax

    inc  ebx

    mov  eax,[yw]

    inc  eax

    cmp  ebx,eax

    jnz  newb

    xor  ebx,ebx

    inc  ecx

    mov  eax,[ya]

    add  [pixpos],eax

    cmp  [top],1

    jne  notop

    cmp  ecx,38

    je	 toponly

  notop:

    cmp  ecx,52

    jnz  newb

  toponly:

    mov  eax,7

    mov  ebx,0x3000

    mov  ecx,52 shl 16 + 52

    xor  edx,edx

    int  0x40

    mov  [load_pic],0

    ret

draw_text:

    mov  esi,[ebp+8]

    add  esi,33

;    lea  esi,[ebp+33]

    push edi

    mov  edi,labelt

    mov  ecx,8

    cld

    rep  movsb

    pop  edi

    mov   eax,labelt

  news:

    cmp   [eax],byte 33

    jb	  founde

    inc   eax

    cmp   eax,labelt+11

    jb	  news

   founde:

    sub   eax,labelt

    mov   [tl],eax

    mov   eax,[tl]

    lea   eax,[eax+eax*2]  ; eax *= char_width/2

    shl   eax,16

    mov   ebx,27*65536+42

    sub   ebx,eax

    mov   eax,4

    xor   ecx,ecx		 ; black shade of text

    mov   edx,labelt

    mov   esi,[tl]

    add   ebx,1 shl 16	  ;*65536+1

    int   0x40

    inc   ebx

    int   0x40

    add   ebx,1 shl 16

    int   0x40

    inc   ebx

    int   0x40

    sub   ebx,1 shl 16

    int   0x40

    dec   ebx

    sub   ebx,1 shl 16

    int   0x40

    sub   ebx,1 shl 16

    dec   ebx

    int   0x40

    dec   ebx

    add   ebx,1 shl 16

    int   0x40

    inc   ebx

    mov   ecx,0xffffff

    int   0x40

    mov   [draw_pic],0

    ret

load_icon_file:

    mov  ebx,[ebp+8]

    add  ebx,5

;    lea  ebx,[ebp+5]

    mov  eax,6

    xor  ecx,ecx

    mov  edx,-1

    mov  esi,data_from_file

    int  0x40

    ret

    ; for y = 32 to 0

    ;   for x = 0 to 32

    ;     if (pix[y][x]==0) then

    ;        pix[y][x]=background(x,y);

;   *********************************************

;   *******  WINDOW DEFINITIONS AND DRAW ********

;   *********************************************

draw_window:

    mov  eax,12 		   ; function 12:tell os about windowdraw

    mov  ebx,1			   ; 1, start of draw

    int  0x40

				   ; DRAW WINDOW

    xor  eax,eax		     ; function 0 : define and draw window

;    mov  ebx,[xpos-2]

    mov  ebx,[ebp+0-2]

;    mov  ecx,[ypos-2]

    mov  ecx,[ebp+4-2]

    add  ebx,[yw]		   ; [x start] *65536 + [x size]

    add  ecx,51 		   ; [y start] *65536 + [y size]

    mov  edx,0x01000000 	   ; color of work area RRGGBB,8->color gl

    int  0x40

    mov  eax,8	  ; button

    mov  ebx,51

    mov  ecx,50

    mov  edx,1+20000000 ; or 0x40000000

    int  0x40

    mov  eax,5

    mov  ebx,1

draw_icon:

    xchg [load_pic],bl

    test bl,bl

    je	 draw_icon_end

    int  0x40

    jmp  draw_icon

draw_icon_end:

    call load_icon_file

    mov  eax,5

    mov  ebx,1

draw_icon_2:

    xchg [draw_pic],bl

    test bl,bl

    je	 draw_icon_end_2

    int  0x40

    jmp  draw_icon_2

draw_icon_end_2:

    mov  eax,9

    mov  ebx,process_table

    mov  ecx,-1

    int  0x40

;    mov  eax,process_table

;    add  eax,34

;    mov  ebx,[eax]

;    mov  [xpos],ebx

;    add  eax,4

;    mov  ebx,[eax]

;    mov  [ypos],ebx

    call draw_picture

    call draw_text

    mov  eax,12

    mov  ebx,2

    int  0x40

    ret

icon_lst db 'ICON    LST'

tl	    dd	  8

yw	    dd	 51

ya	    dd	  0

;xpos       dd   15

;ypos       dd  185

draw_pic    db	  0

load_pic    db	  0

create_thread_event db 0

labelt:

	    db	'SETUP      '

labellen:

bgrxy	    dd	0x0

scrxy	    dd	0x0

bgrdrawtype dd	0x0

pixpos	    dd	0

pixpos2     db	0

top	  dd 0

image	      dd  0x3000

;thread_stack  dd  0x5000

icons dd 0

I_Param:

 icon_data = I_END+0x1400

 process_table = I_END+0x2400

I_END:

bgrx dd ?

bgry dd ?

data_from_file:

  rb 54 ;header

 raw_data:

  rb 32*32