Subversion Repositories Kolibri OS

Compare Revisions

Ignore whitespace Rev 404 → Rev 408

/programs/system/icon/trunk/icon.asm
6,6 → 6,7
;* *
;********************************
; 22.02.05 was modified for work with new multi-thread ICON.
; 8.03.07 ïåðåõîä íà 70 ôóíêöèþ by SPraid
;******************************************************************************
RAW_SIZE equ 350000
ICON_SIZE equ 32*32*3
32,7 → 33,7
purge newline
;******************************************************************************
START: ; start of execution
mcall 58,finfo
mcall 70,finfo
cmp ebx,GIF_SIZE
ja close
mov esi,gif_file
139,14 → 140,14
 
; (1) save list
 
mov ebx,finfo
mov dword[ebx],1
mov ebx,finfo ; Change by spraid
mov dword[ebx],2
mov edx,REC_SIZE
imul edx,dword [icons]
mov [ebx+8],edx
mov [ebx+12],edx
mov esi,iconlst
call lst_path
mcall 58
int 0x40
 
; (2) terminate all icons
mov eax,9
191,16 → 192,19
db 0
dd finfo.path
 
 
 
finfo:
dd 0
dd 0
dd GIF_SIZE/512
dd 0
dd GIF_SIZE
dd gif_file
dd icon_data
.path:
db ICON_STRIP,0
rb 31-($-.path)
 
 
all_terminated:
 
apply_changes:
474,12 → 478,11
 
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 dword[ebx+12],48*REC_SIZE
mov dword[ebx+16],icon_data
mov esi,iconlst
call lst_path
mcall 58
mcall 70
lea eax,[ebx+10]
xor edx,edx
mov ebx,REC_SIZE