home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / datatypes / film_datatype / classinit.asm < prev    next >
Encoding:
Assembly Source File  |  1997-04-19  |  2.7 KB  |  115 lines
  1.  
  2. ;*
  3. ;*
  4. ;*  $VER: classinit.asm 1.5 (19.4.97)
  5. ;*  film.datatype 1.5
  6. ;*
  7. ;*  Library routines for a DataTypes class
  8. ;*
  9. ;*  Written 1996/1997 by Roland 'Gizzy' Mainz
  10. ;*  Original example source from David N. Junod
  11. ;*
  12. ;*
  13.  
  14. ;       OPTIMON
  15.  
  16. ;---------------------------------------------------------------------------
  17.  
  18.         NOLIST
  19.  
  20.         INCLUDE "exec/types.i"
  21.         INCLUDE "exec/libraries.i"
  22.         INCLUDE "exec/lists.i"
  23.         INCLUDE "exec/alerts.i"
  24.         INCLUDE "exec/initializers.i"
  25.         INCLUDE "exec/resident.i"
  26.         INCLUDE "libraries/dos.i"
  27.  
  28.         INCLUDE "film.datatype_rev.i"
  29.         INCLUDE "classbase.i"
  30.  
  31.         LIST
  32.  
  33. ;---------------------------------------------------------------------------
  34.  
  35.     XREF    _LibInit
  36.     XREF    _LibOpen
  37.     XREF    _LibClose
  38.     XREF    _LibExpunge
  39.  
  40.     XREF    _ObtainFilmEngine
  41.  
  42.         XREF    ENDCODE
  43.  
  44. ;---------------------------------------------------------------------------
  45.  
  46.         XDEF    LibReserved
  47.  
  48. ;---------------------------------------------------------------------------
  49.  
  50. ; First executable location, must return an error to the caller
  51. Start:
  52.         moveq   #-1,d0
  53.         rts
  54.  
  55. ;-----------------------------------------------------------------------
  56.  
  57. ROMTAG:
  58.         DC.W    RTC_MATCHWORD           ; UWORD RT_MATCHWORD
  59.         DC.L    ROMTAG                  ; APTR  RT_MATCHTAG
  60.         DC.L    ENDCODE                 ; APTR  RT_ENDSKIP
  61.         DC.B    RTF_AUTOINIT            ; UBYTE RT_FLAGS
  62.         DC.B    VERSION                 ; UBYTE RT_VERSION
  63.         DC.B    NT_LIBRARY              ; UBYTE RT_TYPE
  64.         DC.B    0                       ; BYTE  RT_PRI
  65.         DC.L    LibName                 ; APTR  RT_NAME
  66.         DC.L    LibId                   ; APTR  RT_IDSTRING
  67.         DC.L    LibInitTable            ; APTR  RT_INIT
  68.  
  69. LibName DC.B 'film.datatype',0
  70. LibId   VSTRING
  71.  
  72.         CNOP    0,4
  73.  
  74. LibInitTable:
  75.         DC.L    ClassBase_SIZEOF
  76.         DC.L    LibFuncTable
  77.         DC.L    LibDataTable
  78.         DC.L    _LibInit
  79.  
  80. V_DEF    MACRO
  81.     DC.W    \1+(*-LibFuncTable)
  82.     ENDM
  83.  
  84. LibFuncTable:
  85.     DC.W    -1
  86.         V_DEF    _LibOpen
  87.         V_DEF    _LibClose
  88.         V_DEF    _LibExpunge
  89.         V_DEF    LibReserved
  90.  
  91.     V_DEF    _ObtainFilmEngine
  92.  
  93.         DC.W   -1
  94.  
  95. LibDataTable:
  96.         INITBYTE   LN_TYPE,NT_LIBRARY
  97.         INITLONG   LN_NAME,LibName
  98.         INITBYTE   LIB_FLAGS,(LIBF_SUMUSED!LIBF_CHANGED)
  99.         INITWORD   LIB_VERSION,VERSION
  100.         INITWORD   LIB_REVISION,REVISION
  101.         INITLONG   LIB_IDSTRING,LibId
  102.         DC.W       0
  103.  
  104.         CNOP    0,4
  105.  
  106. ;-----------------------------------------------------------------------
  107.  
  108. LibReserved:
  109.         moveq   #0,d0
  110.         rts
  111.  
  112. ;-----------------------------------------------------------------------
  113.  
  114.         END
  115.