summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian A. Weber <chris@gna.ch>1992-05-15 03:23:52 +0000
committerChristian A. Weber <chris@gna.ch>1992-05-15 03:23:52 +0000
commit6f59b3d06fbda6695a495bc09c0607b20b0dd39b (patch)
tree4ec726c8895404bf507ceb28dd321371737cba2f
parent4d7e20375d6d2c13e31a270c51ee344f570d10af (diff)
downloadiff-library-6f59b3d06fbda6695a495bc09c0607b20b0dd39b.tar.gz
iff-library-6f59b3d06fbda6695a495bc09c0607b20b0dd39b.tar.bz2
iff-library-6f59b3d06fbda6695a495bc09c0607b20b0dd39b.zip
*** empty log message ***
-rw-r--r--Source/CompressBlock.S28
1 files changed, 14 insertions, 14 deletions
diff --git a/Source/CompressBlock.S b/Source/CompressBlock.S
index 14984ec..36bed53 100644
--- a/Source/CompressBlock.S
+++ b/Source/CompressBlock.S
@@ -1,13 +1,13 @@
**
-** $Id: $
-** $Revision: $
+** $Id: CompressBlock.S,v 2.1 92/05/13 01:48:05 chris Exp $
+** $Revision: 2.1 $
**
** $Filename: CompressBlock.S $
-** $Author: Christian A. Weber $
+** $Author: chris $
** $Release: $
-** $Date: 92/05/12 22:26:30 $
+** $Date: 92/05/13 01:48:05 $
**
-** iff.library/IFFLib_CompressBlock
+** iff.library/IFFL_CompressBlock
**
** COPYRIGHT (C) 1987-1992 BY CHRISTIAN A. WEBER, BRUGGERWEG 2,
** CH-8037 ZUERICH, SWITZERLAND. ALL RIGHTS RESERVED. NO PART
@@ -17,7 +17,7 @@
**
- IDNT IFFLib_CompressBlock
+ IDNT IFFL_CompressBlock
SECTION text,CODE
INCLUDE "IffLib.i"
@@ -26,16 +26,16 @@
XDEF CompressBlockFunc
-******* iff.library/IFFLib_CompressBlock ************************************
+******* iff.library/IFFL_CompressBlock **************************************
*
* NAME
-* IFFLib_CompressBlock -- Compress a memory block
+* IFFL_CompressBlock -- Compress a memory block
*
* SYNOPSIS
-* result = IFFLib_CompressBlock( source, destination, size, mode )
+* result = IFFL_CompressBlock( source, destination, size, mode )
* A0 A1 D0 D1
*
-* ULONG IFFLib_CompressBlock( APTR, APTR, ULONG, ULONG )
+* ULONG IFFL_CompressBlock( APTR, APTR, ULONG, ULONG )
*
* FUNCTION
* Compress the memory block using the appropriate compression mode.
@@ -54,7 +54,7 @@
* Length of compressed data or 0 if an error occurred.
*
* SEE ALSO
-* IFFLib_DecompressBlock()
+* IFFL_DecompressBlock()
*
*****************************************************************************
@@ -70,7 +70,7 @@ CompressBlockFunc:
** Kopiermodus
Mode_Copy: movem.l d0/a6,-(SP)
- movea.l ib_SysBase(a6),a6
+ movea.l iffb_SysBase(a6),a6
JSRLIB CopyMem
movem.l (SP)+,d0/a6
rts
@@ -135,8 +135,8 @@ CountEq: move.l a0,-(SP)
cmp.w #128,d0
bge.b 3$ ; höchstens 128 gleiche
addq.w #1,d0 ; Anzahl erhöhen
- cmpa.l a2,a0 ; Ende der Linie erreicht ?
- blt.b 2$ ; noch nicht -> weiterzählen
+ cmpa.l a2,a0 ; Ende des Buffers erreicht ?
+ blo.b 2$ ; noch nicht -> weiterzählen
3$: move.l (SP)+,a0
rts