;************************************************************************* ;** mmu.library ** ;** ** ;** a system library for arbitration and control of the MC68K MMUs ** ;** ** ;** © 1998 THOR-Software, Thomas Richter ** ;** No commercial use, reassembly, modification without prior, written ** ;** permission of the authors. ** ;** Including this library in any commercial software REQUIRES a ** ;** written permission and the payment of a small fee. ** ;** ** ;** This is an internal header file, do not depend on anything here. ** ;** Use the official include files. ** ;** Distributed only for the mmu.library development group for private ** ;** use. ** ;** ** ;**---------------------------------------------------------------------** ;** Block: The library base ** ;** Initializisation and basic jump vectors of the mmu.library ** ;************************************************************************* ;FOLD Includes include INC:macros.asm include mu_lib.i include mu_version.i include mu_alerts.i include mu_context.i ;we include just the offsets. ;I personally hate to write _LVO all the time, this is stripped ;in this file. include INC:exec_lib.asm ;ENDFOLD ;FOLD External References xref DetectMMUType xref AllocAligned xref MUCreatePool xref MUDeletePool xref AllocContext xref BuildDefaultTable xref LockContext xref UnlockContext xref AllocContextMem xref FreeContextMem xref Init851 xref Init030 xref Init040 xref Init060 ;ENDFOLD ;FOLD Defines ;I'm again too lazy to include the complete exec/execbase.i. ;Here just what I need: AttnFlags = $128 ;ENDFOLD section main_code,code ;FOLD DOS Entry ;************************************************* ;** DOS Entry ** ;** Since this is not supposed to be executable,** ;** we return -1. This is an indicator for the ** ;** shell not to execute it. ** ;************************************************* DosEntry: moveq #-1,d0 rts ;ENDFOLD ;FOLD Resident ;************************************************* ;** Resident ** ;** the resident structure of this library ** ;** used for the autoinit function ** ;************************************************* Resident: dc.w $4afc ;MatchWord dc.l Resident ;Back pointer dc.l 0 ;no endskip dc.b $80 ;add to the system, do not jump in dc.b Version ;version nummer dc.b NT_LIBRARY ;this is a library dc.b 0 ;priority dc.l MMUName ;name of the library dc.l IDString ;ID string dc.l Init ;pointer to the init data section main_data,data ;we continue in the data ;segment for consitency Init: dc.l mulib_len ;size of the library dc.l FuncInit ;jump vector init data, below dc.l 0 ;no structinit. I can't stand this mess dc.l LibInit ;library init vector ;ENDFOLD ;FOLD FuncInit ;************************************************* ;** FuncInit ** ;** Library jump vector inits ** ;************************************************* FuncInit: dc.l OpenMULib dc.l CloseMULib dc.l ExpungeMULib dc.l ExtFunc ;Extended function, unused ;Library functions follow here dc.l AllocAligned dc.l GetMapping dc.l ReleaseMapping dc.l GetPageSize dc.l GetMMUType dc.l GetMMUConfig dc.l ReleaseMMUConfig dc.l -1 ;ENDFOLD section main_code,code ;FOLD Stub routines, reserved routines etc. opt c+ xdef ___stub ___stub: opt c- ExtFunc: ReservedVector: moveq #0,d0 rts ;ENDFOLD ;FOLD MUAlert ;************************************************* ;** Alert routine ** ;** Alerts with the alert ID on the stack ** ;** this long word is removed automagically ** ;************************************************* xdef MUAlert MUAlert: saveregs d0-d1/d7/a0-a1/a5-a6 move.l $20(a7),d7 ;get alert code move.l mulib_CurrentContext(a6),a5 ;this as parameter move.l mulib_SysBase(a6),a6 jsr Alert(a6) loadregs move.l (a7)+,(a7) rts ;ENDFOLD ;FOLD LibInit ;************************************************* ;** LibInit ** ;** the Library Init vector ** ;** we're called like this: ** ;** Library base in d0, ExecBase in a6 ** ;** BPTR segment in a0 ** ;** ** ;** We must return the initialized library base ** ;** in d0, or NULL in case of a failure ** ;************************************************* LibInit: saveregs d2/a4/a6 move.l d0,a4 move.l a6,mulib_SysBase(a4) ;keep SysBase move.l a0,mulib_Segment(a4) move.b 1+AttnFlags(a6),mulib_AttnFlags(a4) ;copy AttnFlags move.b #NT_LIBRARY,mulib_type(a4) ;type is library move.b #(1<Base Mem moveq #0,d0 moveq #0,d1 move.w mulib_negsize(a1),d0 ;NegSize->d0 move.w mulib_possize(a1),d1 ;Possize->d1 sub.l d0,a1 ;*Mem add.l d1,d0 ;mem total jsr FreeMem(a6) ;release move.l (a7)+,d0 ;restore segment loadregs .exit: rts ;ENDFOLD ;** Function entries ;FOLD GetMapping ;************************************************* ;** GetMapping ** ;** get for the ctx *a0 or the default ctx ** ;** if *a0==NULL the mapping. Lock the context ** ;************************************************* GetMapping: move.l a0,d0 bne.s .nodefault move.l mulib_DefaultContext(a6),a0 .nodefault: bsr LockContext lea ctx_Mapping(a0),a0 move.l a0,d0 rts ;ENDFOLD ;FOLD ReleaseMapping ;************************************************* ;** ReleaseMapping ** ;** release the mapping of context *a0 ** ;** or the default context if NULL ** ;************************************************* ReleaseMapping: move.l a0,d0 bne.s .nodefault move.l mulib_DefaultContext(a6),a0 .nodefault: bsr UnlockContext rts ;ENDFOLD ;FOLD GetPageSize ;************************************************* ;** GetPageSize ** ;** Return the page size of the MMU ** ;************************************************* GetPageSize: move.l mulib_PageSize(a6),d0 rts ;ENDFOLD ;FOLD GetMMUType ;************************************************* ;** GetMMUType ** ;** return the type of the MMU installed ** ;************************************************* GetMMUType: moveq #0,d0 move.b mulib_MMUType(a6),d0 rts ;ENDFOLD ;FOLD GetMMUConfig ;************************************************* ;** GetMMUConfig ** ;** read the MMU hardware registers. ** ;** should be handled with care ** ;************************************************* GetMMUConfig: move.l #mcf_len,d0 bsr AllocContextMem ;get memory for the configuration beq.s .exit move.l d0,-(a7) move.l d0,a0 jsr mulib_ReadConfig(a6) ;fill in the MMU configuration move.l (a7)+,d0 .exit: rts ;ENDFOLD ;FOLD ReleaseMMUConfig ;************************************************* ;** ReleaseMMUConfig ** ;** release the MMU information ** ;************************************************* ReleaseMMUConfig: move.l a1,d0 beq.s .noconfig bsr FreeContextMem .noconfig: rts ;ENDFOLD section main_data,data ;FOLD Strings xdef MMUName MMUName: dc.b "mmu.library",0 UtilityName: dc.b "utility.library",0 ExpansionName: dc.b "expansion.library",0 MC68040Name: dc.b "68040.library",0 MC68060Name: dc.b "68060.library",0 dc.b "$VER: " IDString: dc.b "mmu " TextVersion dc.b " " TextDate dc.b " (c) 1998 The MMU.lib development group, THOR",$0a,$0d,0 ;ENDFOLD ;