arch/all-mingw32/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 /*****i***********************************************************************
  10
  11     NAME */
  12 #include <aros/libcall.h>
  13 #include <proto/exec.h>
  14 #include <proto/kernel.h>
  15 #include "../kernel/hostinterface.h"
  16
  17 extern struct HostInterface *HostIFace;
  18
  19         AROS_LH1(void, RawPutChar,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(UBYTE, chr, D0),
  23
  24 /*  LOCATION */
  25         struct ExecBase *, SysBase, 86, Exec)
  26
  27 /*  FUNCTION
  28         Emits a single character.
  29
  30     INPUTS
  31         chr - The character to emit
  32
  33     RESULT
  34         None.
  35
  36     NOTES
  37         This function is for very low level debugging only.
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44         RawIOInit(), RawPutChar(), RawMayGetChar()
  45
  46     INTERNALS
  47
  48     HISTORY
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53
  54     /* Don't write 0 bytes */
  55     if (chr)
  56     {
  57         Forbid();
  58         HostIFace->PutChar(chr);
  59         Permit();
  60     }
  61
  62     AROS_LIBFUNC_EXIT
  63 } /* RawPutChar */