kolibrios-gitea/programs/other/outdated/archer/trunk/parser.inc

; @RCHER parser and filter routines
; Written in pure assembler by Ivushkin Andrey aka Willow

  fhs_local   equ 0x04034b50
  fhs_central equ 0x02014b50
  fhs_end     equ 0x06054b50
  fhs_enc     equ 0x08074b50

SkipASCIIZ:
    xor  eax,eax
    mov  ecx,255
    mov  edi,esi
    repne scasb
    mov  esi,edi
    ret

PrintFilename:
    pusha
    mov  esi,edx
    mov  edi,os_work
    mov  edx,edi
    rep  movsb
    mov  dword[edi],0x00a0d
    call DebugPrint
    popa
    call Add2Fat
    ret

Add2Fat:
; edx - ptr, ecx - len

    pusha
    test [Flags],LIST_MODE
    jz   .ex
    mov  ebp,8
    mov  edi,edx
    lea  ebx,[edx+ecx]
    mov  ecx,[lpath_len]
    cmp  ecx,1
    je   .lbl
    mov  esi,[lpath]
    repe cmpsb
    jne  .full
    mov  eax,[lpath_len]
    sub  dword[esp+24],eax;path_len-path
    cmp  edi,ebx
    je   .full
    mov  edx,edi
  .lbl:
    mov  ecx,[esp+24]
    mov  al,'/'
    repne scasb
    mov  eax,[fat_]
    mov  ecx,[esp+24]
    jne  .nofol
    cmp  edi,ebx
    jne  .full
    lea  ecx,[edi-1]
    sub  ecx,edx
    or   byte[eax+11],0x10
;    sub  edx,ecx
  .nofol:

    push [fat_fnum]
    pop  dword[eax+12]
    mov  edi,eax
    mov  esi,edx
  .lp1:

    mov  bl,[esi]
    lea  edx,[eax+ebp]
    inc  esi
    cmp  bl,'.'
    jne  .nodot
    lea  edi,[eax+ebp]
    mov  ebp,11
    jmp  .ll
  .nodot:
    cmp  edi,edx
    jae  .ll
    mov  [edi],bl
    inc  edi
  .ll:
    loop .lp1
    mov  ecx,11
    dec  eax
  .lp2:
    cmp  byte[eax+ecx],0
    jne  .no0
    mov  byte[eax+ecx],' '
  .no0:
    loop .lp2
    cmp  eax,child_stack-1
    jae  .full
    add  [fat_],32
  .full:
    inc  [fat_fnum]
  .ex:
    popa
    ret

;path db '/';'fasm/examples/elfexe/'
;path_len:

; Parse routines:
;   out: edx= 0 if all ok, 1 - central dir, 2-EOD
;             50 - encrypted
;             51 - not deflated
;             52 - invalid format
;             53 - dir skipped
;             1 - encrypted

; ****************************************************
ZipParse:

    call ResetFile
  .nxt:
    call ZipCrawl

    cmp  edx,3
    je  .ex
    cmp  edx,1
    je   .skipinc
if  IGNORE_DIRS eq 1
    cmp  edx,53
    jne  .skipinc
end if
    inc  [file_count]
  .skipinc:
    cmp  edx,52
    je   .er1
    cmp  edx,50
    jne   .seek
  .er1:
    Msg  edx
    ret
  .seek:
    add  eax,ecx
    mov  ebx,1
    call FileSeek
    jmp  .nxt
  .ex:
    Msg  2
    mov  eax,[file_count]
 if ~ SYS eq win
    dpd  eax
 else
    pusha
    call  int2str
    mov   edx,os_work
   	call  DebugPrint
   	popa
 end if
    Newline
;    Dump fat,160,os_work
    ret

ZipFindN:
; ecx - file #
    Msg 33
    or   [Flags],FIND_MODE
    cmp  ecx,[file_count]
    jae  .err
    push ecx
    call ResetFile
  .nxt:

    call ZipCrawl
    cmp  edx,51
    je   .ok2
  .noenc:
    test edx,edx
    jnz  .err
  .ok2:
    add  eax,ecx
    cmp  dword[esp],0
    jz   .ok
    dec  dword[esp]
    mov  ebx,1
    call FileSeek
    jmp  .nxt
  .err:
    mov  edx,4
    jmp  .ex
  .ok:
    pop  ecx
    sub  eax,[esi+18]
    add  esi,eax
    mov  edx,5
  .ex:
    and   [Flags],-1-FIND_MODE
    push edx
    Msg  edx
    pop  edx
    ret

ZipCrawl:
    mov  edx,52
    cmp  dword[esi],fhs_central
    jne  .noc
    mov  eax,46
    movzx ecx,word[esi+28]
    add  eax,ecx
    movzx ecx,word[esi+30]
    add  eax,ecx
    movzx ecx,word[esi+32]
    mov  edx,1
    ret
  .noc:
    cmp  dword[esi],fhs_end
    jne  .noe
  .edx3:
    Msg 3
    mov  edx,3
    ret
  .noe:
    cmp  dword[esi],fhs_local
    je   .loc
    cmp  dword[esi],fhs_enc
    jne  .err
    mov  eax,16
    xor  ecx,ecx
    mov  edx,1
    ret
  .loc:
    push word[esi+6]
    pop  [gpbf]
    push dword[esi+14]
    pop  [CRC_check]
    push dword[esi+22]
    pop  [unp_size]
    movzx ecx,word[esi+26]
    mov  eax,30
    lea  edx,[esi+eax]
    add  eax,ecx
if  IGNORE_DIRS eq 1
    cmp  byte[edx+ecx-1],'/'
    je   .skipdp
end if
    test [Flags],FIND_MODE
    jnz  .skipdp
    call PrintFilename
  .skipdp:
    movzx ecx,word[esi+28]
    add  eax,[esi+18]
    test [gpbf],1
    jz   .no_enc
    or   [Flags],DECRYPT_MODE  ; encrypted
    mov  edx,51
    jmp  .err
  .no_enc:
    test word[esi+8],7
    rep_err z,50
  .ok:
    xor  edx,edx
  .err:
    ret

; ***********************************************
GzipParse:
    ID1ID2 equ 0x8b1f
    FTEXT equ 1b
    FHCRC equ 10b
    FEXTRA equ 100b
    FNAME equ 1000b
    FCOMMENT equ 10000b
    mov  eax,7
    mov  ebx,2
    call FileSeek
    push dword[esi]
    pop  [CRC_check]
    push dword[esi+4]
    pop  [unp_size]
    call ResetFile
    xor  edx,edx
    cmp  word[esi],ID1ID2
    rep_err e, 52, 15
    cmp  byte[esi+2],8
    rep_err e, 52, 50
    mov  bl,[esi+3]  ; bl - FLG
    add  esi,10 ; esi->extra
    test bl,FEXTRA
    jz   .noextr
    movzx eax,word[esi]
    lea  esi,[esi+eax+2] ; esi->FNAME
  .noextr:
    test bl,FNAME
    jz   .nofname
    mov  edx,esi
    call DebugPrint
    call SkipASCIIZ
    cmp  dword[esi-5],'.tar'
    jne  .nofname
    or   [Flags],TAR_MODE
  .nofname:     ; esi->FCOMMENT
    test bl,FCOMMENT
    jz   .nocomm
    call SkipASCIIZ
  .nocomm:      ; esi->HCRC
    test bl,FHCRC
    jz   .noCRC16
    add  esi,2
  .noCRC16:
    cmp  [unp_size],OUTBUF
    jb   .sizeok2
    Msg  16
    mov  edx,15
    ret
  .sizeok2:
    xor  edx,edx
  .err:
    ret

PngParse:
    ID1 equ 0x474e5089
    ID2 equ 0x0a1a0a0d
    FDICT equ 100000b
    InitIDAT equ 2
    mov  [IDATcount],InitIDAT
    call ResetFile
    cmp  dword[esi],ID1
    rep_err e, 52, 18
    cmp  dword[esi+4],ID2
    rep_err e, 52, 18
    add  esi,8
    cmp  dword[esi+4],'IHDR'
    rep_err e,52, 18
    memcpy_esi PNG_info,13,8
    mov  eax,[PNG_info.Width]
    bswap eax
    mov  [PNG_info.Width],eax
    mov  eax,[PNG_info.Height]
    bswap eax
    mov  ebx,eax
    mov  [PNG_info.Height],eax
    call scanline_calc
;    dps  'All='
    cmp  [PNG_info.Color_type],3
    jne  .nopal
    shl  eax,3
    inc  eax
  .nopal:
    inc  eax
    imul eax,ebx
    mov  [unp_size],eax
;    dpd  eax
    add  esi,25
    cmp  byte[esi-5],0
    rep_err e,52,29
    or   [Flags],PNG_MODE
  .nxt_sec:
    lodsd
    bswap eax ; eax - section size
    push eax
    lodsd
    mov  edi,Png_ch
    mov  ecx,(E_ch-Png_ch) / 4
    repne scasd
    pop  eax
    mov  ebx,[esi-4]
    mov  edx,os_work
    mov  [edx],ebx
    mov  dword[edx+4],0x0a0d
  .dp:
    sub  edi,Png_ch
    shr  edi,2  ; edi- chunk #
 if SHOW_PNG_SEC eq 1
    call DebugPrint
 end if
    cmp  edi,1
    jne  .noend
    mov  edx,21
    jmp  .err
  .noend:
    cmp  edi,2
    jne  .noplte
    memcpy_esi PNG_info.Palette,eax
    jmp  .noidat
   .noplte:
    cmp  edi,3
    jne  .noidat
    mov  [IDATsize],eax
    cmp  [IDATcount],InitIDAT
    jne  .ex
    mov  [bits],8
  if RBLOCK eq 4
    lodsd
  else
    lodsb
  end if
    call setcurb
    rbits 0,16
    test ah,FDICT
    jz   .ex
    rbits 0,32
    add  [IDATcount],4
    jmp  .ex
   .noidat:
    add  eax,4
    mov  ebx,1
    call FileSeek
    jmp  .nxt_sec
   .ex:
    xor  edx,edx
   .err:
    ret

Png_ch:
    dd 'IEND','PLTE','IDAT','????'
E_ch:

ZipDecrypt:
    push edi
    mov  ecx,3
    mov  edi,Dheader
    rep  movsd
    pop  edi
    call QueryPwd
    jecxz .ex
    push esi
    mov  [DKeys],  305419896
    mov  [DKeys+4],591751049
    mov  [DKeys+8],878082192
    xor  eax,eax
    mov  esi,Dpassword
  .enc_init:
    lodsb
    call UKeys
    loop .enc_init
    mov  ecx,12
    mov  esi,Dheader
  .dec_header:
    call decrypt_byte
    xor  al,[esi]
    call UKeys
    mov  [esi],al
    inc  esi
    loop .dec_header
    mov  eax,[CRC_check]
    pop  esi
  .ex:
    ret

QueryPwd:
; out: ecx - passwd len
if  SYS eq win
    Msg 32
    invoke ReadConsole,[cons_in],Dpassword,PASSW_LEN,cparam1,NULL
    test eax,eax
    jnz  .inp_ok
    xor  ecx,ecx
    jmp  .ex
  .inp_ok:
    mov  ecx,[cparam1]
    cmp  ecx,PASSW_LEN
    je   .ex
    sub  ecx,2
else
end if
  .ex:
    ret

UKeys:
; in: al - char
    pusha
    mov  edi,134775813
    mov  ebx,DKeys
    mov  esi,os_work
    mov  byte[esi],al
    mov  ecx,1
    push dword[ebx]
    pop  [_CRC32_]
    call UCRC
    push [_CRC32_]
    pop  dword[ebx]
    mov  eax,[ebx]
    and  eax,0xff
    add  eax,[ebx+4]
    mul  edi
    inc  eax
    mov  [ebx+4],eax
    shr  eax,24
    mov  byte[esi],al
    push dword[ebx+8]
    pop  [_CRC32_]
    call UCRC
    push [_CRC32_]
    pop  dword[ebx+8]
    popa
    ret

decrypt_byte:
; out: al
    push ebx edx
    movzx ebx,word[DKeys+8]
    or   ebx,2
    mov  eax,ebx
    xor  eax,1
    mul  ebx
    shr  eax,8
    pop  edx ebx
    ret

setcurb:
; in: eax
    test [Flags],DECRYPT_MODE
    jz   .noenc
    push eax
    call decrypt_byte
    xor  al,byte[esp]
    add  esp,4
    call UKeys
  .noenc:
    mov  [cur_byte],eax
    ret

TarParse:
    mov  esi,output
;    call ResetFile
  .nxt:
    call TarCrawl
;    wait
    cmp  edx,3
    je   ZipParse.ex
if  IGNORE_DIRS eq 1
    cmp  edx,53
    jne  .skipinc
end if
    inc  [file_count]
  .skipinc:
    add  eax,ecx
;    mov  ebx,1
    add  esi,eax
;    call FileSeek
    jmp  .nxt

TarFindN:
; in:  ecx - file number
; ecx - file #
    Msg 33
    cmp  ecx,[file_count]
    jae  .err
    push ecx
    mov  esi,output
;    call ResetFile
  .nxt:
    call TarCrawl
if  IGNORE_DIRS eq 1
    cmp  edx,53
    je  .seek
end if
    test edx,edx
    jnz  .err
    cmp  dword[esp],0
    jz   .ok
    dec  dword[esp]
  .seek:
    add  eax,ecx
;    mov  ebx,1
    add  esi,eax
;    call FileSeek
    jmp  .nxt
  .err:
    mov  edx,4
    jmp  .ex
  .ok:
    pop  ecx
    add  esi,eax
    mov  edx,5
  .ex:
    Msg  edx
    ret

TarCrawl:
    cmp  byte[esi],0
    jz   ZipCrawl.edx3
    push esi
    mov  ecx,11
    add  esi,0x7c
    call Octal_str
    mov  esi,[esp]
    mov  [outfile.size],eax
    call SkipASCIIZ
if  IGNORE_DIRS eq 1
    cmp  byte[esi-2],'/'
    je   .skipdp
end if
    mov  edx,[esp]
    lea  ecx,[esi-1]
    sub  ecx,edx
    call PrintFilename
  .skipdp:
    mov  ecx,[outfile.size]
    jecxz .zerolen
    shr  ecx,9
    inc  ecx
    shl  ecx,9
  .zerolen:
    mov  eax,512
    pop  esi
    jmp  ZipCrawl.ok

Octal_str:
; in:  esi - ASCIIZ octal string
;      ecx - its length
; out: eax - value
    push esi ebx ecx
    xor  ebx,ebx
    xor  eax,eax
  .jec:
    jecxz .zero
    cmp  byte[esi+ecx-1],' '
    jne  .lp
    dec  ecx
    jmp  .jec
  .lp:
    lodsb
    shl  ebx,3
    cmp  eax,' '
    je   .space
    lea  ebx,[ebx+eax-'0']
  .space:
    loop .lp
    mov  eax,ebx
  .zero:
    pop  ecx ebx esi
    ret

TRAILING_BUF equ 2048
SfxParse:
    call ResetFile
    cmp  word[esi],'MZ'
    rep_err e, 34
    mov  eax,TRAILING_BUF
    mov  ecx,eax
    mov  ebx,2
    call FileSeek
    mov  edi,esi
    mov  al,'P'
  .lp:
    repne scasb
    cmp  dword[edi-1],fhs_end
    je   .end_found
    jecxz .err
    jmp   .lp
  .end_found:
    dec   edi
    mov   esi,edi
    mov   eax,[edi+12]
    neg   eax
    mov   ebx,1
    call  FileSeek
    push  dword[esi+42]
    pop   [arc_base]
  .err:
    ret

scanline_calc:
    movzx ecx,byte[PNG_info.Color_type]
    mov  eax,1
    cmp  cl,3
    je   .palette
    test cl,2
    jz  .notriple
    add  eax,2
  .notriple:
    test cl,4
    jz   .calc_bpp
    inc  eax
  .calc_bpp:
    mul  [PNG_info.Bit_depth]
  .palette:
    mov  ecx,eax   ; in bits
    shr  eax,3     ; in bytes
    test eax,eax
    jnz  .noz
    inc  eax
  .noz:
    mov  [png_bpp],eax
    mov  eax,[PNG_info.Width]
    mov  ebp,eax
    imul ecx
    shr  eax,3
    test eax,eax
    jnz  .noz2
    inc  eax
  .noz2:
    ret

; Created:  May 31, 2005
FiltCall:
dd PngFilter.nofilt,Filt_sub,Filt_up,Filt_av,Filt_paeth,PngFilter.nofilt
PngFilter:
; esi - filtered uncompressed image data
; edi - destination
    call scanline_calc
    mov  [sline_len],eax   ; scanline length
    push edi
    and  [Flags],not 1
    mov  ecx,[PNG_info.Height]
  .scanline:
;    Msg 9,1
    push ecx
    lodsb
    movzx eax,al
    cmp  eax,5
    jb   .f_ok
    mov  eax,5
  .f_ok:
    inc  dword[filters+eax*4]
    jmp  dword[FiltCall+eax*4]
  .nofilt:
    mov  dl,[PNG_info.Color_type]
    cmp  dl,3
    jne  .nopalette
    lodsb
    mov  [cur_byte],eax
    mov  [bits],8
    mov  ecx,ebp
  .pixel:
    push ecx
    movzx ecx,[PNG_info.Bit_depth]
    call rb_png
    push esi
    lea  esi,[eax+eax*2]
    add  esi,PNG_info.Palette
    call PngStore
    pop  esi
    pop  ecx
    loop .pixel
    cmp  [bits],8
    jne  .lp
    dec  esi
  .lp:
    pop  ecx
    loop .sl
    jmp  .sl2
  .sl:
;//
MV equ 1
;    mov  eax,ecx
;    and  eax,1 shl MOVE_SLINE_LEV-1
;    jnz  .scanline
;stop
if MV eq 0
    push ecx
    mov  ecx,edi
    sub  ecx,esi
    sub  [outp],esi
    mov  edi,output
    add  [outp],edi
    rep  movsb
    mov  esi,output
    pop  ecx
    pop  eax
    push [outp]
end if
;;//
    jmp  .scanline
  .sl2:
;//
;    call MoveScanline
    sub  edi,[outp]
;//
;    sub  edi,[esp]
    pop  eax
    ret

  .nopalette:
    test  dl,2
    jz   .notriple1
  .__:
    mov  ecx,[PNG_info.Width]
  .RGBcp:
    call PngStore
    add  esi,[png_bpp]
    loop .RGBcp
    jmp  .lp
  .notriple1:
    test dl,dl
    jz  .gray
    cmp  dl,4
    jne .__
;    Msg 31
;    ud2
  .gray:
;    stop
    push ecx
    mov  ecx,[PNG_info.Width]
    mov  [bits],8
    lodsb
    mov  [cur_byte],eax
  .gray2:
    push ecx
    movzx ecx,[PNG_info.Bit_depth]
    push ecx
    call rb_png
    pop  ecx
    cmp  ecx,8
    jbe  .lo
    add  esi,2
    shr  eax,8
    jmp  .stsb
  .lo:
    neg  ecx
    add  ecx,8
    shl  eax,cl
  .stsb:
    mov  ecx,3
    rep  stosb
    pop  ecx
    loop .gray2
    dec  esi
    pop  ecx
    jmp  .lp

Filt_sub:
;    dps  '-'
    mov  ecx,[sline_len]
    sub  ecx,[png_bpp]
    push esi edi
    mov  edi,esi
    add  edi,[png_bpp]
  .scan:    ; esi - previous, edi - current
    lodsb
    add  [edi],al
    inc  edi
    loop .scan

    pop  edi esi
;    dps  '-'
    jmp  PngFilter.nofilt

