home *** CD-ROM | disk | FTP | other *** search
-
- ; Storm C Shared Library Startupcode
-
- ; Copyright 1996 HAAGE & PARTNER Computer GmbH
-
- ; This file contains only the tables for InitResident() and a definition of
- ; _SysBase (initialization is usually done by LibInit())
-
- ; The main work is done in storm.lib, there you find LibInit(),
- ; LibOpen(), LibClose(), LibExpunge() and LibNull() and you can simply
- ; override these (to support AREXX in LibNull for example).
-
- LINKSYS MACRO
- move.l a6,-(sp)
- move.l \2,a6
- jsr _LVO\1(a6)
- move.l (sp)+,a6
- ENDM
-
- CALLSYS MACRO
- JSR _LVO\1(a6)
- ENDM
-
-
- INCDIR WORK:ASM_Includes
-
- INCLUDE exec/initializers.i
- INCLUDE exec/libraries.i
- INCLUDE exec/resident.i
-
- XDEF _SysBase
-
- XREF _ThisLibraryName
- XREF __LIBRARYJUMPTABLE
- XREF _LibNameString
- XREF _LibVersionString
- XREF __VERSION
- XREF __REVISION
- XREF _LibInit
-
- XREF __THISSHAREDLIBRARYBASESIZE
-
- TTL "COMMON"
-
- ; Header
-
- Start
- moveq #-1,d0
- rts
-
- RomTag
- DC.W RTC_MATCHWORD
- DC.L RomTag
- DC.L EndCode
- DC.B RTF_AUTOINIT
- DC.B __VERSION
- DC.B NT_LIBRARY
- DC.B 0
- DC.L _LibNameString
- DC.L _LibVersionString
- DC.L InitTable
-
- CNOP 0,2
-
- InitTable
- DC.L __THISSHAREDLIBRARYBASESIZE
- DC.L __LIBRARYJUMPTABLE
- DC.L DataTable
- DC.L _LibInit
-
- DataTable
- INITBYTE LN_TYPE,NT_LIBRARY
- INITLONG LN_NAME,_LibNameString
- INITBYTE LIB_FLAGS,LIBF_SUMUSED|LIBF_CHANGED
- INITWORD LIB_VERSION,__VERSION
- INITWORD LIB_REVISION,__REVISION
- INITLONG LIB_IDSTRING,_LibVersionString
- DC.L 0
-
- EndCode
-
- SECTION "libstartupd",DATA
-
- _SysBase
- dc.l 0
-
- END
-