WebSVN – Kolibri OS – Diff – /programs/media/mv/trunk/mv.asm


;   Picture browser by lisovin@26.ru
;   Modified by Ivan Poddubny - v.0.3
;   Modified by Diamond - v.0.4
;   Modified by Mario79:
;      v.0.5  18.07.08 Dinamic Allocation Memory
;      v.0.6  20.07.08
;             1) Use Editbox (Author )
;             2) Draw window without fill working area (C = 1)
;             3) Open file with parameter in patch:
;                Size of parameter - 4 bytes. Parameter starts with the
;                character "\", the unused characters are filled
;                by a blank (ASCII 20h).
;                '\T  /hd0/1/1.bmp' - set background, mode: tile
;                '\S  /hd0/1/1.bmp' - set background, mode: stretch
;      v.0.65  23.07.08
;             1) Use new version Editbox (Thanks )
;                (mouse correctly works in secondary thread)
;             2) The memory used for storage of the file BMP
;                after conversion in RAW comes back to OS.
;             3) Usage of keys 1,2,3,4 for call of buttons of the application
;                without the mouse, before the key were defined incorrectly.
;             4) Deleting of the unnecessary procedure of clearing of
;                a background of a picture at pressing the button "Open".
;   Compile with FASM for Menuet
 
;******************************************************************************
    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	   I_END       ; esp
    dd	   temp_area , 0x0	   ; I_Param , I_Icon
 
include    'lang.inc'
include    '..\..\..\macros.inc'
include    '..\..\..\develop\examples\editbox\trunk\editbox.inc'
;include    'macros.inc'
;include    'EDITBOX.INC'
use_edit_box
;******************************************************************************
 
START:				; start of execution
	mcall	68, 11
	mcall	66, 1,1
; check for parameters
   cmp	 dword [temp_area],'BOOT'
   jne	 .no_boot
.background:
   call  load_image
   call  convert
 
   call  background
.exit:
   or	 eax,-1
   mcall
 .no_boot:
 
   cmp	 byte [temp_area],0
   jz	 .no_param
 
 
   mov	 edi,string	 ; clear string
   mov	 ecx,256/4	 ;   length of a string
   xor	 eax,eax	 ;   symbol <0>
   rep	 stosd
 
 
   mov	 edi,temp_area	 ; look for <0> in temp_area
 
   cmp	 [edi],byte "\"
   jne	 .continue
   cmp	 [edi+1],byte "T"
   jne	 @f
   mov	 [bgrmode],dword 1
   jmp	 .continue_1
@@:
   cmp	 [edi+1],byte "S"
   jne	 START.exit
   mov	 [bgrmode],dword 2
.continue_1:
   add	 edi,4
.continue:
   mov	 esi,edi
   mov	 ecx,257	 ;   strlen
   repne scasb
	lea	ecx, [edi-temp_area]
 
   mov	 edi,string
   rep	 movsb		 ; copy string from temp_area to "string" (filename)
   cmp	 [temp_area],byte "\"
   je	 START.background
   call  load_image
   call  convert
 
 .no_param:
 
 
   or  ecx,-1		; get information about me
   call getappinfo
 
   mov	edx,[process_info+30] ; â¥¯¥àì ¢ edx ­ è ¨¤¥­â¨ä¨ª â®à
   mov	ecx,eax
 
  @@:
   call getappinfo
   cmp	edx,[process_info+30]
   je	@f  ; ¥á«¨ ­ è PID á®¢¯ « á PID à áá¬ âà¨¢ ¥¬®£® ¯à®æ¥áá , ¬ë ­ è«¨ á¥¡ï
   dec	ecx ; ¨­ ç¥ á¬®âà¨¬ á«¥¤ãîé¨© ¯à®æ¥áá
   jne	@b  ; ¢®§¢à é ¥¬áï, ¥á«¨ ­¥ ¢á¥ ¯à®æ¥ááë à áá¬®âà¥­ë
  @@:
 
; â¥¯¥àì ¢ ecx ­®¬¥à ¯à®æ¥áá 
    mov  [process],ecx
 
draw_still:
    call draw_window
 
still:
 
    mov  eax,10 		; wait here for event
    mcall
 
	dec	eax
	jz	red
	dec	eax
	jnz	button
 
  key:				; key
    mov  al,2
    mcall
    mov  al,ah
    cmp  al,130  ; 1
    je	 kfile
    cmp  al,131  ; 2
    je	 kopen
    cmp  al,132  ; 3
    je	 kinfo
    cmp  al,133  ; 4
    je	 kbgrd
    jmp  still
 
  red:
	test	byte [status], 4
	jz	draw_still
	mov	al, 18
	mov	ebx, 3
	mov	ecx, [process]
	mcall
	and	byte [status], not 4
	jmp	still
 
  button:			; button
    mov  eax,17 		; get id
    mcall
 
    cmp  ah,1			; button id=1 ?
    jne  noclose
 
    mov  eax,-1 		; close this program
    mcall
  noclose:
    cmp  ah,2
    jne  nofile
  kfile:
	test	byte [status], 1
	jnz	still
	or	byte [status], 1
    mov  eax,51
    mov  ebx,1
    mov  ecx,thread1
    mov  edx,thread   ;0x29fff0
    mcall
    jmp  still
  nofile:
    cmp  ah,3
    jne  noopen
 
 kopen:
    mov ecx,-1
    call getappinfo
 
 
 
 
 
 
 
 
 
    call load_image
 
  open1:
    mov eax,[image_file]
    cmp [eax],word 'BM'
    jne  still
    call convert
 
    jmp  draw_still
  noopen:
 
    cmp  ah,4
    jne  noinfo
  kinfo:
	test	byte [status], 2
	jnz	still
	or	byte [status], 2
    mov  eax,51
    mov  ebx,1
    mov  ecx,thread2
    mov  edx,thread-512
    mcall
    jmp  still
  noinfo:
 
;  
    cmp  ah,5
    jne  still
  kbgrd:
	test	byte [status], 8
	jnz	still
	or	byte [status], 8
    mov  eax,51
    mov  ebx,1
    mov  ecx,thread3
    mov  edx,thread-512*2
    mcall
    jmp  still
    ;call background
 
 getappinfo:
    mov  eax,9
    mov  ebx,process_info
    mcall
    ret
 
 
load_image:
 
	  mov	[fileinfo+0],dword 5
	  mov	[fileinfo+12],dword 0
	  mov	[fileinfo+16],dword process_info
 
    cmp  [image_file],0
    je	  @f
    mov   ecx,[image_file]
     mcall 68, 13,
 
