Subversion Repositories Kolibri OS

Rev

Rev 111 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
31 halyavin 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
131 diamond 64
  end if
31 halyavin 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
 
131 diamond 87
png_     dd ?
88
fat_     dd ?
89
fat_fnum dd ?
90
lpath    dd ?
91
lpath_len dd ?
31 halyavin 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
 
131 diamond 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
 
31 halyavin 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:
131 diamond 161
;rb OUTBUF
31 halyavin 162
 
131 diamond 163
;png_image:
31 halyavin 164
if SYS eq win
165
  rb OUTBUF
166
end if