src/serial.c
author Tero Marttila <terom@paivola.fi>
Wed, 24 Sep 2014 23:49:28 +0300
changeset 7 5c37ed521807
parent 5 652c31c10f91
permissions -rw-r--r--
relay
5
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
     1
#include "serial.h"
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
     2
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
     3
#include "stdlib.h"
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
     4
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
     5
#include <avr/io.h>
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
     6
#include <avr/interrupt.h>
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
     7
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
     8
/** Serial state */
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
     9
static enum serial_mode serial_mode = SERIAL_MODE_ASYNC;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    10
static enum serial_chars serial_chars = SERIAL_CHARS_8;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    11
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    12
struct serial {
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    13
    char buf[SERIAL_BUF];
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    14
    byte in, out;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    15
} serial_rx;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    16
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    17
char serial_tx = 0;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    18
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    19
static void serial_enable (char rx, char tx);
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    20
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    21
/*
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    22
 * Setup the UART for serial mode.
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    23
 */
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    24
void serial_init (
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    25
    enum serial_baud baud,
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    26
    enum serial_parity parity,
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    27
    enum serial_stopbits stopbits
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    28
)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    29
{
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    30
    UCSR0A = (
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    31
            // Double the USART Transmission Speed
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    32
            (0b0 << U2X0)   // single speed
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    33
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    34
            // Multi-processor Communication Mode
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    35
        |   (0b0 << MPCM0)  // off
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    36
    );
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    37
    UCSR0B = (
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    38
            // Character Size
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    39
            ((serial_chars >> 2) << UCSZ02) // standard character sizes
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    40
    );
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    41
    UCSR0C = (
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    42
            // USART Mode Select
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    43
            (serial_mode << UMSEL00) // async
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    44
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    45
            // Parity Mode
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    46
        |   (parity << UPM00)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    47
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    48
            // Stop Bit Select
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    49
        |   (stopbits << USBS0)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    50
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    51
            // Character Size
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    52
        |   ((serial_chars & 0b11) << UCSZ00)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    53
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    54
            // Clock Polarity
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    55
        |   (0b0 << UCPOL0)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    56
    );
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    57
    UBRR0 = baud;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    58
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    59
    // active RX, idle TX
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    60
    serial_enable(1, 0);
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    61
}
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    62
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    63
static void serial_enable (char rx, char tx)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    64
{
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    65
    UCSR0B = (
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    66
            // RX Complete Interrupt Enable
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    67
            (!!rx << RXCIE0)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    68
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    69
            // USART Data Register Empty Interrupt Enable
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    70
        |   (!!tx << UDRIE0)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    71
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    72
            // Receiver Enable
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    73
        |   (0b1 << RXEN0)  // enabled
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    74
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    75
            // Transmitter Enable
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    76
        |   (0b1 << TXEN0)  // enabled
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    77
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    78
            // Character Size
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    79
        |   ((serial_chars >> 2) << UCSZ02) // standard character sizes
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    80
    );
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    81
}
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    82
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    83
/*
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    84
 * Read incoming into buffer.
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    85
 */
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    86
ISR(USART_RX_vect)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    87
{
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    88
    serial_rx.buf[serial_rx.in++] = UDR0;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    89
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    90
    if (serial_rx.in >= SERIAL_BUF)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    91
        serial_rx.in = 0;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    92
}
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    93
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    94
/*
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    95
 * Write outgoing buffer.
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    96
 */
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    97
ISR(USART_UDRE_vect)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    98
{
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
    99
    UDR0 = serial_tx;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   100
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   101
    // tx buffer consumed
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   102
    serial_tx = 0;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   103
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   104
    // idle tx
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   105
    serial_enable(1, 0);
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   106
}
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   107
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   108
char serial_read ()
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   109
{
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   110
    if (serial_rx.out == serial_rx.in)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   111
        return 0;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   112
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   113
    char rx = serial_rx.buf[serial_rx.out++];
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   114
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   115
    if (serial_rx.out >= SERIAL_BUF)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   116
        serial_rx.out = 0;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   117
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   118
    return rx;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   119
}
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   120
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   121
void serial_write (char c)
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   122
{
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   123
    // XXX: atomic?
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   124
    if (tbi(&UCSR0A, UDRE0)) {
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   125
        // direct
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   126
        UDR0 = c;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   127
    } else {
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   128
        // buffered
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   129
        serial_tx = c;
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   130
        serial_enable(1, 1);
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   131
    }
Tero Marttila <terom@paivola.fi>
parents:
diff changeset
   132
}