2010-10-01 13:21:55 +04:00
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
;; ;;
|
|
|
|
|
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
|
|
|
|
;; Distributed under terms of the GNU General Public License ;;
|
|
|
|
|
;; ;;
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
|
|
|
|
;-------------------------------------------------------------------------
|
|
|
|
|
;Loading configuration from ini file
|
|
|
|
|
; {SPraid.simba}
|
|
|
|
|
;-------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
$Revision$
|
|
|
|
|
|
|
|
|
|
iglobal
|
2012-03-08 12:33:38 +04:00
|
|
|
|
conf_path_sect:
|
|
|
|
|
db 'path',0
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
conf_fname db '/sys/sys.conf',0
|
|
|
|
|
endg
|
|
|
|
|
; set soke kernel configuration
|
|
|
|
|
proc set_kernel_conf
|
|
|
|
|
locals
|
|
|
|
|
par db 30 dup(?)
|
|
|
|
|
endl
|
|
|
|
|
|
|
|
|
|
pushad
|
|
|
|
|
;[gui]
|
|
|
|
|
;mouse_speed
|
|
|
|
|
|
2012-03-08 12:33:38 +04:00
|
|
|
|
lea eax, [par]
|
|
|
|
|
push eax
|
|
|
|
|
invoke ini.get_str, conf_fname, ugui, ugui_mouse_speed, \
|
|
|
|
|
eax,30, ugui_mouse_speed_def
|
|
|
|
|
pop eax
|
|
|
|
|
stdcall strtoint, eax
|
2010-10-01 13:21:55 +04:00
|
|
|
|
mov [mouse_speed_factor], ax
|
|
|
|
|
|
|
|
|
|
;mouse_delay
|
2012-03-08 12:33:38 +04:00
|
|
|
|
lea eax, [par]
|
|
|
|
|
push eax
|
|
|
|
|
invoke ini.get_str, conf_fname, ugui, ugui_mouse_delay, \
|
|
|
|
|
eax,30, ugui_mouse_delay_def
|
|
|
|
|
pop eax
|
|
|
|
|
stdcall strtoint, eax
|
2010-10-01 13:21:55 +04:00
|
|
|
|
mov [mouse_delay], eax
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;midibase
|
2012-03-08 12:33:38 +04:00
|
|
|
|
lea eax, [par]
|
|
|
|
|
push eax
|
|
|
|
|
invoke ini.get_str, conf_fname, udev, udev_midibase, eax, 30, udev_midibase_def
|
|
|
|
|
pop eax
|
|
|
|
|
stdcall strtoint, eax
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
cmp eax, 0x100
|
|
|
|
|
jb @f
|
|
|
|
|
cmp eax, 0x10000
|
|
|
|
|
jae @f
|
|
|
|
|
mov [midi_base], ax
|
|
|
|
|
mov [mididp], eax
|
|
|
|
|
inc eax
|
|
|
|
|
mov [midisp], eax
|
|
|
|
|
@@:
|
|
|
|
|
popad
|
|
|
|
|
ret
|
|
|
|
|
endp
|
|
|
|
|
iglobal
|
|
|
|
|
ugui db 'gui',0
|
|
|
|
|
ugui_mouse_speed db 'mouse_speed',0
|
|
|
|
|
ugui_mouse_speed_def db '2',0
|
|
|
|
|
ugui_mouse_delay db 'mouse_delay',0
|
|
|
|
|
ugui_mouse_delay_def db '0x00A',0
|
|
|
|
|
|
|
|
|
|
udev db 'dev',0
|
|
|
|
|
udev_midibase db 'midibase',0
|
|
|
|
|
udev_midibase_def db '0x320',0
|
|
|
|
|
endg
|
|
|
|
|
;set up netvork configuration
|
|
|
|
|
proc set_network_conf
|
|
|
|
|
locals
|
|
|
|
|
par db 30 dup(?)
|
|
|
|
|
endl
|
2012-03-08 12:33:38 +04:00
|
|
|
|
pushad
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
;[net]
|
|
|
|
|
;active
|
2012-03-08 12:33:38 +04:00
|
|
|
|
lea eax, [par]
|
|
|
|
|
invoke ini.get_int, conf_fname, unet, unet_active, 0
|
|
|
|
|
or eax, eax
|
|
|
|
|
jz .do_not_set_net
|
2010-10-01 13:21:55 +04:00
|
|
|
|
mov eax, [stack_config]
|
|
|
|
|
and eax, 0xFFFFFF80
|
|
|
|
|
add eax, 3
|
|
|
|
|
mov [stack_config], eax
|
|
|
|
|
call ash_eth_enable
|
|
|
|
|
|
|
|
|
|
;addr
|
2012-03-08 12:33:38 +04:00
|
|
|
|
lea eax, [par]
|
|
|
|
|
push eax
|
|
|
|
|
invoke ini.get_str, conf_fname, unet, unet_addr, eax, 30, unet_def
|
|
|
|
|
pop eax
|
|
|
|
|
stdcall do_inet_adr, eax
|
2010-10-01 13:21:55 +04:00
|
|
|
|
mov [stack_ip], eax
|
|
|
|
|
|
|
|
|
|
;mask
|
2012-03-08 12:33:38 +04:00
|
|
|
|
lea eax, [par]
|
|
|
|
|
push eax
|
|
|
|
|
invoke ini.get_str, conf_fname, unet, unet_mask, eax, 30, unet_def
|
|
|
|
|
pop eax
|
|
|
|
|
stdcall do_inet_adr, eax
|
2010-10-01 13:21:55 +04:00
|
|
|
|
mov [subnet_mask], eax
|
|
|
|
|
|
|
|
|
|
;gate
|
2012-03-08 12:33:38 +04:00
|
|
|
|
lea eax, [par]
|
|
|
|
|
push eax
|
|
|
|
|
invoke ini.get_str, conf_fname, unet, unet_gate, eax, 30, unet_def
|
|
|
|
|
pop eax
|
|
|
|
|
stdcall do_inet_adr, eax
|
2010-10-01 13:21:55 +04:00
|
|
|
|
mov [gateway_ip], eax
|
|
|
|
|
.do_not_set_net:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
popad
|
|
|
|
|
ret
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
endp
|
|
|
|
|
iglobal
|
|
|
|
|
unet db 'net',0
|
|
|
|
|
unet_active db 'active',0
|
|
|
|
|
unet_addr db 'addr',0
|
|
|
|
|
unet_mask db 'mask',0
|
|
|
|
|
unet_gate db 'gate',0
|
|
|
|
|
unet_def db 0
|
|
|
|
|
endg
|
|
|
|
|
; convert string to DWord
|
|
|
|
|
proc strtoint stdcall,strs
|
2012-03-08 12:33:38 +04:00
|
|
|
|
pushad
|
|
|
|
|
|
|
|
|
|
mov eax, [strs]
|
|
|
|
|
inc eax
|
|
|
|
|
mov bl, [eax]
|
|
|
|
|
cmp bl, 'x'
|
|
|
|
|
je .hex
|
|
|
|
|
cmp bl, 'X'
|
|
|
|
|
je .hex
|
|
|
|
|
jmp .dec
|
2010-10-01 13:21:55 +04:00
|
|
|
|
.hex:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
inc eax
|
|
|
|
|
stdcall strtoint_hex, eax
|
|
|
|
|
jmp .exit
|
2010-10-01 13:21:55 +04:00
|
|
|
|
.dec:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
dec eax
|
|
|
|
|
stdcall strtoint_dec, eax
|
2010-10-01 13:21:55 +04:00
|
|
|
|
.exit:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
mov [esp+28], eax
|
|
|
|
|
popad
|
|
|
|
|
ret
|
2010-10-01 13:21:55 +04:00
|
|
|
|
endp
|
|
|
|
|
|
|
|
|
|
; convert string to DWord for decimal value
|
|
|
|
|
proc strtoint_dec stdcall,strs
|
2012-03-08 12:33:38 +04:00
|
|
|
|
pushad
|
|
|
|
|
xor edx, edx
|
2010-10-01 13:21:55 +04:00
|
|
|
|
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
2012-03-08 12:33:38 +04:00
|
|
|
|
mov esi, [strs]
|
2010-10-01 13:21:55 +04:00
|
|
|
|
@@:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
lodsb
|
|
|
|
|
or al, al
|
|
|
|
|
jnz @b
|
|
|
|
|
mov ebx, esi
|
|
|
|
|
mov esi, [strs]
|
|
|
|
|
dec ebx
|
|
|
|
|
sub ebx, esi
|
|
|
|
|
mov ecx, 1
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
@@:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
dec ebx
|
|
|
|
|
or ebx, ebx
|
|
|
|
|
jz @f
|
|
|
|
|
imul ecx, ecx, 10; <EFBFBD><EFBFBD><EFBFBD>冷<EFBFBD>
|
|
|
|
|
jmp @b
|
2010-10-01 13:21:55 +04:00
|
|
|
|
@@:
|
|
|
|
|
|
2012-03-08 12:33:38 +04:00
|
|
|
|
xchg ebx, ecx
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
|
2012-03-08 12:33:38 +04:00
|
|
|
|
xor ecx, ecx
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
@@:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
xor eax, eax
|
|
|
|
|
lodsb
|
|
|
|
|
cmp al, 0
|
|
|
|
|
je .eend
|
|
|
|
|
|
|
|
|
|
sub al, 30h
|
|
|
|
|
imul ebx
|
|
|
|
|
add ecx, eax
|
|
|
|
|
push ecx
|
|
|
|
|
xchg eax, ebx
|
|
|
|
|
mov ecx, 10
|
|
|
|
|
div ecx
|
|
|
|
|
xchg eax, ebx
|
|
|
|
|
pop ecx
|
|
|
|
|
jmp @b
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
.eend:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
mov [esp+28], ecx
|
|
|
|
|
popad
|
|
|
|
|
ret
|
2010-10-01 13:21:55 +04:00
|
|
|
|
endp
|
|
|
|
|
|
|
|
|
|
;convert string to DWord for hex value
|
|
|
|
|
proc strtoint_hex stdcall,strs
|
2012-03-08 12:33:38 +04:00
|
|
|
|
pushad
|
|
|
|
|
xor edx, edx
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
2012-03-08 12:33:38 +04:00
|
|
|
|
mov esi, [strs]
|
|
|
|
|
mov ebx, 1
|
|
|
|
|
add esi, 1
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
@@:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
lodsb
|
|
|
|
|
or al, al
|
|
|
|
|
jz @f
|
|
|
|
|
shl ebx, 4
|
|
|
|
|
jmp @b
|
2010-10-01 13:21:55 +04:00
|
|
|
|
@@:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
xor ecx, ecx
|
|
|
|
|
mov esi, [strs]
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
@@:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
xor eax, eax
|
|
|
|
|
lodsb
|
|
|
|
|
cmp al, 0
|
|
|
|
|
je .eend
|
|
|
|
|
|
|
|
|
|
cmp al, 'a'
|
|
|
|
|
jae .bm
|
|
|
|
|
cmp al, 'A'
|
|
|
|
|
jae .bb
|
|
|
|
|
jmp .cc
|
2010-10-01 13:21:55 +04:00
|
|
|
|
.bm: ; 57h
|
2012-03-08 12:33:38 +04:00
|
|
|
|
sub al, 57h
|
|
|
|
|
jmp .do
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
.bb: ; 37h
|
2012-03-08 12:33:38 +04:00
|
|
|
|
sub al, 37h
|
|
|
|
|
jmp .do
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
.cc: ; 30h
|
2012-03-08 12:33:38 +04:00
|
|
|
|
sub al, 30h
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
.do:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
imul ebx
|
|
|
|
|
add ecx, eax
|
|
|
|
|
shr ebx, 4
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
2012-03-08 12:33:38 +04:00
|
|
|
|
jmp @b
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
|
|
|
|
.eend:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
mov [esp+28], ecx
|
|
|
|
|
popad
|
|
|
|
|
ret
|
2010-10-01 13:21:55 +04:00
|
|
|
|
endp
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; convert string to DWord for IP addres
|
|
|
|
|
proc do_inet_adr stdcall,strs
|
2012-03-08 12:33:38 +04:00
|
|
|
|
pushad
|
2010-10-01 13:21:55 +04:00
|
|
|
|
|
2012-03-08 12:33:38 +04:00
|
|
|
|
mov esi, [strs]
|
|
|
|
|
mov ebx, 0
|
2010-10-01 13:21:55 +04:00
|
|
|
|
.next:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
push esi
|
2010-10-01 13:21:55 +04:00
|
|
|
|
@@:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
lodsb
|
|
|
|
|
or al, al
|
|
|
|
|
jz @f
|
|
|
|
|
cmp al, '.'
|
|
|
|
|
jz @f
|
|
|
|
|
jmp @b
|
2010-10-01 13:21:55 +04:00
|
|
|
|
@@:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
mov cl, al
|
|
|
|
|
mov [esi-1], byte 0
|
2010-10-01 13:21:55 +04:00
|
|
|
|
;pop eax
|
2012-03-08 12:33:38 +04:00
|
|
|
|
call strtoint_dec
|
|
|
|
|
rol eax, 24
|
|
|
|
|
ror ebx, 8
|
|
|
|
|
add ebx, eax
|
|
|
|
|
or cl, cl
|
|
|
|
|
jz @f
|
|
|
|
|
jmp .next
|
2010-10-01 13:21:55 +04:00
|
|
|
|
@@:
|
2012-03-08 12:33:38 +04:00
|
|
|
|
mov [esp+28], ebx
|
|
|
|
|
popad
|
|
|
|
|
ret
|
2010-10-01 13:21:55 +04:00
|
|
|
|
endp
|