** library2.asm ** 000616 ; exactly as library.asm except ; this one opens all libraries; ; exec, dos, intui, gfx, util... ; (and closes them!) ; seems to be around 184 bytes larger then library.asm ... INCDIR "cinc:" INCLUDE "exec/initializers.i" INCLUDE "exec/libraries.i" INCLUDE "exec/resident.i" incdir "ainc:" include "lib/exec.i" include "lib/dos.i" ****** globals ****** xdef _SysBase xdef _DOSBase xdef _IntuitionBase xdef _GfxBase xdef _UtilityBase xdef _arg xdef _stdin xdef _stdout xdef _exception xdef _exceptioninfo xdef _LITTEL xdef _G1 xdef _G2 xdef _G3 xdef _G4 ****** the four required userfunctions imported from main binary ****** xref init xref open xref close xref expunge ****** theese are imported from main binary ****** xref Lib.VERSION xref Lib.REVISION xref Lib.Name xref Lib.IDString xref Lib.funcTable ****** linker ..hmm.. what its called-- *** xref _DATA_BAS_ ***** export theese to main binary **** xdef Lib.Open xdef Lib.Close xdef Lib.Expunge xdef Lib.Extfunc ***** we dont care much for poor 68000 do we ? ***** MACHINE 68020 **** smalldata, ofcource **** near A4,-1 code *********************************************** Lib.Prevent: MoveQ #-1,d0 rts *********************************************** Lib.RomTag: ;STRUCTURE RT,0 dc.w RTC_MATCHWORD ; UWORD RT_MATCHWORD dc.l Lib.RomTag ; APTR RT_MATCHTAG dc.l Lib.EndCode ; APTR RT_ENDSKIP dc.b RTF_AUTOINIT ; UBYTE RT_FLAGS dc.b Lib.VERSION ; UBYTE RT_VERSION dc.b NT_LIBRARY ; UBYTE RT_TYPE dc.b 0 ; BYTE RT_PRI dc.l Lib.Name ; APTR RT_NAME dc.l Lib.IDString ; APTR RT_IDSTRING dc.l Lib.InitTable ; APTR RT_INIT ************************************************ Lib.InitTable: dc.l 34 ;LIB_SIZEOF ; size of library base data, sizeof(struct Library) dc.l Lib.funcTable ; pointer function pointer table below dc.l Lib.dataTable ; pointer to the library data initializer table dc.l Lib.initRoutine ; routine to run ************************************************ Lib.dataTable: INITBYTE LN_TYPE,NT_LIBRARY INITLONG LN_NAME,Lib.Name INITBYTE LIB_FLAGS,LIBF_SUMUSED!LIBF_CHANGED INITWORD LIB_VERSION,Lib.VERSION INITWORD LIB_REVISION,Lib.REVISION INITLONG LIB_IDSTRING,Lib.IDString dc.l 0 ************************************************ Lib.initRoutine: ; (segment list:a0, libbase:d0) * save all regs * movem.l d1-d7/a0-a6, -(a7) * smalldata * lea _DATA_BAS_, a4 ;init smalldata (task shared) lea 32766(a4), a4 ; move.l a4, littel_a4 ; * save seglist * move.l a0, _seglist(a4) * save libbase * move.l d0, _libbase(a4) * open sysbase * move.l 4, a6 move.l a6, _SysBase(A4) * open dos * lea dosname(pc), a1 move.l #37, d0 jsr OpenLibrary(a6) move.l D0, _DOSBase(A4) beq init_error ;error ? * open gfx * lea gfxname(pc), a1 move.l #37, d0 ;gfx ver 37 jsr OpenLibrary(A6) ;open gfx move.l d0, _GfxBase(A4) ; save in _graphicsBase beq init_error ;error? * open intuition * lea intuitionname(pc), A1 move.l #37, D0 ;intuition v 37 jsr OpenLibrary(a6) ; open intuition move.l d0, _IntuitionBase(A4) ; save in _inuitionBase beq init_error * open utility * lea utilityname(pc), A1 move.l #37, d0 jsr OpenLibrary(a6) move.l d0, _UtilityBase(A4) beq init_error ;---- user init ---- ;* save all regs * ;movem.l d1-d7/a0-a6, -(a7) ;* get global access * ;move.l littel_a4, a4 * call user init * bsr init ;* restore all regs * ;movem.l (a7)+, d1-d7/a0-a6 * check if it went okey * tst.l d0 * on error, do something about it! * beq init_error ;------------------------- ; * get libbase in d0, it means it went ok * move.l _libbase(a4), d0 bra init_end init_error: * houston...we have a problem... * bsr cleanuplibs move.l #0, d0 init_end: * restore all regs * movem.l (a7)+, d1-d7/a0-a6 rts ************* cleanuplibs: movem.l a4/a6, -(a7) move.l littel_a4, a4 move.l _SysBase(a4), a6 move.l _IntuitionBase(A4), a1 jsr CloseLibrary(a6) move.l _DOSBase(A4), a1 jsr CloseLibrary(a6) move.l _GfxBase(A4), a1 jsr CloseLibrary(a6) move.l _UtilityBase(A4), a1 jsr CloseLibrary(a6) movem.l (a7)+, a4/a6 rts **************************************** ;--------------------------------------------- ; The four required functions: ; ****Assembler source code version**** ;--------------------------------------------- Lib.Open: ; (libptr:A6, version:D0) ; Increase the library's open counter addq.w #1,LIB_OPENCNT(a6) ; Clear delayed expunges (standard procedure) bclr #LIBB_DELEXP,LIB_FLAGS(a6) ;-------user open------------------- * save all regs * movem.l d1-d7/a0-a6, -(A7) * get global access * move.l littel_a4, a4 * call user open * bsr open * restore all regs * movem.l (a7)+, d1-d7/a0-a6 * check if okey * tst.l d0 * if not, we do something about it * beq open_error ;---------------------------- * Return library base, as a sign of success * move.l a6,d0 bra open_end open_error: * houston...well..you know... * move.l #0, d0 open_end: rts *************************************** Lib.Close: ; (libptr:a6) ;------user close------------ * save the damn regs * movem.l d1-d7/a0-a6, -(a7) * get the damn global access * move.l littel_a4, a4 * call the damn user close * bsr close * restore the damn regs * movem.l (a7)+, d1-d7/a0-a6 ;---------------------------- ; set the return value moveq #0,d0 ; Decrease the library's open counter subq.w #1,LIB_OPENCNT(a6) ; If there is anyone still open, return bne.s Lib.retlabel ; Is there a delayed expunge waiting? btst #LIBB_DELEXP,LIB_FLAGS(a6) beq.s Lib.retlabel ; Do the expunge! bsr Lib.Expunge ; returns the segment list Lib.retlabel: rts ************************************** Lib.Expunge: ; (libptr:a6) ; Is the library still open? tst.w LIB_OPENCNT(a6) beq Lib.notopen ; It is still open. set the delayed expunge flag ; and return zero bset #LIBB_DELEXP,LIB_FLAGS(a6) moveq #0,d0 rts ; return Lib.notopen: ; Get rid of us! ;-----user expunge---------------------- * save regs * movem.l d1-d7/a0-a6, -(a7) * get global access * move.l littel_a4, a4 * call user expunge * bsr expunge ;------------------------- bsr cleanuplibs ; Store our segment list in d2 move.l _seglist(a4),d2 move.l _SysBase(a4), a6 move.l _libbase(a4), a5 ; Unlink from library list move.l a5,a1 jsr Remove(a6) ; This removes our node from the list ; Free our memory moveq #0,d0 move.l a5,a1 move.w LIB_NEGSIZE(a5),d0 sub.l d0,a1 add.w LIB_POSSIZE(a5),d0 jsr FreeMem(a6) ; This frees the memory we occupied ; Return the segment list move.l d2,d0 * restore regs * movem.l (a7)+, d1-d7/a0-a6 rts ;---------------------------------- Lib.Extfunc: ; should return zero moveq #0,d0 rts xdef littel_a4 littel_a4: ds.l 1 even dosname: dc.b "dos.library",0 even gfxname: dc.b "graphics.library",0 even intuitionname: dc.b "intuition.library",0 even utilityname: dc.b "utility.library",0 ;data Lib.EndCode: xdef _SysBase, _DOSBase, _IntuitionBase, _GfxBase, _UtilityBase xdef _arg, _stdin, _stdout, _exception, _exceptioninfo xdef _LITTEL, _G1, _G2, _G3, _G4 BSS _SysBase: ds.l 1 _DOSBase: ds.l 1 _IntuitionBase: ds.l 1 _GfxBase: ds.l 1 _UtilityBase: ds.l 1 _arg: ; always NIL ds.l 1 _stdin: ; always NIL ds.l 1 _stdout: ; always NIL ds.l 1 _exception: ds.l 1 _exceptioninfo: ds.l 1 _LITTEL: ds.l 1 _reserved1: ds.l 1 _reserved2: ds.l 1 _G1: ds.l 1 _G2: ds.l 1 _G3: ds.l 1 _G4: ds.l 1 _seglist: ;not exported, just internal ds.l 1 _libbase: ;not exported, just internal ds.l 1 END