workbench/libs/reqtools/gadstub.asm

   1
   2         INCLUDE "exec/types.i"
   3         INCLUDE "intuition/intuition.i"
   4         INCLUDE "utility/tagitem.i"
   5         INCLUDE "libraries/gadtools.i"
   6
   7         SECTION "text",CODE
   8
   9         XDEF            _myGT_SetGadgetAttrs
  10         XDEF            _myCreateGadget
  11
  12         XREF            _GadToolsBase
  13
  14 _LVOGT_SetGadgetAttrs   equ             -$2a
  15 _LVOCreateGadget                        equ             -$1e
  16
  17 _myGT_SetGadgetAttrs:
  18         movem.l d2/d3/a2/a3/a6,-(a7)
  19         movem.l 4+4*5(a7),a0/a1/a2
  20         lea             16+4*5(a7),a3
  21         move.l  _GadToolsBase(a4),a6
  22         jsr             _LVOGT_SetGadgetAttrs(a6)
  23         bra.b           endstub
  24
  25 _myCreateGadget:
  26         movem.l d2/d3/a2/a3/a6,-(a7)
  27         movem.l 4+4*5(a7),d0/a0/a1
  28         lea             16+4*5(a7),a2
  29         move.l  _GadToolsBase(a4),a6
  30         jsr             _LVOCreateGadget(a6)
  31 endstub:
  32         movem.l (a7)+,d2/d3/a2/a3/a6
  33         rts
  34
  35         END