arch/m68k-amiga/potgo/writepotgo.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: WritePotgo() function.
   6     Lang: english
   7 */
   8
   9 #include <proto/potgo.h>
  10 #include <hardware/custom.h>
  11
  12 #include "potgo_intern.h"
  13
  14 AROS_LH2(void, WritePotgo,
  15          AROS_LHA(UWORD, word, D0),
  16          AROS_LHA(UWORD, mask, D1),
  17          struct PotgoBase *, PotgoBase, 3, Potgo)
  18 {
  19     AROS_LIBFUNC_INIT
  20
  21         volatile struct Custom *custom = (struct Custom*)0xdff000;
  22
  23         word &= 0xff01;
  24         PotgoBase->data |= (word & ~1) & mask;
  25         PotgoBase->data &= word | (~mask);
  26
  27         custom->potgo = PotgoBase->data | (word & 1);
  28
  29     AROS_LIBFUNC_EXIT
  30 }