Побайтовый вывод файла

format PE console 4.0
 
include 'win32a.inc'
     xor     ebx, ebx ;
    
         invoke  CreateFile,\
             fin,\
             GENERIC_READ,\
             0,\
             0,\
             OPEN_EXISTING,\
             FILE_ATTRIBUTE_ARCHIVE,\
             0
     mov     [hFile],eax
     
     invoke  GetFileSize,[hFile],0
     
     mov     [lFile],eax
     
     mov     esi,[lFile]
      
      @loop:
 
     invoke  ReadFile,hFile,inbuf,1,szReadByte,0
     
     mov [buffer+inbuf], szReadByte
     
     inc     [inbuf]
 
     dec     esi
     
     jnz     @loop
    
    invoke printf,tpt, buffer
      
     
    invoke  CloseHandle,[hFile]
    
   
    invoke _getch
    invoke  exit, 0
    
fin db  'test1.exe',0
tpt db  '%X',0
 
hFile         dd ?
lFile         dd ?
inbuf         dd ?
szReadByte    dd ?
buffer dd ?
  
; import data in the same section
 data import
library msvcrt,'MSVCRT.DLL',\
    kernel32, 'kernel32.dll'
 
 import kernel32,\
    CloseHandle,'CloseHandle',\
    GetFileSize,'GetFileSize',\
    ReadFile,'ReadFile',\
    CreateFile, 'CreateFileA'
 
 import msvcrt,\
 _getch,'_getch',\
    printf,'printf',\
    exit,'exit'
    
    
    
end data

mov [buffer+inbuf], szReadByte ; адрес переменной под число прочитанных байт поместить по адресу ??? чёрти куда
inc     [inbuf] ; инкриминировать последний прочитанный байт. Зачем?!

invoke GetFileSize,[hFile],0
invoke ReadFile,[hFile],buffer,eax,szReadByte,0

format PE console 4.0
buf_sz      =   16
include 'win32a.inc'
    invoke  GetCommandLine  
; argv[0], имя собственной .exe, больше в ком. строке ничего не задавать.
    invoke  fopen, eax, mode ;O_RDONLY or O_BINARY
    mov [FP], eax
again:  invoke  fread,  buf, 1, buf_sz, [FP]
    mov [cnt], eax
    invoke  ferror, [FP]
    mov [_err],eax
    mov esi, buf
    mov ecx, [cnt]
    jcxz    gtfo        ; .опа наступает, если длина файла кратна buf_sz
; выводим смещение в файле
    push    ecx     ; ECX/EDX будут загажены безвозмездно
    cinvoke printf, tpo, [pos]
    pop ecx
    add [pos], ecx
;
@@: push    ecx     ; ECX/EDX будут загажены безвозмездно
    lodsb
    cinvoke printf, tpt, eax
    pop ecx
    loop    @B
    cinvoke puts, crlf  ; тут хитрость - <CR>/<LF> puts(); всё равно выведет
;
    cmp [_err], 0
    jz  again
gtfo:   invoke  fclose, [FP]
    invoke _getch
    invoke  exit, 0
FP  dd  ?
_err    dd  ?    
cnt dd  ?    
pos dd  0   
mode    db  'rb',0
tpo db  '%08lX: ',0
tpt db  '%02X ',0
crlf    =   $ - 1
buf db  buf_sz dup(?)
; import data in the same section
 data import
 library kernel32,'KERNEL32.DLL',\
    msvcrt,'MSVCRT.DLL'
 
 import kernel32,\
    GetCommandLine,'GetCommandLineA'
 
 import msvcrt,\
    _getch,'_getch',\
    printf,'printf',\
    puts,'puts',\
    ferror,'ferror',\
    fclose,'fclose',\
    fread,'fread',\
    fopen,'fopen',\
    ftell,'ftell',\
    exit,'exit'
end data

@@: 
    push    ecx     ; ECX/EDX будут загажены безвозмездно
    lodsb
    cinvoke printf, tpt, eax
    pop ecx
    loop    @B
    cinvoke puts, crlf  ; тут хитрость - <CR>/<LF> puts(); всё равно выведет
;
    cmp [_error], 0

 cinvoke puts, crlf
crlf    =   $ - 1