开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
MORSE.C
资源名称：ertos.rar　[点击查看]
上传用户：sunrenlu
上传日期：2022-06-13
资源大小：1419k
文件大小：4k
源码类别：

操作系统开发

开发平台：

DOS

MORSE.C：源码内容
  1. #include <stdio.h>
  2. #include <rtos.h>
  3. #include <mem.h>
  4. #include <dos.h>
  5. #include <ctype.h>
  7. #include "morse.h"
  9. morse_type codes[] = {
  10.     { 'A',      {1,0,1,1,1,0,0,0,0,9}},                  /* A */
  11.     { 'B',      {1,1,1,0,1,0,1,0,1,0,0,0,0,9}},
  12.     { 'C',      {1,1,1,0,1,0,1,1,1,0,1,0,0,0,0,9}},
  13.     { 'D',      {1,1,1,0,1,0,1,0,0,0,0,9}},
  14.     { 'E',      {1,0,0,0,0,9}},
  15.     { 'F',      {1,0,1,0,1,1,1,0,1,0,0,0,0,9}},
  16.     { 'G',      {1,1,1,0,1,1,1,0,1,0,0,0,0,9}},
  17.     { 'H',      {1,0,1,0,1,0,1,0,0,0,0,9}},
  18.     { 'I',      {1,0,1,0,0,0,0,9}},
  19.     { 'J',      {1,0,1,1,1,0,1,1,1,0,1,1,1,0,0,0,0,9}},
  20.     { 'K',      {1,1,1,0,1,0,1,1,1,0,0,0,0,9}},
  21.     { 'L',      {1,0,1,1,1,0,1,0,1,0,0,0,0,9}},
  22.     { 'M',      {1,1,1,0,1,1,1,0,0,0,0,9}},
  23.     { 'N',      {1,1,1,0,1,0,0,0,0,9}},
  24.     { 'O',      {1,1,1,0,1,1,1,0,1,1,1,0,0,0,0,9}},
  25.     { 'P',      {1,0,1,1,1,0,1,1,1,0,1,0,0,0,0,9}},
  26.     { 'Q',      {1,1,1,0,1,1,1,0,1,0,1,1,1,0,0,0,0,9}},
  27.     { 'R',      {1,0,1,1,1,0,1,0,0,0,0,9}},
  28.     { 'S',      {1,0,1,0,1,0,0,0,0,9}},
  29.     { 'T',      {1,1,1,0,0,0,0,9}},
  30.     { 'U',      {1,0,1,0,1,1,1,0,0,0,0,9}},
  31.     { 'V',      {1,0,1,0,1,0,1,1,1,0,0,0,0,9}},
  32.     { 'W',      {1,0,1,1,1,0,1,1,1,0,0,0,0,9}},
  33.     { 'X',      {1,1,1,0,1,0,1,0,1,1,1,0,0,0,0,9}},
  34.     { 'Y',      {1,1,1,0,1,0,1,1,1,0,1,1,1,0,0,0,0,9}},
  35.     { 'Z',      {1,1,1,0,1,1,1,0,1,0,1,0,0,0,0,9}},      /* Z */
  36.     { '0',      {1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,0,0,0,9}},      /* 0 */
  37.     { '1',      {1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,0,0,0,9}},          /* 1 */
  38.     { '2',      {1,0,1,0,1,1,1,0,1,1,1,0,1,1,1,0,0,0,0,9}},              /* 2 */
  39.     { '3',      {1,0,1,0,1,0,1,1,1,0,1,1,1,0,0,0,0,9}},                  /* 3 */
  40.     { '4',      {1,0,1,0,1,0,1,0,1,1,1,0,0,0,0,9}},                      /* 4 */
  41.     { '5',      {1,0,1,0,1,0,1,0,1,0,0,0,0,9}},                          /* 5 */
  42.     { '6',      {1,1,1,0,1,0,1,0,1,0,1,0,0,0,0,9}},                      /* 6 */
  43.     { '7',      {1,1,1,0,1,1,1,0,1,0,1,0,1,0,0,0,0,9}},                  /* 7 */
  44.     { '8',      {1,1,1,0,1,1,1,0,1,1,1,0,1,0,1,0,0,0,0,9}},              /* 8 */
  45.     { '9',      {1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,0,0,0,0,9}},          /* 9 */
  46.     { ' ',      {0,0,0,0,9}},                                        /* space */
  47.     { '.',      {1,0,1,1,1,0,1,0,1,1,1,0,1,0,1,1,1,0,0,0,0,9}},        /* . */
  48.     { ',',      {1,1,1,0,1,1,1,0,1,0,1,0,1,1,1,0,1,1,1,0,0,0,0,9}},    /* , */
  49.     { '?',      {1,0,1,0,1,1,1,0,1,1,1,0,1,0,1,0,0,0,0,9}},            /* ? */
  50.     { ':',      {1,1,1,0,1,1,1,0,1,1,1,0,1,0,1,0,1,0,0,0,0,9}},        /* : */
  51.     { ';',      {1,1,1,0,1,0,1,1,1,0,1,0,1,1,1,0,1,0,0,0,0,9}},        /* ; */
  52.     { '(',      {1,1,1,0,1,0,1,1,1,0,1,1,1,0,1,0,1,1,1,0,0,0,0,9}},    /* ( */
  53.     { '/',      {1,1,1,0,1,0,1,0,1,1,1,0,1,0,0,0,0,9}},                /* / */
  54.     { '_',      {1,1,1,0,1,0,1,0,1,0,1,1,1,0,0,0,0,9}},                /* - */
  55.     { ')',      {1,0,1,1,1,0,1,0,1,1,1,0,1,0,0,0,0,9}},              /* ) AR */
  56.     { '!',      {1,0,1,1,1,0,1,0,1,0,1,0,0,0,0,9}},                  /* ! AS */
  57.     { '=',      {1,1,1,0,1,0,1,0,0,0,1,0,0,0,0,9}},                  /* = DE */
  58.     { '|',      {1,0,1,0,1,0,1,1,1,0,1,0,1,1,1,0,0,0,0,9}},          /* | SK */
  59.     { '%',      {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9}},        /* % pause */
  60.     { '*',      {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9}},        /* * tone */
  61.       0, {0} };
  63. morse_type* ascii_to_morse( char ch )
  64. {
  65.     morse_type *p;
  67.     for ( p = codes ; p->m_ch != 0 ; p++ )
  68.         if ( p->m_ch == ch ) return( p );
  69.     return( NULL );
  70. }
  72. morse_type* codes_to_morse( BYTE *b, int len )
  73. {
  74.     morse_type *p;
  75.     for ( p = codes ; p->m_ch != 0 ; p++ )
  76.         if ( memcmp( p->m_code, b, len ) == 0 ) return( p );
  77.     return( NULL );
  78. }