+ if (!ao_btm_running)
+ return AO_READ_AGAIN;
+ c = ao_serial_pollchar();
+ if (c != AO_READ_AGAIN)
+ ao_btm_log_in_char(c);
+ return c;
+}
+
+void
+ao_btm_putchar(char c)
+{
+ if (!ao_btm_send_chars) {
+ ao_btm_log_out_char(c);
+ ao_serial_putchar(c);
+ }
+}
+
+void
+ao_btm_stdio_putchar(char c) {
+ if (ao_btm_connected)
+ ao_btm_putchar(c);
+}
+
+/*
+ * Wait for the bluetooth device to return
+ * status from the previously executed command
+ */
+uint8_t
+ao_btm_wait_reply(void)
+{
+ for (;;) {
+ ao_btm_get_line();
+ if (!strncmp(ao_btm_reply, "OK", 2))
+ return 1;
+ if (!strncmp(ao_btm_reply, "ERROR", 5))
+ return -1;
+ if (ao_btm_reply[0] == '\0')
+ return 0;
+ }
+}
+
+void
+ao_btm_string(__code char *cmd)
+{
+ char c;
+
+ while (c = *cmd++)
+ ao_btm_putchar(c);
+}
+
+uint8_t
+ao_btm_cmd(__code char *cmd)
+{
+ ao_btm_drain();
+ ao_btm_string(cmd);
+ return ao_btm_wait_reply();
+}
+
+uint8_t
+ao_btm_set_name(void)
+{
+ char sn[7];
+ char *s = sn + 7;
+ char c;
+ int n;
+ ao_btm_string("ATN=TeleBT-");
+ *--s = '\0';
+ n = ao_serial_number;
+ do {
+ *--s = '0' + n % 10;
+ } while (n /= 10);
+ while ((c = *s++))
+ ao_btm_putchar(c);
+ return ao_btm_wait_reply();
+}
+
+uint8_t
+ao_btm_try_speed(uint8_t speed)
+{
+ ao_serial_set_speed(speed);
+ ao_btm_drain();
+ (void) ao_btm_cmd("\rATE0\rATQ0\r");
+ if (ao_btm_cmd("AT\r") == 1)
+ return 1;
+ return 0;
+}
+/*
+ * A thread to initialize the bluetooth device and
+ * hang around to blink the LED when connected
+ */
+void
+ao_btm(void)
+{
+ ao_add_stdio(ao_btm_pollchar,
+ ao_btm_stdio_putchar,
+ NULL);
+ ao_btm_stdio = ao_num_stdios - 1;
+ ao_btm_echo(0);
+
+ ao_delay(AO_SEC_TO_TICKS(3));
+
+ /*
+ * The first time we connect, the BTM-180 comes up at 19200 baud.
+ * After that, it will remember and come up at 57600 baud. So, see
+ * if it is already running at 57600 baud, and if that doesn't work
+ * then tell it to switch to 57600 from 19200 baud.
+ */
+ while (!ao_btm_try_speed(AO_SERIAL_SPEED_57600)) {
+ ao_delay(AO_SEC_TO_TICKS(1));
+ if (ao_btm_try_speed(AO_SERIAL_SPEED_19200))
+ ao_btm_cmd("ATL4\r");
+ ao_delay(AO_SEC_TO_TICKS(1));
+ }
+
+ /* Disable echo */
+ ao_btm_cmd("ATE0\r");
+
+ /* Enable flow control */
+ ao_btm_cmd("ATC1\r");
+
+ /* Set the reported name to something we can find on the host */
+ ao_btm_set_name();
+
+ /* Turn off status reporting */
+ ao_btm_cmd("ATQ1\r");
+
+ ao_btm_running = 1;
+ for (;;) {
+ while (!ao_btm_connected && !ao_btm_chat)
+ ao_sleep(&ao_btm_connected);
+ if (ao_btm_chat) {
+ ao_btm_running = 0;
+ while (ao_btm_chat) {
+ char c;
+ c = ao_serial_pollchar();
+ if (c != AO_READ_AGAIN) {
+ ao_btm_log_in_char(c);
+ ao_usb_putchar(c);
+ } else {
+ ao_usb_flush();
+ ao_sleep(&ao_usart1_rx_fifo);
+ }
+ }
+ ao_btm_running = 1;
+ }
+ while (ao_btm_connected) {
+ ao_led_for(AO_LED_GREEN, AO_MS_TO_TICKS(20));
+ ao_delay(AO_SEC_TO_TICKS(3));