4ce0d36ce1d3c8120990c3350c7cf509328fcae4
[uccvend-snackrom.git] / ROM2 / sci.c
1 #include "vend.h"
2 #include "sci.h"
3
4 char sci_tx_buf[BUFFER_LEN];
5 volatile char sci_rx_buf[BUFFER_LEN];
6 volatile bool sci_have_packet;
7 volatile u8 sci_rx_buf_ptr;
8
9 void sci_init() {
10         /* assumes clock of 4.91Mhz */
11         _io_ports[M6811_BAUD] = 0x03; /* 9600 baud */
12
13         /* Setup character format 1 start, 8-bits, 1 stop.  */
14         _io_ports[M6811_SCCR1] = 0;
15
16         /* Enable reciever and transmitter & rx interrupt.  */
17         _io_ports[M6811_SCCR2] = M6811_RIE | M6811_TE | M6811_RE;
18
19         sci_have_packet = 0;
20         sci_rx_buf_ptr = 0;
21 }
22
23 void send_packet() {
24         char* c;
25         for (c = sci_tx_buf; *c; c++) {
26                 /* wait for TX ready */
27                 while (!(_io_ports[M6811_SCSR] & M6811_TDRE));
28
29                 /* send byte */
30                 _io_ports[M6811_SCDR] = *c;
31         }
32 }
33
34 void sci_rx_int() {
35         if (sci_have_packet) {
36                 /* overrun :( */
37                 _io_ports[M6811_SCDR]; /* read it anyway */
38                 return;
39         }
40         sci_rx_buf[sci_rx_buf_ptr] = _io_ports[M6811_SCDR];
41         if (sci_rx_buf[sci_rx_buf_ptr] == '\n') {
42                 sci_rx_buf[sci_rx_buf_ptr] = '\0';
43                 sci_have_packet = 1;
44                 sci_rx_buf_ptr = 0;
45         }
46         sci_rx_buf_ptr++;
47         if (sci_rx_buf_ptr >= BUFFER_LEN) {
48                 sci_rx_buf[BUFFER_LEN] = '\0'; /* this is as much as we could fit */
49                 sci_have_packet = 1;
50                 sci_rx_buf_ptr = 0;
51         }
52 }
53
54 void sci_interrupt_serial() {
55         if (_io_ports[M6811_SCSR] & M6811_RDRF) sci_rx_int();
56 }
57
58 void msg_clr() {
59         sci_have_packet = 0;
60         sci_rx_buf_ptr = 0;
61 }
62
63 void send_ack() {
64         sci_tx_buf[0] = '!';
65         sci_tx_buf[1] = '\n';
66         sci_tx_buf[2] = '\0';
67         send_packet();
68 }
69
70 void send_nack() {
71         sci_tx_buf[0] = '?';
72         sci_tx_buf[1] = '\n';
73         sci_tx_buf[2] = '\0';
74         send_packet();
75 }

UCC git Repository :: git.ucc.asn.au