WebSVN – Kolibri OS – Diff – /programs/system/icon/trunk/icon.asm


;********************************
;*                              *
;*     DESKTOP ICON MANAGER     *
;*                              *
;*  Compile with flat assembler *
;*                              *
;********************************
;  22.02.05 was modified for work with new multi-thread ICON.
;******************************************************************************
RAW_SIZE equ 350000
ICON_SIZE equ 32*32*3
GIF_SIZE equ 45000
REC_SIZE equ 80
ICON_LST equ '/RD/1/ICON2.LST'
;ICON_APP equ '/hd/1/me/icon2';
ICON_APP equ '/RD/1/ICON2'
;ICON_STRIP equ '/HD/1/ME/ICONSTRP.GIF'
ICON_STRIP equ '/RD/1/ICONSTRP.GIF'
 
  use32
  org    0x0
  db     'MENUET01'     ; 8 byte id
  dd     0x01           ; header version
  dd     START          ; start of code
  dd     I_END          ; size of image
  dd     icon_data+0x30000        ; memory for app
  dd     icon_data+0x30000        ; esp
  dd     I_Param , 0x0  ; I_Param , I_Icon
include  'macros.inc'
include  'lang.inc'
COLOR_ORDER equ MENUETOS
include  'gif_lite.inc'
;include  'debug.inc'
purge newline
;******************************************************************************
START:                       ; start of execution
    mcall 58,finfo
    cmp   ebx,GIF_SIZE
    ja    close
    mov   esi,gif_file
    mov   edi,strip_file
    mov   eax,icon_data
    call  ReadGIF
    movzx eax,word[strip_file+10]
    shr  eax,5
    mov  [icon_count],eax
    call load_ic
  boot_str:
    cmp   [I_Param],dword 'BOOT'
    je   load_icon_list2
      call  load_icon_list
 red:
    call draw_window         ; at first, draw the window
    mov  esi,[current_icon]
    jmp  band
still:
 
    mov  eax,10              ; wait here for event
    int  0x40
 
    cmp  eax,1               ; redraw request ?
    je   red
    cmp  eax,2               ; key in buffer ?
    je   key
    cmp  eax,3               ; button in buffer ?
    je   button
 
    jmp  still
 
  key:                       ; key
    mov  eax,2               ; just read it and ignore
    int  0x40
    jmp  still
 
  button:                    ; button
    mov  eax,17              ; get id
    int  0x40
 
    shr  eax,8
 
    cmp  eax,1               ; button id=1 ?
    je   close
  noclose:
      mov  esi,[current_icon]
      add  esi,12
    mov  ebx,[cur_band];eax
    cmp  eax,31
    jne  .no_back
    add  ebx,8
    mov  eax,[icon_count]
    cmp  eax,ebx
    jae  .drwic2
    xor  ebx,ebx
    jmp  .drwic2
  .no_back:
    cmp  eax,30
    jne  .no_side
    test ebx,ebx
    jnz  .dec
    mov  ebx,[icon_count]
         and  ebx,0xfffffff8
    add  ebx,8
  .dec:
    sub  ebx,8
  .drwic2:
    mov  [cur_band],ebx
  .drwic1:
    call draw_icon
    jmp  still
    .no_side:
       cmp  eax,32
       jne  .no_ico
       push ebx
       mcall 37,1
       pop  ebx
          shr  eax,16
       sub  eax,33-19
          mov  edi,34
          xor  edx,edx
          div  edi
    lea  ecx,[ebx+eax]
    cmp  ecx,[icon_count]
    jae  still
          mov  [sel_icon1],eax
          mov  ecx,eax
    add  eax,ebx
    call itoa
          jmp  .drwic1
  .no_ico:
    cmp  eax,11
    jb   no_str
    cmp  eax,13
    jg   no_str
    call read_string
    jmp  still
  no_str:
 
 
    cmp  eax,21              ; apply changes
    jne  no_apply
 
    ; (1) save list
 
    mov  ebx,finfo
    mov  dword[ebx],1
    mov  edx,REC_SIZE
    imul edx,dword [icons]
    mov  [ebx+8],edx
    mov  esi,iconlst
    call lst_path
    mcall 58
 
    ; (2) terminate all icons
    mov  eax,9
    mov  ebx,I_END
    mov  ecx,-1
    int  0x40
    mov  edi,[ebx+30]
     newread2:
    mov  esi,1
   newread:
    inc  esi
    mov  eax,9
    mov  ebx,I_END
    mov  ecx,esi
    int  0x40
    cmp  edi,[ebx+30]
    je   newread
    cmp  esi,eax
    jg   all_terminated
 
    cmp  [I_END+10],dword 'ICON'
    jne  newread
    mov  eax,51
    cmp  eax,[I_END+42]
    jne  newread
    cmp  eax,[I_END+46]
    jne  newread
 
    mov  eax,18
    mov  ebx,2
    mov  ecx,esi
    int  0x40
 
    jmp  newread2
 
finfo_start:
        dd      7
        dd      0
.params dd      0
        dd      0
        dd      0
        db      0
        dd      finfo.path
 
