Текстовый файл

Тема в разделе "WASM.BEGINNERS", создана пользователем dgs, 29 авг 2008.

  1. dgs

    dgs New Member

    Публикаций:
    0
    Регистрация:
    23 июн 2008
    Сообщения:
    434
    Здрасте, в сущности не могу понять в чем проблема, написал на фасме процедурку по подсчету кол-ва строк в текстовом файле, а она ругаеться... Может в чем ошибся?! Жду вашей помощи, заранее спасибо.

    Код (Text):
    1. proc GetMemory size
    2.  
    3.         invoke  GlobalAlloc, 64, [size]
    4.         mov     ebx, eax
    5.         invoke  GlobalLock, eax
    6.         ret
    7. endp
    8.  
    9. proc FreeMemory heap
    10.  
    11.         invoke   GlobalUnlock, [heap]
    12.         invoke   GlobalFree, [heap]
    13.         ret
    14. endp  
    15.  
    16. proc GetTextStringCount hFile
    17.  
    18.         xor     eax, eax
    19.         mov     [count], eax
    20.         invoke  GetFileSize,[hFile],0
    21.         stdcall GetMemory, eax
    22.         mov     [hheap], ebx
    23.         mov     [hbuffer], eax
    24.         cld
    25.         mov     esi, eax
    26.         mov     edi, esi
    27.       .loop_scan:
    28.         lodsb
    29.         cmp     al, 13
    30.         je      .increment_count
    31.         cmp     al, 10
    32.         je      .increment_count
    33.         cmp     al, 0
    34.         je      .end_scan
    35.         jmp     .loop_scan
    36.       .increment_count:
    37.         lodsb
    38.         inc     [count]
    39.         jmp     .loop_scan
    40.       .end_scan:
    41.         stdcall FreeMemory,[hheap]
    42.         mov     eax, [count]
    43.         ret
    44. endp
     
  2. Y_Mur

    Y_Mur Active Member

    Публикаций:
    0
    Регистрация:
    6 сен 2006
    Сообщения:
    2.494
    http://www.wasm.ru/forum/viewtopic.php?id=16358
     
  3. dgs

    dgs New Member

    Публикаций:
    0
    Регистрация:
    23 июн 2008
    Сообщения:
    434
    спс