kolibrios/programs/system/icon/trunk/icon.asm

;********************************
;*                              *
;*     DESKTOP ICON MANAGER     *
;*                              *
;*  Compile with flat assembler *
;*                              *
;********************************
; version:	2.11
; last update:  19/03/2012
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      The program uses only 140 Kb memory is now.
;               Some speedup.
;---------------------------------------------------------------------
; version:	2.1
; last update:  17/03/2012
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      Global optimization! The program uses
;               only 161 KB of memory instead of 603 kb is now.
;---------------------------------------------------------------------
; version:	2.02
; last update:  15/03/2012
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      some optimisations and code refactoring
;---------------------------------------------------------------------
; version:	2.01
; last update:  27/09/2011
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      deactivate the window after click
;              (working to kernel r.2244 and above)
;---------------------------------------------------------------------
; Many fix's and changes created by:
;               Halyavin, Diamond, Heavyiron, 
;               SPraid, Dunkaist
;---------------------------------------------------------------------
; version:	2.00
; last update:  22|02|2005
; changed by:   Willow and Mario79
; changes:      modified for work with new multi-thread ICON.
;******************************************************************************
ICON_SIZE equ 32*32*3
;RAW_SIZE equ ICON_SIZE*32	;350000
;GIF_SIZE equ 12*1024	;45000
REC_SIZE equ 80
ICONS_DAT equ '/sys/ICONS.DAT'
ICON_APP equ '/sys/ICON'
ICON_STRIP equ '/sys/ICONSTRP.GIF'
;------------------------------------------------------------------------------
	use32
	org 0x0
	db 'MENUET01'	; 8 byte id
	dd 0x01		; header version
	dd START	; start of code
	dd IM_END	; size of image
	dd I_END	; memory for app
	dd stack_area	; esp
	dd I_Param	; boot parameters
	dd 0x0		; path
;------------------------------------------------------------------------------
include '../../../macros.inc'
include 'lang.inc'
COLOR_ORDER equ MENUETOS
include 'gif_lite.inc'
;include 'debug.inc'
purge newline
;------------------------------------------------------------------------------
START:		; start of execution
	mcall	68,11
; get size of file ICONSTRP.GIF
	mcall	70,finfo
	test	eax,eax
	jnz	close
; get memory for ICONSTRP.GIF
	mov	ecx,[process_table+32]
	mov	[finfo.size],ecx
	mcall	68,12
	mov	[finfo.point],eax
; load ICONSTRP.GIF
	mov	[finfo],dword 0
	mcall	70,finfo
	test	eax,eax
	jnz	close
; calculate and get memory for RAW data	
	mov	esi,[finfo.point]
	movzx	eax,word [esi+6]	;x
	movzx	edi,word [esi+8]	;y
	imul	eax,edi		;x*y
	lea	edi,[eax+eax*2]	; multiply x3
	mov	ecx,edi
	mcall	68,12
	mov	[strip_file],eax
	mov	edi,eax
; convert GIF to RAW
	call	ReadGIF
; back memeory to system
	mcall	68,13,[finfo.point]

	mov	eax,dword[edi+4]
	shr	eax,5
	mov	[icon_count],eax
; load ICON.DAT
	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
;------------------------------------------------------------------------------
align 4
still:
	mcall	10	; wait here for event
	dec	eax	; redraw request ?
	jz	red
	
	dec	eax	; key in buffer ?
	jz	key
;------------------------------------------------------------------------------
align 4
button:
	mcall	17	; get id
	shr	eax,8

;	dps	"button id: "
;	dpd	eax
;	newline_1

	cmp	eax,1	; button id=1 ?
	je	close
;--------------------------------------
align 4
noclose:
	mov	esi,[current_icon]
	add	esi,12
	mov	ebx,[cur_band]	;eax
	cmp	eax,31	; right arrow to icons bar
	jne	.no_back

	add	ebx,8
	mov	eax,[icon_count]
	cmp	eax,ebx
	jae	.drwic2

	xor	ebx,ebx
	jmp	.drwic2
