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