arch/.unmaintained/arm-all/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 #include <asm/registers.h>
  11
  12 /*****i***********************************************************************
  13
  14     NAME */
  15 #include <proto/exec.h>
  16
  17         AROS_LH1(void, RawPutChar,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(UBYTE, chr, D0),
  21
  22 /*  LOCATION */
  23         struct ExecBase *, SysBase, 86, Exec)
  24
  25 /*  FUNCTION
  26         Emits a single character.
  27
  28     INPUTS
  29         chr - The character to emit
  30
  31     RESULT
  32         None.
  33
  34     NOTES
  35         This function is for very low level debugging only.
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42         RawIOInit(), RawPutChar(), RawMayGetChar()
  43
  44     INTERNALS
  45
  46     HISTORY
  47
  48 *****************************************************************************/
  49 {
  50         AROS_LIBFUNC_INIT
  51 #define DO_SERIAL_DEBUG
  52 #ifdef DO_SERIAL_DEBUG
  53         ULONG j = 0;
  54         volatile ULONG utsr1;
  55 //      Disable();
  56         do {
  57                 utsr1 = RREG_L(UTSR1);
  58                 j++;
  59         } while ((0 == (utsr1 & 0x04)) && (j < 1000000));
  60         if (chr) {
  61                 WREG_L(UTDR) = (ULONG)chr;
  62                 if ('\n' == chr) {
  63                         WREG_L(UTDR) = (ULONG)'\r';
  64                 }
  65         } else {
  66                 WREG_L(UTDR) = '\r';
  67                 WREG_L(UTDR) = '\n';
  68         }
  69 //      Enable();
  70 #endif
  71
  72         AROS_LIBFUNC_EXIT
  73 } /* RawPutChar */