Subversion Repositories Kolibri OS

Rev

Rev 109 | Blame | 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_bpp  dd ?
  88. sline_len dd ?
  89. IDATcount  dd ?
  90. IDATsize  dd ?
  91. PNG_info:
  92.             .Width dd ?
  93.             .Height dd ?
  94.             .Bit_depth db ?
  95.             .Color_type db ?
  96.             .Compression_method db ?
  97.             .Filter_method db ?
  98.             .Interlace_method db ?
  99.             .Palette rb 3*256
  100. gpbf dw ?
  101. file_count dd ?
  102. filters rd 6
  103. arc_base dd ?
  104. outp  dd ?
  105. unp_size  dd ?
  106. CRC_check dd ?
  107. CRC32 dd ?
  108. CRC32table rd 256
  109. Adler32 dd ?
  110. child dd ?
  111. clientPID dd ?
  112.  
  113. filesize dd ?
  114. bits db ?
  115. cur_byte dd ?
  116. lastblk db ?
  117. Flags dd ?
  118. tblCount dw ?
  119. tblLen dw ?
  120. hclen db ?
  121. max_len dw ?
  122.  
  123. bl_count rb BITS
  124.  
  125. next_code rw BITS
  126. tmp_clit:
  127.     rw 20
  128. calph:
  129.     rw 20
  130. sorted_clit rw 20
  131.  
  132. seql_c db ?
  133. seql rb BITS
  134.  
  135. seqd_c db ?
  136. seqd rb BITS
  137.  
  138. hlit dw ?
  139. Literal rw 286
  140. Lit_c rw 286
  141.  
  142. hdist db ?
  143. Distance rw 32
  144. Dist_c rw 32
  145.  
  146.  
  147. area:
  148.  rb INBUF
  149.  
  150. os_work rb 4*1024
  151.  
  152. output:
  153. rb OUTBUF
  154.  
  155. png_image:
  156. if SYS eq win
  157.   rb OUTBUF
  158. end if
  159.