| 0,0 → 1,232 |
|---|
| ;===[includes]===; |
| include 'lang.inc' |
| include 'ascl.inc' |
| include 'macros.inc' |
| ;===[header and etc.]===; |
| meos_app_start |
| ;===[code:]===; |
| code |
| ;--------------------------------------- |
| ;====== we want keyborad events ======== |
| mov eax,40 |
| mov ebx,00000000000000000000000000000010b |
| int 0x40 |
| |
| ;====== wanna use keyboard scan codes == |
| mov eax,66 |
| mov ebx,1 |
| mov ecx,1 |
| int 0x40 |
| |
| ;=======GET SCREEN SIZE================= |
| |
| mov eax,14 ; get screen size |
| int 0x40 |
| push eax |
| and eax,0x0000ffff |
| inc eax |
| mov [size_y],eax |
| pop eax |
| shr eax,16 |
| inc eax |
| mov [size_x],eax |
| |
| mov eax,[size_x] |
| shr eax,2 |
| mov [cmp_ecx],eax |
| |
| mov eax,[size_x] |
| xor edx,edx |
| mov ebx,3 |
| mul ebx |
| mov [add_esi],eax |
| |
| mov eax,[size_y] |
| shr eax,2 |
| mov [cmp_edx],eax |
| |
| mov eax,[size_y] |
| imul eax,[size_x] |
| imul eax,3 |
| mov [i_size],eax |
| |
| ;======================================= |
| |
| still: |
| mov eax,10 |
| int 0x40 |
| cmp eax,2 |
| je key |
| jmp still |
| |
| key: |
| mov eax,2 |
| int 0x40 |
| cmp ah,55 ;===print screen to hdd |
| je print_screen_hdd |
| cmp ah,84 ;===alt+prnt.screen = print screen to fdd |
| je print_screen_fdd |
| cmp ah,70 ;===lets make exit - scroll lock |
| je close_now |
| jmp still |
| |
| close_now: |
| close |
| ;================================== |
| ;===save file to hdd=============== |
| print_screen_hdd: |
| mov [savetofdd],0 |
| call change_fname |
| call save_screen |
| jmp still |
| ;===save file to fdd=============== |
| print_screen_fdd: |
| mov [savetofdd],1 |
| call change_fname |
| call save_screen |
| jmp still |
| ;===change our file name ========== |
| change_fname: |
| cmp [bmp_name+7],'9' |
| jne addfname |
| cmp [bmp_name+6],'9' |
| je leavenow ;if name is > than 'screen99.bmp' then we do not change name |
| mov [bmp_name+7],'0' |
| add [bmp_name+6],0x1 |
| jmp leavenow |
| addfname: |
| add [bmp_name+7],0x1 |
| leavenow: |
| ret |
| ;================================== |
| |
| ;============SAVE SCREEN=========== |
| read_pixel: |
| pushad |
| |
| mov esi,eax |
| mov eax,[size_x] |
| mul ebx |
| add eax,esi |
| |
| xchg eax,ebx |
| mov eax,35 |
| int 0x40 |
| mov [esp+28],eax |
| |
| popad |
| ret |
| |
| save_screen: |
| |
| pusha |
| |
| ; 1) READ SCREEN |
| mov edi,bmp_file_area+0x36 ;0x10036 |
| |
| mov eax,[size_y] |
| dec eax |
| mov [temp_y],eax |
| |
| ynew: |
| |
| xor eax,eax |
| mov [temp_x],eax |
| |
| xnew: |
| |
| mov eax,[temp_x] |
| mov ebx,[temp_y] |
| call read_pixel |
| |
| mov [edi],eax |
| add edi,3 |
| |
| inc [temp_x] |
| |
| mov eax,[size_x] |
| cmp [temp_x],eax |
| jb xnew |
| |
| dec [temp_y] |
| |
| cmp [temp_y],0 |
| jge ynew |
| |
| ; 2) BMP HEADER |
| |
| mov [bmp_file_area],word 'BM' ; bmp signature |
| mov eax,[i_size] |
| mov [bmp_file_area+34],eax ; image size |
| mov ebx,0x36 |
| mov [bmp_file_area+10],ebx ; headers size |
| add eax,ebx |
| mov [bmp_file_area+2],eax ; file size |
| mov [bmp_file_area+14],dword 0x28 |
| mov eax,[size_x] |
| mov [bmp_file_area+18],eax ; x size |
| mov eax,[size_y] |
| mov [bmp_file_area+22],eax ; y size |
| mov [bmp_file_area+26],word 1 |
| mov [bmp_file_area+28],word 0x18 ; bpp = 24 = 0x18 |
| |
| ; 3) SAVE FILE |
| cmp [savetofdd],1 |
| je save_to_fdd |
| mov eax,56 |
| mov ebx,bmp_name |
| mov edx,bmp_file_area |
| mov ecx,[i_size] |
| add ecx,0x36 |
| mov esi,path |
| int 0x40 |
| popa |
| ret |
| |
| save_to_fdd: |
| mov eax,33; |
| mov ebx,bmp_name |
| mov ecx,bmp_file_area |
| mov edx,[i_size] |
| add edx,0x36 |
| mov esi,0 |
| int 0x40 |
| popa |
| ret |
| |
| |
| ;======================================= |
| |
| ;--------------------------------------- |
| ;===[DATA]===; |
| data |
| ;--------------------------------------- |
| bmp_name db 'SCREEN00BMP' |
| path db 0 |
| |
| i_size dd 0x1 |
| |
| m_x dd 100 |
| m_y dd 100 |
| |
| cmp_ecx dd 0 |
| add_esi dd 0 |
| cmp_edx dd 0 |
| |
| savetofdd db 0 |
| |
| ;===[uninitialised data]===; |
| udata |
| ;--------------------------------------- |
| |
| temp_x dd ? |
| temp_y dd ? |
| |
| size_x dd ? |
| size_y dd ? |
| |
| bmp_file_area: |
| rb 0x250000 |
| |
| ;the happy end |
| meos_app_end |
| Property changes: |
|---|
| Added: svn:eol-style |
|---|
| +native |
|---|
| \ No newline at end of property |
|---|