finfo:
        dd 0
        dd 0
        dd GIF_SIZE/512
        dd gif_file
        dd icon_data
  .path:
        db ICON_STRIP,0
        rb 31-($-.path)
 
   all_terminated:
 
   apply_changes:
 
 
        mov     ebx, finfo_start
        mov     dword [ebx+8], boot_str+6
        mov     esi, iconname
        call    lst_path
        mov     eax, 70
        int     0x40
    jmp   still
 
  no_apply:
 
    cmp  eax,22                 ; user pressed the 'add icon' button
    jne  no_add_icon
 
    mov  eax,13
    mov  ebx,24*65536+270
    mov  ecx,(250+8*14)*65536+8
    mov  edx,0xffffff
    int  0x40
    mov  eax,4
    mov  ebx,24*65536+250+8*14
    mov  ecx,0xff0000
    mov  edx,add_text
    mov  esi,add_text_len-add_text
    int  0x40
 
    mov  eax,10
    int  0x40
    cmp  eax,3
    jne  still
    mov  eax,17
    int  0x40
    shr  eax,8
    cmp  eax,40
    jb   no_f
    mov  edi,eax
    sub  eax,40
 
    xor  edx,edx  ; bcd -> 10
    mov  ebx,16
    div  ebx
    imul eax,10
    add  eax,edx
 
    mov  ebx,eax
    add  ebx,icons_reserved
    cmp  [ebx],byte 'x'
    je   no_f
    mov  [ebx],byte 'x'
 
    mov  [cur_btn],edi
    xor  edx,edx
    mov  ebx,10
    div  ebx
    add  eax,65
    add  edx,65
    mov  [icon_default+0],dl
    mov  [icon_default+1],al
 
    inc  dword [icons]
    mov  edi,[icons]
    dec  edi
    imul edi,REC_SIZE
    add  edi,icon_data
 
    mov  [current_icon],edi
 
    mov  esi,icon_default
    mov  ecx,REC_SIZE
    cld
    rep  movsb
    mov  esi,[current_icon]
    jmp  band
  no_f:
 
    call draw_btns;draw_window
 
    jmp  still
 
  no_add_icon:
 
 
    cmp  eax,23                     ; user pressed the remove icon button
    jne  no_remove_icon
 
    mov  eax,13
    mov  ebx,24*65536+270
    mov  ecx,(250+8*14)*65536+8
    mov  edx,0xffffff
    int  0x40
    mov  eax,4
    mov  ebx,24*65536+250+8*14
    mov  ecx,0xff0000
    mov  edx,rem_text
    mov  esi,rem_text_len-rem_text
    int  0x40
 
    mov  eax,10
    int  0x40
    cmp  eax,3
    jne  no_f;ound
    mov  eax,17
    int  0x40
    shr  eax,8
    cmp  eax,40
    jb   red;no_f;ound
    sub  eax,40
 
    xor  edx,edx
    mov  ebx,16
    div  ebx
    imul eax,10
    add  eax,edx
 
    mov  ebx,eax
    add  ebx,icons_reserved
    cmp  [ebx],byte 'x'
    jne  red
    mov  [ebx],byte ' '
 
    xor  edx,edx
    mov  ebx,10
    div  ebx
    shl  eax,8
    mov  al,dl
 
    add  eax,65*256+65
 
    mov  esi,icon_data
    mov  edi,REC_SIZE
    imul edi,[icons]
    add  edi,icon_data
  news:
    cmp  word [esi],ax
    je   foundi
    add  esi,REC_SIZE
    cmp  esi,edi
    jb   news
    jmp  red
 
  foundi:
 
    mov  ecx,edi
    sub  ecx,esi
 
    mov  edi,esi
    add  esi,REC_SIZE
 
    cld
    rep  movsb
 
    dec  [icons]
 
    mov  eax,icon_data
    mov  [current_icon],eax
    movzx ebx,word[eax]
    sub  bx,'AA'
    shl  bl,4
    shr  ebx,4
    add  ebx,40
    mov  [cur_btn],ebx
 
    jmp  red
 
  no_remove_icon:
 
    cmp  eax,40                 ; user pressed button for icon position
    jb   no_on_screen_button
    mov  edi,eax
    sub  eax,40
    mov  edx,eax
    shl  eax,4
    and  edx,0xf
    mov  dh,ah
    add  edx,65*256+65
 
    mov  esi,icon_data
    mov  ecx,[icons]
    cld
   findl1:
    cmp  dx,[esi]
    je   foundl1
    add  esi,REC_SIZE
    loop findl1
    jmp  still
 
   foundl1:
 
    mov  [current_icon],esi
    mov  [cur_btn],edi
   band:
    add  esi,12
    call atoi
    and  eax,0xfffff8
    mov  [cur_band],eax
    call draw_btns
 
    jmp  still
 
  no_on_screen_button:
 
 
    jmp  still
 
 
current_icon dd icon_data
 
 
print_strings:
 
    pusha
 
    mov  eax,13              ; clear text area
    mov  ebx,100*65536+180
    mov  ecx,(278+12)*65536+40
    mov  edx,0xffffff
    int  0x40
 
          xor  edi,edi
    mov  eax,4               ; icon text
    mov  ebx,100*65536+278+14
    mov  ecx,3
  .ll:
    push ecx
    mov  ecx,0x000000
    mov  edx,[current_icon]
    add  edx,[positions+edi*4]
    movzx esi,byte[str_lens+edi]
    inc  edi
    int  0x40
    add  ebx,14
    pop  ecx
    loop .ll
 
    popa
    ret
 
iconlst db ICON_LST,0
 
load_icon_list:
 
    mov   edi,icons_reserved   ; clear reserved area
    mov   eax,32
    mov   ecx,10*9
    cld
    rep   stosb
 
    mov   ecx,[icons]          ; set used icons to reserved area
    mov   esi,icon_data
  ldl1:
    movzx ebx,byte [esi+1]
    sub   ebx,65
    imul  ebx,10
    movzx eax,byte [esi]
    add   ebx,eax
    sub   ebx,65
    add   ebx,icons_reserved
    mov   [ebx],byte 'x'
    add   esi,REC_SIZE
    loop  ldl1
    ret
 
lst_path:
    mov   ecx,30
    mov   edi,finfo.path
    rep   movsb
    ret
 
load_ic:
    mov   ebx,finfo
    mov   dword[ebx+8],(48*REC_SIZE)shr 9+1
    mov   dword[ebx+12],icon_data
    mov   dword[ebx+16],gif_file
    mov   esi,iconlst
    call  lst_path
    mcall 58
    lea   eax,[ebx+10]
    xor   edx,edx
    mov   ebx,REC_SIZE
    div   ebx
    mov   [icons],eax
        ret
 
 
positions dd 3,16,47
str_lens db 8,30,30
 
read_string:
    pusha
    sub  eax,11
    movzx ecx,byte[str_lens+eax]
    mov  [cur_str],ecx
    mov  eax,[positions+eax*4]
 
    mov  edi,[current_icon]
    add  edi,eax
    mov  [addr],edi
 
          add  edi,ecx
 
  .l1:
    dec  edi
    cmp  byte[edi],' '
    jne  .found
    mov  byte[edi],'_'
    loop .l1
    dec  edi
  .found:
    inc  edi
    push  edi
    call print_strings
 
    pop  edi
  f11:
    mov  eax,10
    int  0x40
    cmp  eax,2
    jz   fbu
    jmp  rs_done
  fbu:
    mov  eax,2
    int  0x40
    shr  eax,8
    cmp  eax,13
    je   rs_done
    cmp  eax,8
    jnz  nobsl
    cmp  edi,[addr]
    jz   f11
    dec  edi
    mov  [edi],byte '_'
    call print_strings
    jmp  f11
  nobsl:
    cmp  eax,31
    jbe  f11
    mov  [edi],al
    call print_strings
 
    inc  edi
    mov  esi,[addr]
    add  esi,[cur_str]
    cmp  esi,edi
    jnz  f11
 
   rs_done:
 
    mov  ecx,[addr]
    add  ecx,[cur_str]
    sub  ecx,edi
    mov  eax,32
    cld
    rep  stosb
    call print_strings
    popa
    ret
 
