;   TAG.ASM
            ;
            ;   Library tag.  This replaces the normal startup code, c.o,
            ;   but still must perform certain startup functions such as
            ;   the clearing of BSS and small-data model setup & auto
            ;   calls.  HOWEVER, we do not include any resident startup
            ;   code meaning you CANNOT compile the shared library -r
            ;   (which doesn't make sense to do anyway).
            ;
            ;   Further, no C startup or exit functions are included
            ;   since this is a library, not a normal program.  Refer
            ;   to the source code LIB/AMIGA/C.A for a fully operational
            ;   startup module.

;Prototype ALibExpunge(), ALibClose(), ALibOpen(), ALibReserved();

            section text,code

            xref    @LibInit
            xref    @LibOpen
            xref    @LibClose
            xref    @LibExpunge

            xdef    _ALibOpen
            xdef    _ALibClose
            xdef    _ALibExpunge
            xdef    _ALibReserved

            xref    __BSS_LEN           ; (dlink), length of BSS
            xref    __DATA_BAS          ; (dlink), base of initialized data
            xref    __DATA_LEN          ; (dlink), length of data


            xdef    _LibId
            xdef    _LibName

            moveq   #20,D0
            rts

InitDesc:   dc.w    $4AFC       ;RTC_MATCHWORD
            dc.l    InitDesc    ;Pointer to beginning
            dc.l    EndCode     ;Note sure it matters
            dc.b    0           ;flags (NO RTF_AUTOINIT)
            dc.b    37          ;version
            dc.b    9           ;NT_LIBRARY
            dc.b    0           ;priority (doesn't matter)
            dc.l    _LibName    ;Name of library
            dc.l    _LibId      ;ID string (note CR-LF at end)
            dc.l    @LibInit    ;Pointer to init routine

_LibName:   dc.b    'C_IE_Mod.generator',0
_LibId:     dc.b    'C_IE_Mod.generator 37.0 (15.2.96)',13,10,0
            ds.w    0
EndCode:

            ;   Assembly tags for other functions, assume a registered
            ;   C entry point

_ALibOpen
            move.l  A6,A0
            jmp     @LibOpen(pc)

_ALibClose
            move.l  A6,A0
            jmp     @LibClose(pc)

_ALibExpunge
            move.l  A6,A0
            jmp     @LibExpunge(pc)

_ALibReserved
            moveq.l #0,D0
            rts


            END