Subversion Repositories neo430

// #################################################################################################
// #  < Morse code translator >                                                                    #
// # ********************************************************************************************* #
// # Translates a text string into Morse code. The encode can only encode letters.                 #
// # Output via GPIO.output(0) (bootloader status LED).                                            #
// # ********************************************************************************************* #
// # BSD 3-Clause License                                                                          #
// #                                                                                               #
// # Copyright (c) 2020, Stephan Nolting. All rights reserved.                                     #
// #                                                                                               #
// # Redistribution and use in source and binary forms, with or without modification, are          #
// # permitted provided that the following conditions are met:                                     #
// #                                                                                               #
// # 1. Redistributions of source code must retain the above copyright notice, this list of        #
// #    conditions and the following disclaimer.                                                   #
// #                                                                                               #
// # 2. Redistributions in binary form must reproduce the above copyright notice, this list of     #
// #    conditions and the following disclaimer in the documentation and/or other materials        #
// #    provided with the distribution.                                                            #
// #                                                                                               #
// # 3. Neither the name of the copyright holder nor the names of its contributors may be used to  #
// #    endorse or promote products derived from this software without specific prior written      #
// #    permission.                                                                                #
// #                                                                                               #
// # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS   #
// # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF               #
// # MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE    #
// # COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,     #
// # EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE #
// # GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED    #
// # AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING     #
// # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED  #
// # OF THE POSSIBILITY OF SUCH DAMAGE.                                                            #
// # ********************************************************************************************* #
// # The NEO430 Processor - https://github.com/stnolting/neo430                                    #
// #################################################################################################
 
 
// Libraries
#include <stdint.h>
#include <neo430.h>
 
// Configuration
#define MAX_STRING_LENGTH 128 // max length of plain morse text
#define LED_PIN 0 // GPIO output pin #0
#define TIME_PRSC 192
#define BAUD_RATE 19200
 
// Global vars
uint32_t time_base;
 
// Prototypes
void send_morse(const char *s);
 
// Morse alphabet (ASCII order)
const char morse_code[][7] = {
  "--..--", // ,
  "-....-", // -
  ".-.-.-", // .
  "-..-.",  // /
 
  "-----",  // 0
  ".----",  // 1
  "..---",  // 2
  "...--",  // 3
  "....-",  // 4
  ".....",  // 5
  "-....",  // 6
  "--...",  // 7
  "---..",  // 8
  "----.",  // 9
 
  "---...", // :
  "-.-.-.", // ;
  "",       // < (not implemented)
  "-...-",  // =
  "",       // > (not implemented)
  "..--..", // ?
  "",       // @ (not implemented)
 
  ".-",     // A
  "-...",   // B
  "-.-.",   // C
  "-..",    // D
  ".",      // E
  "..-.",   // F
  "--.",    // G
  "....",   // H
  "..",     // I
  ".---",   // J
  "-.-",    // K
  ".-..",   // L
  "--",     // M
  "-.",     // N
  "---",    // O
  ".--.",   // P
  "--.-",   // Q
  ".-.",    // R
  "...",    // S
  "-",      // T
  "..-",    // U
  "...-",   // V
  ".--",    // W
  "-..-",   // X
  "-.--",   // Y
  "--..",   // Z
};
 
/* ------------------------------------------------------------
 * INFO Main function
 * ------------------------------------------------------------ */
int main(void) {
 
  char buffer[MAX_STRING_LENGTH];
 
  // setup UART
  neo430_uart_setup(BAUD_RATE);
 
  // configure time base
  uint32_t clock = CLOCKSPEED_32bit;
  time_base = 0;
  while (clock >= TIME_PRSC) {
    clock = clock - TIME_PRSC;
    time_base++; // time base for a 'Dit'
  }
 
  neo430_uart_br_print("\n--- Morse code translator ---\n");
  neo430_uart_br_print("Enter a string to translate it to Morse code.\n");
  neo430_uart_br_print("Output via high-active LED at GPIO.out(0) (bootloader status LED).\n");
 
  // check if GPIO unit was synthesized, exit if no GPIO is available
  if (!(SYS_FEATURES & (1<<SYS_GPIO_EN))) {
    neo430_uart_br_print("Error! No GPIO unit synthesized!");
    return 1;
  }
 
  neo430_gpio_port_set(0); // LED off
 
  while (1) {
    // get string
    neo430_uart_br_print("\nEnter text: ");
    uint16_t length = neo430_uart_scan(buffer, MAX_STRING_LENGTH, 1);
    neo430_uart_br_print("\nSending: ");
 
    // encode each letter
    uint16_t i = 0;
    for (i=0; i<length; i++) {
      char c = buffer[i];
 
      // cast to capital letters
      if ((c >= 'a') && (c <= 'z'))
        c -= 32;
 
      // in valid alphabet?
      if ((c >= ',') && (c <= 'Z')) {
        uint8_t index = c - ',';
        neo430_uart_br_print(" ");
        send_morse(morse_code[index]);
 
        uint32_t time = time_base * 3; // inter-letter pause
        while(time--)
          asm volatile ("nop");
 
      }
      // user abort?
      if (neo430_uart_char_received() != 0) {
        neo430_uart_br_print("\nAborted.");
        break;
      }
    }
 
  }
 
  return 0;
}
 
 
/* ------------------------------------------------------------
 * INFO Send morse code via LED pin
 * PARAM *s pointer to source morse symbol string
 * ------------------------------------------------------------ */
void send_morse(const char *s){
 
  char c = 0;
  uint32_t time = 0;
 
  while ((c = *s++)) {
 
    neo430_gpio_pin_set(LED_PIN); // LED on
 
    if (c == '.')
      time = time_base;
    else if (c == '-')
      time = time_base * 3;
    else
      time = 0;
 
    neo430_uart_putc(c);
 
    // wait
    while(time--)
      asm volatile ("nop");
 
    neo430_gpio_pin_clr(LED_PIN); // LED off
 
    // inter-symbol pause
    time = time_base;
    while(time--)
      asm volatile ("nop");
  }
}