;--------------------------------------
align 4
.no_back:
	cmp	eax,30	; left arrow to icons bar
	jne	.no_side

	test	ebx,ebx
	jnz	.dec

	mov	ebx,[icon_count]
	and	ebx,0xfffffff8
	add	ebx,8
;--------------------------------------
align 4
.dec:
	sub	ebx,8
;--------------------------------------
align 4
.drwic2:
	mov	[cur_band],ebx
;--------------------------------------
align 4
.drwic1:
	call	draw_icon
	jmp	still
;--------------------------------------
align 4
.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
;--------------------------------------
align 4
.no_ico:
	cmp	eax,11
	jb	no_str
	cmp	eax,13
	jg	no_str
	call	read_string
	jmp	still
;--------------------------------------
align 4 
no_str:
	cmp	eax,21	; apply changes
	jne	no_apply
	; (1) save list
	mov	ebx,finfo	; Change by spraid
	mov	dword[ebx],2
	mov	edx,REC_SIZE
	imul	edx,dword [icons]
	mov	[ebx+12],edx
	mov	esi,iconlst
	call	lst_path
	mcall	70
	; (2) terminate all icons
	or	ecx,-1
	mcall	9,process_table
	mov	edi,[ebx+30]
;--------------------------------------
align 4
newread2:
	mov	esi,1
;--------------------------------------
align 4
newread:
	inc	esi
	mov	ecx,esi
	mcall	9,process_table
	cmp	edi,[ebx+30]
	je	newread

	cmp	esi,eax
	jg	apply_changes

	mov	eax,[ebx+10]
	and	eax,not 20202020h
	cmp	eax,'@ICO'
	jz	@f
	cmp	eax,'ICON'
	jne	newread
;--------------------------------------
align 4
@@:
	mov	eax,51
	cmp	eax,[ebx+42]
	jne	newread

	cmp	eax,[ebx+46]
	jne	newread

	mov	ecx,esi
	mcall	18,2
	jmp	newread2
;------------------------------------------------------------------------------
align 4
finfo_start:
	dd 7
	dd 0
.params	dd 0
	dd 0
	dd 0
	db 0
	dd finfo.path
;------------------------------------------------------------------------------
align 4
finfo:
	dd 5
	dd 0
	dd 0
.size	dd 0	;GIF_SIZE
.point	dd process_table	;gif_file
.path:
	db ICON_STRIP,0
	rb 31-($-.path)
;------------------------------------------------------------------------------
align 4
apply_changes:
	mov	ebx, finfo_start
	mov	dword [ebx+8], boot_str+6
	mov	esi, iconname
	call	lst_path
	mcall	70
	jmp	still
;------------------------------------------------------------------------------
align 4
no_apply:
	cmp	eax,22		; user pressed the 'add icon' button
	jne	no_add_icon

	mov	ebx,24*65536+250+8*14
	mcall	4,,0xc0ff0000,add_text,,0xffffff

	mcall	10
	cmp	eax,3
	jne	still

	mcall	17
	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
; multiply x10
	shl	eax,1		; multiply x2
	lea	eax,[eax+eax*4] ; multiply x5
	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
;--------------------------------------
align 4
no_f:
	call	draw_btns	;draw_window
	jmp	still
;--------------------------------------
align 4
no_add_icon:
	cmp	eax,23	; user pressed the remove icon button
	jne	no_remove_icon
	
	mov	ebx,24*65536+250+8*14
	mcall	4,,0xc0ff0000,rem_text,,0xffffff
	
	mcall	10
	cmp	eax,3
	jne	no_f

	mcall	17
	shr	eax,8
	cmp	eax,40
	jb	red
	sub	eax,40
	
	xor	edx,edx
	mov	ebx,16
	div	ebx
; multiply x10
	shl	eax,1		; multiply x2
	lea	eax,[eax+eax*4] ; multiply x5
	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
;--------------------------------------
align 4 
news:
	cmp	word [esi],ax
	je	foundi
	add	esi,REC_SIZE
	cmp	esi,edi
	jb	news
	jmp	red
