KolibriOS/kolibrios
13
14
Fork 12
Code Issues 113 Pull Requests 16 Actions Projects 1 Releases Wiki Activity

upgrade a programme

Browse Source 
git-svn-id: svn://kolibrios.org@308 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Alexey Teplov (
2007-02-01 11:31:34 +00:00
parent a17b90b7b3
commit 7038d7bc41
3 changed files with 152 additions and 156 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
programs/system/run/trunk/macros.inc
View File

@@ -1,7 +1,14 @@
;--- <EFBFBD><EFBFBD>㣨<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
include 'editbox.inc'
include 'txtbut.inc'
include 'lang.inc'
;include 'gp.inc'
;include 'label.inc'
;include 'checkbox.inc'
;include 'file_sys.inc'
;include 'textwork.inc'
;include 'ini.inc'
lang fix ru;en
;--- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ---
macro meos_header par_buf,cur_dir_buf
@@ -121,7 +128,7 @@ macro get_grab_area
int 0x40
}
macro get_scin_height
macro get_skin_height
{
mov eax,48
mov ebx,4

88
programs/system/run/trunk/run.asm
View File

@@ -1,6 +1,9 @@
window_y=88
; 01.02.07 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> editbox
; 31.01.07 - <20><><EFBFBD>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>४⭠<E0A5AA> <20><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>讬 <20><><EFBFBD>祭<EFBFBD><E7A5AD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᪨<><E1AAA8>
; <20><>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᭨<><E1ADA8> <20>⭮<EFBFBD><E2ADAE>⥫쭮 ࠡ<>祩 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>࠭<EFBFBD>
window_y=67
;window_x=320
window_x=450
window_x=640
include 'macros.inc'
meos_header par
use_edit_box
@@ -100,10 +103,10 @@ copy_par:
mov ebx,file_info
int 0x40
;cmp eax,0
;jg error
bt eax,31
je error
cmp eax,0
jl error
mov [status],run_ok
call draw_status
jmp still
close:
app_close
@@ -115,14 +118,10 @@ macro cmp_err code,text_ptr
cmp al,code
jne @f
mov [status],text_ptr
;jmp .draw_status
@@:
}
neg eax
;test al,al
;jz close
cmp_err 3,bad_file_sys
cmp_err 5,file_not_find
@@ -139,40 +138,51 @@ macro cmp_err code,text_ptr
cmp_err 32,many_processes
.draw_status:
call draw_status
jmp still
draw_window:
push 48
pop eax
mov ebx,5
int 0x40
mov si,bx
start_draw_window
get_skin_height
mov dx,ax
get_screen_size
mov cx,ax
sub cx,window_y+20
xor ecx,ecx
sub cx,window_y+2
sub cx,dx
add cx,si
shl ecx,16
mov cx,window_y
mov cx,dx
add cx,window_y
shr eax,16
mov bx,ax
sub bx,window_x
shl ebx,15
mov bx,window_x
mov edx,[sc.work]
or edx,0xb3000000
or edx,0x33000000
xor eax,eax
mov esi,[sc.grab_text]
mov edi,hed
xor esi,esi
mov edi,grab_text
int 0x40
get_procinfo app
mov ax,[app.width]
sub ax,20
mov eax,[app.width]
sub eax,20
mov [input_fn.width],eax
mov [run_but.width],ax
mov ebx,10000
xor bx,bx
shl ebx,16
mov bx,ax
add bx,10
mov cx,47
mov cx,45
push cx
shl ecx,16
pop cx
@@ -189,8 +199,9 @@ draw_window:
ret
draw_status:
mov ebx,5*65536+(window_x-5-10)
mov ecx,(window_y-39)*65536+12
mov ebx,[app.width]
sub bx,10
mov ecx,(50)*65536+12
mov edx,[sc.work]
mov eax,13
int 0x40
@@ -203,22 +214,17 @@ draw_status_text:
inc esi
jmp @b
@@:
mov eax,4
mov ebx,6*65536+(window_y-37)
mov ebx,5*65536+(50)
mov ecx,[sc.work_text]
mov eax,4
int 0x40
ret
run_but txt_button 0,5,15,30,2,0,0,run_but_text,
if lang eq ru
run_but txt_button 0,5,15,25,2,0,0,run_but_text,
run_but_text db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
else
run_but_text db 'RUN',0
end if
input_fn edit_box 0,5,10,0xffffff,0,0xaaaaaa,0,511,fn,ed_focus+\
input_fn edit_box 0,5,5,0xffffff,0,0xaaaaaa,0,511,fn,ed_focus+\
ed_always_focus
if lang eq ru
hello db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> 䠩<><E4A0A9> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Enter',0
bad_file_sys db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⭠<EFBFBD> 䠩<><E4A0A9><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>⥬<EFBFBD>',0 ; 3
file_not_find db '<27><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0 ; 5
@@ -228,23 +234,9 @@ device_error db '
out_of_memory db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>筮 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0 ; 30
file_not_executable db '<27><><EFBFBD><EFBFBD> <20><><><EFA2AB><EFBFBD><EFBFBD><EFBFBD> <20>ᯮ<EFBFBD><E1AFAE>塞<EFBFBD><EFA5AC>',0 ; 31
many_processes db '<27><><EFBFBD>誮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ',0 ; 32
else
hello db 'Enter full path to file and press <Enter>',0
bad_file_sys db 'Unknown file system',0 ; 3
file_not_find db 'File not found',0 ; 5
bad_fat_table db 'FAT table corrupted',0 ; 9
acces_denyied db 'Access denied',0 ; 10
device_error db 'Device error',0 ; 11
out_of_memory db 'Out of memory',0 ; 30
file_not_executable db 'File is not executable',0 ; 31
many_processes db 'Too many processes',0 ; 32
end if
run_ok db '<27>ணࠬ<E0AEA3><E0A0AC> <20>ᯥ譮 <20><><EFBFBD><EFBFBD>饭<EFBFBD>',0
grab_text db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
if lang eq ru
hed db 'RUN <20><> <20><>ࢮ<EFBFBD><E0A2AE> <20><><EFBFBD>ࠫ<EFBFBD> 2007 <20><><EFBFBD><EFBFBD>',0
else
hed db 'RUN of the first of FEBRUARY 2007 year',0
end if
status dd hello
file_info:

