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