Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 7445 → Rev 7446

/programs/system/searchap/searchap.asm
34,9 → 34,11
dd IM_END
dd I_END
dd stacktop
params dd PARAMS
dd 0x0
dd 0x0
;---------------------------------------------------------------------
delay dd 0;500
;---------------------------------------------------------------------
fileinfo:
.subfunction dd 5
.Offset dd 0
83,7 → 85,28
include "../../debug-fdo.inc"
;-------------------------------------------------------------------------------
START:
mcall 5,500
; process cmdline params
mov esi, [params]
test [esi], byte 0xFF
jz .params_done
cmp word[esi], '-d' ; delay
jne .params_done
add esi, 2
; str2uint(delay)
xor eax, eax
xor ecx, ecx
.convert:
lodsb
test al, al
jz .converted
lea ecx, [ecx + ecx * 4]
lea ecx, [eax + ecx * 2 - '0']
jmp .convert
.converted:
mov [delay], ecx
.params_done:
;--------------------------------------
mcall 5,[delay]
mov ebx,start_dir
mov ax,[ebx]
mov ebx,read_folder_name
401,6 → 424,8
IM_END:
;-------------------------------------------------------------------------------
align 4
PARAMS: rb 256
align 4
left_folder_block rd 1
right_folder_block rd 1
temp_counter_1 rd 1