@@:
	  mcall 70, fileinfo
 
	  mov	[fileinfo+0],dword 0
	  mov	[fileinfo+12],dword 512
	  mov	[fileinfo+16],dword process_info+40
 
	  mcall 70, fileinfo
 
	  mov	ecx,[process_info+32]
	  mov	[fileinfo+12],ecx
 
	  mcall 68, 12
 
 
	  mov	[fileinfo+16],eax
	  mov	[image_file_1],eax
 
    mov  eax,[process_info+40+28]
 
	cmp	eax, 24
	jz	.convert24
	cmp	eax, 8
	jz	.convert8
	cmp	eax, 4
	jz	.convert4
     shl  ecx,2
.convert4:
     shl  ecx,1
.convert8:
     lea  ecx,[ecx*3]
.convert24:
 
 
 
;@@:
 
 
    add   ecx,512
	  mcall 68, 12
 
	  mov	[image_file],eax
 
	  mcall 70, fileinfo
 
    mov   esi,[image_file_1]
    mov   edi,[image_file]
    mov   ecx,512/4
    cld
    rep  movsd
 
    mov  eax,[image_file]
    mov  ebx,[eax+22]
    mov  eax,[eax+18]
	test	ebx, ebx
	jns	@f
	neg	ebx
@@:
    add  eax,9
    cmp  eax,210
    jae  @f
    mov  eax,210
@@:
    add  ebx,54
    cmp  ebx,56
    jae  @f
    mov  ebx,56
@@:
    mov  [wnd_width],eax
    mov  [wnd_height],ebx
    test [bWasDraw],1
    jz	 @f
    mov  esi,ebx
    mov  edx,eax
    mcall 67,-1,-1
@@:
    ret
 
 
  drawimage:
    mov  eax,[image_file]
    cmp  [eax],word 'BM'
    jne  nodrawimage
	mov	ecx, dword [eax+18-2]
	mov	cx, [eax+22]
	test	cx, cx
	jns	@f
	neg	cx
@@:
    mov  edx,5*65536+50
    mcall 7,[soi]
  nodrawimage:
    ret
 
;  
  background:
    mov  eax,[image_file]
    cmp  [eax],word 'BM'
    jne  @f
    mov  ecx,[eax+18] ; è¨à¨­ 
    mov  edx,[eax+22] ; ¢ëá®â 
    mcall 15,1
 
    mov  esi, ecx
    imul esi, edx
	lea	esi, [esi+esi*2]
    mov  ebx,5
    mov  ecx,[soi]
    xor  edx,edx
;;;    mov  esi, ;640*480*3
    mcall
 
    dec  ebx	;tile/stretch
    mov  ecx,dword [bgrmode]
    mcall
 
    dec  ebx
    mcall
   @@:
    ret
 
convert:
    call  convert_1
    mov   ecx,[image_file_1]
    mcall 68, 13,
    ret
convert_1:
	mov	ecx, [image_file]
  add ecx,512
	mov	[soi], ecx
	mov	eax,[image_file_1]
	mov	ebp, [eax+18]
	lea	ebp, [ebp*3]	; ebp = size of output scanline
	mov	eax, [eax+22]
	dec	eax
	mul	ebp
	add	eax, ecx
	mov	edi, eax	; edi points to last scanline
	mov	esi, [image_file_1]
	add	esi, [esi+10]
 
	mov	ebx,[image_file_1]
	mov	edx, [ebx+22]
	add	ebx,54
	lea	eax, [ebp*2]
	mov	[delta], eax
	test	edx, edx
	jz	.ret
	jns	@f
	neg	edx
	and	[delta], 0
	mov	edi, ecx
@@:
 
	mov	eax,[image_file_1]
	movzx	eax,word [eax+28]
	cmp	eax, 24
	jz	convert24
	cmp	eax, 8
	jz	convert8
	cmp	eax, 4
	jz	convert4
	dec	eax
	jz	convert1
.ret:
	ret
convert24:
	mov	ecx, ebp
	rep	movsb
	sub	edi, [delta]
	mov	eax, ebp
	neg	eax
	and	eax, 3
	add	esi, eax
	dec	edx
	jnz	convert24
	ret
convert8:
	push	edi
	add	[esp], ebp
.loopi:
	xor	eax, eax
	lodsb
 
	push	eax
	mov	eax,[image_file_1]
	cmp	dword [eax+30],1
	pop	eax
	jnz	.nocompressed
.compressed:
	mov	ecx, eax
	jecxz	.special
	lodsb
	mov	eax, [ebx+eax*4]
@@:
	call	putpixel
	loop	@b
	jmp	.loopi
.nocompressed:
	mov	eax, [ebx+eax*4]
	call	putpixel
.loopicont:
	cmp	edi, [esp]
	jnz	.loopi
.next:
	pop	edi
	sub	edi, [delta]
	mov	eax, ebp
	and	eax, 3
	add	esi, eax
	dec	edx
	jnz	convert8
	ret
.special:
	lodsb
	test	al, al
	jz	.next
	cmp	al, 2
	jbe	.end
	mov	ecx, eax
	push	ecx
@@:
	xor	eax, eax
	lodsb
	mov	eax, [ebx+eax*4]
	call	putpixel
	loop	@b
	pop	ecx
	and	ecx, 1
	add	esi, ecx
	jmp	.loopi
.end:
	pop	edi
	ret
convert4:
	push	edi
	add	[esp], ebp
.loopi:
	xor	eax, eax
	lodsb
	shr	eax, 4
	mov	eax, [ebx+eax*4]
	call	putpixel
	cmp	edi, [esp]
	jz	.loopidone
	mov	al, [esi-1]
	and	eax, 0xF
	mov	eax, [ebx+eax*4]
	stosd
	dec	edi
	cmp	edi, [esp]
	jnz	.loopi
.loopidone:
	pop	edi
	sub	edi, [delta]
	call	align_input
	dec	edx
	jnz	convert4
	ret
convert1:
	push	edi
	add	[esp], ebp
.loopi:
	lodsb
	mov	ecx, 8
.loopii:
	add	al, al
	push	eax
	setc	al
	movzx	eax, al
	mov	eax, [ebx+eax*4]
	call	putpixel
	pop	eax
	cmp	edi, [esp]
	loopnz	.loopii
	jnz	.loopi
	pop	edi
	sub	edi, [delta]
	call	align_input
	dec	edx
	jnz	convert1
	ret
 
align_input:
	push	esi
	push	eax
	mov	eax,[image_file_1]
	sub	esi,eax
	sub	esi,[eax+10]
	pop	eax
	neg	esi
	and	esi, 3
	add	[esp], esi
	pop	esi
	ret
 
putpixel:
	push	eax
	stosw
	shr	eax, 16
	stosb
	pop	eax
	ret
 
;---------------------------------------------------------------------
get_window_param:
    mcall 9, procinfo, -1
    mov   eax,[ebx+46]
    mov   [window_high],eax
    mov   eax,[ebx+42]
    mov   [window_width],eax
 
 
    mcall 48,4
    mov   [skin_high],eax
    ret
