| 0,0 → 1,193 |
|---|
| format ELF |
| section '.text' executable |
| public start |
| public start as '_start' |
| ;extrn mf_init |
| extrn main |
| include '../../../../programs/proc32.inc' |
| ;include 'debug2.inc' |
| __DEBUG__=0 |
| |
| ;start_: |
| virtual at 0 |
| db 'MENUET01' ; 1. Magic number (8 bytes) |
| dd 0x01 ; 2. Version of executable file |
| dd start ; 3. Start address |
| dd 0x0 ; 4. Size of image |
| dd 0x100000 ; 5. Size of needed memory |
| dd 0x100000 ; 6. Pointer to stack |
| hparams dd 0x0 ; 7. Pointer to program arguments |
| hpath dd 0x0 ; 8. Pointer to program path |
| end virtual |
| |
| start: |
| ;DEBUGF 'Start programm\n' |
| ;init heap of memory |
| mov eax,68 |
| mov ebx,11 |
| int 0x40 |
| |
| ;DEBUGF ' path "%s"\n params "%s"\n', .path, .params |
| ; check for overflow |
| ;; that not work |
| ; mov al, [path+buf_len-1] |
| ; or al, [params+buf_len-1] |
| ; jnz .crash |
| ; check if path written by OS |
| mov [argc], 0 |
| mov eax, [hparams] |
| test eax, eax |
| jz .without_path |
| mov eax, path |
| cmp word ptr eax, 32fh ; '/#3' UTF8 |
| jne .without_path |
| mov word ptr eax, 12fh ; '/#1' fix to CP866 |
| .without_path: |
| mov esi, eax |
| call push_param |
| ; retrieving parameters |
| mov esi, params |
| xor edx, edx ; dl - èä¸ò ïàðàìåòð(1) èëè ðàçäåëèòåëè(0) |
| ; dh - ñèìâîë ñ êîòîðîãî íà÷àëñÿ ïàðàìåòð (1 êàâû÷êè, 0 îñòàëüíîå) |
| mov ecx, 1 ; cl = 1 |
| ; ch = 0 ïðîñòî íîëü |
| .parse: |
| lodsb |
| test al, al |
| jz .run |
| test dl, dl |
| jnz .findendparam |
| ;{åñëè áûë ðàçäåëèòåëü |
| cmp al, ' ' |
| jz .parse ;çàãðóæåí ïðîáåë, ãðóçèì ñëåäóþùèé ñèìâîë |
| mov dl, cl ;íà÷èíàåòñÿ ïàðàìåòð |
| cmp al, '"' |
| jz @f ;çàãðóæåíû êàâû÷êè |
| mov dh, ch ;ïàðàìåòð áåç êàâû÷åê |
| dec esi |
| call push_param |
| inc esi |
| jmp .parse |
| |
| @@: |
| mov dh, cl ;ïàðàìåòð â êàâû÷åêàõ |
| call push_param ;åñëè íå ïðîáåë çíà÷èò íà÷èíàåòñÿ êàêîé òî ïàðàìåòð |
| jmp .parse ;åñëè áûë ðàçäåëèòåëü} |
| |
| .findendparam: |
| test dh, dh |
| jz @f ; áåç êàâû÷åê |
| cmp al, '"' |
| jz .clear |
| jmp .parse |
| @@: |
| cmp al, ' ' |
| jnz .parse |
| |
| .clear: |
| lea ebx, [esi - 1] |
| mov [ebx], ch |
| mov dl, ch |
| jmp .parse |
| |
| .run: |
| ;DEBUGF 'call main(%x, %x) with params:\n', [argc], argv |
| if __DEBUG__ = 1 |
| mov ecx, [argc] |
| @@: |
| lea esi, [ecx * 4 + argv-4] |
| DEBUGF '0x%x) "%s"\n', cx, [esi] |
| loop @b |
| end if |
| push argv |
| push [argc] |
| call main |
| .exit: |
| ;DEBUGF 'Exit from prog\n'; |
| xor eax,eax |
| dec eax |
| int 0x40 |
| dd -1 |
| .crash: |
| ;DEBUGF 'E:buffer overflowed\n' |
| jmp .exit |
| ;============================ |
| push_param: |
| ;============================ |
| ;parameters |
| ; esi - pointer |
| ;description |
| ; procedure increase argc |
| ; and add pointer to array argv |
| ; procedure changes ebx |
| mov ebx, [argc] |
| cmp ebx, max_parameters |
| jae .dont_add |
| mov [argv+4*ebx], esi |
| inc [argc] |
| .dont_add: |
| ret |
| |
| proc memcpy c, to:dword,from:dword,count:dword |
| push esi |
| push edi |
| mov ecx,[count] |
| test ecx,ecx |
| jz no_copy_block |
| mov esi,[from] |
| mov edi,[to] |
| cld |
| rep movsb |
| no_copy_block: |
| |
| pop edi |
| pop esi |
| mov eax, [to] |
| ret |
| endp |
| |
| proc memmove c, to:dword,from:dword,count:dword |
| |
| push esi |
| push edi |
| mov ecx,[count] |
| test ecx,ecx |
| jz no_copy_block_ |
| mov esi,[from] |
| mov edi,[to] |
| cmp esi, edi |
| je no_copy_block_ |
| jg copy_ |
| add esi, ecx |
| add edi, ecx |
| dec esi |
| dec edi |
| std |
| copy_: |
| rep movsb |
| cld |
| no_copy_block_: |
| |
| pop edi |
| pop esi |
| mov eax,[to] |
| ret |
| endp |
| |
| ;============================== |
| public argc as '__argc' |
| public params as '__argv' |
| public path as '__path' |
| public memcpy |
| public memmove |
| |
| section '.bss' |
| buf_len = 0x400 |
| max_parameters=0x20 |
| argc rd 1 |
| argv rd max_parameters |
| path rb buf_len |
| params rb buf_len |
| |
| ;section '.data' |
| ;include_debug_strings ; ALWAYS present in data section |