;   *********************************************
;   *******  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
    mov  eax,0
    mov  ebx,210*65536+300
    mov  ecx,30*65536+390-14
    mov  edx,0x03ffffff
    mov  esi,0x808899ff
    mov  edi,0x008899ff
    int  0x40
 
                                   ; WINDOW LABEL
    mov  eax,4
    mov  ebx,8*65536+8
    mov  ecx,0x10ffffff
    mov  edx,labelt
    mov  esi,labellen-labelt
    int  0x40
 
    mov  eax,13                    ; WINDOW AREA
    mov  ebx,20*65536+260
    mov  ecx,35*65536+200
    mov  edx,0x3366cc
    int  0x40
 
    mov  eax,38                    ; VERTICAL LINE ON WINDOW AREA
    mov  ebx,150*65536+150
    mov  ecx,35*65536+235
    mov  edx,0xffffff
    int  0x40
 
    mov  eax,38                    ; HOROZONTAL LINE ON WINDOW AREA
    mov  ebx,20*65536+280
    mov  ecx,135*65536+135
    mov  edx,0xffffff
    int  0x40
 
    mov  eax,8                     ; TEXT ENTER BUTTONS
    mov  ebx,20*65536+72
    mov  ecx,(275+1+14)*65536+13-2
    mov  edx,11
    mov  esi,[bcolor]
    int  0x40
    inc  edx
    add  ecx,14*65536
    int  0x40
    inc  edx
    add  ecx,14*65536
    int  0x40
 
;    mov  eax,8                     ; APPLY AND SAVE CHANGES BUTTON
    mov  ebx,20*65536+259
    mov  ecx,(329+2)*65536+15-4
    mov  edx,21
    mov  esi,[bcolor]
    int  0x40
 
;    mov  eax,8                     ; ADD ICON BUTTON
    mov  ebx,20*65536+129-2
    add  ecx,14*65536
    inc  edx
    int  0x40
 
;    mov  eax,8                     ; REMOVE ICON BUTTON
    add  ebx,(130+2)*65536
    inc  edx
    int  0x40
 
    mcall ,<20-14,8>,<260-23,32>,30+1 shl 30    ; IMAGE BUTTON
    inc  edx
    add  ebx,(36*7+26) shl 16
    mcall
    add  edx,1+1 shl 29
    mov  ebx,(33-19) shl 16+(34*8)
    mcall
    mcall 4,<23-15,273-24>,0,arrows,1
    add  ebx,(36*7+27)shl 16
    add  edx,2
    mcall
    dec  edx
    mcall ,<120,250>
    lea  edx,[ebx+8 shl 16]
    mov  ecx,[icon_count]
    mcall 47,0x30000,,,0
 
;;
    mov  ebx,24*65536+250+14+14+14
    mov  ecx,0xffffff
    mov  edx,text
    mov  esi,47
  newline:
    mov  ecx,[edx]
    add  edx,4
    mov  eax,4
    int  0x40
    add  ebx,14
    add  edx,47
    cmp  [edx],byte 'x'
    jne  newline
draw_btns:
;;
    mov  eax,0                     ; DRAW BUTTONS ON WINDOW AREA
    mov  ebx,20*65536+25
    mov  ecx,35*65536+19
    mov  edi,icon_table
    mov  edx,40
   newbline:
 
    cmp  [edi],byte 'x'
    jne  no_button
 
    mov  esi,0x5577cc
    cmp  [edi+90],byte 'x'
    jne  nores
    mov  esi,0xcc5555
    cmp  edx,[cur_btn]
    jne  nores
    mov  esi,0xe7e05a
  nores:
 
    push eax
    mov  eax,8
    int  0x40
    pop  eax
 
  no_button:
 
    add  ebx,26*65536
 
    inc  edi
    inc  edx
 
    inc  al
    cmp  al,9
    jbe  newbline
    mov  al,0
 
    add  edx,6
 
    ror  ebx,16
    mov  bx,20
    ror  ebx,16
    add  ecx,20*65536
 
    inc  ah
    cmp  ah,8;9
    jbe  newbline
    call print_strings
    call draw_icon
    mov  eax,12                    ; function 12:tell os about windowdraw
    mov  ebx,2                     ; 2, end of draw
    int  0x40
 
    ret
 
draw_icon:
    mcall 13,<33-20,34*8+2>,<260-24,37+15-2>,0xffffff
    mov  esi,[current_icon]
    add  esi,12
    call atoi
    push eax
    cmp  eax,[cur_band]
    jb   .nou
    sub  eax,[cur_band]
    cmp  eax,7
    ja   .nou
    imul eax,34 shl 16
    lea  ebx,[eax+(33-19) shl 16]
    mov  bx,34
    mcall 13,,<236+35,3>,0xff0000
    mov  eax,[esp]
  .nou:
    mov  eax,[cur_band]
    and  eax,0xfffffff8
    push eax
    imul eax,ICON_SIZE
    lea  ebx,[strip_file+12+eax]
    mov  ecx,8
    mov  edx,(33-18) shl 16+238
  .nxt:
    push ecx
    mcall 7,,<32,32>
    pop  ecx
    add  ebx,ICON_SIZE
    add  edx,34 shl 16
    loop .nxt
 
    mcall 4,<45,280-2>,0,rep_text,rep_text_len-rep_text
    lea  edx,[ebx+(8*5)shl 16]
    pop  ecx
    mcall 47,0x30000,,,0xff
    add  ecx,7
    add  edx,(3*8+4)shl 16
    mcall
    mov  ecx,[icon_count]
    add  edx,(5*8+4)shl 16
    mcall
    pop  ecx
    add  edx,(10*8+4)shl 16
    mcall ,,,,0xff0000
    ret
 
; DATA AREA
 
 
bcolor dd 0x335599
 
icon_table:
 
    times 4  db  'xxxx  xxxx'
    times 2  db  '          '
    times 1  db  '          '
    times 2  db  'xxxx  xxxx'
;    times 1  db  '          '
 
icons_reserved:
    times 9  db  '          '
 
if lang eq ru
  text:
      db 255,255,255,0,   '                                          '
      db 255,255,255,0,   '                                      '
      db 255,255,255,0,   '                                      '
      db 255,255,255,0,   '                                      '
      db 255,255,255,0,   '                                '
      db 0,0,0,0,         '        '
      db                  'x' ; <- END MARKER, DONT DELETE
add_text db '    '
add_text_len:
 
rem_text db '    '
rem_text_len:
  labelt:
       db ' áâà®©ª  à ¡®ç¥£® áâ®« '
  labellen:
else if lang eq en
  text:
      db 255,255,255,0,   '   TITLE                                       '
      db 255,255,255,0,   '  APP NAME                                     '
      db 255,255,255,0,   ' PARAMETERS                                    '
      db 255,255,255,0,   '                APPLY CHANGES                  '
      db 255,255,255,0,   '      ADD ICON              REMOVE ICON        '
      db 0,0,0,0,         'CLICK BUTTON ON ICON POSITION FOR EDIT         '
      db                  'x' ; <- END MARKER, DONT DELETE
