src_c/arch/avr8.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63

#include "avr8.h"
#include <avr/io.h>

#define MEM_SIZE 0x01c0
#define UART_BAUD 9600


static lsp_int16_t avr8_getchar(lsp_in_stream_t *s) {
    while (!(UCSR0A & (1 << 7)))
        ;
    return UDR0;
}


static lsp_int16_t avr8_putchar(lsp_out_stream_t *s, lsp_int16_t c) {
    while (!(UCSR0A & (1 << 5)))
        ;
    UDR0 = c;
}


static lsp_uint8_t avr8_mem[sizeof(lsp_mem_t) + MEM_SIZE * sizeof(lsp_cell_t)];

static lsp_in_stream_t avr8_in_stream;

static lsp_out_stream_t avr8_out_stream;


void lsp_arch_avr8_init() {
    UBRR0 = F_CPU / 16 / UART_BAUD - 1;
    UCSR0B |= _BV(TXEN0) | _BV(RXEN0);
}


lsp_mem_t *lsp_arch_avr8_create_mem() {
    lsp_mem_t *m = (void *)avr8_mem;
    if (lsp_mem_init(m, MEM_SIZE) != LSP_SUCCESS)
        return NULL;
    return m;
}


void lsp_arch_avr8_free_mem(lsp_mem_t *m) {}


lsp_in_stream_t *lsp_arch_avr8_create_in_stream() {
    lsp_in_stream_t *s = &avr8_in_stream;
    lsp_in_stream_init(s, avr8_getchar);
    return s;
}


void lsp_arch_avr8_free_in_stream(lsp_in_stream_t *s) {}


lsp_out_stream_t *lsp_arch_avr8_create_out_stream() {
    lsp_out_stream_t *s = &avr8_out_stream;
    lsp_out_stream_init(s, avr8_putchar);
    return s;
}


void lsp_arch_avr8_free_out_stream(lsp_out_stream_t *s) {}