forked from KolibriOS/kolibrios
159 lines
2.6 KiB
PHP
159 lines
2.6 KiB
PHP
; @RCHER data area
|
|
; Written in pure assembler by Ivushkin Andrey aka Willow
|
|
|
|
if SYS eq win
|
|
dumpfile:
|
|
db 'D:\Ivushkin\projects\zip\output.dmp',0
|
|
dumpf_len=$-dumpfile
|
|
end if
|
|
outfile:
|
|
if SYS eq win
|
|
db 'D:\Ivushkin\projects\zip\output.raw',0
|
|
end if
|
|
dd 1
|
|
dd 0
|
|
.size dd 0
|
|
.out dd output
|
|
dd os_work
|
|
if ~SYS eq win
|
|
dumpfile:
|
|
db DUMPFILE,0
|
|
dumpf_len=$-dumpfile
|
|
end if
|
|
Finfo:
|
|
dd 0
|
|
.block dd 0
|
|
.count dd BUFSIZE*2
|
|
.ptr dd BUFPTR
|
|
dd os_work
|
|
|
|
filename:
|
|
if SYS eq win
|
|
db 'png\absolut0.png',0
|
|
;db 'fasm-1.54.tgz',0
|
|
;include 'testsu~1.inc'
|
|
; db 'pngsuite\pngsuite.tar.gz',0 ; OK
|
|
; db 'pngsuite\basn4a08.png',0 ; OK
|
|
; db 'goldhill.png',0 ; beeping
|
|
; db 'arl_logo.png',0 ; wrong out
|
|
; db 'tech.png',0 ; wrong out
|
|
; db 'png\lena0000.png',0
|
|
; db 'arcs\'
|
|
; db 'NTOSKRNL.gz'
|
|
; db 'msg_enc.zip'
|
|
;db 'msgplain.zip'
|
|
; db 'c_866.gz'
|
|
; db 'zalman_2.png' ;OK
|
|
; db 'arcs\headerbar.png',0 ;OK
|
|
; db 'fonts1.png' ;OK
|
|
; db 'fonts.png' ;
|
|
; db 'skin.png' ;OK
|
|
; db 'JavaPowered8.png'; OK
|
|
; db 'opr008S8.png'
|
|
; db 'goldhill.png'
|
|
; db 'k3b.png',0
|
|
; db 'image0051.png'
|
|
; db 'window-elements.png',0
|
|
; db 'WWW.zip',0
|
|
; db 'png.zip',0
|
|
; db 'zlib09.zip',0
|
|
|
|
else
|
|
if ~ FNAME eq
|
|
db FNAME
|
|
end if
|
|
; db '/hd/1/zip/png.zip',0
|
|
; db '/hd/1/zip/files/opossum.png'
|
|
; db '/rd/1/www.zip',0
|
|
; db '/hd/1/zip/test2.zip',0
|
|
end if
|
|
db 0
|
|
rb 256-($-filename)
|
|
I_END:
|
|
|
|
if SYS eq win
|
|
cr_lf db 0xa,0xd
|
|
hnd dd ?
|
|
cons dd ?
|
|
cons_in dd ?
|
|
cparam1 dd ?
|
|
cparam2 dd ?
|
|
end if
|
|
|
|
DKeys rd 3
|
|
Dheader rb 12
|
|
Dpassword rb PASSW_LEN
|
|
|
|
png_bpp dd ?
|
|
sline_len dd ?
|
|
IDATcount dd ?
|
|
IDATsize dd ?
|
|
PNG_info:
|
|
.Width dd ?
|
|
.Height dd ?
|
|
.Bit_depth db ?
|
|
.Color_type db ?
|
|
.Compression_method db ?
|
|
.Filter_method db ?
|
|
.Interlace_method db ?
|
|
.Palette rb 3*256
|
|
gpbf dw ?
|
|
file_count dd ?
|
|
filters rd 6
|
|
arc_base dd ?
|
|
outp dd ?
|
|
unp_size dd ?
|
|
CRC_check dd ?
|
|
CRC32 dd ?
|
|
CRC32table rd 256
|
|
Adler32 dd ?
|
|
child dd ?
|
|
clientPID dd ?
|
|
|
|
filesize dd ?
|
|
bits db ?
|
|
cur_byte dd ?
|
|
lastblk db ?
|
|
Flags dd ?
|
|
tblCount dw ?
|
|
tblLen dw ?
|
|
hclen db ?
|
|
max_len dw ?
|
|
|
|
bl_count rb BITS
|
|
|
|
next_code rw BITS
|
|
tmp_clit:
|
|
rw 20
|
|
calph:
|
|
rw 20
|
|
sorted_clit rw 20
|
|
|
|
seql_c db ?
|
|
seql rb BITS
|
|
|
|
seqd_c db ?
|
|
seqd rb BITS
|
|
|
|
hlit dw ?
|
|
Literal rw 286
|
|
Lit_c rw 286
|
|
|
|
hdist db ?
|
|
Distance rw 32
|
|
Dist_c rw 32
|
|
|
|
|
|
area:
|
|
rb INBUF
|
|
|
|
os_work rb 4*1024
|
|
|
|
output:
|
|
rb OUTBUF
|
|
|
|
png_image:
|
|
if SYS eq win
|
|
rb OUTBUF
|
|
end if
|