add_text db 'CLICK ON A NOT USED POSITION'
add_text_len:
 
rem_text db 'CLICK ICON POSITION; YOU WANT TO DELETE'
rem_text_len:
  labelt:
       db 'Icon Manager'
  labellen:
else
  text:
      db 255,255,255,0,   '   TITLE                                       '
      db 255,255,255,0,   '  APP NAME                                     '
      db 255,255,255,0,   ' PARAMETER                                     '
      db 255,255,255,0,   '                ANWENDEN                       '
      db 255,255,255,0,   '     HINZUFUEGEN              ENTFERNEN        '
      db 0,0,0,0,         'AUF BUTTON KLICKEN, UM ICON ZU EDITIEREN       '
      db                  'x' ; <- END MARKER, DONT DELETE
add_text db 'AUF UNBENUTZTE ICONPOSITION KLICKEN'
add_text_len:
 
rem_text db 'ICON ANKLICKEN; DAS GELOESCHT WERDEN SOLL'
rem_text_len:
  labelt:
       db 'Icon Manager'
  labellen:
 
end if
 
;ya    dd 0
 
arrows db ''
iconname:
      db ICON_APP,0
 
icon_default:
   db   'AA-SYSXTREE-000-/RD/1/SYSXTREE                '
   db   '-                              *'
   db   13,10
 
rep_text:
if lang eq ru
     db '    -         ,  #'
else
     db 'ICONS     -     OF    , SELECTED'
end if
 
rep_text_len:
 
;//////////////////////////
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
 
calc_icon_pos:
    movzx eax,byte [ebp-20]    ; x position
    sub  eax,'A'        ;eax - number of letter
    cmp  eax,4
    jg     no_left
    shl  eax,6 ;imul eax,64
    add  eax,16
    movzx ebx,[warea.left]
    add  eax,ebx
    jmp  x_done
  no_left:
    sub  eax,9
    sal  eax,6 ;imul eax,64
    sub  eax,16+52-1
    movzx ebx,[warea.right]
    add  eax,ebx
  x_done:
;    mov  [xpos],eax
    mov  [ebp-12],eax
 
    movzx eax,byte [ebp-20+1]  ; y position
    sub  eax,'A'        ; eax - number of letter
    cmp  eax,4
    jg     no_up
    shl  eax,6            ;imul eax,80
    add  eax,16
    movzx ebx,[warea.top]
    add  eax,ebx
    jmp  y_done
  no_up:
    sub  eax,9
    shl  eax,6            ;imul eax,80
    sub  eax,16-1
    movzx ebx,[warea.bottom]
    add  eax,ebx
  y_done:
;    mov  [ypos],eax
    mov  [ebp-8],eax
    ret
 
;START2:
load_icon_list2:
 
 
 
    call  get_bg_info
 
        mcall   48,5
        mov     [warea.by_x],eax
        mov     [warea.by_y],ebx
 
        mov     eax,14
        int     0x40
        add     eax,0x00010001
        mov     [scrxy],eax
 
apply_changes2:
 
    mov  edi,[icons]
    mov  esi,icon_data
    mov  ebp,0x5000 ; threads stack starting point
 
  start_new:
    mov eax,[esi]
    mov [ebp-20],eax
    call calc_icon_pos
 
    mov  eax,51
    mov  ebx,1
    mov  ecx,thread
;    mov  edx,[thread_stack]
    mov  edx,ebp
;    sub  edx,4
;    mov  [edx],esi
    mov  dword[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,REC_SIZE
    dec  edi
    jnz  start_new
  close:
    or     eax,-1
    int  0x40
 
thread:
;   pop  ebp ;ebp - address of our icon
    sub  esp,12
    mov  ebp,esp
    sub  esp,16
    call draw_window2
    mov  [create_thread_event],1
    mov  eax,40
    mov  ebx,010101b
    int  0x40
 
still2:
 
    mov  eax,10
    int  0x40
 
    cmp  eax,1
    je     red2
    cmp  eax,3
    je     button2
    cmp  eax,5
    jne  still2
 
    call  get_bg_info
    mov   eax,5
    mov   ebx,1
    call  draw_icon2
 
    jmp  still2
 
  red2:
        mcall   14
        add     eax,0x00010001
        mov     [scrxy],eax
        mcall   48,5
        mov     [warea.by_x],eax
        mov     [warea.by_y],ebx
        add     ebp,+12
        call    calc_icon_pos
        add     ebp,-12
        mcall   9,I_END,-1
        mov     eax,[I_END+process_information.x_start]
        cmp     eax,[ebp+0]
        jne     @f
        mov     eax,[I_END+process_information.y_start]
        cmp     eax,[ebp+4]
        je      .lp1
    @@: call    get_bg_info
        mcall   67,[ebp+0],[ebp+4],51,51
 
  .lp1: call    draw_window2
        jmp     still2
 
  key2:
    mov  eax,2
    int  0x40
 
    jmp  still2
 
  button2:
    mov  eax,17
    int  0x40
 
;    mcall 55,eax, , ,klick_music
 
    mov  esi,[ebp+8]
          mov  ebx,1
          mov  edi,finfo.path
          call fill_paths
          inc  ebx
       mov  edi,param_str
    mov  dword[finfo_start+8],edi
          call fill_paths
          cmp  byte[edi],0
    jne  .no0
    and  dword[finfo_start+8],0
  .no0:
;    lea  ebx,[ebp+19]
    mov  ebx,finfo_start
    mov  eax,70
    int  0x40
;    dph  eax
    cmp  eax,1024
    jae  still2
    mcall 55,eax, , ,klick_music
    jmp  still2
 
klick_music db 0x85,0x60,0x85,0x70,0x85,0x65,0
 
fill_paths:
        push esi edi
;        dps  '>'
        movzx ecx,byte[str_lens+ebx]
        add  esi,[positions+ebx*4]
        push esi
;  mov  edx,esi
        add  esi,ecx
 
    .l1:
        dec  esi
        cmp  byte[esi],' '
        jnz   .found
        loop .l1
  pop  esi
  jmp  .noms
    .found:
        lea  ecx,[esi+1]
        pop  esi
        sub  ecx,esi
        rep  movsb
 .noms:
        and  byte[edi],0
;        call debug_outstr
;        dps  <'<',13,10>
        pop  edi esi
        ret
 
atoi:
        push esi
        xor  eax,eax
        xor  ebx,ebx
  .nxt:
    lodsb
    cmp  al,'0'
    jb   .done
    cmp  al,'9'
    ja   .done
    sub  eax,'0'
    imul ebx,10
    add  ebx,eax
    jmp  .nxt
  .done:
      pop  esi
      mov  eax,ebx
        ret
 
itoa:
;        mov  esi,[current_icon]
        add  esi,2
    mov ebx,10
    mov ecx,3
  .l0:
    xor edx,edx
    div ebx
    add dl,'0'
    mov [esi],dl
    dec esi
    loop .l0
;    and byte[esi],0
        ret
 
draw_picture:
    mov  [image],0x3000
    mov  edi,[ebp+8]
    lea  esi,[edi+12]
    call atoi
          cmp  eax,[icon_count]
          ja  toponly.ex
          imul eax,(32*3*32)
          lea  edi,[eax+strip_file+12]
    xor  ebx,ebx
    xor  ecx,ecx
    mov  esi,edi;strip_file+12+(32*3*32)*2
 
    mov  [pixpos],0
  newb:
    push ebx
    push ecx
 
    cmp  ebx,10
    jb     yesbpix
    cmp  ebx,42
    jge  yesbpix
    cmp  ecx,31;2
    jg     yesbpix
 
    push esi
    mov  esi,edi
    add  esi,[pixpos]
 
no_correction_pixpos:
    add  [pixpos],3
    mov  eax,[esi]
    and  eax,0xffffff
 
    pop  esi
 
    cmp eax,0
    je    yesbpix
    cmp eax,0xfffcff ;f5f5f5
    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],edx
    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
  .ex:
    mov  [load_pic],0
    ret
 
draw_text:
 
    mov  esi,[ebp+8]
    add  esi,3
    push edi
    mov  edi,labelt
    mov  ecx,8
    cld
    rep  movsb
    pop  edi
    mov   eax,labelt
  news2:
    cmp   [eax],byte 33
    jb      founde
    inc   eax
    cmp   eax,labelt+8;11
    jb      news2
   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
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
 
draw_window2:
 
    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_icon2:
    xchg [load_pic],bl
    test bl,bl
    je     draw_icon_end
    int  0x40
    jmp  draw_icon2
draw_icon_end:
 
    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
 
    call draw_picture
    call draw_text
 
    mov  eax,12
    mov  ebx,2
    int  0x40
 
    ret
 
tl        dd      8
yw        dd     51
ya        dd      0
cur_btn   dd 40
 
;xpos       dd   15
;ypos       dd  185
draw_pic    db      0
load_pic    db      0
create_thread_event db 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 ?
param_str rb 31
 
;//////////////////////////
 
bgrxy        dd    ?
warea:
 .by_x:
  .right  dw ?
  .left   dw ?
 .by_y:
  .bottom dw ?
  .top    dw ?
scrxy        dd    ?
bgrdrawtype  dd    ?
 
pixpos dd    ?
top      dd ?
icons dd ?
addr  dd ?
cur_str    dd ?
cur_band   dd ?
sel_icon1  rd 1
icon_count rd 1
gif_file  rb  GIF_SIZE
strip_file rb RAW_SIZE
;I_Param:
 
; icon_data = I_END+256
 
I_END:

