summaryrefslogtreecommitdiff
path: root/Source/DecompressBlock.S
blob: 54f2fecf601acede09fd0d6bbf912408e1dbbeaa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
**
**	$Id: DecompressBlock.S,v 2.1 92/05/13 01:48:41 chris Exp $
**	$Revision: 2.1 $
**
**	$Filename: DecompressBlock.S $
**	$Author: chris $
**	$Release: $
**	$Date: 92/05/13 01:48:41 $
**
**	iff.library/IFFL_DecompressBlock
**
**	COPYRIGHT (C) 1987-1992 BY CHRISTIAN A. WEBER, BRUGGERWEG 2,
**	CH-8037 ZUERICH, SWITZERLAND.  ALL RIGHTS RESERVED.  NO PART
**	OF THIS SOFTWARE MAY BE COPIED, REPRODUCED,  OR  TRANSMITTED
**	IN ANY FORM OR BY ANY MEANS,  WITHOUT THE PRIOR WRITTEN PER-
**	MISSION OF THE AUTHOR. USE AT YOUR OWN RISK.
**


		IDNT	IFFL_DecompressBlock
		SECTION	text,CODE

		INCLUDE	"IffLib.i"

		XREF	ClearError
		XDEF	DecompressBlockFunc


******* iff.library/IFFL_DecompressBlock ************************************
*
*    NAME
*	IFFL_DecompressBlock -- Decompress a memory block
*
*    SYNOPSIS
*	result = IFFL_DecompressBlock( source, destination, size, mode )
*	                               A0      A1           D0    D1
*
*	ULONG IFFL_DecompressBlock( APTR, APTR, ULONG, ULONG )
*
*    FUNCTION
*	Decompress the memory block using the appropriate Decompression mode.
*	If the Decompressed data would become longer than the unDecompressed,
*	an error is returned.
*
*    INPUTS
*	source      - Pointer to data to decompress
*	destination - Target address for decompression
*	size        - Number of data bytes to decompress
*	mode        - Compression mode. Currently, the following modes
*	              are supported:
*	              $$$
*
*    RESULTS
*	Length of uncompressed data or 0 if an error occurred.
*
*    SEE ALSO
*	IFFL_CompressBlock()
*
*****************************************************************************

DecompressBlockFunc:
		tst.l	d1		; Modus == 0 ?
		beq.b	Mode_Copy
		subq.l	#1,d1		; Modus == 1 ?
		beq.b	Mode_CmpByteRun1
		moveq.l	#0,d0
		rts

*****************************************************************************
**	Kopiermodus

Mode_Copy:	movem.l	d0/a6,-(SP)
		movea.l	iffb_SysBase(a6),a6
		JSRLIB	CopyMem
		movem.l	(SP)+,d0/a6
		rts

*****************************************************************************
**	CmpByteRun1 dekomprimieren

Mode_CmpByteRun1:
		move.l	d2,-(SP)

1$:		moveq.l	#0,d1
		move.b	(a0)+,d1	; D1 :  nächstes Kommando-Byte
		bmi.b	2$		; crunched --->

.CopyLoop:	move.b	(a0)+,(a1)+	; D1+1 Bytes normal kopieren
		subq.l	#1,d0		; DEC length counter
		dble	d1,.CopyLoop
		bra.b	3$		; --->
2$:
		neg.b	d1
		bmi.b	3$		; ~$80 (== $80) ist 'NOP'
		move.b	(a0)+,d2	; Zu repetierender Wert
.RepLoop:	move.b	d2,(a1)+
		subq.l	#1,d0		; DEC ColumnCounter
		dble	d1,.RepLoop
3$:
		tst.l	d0		; Linie fertig ? (Braucht's das tst??)
		bgt.b	1$		; noch nicht ---> Loop

		move.l	(SP)+,d2
		rts

		END