forked from KolibriOS/kolibrios
232 lines
3.7 KiB
NASM
232 lines
3.7 KiB
NASM
;===[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 |