arch/m68k-mac/exec/rawputchar.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Emit one character via raw IO
   6     Lang: english
   7 */
   8
   9 #include <aros/config.h>
  10
  11 #ifdef DO_SERIAL_DEBUG
  12 # include <asm/registers.h>
  13 #endif
  14
  15 void vputc(unsigned char chr);
  16
  17 #include <proto/exec.h>
  18
  19 /* See rom/exec/rawputchar.c for documentation */
  20
  21 AROS_LH1(void, RawPutChar,
  22     AROS_LHA(UBYTE, chr, D0),
  23     struct ExecBase *, SysBase, 86, Exec)
  24 {
  25         AROS_LIBFUNC_INIT
  26 #if 0
  27 #ifdef DO_SERIAL_DEBUG
  28         /*
  29          * This does not work with xcopilot...
  30          */
  31         if (chr) {
  32                 /*
  33                  * Wait until FIFO is half empty
  34                  */
  35                 while (0 == (RREG_W(UTX1) & FIFO_HALF_F)) {
  36                 }
  37                 WREG_W(UTX1) = (UWORD)chr;
  38         }
  39 #endif
  40 #endif
  41         /* Don't write 0 bytes */
  42         if (chr) {
  43                 vputc(chr);
  44         }
  45
  46         AROS_LIBFUNC_EXIT
  47 } /* RawPutChar */