forked from KolibriOS/kolibrios
Ivan Baravy
55f254a7ee
delete all the other debug.inc files correct some programs to use common debug.inc git-svn-id: svn://kolibrios.org@3013 a494cfbc-eb01-0410-851d-a64ba20cac60
175 lines
4.7 KiB
NASM
175 lines
4.7 KiB
NASM
;*****************************************************************************
|
|
; 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:
|
|
;------------------------------------------------------------------------------
|