;---------------------------------------------------------------------
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
 
draw_window:
    or	 [bWasDraw],1
 
    mov  eax,12 		   ; function 12:tell os about windowdraw
    mov  ebx,1			   ; 1, start of draw
    mcall
 
				   ; DRAW WINDOW
    xor  eax,eax		   ; function 0 : define and draw window
;    mov  ebx,350                   ; [x start] *65536 + [x size]
;    mov  ecx,400                   ; [y start] *65536 + [y size]
    mov  ebx,0*65536
    mov  ecx,0*65536
    add  ebx,[wnd_width]
    add  ecx,[wnd_height]
    cmp  cx,55
    ja	 @f
    mov  cx,55
@@:
    mov  edx,0x43ffffff 	   ; color of work area RRGGBB,8->color gl
    mcall
 
    call get_window_param
 
    mov   ebx,5
    shl   ebx,16
    add   ebx,[window_width]
    sub   ebx,9
    push  ebx
    mov   ecx,[skin_high]
    shl   ecx,16
    add   ecx,50
    sub   ecx,[skin_high]
    mcall 13, , ,0xffffff
    mov  eax,[image_file]
    mov  ecx,[eax+22]
    mov  ebx,[eax+18]
    push ecx
    add  ebx,5
    mov  ax,bx
    shl  ebx,16
    add  ebx,[window_width]
    sub  ebx,4
    sub  bx,ax
    cmp  bx,0
    jbe  @f
    add  ecx,50 shl 16
    mcall 13, , ,0xffffff
@@:
    pop  ecx
    pop  ebx
    add  ecx,50
    mov  ax,cx
    shl  ecx,16
    add  ecx,[window_high]
    sub  cx,ax
    sub  ecx,4
    cmp  cx,0
    jbe  @f
    mcall 13, , ,0xffffff
@@:
    mov  eax,8
    mov  ebx,10*65536+46
    mov  ecx,25*65536+20
    mov  edx,2
    mov  esi,0x780078
  newbutton:
    mcall
    add  ebx,48*65536
    inc  edx
    cmp  edx,6
    jb	 newbutton
 
				   ; WINDOW LABEL
    mov  eax,4			   ; function 4 : write text to window
    mov  ebx,8*65536+8		   ; [x start] *65536 + [y start]
    mov  ecx,0x10ddeeff 	   ; font 1 & color ( 0xF0RRGGBB )
    mov  edx,labelt		   ; pointer to text beginning
    mov  esi,12 		   ; text length
    mcall
 
    mov  ebx,14*65536+32
    mov  edx,buttext
    mov  esi,26
    mcall
 
    call drawimage
 
    mov  eax,12 		   ; function 12:tell os about windowdraw
    mov  ebx,2			   ; 2, end of draw
    mcall
 
    ret
 
 
; DATA AREA
 
labelt:
	 db 'MeView v.0.4'
 
lsz buttext,\
    en,   ' FILE   OPEN   INFO   BGRD',\
    ru,   '           ',\
    de,   'DATEI OEFNEN  INFO   HGRD'
 
thread1:			; start of thread1
 
	  mcall 40, 0x27
 
   or  ecx,-1		; get information about me
   call getappinfo
 
    mov  esi,string
@@:
    cld
    lodsb
    test al,al
    jne  @r
    sub  esi,string
    mov  eax,esi
    dec  eax
    mov edi, edit1
    mov ed_size, eax
    mov ed_pos, eax
red1:
    call draw_window1
 
still1:
 
 
    mcall 10		; wait here for event
 
    cmp  eax,1			; redraw request ?
    je	 red1
    cmp  eax,2			; key in buffer ?
    je	 key1
    cmp  eax,3			; button in buffer ?
    je	 button1
 
	  mouse_edit_box name_editboxes
    jmp  still1
 
  key1: 			; key
    mcall 2
    cmp ah,13
    je	close1
    cmp ah,27
    je	close1
 
    key_edit_box name_editboxes
    jmp  still1
 
  button1:			; button
    mov  eax,17 		; get id
    mcall
 
    cmp  ah,1			; button id=1 ?
    jne  still1
  close1:
    bts  dword [status],2
    btr  dword [status],0
    mov  eax,-1 		; close this program
    mcall
 
    jmp  still1
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
 
draw_window1:
 
 
    mov  eax,12 		   ; function 12:tell os about windowdraw
    mov  ebx,1			   ; 1, start of draw
    mcall
 
				   ; DRAW WINDOW
    xor  eax,eax		   ; function 0 : define and draw window
    mov  ebx,100*65536+300	   ; [x start] *65536 + [x size]
    mov  ecx,100*65536+80	   ; [y start] *65536 + [y size]
    mov  edx,0x03780078 	   ; color of work area RRGGBB,8->color gl
    mcall
 
				   ; WINDOW LABEL
    mov  eax,4			   ; function 4 : write text to window
    mov  ebx,8*65536+8		   ; [x start] *65536 + [y start]
    mov  ecx,0x10ddeeff 	   ; font 1 & color ( 0xF0RRGGBB )
    mov  edx,labelt1		   ; pointer to text beginning
    mov  esi,labelt1.size	   ; text length
    mcall
 
;    call drawstring
	draw_edit_box name_editboxes
 
    mov  eax,12 		   ; function 12:tell os about windowdraw
    mov  ebx,2			   ; 2, end of draw
    mcall
 
    ret
 
 drawstring:
    pusha
    mov  eax,8		   ;invisible button
    mov  ebx,21*65536+258
    mov  ecx,40*65536+15
    mov  edx,0x60000002
    mcall
 
    mov  eax,13 	    ;bar
    mov  edx,0xe0e0e0
    mcall
    push eax		    ;cursor
    mov  eax,6*65536
    mul  dword [pos]
    add  eax,21*65536+6
    mov  ebx,eax
    pop  eax
    mov  edx,0x6a73d0
    mcall
    mov  eax,4		    ;path
    mov  ebx,21*65536+44
    xor  ecx,ecx
    mov  edx,string
    mov  esi,43
    mcall
 
 
    popa
    ret
 
; DATA AREA
 
lsz labelt1,\
   en,	'File',\
   ru,	' ©«',\
   de,	'Datei'
 
thread2:			  ; start of info thread
 
     call draw_window2
 
still2:
 
    mov  eax,10 		; wait here for event
    mcall
 
    cmp  eax,1			; redraw request ?
    je	 thread2
    cmp  eax,2			; key in buffer ?
    je	 close2
    cmp  eax,3			; button in buffer ?
    je	 button2
 
    jmp  still2
 
  button2:			 ; button
    mov  eax,17 		; get id
    mcall
 
    cmp  ah,1			; button id=1 ?
    jne  noclose2
  close2:
    btr dword [status],1
    bts dword [status],2
    mov  eax,-1 		; close this program
    mcall
  noclose2:
 
    jmp  still2
 
 
 
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
 
