ace-dent/kolibrios-gitea
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

Global optimization! The program uses only 161 KB of memory instead of 603 kb is now.

Browse Source 
git-svn-id: svn://kolibrios.org@2475 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Marat Zakiyanov (Mario79) 2012-03-17 18:39:13 +00:00
parent 97ca8b9031
commit 1f33ac700c
1 changed files with 251 additions and 121 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

372
programs/system/icon/trunk/icon.asm
View File

@ -5,12 +5,36 @@
;* Compile with flat assembler * ;* Compile with flat assembler *
;* * ;* *
;******************************** ;********************************
; 22.02.05 was modified for work with new multi-thread ICON. ;---------------------------------------------------------------------
; 8.03.07 ïåðåõîä íà 70 ôóíêöèþ by SPraid ; 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.
;****************************************************************************** ;******************************************************************************
RAW_SIZE equ 350000
ICON_SIZE equ 32*32*3 ICON_SIZE equ 32*32*3
GIF_SIZE equ 45000 RAW_SIZE equ ICON_SIZE*32 ;350000
GIF_SIZE equ 12*1024 ;45000
REC_SIZE equ 80 REC_SIZE equ 80
ICONS_DAT equ '/sys/ICONS.DAT' ICONS_DAT equ '/sys/ICONS.DAT'
ICON_APP equ '/sys/ICON' ICON_APP equ '/sys/ICON'
@ -18,13 +42,14 @@ ICON_STRIP equ '/sys/ICONSTRP.GIF'
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
use32 use32
org 0x0 org 0x0
db 'MENUET01' ; 8 byte id db 'MENUET01' ; 8 byte id
dd 0x01 ; header version dd 0x01 ; header version
dd START ; start of code dd START ; start of code
dd I_END ; size of image dd IM_END ; size of image
dd icon_data+0x30000 ; memory for app dd I_END ; memory for app
dd stack_area ; esp dd stack_area ; esp
dd I_Param , 0x0 ; I_Param , I_Icon dd I_Param ; boot parameters
dd 0x0 ; path
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
include '../../../macros.inc' include '../../../macros.inc'
include 'lang.inc' include 'lang.inc'
@ -33,7 +58,7 @@ include 'gif_lite.inc'
;include 'debug.inc' ;include 'debug.inc'
purge newline purge newline
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
START: ; start of execution START: ; start of execution
mcall 70,finfo mcall 70,finfo
cmp ebx,GIF_SIZE cmp ebx,GIF_SIZE
ja close ja close
@ -50,29 +75,29 @@ boot_str:
je load_icon_list2 je load_icon_list2
call load_icon_list call load_icon_list
red: red:
call draw_window ; at first, draw the window call draw_window ; at first, draw the window
mov esi,[current_icon] mov esi,[current_icon]
jmp band jmp band
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
still: still:
mcall 10 ; wait here for event mcall 10 ; wait here for event
dec eax ; redraw request ? dec eax ; redraw request ?
jz red jz red
dec eax ; key in buffer ? dec eax ; key in buffer ?
jz key jz key
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
button: ; button button:
mcall 17 ; get id mcall 17 ; get id
shr eax,8 shr eax,8
; dps "button id: " ; dps "button id: "
; dpd eax ; dpd eax
; newline_1 ; newline_1
cmp eax,1 ; button id=1 ? cmp eax,1 ; button id=1 ?
je close je close
;-------------------------------------- ;--------------------------------------
align 4 align 4
@ -147,9 +172,9 @@ align 4
call read_string call read_string
jmp still jmp still
;-------------------------------------- ;--------------------------------------
align 4 align 4
no_str: no_str:
cmp eax,21 ; apply changes cmp eax,21 ; apply changes
jne no_apply jne no_apply
; (1) save list ; (1) save list
mov ebx,finfo ; Change by spraid mov ebx,finfo ; Change by spraid
@ -161,8 +186,8 @@ no_str:
call lst_path call lst_path
mcall 70 mcall 70
; (2) terminate all icons ; (2) terminate all icons
or ecx,-1 or ecx,-1
mcall 9,I_END mcall 9,process_table
mov edi,[ebx+30] mov edi,[ebx+30]
;-------------------------------------- ;--------------------------------------
align 4 align 4
@ -173,14 +198,14 @@ align 4
newread: newread:
inc esi inc esi
mov ecx,esi mov ecx,esi
mcall 9,I_END mcall 9,process_table
cmp edi,[ebx+30] cmp edi,[ebx+30]
je newread je newread
cmp esi,eax cmp esi,eax
jg all_terminated jg apply_changes
mov eax,[ebx+10] ;[I_END+10] mov eax,[ebx+10]
and eax,not 20202020h and eax,not 20202020h
cmp eax,'@ICO' cmp eax,'@ICO'
jz @f jz @f
@ -190,10 +215,10 @@ newread:
align 4 align 4
@@: @@:
mov eax,51 mov eax,51
cmp eax,[ebx+42] ;[I_END+42] cmp eax,[ebx+42]
jne newread jne newread
cmp eax,[ebx+46] ;[I_END+46] cmp eax,[ebx+46]
jne newread jne newread
mov ecx,esi mov ecx,esi
@ -202,28 +227,27 @@ align 4
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
finfo_start: finfo_start:
dd 7 dd 7
dd 0 dd 0
.params dd 0 .params dd 0
dd 0 dd 0
dd 0 dd 0
db 0 db 0
dd finfo.path dd finfo.path
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
finfo: finfo:
dd 0 dd 0
dd 0 dd 0
dd 0 dd 0
dd GIF_SIZE dd GIF_SIZE
dd gif_file dd gif_file
.path: .path:
db ICON_STRIP,0 db ICON_STRIP,0
rb 31-($-.path) rb 31-($-.path)
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
all_terminated: apply_changes:
;apply_changes:
mov ebx, finfo_start mov ebx, finfo_start
mov dword [ebx+8], boot_str+6 mov dword [ebx+8], boot_str+6
mov esi, iconname mov esi, iconname
@ -233,7 +257,7 @@ all_terminated:
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
no_apply: no_apply:
cmp eax,22 ; user pressed the 'add icon' button cmp eax,22 ; user pressed the 'add icon' button
jne no_add_icon jne no_add_icon
mov ebx,24*65536+250+8*14 mov ebx,24*65536+250+8*14
@ -250,10 +274,9 @@ no_apply:
mov edi,eax mov edi,eax
sub eax,40 sub eax,40
xor edx,edx ; bcd -> 10 xor edx,edx ; bcd -> 10
mov ebx,16 mov ebx,16
div ebx div ebx
; imul eax,10
; multiply x10 ; multiply x10
shl eax,1 ; multiply x2 shl eax,1 ; multiply x2
lea eax,[eax+eax*4] ; multiply x5 lea eax,[eax+eax*4] ; multiply x5
@ -296,7 +319,7 @@ no_f:
;-------------------------------------- ;--------------------------------------
align 4 align 4
no_add_icon: no_add_icon:
cmp eax,23 ; user pressed the remove icon button cmp eax,23 ; user pressed the remove icon button
jne no_remove_icon jne no_remove_icon
mov ebx,24*65536+250+8*14 mov ebx,24*65536+250+8*14
@ -309,13 +332,12 @@ no_add_icon:
mcall 17 mcall 17
shr eax,8 shr eax,8
cmp eax,40 cmp eax,40
jb red;no_f;ound jb red
sub eax,40 sub eax,40
xor edx,edx xor edx,edx
mov ebx,16 mov ebx,16
div ebx div ebx
; imul eax,10
; multiply x10 ; multiply x10
shl eax,1 ; multiply x2 shl eax,1 ; multiply x2
lea eax,[eax+eax*4] ; multiply x5 lea eax,[eax+eax*4] ; multiply x5
@ -374,7 +396,7 @@ foundi:
;-------------------------------------- ;--------------------------------------
align 4 align 4
no_remove_icon: no_remove_icon:
cmp eax,40 ; user pressed button for icon position cmp eax,40 ; user pressed button for icon position
jb still jb still
mov edi,eax mov edi,eax
sub eax,40 sub eax,40
@ -416,7 +438,7 @@ print_strings:
pusha pusha
mcall 13,<100,180>,<278+12,40>,0xffffff ; clear text area mcall 13,<100,180>,<278+12,40>,0xffffff ; clear text area
xor edi,edi xor edi,edi
mov eax,4 ; icon text mov eax,4 ; icon text
mov ebx,100*65536+278+14 mov ebx,100*65536+278+14
mov ecx,3 mov ecx,3
;-------------------------------------- ;--------------------------------------
@ -440,13 +462,13 @@ iconlst db ICONS_DAT,0
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
load_icon_list: load_icon_list:
mov edi,icons_reserved ; clear reserved area mov edi,icons_reserved ; clear reserved area
mov eax,32 mov eax,32
mov ecx,10*9 mov ecx,10*9
cld cld
rep stosb rep stosb
mov ecx,[icons] ; set used icons to reserved area mov ecx,[icons] ; set used icons to reserved area
mov esi,icon_data mov esi,icon_data
;-------------------------------------- ;--------------------------------------
align 4 align 4
@ -569,8 +591,8 @@ rs_done:
ret ret
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
key: ; key key:
mcall 2 ; just read it and ignore mcall 2 ; just read it and ignore
jmp still jmp still
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; ********************************************* ; *********************************************
@ -579,7 +601,7 @@ key: ; key
align 4 align 4
draw_window: draw_window:
mcall 12,1 mcall 12,1
; DRAW WINDOW ; DRAW WINDOW
xor eax,eax xor eax,eax
xor esi,esi xor esi,esi
mcall ,<210,300>,<30,(390-14)>,0x14ffffff,,title mcall ,<210,300>,<30,(390-14)>,0x14ffffff,,title
@ -649,7 +671,7 @@ newline:
;-------------------------------------- ;--------------------------------------
align 4 align 4
draw_btns: draw_btns:
mov eax,0 ; DRAW BUTTONS ON WINDOW AREA mov eax,0 ; DRAW BUTTONS ON WINDOW AREA
mov ebx,20 shl 16+25 mov ebx,20 shl 16+25
mov ecx,35 shl 16+19 mov ecx,35 shl 16+19
mov edi,icon_table mov edi,icon_table
@ -759,14 +781,14 @@ align 4
bcolor dd 0x335599 bcolor dd 0x335599
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
icon_table: icon_table:
times 4 db 'xxxx xxxx' times 4 db 'xxxx xxxx'
times 2 db ' ' times 2 db ' '
times 1 db ' ' times 1 db ' '
times 2 db 'xxxx xxxx' times 2 db 'xxxx xxxx'
; times 1 db ' ' ; times 1 db ' '
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
icons_reserved: icons_reserved:
times 9 db ' ' times 9 db ' '
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
if lang eq ru if lang eq ru
text: text:
@ -847,8 +869,8 @@ get_bg_info:
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
calc_icon_pos: calc_icon_pos:
movzx eax,byte [ebp-20] ; x position movzx eax,byte [ebp-20] ; x position
sub eax,'A' ;eax - number of letter sub eax,'A' ;eax - number of letter
cmp eax,4 cmp eax,4
jg no_left jg no_left
@ -869,12 +891,12 @@ no_left:
align 4 align 4
x_done: x_done:
mov [ebp-12],eax mov [ebp-12],eax
movzx eax,byte [ebp-20+1] ; y position movzx eax,byte [ebp-20+1] ; y position
sub eax,'A' ; eax - number of letter sub eax,'A' ; eax - number of letter
cmp eax,4 cmp eax,4
jg no_up jg no_up
shl eax,6 ;imul eax,80 shl eax,6 ;imul eax,80
add eax,16 add eax,16
movzx ebx,[warea.top] movzx ebx,[warea.top]
add eax,ebx add eax,ebx
@ -883,7 +905,7 @@ x_done:
align 4 align 4
no_up: no_up:
sub eax,9 sub eax,9
shl eax,6 ;imul eax,80 shl eax,6 ;imul eax,80
sub eax,16-1 sub eax,16-1
movzx ebx,[warea.bottom] movzx ebx,[warea.bottom]
add eax,ebx add eax,ebx
@ -910,7 +932,7 @@ align 4
apply_changes2: apply_changes2:
mov edi,[icons] mov edi,[icons]
mov esi,icon_data mov esi,icon_data
mov ebp,0x5000 ; threads stack starting point mov ebp,thread_stack+0x100 ;0x5000 ; threads stack starting point
;-------------------------------------- ;--------------------------------------
align 4 align 4
start_new: start_new:
@ -923,19 +945,20 @@ start_new:
mcall 51,1,thread mcall 51,1,thread
add ebp,0x100 add ebp,0x100
mov eax,5 ; change to next thread if mutex is blocked
mov eax,68
mov ebx,1 mov ebx,1
;-------------------------------------- ;--------------------------------------
align 4 align 4
wait_thread_start: ;wait until thread draw itself first time wait_thread_start: ;wait until thread draw itself first time
cmp [create_thread_event],bl cmp [create_thread_event],bl ;mutex
jz wait_thread_end jz wait_thread_end
mcall mcall
jmp wait_thread_start jmp wait_thread_start
;-------------------------------------- ;--------------------------------------
align 4 align 4
wait_thread_end: wait_thread_end:
dec [create_thread_event] ;reset event dec [create_thread_event] ;reset event
add esi,REC_SIZE add esi,REC_SIZE
dec edi dec edi
jnz start_new jnz start_new
@ -945,12 +968,20 @@ close:
or eax,-1 or eax,-1
mcall mcall
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; esp-28 = start of thread stack
; esp-24 = ???
; esp-20 = 'AA-F' or...
; esp-16 = ??? SHL greedy maniac mode on!
; esp-12 = ebp+0 = X
; esp-8 = ebp+4 = Y
; esp-4 = ebp+8 = adress of icon_data
;------------------------------------------------------------------------------
align 4 align 4
thread: thread:
; pop ebp ;ebp - address of our icon
sub esp,12 sub esp,12
mov ebp,esp mov ebp,esp
sub esp,16 sub esp,16
call shape_window
call draw_window2 call draw_window2
mov [create_thread_event],1 mov [create_thread_event],1
mcall 40,010101b mcall 40,010101b
@ -965,9 +996,7 @@ still2:
je button2 je button2
call get_bg_info call get_bg_info
mov eax,5 call draw_icon2_1
mov ebx,1
call draw_icon2
jmp still2 jmp still2
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
@ -982,11 +1011,11 @@ red2:
add ebp,+12 add ebp,+12
call calc_icon_pos call calc_icon_pos
add ebp,-12 add ebp,-12
mcall 9,I_END,-1 mcall 9,process_table,-1
mov eax,[I_END+process_information.box.left] mov eax,[process_table+process_information.box.left]
cmp eax,[ebp+0] cmp eax,[ebp+0]
jne @f jne @f
mov eax,[I_END+process_information.box.top] mov eax,[process_table+process_information.box.top]
cmp eax,[ebp+4] cmp eax,[ebp+4]
je .lp1 je .lp1
;-------------------------------------- ;--------------------------------------
@ -1006,7 +1035,7 @@ button2:
cmp ah, 2 cmp ah, 2
jnz still2 jnz still2
mcall 9,I_END,-1 mcall 9,process_table,-1
mov ecx,[ebx+30] ; PID mov ecx,[ebx+30] ; PID
mcall 18,21 mcall 18,21
mov edx,eax ; SLOT mov edx,eax ; SLOT
@ -1064,7 +1093,7 @@ align 4
;-------------------------------------- ;--------------------------------------
align 4 align 4
.noms: .noms:
and byte[edi],0 and byte[edi],0
; call debug_outstr ; call debug_outstr
; dps <'<',13,10> ; dps <'<',13,10>
pop edi esi pop edi esi
@ -1114,7 +1143,8 @@ align 4
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
align 4 align 4
draw_picture: draw_picture:
mov [image],0x3000 mov [image],image_area
mov edi,[ebp+8] mov edi,[ebp+8]
lea esi,[edi+12] lea esi,[edi+12]
call atoi call atoi
@ -1127,7 +1157,7 @@ draw_picture:
lea edi,[eax+strip_file+8] lea edi,[eax+strip_file+8]
xor ebx,ebx xor ebx,ebx
xor ecx,ecx xor ecx,ecx
mov esi,edi;strip_file+8+(32*3*32)*2 mov esi,edi
mov [pixpos],0 mov [pixpos],0
;-------------------------------------- ;--------------------------------------
@ -1148,8 +1178,6 @@ newb:
mov esi,edi mov esi,edi
add esi,[pixpos] add esi,[pixpos]
;-------------------------------------- ;--------------------------------------
align 4
no_correction_pixpos:
add [pixpos],3 add [pixpos],3
mov eax,[esi] mov eax,[esi]
and eax,0xffffff and eax,0xffffff
@ -1218,21 +1246,26 @@ nobpix:
mov edx,eax mov edx,eax
mov eax,[image] mov eax,[image]
mov [eax],edx
mov [eax],dl mov [eax],dl
inc eax inc eax
ror edx,8 ror edx,8
mov [eax],dl mov [eax],dl
inc eax inc eax
ror edx,8 ror edx,8
mov [eax],dl mov [eax],dl
inc eax inc eax
mov [image],eax mov [image],eax
inc ebx inc ebx
mov eax,[yw] mov eax,[yw]
inc eax inc eax
cmp ebx,eax cmp ebx,eax
jnz newb jb newb
xor ebx,ebx xor ebx,ebx
inc ecx inc ecx
@ -1253,7 +1286,7 @@ notop:
align 4 align 4
toponly: toponly:
xor edx,edx xor edx,edx
mcall 7,0x3000,<52,52> mcall 7,image_area,<52,52>
;-------------------------------------- ;--------------------------------------
align 4 align 4
.ex: .ex:
@ -1266,9 +1299,6 @@ draw_text:
add esi,3 add esi,3
push edi push edi
mov edi,title mov edi,title
; mov ecx,8
; cld
; rep movsb
mov ecx,8/4 mov ecx,8/4
cld cld
rep movsd rep movsd
@ -1289,14 +1319,14 @@ founde:
mov [tl],eax mov [tl],eax
mov eax,[tl] mov eax,[tl]
lea eax,[eax+eax*2] ; eax *= char_width/2 lea eax,[eax+eax*2] ; eax *= char_width/2
shl eax,16 shl eax,16
mov ebx,27 shl 16+40 mov ebx,27 shl 16+40
sub ebx,eax sub ebx,eax
xor ecx,ecx ; black shade of text xor ecx,ecx ; black shade of text
add ebx,1 shl 16 ;*65536+1 add ebx,1 shl 16 ;*65536+1
mcall 4,,,title,[tl] mcall 4,,,title,[tl]
inc ebx inc ebx
@ -1325,7 +1355,7 @@ founde:
inc ebx inc ebx
mcall ,,0xffffff mcall ,,0xffffff
mov [draw_pic],0 mov [draw_pic],0
ret ret
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; ********************************************* ; *********************************************
@ -1336,22 +1366,25 @@ draw_window2:
mcall 12,1 mcall 12,1
; DRAW WINDOW ; DRAW WINDOW
xor eax,eax ; function 0 : define and draw window xor eax,eax ; function 0 : define and draw window
mov ebx,[ebp+0-2] mov ebx,[ebp+0-2]
mov ecx,[ebp+4-2] mov ecx,[ebp+4-2]
add ebx,[yw] ; [x start] *65536 + [x size] mov bx,[yw] ; [x start] *65536 + [x size]
add ecx,51 ; [y start] *65536 + [y size] mov cx,51 ; [y start] *65536 + [y size]
mov edx,0x41000000 ; color of work area RRGGBB,8->color gl mov edx,0x41000000 ; color of work area RRGGBB,8->color gl
mcall mcall
mcall 8,51,50,0x40000002 ; button mcall 8,51,50,0x40000002 ; button
;--------------------------------------
mov eax,5 align 4
draw_icon2_1:
; change to next thread if mutex is blocked
mov eax,68
mov ebx,1 mov ebx,1
;-------------------------------------- ;--------------------------------------
align 4 align 4
draw_icon2: draw_icon2:
xchg [load_pic],bl xchg [load_pic],bl ;mutex
test bl,bl test bl,bl
je draw_icon_end je draw_icon_end
mcall mcall
@ -1359,12 +1392,13 @@ draw_icon2:
;-------------------------------------- ;--------------------------------------
align 4 align 4
draw_icon_end: draw_icon_end:
mov eax,5 ; change to next thread if mutex is blocked
mov eax,68
mov ebx,1 mov ebx,1
;-------------------------------------- ;--------------------------------------
align 4 align 4
draw_icon_2: draw_icon_2:
xchg [draw_pic],bl xchg [draw_pic],bl ;mutex
test bl,bl test bl,bl
je draw_icon_end_2 je draw_icon_end_2
mcall mcall
@ -1372,14 +1406,81 @@ draw_icon_2:
;-------------------------------------- ;--------------------------------------
align 4 align 4
draw_icon_end_2: draw_icon_end_2:
mcall 9,process_table,-1
call draw_picture call draw_picture
call draw_text call draw_text
mcall 12,2 mcall 12,2
ret ret
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
shape_window:
; give the shape reference area
mcall 50,0,shape_reference
; give the shape scale 32 x 32 -> 128 x 128 ecx = 2
; you dont have to give this, scale is 1:1 by default
; mcall 50,1,2
ret
;------------------------------------------------------------------------------
shape_reference: ; 32 x 32 ( window_size_X + 1 ) * ( window_size_Y + 1 )
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
db 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
;------------------------------------------------------------------------------
tl dd 8 tl dd 8
yw dd 51 yw: dd 51
ya dd 0 ya dd 0
cur_btn dd 40 cur_btn dd 40
@ -1387,18 +1488,15 @@ draw_pic db 0
load_pic db 0 load_pic db 0
create_thread_event db 0 create_thread_event db 0
image dd 0x3000 image dd image_area
I_Param: IncludeUGlobals
icon_data = I_END+0x1400 ;------------------------------------------------------------------------------
stack_area = I_END+0x3400-4 IM_END:
process_table = I_END+0x3400 ;------------------------------------------------------------------------------
align 4
bgrx dd ? bgrx dd ?
bgry dd ? bgry dd ?
param_str rb 31
;//////////////////////////
bgrxy dd ? bgrxy dd ?
warea: warea:
@ -1419,10 +1517,42 @@ cur_str dd ?
cur_band dd ? cur_band dd ?
sel_icon1 rd 1 sel_icon1 rd 1
icon_count rd 1 icon_count rd 1
;------------------------------------------------------------------------------
align 4
param_str rb 31
;------------------------------------------------------------------------------
align 4
gif_file rb GIF_SIZE gif_file rb GIF_SIZE
;------------------------------------------------------------------------------
align 4
strip_file rb RAW_SIZE strip_file rb RAW_SIZE
;------------------------------------------------------------------------------
IncludeUGlobals 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
;------------------------------------------------------------------------------
;align 4
;shape_reference_0:
; rb 52*52 ; ( window_size_X + 1 ) * ( window_size_Y + 1 )
;------------------------------------------------------------------------------
I_END: I_END:
;------------------------------------------------------------------------------