diff options
Diffstat (limited to 'Source/IFFLib.S')
| -rw-r--r-- | Source/IFFLib.S | 44 |
1 files changed, 21 insertions, 23 deletions
diff --git a/Source/IFFLib.S b/Source/IFFLib.S index 9361edb..9d0348f 100644 --- a/Source/IFFLib.S +++ b/Source/IFFLib.S @@ -1,11 +1,10 @@ ** -** $Id: IFFLib.S,v 22.1 92/06/02 16:49:02 chris Exp $ -** $Revision: 22.1 $ +** $Id: IFFLib.S,v 22.2 92/06/03 23:46:04 chris Exp $ +** $Revision: 22.2 $ ** ** $Filename: IFFLib.S $ ** $Author: chris $ -** $Release: 19.1 $ -** $Date: 92/06/02 16:49:02 $ +** $Date: 92/06/03 23:46:04 $ ** ** Disk-resident library for simple IFF file I/O. Does not handle ** nested PROPs and CATs. Contains special ILBM support routines. @@ -55,8 +54,11 @@ SECTION text,CODE * PP_VERSION +* DELEXP ; Wenn definiert wird Delayed Expunge unterstützt + INCLUDE "IFFLib.i" + INCLUDE "IFF_rev.i" XREF FindOurNode ; Error-Node finden @@ -86,21 +88,12 @@ IFD PP_VERSION VERSION: EQU 101 ; D0 bei OpenLibrary REVISION: EQU 4 ; jedesmal um 1 erhöhen - ELSE -VERSION: EQU 22 ; D0 bei OpenLibrary -REVISION: EQU 2 ; jedesmal um 1 erhöhen ENDC ***************************************************************************** ** Diese Routine wird aufgerufen wenn man iff.library als Programm startet -FirstByte: - bra.b 1$ - dc.b "CHW!" -1$: - *** wird aufgerufen, wenn mann die Library vom CLI aus startet - - lea DOSName(PC),a1 ; dos.library öffnen +FirstByte: lea DOSName(PC),a1 ; dos.library öffnen movea.l 4.W,a6 JSRLIB OldOpenLibrary movea.l d0,a6 ; DosBase @@ -108,16 +101,12 @@ FirstByte: move.l d0,d1 ; file: stdout lea MyLibInfo(PC),a0 ; Adresse des ID-Strings move.l a0,d2 - IFD PP_VERSION - moveq.l #67,d3 ; Länge des ID-Strings - ELSE - moveq.l #42,d3 ; Länge des ID-Strings - ENDC + moveq.l #MyLibInfoEnd-MyLibInfo,d3 ; Länge des ID-Strings JSRLIB Write movea.l a6,a1 movea.l 4.W,a6 JSRLIB CloseLibrary ; For Chris - moveq.l #5,d0 ; return-code: WARN + moveq.l #10,d0 ; return-code: ERROR rts ***************************************************************************** @@ -137,9 +126,14 @@ MyROMTag: DC.W RTC_MATCHWORD IFD PP_VERSION MyLibName: DC.B "iffpp.library",0 MyLibInfo: DC.B "IFFPP 101.4 (03.06.92) Copyright © 1990-1992 by Christian A. Weber",10,13,0 +MyLibInfoEnd: ELSE MyLibName: DC.B "iff.library",0 -MyLibInfo: DC.B "IFF 22.2 (03.06.92) by Christian A. Weber",10,13,0 +MyLibInfo: VERS + DC.B " (" + DATE + DC.B ") (-: by Christian A. Weber :-)",13,10,0 +MyLibInfoEnd: ENDC DOSName: DC.B "dos.library",0 @@ -294,12 +288,13 @@ CloseFunc: movem.l a2/a5-a6,-(SP) moveq.l #0,d0 ; return-code subq.w #1,LIB_OPENCNT(a6) + IFD DELEXP bne.b 2$ ; jemand hat sie noch offen - btst.b #LIBB_DELEXP,LIB_FLAGS(a6) ; haben wir delayed Expunge? beq.b 2$ ; neenee ---> bsr.b ExpungeFunc ; sonst Expunge 2$: + ENDC rts ; Library ist jetzt zu ***************************************************************************** @@ -311,7 +306,9 @@ ExpungeFunc: movem.l d2/a5-a6,-(SP) tst.w LIB_OPENCNT(a5) ; sind wir noch offen? beq.b 1$ ; nein + IFD DELEXP bset.b #LIBB_DELEXP,LIB_FLAGS(a5) + ENDC moveq.l #0,d0 ; return-code bra.b 99$ 1$: @@ -326,9 +323,10 @@ ExpungeFunc: movem.l d2/a5-a6,-(SP) moveq.l #0,d0 movea.l a5,a1 ; LibPtr move.w LIB_NEGSIZE(a5),d0 ; Grösse der Sprungtabelle - sub.w d0,a1 ; A1 := Anfang der Sprungtab. + suba.w d0,a1 ; A1 := Anfang der Sprungtab. add.w LIB_POSSIZE(a5),d0 ; D0 := Lib-Grösse gesamt JSRLIB FreeMem ; freigeben + move.l d2,d0 ; return-code: Segmentliste 99$: movem.l (SP)+,d2/a5-a6 |