forked from KolibriOS/kolibrios
197 lines
3.8 KiB
NASM
197 lines
3.8 KiB
NASM
use32
|
|
org 0x0
|
|
|
|
db 'MENUET01'
|
|
dd 0x01, START, I_END, 0x1000, 0x1000, @PARAMS, 0x0
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
FALSE = 0
|
|
TRUE = 1
|
|
|
|
include '../../../../../proc32.inc'
|
|
include '../../../../../macros.inc'
|
|
include '../dll.inc'
|
|
|
|
include '../../libio/libio.inc'
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
START:
|
|
mcall 68, 11
|
|
|
|
stdcall dll.Load, @IMPORT
|
|
or eax, eax
|
|
jnz exit
|
|
|
|
invoke file.open, @PARAMS, O_READ
|
|
or eax, eax
|
|
jz exit
|
|
mov [fh], eax
|
|
invoke file.size, @PARAMS
|
|
mov [img_data_len], ebx
|
|
stdcall mem.Alloc, ebx
|
|
or eax, eax
|
|
jz exit
|
|
mov [img_data], eax
|
|
invoke file.read, [fh], eax, [img_data_len]
|
|
cmp eax, -1
|
|
je exit
|
|
cmp eax, [img_data_len]
|
|
jne exit
|
|
invoke file.close, [fh]
|
|
inc eax
|
|
jz exit
|
|
|
|
invoke img.is_img, [img_data], [img_data_len]
|
|
or eax, eax
|
|
jz exit
|
|
invoke img.decode, [img_data], [img_data_len]
|
|
or eax, eax
|
|
jz exit
|
|
invoke img.to_rgb, eax
|
|
or eax, eax
|
|
jz exit
|
|
mov [rgb_img], eax
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
red:
|
|
call draw_window
|
|
|
|
still:
|
|
mcall 10
|
|
cmp eax, 1
|
|
je red
|
|
cmp eax, 2
|
|
je key
|
|
cmp eax, 3
|
|
je button
|
|
jmp still
|
|
|
|
key:
|
|
mcall 2
|
|
jmp still
|
|
|
|
button:
|
|
mcall 17
|
|
cmp ah, 1
|
|
jne still
|
|
|
|
exit:
|
|
mcall -1
|
|
|
|
draw_window:
|
|
invoke gfx.open, TRUE
|
|
mov [ctx], eax
|
|
|
|
mov edi, [rgb_img]
|
|
mov ebx, 200 * 65536
|
|
mov bx, [edi + 0]
|
|
add bx, 9
|
|
mov ecx, 200 * 65536
|
|
mov cx, [edi + 4]
|
|
add cx, 5 + 21
|
|
mcall 0, , , 0x33FF0000, , s_header
|
|
|
|
mov ebx, [rgb_img]
|
|
mov ecx, [ebx + 0]
|
|
shl ecx, 16
|
|
mov cx, [ebx + 4]
|
|
add ebx, 4 * 2
|
|
mcall 7, , , <0, 0>
|
|
|
|
invoke gfx.close, [ctx]
|
|
ret
|
|
|
|
;-----------------------------------------------------------------------------
|
|
proc mem.Alloc, size ;////////////////////////////////////////////////////////
|
|
;-----------------------------------------------------------------------------
|
|
push ebx ecx
|
|
mov ecx, [size]
|
|
add ecx, 4
|
|
mcall 68, 12
|
|
add ecx, -4
|
|
mov [eax], ecx
|
|
add eax, 4
|
|
pop ecx ebx
|
|
ret
|
|
endp
|
|
|
|
;-----------------------------------------------------------------------------
|
|
proc mem.ReAlloc, mptr, size ;////////////////////////////////////////////////
|
|
;-----------------------------------------------------------------------------
|
|
push ebx ecx edx
|
|
mov ecx, [size]
|
|
or ecx, ecx
|
|
jz @f
|
|
add ecx, 4
|
|
@@: mov edx, [mptr]
|
|
or edx, edx
|
|
jz @f
|
|
add edx, -4
|
|
@@: mcall 68, 20
|
|
or eax, eax
|
|
jz @f
|
|
add ecx, -4
|
|
mov [eax], ecx
|
|
add eax, 4
|
|
@@: pop edx ecx ebx
|
|
ret
|
|
endp
|
|
|
|
;-----------------------------------------------------------------------------
|
|
proc mem.Free, mptr ;/////////////////////////////////////////////////////////
|
|
;-----------------------------------------------------------------------------
|
|
push ebx ecx
|
|
mov ecx, [mptr]
|
|
or ecx, ecx
|
|
jz @f
|
|
add ecx, -4
|
|
@@: mcall 68, 13
|
|
pop ecx ebx
|
|
ret
|
|
endp
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
s_header db 'Image Viewer (test app)', 0
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
align 16
|
|
@IMPORT:
|
|
|
|
library \
|
|
libio , 'libio.obj' , \
|
|
libgfx , 'libgfx.obj' , \
|
|
libimg , 'libimg.obj'
|
|
|
|
import libio , \
|
|
file.size , 'file.size' , \
|
|
file.open , 'file.open' , \
|
|
file.read , 'file.read' , \
|
|
file.close , 'file.close'
|
|
|
|
import libgfx , \
|
|
gfx.open , 'gfx.open' , \
|
|
gfx.close , 'gfx.close'
|
|
|
|
import libimg , \
|
|
img.is_img , 'img.is_img' , \
|
|
img.to_rgb , 'img.to_rgb' , \
|
|
img.decode , 'img.decode'
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
I_END:
|
|
|
|
img_data dd ?
|
|
img_data_len dd ?
|
|
fh dd ?
|
|
rgb_img dd ?
|
|
|
|
ctx dd ?
|
|
|
|
@PARAMS rb 512
|