;--------------------------------------
align 4
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
;--------------------------------------
align 4
no_remove_icon:
	cmp	eax,40	; user pressed button for icon position
	jb	still
	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
;--------------------------------------
align 4
findl1:
	cmp	dx,[esi]
	je	foundl1
	add	esi,REC_SIZE
	loop	findl1
	jmp	still
;--------------------------------------
align 4
foundl1:
	mov	[current_icon],esi
	mov	[cur_btn],edi
;--------------------------------------
align 4
band:
	add	esi,12
	call	atoi
	and	eax,0xfffff8
	mov	[cur_band],eax
	call	draw_btns
	jmp	still
;------------------------------------------------------------------------------
current_icon	dd icon_data
;------------------------------------------------------------------------------
align 4
print_strings:
	pusha
	mcall	13,<100,180>,<278+12,40>,0xffffff	; clear text area
	xor	edi,edi
	mov	eax,4		; icon text
	mov	ebx,100*65536+278+14
	mov	ecx,3
;--------------------------------------
align 4
.ll:
	push	ecx
	mov	ecx,0x000000
	mov	edx,[current_icon]
	add	edx,[positions+edi*4]
	movzx	esi,byte[str_lens+edi]
	inc	edi
	mcall
	add	ebx,14
	pop	ecx
	loop	.ll

	popa
	ret
;------------------------------------------------------------------------------
iconlst	db ICONS_DAT,0
;------------------------------------------------------------------------------
align 4
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
;--------------------------------------
align 4
ldl1:
	movzx	ebx,byte [esi+1]
	sub	ebx,65
; multiply x10
	shl	ebx,1		; multiply x2
	lea	ebx,[ebx+ebx*4] ; multiply x5
	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
;------------------------------------------------------------------------------
align 4
lst_path:
	mov	ecx,30
	mov	edi,finfo.path
	rep	movsb
	ret
;------------------------------------------------------------------------------
align 4
load_ic:
	mov	ebx,finfo
	mov	dword[ebx+12],48*REC_SIZE
	mov	dword[ebx+16],icon_data
	mov	esi,iconlst
	call	lst_path
	mcall	70
	lea	eax,[ebx+10]
	xor	edx,edx
	mov	ebx,REC_SIZE
	div	ebx
	mov	[icons],eax
	ret
;------------------------------------------------------------------------------
align 4
positions	dd 3,16,47
str_lens	db 8,30,30
;------------------------------------------------------------------------------
align 4
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
;--------------------------------------
align 4
.l1:
	dec	edi
	cmp	byte[edi],' '
	jne	.found

	mov	byte[edi],'_'
	loop	.l1

	dec	edi
;--------------------------------------
align 4
.found:
	inc	edi
	push	edi
	call	print_strings
	pop	edi
;--------------------------------------
align 4
f11:
	mcall	10
	cmp	eax,2
	jz	fbu
	jmp	rs_done
;--------------------------------------
align 4
fbu:
	mcall	2
	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
;--------------------------------------
align 4
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
;--------------------------------------
align 4
rs_done:
	mov	ecx,[addr]
	add	ecx,[cur_str]
	sub	ecx,edi
	mov	eax,32
	cld
	rep	stosb
	call	print_strings
	popa
	ret
;------------------------------------------------------------------------------
align 4
key:
	mcall	2	; just read it and ignore
	jmp	still
