forked from KolibriOS/kolibrios
CROPFLAT - set limits of screen
git-svn-id: svn://kolibrios.org@2656 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Marat Zakiyanov (Mario79)
parent
221b16cc14
commit
8ebfc0eca4
3
programs/system/cropflat/build.bat
Normal file
3
programs/system/cropflat/build.bat
Normal file
@ -0,0 +1,3 @@
|
|||||||
|
@fasm -m 16384 cropflat.asm cropflat
|
||||||
|
@kpack cropflat
|
||||||
|
@pause
|
||||||
174
programs/system/cropflat/cropflat.asm
Normal file
174
programs/system/cropflat/cropflat.asm
Normal file
@ -0,0 +1,174 @@
|
|||||||
|
;*****************************************************************************
|
||||||
|
; CROPFLAT - set limits of screen - for Kolibri OS
|
||||||
|
; Copyright (c) 2012, Marat Zakiyanov aka Mario79, aka Mario
|
||||||
|
; All rights reserved.
|
||||||
|
;
|
||||||
|
; Redistribution and use in source and binary forms, with or without
|
||||||
|
; modification, are permitted provided that the following conditions are met:
|
||||||
|
; * Redistributions of source code must retain the above copyright
|
||||||
|
; notice, this list of conditions and the following disclaimer.
|
||||||
|
; * Redistributions in binary form must reproduce the above copyright
|
||||||
|
; notice, this list of conditions and the following disclaimer in the
|
||||||
|
; documentation and/or other materials provided with the distribution.
|
||||||
|
; * Neither the name of the <organization> nor the
|
||||||
|
; names of its contributors may be used to endorse or promote products
|
||||||
|
; derived from this software without specific prior written permission.
|
||||||
|
;
|
||||||
|
; THIS SOFTWARE IS PROVIDED BY Marat Zakiyanov ''AS IS'' AND ANY
|
||||||
|
; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
||||||
|
; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
||||||
|
; DISCLAIMED. IN NO EVENT SHALL <copyright holder> BE LIABLE FOR ANY
|
||||||
|
; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
||||||
|
; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
||||||
|
; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
|
||||||
|
; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||||
|
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
||||||
|
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||||
|
;*****************************************************************************
|
||||||
|
;
|
||||||
|
; Example run with parameters:
|
||||||
|
; CROPFLAT XS800 YS480
|
||||||
|
;
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
|
use32
|
||||||
|
org 0x0
|
||||||
|
|
||||||
|
db 'MENUET01'
|
||||||
|
dd 0x01
|
||||||
|
dd START
|
||||||
|
dd IM_END
|
||||||
|
dd I_END
|
||||||
|
dd stack_top
|
||||||
|
dd boot_param
|
||||||
|
dd 0x0
|
||||||
|
|
||||||
|
include '../../macros.inc'
|
||||||
|
;include 'debug.inc'
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
|
START:
|
||||||
|
mcall 14
|
||||||
|
mov ebx,eax
|
||||||
|
shr eax,16
|
||||||
|
inc eax
|
||||||
|
mov [x_size],eax
|
||||||
|
|
||||||
|
; dps "CROPFLAT current X size: "
|
||||||
|
; dpd eax
|
||||||
|
; newline
|
||||||
|
|
||||||
|
and ebx,0xffff
|
||||||
|
inc ebx
|
||||||
|
mov [y_size],ebx
|
||||||
|
|
||||||
|
; dps "CROPFLAT current Y size: "
|
||||||
|
; dpd ebx
|
||||||
|
; newline
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
|
mov bx,word 'XS'
|
||||||
|
call find_value
|
||||||
|
test eax,eax
|
||||||
|
jnz .y
|
||||||
|
|
||||||
|
call convert_ASCII_to_BIN
|
||||||
|
test ebx,ebx
|
||||||
|
jz @f
|
||||||
|
|
||||||
|
mov [x_size],ebx
|
||||||
|
;--------------------------------------
|
||||||
|
@@:
|
||||||
|
; dps "CROPFLAT new X size: "
|
||||||
|
; dpd ebx
|
||||||
|
; newline
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
|
.y:
|
||||||
|
mov bx,word 'YS'
|
||||||
|
call find_value
|
||||||
|
test eax,eax
|
||||||
|
jnz .set
|
||||||
|
|
||||||
|
call convert_ASCII_to_BIN
|
||||||
|
test ebx,ebx
|
||||||
|
jz @f
|
||||||
|
|
||||||
|
mov [y_size],ebx
|
||||||
|
;--------------------------------------
|
||||||
|
@@:
|
||||||
|
; dps "CROPFLAT new Y size: "
|
||||||
|
; dpd ebx
|
||||||
|
; newline
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
|
.set:
|
||||||
|
mcall 18,24,[x_size],[y_size]
|
||||||
|
;--------------------------------------
|
||||||
|
.exit:
|
||||||
|
mcall -1
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
|
find_value:
|
||||||
|
; in:
|
||||||
|
; bx - word
|
||||||
|
; out:
|
||||||
|
; eax - 0 for valid value, -1 for invalid value
|
||||||
|
; esi - ASCII value
|
||||||
|
mov esi,boot_param
|
||||||
|
mov ecx,254
|
||||||
|
cld
|
||||||
|
;--------------------------------------
|
||||||
|
.loop:
|
||||||
|
lodsw
|
||||||
|
cmp ax,bx
|
||||||
|
je @f
|
||||||
|
|
||||||
|
dec esi
|
||||||
|
loop .loop
|
||||||
|
|
||||||
|
mov eax,-1
|
||||||
|
ret
|
||||||
|
;--------------------------------------
|
||||||
|
@@:
|
||||||
|
xor eax,eax
|
||||||
|
ret
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
|
convert_ASCII_to_BIN:
|
||||||
|
; in:
|
||||||
|
; esi - ASCII value
|
||||||
|
; out:
|
||||||
|
; ebx - BIN value
|
||||||
|
mov ecx,4
|
||||||
|
xor ebx,ebx
|
||||||
|
cld
|
||||||
|
;--------------------------------------
|
||||||
|
.loop:
|
||||||
|
lodsb
|
||||||
|
cmp al,0x30 ; 0
|
||||||
|
jb @f
|
||||||
|
|
||||||
|
cmp al,0x39 ; 9
|
||||||
|
ja @f
|
||||||
|
|
||||||
|
sub al,0x30
|
||||||
|
; multiply by 10
|
||||||
|
lea ebx,[ebx+ebx*4] ; multiply by 5
|
||||||
|
shl ebx,1 ; multiply by 2
|
||||||
|
movzx eax,al
|
||||||
|
add ebx,eax
|
||||||
|
loop .loop
|
||||||
|
;--------------------------------------
|
||||||
|
@@:
|
||||||
|
ret
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
|
IM_END:
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
|
align 4
|
||||||
|
x_size rd 1
|
||||||
|
y_size rd 1
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
|
align 4
|
||||||
|
boot_param:
|
||||||
|
rb 256+1 ; +1 for reserve
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
|
align 4
|
||||||
|
rb 512
|
||||||
|
stack_top:
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
|
I_END:
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
147
programs/system/cropflat/debug.inc
Normal file
147
programs/system/cropflat/debug.inc
Normal file
@ -0,0 +1,147 @@
|
|||||||
|
macro debug_print str
|
||||||
|
{
|
||||||
|
local ..string, ..label
|
||||||
|
|
||||||
|
jmp ..label
|
||||||
|
..string db str,0
|
||||||
|
..label:
|
||||||
|
|
||||||
|
pushf
|
||||||
|
pushad
|
||||||
|
mov edx,..string
|
||||||
|
call debug_outstr
|
||||||
|
popad
|
||||||
|
popf
|
||||||
|
}
|
||||||
|
|
||||||
|
dps fix debug_print
|
||||||
|
|
||||||
|
macro debug_print_dec arg
|
||||||
|
{
|
||||||
|
pushf
|
||||||
|
pushad
|
||||||
|
if ~arg eq eax
|
||||||
|
mov eax,arg
|
||||||
|
end if
|
||||||
|
call debug_outdec
|
||||||
|
popad
|
||||||
|
popf
|
||||||
|
}
|
||||||
|
|
||||||
|
dpd fix debug_print_dec
|
||||||
|
|
||||||
|
;---------------------------------
|
||||||
|
debug_outdec: ;(eax - num, edi-str)
|
||||||
|
push 10 ;2
|
||||||
|
pop ecx ;1
|
||||||
|
push -'0' ;2
|
||||||
|
.l0:
|
||||||
|
xor edx,edx ;2
|
||||||
|
div ecx ;2
|
||||||
|
push edx ;1
|
||||||
|
test eax,eax ;2
|
||||||
|
jnz .l0 ;2
|
||||||
|
.l1:
|
||||||
|
pop eax ;1
|
||||||
|
add al,'0' ;2
|
||||||
|
call debug_outchar ; stosb
|
||||||
|
jnz .l1 ;2
|
||||||
|
ret ;1
|
||||||
|
;---------------------------------
|
||||||
|
|
||||||
|
debug_outchar: ; al - char
|
||||||
|
pushf
|
||||||
|
pushad
|
||||||
|
mov cl,al
|
||||||
|
mov eax,63
|
||||||
|
mov ebx,1
|
||||||
|
int 0x40
|
||||||
|
popad
|
||||||
|
popf
|
||||||
|
ret
|
||||||
|
|
||||||
|
debug_outstr:
|
||||||
|
mov eax,63
|
||||||
|
mov ebx,1
|
||||||
|
@@:
|
||||||
|
mov cl,[edx]
|
||||||
|
test cl,cl
|
||||||
|
jz @f
|
||||||
|
int 40h
|
||||||
|
inc edx
|
||||||
|
jmp @b
|
||||||
|
@@:
|
||||||
|
ret
|
||||||
|
|
||||||
|
_debug_crlf db 13, 10, 0
|
||||||
|
|
||||||
|
macro newline_1
|
||||||
|
{
|
||||||
|
pushf
|
||||||
|
pushad
|
||||||
|
mov edx, _debug_crlf
|
||||||
|
call debug_outstr
|
||||||
|
popad
|
||||||
|
popf
|
||||||
|
}
|
||||||
|
|
||||||
|
macro newline
|
||||||
|
{
|
||||||
|
pushf
|
||||||
|
pushad
|
||||||
|
mov edx, _debug_crlf
|
||||||
|
call debug_outstr
|
||||||
|
popad
|
||||||
|
popf
|
||||||
|
}
|
||||||
|
|
||||||
|
macro print message
|
||||||
|
{
|
||||||
|
dps message
|
||||||
|
newline
|
||||||
|
}
|
||||||
|
|
||||||
|
macro pregs
|
||||||
|
{
|
||||||
|
dps "EAX: "
|
||||||
|
dpd eax
|
||||||
|
dps " EBX: "
|
||||||
|
dpd ebx
|
||||||
|
newline
|
||||||
|
dps "ECX: "
|
||||||
|
dpd ecx
|
||||||
|
dps " EDX: "
|
||||||
|
dpd edx
|
||||||
|
newline
|
||||||
|
}
|
||||||
|
|
||||||
|
macro debug_print_hex arg
|
||||||
|
{
|
||||||
|
pushf
|
||||||
|
pushad
|
||||||
|
if ~arg eq eax
|
||||||
|
mov eax, arg
|
||||||
|
end if
|
||||||
|
call debug_outhex
|
||||||
|
popad
|
||||||
|
popf
|
||||||
|
}
|
||||||
|
dph fix debug_print_hex
|
||||||
|
|
||||||
|
debug_outhex:
|
||||||
|
; eax - number
|
||||||
|
mov edx, 8
|
||||||
|
.new_char:
|
||||||
|
rol eax, 4
|
||||||
|
movzx ecx, al
|
||||||
|
and cl, 0x0f
|
||||||
|
mov cl, [__hexdigits + ecx]
|
||||||
|
pushad
|
||||||
|
mcall 63, 1
|
||||||
|
popad
|
||||||
|
dec edx
|
||||||
|
jnz .new_char
|
||||||
|
ret
|
||||||
|
|
||||||
|
__hexdigits:
|
||||||
|
db '0123456789ABCDEF'
|
||||||
Loading…
Reference in New Issue
Block a user