5
programs/system/run/trunk/run.txt
View File

@@ -1,13 +1,10 @@
<Lrz> 01.02.2007 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>୨<EFBFBD><E0ADA8>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> edit_box,
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>訫 <20> <20><>९<EFBFBD>ᠫ <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>.
RUN - <20><><EFBFBD><EFBFBD>᪠<EFBFBD><E1AAA0><EFBFBD> <20>ணࠬ<E0AEA3> <20> <20><><EFBFBD><EFBFBD><EFBFBD>਎<EFBFBD> <20><>१ 70-<2D> <20>㭪<EFBFBD><E3ADAA><EFBFBD>.
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3>
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20>ᯮ<EFBFBD><E1AFAE>塞<EFBFBD><EFA5AC><EFBFBD> 䠩<><E4A0A9> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>" <20><><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Enter.
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3> <20> <20><>ࠬ<EFBFBD><E0A0AC>ࠬ<EFBFBD>
<20><><EFBFBD>⠢<EFBFBD><E2A0A2><EFBFBD> <20>஡<EFBFBD><E0AEA1> <20><>᫥ <20><><EFBFBD><EFBFBD> <20> 䠩<><E4A0A9> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ࠬ<EFBFBD><E0A0AC><EFBFBD><EFBFBD>. <20>᫨ <20> <20><><EFBFBD><EFBFBD> <20> 䠩<><E4A0A9>
<20><><EFBFBD>⠢<EFBFBD><E2A0A2> <20>஡<EFBFBD><E0AEA1> <20><>᫥ <20><><EFBFBD><EFBFBD> <20> 䠩<><E4A0A9> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ࠬ<EFBFBD><E0A0AC><EFBFBD><EFBFBD>. <20>᫨ <20> <20><><EFBFBD><EFBFBD> <20> 䠩<><E4A0A9>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>஡<EFBFBD><E0AEA1><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD>室<EFBFBD><E5AEA4><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>窠<EFBFBD><E7AAA0> (⮣<><E2AEA3> <20>஡<EFBFBD><E0AEA1><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>易⥫쭮).
<20>ਬ<EFBFBD><E0A8AC><EFBFBD>