Subversion Repositories Kolibri OS

;-------------------------------------------------------------------------

;

;    ” ©« ª®­ä¨£ãà æ¨¨

;

;

;     SPraid

;

;-------------------------------------------------------------------------

conf_file_loaded: db 0			; ä« £ § £à㧪¨ ª®­ä¨£ 

conf_path_sect: db 'path',0

conf_fname db '%sys%/sys.conf',0

proc set_kernel_conf

locals

  par db 30 dup(?)

endl

  pushad

  ;[gui]

  ;mouse_speed

  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

  push eax

  pop edx

  call _mouse_speed

  popad

  ret

  ;mouse_delay

  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

  push eax

  pop edx

  call _mouse_delay

  ;[dev]

  ;sb16

  lea eax,[par]

  push eax

  invoke ini.get_str,conf_fname, udev, udev_sb16, eax,30, udev_sb16_def

  pop eax

  stdcall strtoint,eax

  push eax

  pop ecx

  call _sb16

  ;sound_dma

  lea eax,[par]

  push eax

  invoke ini.get_str,conf_fname, udev, udev_sound_dma, eax,30, udev_sound_dma_def

  pop eax

  stdcall strtoint,eax

  push eax

  pop ecx

  call _sound_dma

  ;midibase

  lea eax,[par]

  push eax

  invoke ini.get_str,conf_fname, udev, udev_midibase, eax,30, udev_midibase_def

  pop eax

  stdcall strtoint,eax

  push eax

  pop ecx

  call _midibase

  popad

  ret

endp

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_sb16 db 'sb16',0

udev_sb16_def db '0x220',0

udev_sound_dma db 'sound_dma',0

udev_sound_dma_def db '1',0

udev_midibase db 'midibase',0

udev_midibase_def db '0x320',0

proc set_network_conf

locals

  par db 30 dup(?)

endl

  pushad

  ;[net]

  ;active

  lea eax,[par]

  invoke ini.get_int,conf_fname, unet, unet_active, 0

  or eax,eax

  jz .do_not_set_net

  call _net_up

  ;addr

  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

  push eax

  pop ecx

  call _net_addr

  ;mask

  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

  push eax

  pop ecx

  call _net_mask

  ;gate

  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

  push eax

  pop ecx

  call _net_gate

.do_not_set_net:

  popad

  ret

endp

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

; ª®­¢¥à祭¨¥ áâப¨ ¢ DWord ¢ eax (¯® ¢â®à®¬ã ᨬ¢®«ã ®¯à¥¤¥«ï¥â á¨á⥬ã áç¨á«¥­¨ï)

proc strtoint stdcall,strs

  pushad

  mov eax,[strs]

  inc eax

  mov bl,[eax]

  cmp bl,'x'

  je .hex

  cmp bl,'X'

  je .hex

  jmp .dec

.hex:

  inc eax

  stdcall strtoint_hex,eax

  jmp .exit

.dec:

  dec eax

  stdcall strtoint_dec,eax

.exit:

  mov [esp+28],eax

  popad

  ret

endp

; ª®­¢¥à祭¨¥ áâப¨ ¢ DWord ¢ eax ¤«ï ¤¥áïâ¨ç­®£®

proc strtoint_dec stdcall,strs

  pushad

  xor edx,edx

  ; ¯®¨áª ª®­æ 

  mov esi,[strs]

@@:

  lodsb

  or al,al

  jnz @b

  mov ebx,esi

  mov esi,[strs]

  dec ebx

  sub ebx,esi

  mov ecx,1

@@:

  dec ebx

  or ebx,ebx

  jz @f

  imul ecx,ecx,10  ; ¯®à冷ª

  jmp @b

@@:

 xchg ebx,ecx

  xor ecx,ecx

@@:

  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