Subversion Repositories Kolibri OS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
6725 siemargl 1 
#
2 
;===========================================================================
3 
; Copyright (c) 1990-2000 Info-ZIP.  All rights reserved.
4 
;
5 
; See the accompanying file LICENSE, version 2000-Apr-09 or later
6 
; (the contents of which are also included in unzip.h) for terms of use.
7 
; If, for some reason, all these files are missing, the Info-ZIP license
8 
; also may be found at:  ftp://ftp.info-zip.org/pub/infozip/license.html
9 
;===========================================================================
10 
 
11 
.globl _qlflag
12 
.globl _qlwait
13 
#ifdef ZIP
14 
.globl _dtype
15 
#endif
16 
 
17 
.data
18 
        ds.w    0
19 
        dc.b    '<>01'
20 
#ifdef ZIP
21 
        dc.w    8
22 
        dc.b    'Info-ZIP'
23 
*                12345678901234567890
24 
        ds.w    0
25 
        dc.w    3
26 
        dc.b    '?.?'
27 
        ds.w    0
28 
#else
29 
        dc.w    10
30 
        dc.b    'Info-UNZIP'
31 
*                12345678901234567890
32 
        ds.w    0
33 
        dc.w    3
34 
        dc.b    '?.?'
35 
        ds.w    0
36 
#endif
37 
        dc.b    10
38 
        dc.b    0
39 
l_4:    dc.w    _qlwait-l_4
40 
        dc.w    0
41 
        dc.w    0
42 
l_5:    dc.w    hpt-l_5
43 
l_6:    dc.w    hxx-l_6
44 
 
45 
#ifdef ZIP
46 
        dc.b    10
47 
        dc.b    0
48 
d_4:    dc.w    _dtype-d_4
49 
        dc.w    0
50 
        dc.w    0
51 
d_5:    dc.w    dpt-d_5
52 
d_6:    dc.w    dxx-d_6
53 
 
54 
#else
55 
        dc.b    4
56 
        dc.b    0
57 
l5:
58 
        dc.w    list1-l5
59 
        dc.w    0
60 
l5a:
61 
        dc.w    Postit-l5a              ; post proc
62 
l6:
63 
        dc.w    apt-l6
64 
l7:
65 
        dc.w    axx-l7
66 
* -------------------------------------
67 
        dc.b    4
68 
        dc.b    0
69 
l8:
70 
        dc.w    list2-l8
71 
        dc.w    0
72 
l8a:
73 
        dc.w    Postit-l8a              ; post proc
74 
l9:
75 
        dc.w    bpt-l9
76 
la:
77 
        dc.w    bxx-la
78 
* -------------------------------------
79 
#endif
80 
        dc.w    -1                          ; end
81 
 
82 
_qlflag:
83 
        dc.w    0
84 
_qlwait:
85 
        dc.w    250
86 
_dtype:
87 
        dc.w    255
88 
 
89 
hpt:    dc.w    10
90 
        dc.b    'Exit Delay'
91 
*                12345678901234567890
92 
        ds.w    0
93 
hxx:    dc.w    0
94 
        dc.w    $ffff
95 
        dc.w    -1
96 
#ifdef  ZIP
97 
dpt:    dc.w    14
98 
        dc.b    'Directory Type'
99 
*                12345678901234567890
100 
        ds.w    0
101 
dxx:    dc.w    3
102 
        dc.w    $ff
103 
        dc.w    -1
104 
#else
105 
 
106 
list1:
107 
        dc.b    0
108 
list2:
109 
        dc.b    0
110 
 
111 
apt:
112 
        dc.w    11
113 
        dc.b    'Unpack Mode'
114 
*                12345678901234567890
115 
.even
116 
axx:    dc.b    0
117 
        dc.b    0
118 
        dc.w    8
119 
        dc.b    'SMS/QDOS'
120 
.even
121 
        dc.b    1
122 
        dc.b    0
123 
        dc.w    7
124 
        dc.b    'Default'
125 
.even
126 
        dc.w    -1
127 
.even
128 
bpt:
129 
        dc.w    12
130 
        dc.b    'Listing Mode'
131 
*                12345678901234567890
132 
.even
133 
bxx:
134 
        dc.w    0
135 
        dc.w    7
136 
        dc.b    'Default'
137 
.even
138 
        dc.b    2
139 
        dc.b    0
140 
        dc.w    8
141 
        dc.b    'SMS/QDOS'
142 
*                12345678901234567890
143 
.even
144 
         dc.w    -1
145 
Postit:
146 
        lea.l   _qlflag,a0
147 
        move.b  list1,d0
148 
        move.b  d0,(a0)
149 
        move.b  list2,d0
150 
        or.b    d0,(a0)
151 
        moveq   #0,d0
152 
        rts
153 
#endif
154 
        end