| 0,0 → 1,694 |
|---|
| ; |
| ; 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: |
| Property changes: |
|---|
| Added: svn:eol-style |
|---|
| +native |
|---|
| \ No newline at end of property |
|---|