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

Subversion Repositories Kolibri OS

(root)/programs/other/outdated/mv/trunk/mv.asm – Rev 832 → 7649