draw_window2:
 
 
    mov  eax,12 		   ; function 12:tell os about windowdraw
    mov  ebx,1			   ; 1, start of draw
    mcall
 
				   ; DRAW WINDOW
    xor  eax,eax		   ; function 0 : define and draw window
    mov  ebx,100*65536+330	   ; [x start] *65536 + [x size]
    mov  ecx,100*65536+90	   ; [y start] *65536 + [y size]
    mov  edx,0x03780078 	   ; color of work area RRGGBB,8->color gl
    mcall
 
				   ; WINDOW LABEL
    mov  eax,4			   ; function 4 : write text to window
    mov  ebx,8*65536+8		   ; [x start] *65536 + [y start]
    mov  ecx,0x10ddeeff 	   ; font 1 & color ( 0xF0RRGGBB )
    mov  edx,labelt2		   ; pointer to text beginning
    mov  esi,labelt2.size	   ; text length
    mcall
 
    mov  ebx,10*65536+30
    mov  edx,string
    mov  esi,43
    mcall
    mov  edx,fitext
    mov  esi,14
    add  ebx,70*65536+10
 followstring:
    mcall
    add  ebx,10
    add  edx,esi
    cmp  ebx,80*65536+70
    jbe  followstring
    mov  eax,47
    mov  edx,200*65536+40
    mov  esi,ecx
    mov  ecx,[image_file]
    push ecx
    mov  ecx, [ecx+2]
    call digitcorrect
    mcall
    add  edx,10
    pop  ecx
    push ecx
    mov  ecx, [ecx+18]
    call digitcorrect
    mcall
    add  edx,10
    pop  ecx
    push ecx
    mov  ecx, [ecx+22]
    call digitcorrect
    mcall
    add  edx,10
    pop  ecx
    movzx ecx,word [ecx+28]
    call digitcorrect
    mcall
 
    mov  eax,12 		   ; function 12:tell os about windowdraw
    mov  ebx,2			   ; 2, end of draw
    mcall
 
    ret
 
 digitcorrect:
    xor  ebx,ebx
    mov  bh,6
    cmp  ecx,99999
    ja	 c_end
    dec  bh
    cmp  ecx,9999
    ja	 c_end
    dec  bh
    cmp  ecx,999
    ja	 c_end
    dec  bh
    cmp  ecx,99
    ja	 c_end
    dec  bh
    cmp  ecx,9
    ja	 c_end
    dec  bh
 c_end:
    bswap ebx
    ret
 
 
; DATA AREA
 
lsz labelt2,\
    en,   'File info',\
    ru,   '­ä®à¬ æ¨ï ® ä ©«¥',\
    de,   'Dateiinfo'
 
lsz fitext,\
     en, 'FILE SIZE     ',\
     en, 'X SIZE        ',\
     en, 'Y SIZE        ',\
     en, 'BITS PER PIXEL',\
			  \
     ru, ' §¬¥à ä ©«   ',\
     ru, '¨à¨­         ',\
     ru, 'ëá®â         ',\
     ru, '¨â ­  ¯¨ªá¥« ',\
			  \
     de, 'FATEIGROESSE  ',\
     de, 'X GROESSE     ',\
     de, 'Y GROESSE     ',\
     de, 'BITS PER PIXEL'
 
thread3:			  ; start of bgrd thread
 
     call draw_window3
 
still3:
 
    mov  eax,10 		; wait here for event
    mcall
 
    cmp  eax,1			; redraw request ?
    je	 thread3
    cmp  eax,2			; key in buffer ?
    je	 key3
    cmp  eax,3			; button in buffer ?
    je	 button3
 
    jmp  still3
 
  key3:
    mcall
    cmp  ah,27
    je	 close3
    cmp  ah,13
    je	 kok
    cmp  ah,178 ;up
    jne  nofup
    cmp  dword [bgrmode],1
    je	 fdn
  fup:
    dec dword [bgrmode]
    jmp  flagcont
  nofup:
    cmp  ah,177 ;down
    jne  still3
    cmp dword [bgrmode],2
    je	 fup
  fdn:
    inc dword [bgrmode]
    jmp  flagcont
 
 
  button3:			 ; button
    mov  eax,17 		; get id
    mcall
 
    cmp  ah,1			; button id=1 ?
    jne  noclose3
  close3:
    btr dword [status],3
    bts dword [status],2
    mov  eax,-1 		; close this program
    mcall
  noclose3:
    cmp  ah,4
    jne  nook
   kok:
    call background
    jmp  close3
  nook:
    cmp  ah,2
    jb	 still3
    cmp  ah,3
    ja	 still3
    dec  ah
    mov byte [bgrmode],ah
   flagcont:
    call drawflags
    jmp  still3
 
 
 
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
 
draw_window3:
 
 
    mov  eax,12 		   ; function 12:tell os about windowdraw
    mov  ebx,1			   ; 1, start of draw
    mcall
 
				   ; DRAW WINDOW
    xor  eax,eax		   ; function 0 : define and draw window
    mov  ebx,100*65536+200	   ; [x start] *65536 + [x size]
    mov  ecx,100*65536+100	   ; [y start] *65536 + [y size]
    mov  edx,0x03780078 	   ; color of work area RRGGBB,8->color gl
    mcall
 
    mov  eax,8
    mov  ebx,70*65536+40
    mov  ecx,70*65536+20
    mov  edx,4
    mov  esi,0xac0000
    mcall
 
				   ; WINDOW LABEL
    mov  eax,4			   ; function 4 : write text to window
    mov  ebx,8*65536+8		   ; [x start] *65536 + [y start]
    mov  ecx,0x10ddeeff 	   ; font 1 & color ( 0xF0RRGGBB )
    mov  edx,labelt3		   ; pointer to text beginning
    mov  esi,labelt3.size	   ; text length
    mcall
    add  ebx,38*65536+20
    mov  ecx,0xddeeff
    mov  edx, bgrdtext
    mov  esi, bgrdtext.size
    mcall
    add  ebx,40*65536+15
    mov  edx, tiled
    mov  esi, tiled.size
    mcall
    add  ebx,15
    mov  edx, stretch
    mov  esi, stretch.size ;7
    mcall
    add  ebx,18
    mov  edx, ok_btn
    mov  esi, ok_btn.size ;2
    mcall
 
    call drawflags
 
    mov  eax,12 		   ; function 12:tell os about windowdraw
    mov  ebx,2			   ; 2, end of draw
    mcall
 
    ret
 
 drawflags:
    mov  eax,8
    mov  ebx,70*65536+10
    mov  ecx,40*65536+10
    mov  edx,2
    mov  esi,0xe0e0e0
    mcall
    add  ecx,15*65536
    inc  edx
    mcall
    mov  eax,4
    mov  ebx,73*65536+42
    xor  ecx,ecx
    mov  edx,vflag
    mov  esi,1
    cmp  dword [bgrmode],1
    je	 nodownflag
    add  ebx,15
 nodownflag:
    mcall
    ret
 
 
