mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-11-25 10:19:36 +03:00
moved to other/outdated
git-svn-id: svn://kolibrios.org@3121 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency)
parent
fb30cd43b9
commit
c2c84028ec
@ -1,5 +0,0 @@
|
||||
@erase lang.inc
|
||||
@echo lang fix en >lang.inc
|
||||
@fasm gifview.asm gifview
|
||||
@erase lang.inc
|
||||
@pause
|
||||
@ -1,5 +0,0 @@
|
||||
@erase lang.inc
|
||||
@echo lang fix ru >lang.inc
|
||||
@fasm gifview.asm gifview
|
||||
@erase lang.inc
|
||||
@pause
|
||||
@ -1,485 +0,0 @@
|
||||
; GIF LITE v3.0 by Willow
|
||||
; Written in pure assembler by Ivushkin Andrey aka Willow
|
||||
; Modified by Diamond
|
||||
;
|
||||
; This include file will contain functions to handle GIF image format
|
||||
;
|
||||
; Created: August 15, 2004
|
||||
; Last changed: June 24, 2007
|
||||
|
||||
; Requires kglobals.inc (iglobal/uglobal macro)
|
||||
; (program must 'include "kglobals.inc"' and say 'IncludeUGlobal'
|
||||
; somewhere in uninitialized data area).
|
||||
|
||||
; Configuration: [changed from program which includes this file]
|
||||
; 1. The constant COLOR_ORDER: must be one of
|
||||
; PALETTE - for 8-bit image with palette (sysfunction 65)
|
||||
; MENUETOS - for MenuetOS and KolibriOS color order (sysfunction 7)
|
||||
; OTHER - for standard color order
|
||||
; 2. Define constant GIF_SUPPORT_INTERLACED if you want to support interlaced
|
||||
; GIFs.
|
||||
; 3. Single image mode vs multiple image mode:
|
||||
; if the program defines the variable 'gif_img_count' of type dword
|
||||
; somewhere, ReadGIF will enter multiple image mode: gif_img_count
|
||||
; will be initialized with image count, output format is GIF_list,
|
||||
; the function GetGIFinfo retrieves Nth image info. Otherwise, ReadGIF
|
||||
; uses single image mode: exit after end of first image, output is
|
||||
; <dd width,height, times width*height[*3] db image>
|
||||
|
||||
if ~ (COLOR_ORDER in <PALETTE,MENUETOS,OTHER>)
|
||||
; This message may not appear under MenuetOS, so watch...
|
||||
display 'Please define COLOR_ORDER: PALETTE, MENUETOS or OTHER',13,10
|
||||
end if
|
||||
|
||||
if defined gif_img_count
|
||||
; virtual structure, used internally
|
||||
|
||||
struct GIF_list
|
||||
NextImg rd 1
|
||||
Left rw 1
|
||||
Top rw 1
|
||||
Width rw 1
|
||||
Height rw 1
|
||||
Delay rd 1
|
||||
Displacement rd 1 ; 0 = not specified
|
||||
; 1 = do not dispose
|
||||
; 2 = restore to background color
|
||||
; 3 = restore to previous
|
||||
if COLOR_ORDER eq PALETTE
|
||||
Image rd 1
|
||||
end if
|
||||
ends
|
||||
|
||||
struct GIF_info
|
||||
Left rw 1
|
||||
Top rw 1
|
||||
Width rw 1
|
||||
Height rw 1
|
||||
Delay rd 1
|
||||
Displacement rd 1
|
||||
if COLOR_ORDER eq PALETTE
|
||||
Palette rd 1
|
||||
end if
|
||||
ends
|
||||
|
||||
; ****************************************
|
||||
; FUNCTION GetGIFinfo - retrieve Nth image info
|
||||
; ****************************************
|
||||
; in:
|
||||
; esi - pointer to image list header
|
||||
; ecx - image_index (0...img_count-1)
|
||||
; edi - pointer to GIF_info structure to be filled
|
||||
|
||||
; out:
|
||||
; eax - pointer to RAW data, or 0, if error
|
||||
|
||||
GetGIFinfo:
|
||||
push esi ecx edi
|
||||
xor eax,eax
|
||||
jecxz .eloop
|
||||
.lp:
|
||||
mov esi,[esi]
|
||||
test esi,esi
|
||||
jz .error
|
||||
loop .lp
|
||||
.eloop:
|
||||
lodsd
|
||||
movsd
|
||||
movsd
|
||||
movsd
|
||||
movsd
|
||||
if COLOR_ORDER eq PALETTE
|
||||
lodsd
|
||||
mov [edi],esi
|
||||
else
|
||||
mov eax,esi
|
||||
end if
|
||||
.error:
|
||||
pop edi ecx esi
|
||||
ret
|
||||
|
||||
end if
|
||||
|
||||
_null fix 0x1000
|
||||
|
||||
; ****************************************
|
||||
; FUNCTION ReadGIF - unpacks GIF image
|
||||
; ****************************************
|
||||
; in:
|
||||
; esi - pointer to GIF file in memory
|
||||
; edi - pointer to output image list
|
||||
|
||||
; out:
|
||||
; eax - 0, all OK;
|
||||
; eax - 1, invalid signature;
|
||||
; eax >=8, unsupported image attributes
|
||||
;
|
||||
|
||||
ReadGIF:
|
||||
push esi edi
|
||||
mov [.cur_info],edi
|
||||
xor eax,eax
|
||||
mov [.globalColor],eax
|
||||
if defined gif_img_count
|
||||
mov [gif_img_count],eax
|
||||
mov [.anim_delay],eax
|
||||
mov [.anim_disp],eax
|
||||
end if
|
||||
inc eax
|
||||
cmp dword[esi],'GIF8'
|
||||
jne .ex ; signature
|
||||
mov ecx,[esi+0xa]
|
||||
add esi,0xd
|
||||
mov edi,esi
|
||||
test cl,cl
|
||||
jns .nextblock
|
||||
mov [.globalColor],esi
|
||||
call .Gif_skipmap
|
||||
.nextblock:
|
||||
cmp byte[edi],0x21
|
||||
jne .noextblock
|
||||
inc edi
|
||||
if defined gif_img_count
|
||||
cmp byte[edi],0xf9 ; Graphic Control Ext
|
||||
jne .no_gc
|
||||
movzx eax,word [edi+3]
|
||||
mov [.anim_delay],eax
|
||||
mov al,[edi+2]
|
||||
shr al,2
|
||||
and eax,7
|
||||
mov [.anim_disp],eax
|
||||
add edi,7
|
||||
jmp .nextblock
|
||||
.no_gc:
|
||||
end if
|
||||
inc edi
|
||||
.block_skip:
|
||||
movzx eax,byte[edi]
|
||||
lea edi,[edi+eax+1]
|
||||
test eax,eax
|
||||
jnz .block_skip
|
||||
jmp .nextblock
|
||||
.noextblock:
|
||||
mov al,8
|
||||
cmp byte[edi],0x2c ; image beginning
|
||||
jne .ex
|
||||
if defined gif_img_count
|
||||
inc [gif_img_count]
|
||||
end if
|
||||
inc edi
|
||||
mov esi,[.cur_info]
|
||||
if defined gif_img_count
|
||||
add esi,4
|
||||
end if
|
||||
xchg esi,edi
|
||||
if defined GIF_SUPPORT_INTERLACED
|
||||
movzx ecx,word[esi+4]
|
||||
mov [.width],ecx
|
||||
movzx eax,word[esi+6]
|
||||
imul eax,ecx
|
||||
if ~(COLOR_ORDER eq PALETTE)
|
||||
lea eax,[eax*3]
|
||||
end if
|
||||
mov [.img_end],eax
|
||||
inc eax
|
||||
mov [.row_end],eax
|
||||
and [.pass],0
|
||||
test byte[esi+8],40h
|
||||
jz @f
|
||||
if ~(COLOR_ORDER eq PALETTE)
|
||||
lea ecx,[ecx*3]
|
||||
end if
|
||||
mov [.row_end],ecx
|
||||
@@:
|
||||
end if
|
||||
if defined gif_img_count
|
||||
movsd
|
||||
movsd
|
||||
mov eax,[.anim_delay]
|
||||
stosd
|
||||
mov eax,[.anim_disp]
|
||||
stosd
|
||||
else
|
||||
movzx eax,word[esi+4]
|
||||
stosd
|
||||
movzx eax,word[esi+6]
|
||||
stosd
|
||||
add esi,8
|
||||
end if
|
||||
push edi
|
||||
mov ecx,[esi]
|
||||
inc esi
|
||||
test cl,cl
|
||||
js .uselocal
|
||||
push [.globalColor]
|
||||
mov edi,esi
|
||||
jmp .setPal
|
||||
.uselocal:
|
||||
call .Gif_skipmap
|
||||
push esi
|
||||
.setPal:
|
||||
movzx ecx,byte[edi]
|
||||
inc ecx
|
||||
mov [.codesize],ecx
|
||||
dec ecx
|
||||
if ~(COLOR_ORDER eq PALETTE)
|
||||
pop [.Palette]
|
||||
end if
|
||||
lea esi,[edi+1]
|
||||
mov edi,.gif_workarea
|
||||
xor eax,eax
|
||||
lodsb ; eax - block_count
|
||||
add eax,esi
|
||||
mov [.block_ofs],eax
|
||||
mov [.bit_count],8
|
||||
mov eax,1
|
||||
shl eax,cl
|
||||
mov [.CC],eax
|
||||
mov ecx,eax
|
||||
inc eax
|
||||
mov [.EOI],eax
|
||||
mov eax, _null shl 16
|
||||
.filltable:
|
||||
stosd
|
||||
inc eax
|
||||
loop .filltable
|
||||
if COLOR_ORDER eq PALETTE
|
||||
pop eax
|
||||
pop edi
|
||||
push edi
|
||||
scasd
|
||||
push esi
|
||||
mov esi,eax
|
||||
mov ecx,[.CC]
|
||||
@@:
|
||||
lodsd
|
||||
dec esi
|
||||
bswap eax
|
||||
shr eax,8
|
||||
stosd
|
||||
loop @b
|
||||
pop esi
|
||||
pop eax
|
||||
mov [eax],edi
|
||||
else
|
||||
pop edi
|
||||
end if
|
||||
if defined GIF_SUPPORT_INTERLACED
|
||||
mov [.img_start],edi
|
||||
add [.img_end],edi
|
||||
add [.row_end],edi
|
||||
end if
|
||||
.reinit:
|
||||
mov edx,[.EOI]
|
||||
inc edx
|
||||
push [.codesize]
|
||||
pop [.compsize]
|
||||
call .Gif_get_sym
|
||||
cmp eax,[.CC]
|
||||
je .reinit
|
||||
call .Gif_output
|
||||
.cycle:
|
||||
movzx ebx,ax
|
||||
call .Gif_get_sym
|
||||
cmp eax,edx
|
||||
jae .notintable
|
||||
cmp eax,[.CC]
|
||||
je .reinit
|
||||
cmp eax,[.EOI]
|
||||
je .end
|
||||
call .Gif_output
|
||||
.add:
|
||||
mov dword [.gif_workarea+edx*4],ebx
|
||||
cmp edx,0xFFF
|
||||
jae .cycle
|
||||
inc edx
|
||||
bsr ebx,edx
|
||||
cmp ebx,[.compsize]
|
||||
jne .noinc
|
||||
inc [.compsize]
|
||||
.noinc:
|
||||
jmp .cycle
|
||||
.notintable:
|
||||
push eax
|
||||
mov eax,ebx
|
||||
call .Gif_output
|
||||
push ebx
|
||||
movzx eax,bx
|
||||
call .Gif_output
|
||||
pop ebx eax
|
||||
jmp .add
|
||||
.end:
|
||||
if defined GIF_SUPPORT_INTERLACED
|
||||
mov edi,[.img_end]
|
||||
end if
|
||||
if defined gif_img_count
|
||||
mov eax,[.cur_info]
|
||||
mov [eax],edi
|
||||
mov [.cur_info],edi
|
||||
add esi,2
|
||||
xchg esi,edi
|
||||
.nxt:
|
||||
cmp byte[edi],0
|
||||
jnz .continue
|
||||
inc edi
|
||||
jmp .nxt
|
||||
.continue:
|
||||
cmp byte[edi],0x3b
|
||||
jne .nextblock
|
||||
xchg esi,edi
|
||||
and dword [eax],0
|
||||
end if
|
||||
xor eax,eax
|
||||
.ex:
|
||||
pop edi esi
|
||||
ret
|
||||
|
||||
.Gif_skipmap:
|
||||
; in: ecx - image descriptor, esi - pointer to colormap
|
||||
; out: edi - pointer to area after colormap
|
||||
|
||||
and ecx,111b
|
||||
inc ecx ; color map size
|
||||
mov ebx,1
|
||||
shl ebx,cl
|
||||
lea ebx,[ebx*2+ebx]
|
||||
lea edi,[esi+ebx]
|
||||
ret
|
||||
|
||||
.Gif_get_sym:
|
||||
mov ecx,[.compsize]
|
||||
push ecx
|
||||
xor eax,eax
|
||||
.shift:
|
||||
ror byte[esi],1
|
||||
rcr eax,1
|
||||
dec [.bit_count]
|
||||
jnz .loop1
|
||||
inc esi
|
||||
cmp esi,[.block_ofs]
|
||||
jb .noblock
|
||||
push eax
|
||||
xor eax,eax
|
||||
lodsb
|
||||
test eax,eax
|
||||
jnz .nextbl
|
||||
mov eax,[.EOI]
|
||||
sub esi,2
|
||||
add esp,8
|
||||
jmp .exx
|
||||
.nextbl:
|
||||
add eax,esi
|
||||
mov [.block_ofs],eax
|
||||
pop eax
|
||||
.noblock:
|
||||
mov [.bit_count],8
|
||||
.loop1:
|
||||
loop .shift
|
||||
pop ecx
|
||||
rol eax,cl
|
||||
.exx:
|
||||
xor ecx,ecx
|
||||
ret
|
||||
|
||||
.Gif_output:
|
||||
push esi eax edx
|
||||
mov edx,.gif_workarea
|
||||
.next:
|
||||
push word[edx+eax*4]
|
||||
mov ax,word[edx+eax*4+2]
|
||||
inc ecx
|
||||
cmp ax,_null
|
||||
jnz .next
|
||||
shl ebx,16
|
||||
mov bx,[esp]
|
||||
.loop2:
|
||||
pop ax
|
||||
|
||||
if COLOR_ORDER eq PALETTE
|
||||
stosb
|
||||
else
|
||||
lea esi,[eax+eax*2]
|
||||
add esi,[.Palette]
|
||||
|
||||
if COLOR_ORDER eq MENUETOS
|
||||
mov esi,[esi]
|
||||
bswap esi
|
||||
shr esi,8
|
||||
mov [edi],esi
|
||||
add edi,3
|
||||
else
|
||||
movsb
|
||||
movsb
|
||||
movsb
|
||||
end if
|
||||
end if
|
||||
|
||||
if defined GIF_SUPPORT_INTERLACED
|
||||
cmp edi,[.row_end]
|
||||
jb .norowend
|
||||
mov eax,[.width]
|
||||
if ~(COLOR_ORDER eq PALETTE)
|
||||
lea eax,[eax*3]
|
||||
end if
|
||||
push eax
|
||||
sub edi,eax
|
||||
add eax,eax
|
||||
cmp [.pass],3
|
||||
jz @f
|
||||
add eax,eax
|
||||
cmp [.pass],2
|
||||
jz @f
|
||||
add eax,eax
|
||||
@@:
|
||||
add edi,eax
|
||||
pop eax
|
||||
cmp edi,[.img_end]
|
||||
jb .nextrow
|
||||
mov edi,[.img_start]
|
||||
inc [.pass]
|
||||
add edi,eax
|
||||
cmp [.pass],3
|
||||
jz @f
|
||||
add edi,eax
|
||||
cmp [.pass],2
|
||||
jz @f
|
||||
add edi,eax
|
||||
add edi,eax
|
||||
@@:
|
||||
.nextrow:
|
||||
add eax,edi
|
||||
mov [.row_end],eax
|
||||
xor eax,eax
|
||||
.norowend:
|
||||
end if
|
||||
|
||||
loop .loop2
|
||||
pop edx eax esi
|
||||
ret
|
||||
|
||||
uglobal
|
||||
align 4
|
||||
ReadGIF.globalColor rd 1
|
||||
ReadGIF.cur_info rd 1 ; image table pointer
|
||||
ReadGIF.codesize rd 1
|
||||
ReadGIF.compsize rd 1
|
||||
ReadGIF.bit_count rd 1
|
||||
ReadGIF.CC rd 1
|
||||
ReadGIF.EOI rd 1
|
||||
if ~(COLOR_ORDER eq PALETTE)
|
||||
ReadGIF.Palette rd 1
|
||||
end if
|
||||
ReadGIF.block_ofs rd 1
|
||||
if defined GIF_SUPPORT_INTERLACED
|
||||
ReadGIF.row_end rd 1
|
||||
ReadGIF.img_end rd 1
|
||||
ReadGIF.img_start rd 1
|
||||
ReadGIF.pass rd 1
|
||||
ReadGIF.width rd 1
|
||||
end if
|
||||
if defined gif_img_count
|
||||
ReadGIF.anim_delay rd 1
|
||||
ReadGIF.anim_disp rd 1
|
||||
end if
|
||||
ReadGIF.gif_workarea rb 16*1024
|
||||
endg
|
||||
@ -1,293 +0,0 @@
|
||||
; GIF VIEWER FOR MENUET v1.0
|
||||
; Written in pure assembler by Ivushkin Andrey aka Willow
|
||||
;
|
||||
; Uses GIF_LITE 2.0
|
||||
;
|
||||
; Created: August 31, 2004
|
||||
; Last changed: August 25, 2006
|
||||
;
|
||||
; COMPILE WITH FASM
|
||||
|
||||
appname equ 'GIF VIEWER'
|
||||
|
||||
; input line dimensions
|
||||
INP_X equ 5 shl 16+680
|
||||
INP_Y equ 5 shl 16+16
|
||||
INP_XY equ 10 shl 16+10
|
||||
|
||||
use32
|
||||
|
||||
org 0x0
|
||||
|
||||
db 'MENUET01'
|
||||
dd 0x01
|
||||
dd START
|
||||
dd I_END
|
||||
dd 0x400000
|
||||
dd 0x400000
|
||||
dd filename ;0x0
|
||||
dd 0x0
|
||||
|
||||
include 'lang.inc'
|
||||
include '..\..\..\macros.inc' ; decrease code size (optional)
|
||||
|
||||
COLOR_ORDER equ PALETTE
|
||||
GIF_SUPPORT_INTERLACED = 1
|
||||
include 'gif_lite.inc'
|
||||
|
||||
START:
|
||||
cmp [filename],byte 0
|
||||
jne openfile2
|
||||
; jmp openfile2
|
||||
openfile:
|
||||
xor eax,eax
|
||||
mov [entered], eax
|
||||
mov [gif_img_count],eax
|
||||
mov esi,fn_input
|
||||
mov edi,filename
|
||||
mov ecx,[inp_pos]
|
||||
rep movsb
|
||||
stosb
|
||||
openfile2:
|
||||
mov ebx,file_info
|
||||
mov eax,70
|
||||
mcall
|
||||
cmp eax,6
|
||||
je temp
|
||||
test eax,eax
|
||||
jnz ok2
|
||||
temp:
|
||||
; cmp ebx,64
|
||||
; jbe ok2
|
||||
|
||||
xor eax,eax
|
||||
mov [entered], eax
|
||||
mov esi,filename
|
||||
mov edi,fn_input
|
||||
mov ecx,256/4 ;[filename_len]
|
||||
rep movsd
|
||||
|
||||
mov edi,fn_input
|
||||
mov ecx,256
|
||||
repne scasb
|
||||
sub edi,fn_input
|
||||
mov [inp_pos],edi
|
||||
|
||||
; test eax,eax
|
||||
; jnz .ok2
|
||||
; cmp ebx,64
|
||||
; jbe .ok2
|
||||
mov esi,workarea
|
||||
mov edi,Image
|
||||
call ReadGIF
|
||||
test eax,eax
|
||||
jz .ok
|
||||
and [gif_img_count], 0
|
||||
.ok:
|
||||
ok2:
|
||||
and dword[img_index],0
|
||||
|
||||
mov ebx,3
|
||||
mov ecx,sc
|
||||
mov edx,sizeof.system_colors
|
||||
mov eax,48
|
||||
mcall
|
||||
|
||||
red:
|
||||
|
||||
; *********************************************
|
||||
; ******* Ž<><C5BD>…„…‹…<E280B9>ˆ… ˆ Ž’<C5BD>ˆ‘Ž‚Š€ ŽŠ<C5BD>€ *******
|
||||
; *********************************************
|
||||
|
||||
draw_window:
|
||||
|
||||
mov ebx,1
|
||||
mov eax,12
|
||||
mcall
|
||||
|
||||
xor eax,eax
|
||||
mov ebx,50*65536+700
|
||||
mov ecx,50*65536+500
|
||||
mov edx,[sc.work]
|
||||
or edx,0x33000000
|
||||
mov edi,title
|
||||
mcall
|
||||
|
||||
call draw_input
|
||||
|
||||
xor ecx,ecx
|
||||
call draw_subimage
|
||||
cmp [gif_img_count],1
|
||||
jz @f
|
||||
|
||||
mov ecx,[img_index]
|
||||
call draw_subimage
|
||||
@@:
|
||||
|
||||
mov ebx,2
|
||||
mov eax,12
|
||||
mcall
|
||||
|
||||
still:
|
||||
cmp [gif_img_count], 1
|
||||
jbe .infinite
|
||||
mov ebx, [cur_anim_delay]
|
||||
test ebx, ebx
|
||||
jz .infinite
|
||||
mov eax, 23
|
||||
mcall
|
||||
jmp @f
|
||||
.infinite:
|
||||
mov eax, 10
|
||||
mcall
|
||||
@@:
|
||||
dec eax
|
||||
jz red
|
||||
dec eax
|
||||
jz key
|
||||
dec eax
|
||||
jz button
|
||||
mov eax,[gif_img_count]
|
||||
cmp eax,1
|
||||
je still
|
||||
inc [img_index]
|
||||
cmp eax,[img_index]
|
||||
jne redsub
|
||||
and [img_index],0
|
||||
redsub:
|
||||
mov ecx,[img_index]
|
||||
call draw_subimage
|
||||
jmp still
|
||||
|
||||
key:
|
||||
mov eax,2
|
||||
mcall
|
||||
cmp ah,13
|
||||
je is_input
|
||||
jmp still
|
||||
|
||||
button:
|
||||
mcall 17
|
||||
cmp ah,1
|
||||
jnz wait_input
|
||||
|
||||
_close:
|
||||
or eax,-1
|
||||
mcall
|
||||
|
||||
is_input: ; simple input line with backspace feature
|
||||
inc [entered] ; sorry - no cursor
|
||||
wait_input:
|
||||
call draw_input
|
||||
mov eax,10
|
||||
mcall
|
||||
cmp al,2
|
||||
jne still
|
||||
mov edi,[inp_pos]
|
||||
; mov eax,2
|
||||
mcall
|
||||
shr eax,8
|
||||
cmp al,27
|
||||
je still
|
||||
cmp al,13
|
||||
je openfile
|
||||
cmp al,8
|
||||
je backsp
|
||||
mov [fn_input+edi],al
|
||||
inc [inp_pos]
|
||||
jmp wait_input
|
||||
backsp:
|
||||
test edi,edi
|
||||
jz wait_input
|
||||
dec [inp_pos]
|
||||
jmp wait_input
|
||||
; jmp still
|
||||
|
||||
;****************************************
|
||||
;******* DRAW CONTENTS OF INPUT LINE ****
|
||||
;****************************************
|
||||
draw_input:
|
||||
mov esi,0xe0e0e0
|
||||
cmp [entered],0
|
||||
jne highlight
|
||||
mov esi,0x00aabbcc
|
||||
highlight:
|
||||
mov ecx,INP_Y
|
||||
mov edx,2
|
||||
mov ebx,INP_X
|
||||
mov eax,8
|
||||
mcall
|
||||
mov ecx,0x00107a30
|
||||
mov edx,fn_input
|
||||
mov esi,[inp_pos]
|
||||
mov ebx,INP_XY
|
||||
mov eax,4
|
||||
mcall
|
||||
ret
|
||||
|
||||
draw_subimage:
|
||||
cmp [gif_img_count],0
|
||||
jz .enddraw
|
||||
mov esi,Image
|
||||
mov edi,gif_inf
|
||||
call GetGIFinfo
|
||||
test eax,eax
|
||||
jz .enddraw
|
||||
mov ecx, dword [edi+GIF_info.Width-2]
|
||||
mov cx, [edi+GIF_info.Height]
|
||||
mov ebx,eax
|
||||
mov eax, [edi+GIF_info.Delay]
|
||||
mov [cur_anim_delay],eax
|
||||
mov edx, dword [edi+GIF_info.Left-2]
|
||||
mov dx, [edi+GIF_info.Top]
|
||||
add edx,5 shl 16 +25
|
||||
mov esi, 8
|
||||
mov edi, [edi+GIF_info.Palette]
|
||||
xor ebp, ebp
|
||||
mov eax, 65
|
||||
mcall
|
||||
.enddraw:
|
||||
ret
|
||||
|
||||
; ‡¤¥áì 室ïâáï ¤ ë¥ ¯à®£à ¬¬ë:
|
||||
|
||||
title db appname,0 ; áâப § £®«®¢ª
|
||||
|
||||
inp_pos dd inp_end-fn_input
|
||||
fn_input:
|
||||
; db '/hd/1/gif/smileys/sm100000.gif'
|
||||
db '/sys/meos.gif'
|
||||
; db '/hd/1/1/tex256.gif',0
|
||||
; db '/rd/1/tex256.gif'
|
||||
inp_end:
|
||||
rb 256-(inp_end-fn_input)
|
||||
|
||||
file_info:
|
||||
dd 0
|
||||
dd 0
|
||||
dd 0
|
||||
dd 0x100000;0x200000
|
||||
dd workarea;0x100000
|
||||
I_END: ; ª®¥æ ¯à®£à ¬¬ë
|
||||
filename:
|
||||
; db '/hd/1/gif/smileys/sm112000.gif',0
|
||||
; db '/hd/1/gif/test.gif',0
|
||||
; db '/hd/1/gif/explode1.gif',0
|
||||
; db '/hd/1/gif/tapeta.gif',0
|
||||
; db '/hd/1/gif/meos.gif',0
|
||||
rb 257
|
||||
;filename_len dd 0
|
||||
|
||||
entered rd 1
|
||||
sc system_colors
|
||||
|
||||
gif_img_count rd 1
|
||||
cur_anim_delay rd 1
|
||||
img_index rd 1
|
||||
gif_inf GIF_info
|
||||
|
||||
IncludeUGlobals
|
||||
|
||||
workarea rb 0x100000
|
||||
|
||||
Image:
|
||||
@ -1,5 +0,0 @@
|
||||
@erase lang.inc
|
||||
@echo lang fix en >lang.inc
|
||||
@fasm jpegview.asm jpegview
|
||||
@erase lang.inc
|
||||
@pause
|
||||
@ -1,6 +0,0 @@
|
||||
@erase lang.inc
|
||||
@echo lang fix ru >lang.inc
|
||||
@fasm jpegview.asm jpegview
|
||||
@erase lang.inc
|
||||
@kpack jpegview
|
||||
@pause
|
||||
@ -1,77 +0,0 @@
|
||||
file_handler:
|
||||
.operation=0
|
||||
.position=4
|
||||
.reserved=8
|
||||
.n_bytes=12
|
||||
.bufer=16
|
||||
.name=20
|
||||
.st_size=20+1024
|
||||
|
||||
open: ;esi=name_string
|
||||
;retorna eax
|
||||
pushad
|
||||
mov ecx,file_handler.st_size
|
||||
call mallocz
|
||||
mov [esp+28],edi
|
||||
push edi
|
||||
mov ecx,1024
|
||||
add edi,file_handler.name
|
||||
call movedata
|
||||
pop edi
|
||||
; test if file exists
|
||||
lea ebx,[edi+file_handler.operation]
|
||||
mov byte[ebx],5
|
||||
mov dword[ebx+16],fileattr
|
||||
mov eax,70
|
||||
int 0x40
|
||||
cmp eax,2
|
||||
jz .virtual
|
||||
test eax,eax
|
||||
jnz close.b
|
||||
@@:
|
||||
clc
|
||||
popad
|
||||
ret
|
||||
.virtual:
|
||||
mov byte [fileattr], 0x10
|
||||
jmp @b
|
||||
|
||||
close:
|
||||
pushad
|
||||
.b:
|
||||
mov edi,[esp+28]
|
||||
call free
|
||||
popad
|
||||
xor eax,eax
|
||||
ret
|
||||
|
||||
|
||||
read: ;(f,bufer,nbytes) eax,edi,ecx ncr
|
||||
;retorna bytes leidos en ecx
|
||||
pushad
|
||||
lea ebx, [eax+file_handler.operation]
|
||||
mov byte [ebx], 0
|
||||
mov [ebx+12], ecx
|
||||
mov [ebx+16], edi
|
||||
mov eax, 70
|
||||
int 0x40
|
||||
cmp ebx, -1
|
||||
sbb ebx, -1
|
||||
mov eax, [esp+28]
|
||||
add [eax+file_handler.position], ebx
|
||||
mov [esp+24], ebx
|
||||
popad
|
||||
ret
|
||||
|
||||
ftell: mov edx,[eax+file_handler.position]
|
||||
ret
|
||||
lseek: ;eax=file edx=pos
|
||||
mov [eax+file_handler.position],edx
|
||||
ret
|
||||
skip: ;eax=file edx=bytes to skip
|
||||
add [eax+file_handler.position],edx
|
||||
ret
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,22 +0,0 @@
|
||||
modes:
|
||||
dd mcu100,color100,8,8 ;monocromo
|
||||
dd mcu111,color111,8,8
|
||||
dd mcu211,color211,16,8
|
||||
dd mcu411,color411,16,16
|
||||
|
||||
zigzag:
|
||||
db 0,0, 4+1,0, 32,1, 64,1, 36,2, 8+1,0, 12+1,0, 40,4
|
||||
db 68,2, 96,1, 128,1, 100,2, 72,4, 44,8, 16+1,0, 20+1,0
|
||||
db 48,16, 76,8, 104,4, 132,2, 160,1, 192,1, 164,2, 136,4
|
||||
db 108,8, 80,16, 52,32, 24+1,0, 28+1,0, 56,64, 84,32, 112,16
|
||||
db 140,8, 168,4, 196,2, 224,1, 228,2, 200,4, 172,8, 144,16
|
||||
db 116,32, 88,64, 60,128, 92,128, 120,64, 148,32, 176,16, 204,8
|
||||
db 232,4, 236,8, 208,16, 180,32, 152,64, 124,128, 156,128, 184,64
|
||||
db 212,32, 240,16, 244,32, 216,64, 188,128, 220,128, 248,64, 252,128
|
||||
|
||||
k:
|
||||
dd 1.41421,1.84776,1.08239,-2.6131
|
||||
k2:
|
||||
dd 0.3535534,0.49039264,0.46193953,0.415734806
|
||||
dd 0.3535534,0.277785116,0.191341716,0.0975451609
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,747 +0,0 @@
|
||||
; 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:
|
||||
@ -1,210 +0,0 @@
|
||||
|
||||
movedata:
|
||||
push eax
|
||||
xor eax,eax
|
||||
sub eax,edi
|
||||
and eax,3
|
||||
xchg ecx,eax
|
||||
sub eax,ecx
|
||||
jle .l1
|
||||
rep movsb
|
||||
mov ecx,eax
|
||||
shr ecx,2
|
||||
rep movsd
|
||||
and eax,3
|
||||
.l1: add ecx,eax
|
||||
rep movsb
|
||||
pop eax
|
||||
ret
|
||||
|
||||
mallocz:
|
||||
call malloc
|
||||
pushad
|
||||
add ecx,3
|
||||
xor eax,eax
|
||||
shr ecx,2
|
||||
rep stosd
|
||||
popad
|
||||
ret
|
||||
|
||||
mresize1: popad
|
||||
xor edi,edi
|
||||
stc
|
||||
mresize2: ret
|
||||
mresize: ; puntero en di ncr retorna nuevo puntero en di
|
||||
test edi,edi
|
||||
jz malloc
|
||||
cmp ecx,[edi-4]
|
||||
je mresize2
|
||||
call free
|
||||
malloc:
|
||||
mov edi,ecx
|
||||
jecxz mresize2
|
||||
pushad
|
||||
mov esi,iniciomemoria+4
|
||||
lea ebx,[ecx+3]
|
||||
and ebx,-4 ;redondeo a 4
|
||||
.l1: mov edi,esi
|
||||
add esi,[esi]
|
||||
jc mresize1
|
||||
lodsd
|
||||
cmp eax,ebx
|
||||
jc .l1
|
||||
cmp esi,[iniciomemoria+8]
|
||||
jc .l2
|
||||
jne mresize1
|
||||
lea edx,[ebx+esi+4]
|
||||
cmp edx,[iniciomemoria+12]
|
||||
jnc mresize1
|
||||
mov [iniciomemoria+8],edx
|
||||
.l2: pop dword [esi-4]
|
||||
push esi
|
||||
sub eax,ebx
|
||||
je .l3
|
||||
sub eax,4
|
||||
mov [esi+ebx],eax
|
||||
jz .l3
|
||||
;fragmentar
|
||||
add ebx,4
|
||||
add [edi],ebx
|
||||
mov eax,[esi]
|
||||
sub eax,ebx
|
||||
mov [esi+ebx],eax
|
||||
popad
|
||||
ret
|
||||
.l3: lodsd
|
||||
add eax,4
|
||||
add [edi],eax
|
||||
popad
|
||||
ret
|
||||
|
||||
realloc: test edi,edi
|
||||
jz malloc
|
||||
jecxz free
|
||||
pushad
|
||||
pop esi
|
||||
mov eax,[edi-4]
|
||||
call malloc
|
||||
push edi
|
||||
cmp ecx,eax
|
||||
jc .l1
|
||||
mov ecx,eax
|
||||
.l1: push esi
|
||||
call movedata
|
||||
pop edi
|
||||
call free
|
||||
popad
|
||||
.l2: ret
|
||||
free: ;puntero en di
|
||||
;no se comprueban los punteros
|
||||
;retorna di=0 , ncr
|
||||
test edi,edi
|
||||
jz realloc.l2
|
||||
pushad
|
||||
pop edi
|
||||
mov ebp,[edi-4]
|
||||
dec ebp
|
||||
and ebp,-4 ;redondeo a 4,dx=dx-4
|
||||
xor edx,edx
|
||||
push edx
|
||||
mov edx,iniciomemoria+4
|
||||
mov esi,edx
|
||||
;buscar puntero libre anterior
|
||||
.l1: mov ebx,esi
|
||||
lodsd
|
||||
add esi,eax
|
||||
cmp esi,edi
|
||||
jc .l1
|
||||
;enlazar
|
||||
mov ecx,esi
|
||||
sub ecx,edi
|
||||
sub eax,ecx
|
||||
sub ecx,4
|
||||
mov [ebx],eax
|
||||
;fusionar con el anterior
|
||||
cmp eax,[ebx-4]
|
||||
jne .l2
|
||||
cmp ebx,edx
|
||||
je .l2 ;no fusionar con el primero
|
||||
mov edi,ebx
|
||||
add eax,4
|
||||
add ecx,eax
|
||||
add ebp,eax
|
||||
.l2: mov ebx,ebp ;fusionar con bloques de tama¤o 0
|
||||
.l3: add ebx,4
|
||||
test dword [edi+ebx],-1
|
||||
jz .l3
|
||||
cmp ebx,ecx
|
||||
jne .l4
|
||||
;fusionar con el siguiente
|
||||
add ebx,[esi-4]
|
||||
add ecx,[esi]
|
||||
add ebx,4
|
||||
add ecx,4
|
||||
cmp esi,[edx+4]
|
||||
jne .l4
|
||||
mov [edx+4],edi
|
||||
.l4: mov [edi-4],ebx
|
||||
mov [edi],ecx
|
||||
popad
|
||||
ret
|
||||
|
||||
add_mem: ;edi,ecx ;el ultimo bloque libre debe ser >8 bytes para poder fragmentarlo
|
||||
cmp ecx,64
|
||||
jc .l1
|
||||
add ecx,edi
|
||||
add edi,3
|
||||
and edi,-4
|
||||
and ecx,-4
|
||||
mov eax,ecx
|
||||
sub ecx,edi ;redondeo
|
||||
xchg eax,[iniciomemoria+12]
|
||||
cmp edi,eax
|
||||
jna .l1
|
||||
lea esi,[edi+4]
|
||||
mov edx,esi
|
||||
xchg esi,[iniciomemoria+8]
|
||||
neg edx
|
||||
mov [edi],edx
|
||||
mov [edi+4],edx
|
||||
lea edx,[edi-4]
|
||||
sub edi,esi
|
||||
mov [esi],edi
|
||||
sub eax,4
|
||||
sub eax,esi
|
||||
mov [esi-4],eax
|
||||
add esi,eax
|
||||
sub edx,esi
|
||||
mov [esi],edx
|
||||
.l1: ret
|
||||
|
||||
check_mem: ;busqueda de errores en la memoria
|
||||
;retorna edx nbloques o 0 si error,ecx memoria libre
|
||||
;ncr: ebp,ebx,eax
|
||||
mov edi,iniciomemoria
|
||||
mov esi,edi
|
||||
xor edx,edx
|
||||
mov ecx,[edi]
|
||||
neg ecx ;el primer bloque no cuenta
|
||||
.l1: add ecx,[edi]
|
||||
add edi,4
|
||||
add edi,[edi]
|
||||
.l2: inc edx
|
||||
add esi,[esi]
|
||||
jc .l4
|
||||
add esi,7
|
||||
jc .l3
|
||||
and esi,-4
|
||||
cmp esi,edi
|
||||
jc .l2
|
||||
je .l1
|
||||
jmp .l4
|
||||
.l3: test edi,edi
|
||||
jnz .l4
|
||||
add ecx,[iniciomemoria+12]
|
||||
ret
|
||||
.l4: xor edx,edx
|
||||
stc
|
||||
ret
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user