Subversion Repositories Kolibri OS

if DEBUG eq 1

if DEBUG eq 1

    stdcall string.copy, std_param, params

    stdcall string.copy, std_param, params

end if

end if

 ;; trim params

    stdcall string.to_lower_case, params

    stdcall string.to_lower_case, params

    stdcall string.trim_last, params

    stdcall string.trim_last, params

    mov     [param_s], eax

    mov     [param_lwr], eax

 ;; if empty - exit

 ;; if empty - exit

    mov     esi, eax

    mov     esi, eax

    stdcall string.last_index_of, [param_s], '/', 1

    stdcall string.last_index_of, [param_s], '/', 1

    cmpg    eax, esi, execute

    cmpg    eax, esi, execute

    add     esi, [param_s]

    add     esi, [param_lwr]

    mov     [param_e], esi

    mov     [param_e], esi

    cmpe    [esi], dword "kex", execute

    cmpe    [esi], dword "kex", execute

  .sel rb 32 * 32 * 3

  .sel rb 32 * 32 * 3

 win:

 win:

  .x rd 1

  .x rd 1

  .y rd 1

  .y rd 1

 win.title rb 256

 win.title rb 256

 param_e rd 1

 param_e rd 1

 param_a rd 1

 param_a rd 1

 undefined rb 1

 undefined rb 1

 buffer  rb 2048

 buffer  rb 2048

 buffer2 rb 2048 ;OD

 buffer2 rb 2048 ;OD

 buffer3 rb 2048 ;OD

 buffer3 rb 2048 ;OD

 buffer4 rb 2048 ;OD

 buffer4 rb 2048 ;OD

 buffer5 rb 2048 ;OD

 buffer5 rb 2048 ;OD

 buffer6 rb 2048 ;check existance

 buffer6 rb 2048 ;check existance

 buffer7 rb 32	 ;for sorting

 buffer7 rb 32	 ;for sorting

 buffer8 rd 2048

 buffer8 rd 2048

 params rb 2048

 params rb 2048

 _stack rb 2048

 _stack rb 2048

 memory:

 memory: