Subversion Repositories Kolibri OS

Rev

Rev 111 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ; @RCHER data area
  2. ; Written in pure assembler by Ivushkin Andrey aka Willow
  3.  
  4. if  SYS eq win
  5.   dumpfile:
  6.             db 'D:\Ivushkin\projects\zip\output.dmp',0
  7.   dumpf_len=$-dumpfile
  8. end if
  9. outfile:
  10. if SYS eq win
  11.             db 'D:\Ivushkin\projects\zip\output.raw',0
  12. end if
  13.             dd 1
  14.             dd 0
  15.   .size     dd 0
  16.   .out      dd output
  17.             dd os_work
  18. if ~SYS eq win
  19.   dumpfile:
  20.             db DUMPFILE,0
  21.   dumpf_len=$-dumpfile
  22. end if
  23. Finfo:
  24.             dd 0
  25.     .block  dd 0
  26.     .count  dd BUFSIZE*2
  27.     .ptr    dd BUFPTR
  28.             dd os_work
  29.  
  30. filename:
  31. if SYS eq win
  32. db 'png\absolut0.png',0
  33. ;db  'fasm-1.54.tgz',0
  34. ;include 'testsu~1.inc'
  35. ;      db  'pngsuite\pngsuite.tar.gz',0  ; OK
  36. ;      db  'pngsuite\basn4a08.png',0  ; OK
  37. ;      db  'goldhill.png',0  ; beeping
  38. ;      db  'arl_logo.png',0  ; wrong out
  39. ;      db  'tech.png',0  ; wrong out
  40. ;     db  'png\lena0000.png',0
  41. ;      db 'arcs\'
  42. ;      db 'NTOSKRNL.gz'
  43. ;      db 'msg_enc.zip'
  44.       ;db 'msgplain.zip'
  45. ;      db 'c_866.gz'
  46. ;     db 'zalman_2.png' ;OK
  47. ;     db 'arcs\headerbar.png',0 ;OK
  48. ;     db 'fonts1.png' ;OK
  49. ;     db 'fonts.png' ;
  50. ;     db 'skin.png' ;OK
  51. ;     db 'JavaPowered8.png'; OK
  52. ;     db 'opr008S8.png'
  53. ;    db  'goldhill.png'
  54. ;     db 'k3b.png',0
  55. ;      db 'image0051.png'
  56. ;     db 'window-elements.png',0
  57. ;    db 'WWW.zip',0
  58. ;     db 'png.zip',0
  59. ;    db 'zlib09.zip',0
  60.  
  61. else
  62.   if ~ FNAME eq
  63.      db FNAME
  64.   end if
  65. ;    db '/hd/1/zip/png.zip',0
  66. ;    db '/hd/1/zip/files/opossum.png'
  67. ;    db '/rd/1/www.zip',0
  68. ;    db '/hd/1/zip/test2.zip',0
  69. end if
  70.  db 0
  71. rb 256-($-filename)
  72. I_END:
  73.  
  74. if SYS eq win
  75.     cr_lf db 0xa,0xd
  76.     hnd dd ?
  77.     cons  dd ?
  78.     cons_in dd ?
  79.     cparam1 dd ?
  80.     cparam2 dd ?
  81. end if
  82.  
  83. DKeys rd 3
  84. Dheader rb 12
  85. Dpassword rb PASSW_LEN
  86.  
  87. png_     dd ?
  88. fat_     dd ?
  89. fat_fnum dd ?
  90. lpath    dd ?
  91. lpath_len dd ?
  92. png_bpp  dd ?
  93. sline_len dd ?
  94. IDATcount  dd ?
  95. IDATsize  dd ?
  96. PNG_info:
  97.             .Width dd ?
  98.             .Height dd ?
  99.             .Bit_depth db ?
  100.             .Color_type db ?
  101.             .Compression_method db ?
  102.             .Filter_method db ?
  103.             .Interlace_method db ?
  104.             .Palette rb 3*256
  105. gpbf dw ?
  106. file_count dd ?
  107. filters rd 6
  108. arc_base dd ?
  109. outp  dd ?
  110. unp_size  dd ?
  111. CRC_check dd ?
  112. CRC32 dd ?
  113. CRC32table rd 256
  114. Adler32 dd ?
  115. child dd ?
  116. clientPID dd ?
  117.  
  118. filesize dd ?
  119. bits db ?
  120. cur_byte dd ?
  121. lastblk db ?
  122. Flags dd ?
  123. tblCount dw ?
  124. tblLen dw ?
  125. hclen db ?
  126. max_len dw ?
  127.  
  128. fat:
  129.   rb 4096;512
  130. child_stack:
  131.   rb 1024
  132. main_stack:
  133. area:
  134.  rb INBUF
  135. os_work rb 4*1024
  136.  
  137. bl_count rb BITS
  138.  
  139. next_code rw BITS
  140. tmp_clit:
  141.     rw 20
  142. calph:
  143.     rw 20
  144. sorted_clit rw 20
  145.  
  146. seql_c db ?
  147. seql rb BITS
  148.  
  149. seqd_c db ?
  150. seqd rb BITS
  151.  
  152. hlit dw ?
  153. Literal rw 286
  154. Lit_c rw 286
  155.  
  156. hdist db ?
  157. Distance rw 32
  158. Dist_c rw 32
  159.  
  160. output:
  161. ;rb OUTBUF
  162.  
  163. ;png_image:
  164. if SYS eq win
  165.   rb OUTBUF
  166. end if
  167.