workbench/libs/reqtools/reqtools.asm

   1
   2         ********************
   3         * ReqTools library *
   4         ********************
   5
   6         SECTION "reqtools",CODE
   7
   8         INCLUDE "exec/types.i"
   9         INCLUDE "exec/nodes.i"
  10         INCLUDE "exec/resident.i"
  11         INCLUDE "exec/libraries.i"
  12
  13         INCLUDE "reqtools_rev.i"
  14
  15         XREF Init
  16
  17         XDEF DataTable
  18
  19 myINITBYTE      MACRO   * &offset,&value
  20         DC.B    $e0
  21         DC.B    0
  22         DC.W    \1
  23         DC.B    \2
  24         DC.B    0
  25         ENDM
  26
  27 myINITWORD      MACRO   * &offset,&value
  28         DC.B    $d0
  29         DC.B    0
  30         DC.W    \1
  31         DC.W    \2
  32         ENDM
  33
  34 myINITLONG      MACRO   * &offset,&value
  35         DC.B    $c0
  36         DC.B    0
  37         DC.W    \1
  38         DC.L    \2
  39         ENDM
  40
  41 myINITSTRUCT  MACRO   * &size,&offset,&value,&count
  42         DS.W    0
  43         IFC         '\4',''
  44 COUNT\@     SET     0
  45         ENDC
  46         IFNC    '\4',''
  47 COUNT\@     SET     \4
  48         ENDC
  49 CMD\@       SET     (((\1)<<4)!COUNT\@)
  50         IFLE    (\2)-255
  51         DC.B    (CMD\@)!$80
  52         DC.B    \2
  53         MEXIT
  54         ENDC
  55         DC.B    CMD\@!$0C0
  56         DC.B    (((\2)>>16)&$0FF)
  57         DC.W    ((\2)&$0FFFF)
  58         ENDM
  59
  60 Start:
  61         moveq #-1,d0
  62         rts
  63
  64 reqtoolsname:   dc.b "reqtools.library",0
  65 idstring:       VSTRING
  66         cnop 0,2
  67
  68         ; Romtag structure
  69 Romtag:
  70         dc.w RTC_MATCHWORD
  71         dc.l Romtag
  72         dc.l EndCode
  73         dc.b RTF_AUTOINIT
  74         dc.b VERSION
  75         dc.b NT_LIBRARY
  76         dc.b 0
  77         dc.l reqtoolsname
  78         dc.l idstring
  79         dc.l Init
  80
  81 DataTable:
  82         myINITBYTE      LN_TYPE,NT_LIBRARY
  83         myINITLONG      LN_NAME,reqtoolsname
  84         myINITBYTE      LIB_FLAGS,LIBF_SUMUSED+LIBF_CHANGED
  85         myINITWORD      LIB_VERSION,VERSION
  86         myINITWORD      LIB_REVISION,REVISION
  87         myINITLONG      LIB_IDSTRING,idstring
  88         dc.l 0
  89
  90 EndCode:
  91
  92         END