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] = 0x2c;
  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 rx_int() {
  35         if (sci_have_packet) return;
  36         if (sci_rx_buf_ptr >= BUFFER_LEN) {
  37                 /* overrun :( */
  38                 sci_rx_buf[BUFFER_LEN] = '\0';
  39                 sci_have_packet = 1;
  40                 sci_rx_buf_ptr = 0;
  41                 return;
  42         }
  43         sci_rx_buf[sci_rx_buf_ptr] = _io_ports[M6811_SCDR];
  44         if (sci_rx_buf[sci_rx_buf_ptr] == '\n') {
  45                 sci_rx_buf[sci_rx_buf_ptr] = '\0';
  46                 sci_have_packet = 1;
  47                 sci_rx_buf_ptr = 0;
  48         }
  49         sci_rx_buf_ptr++;
  50 }
  51
  52 void msg_clr() {
  53         sci_have_packet = 0;
  54         sci_rx_buf_ptr = 0;
  55 }
  56
  57 void sci_interrupt_serial() {
  58         if (_io_ports[M6811_SCSR] & M6811_RDRF) rx_int();
  59 }
  60
  61 void send_ack() {
  62         sci_tx_buf[0] = '!';
  63         sci_tx_buf[1] = '\n';
  64         sci_tx_buf[2] = '\0';
  65         send_packet();
  66 }
  67
  68 void send_nack() {
  69         sci_tx_buf[0] = '?';
  70         sci_tx_buf[1] = '\n';
  71         sci_tx_buf[2] = '\0';
  72         send_packet();
  73 }