; DATA AREA
status	 dd 0  ;bit0=1 if file thread is created
soi	 dd 0
delta	dd	0
process  dd 0
 
bWasDraw db 0
vflag: db 'x'
bgrmode: dd 1
 
wnd_width dd 210
wnd_height dd 53
 
lsz labelt3,\
    en,   'Background set',\
    ru,   "áâ ­®¢ª  ä®­ ",\
    de,   'Hintergrund gesetzt'
 
lsz bgrdtext,\
    en, 'SET AS BACKGROUND:',\
    ru, '¨¯ ®¡®¥¢:',\
    de, 'ALS HINTERGRUND'
 
lsz tiled,\
    en, 'TILED',\
    ru, '§ ¬®áâ¨âì',\
    de, 'GEKACHELT'
 
lsz stretch,\
    en, 'STRETCH',\
    ru, 'à áâï­ãâì',\
    de, 'GESTRECKT'
 
lsz ok_btn,\
    en, 'Ok',\
    ru, 'Ok',\
    de, 'Ok'
 
image_file dd 0
image_file_1 dd 0
 
pos: dd 6
 
window_high dd 0
window_width dd 0
skin_high dd 0
;---------------------------------------------------------------------
; for EDITBOX
name_editboxes:
edit1 edit_box 200,10,30,0xffffff,0xbbddff,0,0,0,255,string,ed_focus+ed_always_focus,0
name_editboxes_end:
 
mouse_flag: dd 0x0
;---------------------------------------------------------------------
fileinfo:
     dd 5
     dd 0
     dd 0
     dd 0
     dd process_info
string:
	db	'/sys/bgr.bmp',0
 
IM_END:
	rb	string+257-$
 
temp_area:
procinfo:
process_info:
rb 1024*4
rb 1024*2
 
thread:
rb 512
I_END:

Rev 828	Rev 832
1	; Picture browser by lisovin@26.ru	1	; Picture browser by lisovin@26.ru
2	; Modified by Ivan Poddubny - v.0.3	2	; Modified by Ivan Poddubny - v.0.3
3	; Modified by Diamond - v.0.4	3	; Modified by Diamond - v.0.4
4	; Modified by Mario79:	4	; Modified by Mario79:
5	; v.0.5 18.07.08 Dinamic Allocation Memory	5	; v.0.5 18.07.08 Dinamic Allocation Memory
6	; v.0.6 20.07.08	6	; v.0.6 20.07.08
7	; 1) Use Editbox (Author )	7	; 1) Use Editbox (Author )
8	; 2) Draw window without fill working area (C = 1)	8	; 2) Draw window without fill working area (C = 1)
9	; 3) Open file with parameter in patch:	9	; 3) Open file with parameter in patch:
10	; Size of parameter - 4 bytes. Parameter starts with the character "\",	10	; Size of parameter - 4 bytes. Parameter starts with the
11	; the unused characters are filled by a blank (ASCII 20h).	11	; character "\", the unused characters are filled
-		12	; by a blank (ASCII 20h).
12	; '\T /hd0/1/1.jpg' - set background, mode: tile	13	; '\T /hd0/1/1.bmp' - set background, mode: tile
13	; '\S /hd0/1/1.jpg' - set background, mode: stretch	14	; '\S /hd0/1/1.bmp' - set background, mode: stretch
-		15	; v.0.65 23.07.08
-		16	; 1) Use new version Editbox (Thanks )
-		17	; (mouse correctly works in secondary thread)
-		18	; 2) The memory used for storage of the file BMP
-		19	; after conversion in RAW comes back to OS.
-		20	; 3) Usage of keys 1,2,3,4 for call of buttons of the application
-		21	; without the mouse, before the key were defined incorrectly.
-		22	; 4) Deleting of the unnecessary procedure of clearing of
-		23	; a background of a picture at pressing the button "Open".
14	; Compile with FASM for Menuet	24	; Compile with FASM for Menuet
15		25
16	;******************************************************************************	26	;******************************************************************************
17	use32	27	use32
18	org 0x0	28	org 0x0
19	db 'MENUET01' ; 8 byte id	29	db 'MENUET01' ; 8 byte id
20	dd 0x01 ; header version	30	dd 0x01 ; header version
21	dd START ; start of code	31	dd START ; start of code
22	dd IM_END ; size of image	32	dd IM_END ; size of image
23	dd I_END ;0x300000 ; memory for app	33	dd I_END ; memory for app
24	dd I_END ;0x300000 ; esp	34	dd I_END ; esp
25	dd temp_area , 0x0 ; I_Param , I_Icon	35	dd temp_area , 0x0 ; I_Param , I_Icon
26		36
27	include 'lang.inc'	37	include 'lang.inc'
28	include '..\..\..\macros.inc'	38	include '..\..\..\macros.inc'
-		39	include '..\..\..\develop\examples\editbox\trunk\editbox.inc'
29	;include 'macros.inc'	40	;include 'macros.inc'
30	include 'EDITBOX.INC'	41	;include 'EDITBOX.INC'
31	use_edit_box procinfo	42	use_edit_box
32	;******************************************************************************	43	;******************************************************************************
33		44
34	START: ; start of execution	45	START: ; start of execution
35	mcall 68, 11	46	mcall 68, 11
-		47	mcall 66, 1,1
36	; check for parameters	48	; check for parameters
37	cmp dword [temp_area],'BOOT'	49	cmp dword [temp_area],'BOOT'
38	jne .no_boot	50	jne .no_boot
39	.background:	51	.background:
40	call load_image	52	call load_image
41	call convert	53	call convert
42		54
43	call background	55	call background
44	.exit:	56	.exit:
45	or eax,-1	57	or eax,-1
46	mcall	58	mcall
47	.no_boot:	59	.no_boot:
48		60
49	cmp byte [temp_area],0	61	cmp byte [temp_area],0
50	jz .no_param	62	jz .no_param
51		63
52		64
53	mov edi,string ; clear string	65	mov edi,string ; clear string
54	mov ecx,256/4 ; length of a string	66	mov ecx,256/4 ; length of a string
55	xor eax,eax ; symbol <0>	67	xor eax,eax ; symbol <0>
56	rep stosd	68	rep stosd
57		69
58		70
59	mov edi,temp_area ; look for <0> in temp_area	71	mov edi,temp_area ; look for <0> in temp_area
60		72
61	cmp [edi],byte "\"	73	cmp [edi],byte "\"
62	jne .continue	74	jne .continue
63	cmp [edi+1],byte "T"	75	cmp [edi+1],byte "T"
64	jne @f	76	jne @f
65	mov [bgrmode],dword 1	77	mov [bgrmode],dword 1
66	jmp .continue_1	78	jmp .continue_1
67	@@:	79	@@:
68	cmp [edi+1],byte "S"	80	cmp [edi+1],byte "S"
69	jne START.exit	81	jne START.exit
70	mov [bgrmode],dword 2	82	mov [bgrmode],dword 2
71	.continue_1:	83	.continue_1:
72	add edi,4	84	add edi,4
73	.continue:	85	.continue:
74	mov esi,edi	86	mov esi,edi
75	mov ecx,257 ; strlen	87	mov ecx,257 ; strlen
76	repne scasb	88	repne scasb
77	lea ecx, [edi-temp_area]	89	lea ecx, [edi-temp_area]
78		90
79	mov edi,string	91	mov edi,string
80	rep movsb ; copy string from temp_area to "string" (filename)	92	rep movsb ; copy string from temp_area to "string" (filename)
81	cmp [temp_area],byte "\"	93	cmp [temp_area],byte "\"
82	je START.background	94	je START.background
83	call load_image	95	call load_image
84	call convert	96	call convert
85		97
86	.no_param:	98	.no_param:
87		99
88		100
89	or ecx,-1 ; get information about me	101	or ecx,-1 ; get information about me
90	call getappinfo	102	call getappinfo
91		103
92	mov edx,[process_info+30] ; â¥¯¥àì ¢ edx è ¨¤¥â¨ä¨ª â®à	104	mov edx,[process_info+30] ; â¥¯¥àì ¢ edx è ¨¤¥â¨ä¨ª â®à
93	mov ecx,eax	105	mov ecx,eax
94		106
95	@@:	107	@@:
96	call getappinfo	108	call getappinfo
97	cmp edx,[process_info+30]	109	cmp edx,[process_info+30]
98	je @f ; ¥á«¨ è PID á®¢¯ « á PID à áá¬ âà¨¢ ¥¬®£® ¯à®æ¥áá , ¬ë è«¨ á¥¡ï	110	je @f ; ¥á«¨ è PID á®¢¯ « á PID à áá¬ âà¨¢ ¥¬®£® ¯à®æ¥áá , ¬ë è«¨ á¥¡ï
99	dec ecx ; ¨ ç¥ á¬®âà¨¬ á«¥¤ãîé¨© ¯à®æ¥áá	111	dec ecx ; ¨ ç¥ á¬®âà¨¬ á«¥¤ãîé¨© ¯à®æ¥áá
100	jne @b ; ¢®§¢à é ¥¬áï, ¥á«¨ ¥ ¢á¥ ¯à®æ¥ááë à áá¬®âà¥ë	112	jne @b ; ¢®§¢à é ¥¬áï, ¥á«¨ ¥ ¢á¥ ¯à®æ¥ááë à áá¬®âà¥ë
101	@@:	113	@@:
102		114
103	; â¥¯¥àì ¢ ecx ®¬¥à ¯à®æ¥áá	115	; â¥¯¥àì ¢ ecx ®¬¥à ¯à®æ¥áá
104	mov [process],ecx	116	mov [process],ecx
105		117
106	draw_still:	118	draw_still:
107	call draw_window	119	call draw_window
108		120
109	still:	121	still:
110		122
111	mov eax,10 ; wait here for event	123	mov eax,10 ; wait here for event
112	mcall	124	mcall
113		125
114	dec eax	126	dec eax
115	jz red	127	jz red
116	dec eax	128	dec eax
117	jnz button	129	jnz button
118		130
119	key: ; key	131	key: ; key
120	mov al,2	132	mov al,2
121	mcall	133	mcall
122	mov al,ah	134	mov al,ah
123	cmp al,6	135	cmp al,130 ; 1
124	je kfile	136	je kfile
125	cmp al,15	137	cmp al,131 ; 2
126	je kopen	138	je kopen
127	cmp al,9	139	cmp al,132 ; 3
128	je kinfo	140	je kinfo
129	cmp al,2	141	cmp al,133 ; 4
130	je kbgrd	142	je kbgrd
131	jmp still	143	jmp still
132		144
133	red:	145	red:
134	test byte [status], 4	146	test byte [status], 4
135	jz draw_still	147	jz draw_still
136	mov al, 18	148	mov al, 18
137	mov ebx, 3	149	mov ebx, 3
138	mov ecx, [process]	150	mov ecx, [process]
139	mcall	151	mcall
140	and byte [status], not 4	152	and byte [status], not 4
141	jmp still	153	jmp still
142		154
143	button: ; button	155	button: ; button
144	mov eax,17 ; get id	156	mov eax,17 ; get id
145	mcall	157	mcall
146		158
147	cmp ah,1 ; button id=1 ?	159	cmp ah,1 ; button id=1 ?
148	jne noclose	160	jne noclose
149		161
150	mov eax,-1 ; close this program	162	mov eax,-1 ; close this program
151	mcall	163	mcall
152	noclose:	164	noclose:
153	cmp ah,2	165	cmp ah,2
154	jne nofile	166	jne nofile
155	kfile:	167	kfile:
156	test byte [status], 1	168	test byte [status], 1
157	jnz still	169	jnz still
158	or byte [status], 1	170	or byte [status], 1
159	mov eax,51	171	mov eax,51
160	mov ebx,1	172	mov ebx,1
161	mov ecx,thread1	173	mov ecx,thread1
162	mov edx,thread ;0x29fff0	174	mov edx,thread ;0x29fff0
163	mcall	175	mcall
164	jmp still	176	jmp still
165	nofile:	177	nofile:
166	cmp ah,3	178	cmp ah,3
167	jne noopen	179	jne noopen
168		180
169	kopen:	181	kopen:
170	mov ecx,-1	182	mov ecx,-1
171	call getappinfo	183	call getappinfo
172	mov eax,[image_file]	-
173	mov ebx,dword [eax+42]	-
174	mov ecx,dword [eax+46]	-
175	add ebx,10*65536-15	-
176	add ecx,50*65536-55	-
177	mov edx,0xffffff	-
178	mov eax,13	-
179	mcall	-
180		184
181	call load_image	185	call load_image
182		186
183	open1:	187	open1:
184	mov eax,[image_file]	188	mov eax,[image_file]
185	cmp [eax],word 'BM'	189	cmp [eax],word 'BM'
186	jne still	190	jne still
187	call convert	191	call convert
188	call drawimage	-
189	jmp still	192	jmp draw_still
190	noopen:	193	noopen:
191		194
192	cmp ah,4	195	cmp ah,4
193	jne noinfo	196	jne noinfo
194	kinfo:	197	kinfo:
195	test byte [status], 2	198	test byte [status], 2
196	jnz still	199	jnz still
197	or byte [status], 2	200	or byte [status], 2
198	mov eax,51	201	mov eax,51
199	mov ebx,1	202	mov ebx,1
200	mov ecx,thread2	203	mov ecx,thread2
201	mov edx,thread-512 ;0x2afff0	204	mov edx,thread-512
202	mcall	205	mcall
203	jmp still	206	jmp still
204	noinfo:	207	noinfo:
205		208
206	;	209	;
207	cmp ah,5	210	cmp ah,5
208	jne still	211	jne still
209	kbgrd:	212	kbgrd:
210	test byte [status], 8	213	test byte [status], 8
211	jnz still	214	jnz still
212	or byte [status], 8	215	or byte [status], 8
213	mov eax,51	216	mov eax,51
214	mov ebx,1	217	mov ebx,1
215	mov ecx,thread3	218	mov ecx,thread3
216	mov edx,thread-512*2 ;0x2bfff0	219	mov edx,thread-512*2
217	mcall	220	mcall
218	jmp still	221	jmp still
219	;call background	222	;call background
220		223
221	getappinfo:	224	getappinfo:
222	mov eax,9	225	mov eax,9
223	mov ebx,process_info	226	mov ebx,process_info
224	mcall	227	mcall
225	ret	228	ret
226		229
227		230
228	load_image:	231	load_image:
229		232
230	mov [fileinfo+0],dword 5	233	mov [fileinfo+0],dword 5
231	mov [fileinfo+12],dword 0	234	mov [fileinfo+12],dword 0
232	mov [fileinfo+16],dword process_info	235	mov [fileinfo+16],dword process_info
233		236
234	cmp [image_file],0	237	cmp [image_file],0
235	je @f	238	je @f
236	mov ecx,[image_file]	239	mov ecx,[image_file]
237	mcall 68, 13,	240	mcall 68, 13,
238		241
239	@@:	242	@@:
240	mcall 70, fileinfo	243	mcall 70, fileinfo
241		244
242	mov [fileinfo+0],dword 0	245	mov [fileinfo+0],dword 0
243	mov [fileinfo+12],dword 512	246	mov [fileinfo+12],dword 512
244	mov [fileinfo+16],dword process_info+40	247	mov [fileinfo+16],dword process_info+40
245		248
246	mcall 70, fileinfo	249	mcall 70, fileinfo
247		250
248	mov ecx,[process_info+32]	251	mov ecx,[process_info+32]
249	mov [fileinfo+12],ecx	252	mov [fileinfo+12],ecx
-		253
-		254	mcall 68, 12
-		255
-		256
-		257	mov [fileinfo+16],eax
-		258	mov [image_file_1],eax
250		259
251	mov eax,[process_info+40+28]	260	mov eax,[process_info+40+28]
252		261
253	cmp eax, 24	262	cmp eax, 24
254	jz .convert24	263	jz .convert24
255	cmp eax, 8	264	cmp eax, 8
256	jz .convert8	265	jz .convert8
257	cmp eax, 4	266	cmp eax, 4
258	jz .convert4	267	jz .convert4
259	shl ecx,2	268	shl ecx,2
260	.convert4:	269	.convert4:
261	shl ecx,1	270	shl ecx,1
262	.convert8:	271	.convert8:
263	lea ecx,[ecx*3]	272	lea ecx,[ecx*3]
264	.convert24:	273	.convert24:
265	shl ecx,1	-
266	@@:	-
267		274
-		275	;@@:
-		276
268	mcall 68, 12	-
269		277	add ecx,512
270		278	mcall 68, 12
271	mov [fileinfo+16],eax	279
272	mov [image_file],eax	280	mov [image_file],eax
273		281
274	mcall 70, fileinfo	282	mcall 70, fileinfo
-		283
-		284	mov esi,[image_file_1]
-		285	mov edi,[image_file]
-		286	mov ecx,512/4
-		287	cld
-		288	rep movsd
275		289
276	mov eax,[image_file]	290	mov eax,[image_file]
277	mov ebx,[eax+22]	291	mov ebx,[eax+22]
278	mov eax,[eax+18]	292	mov eax,[eax+18]
279	test ebx, ebx	293	test ebx, ebx
280	jns @f	294	jns @f
281	neg ebx	295	neg ebx
282	@@:	296	@@:
283	add eax,9 ;20	297	add eax,9
284	cmp eax,210	298	cmp eax,210
285	jae @f	299	jae @f
286	mov eax,210	300	mov eax,210
287	@@:	301	@@:
288	add ebx,54 ;58	302	add ebx,54
289	cmp ebx,56	303	cmp ebx,56
290	jae @f	304	jae @f
291	mov ebx,56	305	mov ebx,56
292	@@:	306	@@:
293	mov [wnd_width],eax	307	mov [wnd_width],eax
294	mov [wnd_height],ebx	308	mov [wnd_height],ebx
295	test [bWasDraw],1	309	test [bWasDraw],1
296	jz @f	310	jz @f
297	mov esi,ebx	311	mov esi,ebx
298	mov edx,eax	312	mov edx,eax
299	mcall 67,-1,-1	313	mcall 67,-1,-1
300	@@:	314	@@:
301	ret	315	ret
302		316
303		317
304	drawimage:	318	drawimage:
305	mov eax,[image_file]	319	mov eax,[image_file]
306	cmp [eax],word 'BM'	320	cmp [eax],word 'BM'
307	jne nodrawimage	321	jne nodrawimage
308	mov ecx, dword [eax+18-2]	322	mov ecx, dword [eax+18-2]
309	mov cx, [eax+22]	323	mov cx, [eax+22]
310	test cx, cx	324	test cx, cx
311	jns @f	325	jns @f
312	neg cx	326	neg cx
313	@@:	327	@@:
314	mov edx,5*65536+50	328	mov edx,5*65536+50
315	mcall 7,[soi]	329	mcall 7,[soi]
316	nodrawimage:	330	nodrawimage:
317	ret	331	ret
318		332
319	;	333	;
320	background:	334	background:
321	mov eax,[image_file]	335	mov eax,[image_file]
322	cmp [eax],word 'BM'	336	cmp [eax],word 'BM'
323	jne @f	337	jne @f
324	mov ecx,[eax+18] ; è¨à¨	338	mov ecx,[eax+18] ; è¨à¨
325	mov edx,[eax+22] ; ¢ëá®â	339	mov edx,[eax+22] ; ¢ëá®â
326	mcall 15,1	340	mcall 15,1
327		341
328	mov esi, ecx	342	mov esi, ecx
329	imul esi, edx	343	imul esi, edx
330	lea esi, [esi+esi*2]	344	lea esi, [esi+esi*2]
331	mov ebx,5	345	mov ebx,5
332	mov ecx,[soi]	346	mov ecx,[soi]
333	xor edx,edx	347	xor edx,edx
334	;;; mov esi, ;6404803	348	;;; mov esi, ;6404803
335	mcall	349	mcall
336		350
337	dec ebx ;tile/stretch	351	dec ebx ;tile/stretch
338	mov ecx,dword [bgrmode]	352	mov ecx,dword [bgrmode]
339	mcall	353	mcall
340		354
341	dec ebx	355	dec ebx
342	mcall	356	mcall
343	@@:	357	@@:
344	ret	358	ret
345		359
346	convert:	360	convert:
-		361	call convert_1
-		362	mov ecx,[image_file_1]
-		363	mcall 68, 13,
-		364	ret
-		365	convert_1:
347	mov ecx, [image_file] ;I_END	366	mov ecx, [image_file]
348	add ecx, [ecx+2]	367	add ecx,512
349	mov [soi], ecx	368	mov [soi], ecx
350	mov eax,[image_file]	369	mov eax,[image_file_1]
351	mov ebp, [eax+18]	370	mov ebp, [eax+18]
352	lea ebp, [ebp*3] ; ebp = size of output scanline	371	lea ebp, [ebp*3] ; ebp = size of output scanline
353	mov eax, [eax+22]	372	mov eax, [eax+22]
354	dec eax	373	dec eax
355	mul ebp	374	mul ebp
356	add eax, ecx	375	add eax, ecx
357	mov edi, eax ; edi points to last scanline	376	mov edi, eax ; edi points to last scanline
358	mov esi, [image_file] ;I_END	377	mov esi, [image_file_1]
359	add esi, [esi+10]	378	add esi, [esi+10]
360	; mov ebx, I_END+54	-
361	mov ebx,[image_file]	379	mov ebx,[image_file_1]
362	mov edx, [ebx+22]	380	mov edx, [ebx+22]
363	add ebx,54	381	add ebx,54
364	lea eax, [ebp*2]	382	lea eax, [ebp*2]
365	mov [delta], eax	383	mov [delta], eax
366	test edx, edx	384	test edx, edx
367	jz .ret	385	jz .ret
368	jns @f	386	jns @f
369	neg edx	387	neg edx
370	and [delta], 0	388	and [delta], 0
371	mov edi, ecx	389	mov edi, ecx
372	@@:	390	@@:
373	; movzx eax, word [I_END+28]	-
374	mov eax,[image_file]	391	mov eax,[image_file_1]
375	movzx eax,word [eax+28]	392	movzx eax,word [eax+28]
376	cmp eax, 24	393	cmp eax, 24
377	jz convert24	394	jz convert24
378	cmp eax, 8	395	cmp eax, 8
379	jz convert8	396	jz convert8
380	cmp eax, 4	397	cmp eax, 4
381	jz convert4	398	jz convert4
382	dec eax	399	dec eax
383	jz convert1	400	jz convert1
384	.ret:	401	.ret:
385	ret	402	ret
386	convert24:	403	convert24:
387	mov ecx, ebp	404	mov ecx, ebp
388	rep movsb	405	rep movsb
389	sub edi, [delta]	406	sub edi, [delta]
390	mov eax, ebp	407	mov eax, ebp
391	neg eax	408	neg eax
392	and eax, 3	409	and eax, 3
393	add esi, eax	410	add esi, eax
394	dec edx	411	dec edx
395	jnz convert24	412	jnz convert24
396	ret	413	ret
397	convert8:	414	convert8:
398	push edi	415	push edi
399	add [esp], ebp	416	add [esp], ebp
400	.loopi:	417	.loopi:
401	xor eax, eax	418	xor eax, eax
402	lodsb	419	lodsb
403	; cmp dword [I_END+30], 1	-
404	push eax	420	push eax
405	mov eax,[image_file]	421	mov eax,[image_file_1]
406	cmp dword [eax+30],1	422	cmp dword [eax+30],1
407	pop eax	423	pop eax
408	jnz .nocompressed	424	jnz .nocompressed
409	.compressed:	425	.compressed:
410	mov ecx, eax	426	mov ecx, eax
411	jecxz .special	427	jecxz .special
412	lodsb	428	lodsb
413	mov eax, [ebx+eax*4]	429	mov eax, [ebx+eax*4]
414	@@:	430	@@:
415	call putpixel	431	call putpixel
416	loop @b	432	loop @b
417	jmp .loopi	433	jmp .loopi
418	.nocompressed:	434	.nocompressed:
419	mov eax, [ebx+eax*4]	435	mov eax, [ebx+eax*4]
420	call putpixel	436	call putpixel
421	.loopicont:	437	.loopicont:
422	cmp edi, [esp]	438	cmp edi, [esp]
423	jnz .loopi	439	jnz .loopi
424	.next:	440	.next:
425	pop edi	441	pop edi
426	sub edi, [delta]	442	sub edi, [delta]
427	mov eax, ebp	443	mov eax, ebp
428	and eax, 3	444	and eax, 3
429	add esi, eax	445	add esi, eax
430	dec edx	446	dec edx
431	jnz convert8	447	jnz convert8
432	ret	448	ret
433	.special:	449	.special:
434	lodsb	450	lodsb
435	test al, al	451	test al, al
436	jz .next	452	jz .next
437	cmp al, 2	453	cmp al, 2
438	jbe .end	454	jbe .end
439	mov ecx, eax	455	mov ecx, eax
440	push ecx	456	push ecx
441	@@:	457	@@:
442	xor eax, eax	458	xor eax, eax
443	lodsb	459	lodsb
444	mov eax, [ebx+eax*4]	460	mov eax, [ebx+eax*4]
445	call putpixel	461	call putpixel
446	loop @b	462	loop @b
447	pop ecx	463	pop ecx
448	and ecx, 1	464	and ecx, 1
449	add esi, ecx	465	add esi, ecx
450	jmp .loopi	466	jmp .loopi
451	.end:	467	.end:
452	pop edi	468	pop edi
453	ret	469	ret
454	convert4:	470	convert4:
455	push edi	471	push edi
456	add [esp], ebp	472	add [esp], ebp
457	.loopi:	473	.loopi:
458	xor eax, eax	474	xor eax, eax
459	lodsb	475	lodsb
460	shr eax, 4	476	shr eax, 4
461	mov eax, [ebx+eax*4]	477	mov eax, [ebx+eax*4]
462	call putpixel	478	call putpixel
463	cmp edi, [esp]	479	cmp edi, [esp]
464	jz .loopidone	480	jz .loopidone
465	mov al, [esi-1]	481	mov al, [esi-1]
466	and eax, 0xF	482	and eax, 0xF
467	mov eax, [ebx+eax*4]	483	mov eax, [ebx+eax*4]
468	stosd	484	stosd
469	dec edi	485	dec edi

Subversion Repositories Kolibri OS

(root)/programs/media/mv/trunk/mv.asm – Rev 828 → 832