Rev 135	Rev 184
1	;********************************	1	;********************************
2	;* *	2	;* *
3	;* DESKTOP ICON MANAGER *	3	;* DESKTOP ICON MANAGER *
4	;* *	4	;* *
5	;* Compile with flat assembler *	5	;* Compile with flat assembler *
6	;* *	6	;* *
7	;********************************	7	;********************************
8	; 22.02.05 was modified for work with new multi-thread ICON.	8	; 22.02.05 was modified for work with new multi-thread ICON.
9	;******************************************************************************	9	;******************************************************************************
10	RAW_SIZE equ 350000	10	RAW_SIZE equ 350000
11	ICON_SIZE equ 32323	11	ICON_SIZE equ 32323
12	GIF_SIZE equ 45000	12	GIF_SIZE equ 45000
13	REC_SIZE equ 80	13	REC_SIZE equ 80
14	ICON_LST equ '/RD/1/ICON2.LST'	14	ICON_LST equ '/RD/1/ICON2.LST'
15	;ICON_APP equ '/hd/1/me/icon2';	15	;ICON_APP equ '/hd/1/me/icon2';
16	ICON_APP equ '/RD/1/ICON2'	16	ICON_APP equ '/RD/1/ICON2'
17	;ICON_STRIP equ '/HD/1/ME/ICONSTRP.GIF'	17	;ICON_STRIP equ '/HD/1/ME/ICONSTRP.GIF'
18	ICON_STRIP equ '/RD/1/ICONSTRP.GIF'	18	ICON_STRIP equ '/RD/1/ICONSTRP.GIF'
19		19
20	use32	20	use32
21	org 0x0	21	org 0x0
22	db 'MENUET01' ; 8 byte id	22	db 'MENUET01' ; 8 byte id
23	dd 0x01 ; header version	23	dd 0x01 ; header version
24	dd START ; start of code	24	dd START ; start of code
25	dd I_END ; size of image	25	dd I_END ; size of image
26	dd icon_data+0x30000 ; memory for app	26	dd icon_data+0x30000 ; memory for app
27	dd icon_data+0x30000 ; esp	27	dd icon_data+0x30000 ; esp
28	dd I_Param , 0x0 ; I_Param , I_Icon	28	dd I_Param , 0x0 ; I_Param , I_Icon
29	include 'macros.inc'	29	include 'macros.inc'
30	include 'lang.inc'	30	include 'lang.inc'
31	COLOR_ORDER equ MENUETOS	31	COLOR_ORDER equ MENUETOS
32	include 'gif_lite.inc'	32	include 'gif_lite.inc'
33	;include 'debug.inc'	33	;include 'debug.inc'
34	purge newline	34	purge newline
35	;******************************************************************************	35	;******************************************************************************
36	START: ; start of execution	36	START: ; start of execution
37	mcall 58,finfo	37	mcall 58,finfo
38	cmp ebx,GIF_SIZE	38	cmp ebx,GIF_SIZE
39	ja close	39	ja close
40	mov esi,gif_file	40	mov esi,gif_file
41	mov edi,strip_file	41	mov edi,strip_file
42	mov eax,icon_data	42	mov eax,icon_data
43	call ReadGIF	43	call ReadGIF
44	movzx eax,word[strip_file+10]	44	movzx eax,word[strip_file+10]
45	shr eax,5	45	shr eax,5
46	mov [icon_count],eax	46	mov [icon_count],eax
47	call load_ic	47	call load_ic
48	boot_str:	48	boot_str:
49	cmp [I_Param],dword 'BOOT'	49	cmp [I_Param],dword 'BOOT'
50	je load_icon_list2	50	je load_icon_list2
51	call load_icon_list	51	call load_icon_list
52	red:	52	red:
53	call draw_window ; at first, draw the window	53	call draw_window ; at first, draw the window
54	mov esi,[current_icon]	54	mov esi,[current_icon]
55	jmp band	55	jmp band
56	still:	56	still:
57		57
58	mov eax,10 ; wait here for event	58	mov eax,10 ; wait here for event
59	int 0x40	59	int 0x40
60		60
61	cmp eax,1 ; redraw request ?	61	cmp eax,1 ; redraw request ?
62	je red	62	je red
63	cmp eax,2 ; key in buffer ?	63	cmp eax,2 ; key in buffer ?
64	je key	64	je key
65	cmp eax,3 ; button in buffer ?	65	cmp eax,3 ; button in buffer ?
66	je button	66	je button
67		67
68	jmp still	68	jmp still
69		69
70	key: ; key	70	key: ; key
71	mov eax,2 ; just read it and ignore	71	mov eax,2 ; just read it and ignore
72	int 0x40	72	int 0x40
73	jmp still	73	jmp still
74		74
75	button: ; button	75	button: ; button
76	mov eax,17 ; get id	76	mov eax,17 ; get id
77	int 0x40	77	int 0x40
78		78
79	shr eax,8	79	shr eax,8
80		80
81	cmp eax,1 ; button id=1 ?	81	cmp eax,1 ; button id=1 ?
82	je close	82	je close
83	noclose:	83	noclose:
84	mov esi,[current_icon]	84	mov esi,[current_icon]
85	add esi,12	85	add esi,12
86	mov ebx,[cur_band];eax	86	mov ebx,[cur_band];eax
87	cmp eax,31	87	cmp eax,31
88	jne .no_back	88	jne .no_back
89	add ebx,8	89	add ebx,8
90	mov eax,[icon_count]	90	mov eax,[icon_count]
91	cmp eax,ebx	91	cmp eax,ebx
92	jae .drwic2	92	jae .drwic2
93	xor ebx,ebx	93	xor ebx,ebx
94	jmp .drwic2	94	jmp .drwic2
95	.no_back:	95	.no_back:
96	cmp eax,30	96	cmp eax,30
97	jne .no_side	97	jne .no_side
98	test ebx,ebx	98	test ebx,ebx
99	jnz .dec	99	jnz .dec
100	mov ebx,[icon_count]	100	mov ebx,[icon_count]
101	and ebx,0xfffffff8	101	and ebx,0xfffffff8
102	add ebx,8	102	add ebx,8
103	.dec:	103	.dec:
104	sub ebx,8	104	sub ebx,8
105	.drwic2:	105	.drwic2:
106	mov [cur_band],ebx	106	mov [cur_band],ebx
107	.drwic1:	107	.drwic1:
108	call draw_icon	108	call draw_icon
109	jmp still	109	jmp still
110	.no_side:	110	.no_side:
111	cmp eax,32	111	cmp eax,32
112	jne .no_ico	112	jne .no_ico
113	push ebx	113	push ebx
114	mcall 37,1	114	mcall 37,1
115	pop ebx	115	pop ebx
116	shr eax,16	116	shr eax,16
117	sub eax,33-19	117	sub eax,33-19
118	mov edi,34	118	mov edi,34
119	xor edx,edx	119	xor edx,edx
120	div edi	120	div edi
121	lea ecx,[ebx+eax]	121	lea ecx,[ebx+eax]
122	cmp ecx,[icon_count]	122	cmp ecx,[icon_count]
123	jae still	123	jae still
124	mov [sel_icon1],eax	124	mov [sel_icon1],eax
125	mov ecx,eax	125	mov ecx,eax
126	add eax,ebx	126	add eax,ebx
127	call itoa	127	call itoa
128	jmp .drwic1	128	jmp .drwic1
129	.no_ico:	129	.no_ico:
130	cmp eax,11	130	cmp eax,11
131	jb no_str	131	jb no_str
132	cmp eax,13	132	cmp eax,13
133	jg no_str	133	jg no_str
134	call read_string	134	call read_string
135	jmp still	135	jmp still
136	no_str:	136	no_str:
137		137
138		138
139	cmp eax,21 ; apply changes	139	cmp eax,21 ; apply changes
140	jne no_apply	140	jne no_apply
141		141
142	; (1) save list	142	; (1) save list
143		143
144	mov ebx,finfo	144	mov ebx,finfo
145	mov dword[ebx],1	145	mov dword[ebx],1
146	mov edx,REC_SIZE	146	mov edx,REC_SIZE
147	imul edx,dword [icons]	147	imul edx,dword [icons]
148	mov [ebx+8],edx	148	mov [ebx+8],edx
149	mov esi,iconlst	149	mov esi,iconlst
150	call lst_path	150	call lst_path
151	mcall 58	151	mcall 58
152		152
153	; (2) terminate all icons	153	; (2) terminate all icons
154	mov eax,9	154	mov eax,9
155	mov ebx,I_END	155	mov ebx,I_END
156	mov ecx,-1	156	mov ecx,-1
157	int 0x40	157	int 0x40
158	mov edi,[ebx+30]	158	mov edi,[ebx+30]
159	newread2:	159	newread2:
160	mov esi,1	160	mov esi,1
161	newread:	161	newread:
162	inc esi	162	inc esi
163	mov eax,9	163	mov eax,9
164	mov ebx,I_END	164	mov ebx,I_END
165	mov ecx,esi	165	mov ecx,esi
166	int 0x40	166	int 0x40
167	cmp edi,[ebx+30]	167	cmp edi,[ebx+30]
168	je newread	168	je newread
169	cmp esi,eax	169	cmp esi,eax
170	jg all_terminated	170	jg all_terminated
171		171
172	cmp [I_END+10],dword 'ICON'	172	cmp [I_END+10],dword 'ICON'
173	jne newread	173	jne newread
174	mov eax,51	174	mov eax,51
175	cmp eax,[I_END+42]	175	cmp eax,[I_END+42]
176	jne newread	176	jne newread
177	cmp eax,[I_END+46]	177	cmp eax,[I_END+46]
178	jne newread	178	jne newread
179		179
180	mov eax,18	180	mov eax,18
181	mov ebx,2	181	mov ebx,2
182	mov ecx,esi	182	mov ecx,esi
183	int 0x40	183	int 0x40
184		184
185	jmp newread2	185	jmp newread2
-		186
-		187	finfo_start:
-		188	dd 7
-		189	dd 0
-		190	.params dd 0
-		191	dd 0
-		192	dd 0
-		193	db 0
-		194	dd finfo.path
186		195
187	finfo:	196	finfo:
188	dd 0	197	dd 0
189	dd 0	198	dd 0
190	dd GIF_SIZE/512	199	dd GIF_SIZE/512
191	dd gif_file	200	dd gif_file
192	dd icon_data	201	dd icon_data
193	.path:	202	.path:
194	db ICON_STRIP,0	203	db ICON_STRIP,0
195	rb 31-($-.path)	204	rb 31-($-.path)
196		205
197	all_terminated:	206	all_terminated:
198		207
199	apply_changes:	208	apply_changes:
200		209
201	mov ebx,finfo	-
202	mov dword[ebx],16	210	mov ebx, finfo_start
203	mov dword[ebx+8],boot_str+6	211	mov dword [ebx+8], boot_str+6
204	mov esi,iconname	212	mov esi, iconname
205	call lst_path	213	call lst_path
206	mcall 58	214	mov eax, 70
-		215	int 0x40
207	jmp still	216	jmp still
208		217
209	no_apply:	218	no_apply:
210		219
211	cmp eax,22 ; user pressed the 'add icon' button	220	cmp eax,22 ; user pressed the 'add icon' button
212	jne no_add_icon	221	jne no_add_icon
213		222
214	mov eax,13	223	mov eax,13
215	mov ebx,24*65536+270	224	mov ebx,24*65536+270
216	mov ecx,(250+814)65536+8	225	mov ecx,(250+814)65536+8
217	mov edx,0xffffff	226	mov edx,0xffffff
218	int 0x40	227	int 0x40
219	mov eax,4	228	mov eax,4
220	mov ebx,2465536+250+814	229	mov ebx,2465536+250+814
221	mov ecx,0xff0000	230	mov ecx,0xff0000
222	mov edx,add_text	231	mov edx,add_text
223	mov esi,add_text_len-add_text	232	mov esi,add_text_len-add_text
224	int 0x40	233	int 0x40
225		234
226	mov eax,10	235	mov eax,10
227	int 0x40	236	int 0x40
228	cmp eax,3	237	cmp eax,3
229	jne still	238	jne still
230	mov eax,17	239	mov eax,17
231	int 0x40	240	int 0x40
232	shr eax,8	241	shr eax,8
233	cmp eax,40	242	cmp eax,40
234	jb no_f	243	jb no_f
235	mov edi,eax	244	mov edi,eax
236	sub eax,40	245	sub eax,40
237		246
238	xor edx,edx ; bcd -> 10	247	xor edx,edx ; bcd -> 10
239	mov ebx,16	248	mov ebx,16
240	div ebx	249	div ebx
241	imul eax,10	250	imul eax,10
242	add eax,edx	251	add eax,edx
243		252
244	mov ebx,eax	253	mov ebx,eax
245	add ebx,icons_reserved	254	add ebx,icons_reserved
246	cmp [ebx],byte 'x'	255	cmp [ebx],byte 'x'
247	je no_f	256	je no_f
248	mov [ebx],byte 'x'	257	mov [ebx],byte 'x'
249		258
250	mov [cur_btn],edi	259	mov [cur_btn],edi
251	xor edx,edx	260	xor edx,edx
252	mov ebx,10	261	mov ebx,10
253	div ebx	262	div ebx
254	add eax,65	263	add eax,65
255	add edx,65	264	add edx,65
256	mov [icon_default+0],dl	265	mov [icon_default+0],dl
257	mov [icon_default+1],al	266	mov [icon_default+1],al
258		267
259	inc dword [icons]	268	inc dword [icons]
260	mov edi,[icons]	269	mov edi,[icons]
261	dec edi	270	dec edi
262	imul edi,REC_SIZE	271	imul edi,REC_SIZE
263	add edi,icon_data	272	add edi,icon_data
264		273
265	mov [current_icon],edi	274	mov [current_icon],edi
266		275
267	mov esi,icon_default	276	mov esi,icon_default
268	mov ecx,REC_SIZE	277	mov ecx,REC_SIZE
269	cld	278	cld
270	rep movsb	279	rep movsb
271	mov esi,[current_icon]	280	mov esi,[current_icon]
272	jmp band	281	jmp band
273	no_f:	282	no_f:
274		283
275	call draw_btns;draw_window	284	call draw_btns;draw_window
276		285
277	jmp still	286	jmp still
278		287
279	no_add_icon:	288	no_add_icon:
280		289
281		290
282	cmp eax,23 ; user pressed the remove icon button	291	cmp eax,23 ; user pressed the remove icon button
283	jne no_remove_icon	292	jne no_remove_icon
284		293
285	mov eax,13	294	mov eax,13
286	mov ebx,24*65536+270	295	mov ebx,24*65536+270
287	mov ecx,(250+814)65536+8	296	mov ecx,(250+814)65536+8
288	mov edx,0xffffff	297	mov edx,0xffffff
289	int 0x40	298	int 0x40
290	mov eax,4	299	mov eax,4
291	mov ebx,2465536+250+814	300	mov ebx,2465536+250+814
292	mov ecx,0xff0000	301	mov ecx,0xff0000
293	mov edx,rem_text	302	mov edx,rem_text
294	mov esi,rem_text_len-rem_text	303	mov esi,rem_text_len-rem_text
295	int 0x40	304	int 0x40
296		305
297	mov eax,10	306	mov eax,10
298	int 0x40	307	int 0x40
299	cmp eax,3	308	cmp eax,3
300	jne no_f;ound	309	jne no_f;ound
301	mov eax,17	310	mov eax,17
302	int 0x40	311	int 0x40
303	shr eax,8	312	shr eax,8
304	cmp eax,40	313	cmp eax,40
305	jb red;no_f;ound	314	jb red;no_f;ound
306	sub eax,40	315	sub eax,40
307		316
308	xor edx,edx	317	xor edx,edx
309	mov ebx,16	318	mov ebx,16
310	div ebx	319	div ebx
311	imul eax,10	320	imul eax,10
312	add eax,edx	321	add eax,edx
313		322
314	mov ebx,eax	323	mov ebx,eax
315	add ebx,icons_reserved	324	add ebx,icons_reserved
316	cmp [ebx],byte 'x'	325	cmp [ebx],byte 'x'
317	jne red	326	jne red
318	mov [ebx],byte ' '	327	mov [ebx],byte ' '
319		328
320	xor edx,edx	329	xor edx,edx
321	mov ebx,10	330	mov ebx,10
322	div ebx	331	div ebx
323	shl eax,8	332	shl eax,8
324	mov al,dl	333	mov al,dl
325		334
326	add eax,65*256+65	335	add eax,65*256+65
327		336
328	mov esi,icon_data	337	mov esi,icon_data
329	mov edi,REC_SIZE	338	mov edi,REC_SIZE
330	imul edi,[icons]	339	imul edi,[icons]
331	add edi,icon_data	340	add edi,icon_data
332	news:	341	news:
333	cmp word [esi],ax	342	cmp word [esi],ax
334	je foundi	343	je foundi
335	add esi,REC_SIZE	344	add esi,REC_SIZE
336	cmp esi,edi	345	cmp esi,edi
337	jb news	346	jb news
338	jmp red	347	jmp red
339		348
340	foundi:	349	foundi:
341		350
342	mov ecx,edi	351	mov ecx,edi
343	sub ecx,esi	352	sub ecx,esi
344		353
345	mov edi,esi	354	mov edi,esi
346	add esi,REC_SIZE	355	add esi,REC_SIZE
347		356
348	cld	357	cld
349	rep movsb	358	rep movsb
350		359
351	dec [icons]	360	dec [icons]
352		361
353	mov eax,icon_data	362	mov eax,icon_data
354	mov [current_icon],eax	363	mov [current_icon],eax
355	movzx ebx,word[eax]	364	movzx ebx,word[eax]
356	sub bx,'AA'	365	sub bx,'AA'
357	shl bl,4	366	shl bl,4
358	shr ebx,4	367	shr ebx,4
359	add ebx,40	368	add ebx,40
360	mov [cur_btn],ebx	369	mov [cur_btn],ebx
361		370
362	jmp red	371	jmp red
363		372
364	no_remove_icon:	373	no_remove_icon:
365		374
366	cmp eax,40 ; user pressed button for icon position	375	cmp eax,40 ; user pressed button for icon position
367	jb no_on_screen_button	376	jb no_on_screen_button
368	mov edi,eax	377	mov edi,eax
369	sub eax,40	378	sub eax,40
370	mov edx,eax	379	mov edx,eax
371	shl eax,4	380	shl eax,4
372	and edx,0xf	381	and edx,0xf
373	mov dh,ah	382	mov dh,ah
374	add edx,65*256+65	383	add edx,65*256+65
375		384
376	mov esi,icon_data	385	mov esi,icon_data
377	mov ecx,[icons]	386	mov ecx,[icons]
378	cld	387	cld
379	findl1:	388	findl1:
380	cmp dx,[esi]	389	cmp dx,[esi]
381	je foundl1	390	je foundl1
382	add esi,REC_SIZE	391	add esi,REC_SIZE
383	loop findl1	392	loop findl1
384	jmp still	393	jmp still
385		394
386	foundl1:	395	foundl1:
387		396
388	mov [current_icon],esi	397	mov [current_icon],esi
389	mov [cur_btn],edi	398	mov [cur_btn],edi
390	band:	399	band:
391	add esi,12	400	add esi,12
392	call atoi	401	call atoi
393	and eax,0xfffff8	402	and eax,0xfffff8
394	mov [cur_band],eax	403	mov [cur_band],eax
395	call draw_btns	404	call draw_btns
396		405
397	jmp still	406	jmp still
398		407
399	no_on_screen_button:	408	no_on_screen_button:
400		409
401		410
402	jmp still	411	jmp still
403		412
404		413
405	current_icon dd icon_data	414	current_icon dd icon_data
406		415
407		416
408	print_strings:	417	print_strings:
409		418
410	pusha	419	pusha
411		420
412	mov eax,13 ; clear text area	421	mov eax,13 ; clear text area
413	mov ebx,100*65536+180	422	mov ebx,100*65536+180
414	mov ecx,(278+12)*65536+40	423	mov ecx,(278+12)*65536+40
415	mov edx,0xffffff	424	mov edx,0xffffff
416	int 0x40	425	int 0x40
417		426
418	xor edi,edi	427	xor edi,edi
419	mov eax,4 ; icon text	428	mov eax,4 ; icon text
420	mov ebx,100*65536+278+14	429	mov ebx,100*65536+278+14
421	mov ecx,3	430	mov ecx,3
422	.ll:	431	.ll:
423	push ecx	432	push ecx
424	mov ecx,0x000000	433	mov ecx,0x000000
425	mov edx,[current_icon]	434	mov edx,[current_icon]
426	add edx,[positions+edi*4]	435	add edx,[positions+edi*4]
427	movzx esi,byte[str_lens+edi]	436	movzx esi,byte[str_lens+edi]
428	inc edi	437	inc edi
429	int 0x40	438	int 0x40
430	add ebx,14	439	add ebx,14
431	pop ecx	440	pop ecx
432	loop .ll	441	loop .ll
433		442
434	popa	443	popa
435	ret	444	ret
436		445
437	iconlst db ICON_LST,0	446	iconlst db ICON_LST,0
438		447
439	load_icon_list:	448	load_icon_list:
440		449
441	mov edi,icons_reserved ; clear reserved area	450	mov edi,icons_reserved ; clear reserved area
442	mov eax,32	451	mov eax,32
443	mov ecx,10*9	452	mov ecx,10*9
444	cld	453	cld
445	rep stosb	454	rep stosb
446		455
447	mov ecx,[icons] ; set used icons to reserved area	456	mov ecx,[icons] ; set used icons to reserved area
448	mov esi,icon_data	457	mov esi,icon_data
449	ldl1:	458	ldl1:
450	movzx ebx,byte [esi+1]	459	movzx ebx,byte [esi+1]
451	sub ebx,65	460	sub ebx,65
452	imul ebx,10	461	imul ebx,10
453	movzx eax,byte [esi]	462	movzx eax,byte [esi]
454	add ebx,eax	463	add ebx,eax
455	sub ebx,65	464	sub ebx,65
456	add ebx,icons_reserved	465	add ebx,icons_reserved
457	mov [ebx],byte 'x'	466	mov [ebx],byte 'x'
458	add esi,REC_SIZE	467	add esi,REC_SIZE
459	loop ldl1	468	loop ldl1
460	ret	469	ret
461		470
462	lst_path:	471	lst_path:
463	mov ecx,30	472	mov ecx,30
464	mov edi,finfo.path	473	mov edi,finfo.path
465	rep movsb	474	rep movsb
466	ret	475	ret
467		476
468	load_ic:	477	load_ic:
469	mov ebx,finfo	478	mov ebx,finfo
470	mov dword[ebx+8],(48*REC_SIZE)shr 9+1	479	mov dword[ebx+8],(48*REC_SIZE)shr 9+1
471	mov dword[ebx+12],icon_data	480	mov dword[ebx+12],icon_data
472	mov dword[ebx+16],gif_file	481	mov dword[ebx+16],gif_file
473	mov esi,iconlst	482	mov esi,iconlst
474	call lst_path	483	call lst_path
475	mcall 58	484	mcall 58
476	lea eax,[ebx+10]	485	lea eax,[ebx+10]
477	xor edx,edx	486	xor edx,edx
478	mov ebx,REC_SIZE	487	mov ebx,REC_SIZE
479	div ebx	488	div ebx
480	mov [icons],eax	489	mov [icons],eax
481	ret	490	ret
482		491
483		492
484	positions dd 3,16,47	493	positions dd 3,16,47
485	str_lens db 8,30,30	494	str_lens db 8,30,30
486		495
487	read_string:	496	read_string:
488	pusha	497	pusha
489	sub eax,11	498	sub eax,11
490	movzx ecx,byte[str_lens+eax]	499	movzx ecx,byte[str_lens+eax]

Subversion Repositories Kolibri OS

(root)/programs/system/icon/trunk/icon.asm @ 195 – Rev 135 → 184