;------------------------------------------------------------------------------
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
align 4
draw_window:
	mcall	12,1
	; DRAW WINDOW
	xor	eax,eax
	xor	esi,esi
	mcall	,<210,300>,<30,(390-14)>,0x14ffffff,,title

	mcall	13,<20,260>,<35,200>,0x3366cc	; WINDOW AREA

	mcall	38,<150,150>,<35,235>,0xffffff	; VERTICAL LINE ON WINDOW AREA

	mcall	,<20,280>,<135,135>	; HOROZONTAL LINE ON WINDOW AREA

	mcall	8,<20,72>,<(275+1+14),(13-2)>,11,[bcolor]	;id 11 TEXT ENTER BUTTONS
	
	inc	edx
	add	ecx,14*65536
	mcall			; id 12
	
	inc	edx
	add	ecx,14*65536
	mcall			; id 13

	mcall	,<20,259>,<(329+2),(15-4)>,21	; id 21 APPLY AND SAVE CHANGES BUTTON

	add	ecx,14*65536
	inc	edx
	mcall	,<20,(129-2)>	; id 22 ADD ICON BUTTON

	add	ebx,(130+2)*65536
	inc	edx
	mcall			; id 23 REMOVE ICON BUTTON

	mcall	,<(20-14),8>,<(260-23),32>,30 + 1 shl 30	; id 30 IMAGE BUTTON

	inc	edx
	add	ebx,(36*7+26) shl 16
	mcall		; id 31

	add	edx,1 + 1 shl 29
	mcall	,<(33-19),(34*8)>	; id 32
	
	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]
	mcall	47,0x30000,[icon_count],,0

	mov	eax,4
	mov	ebx,24 shl 16+(250+14+14+14)
	mov	ecx,0xffffff
	mov	edx,text
	mov	esi,47
;--------------------------------------
align 4
newline:
	mov	ecx,[edx]
	add	edx,4
	mcall
	add	ebx,14
	add	edx,47
	cmp	[edx],byte 'x'
	jne	newline
;--------------------------------------
align 4
draw_btns:
	mov	eax,0	; DRAW BUTTONS ON WINDOW AREA
	mov	ebx,20 shl 16+25
	mov	ecx,35 shl 16+19
	mov	edi,icon_table
	mov	edx,40
;--------------------------------------
align 4
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
;--------------------------------------
align 4
nores:
	push	eax
	mcall	8
	pop	eax
;--------------------------------------
align 4
no_button:
	add	ebx,26 shl 16

	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 shl 16
	inc	ah
	cmp	ah,8	;9
	jbe	newbline

	call	print_strings
	call	draw_icon
	mcall	12,2
	ret
;------------------------------------------------------------------------------
align 4
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]
;--------------------------------------
align 4
.nou:
	mov	eax,[cur_band]
	and	eax,0xfffffff8
	push	eax
	imul	eax,ICON_SIZE
	mov	ebx,[strip_file]
	lea	ebx,[ebx+8+eax]
	mov	ecx,8
	mov	edx,(33-18) shl 16+238
;--------------------------------------
align 4
.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
	
	add	edx,(5*8+4)shl 16
	mcall	,,[icon_count]
	
	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,   '   <20><><EFBFBD><EFBFBD><EFBFBD>                                       '
	db 255,255,255,0,   ' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>                                     '
	db 255,255,255,0,   ' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>                                     '
	db 255,255,255,0,   '                 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>                     '
	db 255,255,255,0,   '      <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>              <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>            '
	db 0,0,0,0,         '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>   '
	db                  'x' ; <- END MARKER, DONT DELETE

add_text	db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>     ',0
rem_text	db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>       ',0
title		db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0

else if lang eq ge
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          ',0
rem_text	db 'ICON ANKLICKEN; DAS GELOESCHT WERDEN SOLL    ',0
title		db 'Icon Manager',0

else
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                 ',0
rem_text	db 'CLICK ICON POSITION; YOU WANT TO DELETE      ',0
title		db 'Icon Manager',0

end if
;------------------------------------------------------------------------------
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>    -     <20><>    , <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> #'
else
	db 'ICONS     -     OF    , SELECTED'
end if

rep_text_len:
;------------------------------------------------------------------------------
align 4
get_bg_info:
	mcall	39,4
	mov	[bgrdrawtype],eax

	mcall	39,1	; get background size
	mov	[bgrxy],eax

	mov	ebx,eax
	shr	eax,16
	and	ebx,0xffff
	mov	[bgrx],eax
	mov	[bgry],ebx
	ret
;------------------------------------------------------------------------------
align 4
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
;--------------------------------------
align 4
no_left:
	sub	eax,9
	sal	eax,6	;imul eax,64
	sub	eax,16+52-1
	movzx	ebx,[warea.right]
	add	eax,ebx
;--------------------------------------
align 4
x_done:
	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
