diff options
| author | Christian A. Weber <chris@gna.ch> | 1992-05-18 02:22:57 +0000 |
|---|---|---|
| committer | Christian A. Weber <chris@gna.ch> | 1992-05-18 02:22:57 +0000 |
| commit | 8c719527e3ba9eed4beeed1cae8abe5c1d7ac42e (patch) | |
| tree | 3c46983f04557fd65470170a1936cf3306447799 | |
| parent | d704d4594eedc625a87890ca836f568cc8ecf1d8 (diff) | |
| download | iff-library-8c719527e3ba9eed4beeed1cae8abe5c1d7ac42e.tar.gz iff-library-8c719527e3ba9eed4beeed1cae8abe5c1d7ac42e.tar.bz2 iff-library-8c719527e3ba9eed4beeed1cae8abe5c1d7ac42e.zip | |
bumprev
| -rw-r--r-- | Source/IFFLib.S | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/Source/IFFLib.S b/Source/IFFLib.S index ae32a17..03a3b4a 100644 --- a/Source/IFFLib.S +++ b/Source/IFFLib.S @@ -1,11 +1,11 @@ ** -** $Id: IFFLib.S,v 21.1 92/05/15 03:22:54 chris Exp $ -** $Revision: 21.1 $ +** $Id: IFFLib.S,v 21.2 92/05/17 03:08:33 chris Exp $ +** $Revision: 21.2 $ ** ** $Filename: IFFLib.S $ ** $Author: chris $ ** $Release: 19.1 $ -** $Date: 92/05/15 03:22:54 $ +** $Date: 92/05/17 03:08:33 $ ** ** Disk-resident library for simple IFF file I/O. Does not handle ** nested PROPs and CATs. Contains special ILBM support routines. @@ -88,7 +88,7 @@ VERSION: EQU 100 ; D0 bei OpenLibrary REVISION: EQU 3 ; jedesmal um 1 erhöhen ELSE VERSION: EQU 21 ; D0 bei OpenLibrary -REVISION: EQU 2 ; jedesmal um 1 erhöhen +REVISION: EQU 3 ; jedesmal um 1 erhöhen ENDC ***************************************************************************** @@ -136,10 +136,10 @@ MyROMTag: DC.W RTC_MATCHWORD IFD PP_VERSION MyLibName: DC.B "iffpp.library",0 -MyLibInfo: DC.B "IFFPP 101.1 (16.05.92) Copyright © 1990-1992 by Christian A. Weber",10,0 +MyLibInfo: DC.B "IFFPP 101.3 (16.05.92) Copyright © 1990-1992 by Christian A. Weber",10,13,0 ELSE MyLibName: DC.B "iff.library",0 -MyLibInfo: DC.B "IFF 21.2 (16.05.92) by Christian A. Weber",10,0 +MyLibInfo: DC.B "IFF 21.3 (17.05.92) by Christian A. Weber",10,13,0 ENDC DOSName: DC.B "dos.library",0 @@ -220,10 +220,7 @@ InitRoutine: movem.l d0-d1/a0-a1/a5,-(SP) *** Error-Liste initialisieren lea iffb_ErrList(a5),a0 - move.l a0,(a0) ; NewList - addq.l #4,(a0) - clr.l 4(a0) - move.l a0,8(a0) + NEWLIST a0 movem.l (SP)+,d0-d1/a0-a1/a5 ; d0/a5 wiederherstellen rts ; Library jetzt benutzbar |