Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 1069 → Rev 1070

/programs/system/rdsave/trunk/rdsave.asm
3,7 → 3,7
;
; Mario79 2005
; Heavyiron 12.02.2007
;
; <Lrz> 11.05.2009 - ¤«ï à ¡®âë ­ã¦­  á¨á⥬­ ï ¡¨¡«¨®â¥ª  box_lib.obj
; Š®¬¯¨«¨à®¢ âì FASM'®¬
;
;---------------------------------------------------------------------
23,10 → 23,14
dd I_END ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
dd I_END ;  ¤à¥á ¢¥à設ë áâíª 
dd 0x0 ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
dd 0x0 ; § à¥§¥à¢¨à®¢ ­®
dd cur_dir_path
 
include '..\..\..\develop\examples\editbox\trunk\editbox.inc'
use_edit_box
;include '..\..\..\develop\examples\editbox\trunk\editbox.inc'
include '../../../develop/libraries/box_lib/trunk/load_lib.mac'
include '../../../develop/libraries/box_lib/trunk/editbox_ex.mac'
@use_library
 
;use_edit_box
al equ eax ; \ decrease kpack'ed size
purge mov ; /
 
33,8 → 37,13
;---------------------------------------------------------------------
;--- €—€‹Ž Žƒ€ŒŒ› ----------------------------------------------
;---------------------------------------------------------------------
align 4
START:
sys_load_library library_name, cur_dir_path, library_path, system_path, \
err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
cmp eax,-1
jz close
 
START:
mov eax, 40
mov ebx, 100111b
mcall
56,7 → 65,10
jz button
 
mouse:
mouse_edit_box editbox
; mouse_edit_box editbox
push dword editbox
call [edit_box_mouse]
 
jmp still
button:
65,6 → 77,7
 
cmp ah,1 ; ª­®¯ª  á id=1("§ ªàëâì")?
jne noclose
close:
or eax,-1 ; äã­ªæ¨ï -1: § ¢¥àè¨âì ¯à®£à ¬¬ã
mcall
 
96,7 → 109,10
key:
mov al,2
mcall
key_edit_box editbox
; key_edit_box editbox
push dword editbox
call [edit_box_key]
 
jmp still
 
 
170,8 → 186,11
mov edi,title ; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ€
mcall
 
draw_edit_box editbox ;à¨á®¢ ­¨¥ edit box
push dword editbox
call [edit_box_draw]
 
;draw_edit_box editbox ;à¨á®¢ ­¨¥ edit box
 
mov al,13 ;®âà¨á®¢ª  ⥭¥© ª­®¯®ª
mov ebx,194 shl 16 + 60
mov ecx,34 shl 16 +15
307,9 → 326,36
aUnknownError db 'Unknown error',0
 
end if
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;DATA ¤ ­­ë¥
;‚ᥣ¤  ᮡ«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
system_path db '/sys/lib/'
library_name db 'box_lib.obj',0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
mouse_flag: dd 0x0
err_message_found_lib db 'Sorry I cannot load library box_lib.obj',0
head_f_i:
head_f_l db 'System error',0
err_message_import db 'Error on load import library box_lib.obj',0
align 4
myimport:
 
edit_box_draw dd aEdit_box_draw
edit_box_key dd aEdit_box_key
edit_box_mouse dd aEdit_box_mouse
version_ed dd aVersion_ed
 
dd 0
dd 0
 
aEdit_box_draw db 'edit_box',0
aEdit_box_key db 'edit_box_key',0
aEdit_box_mouse db 'edit_box_mouse',0
aVersion_ed db 'version_ed',0
 
 
;mouse_flag: dd 0x0
 
path1 db '/fd/1/',0
path2 db '/fd/2/',0
path3 db '/hd0/1/kolibri.img',0
321,6 → 367,8
 
sc system_colors
 
cur_dir_path rb 4096
library_path rb 4096
align 4
rb 0x100 ; for stack
I_END: ; ¬¥âª  ª®­æ  ¯à®£à ¬¬ë