;--------------------------------------
align 4
no_up:
	sub	eax,9
	shl	eax,6		;imul eax,80
	sub	eax,16-1
	movzx	ebx,[warea.bottom]
	add	eax,ebx
;--------------------------------------
align 4
y_done:
	mov	[ebp-8],eax
	ret
;--------------------------------------
align 4
;START2:
load_icon_list2:
	call	get_bg_info

	mcall	48,5
	mov	[warea.by_x],eax
	mov	[warea.by_y],ebx

	mcall	14
	add	eax,0x00010001
	mov	[scrxy],eax
;--------------------------------------
align 4
apply_changes2:
	mov	edi,[icons]
	mov	esi,icon_data
	mov	ebp,thread_stack+0x100	;0x5000	; threads stack starting point
;--------------------------------------
align 4
start_new:
	mov	eax,[esi]
	mov	[ebp-20],eax
	call	calc_icon_pos

	mov	edx,ebp
	mov	dword[ebp-4],esi
	mcall	51,1,thread
	add	ebp,0x100
; change to next thread if mutex is blocked
	mov	eax,68
	mov	ebx,1
;--------------------------------------
align 4
wait_thread_start:		;wait until thread draw itself first time
	cmp	[create_thread_event],bl	;mutex
	jz	wait_thread_end
	mcall
	jmp	wait_thread_start
;--------------------------------------
align 4
wait_thread_end:
	dec	[create_thread_event]	;reset event
	add	esi,REC_SIZE
	dec	edi
	jnz	start_new
;--------------------------------------
align 4
close:
	or	eax,-1
	mcall
;------------------------------------------------------------------------------
; esp-28 = start of thread stack
; esp-24 = ???
; esp-20 = 'AA-F' or...
; esp-16 = ebp-4 - area of f. 15.6
; esp-12 = ebp+0 = X
; esp-8  = ebp+4 = Y
; esp-4  = ebp+8 = adress of icon_data
;------------------------------------------------------------------------------
align 4
thread:
	sub	esp,12
	mov	ebp,esp
	sub	esp,16
	call	draw_window2
	mov	[create_thread_event],1
	mcall	40,010101b
;------------------------------------------------------------------------------
align 4
still2:
	mcall	10
	cmp	eax,1
	je	red2

	cmp	eax,3
	je	button2
	
	call	get_bg_info
	call	draw_icon2_1
	
	jmp	still2
;------------------------------------------------------------------------------
align 4
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,process_table,-1
	mov	eax,[process_table+process_information.box.left]
	cmp	eax,[ebp+0]
	jne	@f
	mov	eax,[process_table+process_information.box.top]
	cmp	eax,[ebp+4]
	je	.lp1
;--------------------------------------
align 4
@@:
	call	get_bg_info
	mcall	67,[ebp+0],[ebp+4],51,51
;--------------------------------------
align 4
.lp1:
	call	draw_window2
	jmp	still2
;------------------------------------------------------------------------------
align 4
button2:
	mcall	17
	cmp	ah, 2
	jnz	still2

	mcall	9,process_table,-1
	mov	ecx,[ebx+30]	; PID
	mcall	18,21
	mov	edx,eax		; SLOT
	mcall	18,7
	cmp	edx,eax	; compare with active SLOT
	jne	@f
	mov	ecx,edx
	mcall	18,1	; set to down
	call	draw_window2
;--------------------------------------
align 4
@@:
	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
;--------------------------------------
align 4
.no0:
	mov	ebx,finfo_start
	mcall	70
	jmp	still2
;------------------------------------------------------------------------------
align 4
fill_paths:
	push	esi edi
	movzx	ecx,byte[str_lens+ebx]
	add	esi,[positions+ebx*4]
	push	esi
	add	esi,ecx
;--------------------------------------
align 4
.l1:
	dec	esi
	cmp	byte[esi],' '
	jnz	.found
	loop	.l1
	pop	esi
	jmp	.noms
;--------------------------------------
align 4
.found:
	lea	ecx,[esi+1]
	pop	esi
	sub	ecx,esi
	rep	movsb
