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    '<<QCFX>>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
39l_4:    dc.w    _qlwait-l_4
40        dc.w    0
41        dc.w    0
42l_5:    dc.w    hpt-l_5
43l_6:    dc.w    hxx-l_6
44
45#ifdef ZIP
46        dc.b    10
47        dc.b    0
48d_4:    dc.w    _dtype-d_4
49        dc.w    0
50        dc.w    0
51d_5:    dc.w    dpt-d_5
52d_6:    dc.w    dxx-d_6
53
54#else
55        dc.b    4
56        dc.b    0
57l5:
58        dc.w    list1-l5
59        dc.w    0
60l5a:
61        dc.w    Postit-l5a              ; post proc
62l6:
63        dc.w    apt-l6
64l7:
65        dc.w    axx-l7
66* -------------------------------------
67        dc.b    4
68        dc.b    0
69l8:
70        dc.w    list2-l8
71        dc.w    0
72l8a:
73        dc.w    Postit-l8a              ; post proc
74l9:
75        dc.w    bpt-l9
76la:
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
89hpt:    dc.w    10
90        dc.b    'Exit Delay'
91*                12345678901234567890
92        ds.w    0
93hxx:    dc.w    0
94        dc.w    $ffff
95        dc.w    -1
96#ifdef  ZIP
97dpt:    dc.w    14
98        dc.b    'Directory Type'
99*                12345678901234567890
100        ds.w    0
101dxx:    dc.w    3
102        dc.w    $ff
103        dc.w    -1
104#else
105
106list1:
107        dc.b    0
108list2:
109        dc.b    0
110
111apt:
112        dc.w    11
113        dc.b    'Unpack Mode'
114*                12345678901234567890
115.even
116axx:    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
128bpt:
129        dc.w    12
130        dc.b    'Listing Mode'
131*                12345678901234567890
132.even
133bxx:
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
145Postit:
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
155