mirror of
https://github.com/eddyem/stm32samples.git
synced 2025-12-06 10:45:11 +03:00
189 lines
7.3 KiB
C
189 lines
7.3 KiB
C
/*
|
||
* geany_encoding=koi8-r
|
||
* morse.c
|
||
*
|
||
* Copyright 2017 Edward V. Emelianov <eddy@sao.ru, edward.emelianoff@gmail.com>
|
||
*
|
||
* This program is free software; you can redistribute it and/or modify
|
||
* it under the terms of the GNU General Public License as published by
|
||
* the Free Software Foundation; either version 2 of the License, or
|
||
* (at your option) any later version.
|
||
*
|
||
* This program is distributed in the hope that it will be useful,
|
||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
* GNU General Public License for more details.
|
||
*
|
||
* You should have received a copy of the GNU General Public License
|
||
* along with this program; if not, write to the Free Software
|
||
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
|
||
* MA 02110-1301, USA.
|
||
*
|
||
*/
|
||
#include "stm32f0.h"
|
||
#include "morse.h"
|
||
|
||
#define MAXPINGS (8)
|
||
|
||
uint16_t mbuff[3*MAXPINGS];
|
||
/*
|
||
32 (0x20) - 64 (0x40) - @ 96 (0x60) - ` 128 (0x80) - € 160 (0xa0) - 192 (0xc0) - À 224 (0xe0) - à
|
||
33 (0x21) - ! 65 (0x41) - A 97 (0x61) - a 129 (0x81) - <20> 161 (0xa1) - ¡ 193 (0xc1) - Á 225 (0xe1) - á
|
||
34 (0x22) - " 66 (0x42) - B 98 (0x62) - b 130 (0x82) - ‚ 162 (0xa2) - ¢ 194 (0xc2) - Â 226 (0xe2) - â
|
||
35 (0x23) - # 67 (0x43) - C 99 (0x63) - c 131 (0x83) - ƒ 163 (0xa3) - £ 195 (0xc3) - Ã 227 (0xe3) - ã
|
||
36 (0x24) - $ 68 (0x44) - D 100 (0x64) - d 132 (0x84) - „ 164 (0xa4) - ¤ 196 (0xc4) - Ä 228 (0xe4) - ä
|
||
37 (0x25) - % 69 (0x45) - E 101 (0x65) - e 133 (0x85) - … 165 (0xa5) - ¥ 197 (0xc5) - Å 229 (0xe5) - å
|
||
38 (0x26) - & 70 (0x46) - F 102 (0x66) - f 134 (0x86) - † 166 (0xa6) - ¦ 198 (0xc6) - Æ 230 (0xe6) - æ
|
||
39 (0x27) - ' 71 (0x47) - G 103 (0x67) - g 135 (0x87) - ‡ 167 (0xa7) - § 199 (0xc7) - Ç 231 (0xe7) - ç
|
||
40 (0x28) - ( 72 (0x48) - H 104 (0x68) - h 136 (0x88) - ˆ 168 (0xa8) - ¨ 200 (0xc8) - È 232 (0xe8) - è
|
||
41 (0x29) - ) 73 (0x49) - I 105 (0x69) - i 137 (0x89) - ‰ 169 (0xa9) - © 201 (0xc9) - É 233 (0xe9) - é
|
||
42 (0x2a) - * 74 (0x4a) - J 106 (0x6a) - j 138 (0x8a) - Š 170 (0xaa) - ª 202 (0xca) - Ê 234 (0xea) - ê
|
||
43 (0x2b) - + 75 (0x4b) - K 107 (0x6b) - k 139 (0x8b) - ‹ 171 (0xab) - « 203 (0xcb) - Ë 235 (0xeb) - ë
|
||
44 (0x2c) - , 76 (0x4c) - L 108 (0x6c) - l 140 (0x8c) - Œ 172 (0xac) - ¬ 204 (0xcc) - Ì 236 (0xec) - ì
|
||
45 (0x2d) - - 77 (0x4d) - M 109 (0x6d) - m 141 (0x8d) - <20> 173 (0xad) - 205 (0xcd) - Í 237 (0xed) - í
|
||
46 (0x2e) - . 78 (0x4e) - N 110 (0x6e) - n 142 (0x8e) - Ž 174 (0xae) - ® 206 (0xce) - Î 238 (0xee) - î
|
||
47 (0x2f) - / 79 (0x4f) - O 111 (0x6f) - o 143 (0x8f) - <20> 175 (0xaf) - ¯ 207 (0xcf) - Ï 239 (0xef) - ï
|
||
48 (0x30) - 0 80 (0x50) - P 112 (0x70) - p 144 (0x90) - <20> 176 (0xb0) - ° 208 (0xd0) - Ð 240 (0xf0) - ð
|
||
49 (0x31) - 1 81 (0x51) - Q 113 (0x71) - q 145 (0x91) - ‘ 177 (0xb1) - ± 209 (0xd1) - Ñ 241 (0xf1) - ñ
|
||
50 (0x32) - 2 82 (0x52) - R 114 (0x72) - r 146 (0x92) - ’ 178 (0xb2) - ² 210 (0xd2) - Ò 242 (0xf2) - ò
|
||
51 (0x33) - 3 83 (0x53) - S 115 (0x73) - s 147 (0x93) - “ 179 (0xb3) - ³ 211 (0xd3) - Ó 243 (0xf3) - ó
|
||
52 (0x34) - 4 84 (0x54) - T 116 (0x74) - t 148 (0x94) - ” 180 (0xb4) - ´ 212 (0xd4) - Ô 244 (0xf4) - ô
|
||
53 (0x35) - 5 85 (0x55) - U 117 (0x75) - u 149 (0x95) - • 181 (0xb5) - µ 213 (0xd5) - Õ 245 (0xf5) - õ
|
||
54 (0x36) - 6 86 (0x56) - V 118 (0x76) - v 150 (0x96) - – 182 (0xb6) - ¶ 214 (0xd6) - Ö 246 (0xf6) - ö
|
||
55 (0x37) - 7 87 (0x57) - W 119 (0x77) - w 151 (0x97) - — 183 (0xb7) - · 215 (0xd7) - × 247 (0xf7) - ÷
|
||
56 (0x38) - 8 88 (0x58) - X 120 (0x78) - x 152 (0x98) - ˜ 184 (0xb8) - ¸ 216 (0xd8) - Ø 248 (0xf8) - ø
|
||
57 (0x39) - 9 89 (0x59) - Y 121 (0x79) - y 153 (0x99) - ™ 185 (0xb9) - ¹ 217 (0xd9) - Ù 249 (0xf9) - ù
|
||
58 (0x3a) - : 90 (0x5a) - Z 122 (0x7a) - z 154 (0x9a) - š 186 (0xba) - º 218 (0xda) - Ú 250 (0xfa) - ú
|
||
59 (0x3b) - ; 91 (0x5b) - [ 123 (0x7b) - { 155 (0x9b) - › 187 (0xbb) - » 219 (0xdb) - Û 251 (0xfb) - û
|
||
60 (0x3c) - < 92 (0x5c) - \ 124 (0x7c) - | 156 (0x9c) - œ 188 (0xbc) - ¼ 220 (0xdc) - Ü 252 (0xfc) - ü
|
||
61 (0x3d) - = 93 (0x5d) - ] 125 (0x7d) - } 157 (0x9d) - <20> 189 (0xbd) - ½ 221 (0xdd) - Ý 253 (0xfd) - ý
|
||
62 (0x3e) - > 94 (0x5e) - ^ 126 (0x7e) - ~ 158 (0x9e) - ž 190 (0xbe) - ¾ 222 (0xde) - Þ 254 (0xfe) - þ
|
||
63 (0x3f) - ? 95 (0x5f) - _ 127 (0x7f) - 159 (0x9f) - Ÿ 191 (0xbf) - ¿ 223 (0xdf) - ß 255 (0xff) - ÿ
|
||
*/
|
||
// 1 - len in pings, 2 - pings (0 - dot, 1 - dash), reverse order
|
||
static const uint8_t ascii[] = { // sarting from space+1
|
||
6, 53, // ! -*-*--
|
||
6, 18, // " *-**-*
|
||
5, 29, // # [no] -*---
|
||
7, 72, // $ ***-**-
|
||
8, 86, // % [pc] *--*-*-*
|
||
5, 2, // & *-***
|
||
6, 30, // ' *----*
|
||
5, 13, // ( -*--*
|
||
6, 45, // ) -*--*-
|
||
7, 40, // * [str] ***-*-*
|
||
5, 10, // + *-*-*
|
||
6, 51, // , --**--
|
||
6, 33, // - -****-
|
||
6, 42, // . *-*-*-
|
||
5, 9, // / -**-*
|
||
5, 31, // 0 -----
|
||
5, 30, // 1 *----
|
||
5, 28, // 2 **---
|
||
5, 24, // 3 ***--
|
||
5, 16, // 4 ****-
|
||
5, 0, // 5 *****
|
||
5, 1, // 6 -****
|
||
5, 3, // 7 --***
|
||
5, 7, // 8 ---**
|
||
5, 15, // 9 ----*
|
||
6, 7, // : ---***
|
||
6, 21, // ; -*-*-*
|
||
7, 2, // < [ls] *-*****
|
||
5, 17, // = -***-
|
||
6, 3, // > [gs] --****
|
||
6, 12, // ? **--**
|
||
6, 22, // @ *--*-*
|
||
2, 2, // a *-
|
||
4, 1, // b -***
|
||
4, 5, // c -*-*
|
||
3, 1, // d -**
|
||
1, 0, // e *
|
||
4, 4, // f **-*
|
||
3, 3, // g --*
|
||
4, 0, // h ****
|
||
2, 0, // i **
|
||
4, 14, // j *---
|
||
3, 5, // k -*-
|
||
4, 2, // l *-**
|
||
2, 3, // m --
|
||
2, 1, // n -*
|
||
3, 7, // o ---
|
||
4, 6, // p *--*
|
||
4, 11, // q --*-
|
||
3, 2, // r *-*
|
||
3, 0, // s ***
|
||
1, 1, // t -
|
||
3, 4, // u **-
|
||
4, 8, // v ***-
|
||
3, 6, // w *--
|
||
4, 9, // x -**-
|
||
4, 13, // y -*--
|
||
4, 3, // z --**
|
||
5, 13, // [ [(]
|
||
6, 40, // \ [End of work] ***-*- //
|
||
6, 45, // ] [)]
|
||
7, 96, // ^ [hat] *****--
|
||
6, 44, // _ **--*-
|
||
6, 30, // ` [']
|
||
2, 2, // a *-
|
||
4, 1, // b -***
|
||
4, 5, // c -*-*
|
||
3, 1, // d -**
|
||
1, 0, // e *
|
||
4, 4, // f **-*
|
||
3, 3, // g --*
|
||
4, 0, // h ****
|
||
2, 0, // i **
|
||
4, 14, // j *---
|
||
3, 5, // k -*-
|
||
4, 2, // l *-**
|
||
2, 3, // m --
|
||
2, 1, // n -*
|
||
3, 7, // o ---
|
||
4, 6, // p *--*
|
||
4, 11, // q --*-
|
||
3, 2, // r *-*
|
||
3, 0, // s ***
|
||
1, 1, // t -
|
||
3, 4, // u **-
|
||
4, 8, // v ***-
|
||
3, 6, // w *--
|
||
4, 9, // x -**-
|
||
4, 13, // y -*--
|
||
4, 3, // z --**
|
||
5, 13, // { [(]
|
||
6, 30, // | [']
|
||
6, 45, // } [)]
|
||
8, 37, // ~ [tld] -*-**-**
|
||
};
|
||
/*
|
||
* I was too lazy
|
||
static const uint8_t koi8[] = {
|
||
|
||
};*/
|
||
|
||
/**
|
||
* return next character in word
|
||
* @param str (i) - string to send
|
||
* @param len (o) - length of buffer/3
|
||
*/
|
||
char *fillbuffer(char *str, uint8_t *len){
|
||
const uint8_t *arr = NULL;
|
||
char ltr = *str++;
|
||
if(ltr > ' ' && ltr < 127){ arr = ascii; ltr -= '!'; };
|
||
if(!arr){*len = 1; mbuff[0] = WRD_GAP+DASH_LEN; mbuff[2] = 0; return str;};
|
||
ltr *= 2;
|
||
uint8_t i, N = arr[(uint8_t)ltr], code = arr[(uint8_t)ltr+1];
|
||
uint16_t *ptr = mbuff;
|
||
for(i = 0; i < N; ++i){
|
||
uint16_t L = DOT_LEN;
|
||
if(code & 1) L = DASH_LEN;
|
||
*ptr++ = L + SHRT_GAP; *ptr++ = 0; *ptr++ = L;
|
||
code >>= 1;
|
||
}
|
||
ptr[-3] += LTR_GAP;
|
||
*len = N;
|
||
return str;
|
||
}
|