;--------------------------------------
align 4
.noms:
	and	byte[edi],0
	pop	edi esi
	ret
;--------------------------------------
align 4
atoi:
	push	esi
	xor	eax,eax
	xor	ebx,ebx
;--------------------------------------
align 4
.nxt:
	lodsb
	cmp	al,'0'
	jb	.done
	cmp	al,'9'
	ja	.done
	sub	eax,'0'
; multiply x10
	shl	ebx,1		; multiply x2
	lea	ebx,[ebx+ebx*4] ; multiply x5
	add	ebx,eax
	jmp	.nxt
;--------------------------------------
align 4
.done:
	pop	esi
	mov	eax,ebx
	ret
;--------------------------------------
align 4
itoa:
	add	esi,2
	mov	ebx,10
	mov	ecx,3
;--------------------------------------
align 4
.l0:
	xor	edx,edx
	div	ebx
	add	dl,'0'
	mov	[esi],dl
	dec	esi
	loop	.l0
	ret
;------------------------------------------------------------------------------
align 4
draw_picture:
	mcall	15,6
	test	eax,eax
	jnz	@f
	mcall	68,1
	jmp	draw_picture
@@:
	mov	[ebp-4],eax
	mov	[image],image_area

	mov	edi,[ebp+8]
	lea	esi,[edi+12]
	call	atoi
	cmp	eax,[icon_count]
	ja	toponly.ex
;	imul	eax,(32*3*32)
	lea	eax,[eax+eax*2]	; multiply x3
	shl	eax,10		; multiply x1024
	
	mov	edi,[strip_file]
	lea	edi,[eax+edi+8]
	xor	ecx,ecx
	mov	esi,edi

	mov	[pixpos],0
;--------------------------------------
; loop Y start
align 4
new_line:	
	push	ecx	; Y
	xor	ebx,ebx
