forked from KolibriOS/kolibrios
695 lines
11 KiB
NASM
695 lines
11 KiB
NASM
;
|
|
; BMP VIEWER
|
|
; modified by Ivan Poddubny
|
|
;
|
|
; Compile with FASM for Menuet
|
|
;
|
|
|
|
use32
|
|
org 0x0
|
|
db 'MENUET01' ; 8 byte id
|
|
dd 0x01 ; header version
|
|
dd START ; start of code
|
|
dd I_END ; size of image
|
|
dd 0x300000 ; memory for app
|
|
dd 0xfff0 ; esp
|
|
dd I_Param , 0x0 ; I_Param , I_Icon
|
|
|
|
include 'lang.inc'
|
|
include 'macros.inc'
|
|
|
|
|
|
START: ; start of execution
|
|
|
|
cmp dword [I_Param],0
|
|
je noparam
|
|
|
|
cmp dword [I_Param],'BOOT'
|
|
jne noboot
|
|
call load_image
|
|
call set_as_background
|
|
mov eax,15
|
|
mov ebx,4
|
|
mov ecx,2
|
|
int 0x40
|
|
mov eax,15
|
|
mov ebx,3
|
|
int 0x40
|
|
|
|
or eax,-1
|
|
int 0x40
|
|
noboot:
|
|
|
|
mov edi,name_string
|
|
mov al,0
|
|
mov ecx,70
|
|
rep stosb
|
|
|
|
mov ecx,50
|
|
mov edi,I_Param
|
|
repne scasb
|
|
sub edi,I_Param
|
|
mov ecx,edi
|
|
|
|
mov esi,I_Param
|
|
mov edi,name_string
|
|
cld
|
|
rep movsb
|
|
call load_image
|
|
|
|
noparam:
|
|
|
|
call draw_window ; at first, draw the window
|
|
|
|
still:
|
|
|
|
mov eax,10 ; wait here for event
|
|
int 0x40
|
|
|
|
cmp eax,1 ; redraw request ?
|
|
je red
|
|
cmp eax,2 ; key in buffer ?
|
|
je key
|
|
cmp eax,3 ; button in buffer ?
|
|
je button
|
|
|
|
jmp still
|
|
|
|
red: ; redraw
|
|
call draw_window
|
|
jmp still
|
|
|
|
key: ; key
|
|
mov eax,2 ; just read it and ignore
|
|
int 0x40
|
|
jmp still
|
|
|
|
button: ; button
|
|
mov eax,17 ; get id
|
|
int 0x40
|
|
|
|
cmp ah,1 ; button id=1 ?
|
|
jne noclose
|
|
mov eax,-1 ; close this program
|
|
int 0x40
|
|
noclose:
|
|
|
|
cmp ah,2
|
|
jne no_file_name
|
|
call read_string
|
|
jmp still
|
|
no_file_name:
|
|
|
|
cmp ah,3
|
|
jne no_load_image
|
|
call load_image
|
|
call draw_window
|
|
jmp still
|
|
no_load_image:
|
|
|
|
cmp ah,4
|
|
jne no_setasbackground
|
|
call set_as_background
|
|
jmp still
|
|
no_setasbackground:
|
|
|
|
cmp ah,5
|
|
jne no_tiled
|
|
mov eax,15
|
|
mov ebx,4
|
|
mov ecx,1
|
|
int 0x40
|
|
mov eax,15
|
|
mov ebx,3
|
|
int 0x40
|
|
jmp still
|
|
no_tiled:
|
|
|
|
cmp ah,6
|
|
jne no_stretch
|
|
mov eax,15
|
|
mov ebx,4
|
|
mov ecx,2
|
|
int 0x40
|
|
mov eax,15
|
|
mov ebx,3
|
|
int 0x40
|
|
jmp still
|
|
no_stretch:
|
|
|
|
|
|
jmp still
|
|
|
|
type dd 0x0
|
|
i_pos dd 0x0
|
|
x_size dd 0x1
|
|
y_size dd 0x1
|
|
bpp dd 0x24
|
|
|
|
temp dd 999
|
|
|
|
fileinfoblock:
|
|
|
|
dd 0 ; 0 = read
|
|
dd 0 ; first 512 block
|
|
dd 1 ; number of blocks to read
|
|
dd 0x10000+1024 ; read to
|
|
dd 35 ; 17000 byte work area
|
|
name_string:
|
|
db '/HARDDISK/FIRST/MENUET/PICS/NEW.BMP',0
|
|
times 100 db 0
|
|
|
|
|
|
read_header:
|
|
|
|
pusha
|
|
|
|
mov edi,0x10000
|
|
mov ecx,100
|
|
mov eax,0
|
|
cld
|
|
rep stosb
|
|
|
|
mov [fileinfoblock+ 8],dword 1
|
|
mov [fileinfoblock+12],dword 0x10000
|
|
|
|
push dword [name_string-4]
|
|
mov [name_string-4],dword 0x20000
|
|
mov eax,58
|
|
mov ebx,fileinfoblock
|
|
int 0x40
|
|
pop dword [name_string-4]
|
|
|
|
movzx eax,word [0x10000+0]
|
|
mov [type],eax
|
|
mov eax,[0x10000+10]
|
|
mov [i_pos],eax
|
|
mov eax,[0x10000+18]
|
|
mov [x_size],eax
|
|
mov eax,[0x10000+22]
|
|
mov [y_size],eax
|
|
movzx eax,word [0x10000+28]
|
|
mov [bpp],eax
|
|
|
|
popa
|
|
ret
|
|
|
|
|
|
draw_picture_info:
|
|
|
|
pusha
|
|
|
|
mov eax,13
|
|
mov ebx,380*65536+6*5
|
|
mov ecx,65*65536+40
|
|
mov edx,0xffffff
|
|
int 0x40
|
|
|
|
mov eax,47
|
|
mov ebx,5*65536
|
|
mov ecx,[x_size]
|
|
mov edx,380*65536+65
|
|
mov esi,0x224466
|
|
int 0x40
|
|
|
|
mov ecx,[y_size]
|
|
add edx,10
|
|
int 0x40
|
|
|
|
mov ecx,[bpp]
|
|
add edx,20
|
|
int 0x40
|
|
|
|
popa
|
|
ret
|
|
|
|
|
|
|
|
load_image:
|
|
|
|
pusha
|
|
|
|
call read_header
|
|
|
|
cmp word [type],'BM'
|
|
je ok_image
|
|
|
|
cmp [bpp],24
|
|
je ok_image
|
|
|
|
mov eax,13 ; not found !
|
|
mov ebx,150*65536+50
|
|
mov ecx,100*65536+50
|
|
mov edx,0xff0000
|
|
int 0x40
|
|
|
|
mov eax,5
|
|
mov ebx,100
|
|
int 0x40
|
|
|
|
jmp retimage
|
|
|
|
ok_image:
|
|
|
|
call draw_picture_info
|
|
|
|
mov [fileinfoblock+8],dword 0x100000/512
|
|
mov eax,0x80000
|
|
sub eax,[i_pos]
|
|
mov [fileinfoblock+12],eax
|
|
push dword [name_string-4]
|
|
mov [name_string-4],dword 0x20000
|
|
mov eax,58
|
|
mov ebx,fileinfoblock
|
|
int 0x40
|
|
pop dword [name_string-4]
|
|
|
|
mov eax,[x_size]
|
|
imul eax,3
|
|
|
|
mov [x_delta],eax
|
|
|
|
mov ebx,[y_size]
|
|
dec ebx
|
|
imul eax,ebx
|
|
add eax,0x80000
|
|
|
|
mov esi,eax
|
|
mov edi,0x180000
|
|
newln:
|
|
push esi
|
|
push edi
|
|
mov ecx,[x_delta]
|
|
cld
|
|
rep movsb
|
|
pop edi
|
|
pop esi
|
|
|
|
sub esi,[x_delta];640*3
|
|
add edi,[x_delta];640*3
|
|
cmp esi,0x80000
|
|
jge newln
|
|
|
|
retimage:
|
|
|
|
popa
|
|
|
|
ret
|
|
|
|
x_delta dd 0x1
|
|
|
|
|
|
draw_image:
|
|
|
|
pusha
|
|
|
|
; mov eax,7 ; draw with putimage
|
|
; mov ebx,0x180000
|
|
; mov ecx,200*65536+160
|
|
; mov edx,14*65536+28
|
|
; int 0x40
|
|
; mov eax,5
|
|
; mov ebx,200
|
|
; int 0x40
|
|
|
|
mov ebx,0 ; show the image as 320x240 picture
|
|
mov ecx,0
|
|
|
|
times 6 db 0x90
|
|
|
|
newpix:
|
|
|
|
push ebx
|
|
push ecx
|
|
|
|
mov eax,[esp]
|
|
imul eax,[y_size]
|
|
|
|
mov ebx,240
|
|
xor edx,edx
|
|
div ebx
|
|
|
|
imul eax,3
|
|
imul eax,[x_size]
|
|
|
|
mov esi,eax
|
|
|
|
mov eax,[esp+4]
|
|
imul eax,[x_size]
|
|
|
|
mov ebx,320
|
|
xor edx,edx
|
|
div ebx
|
|
|
|
imul eax,3
|
|
|
|
add esi,eax
|
|
mov edx,[0x180000+esi]
|
|
|
|
|
|
and edx,0xffffff
|
|
|
|
pop ecx
|
|
pop ebx
|
|
|
|
add ebx,20
|
|
add ecx,40
|
|
mov eax,1
|
|
int 0x40
|
|
add ebx,-20
|
|
add ecx,-40
|
|
|
|
inc ebx
|
|
cmp ebx,320
|
|
jb newpix
|
|
|
|
xor ebx,ebx
|
|
|
|
inc ecx
|
|
cmp ecx,240
|
|
jb newpix
|
|
|
|
popa
|
|
|
|
ret
|
|
|
|
set_as_background:
|
|
|
|
pusha
|
|
|
|
mov esi,0x180000
|
|
new_smooth:
|
|
xor eax,eax
|
|
xor ebx,ebx
|
|
mov al,[esi]
|
|
mov bl,[esi+3]
|
|
add eax,ebx
|
|
mov bl,[esi+6]
|
|
add eax,ebx
|
|
mov bl,[esi+9]
|
|
add eax,ebx
|
|
shr eax,2
|
|
and eax,0xff
|
|
inc esi
|
|
cmp esi,0x180000+640*480*3
|
|
jbe new_smooth
|
|
|
|
|
|
mov eax,15
|
|
mov ebx,1
|
|
mov ecx,[x_size]
|
|
mov edx,[y_size]
|
|
int 0x40
|
|
|
|
mov eax,15
|
|
mov ebx,5
|
|
mov ecx,0x180000
|
|
mov edx,0
|
|
mov esi,640*480*3
|
|
int 0x40
|
|
|
|
mov eax,15
|
|
mov ebx,3
|
|
int 0x40
|
|
|
|
|
|
popa
|
|
|
|
ret
|
|
|
|
ya dd 300
|
|
addr dd name_string
|
|
case_sens db 0
|
|
|
|
|
|
read_string:
|
|
pusha
|
|
|
|
mov edi,[addr]
|
|
mov eax,[addr]
|
|
mov eax,[eax-4]
|
|
mov [temp],eax
|
|
|
|
add edi,eax
|
|
|
|
call print_strings
|
|
|
|
f11:
|
|
mov eax,10
|
|
int 0x40
|
|
cmp eax,2
|
|
jne read_done
|
|
int 0x40
|
|
shr eax,8
|
|
|
|
cmp eax,13
|
|
je read_done
|
|
|
|
cmp eax,192
|
|
jne noclear
|
|
|
|
xor eax,eax
|
|
mov [temp],eax
|
|
mov edi,[addr]
|
|
mov [edi-4],eax
|
|
mov ecx,49
|
|
cld
|
|
rep stosb
|
|
mov edi,[addr]
|
|
call print_strings
|
|
jmp f11
|
|
|
|
noclear:
|
|
|
|
cmp eax,8
|
|
jnz nobsl
|
|
cmp [temp],0
|
|
jz f11
|
|
dec [temp]
|
|
mov edi,[addr]
|
|
add edi,[temp]
|
|
mov [edi],byte 0
|
|
|
|
mov eax,[addr]
|
|
dec dword [eax-4]
|
|
|
|
call print_strings
|
|
jmp f11
|
|
|
|
nobsl:
|
|
cmp [temp],50
|
|
jae read_done
|
|
|
|
cmp eax,dword 31
|
|
jbe f11
|
|
cmp [case_sens],1
|
|
je keyok
|
|
cmp eax,dword 95
|
|
jb keyok
|
|
add eax,-32
|
|
keyok:
|
|
mov edi,[addr]
|
|
add edi,[temp]
|
|
mov [edi],al
|
|
|
|
inc [temp]
|
|
|
|
mov eax,[addr]
|
|
inc dword [eax-4]
|
|
call print_strings
|
|
cmp [temp],50
|
|
jbe f11
|
|
|
|
read_done:
|
|
mov ecx,50
|
|
sub ecx,[temp]
|
|
mov edi,[addr]
|
|
add edi,[temp]
|
|
xor eax,eax
|
|
cld
|
|
rep stosb
|
|
|
|
mov [temp],999
|
|
|
|
call print_strings
|
|
|
|
popa
|
|
ret
|
|
|
|
print_strings:
|
|
pusha
|
|
mov eax,13
|
|
mov ebx,80*65536+6*45
|
|
mov ecx,[ya]
|
|
shl ecx,16
|
|
add ecx,12
|
|
mov edx,0xffffff
|
|
int 0x40
|
|
|
|
mov edx,[addr]
|
|
mov esi,[edx-4]
|
|
mov eax,4
|
|
mov ebx,80*65536+2
|
|
add ebx,[ya]
|
|
mov ecx,0
|
|
int 0x40
|
|
|
|
cmp [temp],50
|
|
ja @f
|
|
|
|
mov eax,[ya]
|
|
mov ebx,eax
|
|
shl eax,16
|
|
add eax,ebx
|
|
add eax,10
|
|
mov ecx,eax
|
|
|
|
mov eax,[temp]
|
|
imul eax,eax,6
|
|
add eax,80
|
|
mov ebx,eax
|
|
shl eax,16
|
|
add ebx,eax
|
|
|
|
mov eax,38
|
|
mov edx,0
|
|
int 0x40
|
|
@@:
|
|
|
|
popa
|
|
ret
|
|
|
|
|
|
|
|
|
|
; *********************************************
|
|
; ******* WINDOW DEFINITIONS AND DRAW ********
|
|
; *********************************************
|
|
|
|
|
|
draw_window:
|
|
|
|
mov eax,12 ; function 12:tell os about windowdraw
|
|
mov ebx,1 ; 1, start of draw
|
|
int 0x40
|
|
|
|
; DRAW WINDOW
|
|
mov eax,0 ; function 0 : define and draw window
|
|
mov ebx,20*65536+444 ; [x start] *65536 + [x size]
|
|
mov ecx,10*65536+333 ; [y start] *65536 + [y size]
|
|
mov edx,0x03ffffff ; color of work area RRGGBB,8->color gl
|
|
mov esi,0x808899ff ; color of grab bar RRGGBB,8->color gl
|
|
mov edi,0x008899ff ; color of frames RRGGBB
|
|
int 0x40
|
|
|
|
; WINDOW LABEL
|
|
mov eax,4 ; function 4 : write text to window
|
|
mov ebx,8*65536+8 ; [x start] *65536 + [y start]
|
|
mov ecx,0x10ddeeff ; color of text RRGGBB
|
|
mov edx,labelt ; pointer to text beginning
|
|
mov esi,labellen-labelt ; text length
|
|
int 0x40
|
|
|
|
mov eax,8
|
|
mov ebx,20*65536+52
|
|
mov ecx,295*65536+16
|
|
mov edx,2
|
|
mov esi,0x306090
|
|
int 0x40
|
|
|
|
add ebx,336*65536+20
|
|
add ecx,5*65536
|
|
mov edx,3
|
|
int 0x40
|
|
|
|
sub ecx,20*65536
|
|
mov edx,4
|
|
int 0x40
|
|
|
|
sub ecx,40*65536
|
|
inc edx
|
|
int 0x40
|
|
|
|
add ecx,20*65536
|
|
inc edx
|
|
int 0x40
|
|
|
|
mov ebx,346*65536+45
|
|
mov edx,info+1
|
|
mov esi,15
|
|
newinfo:
|
|
mov ecx,[tcolor]
|
|
cmp [edx-1],byte 'w'
|
|
jne nowhite
|
|
mov ecx,[btcolor]
|
|
nowhite:
|
|
mov eax,4
|
|
int 0x40
|
|
add ebx,10
|
|
add edx,16
|
|
cmp [edx-1],byte 'x'
|
|
jne newinfo
|
|
|
|
mov ebx,20*65536+300 ; draw info text with function 4
|
|
mov ecx,[btcolor]
|
|
mov edx,text
|
|
mov esi,70
|
|
newline:
|
|
mov eax,4
|
|
int 0x40
|
|
add ebx,10
|
|
add edx,esi
|
|
cmp [edx],byte 'x'
|
|
jne newline
|
|
|
|
call print_strings
|
|
|
|
call draw_image
|
|
|
|
call draw_picture_info
|
|
|
|
mov eax,12 ; function 12:tell os about windowdraw
|
|
mov ebx,2 ; 2, end of draw
|
|
int 0x40
|
|
|
|
ret
|
|
|
|
|
|
; DATA AREA
|
|
|
|
tcolor dd 0x000000
|
|
btcolor dd 0x224466+0x808080
|
|
|
|
|
|
text:
|
|
db ' FILE: '
|
|
db 'x'
|
|
|
|
info:
|
|
db ' IMAGE INFO '
|
|
db ' '
|
|
db ' X: '
|
|
db ' Y: '
|
|
db ' '
|
|
db ' BPP: '
|
|
db ' '
|
|
db ' '
|
|
db ' 16M COLOURS '
|
|
db ' 640x480 max '
|
|
times 10 db ' '
|
|
db 'w TILED '
|
|
db ' '
|
|
db 'w STRETCH '
|
|
db ' '
|
|
db 'w SET AS BGR '
|
|
db ' '
|
|
db 'w LOAD '
|
|
db 'x'
|
|
|
|
|
|
labelt: db 'BMP VIEWER'
|
|
labellen:
|
|
|
|
I_END:
|
|
I_Param:
|