diff options
| author | Christian A. Weber <chris@gna.ch> | 1992-05-15 03:21:10 +0000 |
|---|---|---|
| committer | Christian A. Weber <chris@gna.ch> | 1992-05-15 03:21:10 +0000 |
| commit | e556b972d1ad64453b3372b486191e2a59c91dda (patch) | |
| tree | 4eb9264758c36cc75cdcf8daf8dde1517d77cb6a /Source/SaveClip.S | |
| parent | 36c824864c02f0a3f62c8a1d365d1670835c8c96 (diff) | |
| download | iff-library-e556b972d1ad64453b3372b486191e2a59c91dda.tar.gz iff-library-e556b972d1ad64453b3372b486191e2a59c91dda.tar.bz2 iff-library-e556b972d1ad64453b3372b486191e2a59c91dda.zip | |
An neue Include-Files angepasst
Diffstat (limited to 'Source/SaveClip.S')
| -rw-r--r-- | Source/SaveClip.S | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/Source/SaveClip.S b/Source/SaveClip.S index eb2fbaf..ecc4925 100644 --- a/Source/SaveClip.S +++ b/Source/SaveClip.S @@ -1,13 +1,13 @@ ** -** $Id: $ -** $Revision: $ +** $Id: SaveClip.S,v 1.1 92/05/12 22:26:45 chris Exp $ +** $Revision: 1.1 $ ** ** $Filename: SaveClip.S $ -** $Author: Christian A. Weber $ +** $Author: chris $ ** $Release: 19.1 $ -** $Date: 92/05/11 21:11:27 $ +** $Date: 92/05/12 22:26:45 $ ** -** iff.library/IFFLib_SaveClip +** iff.library/IFFL_SaveClip ** ** 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_SaveClip + IDNT IFFL_SaveClip SECTION text,CODE INCLUDE "IFFLib.i" @@ -26,13 +26,13 @@ XDEF SaveClipFunc -******* iff.library/IFFLib_SaveClip ***************************************** +******* iff.library/IFFL_SaveClip ******************************************* * * NAME -* IFFLib_SaveClip -- save a part of a BitMap as an IFF-file +* IFFL_SaveClip -- save a part of a BitMap as an IFF-file * * SYNOPSIS -* result = IFFLib_SaveClip +* result = IFFL_SaveClip * D0 ( filename, bitmap, coltab, flags, xoff, yoff, width, height ) * A0 A1 A2 D0 D1 D2 D3 D4 * @@ -54,18 +54,18 @@ * height - height in lines of the rectangle * * RESULTS -* Non-zero if successful, 0 if error, Call IFFLib_IFFError() to +* Non-zero if successful, 0 if error, Call IFFL_IFFError() to * know more about the reason of the failure * * NOTE -* This routine needs 620 bytes of stack space +* This routine needs 650 bytes of stack space * * BUGS * The width of the rectangle will be rounded to WORD boundaries, * because DPAINT wants it! * * SEE ALSO -* IFFLib_SaveBitMap() +* IFFL_SaveBitMap() * ***************************************************************************** @@ -191,7 +191,7 @@ SaveClipFunc: movem.l d2-d7/a2-a6,-(SP) nocmap: move.l d6,d1 ; FileName move.l #MODE_NEWFILE,d2 - movea.l ib_DOSBase(a5),a6 + movea.l iffb_DOSBase(a5),a6 JSRLIB Open move.l d0,d7 ; D7 : FileHandle beq writeerror @@ -268,7 +268,7 @@ nocmap: move.l d6,d1 ; FileName writeerror: move.l d7,d1 ; File beq.s 1$ ; schon / nochzu! JSRLIB Close -1$: moveq #IFF_WRITEERROR,d0 +1$: moveq #IFFL_ERROR_WRITE,d0 bsr SetError ; Error setzen, D0 := 0 SaveClip_End: adda.w #sb_datasize,SP ; Speicher wirder freigeben @@ -487,4 +487,5 @@ CountEq: move.l a0,-(SP) 3$: move.l (SP)+,a0 rts + END |