source: firmware/MSR/src/UARTBUF/UART0.C@ 18342

/************************************************************************/
/*                                                                      */
/*                      Interrupt driven buffered UART                  */
/*                                                                      */
/*              Author: Peter Dannegger                                 */
/*                                                                      */
/************************************************************************/
#include "main.h"
#include "uart0.h"


static u8 rx_buff[RX0_SIZE];
static u8 rx_in;
static u8 rx_out;
static u8 tx_buff[TX0_SIZE];
static u8 tx_in;
static u8 tx_out;


#define ROLLOVER( x, max )      x = ++x >= max ? 0 : x
                                        // count up and wrap around

void init_uart0( u16 bauddivider )
{
  UBRR0H = bauddivider >> 8;
  UBRR0L = bauddivider;                 // set baud rate
  UCSR0A = 0;                           // no U2X, MPCM
  UCSR0C = 1<<UCSZ01^1<<UCSZ00          // 8 Bit
#ifdef URSEL0
           ^1<<URSEL0                   // if UCSR0C shared with UBRR0H
#endif
           ;
  UCSR0B = 1<<RXEN0^1<<TXEN0^           // enable RX, TX
           1<<RXCIE0;                   // enable RX interrupt
  rx_in = rx_out;                       // set buffer empty
  tx_in = tx_out;
}


u8 ukbhit0( void )
{
  return rx_out ^ vu8(rx_in);           // rx_in modified by interrupt !
}


u8 ugetchar0( void )
{
  u8 data;

  while( !ukbhit0() );                  // until at least one byte in
  data = rx_buff[rx_out];               // get byte
  ROLLOVER( rx_out, RX0_SIZE );
  URX0_IEN = 1;                         // enable RX interrupt
  return data;
}


ISR( USART0_RX_vect )
{
  u8 i = rx_in;

  ROLLOVER( i, RX0_SIZE );
  if( i == rx_out ){                    // buffer overflow
    URX0_IEN = 0;                       // disable RX interrupt
    return;
  }
  rx_buff[rx_in] = UDR0;
  rx_in = i;
}


ISR( USART0_UDRE_vect )
{
  if( tx_in == tx_out ){                // nothing to sent
    UTX0_IEN = 0;                       // disable TX interrupt
    return;
  }
  UDR0 = tx_buff[tx_out];
  ROLLOVER( tx_out, TX0_SIZE );
}


u8 utx0_ready( void )
{
  u8 i = tx_in;

  ROLLOVER( i, TX0_SIZE );
  return vu8(tx_out) ^ i;               // 0 = busy
}


void uputchar0( u8 c )
{
  u8 i = tx_in;

  ROLLOVER( i, TX0_SIZE );
  tx_buff[tx_in] = c;
  while( i == vu8(tx_out));             // until at least one byte free
                                        // tx_out modified by interrupt !
  tx_in = i;
  UTX0_IEN = 1;                         // enable TX interrupt
}


void uputs0_( u8 *s )
{
  while( *s )
    uputchar0( *s++ );
}