arch/m68k-mac/exec/rawputchar.c

   1 /*
   2     Copyright © 1995-2007, 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 /****************************************************************************
  18
  19     NAME */
  20 #include <proto/exec.h>
  21
  22         AROS_LH1(void, RawPutChar,
  23
  24 /*  SYNOPSIS */
  25         AROS_LHA(UBYTE, chr, D0),
  26
  27 /*  LOCATION */
  28         struct ExecBase *, SysBase, 86, Exec)
  29
  30 /*  FUNCTION
  31         Emits a single character.
  32
  33     INPUTS
  34         chr - The character to emit
  35
  36     RESULT
  37         None.
  38
  39     NOTES
  40         This function is for very low level debugging only.
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47         RawIOInit(), RawPutChar(), RawMayGetChar()
  48
  49     INTERNALS
  50
  51     HISTORY
  52
  53 *****************************************************************************/
  54 {
  55         AROS_LIBFUNC_INIT
  56 #if 0
  57 #ifdef DO_SERIAL_DEBUG
  58         /*
  59          * This does not work with xcopilot...
  60          */
  61         if (chr) {
  62                 /*
  63                  * Wait until FIFO is half empty
  64                  */
  65                 while (0 == (RREG_W(UTX1) & FIFO_HALF_F)) {
  66                 }
  67                 WREG_W(UTX1) = (UWORD)chr;
  68         }
  69 #endif
  70 #endif
  71         /* Don't write 0 bytes */
  72         if (chr) {
  73                 vputc(chr);
  74         }
  75
  76         AROS_LIBFUNC_EXIT
  77 } /* RawPutChar */