forked from KolibriOS/kolibrios
748 lines
18 KiB
NASM
748 lines
18 KiB
NASM
; IMGVIEW.ASM
|
|
;
|
|
; This program displays jpeg images. The window can be resized.
|
|
;
|
|
; Version 0.0 END OF 2003
|
|
; Octavio Vega
|
|
; Version 0.1 7th March 2004
|
|
; Mike Hibbett ( very small part! )
|
|
; Version 0.11 7th April 2004
|
|
; Ville Turjanmaa ( 'set_as_bgr' function )
|
|
; Version 0.12 29th May 2004
|
|
; Ivan Poddubny (correct "set_as_bgr"+parameters+boot+...)
|
|
; Version 0.12 30 de mayo 2004
|
|
; Octavio Vega
|
|
; bugs correction and slideshow
|
|
; version 0.13 3 de junio 2004
|
|
; Octavio Vega
|
|
; unos retoques
|
|
; version 0.14 10th August 2004
|
|
; Mike Hibbett Added setting default colours
|
|
; version 0.15 24th August 2006
|
|
; diamond (rewritten to function 70)
|
|
; version 0.16 19th May 2007
|
|
; Mario79
|
|
; 1) correction for changed function 15,
|
|
; 2) use monochrome background if free memory there are less than 2 MB
|
|
; 3) use COL0 - COL9 boot parameter
|
|
; 0=black,1=white,2=green,3=lilas,4=grey
|
|
; 5=light-blue,6=blue,7=salad,8=pink,9=yellow
|
|
; version 0.17 17th June 2007
|
|
; diamond (background definition now uses shared memory)
|
|
; version 0.18 9th August 2007
|
|
; Mario79
|
|
; 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.jpg' - set background, mode: tile
|
|
; '\S /hd0/1/1.jpg' - set background, mode: stretch
|
|
|
|
memsize=20000h
|
|
org 0
|
|
PARAMS = memsize - 1024
|
|
|
|
appname equ 'Jpegview '
|
|
version equ '0.18'
|
|
|
|
use32
|
|
|
|
db 'MENUET01' ; 8 byte id
|
|
dd 0x01 ; header version
|
|
dd START ; start of code
|
|
dd I_END ; size of image
|
|
dd memsize ; memory for app
|
|
dd memsize - 1024 ; esp
|
|
dd PARAMS , 0x0 ; I_Param , I_Icon
|
|
|
|
stack_size=4096 + 1024
|
|
|
|
include '..\..\..\macros.inc'
|
|
|
|
START: ; start of execution
|
|
mcall 68,11 ; initialize heap
|
|
|
|
cmp [PARAMS], byte 0
|
|
jne check_parameters
|
|
|
|
; Calculate the 'free' memory available
|
|
; to the application, and create the malloc block from it
|
|
.l1:
|
|
mov ecx,memsize-fin-stack_size
|
|
mov edi,fin
|
|
call add_mem
|
|
|
|
call colorprecalc ;inicializa tablas usadas para pasar de ybr a bgr
|
|
call draw_window
|
|
call read_string.rs_done
|
|
|
|
still:
|
|
push still
|
|
mov ebx,100 ;1 second
|
|
mov eax,23 ; wait here for event
|
|
mcall
|
|
cmp eax,1 ; redraw request ?
|
|
je draw_window
|
|
cmp eax,2 ; key in buffer ?
|
|
je read_string
|
|
cmp eax,3 ; button in buffer ?
|
|
je button
|
|
jmp display_next
|
|
|
|
button: ; BUTTON
|
|
mov eax,17
|
|
mcall
|
|
cmp ah,3
|
|
je set_as_bgr2
|
|
cmp ah,2
|
|
je slideshow
|
|
cmp ah,1 ; CLOSE PROGRAM
|
|
jne close_program.exit
|
|
close_program:
|
|
mov eax,-1
|
|
mcall
|
|
.exit:
|
|
ret
|
|
|
|
; Put a 'chunk' of the image on the window
|
|
put_image:
|
|
pushad
|
|
|
|
lea ebp,[edx+eax+7]
|
|
cmp [winxs],bp
|
|
jc .l1
|
|
lea ebp,[ecx+ebx+20+2+17]
|
|
cmp [winys],bp
|
|
jc .l1
|
|
|
|
add eax,2 ; offset for boarder
|
|
add ebx,2 ; offset for title bar
|
|
push ax ; pox
|
|
push bx ; pos
|
|
push cx ; size
|
|
push dx ; size
|
|
pop ecx
|
|
pop edx
|
|
mov ebx,edi
|
|
mov eax,7
|
|
|
|
mcall ; Put image function
|
|
.l1:
|
|
popad
|
|
ret
|
|
|
|
|
|
|
|
;******************************************************************************
|
|
|
|
check_parameters:
|
|
cmp [PARAMS], dword "BOOT" ; received BOOT parameter -> goto handler
|
|
je boot_set_background
|
|
cmp [PARAMS], word "CO"
|
|
jne @f
|
|
cmp [PARAMS+2], byte "L"
|
|
je boot_set_background
|
|
@@:
|
|
cmp byte [PARAMS], "\"
|
|
jne @f
|
|
cmp [PARAMS+1], byte "S"
|
|
jne .tile
|
|
mov [drawing_mode],2
|
|
jmp @f
|
|
.tile:
|
|
cmp [PARAMS+1], byte "T"
|
|
jne @f
|
|
mov [drawing_mode],1
|
|
@@:
|
|
cmp byte [PARAMS], 1
|
|
jz ipc_service
|
|
mov edi, name_string ; clear string with file name
|
|
mov al, 0
|
|
mov ecx, 100
|
|
rep stosb
|
|
|
|
mov ecx, 100 ; calculate length of parameter string
|
|
mov edi, PARAMS
|
|
repne scasb
|
|
|
|
sub edi, PARAMS
|
|
mov ecx, edi
|
|
mov esi, PARAMS ; copy parameters to file name
|
|
mov edi, name_string
|
|
cmp byte [PARAMS], "\"
|
|
jne @f
|
|
add esi,4
|
|
sub ecx,4
|
|
@@:
|
|
cld
|
|
rep movsb
|
|
|
|
cmp byte [PARAMS], "\"
|
|
je boot_set_background.1
|
|
|
|
jmp START.l1 ; return to beggining of the progra
|
|
;******************************************************************************
|
|
boot_set_background:
|
|
mov [drawing_mode],2
|
|
.1:
|
|
mcall 18,16
|
|
cmp eax,1024*2
|
|
jb set_mono
|
|
mov ecx,memsize-fin-stack_size ; size
|
|
mov edi,fin ; pointer
|
|
call add_mem ; mark memory from fin to 0x100000-1024 as free
|
|
call colorprecalc ; calculate colors
|
|
mov esi,name_string
|
|
call open
|
|
test eax,eax
|
|
jz close_program
|
|
call jpeg_info
|
|
mov dword [jpeg_st],ebp
|
|
call set_as_bgr2 ; set wallpaper
|
|
jmp close_program ; close the program right now
|
|
|
|
;******************************************************************************
|
|
set_mono:
|
|
mov eax, 15
|
|
mov ebx, 1
|
|
mov ecx, 1
|
|
mov edx, 1
|
|
mcall
|
|
|
|
cmp [PARAMS], dword "BOOT" ; received BOOT parameter -> goto handler
|
|
jne @f
|
|
.green:
|
|
mov ecx,mono+6
|
|
jmp .set
|
|
@@:
|
|
; cmp [PARAMS], word "CO" ; received BOOT parameter -> goto handler
|
|
; jne .green
|
|
xor ecx,ecx
|
|
mov cl,[PARAMS+3]
|
|
sub cl,0x30
|
|
cmp ecx,0
|
|
jb .green
|
|
cmp ecx,9
|
|
ja .green
|
|
imul ecx,3
|
|
add ecx,mono
|
|
.set:
|
|
mcall 15,5, ,0,3
|
|
|
|
; Stretch the image to fit
|
|
mov eax, 15
|
|
mov ebx, 4
|
|
mov ecx, 1
|
|
mcall
|
|
|
|
mov eax, 15
|
|
mov ebx, 3
|
|
mcall
|
|
jmp close_program
|
|
|
|
mono:
|
|
db 0,0,0 ; black
|
|
db 255,255,255 ; white
|
|
db 128,128,0 ; green
|
|
db 240,202,166 ; lilas
|
|
db 192,192,192 ; grey
|
|
db 255,255,0 ; light-blue
|
|
db 255,0,0 ; blue
|
|
db 192,220,192 ; salad
|
|
db 255,0,255 ; pink
|
|
db 0,255,255 ; yellow
|
|
;******************************************************************************
|
|
|
|
set_as_bgr2:
|
|
mov ebp,dword[jpeg_st]
|
|
test ebp,ebp
|
|
jz .end
|
|
|
|
mov eax, 15
|
|
mov ebx, 1
|
|
mov ecx, [ebp + x_size]
|
|
mov edx, [ebp + y_size]
|
|
mcall
|
|
|
|
mov ebx, 6
|
|
mcall
|
|
test eax, eax
|
|
jz .end
|
|
mov [ipc_mem_out], eax
|
|
|
|
mov dword [ebp+draw_ptr],put_chunk_to_mem
|
|
call jpeg_display
|
|
|
|
mov eax, 15
|
|
mov ebx, 7
|
|
mov ecx, [ipc_mem_out]
|
|
mcall
|
|
|
|
; Stretch the image to fit
|
|
mov eax, 15
|
|
mov ebx, 4
|
|
mov ecx, [drawing_mode] ;2
|
|
mcall
|
|
|
|
mov eax, 15
|
|
mov ebx, 3
|
|
mcall
|
|
|
|
|
|
.end:
|
|
ret
|
|
|
|
;******************************************************************************
|
|
|
|
ipc_service:
|
|
mov esi, PARAMS+1
|
|
xor eax, eax
|
|
xor ecx, ecx
|
|
@@:
|
|
lodsb
|
|
test al, al
|
|
jz @f
|
|
lea ecx, [ecx*5]
|
|
lea ecx, [ecx*2+eax-'0']
|
|
jmp @b
|
|
@@:
|
|
add ecx, 16
|
|
mov edx, ecx
|
|
mcall 68, 12
|
|
test eax, eax
|
|
jnz @f
|
|
.exit:
|
|
mcall -1
|
|
@@:
|
|
mov ecx, eax
|
|
and dword [ecx], 0
|
|
mov dword [ecx+4], 8
|
|
mov [ipc_mem], ecx
|
|
mcall 60, 1
|
|
mcall 40, 1 shl 6
|
|
mcall 23, 500 ; wait up to 5 seconds for IPC message
|
|
test eax, eax
|
|
jz .exit
|
|
; we got message with JPEG data, now decode it
|
|
mov eax, [ecx+12]
|
|
mov [ipc_mem_size], eax
|
|
; init JPEG decoder
|
|
mov ecx,memsize-fin-stack_size ; size
|
|
mov edi,fin ; pointer
|
|
call add_mem ; mark memory from fin to 0x100000-1024 as free
|
|
call colorprecalc ; calculate colors
|
|
; hook file functions
|
|
mov ecx, 4
|
|
call malloc
|
|
and dword [edi], 0
|
|
lea eax, [edi-file_handler.position]
|
|
mov byte [read], 0xE9
|
|
mov dword [read+1], read_from_mem - (read+5)
|
|
; decode
|
|
call jpeg_info
|
|
mov dword [jpeg_st],ebp
|
|
test ebp,ebp
|
|
jz .end
|
|
|
|
mov eax, [ebp + x_size]
|
|
mul dword [ebp + y_size]
|
|
lea eax, [eax*3+8]
|
|
mov ecx, eax
|
|
mcall 68, 12
|
|
test eax, eax
|
|
jz .end
|
|
add eax, 8
|
|
mov [ipc_mem_out], eax
|
|
mov ebx, [ebp + x_size]
|
|
mov [eax-8], ebx
|
|
mov ebx, [ebp + y_size]
|
|
mov [eax-4], ebx
|
|
|
|
mov dword [ebp+draw_ptr],put_chunk_to_mem
|
|
call jpeg_display
|
|
|
|
; IPC response
|
|
mov esi, [ebp + x_size]
|
|
imul esi, [ebp + y_size]
|
|
lea esi, [esi*3+8]
|
|
mov edx, [ipc_mem_out]
|
|
sub edx, 8
|
|
.response:
|
|
mov ecx, [ipc_mem]
|
|
mov ecx, [ecx+8]
|
|
mcall 60,2
|
|
|
|
jmp close_program ; close the program right now
|
|
|
|
.end:
|
|
mov esi, 8
|
|
mov edx, x_pointer ; points to 2 null dwords
|
|
jmp .response
|
|
|
|
read_from_mem:
|
|
; in: eax=handle, ecx=size, edi=pointer to buffer
|
|
; out: ecx=number of read bytes, buffer filled
|
|
pushad
|
|
mov esi, [ipc_mem]
|
|
add esi, 16
|
|
add esi, [eax+file_handler.position]
|
|
add ecx, [eax+file_handler.position]
|
|
cmp ecx, [ipc_mem_size]
|
|
jb @f
|
|
mov ecx, [ipc_mem_size]
|
|
@@:
|
|
sub ecx, [eax+file_handler.position]
|
|
add [eax+file_handler.position], ecx
|
|
rep movsb
|
|
popad
|
|
ret
|
|
|
|
;******************************************************************************
|
|
|
|
put_chunk_to_mem:
|
|
; in: (eax,ebx) = start coordinates of chunk
|
|
; (ecx,edx) = sizes of chunk
|
|
; edi -> chunk data
|
|
push esi edi edx
|
|
mov esi, edi
|
|
mov edi, ebx
|
|
imul edi, [ebp + x_size]
|
|
add edi, eax
|
|
lea edi, [edi*3]
|
|
add edi, [ipc_mem_out]
|
|
@@:
|
|
push ecx edi
|
|
lea ecx, [ecx*3]
|
|
rep movsb
|
|
pop edi ecx
|
|
add edi, [ebp + x_size]
|
|
add edi, [ebp + x_size]
|
|
add edi, [ebp + x_size]
|
|
dec edx
|
|
jnz @b
|
|
pop edx edi esi
|
|
ret
|
|
|
|
;******************************************************************************
|
|
|
|
|
|
|
|
; *********************************************
|
|
; ******* WINDOW DEFINITIONS AND DRAW ********
|
|
; *********************************************
|
|
|
|
|
|
draw_window:
|
|
|
|
mov eax,48
|
|
mov ebx,3
|
|
mov ecx,sc
|
|
mov edx,sizeof.system_colors
|
|
mcall
|
|
|
|
mov eax,12
|
|
mov ebx,1
|
|
mcall
|
|
|
|
; Draw the window to the appropriate size - it may have
|
|
; been resized by the user
|
|
cmp [winxs], 0
|
|
jne dw_001
|
|
|
|
; Give the screen some inital defaults
|
|
mov [winxs], 400
|
|
mov [winys], 300
|
|
mov ax, 100
|
|
mov [winxo], ax
|
|
mov [winyo], ax
|
|
jmp dw_002
|
|
|
|
dw_001:
|
|
mov eax, 9
|
|
mov ebx, memsize - 1024
|
|
mov ecx, -1
|
|
mcall
|
|
mov eax, [ebx + 34]
|
|
mov [winxo], ax
|
|
mov eax, [ebx + 38]
|
|
mov [winyo], ax
|
|
mov eax, [ebx + 42]
|
|
mov [winxs], ax
|
|
mov eax, [ebx + 46]
|
|
mov [winys], ax
|
|
|
|
dw_002:
|
|
mov ebx, dword [winxo-2]
|
|
mov bx, [winxs]
|
|
mov ecx, dword [winyo-2]
|
|
mov cx, [winys]
|
|
|
|
xor eax,eax ; DRAW WINDOW
|
|
mov edx,[sc.work]
|
|
or edx,0x33000000
|
|
mov edi,title ; WINDOW LABEL
|
|
mcall
|
|
|
|
|
|
mov eax,8 ; BUTTON 2: slideshow
|
|
mov ebx,57
|
|
mov cx, [winys]
|
|
sub cx, 39
|
|
shl ecx, 16
|
|
add ecx, 12
|
|
mov esi, [sc.work_button]
|
|
mov edx,2
|
|
mcall
|
|
|
|
mov eax,4 ; Button text
|
|
movzx ebx, word [winys]
|
|
add ebx, 3 shl 16 - 36
|
|
mov ecx,[sc.work_button_text]
|
|
mov edx,setname
|
|
mov esi,setnamelen-setname
|
|
mcall
|
|
|
|
|
|
mov eax,8 ; BUTTON 3: set as background
|
|
mov bx, [winxs]
|
|
sub bx, 65
|
|
shl ebx, 16
|
|
mov bx,55
|
|
mov cx, [winys]
|
|
sub cx, 39
|
|
shl ecx, 16
|
|
add ecx, 12
|
|
mov esi, [sc.work_button]
|
|
mov edx,3
|
|
mcall
|
|
|
|
mov eax,4 ; Button text
|
|
movzx ebx, word [winxs]
|
|
sub ebx, 63
|
|
shl ebx,16
|
|
mov bx, word [winys]
|
|
sub bx,36
|
|
mov ecx,[sc.work_button_text]
|
|
mov edx,setbgr
|
|
mov esi,setbgrlen-setbgr
|
|
mcall
|
|
call print_strings
|
|
call load_image
|
|
mov eax,12 ; function 12:tell os about windowdraw
|
|
mov ebx,2 ; 2, end of draw
|
|
mcall
|
|
|
|
ret
|
|
|
|
|
|
|
|
; Read in the image file name.
|
|
read_string:
|
|
movzx edi,byte[name_string.cursor]
|
|
add edi,name_string
|
|
mov eax,2
|
|
mcall ; Get the key value
|
|
shr eax,8
|
|
cmp eax,13 ; Return key ends input
|
|
je .rs_done
|
|
cmp eax,8
|
|
jnz .nobsl
|
|
cmp edi,name_string
|
|
je .exit
|
|
dec edi
|
|
mov [edi],byte 0;'_'
|
|
dec byte[name_string.cursor]
|
|
jmp print_strings
|
|
.exit: ret
|
|
.nobsl:
|
|
cmp eax,31
|
|
jbe .exit
|
|
cmp eax,97
|
|
jb .keyok
|
|
sub eax,32
|
|
.keyok:
|
|
mov ah,0
|
|
stosw
|
|
cmp edi,name_string.end
|
|
jnc print_strings
|
|
inc byte[name_string.cursor]
|
|
jmp print_strings
|
|
.rs_done:
|
|
call print_strings
|
|
mov esi,name_string
|
|
call open
|
|
test eax,eax
|
|
jz .exit
|
|
call jpeg_info
|
|
test ebp,ebp
|
|
jz close
|
|
xchg [jpeg_st],ebp
|
|
call jpeg_close
|
|
|
|
load_image:
|
|
|
|
mov eax,13 ; clear picture area
|
|
movzx ebx, word [winxs]
|
|
add ebx, 1 shl 16 -10
|
|
movzx ecx, word [winys]
|
|
sub ecx, 40
|
|
add ecx, 1 shl 16
|
|
|
|
mov edx,[sc.work]
|
|
mcall
|
|
mov ebp,[jpeg_st]
|
|
test ebp,ebp
|
|
jz .exit
|
|
mov dword [ebp+draw_ptr],put_image
|
|
jmp jpeg_display
|
|
.exit: ret
|
|
|
|
print_strings:
|
|
pusha
|
|
mov eax,13 ; clear text area
|
|
movzx ebx, word [winxs]
|
|
add ebx, 59 shl 16 -125
|
|
mov cx, [winys]
|
|
sub cx, 39
|
|
shl ecx, 16
|
|
add ecx, 12
|
|
mov edx,0xffffff
|
|
mcall
|
|
|
|
mov eax,4 ;
|
|
movzx ebx, word [winys]
|
|
add ebx, 61 shl 16 - 37
|
|
mov ecx,0x000000
|
|
mov edx,name_string
|
|
mov esi,60
|
|
mcall
|
|
popa
|
|
ret
|
|
|
|
slideshow:
|
|
cmp [file_dir], 0
|
|
jnz .exit
|
|
cmp [jpeg_st], 0
|
|
jz .exit
|
|
mov esi, name_string
|
|
movzx ecx, byte [name_string.cursor]
|
|
.l1:
|
|
cmp byte [esi+ecx], '/'
|
|
jz .l2
|
|
loop .l1
|
|
.exit:
|
|
ret
|
|
.l2:
|
|
mov byte [esi+ecx], 0
|
|
call open
|
|
mov byte [esi+ecx], '/'
|
|
test eax, eax
|
|
jz .exit
|
|
test byte [fileattr], 0x10
|
|
jz .exit
|
|
mov [file_dir], eax
|
|
inc ecx
|
|
mov [name_string.cursor], cl
|
|
display_next:
|
|
mov ebx, [file_dir]
|
|
test ebx, ebx
|
|
jnz @f
|
|
ret
|
|
@@:
|
|
mov byte [ebx], 1
|
|
mov byte [ebx+12], 1
|
|
mov dword [ebx+16], dirinfo
|
|
mov eax, 70
|
|
mcall
|
|
mov eax, [file_dir]
|
|
inc dword [eax+4]
|
|
cmp ebx, 1
|
|
jz @f
|
|
mov eax, [file_dir]
|
|
and [file_dir], 0
|
|
jmp close
|
|
@@:
|
|
movzx edi, byte [name_string.cursor]
|
|
add edi, name_string
|
|
lea esi, [dirinfo+32+40]
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
test al, al
|
|
jnz @b
|
|
mov ecx, name_string.end
|
|
sub ecx, edi
|
|
rep stosb
|
|
call print_strings
|
|
mov esi,name_string
|
|
call open
|
|
test eax,eax
|
|
jz display_next
|
|
call jpeg_info
|
|
test ebp,ebp
|
|
jnz .l6
|
|
call close
|
|
jmp display_next
|
|
.l6:
|
|
mov dword[ebp+draw_ptr],put_image
|
|
push ebp
|
|
xchg [jpeg_st],ebp
|
|
call jpeg_close
|
|
pop ebp
|
|
jmp jpeg_display
|
|
|
|
|
|
include 'filelib.asm'
|
|
include 'memlib.asm'
|
|
include 'jpeglib.asm'
|
|
|
|
|
|
; DATA AREA
|
|
|
|
wcolor dd 0x000000
|
|
drawing_mode dd 2
|
|
title db appname,version,0
|
|
setname db 'SLIDESHOW'
|
|
setnamelen:
|
|
|
|
setbgr db ' BGR '
|
|
setbgrlen:
|
|
|
|
x_pointer dd 0
|
|
x_offset dd 0
|
|
x_numofbytes dd 0
|
|
x_numofb2 dd 0
|
|
x_counter dd 0
|
|
winxo dw 0
|
|
winyo dw 0
|
|
winxs dw 0
|
|
winys dw 0
|
|
jpeg_st dd 0
|
|
file_dir dd 0
|
|
name_string: db '/sys/jpegview.jpg',0
|
|
rb 256
|
|
.end:
|
|
.cursor: db 19
|
|
.cursor2: db 0
|
|
|
|
align 4
|
|
|
|
rgb16: db 0,4,8,13,17,21,25,29,34,38,42,46,50,55,59,63
|
|
rgb4: db 0,21,42,63
|
|
|
|
include 'jpegdat.asm'
|
|
|
|
align 4
|
|
|
|
iniciomemoria:
|
|
dd -(iniciomemoria+4),-(iniciomemoria+4),(iniciomemoria+4),.l1,0
|
|
.l1 dd 0
|
|
|
|
I_END:
|
|
sc system_colors
|
|
ipc_mem dd ?
|
|
ipc_mem_size dd ?
|
|
ipc_mem_out dd ?
|
|
fileattr: rb 40
|
|
dirinfo: rb 32+304
|
|
fin:
|