Filt_up:
    cmp  ecx,[PNG_info.Height]
    je   PngFilter.nofilt
    push esi edi
    mov  ecx,[sline_len]
    mov  edi,esi
    sub  esi,ecx
    dec  esi
    jmp  Filt_sub.scan

Filt_av:
    pusha
    mov  ecx,[sline_len]
    mov  ebp,[PNG_info.Height]
    mov  edx,[png_bpp] ; edx-raw
    neg  edx
    mov  ebx,ecx
    sub  ebx,[png_bpp]
    mov  edi,esi
    sub  esi,ecx
    dec  esi           ; esi-prior
  .lpavg:
    xor  eax,eax
    cmp  [esp+24h],ebp
    je   .1stl
    movzx eax,byte[esi]
  .1stl:
    cmp  ecx,ebx
    ja   .leftbad
    push ecx
    movzx ecx,byte[edi+edx]
    add  eax,ecx
    pop  ecx
  .leftbad:
    shr  eax,1
    add  [edi],al
    inc  esi
    inc  edi
    loop .lpavg
    popa
    jmp  PngFilter.nofilt

Filt_paeth:
    pusha
    mov  ecx,[sline_len]
    mov  edx,[png_bpp]
    neg  edx
    lea  ebp,[ecx+edx] ; left edge
    mov  edi,esi
    sub  esi,ecx
    dec  esi
  .lpaeth:
    push ecx
    movzx eax,byte[edi+edx]
    movzx ebx,byte[esi]
    movzx ecx,byte[esi+edx]
    push eax
    mov  eax,[esp+28h]
    cmp  eax,[PNG_info.Height] ; 1st line
    jne  .no1stlineok
    xor  ebx,ebx
    xor  ecx,ecx
  .no1stlineok:
    pop  eax
    cmp  [esp],ebp     ; ecx
    jbe  .leftok      ; x-bpp>=0
    xor  eax,eax
    xor  ecx,ecx
  .leftok:
    pusha   ; eax-28, ebx-16, ecx-24
    lea  edx,[eax+ebx]
    sub  edx,ecx        ; p=edx
    sub  eax,edx        ; pa := abs(p - a)
    jge  .eaxp
    neg  eax
  .eaxp:
    sub  ebx,edx        ; pb := abs(p - b)
    jge  .ebxp
    neg  ebx
  .ebxp:
    sub  ecx,edx        ; pc := abs(p - c)
    jge  .ecxp
    neg  ecx
  .ecxp:
    cmp  eax,ebx
    ja   .noa
    cmp  eax,ecx
    jbe  .ex            ; pa-min
  .noa:
    cmp  ebx,ecx
    ja   .nob
    mov  eax,[esp+16]
    jmp  .ex2
  .nob:
    mov  eax,[esp+24]
  .ex2:
    mov  [esp+28],eax
  .ex:
    popa
    add  [edi],al
    inc  esi
    inc  edi
    pop  ecx
    loop .lpaeth
    popa
    jmp  PngFilter.nofilt

rb_png: ; eax-dest; ecx-count
    push ecx
    xor  eax,eax
  .shift:
    rol  byte[cur_byte],1
    rcl  eax,1
  .dec:
    dec  [bits]
    jnz  .loop1
  .push:
    push dword[esi]
    pop  [cur_byte]
    mov  [bits],8
    inc  esi
  .loop1:
    loop .shift
    pop  ecx
    ret

PngStore:
    push esi
    cmp  [PNG_info.Bit_depth],8
    jbe  .lo
    add  esi,3
  .lo:
  if ~ SYS eq win
    mov  esi,[esi]
    bswap esi
    shr  esi,8
    mov  [edi],esi
    add  edi,3
  else
    movsw
    movsb
  end if
    pop  esi
    ret

FiltStats:
    pusha
    xor  ebx,ebx
    mov  edx,23
    mov  ecx,6
  .lp:
    push ecx edx
    Msg  edx
    mov  eax,[filters+ebx*4]
    DebugPrintDec
    pop  edx ecx
    inc  edx
    inc  ebx
    loop .lp
    Newline
    popa
    ret