;--------------------------------------
; loop X start
align 4
newb:
	mov	ecx,[esp]
	push	ebx	; X

	cmp	ebx,10
	jb	yesbpix
	cmp	ebx,42
	jge	yesbpix
	cmp	ecx,31	;2
	jg	yesbpix

	push	esi
	mov	esi,edi
	add	esi,[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
;--------------------------------------
align 4
yesbpix:
stretch:
	cmp	[bgrdrawtype],dword 2
	jne	nostretch
	mov	eax,[ebp+4]
	add	eax,ecx
	imul	eax,[bgry]
	cdq
	movzx	ebx,word [scrxy]
	div	ebx
	imul	eax,[bgrx]
	push	eax
	mov	eax,[ebp+0]
	add	eax,[esp+4]
	imul	eax,[bgrx]
	cdq
	movzx	ebx,word [scrxy+2]
	div	ebx
	add	eax,[esp]
	add	esp,4
	jmp	notiled
;--------------------------------------
align 4
nostretch:
	cmp	[bgrdrawtype],dword 1
	jne	notiled
	mov	eax,[ebp+4]
	add	eax,ecx
	cdq
	movzx	ebx,word [bgrxy]
	div	ebx
	mov	eax,edx
	imul	eax,[bgrx]
	push	eax
	mov	eax,[ebp+0]
	add	eax,[esp+4]
	movzx	ebx,word [bgrxy+2]
	cdq
	div	ebx
	mov	eax,edx
	add	eax,[esp]
	add	esp,4
;--------------------------------------
align 4
notiled:
	lea	ecx,[eax+eax*2]
	add	ecx,[ebp-4]
	mov	eax,[ecx]
;--------------------------------------
align 4
nobpix:
	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

	pop	ebx

	inc	ebx
	
	mov	eax,[yw]
	inc	eax
	cmp	ebx,eax
	jb	newb

	pop	ecx

	inc	ecx
	mov	eax,[ya]
	add	[pixpos],eax

	cmp	[top],1
	jne	notop

	cmp	ecx,38
	je	toponly
;--------------------------------------
align 4
notop:
	cmp	ecx,52
	jnz	new_line
;--------------------------------------
align 4
toponly:
	mcall	15,7,[ebp-4]
	test	eax,eax
	jnz	@f
	mcall	68,1
	jmp	toponly
@@:
	xor	edx,edx
	mcall	7,image_area,<52,52>
;--------------------------------------
align 4	
.ex:
	mov	[load_pic],0
	ret
;------------------------------------------------------------------------------
align 4
draw_text:
	mov	esi,[ebp+8]
	add	esi,3
	push	edi
	mov	edi,title
	mov	ecx,8/4
	cld
	rep	movsd
	pop	edi
	mov	eax,title
;--------------------------------------
align 4
news2:
	cmp	[eax],byte 33
	jb	founde
	inc	eax
	cmp	eax,title+8	;11
	jb	news2
;--------------------------------------
align 4
founde:
	sub	eax,title
	mov	[tl],eax
	
	mov	eax,[tl]
	lea	eax,[eax+eax*2]		; eax *= char_width/2
	shl	eax,16
	
	mov	ebx,27 shl 16+40
	sub	ebx,eax
	
	xor	ecx,ecx		; black shade of text
	add	ebx,1 shl 16	;*65536+1
	mcall	4,,,title,[tl]

	inc	ebx
	mcall

	add	ebx,1 shl 16
	mcall

	inc	ebx
	mcall

	sub	ebx,1 shl 16
	mcall

	dec	ebx
	sub	ebx,1 shl 16
	mcall

	sub	ebx,1 shl 16
	dec	ebx
	mcall

	dec	ebx
	add	ebx,1 shl 16
	mcall

	inc	ebx
	mcall	,,0xffffff
	mov	[draw_pic],0
	ret
;------------------------------------------------------------------------------
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
align 4
draw_window2:
	mcall	12,1
	; DRAW WINDOW
	xor	eax,eax		; function 0 : define and draw window
	mov	ebx,[ebp+0-2]
	mov	ecx,[ebp+4-2]
	mov	bx,[yw]		; [x start] *65536 + [x size]
	mov	cx,51		; [y start] *65536 + [y size]
	mov	edx,0x41000000	; color of work area RRGGBB,8->color gl
	mcall
	
	mcall	8,51,50,0x40000002 ; button
;--------------------------------------
align 4
draw_icon2_1:
; change to next thread if mutex is blocked
	mov	eax,68
	mov	ebx,1
;--------------------------------------
align 4
draw_icon2:
	xchg	[load_pic],bl	;mutex
	test	bl,bl
	je	draw_icon_end
	mcall
	jmp	draw_icon2
;--------------------------------------
align 4
draw_icon_end:
; change to next thread if mutex is blocked
	mov	eax,68
	mov	ebx,1
;--------------------------------------
align 4
draw_icon_2:
	xchg	[draw_pic],bl	;mutex
	test	bl,bl
	je	draw_icon_end_2
	mcall
	jmp	draw_icon_2
;--------------------------------------
align 4
draw_icon_end_2:
	call	draw_picture
	call	draw_text
	mcall	12,2
	ret
;------------------------------------------------------------------------------
tl	dd 8
yw:	dd 51
ya	dd 0
cur_btn	dd 40

draw_pic	db 0
load_pic	db 0
create_thread_event	db 0

image	dd image_area

IncludeUGlobals
;------------------------------------------------------------------------------
IM_END:
;------------------------------------------------------------------------------
align 4
bgrx	dd ?
bgry	dd ?

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
strip_file	rd 1
;------------------------------------------------------------------------------
align 4
param_str	rb 31
;------------------------------------------------------------------------------
align 4
process_table:
	rb 0x400
;------------------------------------------------------------------------------	
align 4
icon_data:
	rb 0x1000
;------------------------------------------------------------------------------
align 4
	rb 0x1000
stack_area:
;------------------------------------------------------------------------------
align 4
I_Param:
	rb 0x100	; max 256 
;------------------------------------------------------------------------------
align 4
thread_stack:
	rb 0x100*48	; max 48 icons
;------------------------------------------------------------------------------
align 4
image_area:
	rb 52*52*3
;------------------------------------------------------------------------------
I_END: