forked from KolibriOS/kolibrios
155 lines
3.0 KiB
ArmAsm
155 lines
3.0 KiB
ArmAsm
|
#
|
||
|
|
;===========================================================================
|
||
|
|
; Copyright (c) 1990-2000 Info-ZIP. All rights reserved.
|
||
|
|
;
|
||
|
|
; See the accompanying file LICENSE, version 2000-Apr-09 or later
|
||
|
|
; (the contents of which are also included in unzip.h) for terms of use.
|
||
|
|
; If, for some reason, all these files are missing, the Info-ZIP license
|
||
|
|
; also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html
|
||
|
|
;===========================================================================
|
||
|
|
|
||
|
|
.globl _qlflag
|
||
|
|
.globl _qlwait
|
||
|
|
#ifdef ZIP
|
||
|
|
.globl _dtype
|
||
|
|
#endif
|
||
|
|
|
||
|
|
.data
|
||
|
|
ds.w 0
|
||
|
|
dc.b '<<QCFX>>01'
|
||
|
|
#ifdef ZIP
|
||
|
|
dc.w 8
|
||
|
|
dc.b 'Info-ZIP'
|
||
|
|
* 12345678901234567890
|
||
|
|
ds.w 0
|
||
|
|
dc.w 3
|
||
|
|
dc.b '?.?'
|
||
|
|
ds.w 0
|
||
|
|
#else
|
||
|
|
dc.w 10
|
||
|
|
dc.b 'Info-UNZIP'
|
||
|
|
* 12345678901234567890
|
||
|
|
ds.w 0
|
||
|
|
dc.w 3
|
||
|
|
dc.b '?.?'
|
||
|
|
ds.w 0
|
||
|
|
#endif
|
||
|
|
dc.b 10
|
||
|
|
dc.b 0
|
||
|
|
l_4: dc.w _qlwait-l_4
|
||
|
|
dc.w 0
|
||
|
|
dc.w 0
|
||
|
|
l_5: dc.w hpt-l_5
|
||
|
|
l_6: dc.w hxx-l_6
|
||
|
|
|
||
|
|
#ifdef ZIP
|
||
|
|
dc.b 10
|
||
|
|
dc.b 0
|
||
|
|
d_4: dc.w _dtype-d_4
|
||
|
|
dc.w 0
|
||
|
|
dc.w 0
|
||
|
|
d_5: dc.w dpt-d_5
|
||
|
|
d_6: dc.w dxx-d_6
|
||
|
|
|
||
|
|
#else
|
||
|
|
dc.b 4
|
||
|
|
dc.b 0
|
||
|
|
l5:
|
||
|
|
dc.w list1-l5
|
||
|
|
dc.w 0
|
||
|
|
l5a:
|
||
|
|
dc.w Postit-l5a ; post proc
|
||
|
|
l6:
|
||
|
|
dc.w apt-l6
|
||
|
|
l7:
|
||
|
|
dc.w axx-l7
|
||
|
|
* -------------------------------------
|
||
|
|
dc.b 4
|
||
|
|
dc.b 0
|
||
|
|
l8:
|
||
|
|
dc.w list2-l8
|
||
|
|
dc.w 0
|
||
|
|
l8a:
|
||
|
|
dc.w Postit-l8a ; post proc
|
||
|
|
l9:
|
||
|
|
dc.w bpt-l9
|
||
|
|
la:
|
||
|
|
dc.w bxx-la
|
||
|
|
* -------------------------------------
|
||
|
|
#endif
|
||
|
|
dc.w -1 ; end
|
||
|
|
|
||
|
|
_qlflag:
|
||
|
|
dc.w 0
|
||
|
|
_qlwait:
|
||
|
|
dc.w 250
|
||
|
|
_dtype:
|
||
|
|
dc.w 255
|
||
|
|
|
||
|
|
hpt: dc.w 10
|
||
|
|
dc.b 'Exit Delay'
|
||
|
|
* 12345678901234567890
|
||
|
|
ds.w 0
|
||
|
|
hxx: dc.w 0
|
||
|
|
dc.w $ffff
|
||
|
|
dc.w -1
|
||
|
|
#ifdef ZIP
|
||
|
|
dpt: dc.w 14
|
||
|
|
dc.b 'Directory Type'
|
||
|
|
* 12345678901234567890
|
||
|
|
ds.w 0
|
||
|
|
dxx: dc.w 3
|
||
|
|
dc.w $ff
|
||
|
|
dc.w -1
|
||
|
|
#else
|
||
|
|
|
||
|
|
list1:
|
||
|
|
dc.b 0
|
||
|
|
list2:
|
||
|
|
dc.b 0
|
||
|
|
|
||
|
|
apt:
|
||
|
|
dc.w 11
|
||
|
|
dc.b 'Unpack Mode'
|
||
|
|
* 12345678901234567890
|
||
|
|
.even
|
||
|
|
axx: dc.b 0
|
||
|
|
dc.b 0
|
||
|
|
dc.w 8
|
||
|
|
dc.b 'SMS/QDOS'
|
||
|
|
.even
|
||
|
|
dc.b 1
|
||
|
|
dc.b 0
|
||
|
|
dc.w 7
|
||
|
|
dc.b 'Default'
|
||
|
|
.even
|
||
|
|
dc.w -1
|
||
|
|
.even
|
||
|
|
bpt:
|
||
|
|
dc.w 12
|
||
|
|
dc.b 'Listing Mode'
|
||
|
|
* 12345678901234567890
|
||
|
|
.even
|
||
|
|
bxx:
|
||
|
|
dc.w 0
|
||
|
|
dc.w 7
|
||
|
|
dc.b 'Default'
|
||
|
|
.even
|
||
|
|
dc.b 2
|
||
|
|
dc.b 0
|
||
|
|
dc.w 8
|
||
|
|
dc.b 'SMS/QDOS'
|
||
|
|
* 12345678901234567890
|
||
|
|
.even
|
||
|
|
dc.w -1
|
||
|
|
Postit:
|
||
|
|
lea.l _qlflag,a0
|
||
|
|
move.b list1,d0
|
||
|
|
move.b d0,(a0)
|
||
|
|
move.b list2,d0
|
||
|
|
or.b d0,(a0)
|
||
|
|
moveq #0,d0
|
||
|
|
rts
|
||
|
|
#endif
|
||
|
|
end
|