\ morse-table 2001-05-28 1fou
\ (C) Jindra Vavruska (OK1FOU), 2001
\ Licensed under General Public License 2.0
\ Here are defined morse codes of letters, digits
\ and the most common characters used in CW
\ The table starts at 0x20 (ASCII char "SPACE")
.( Loading morse code table.. )
BASE @
DECIMAL 2 BASE !
CREATE MorseCodeTable
.( special chars, )
00000001 c,	\ SP
01110011 c,	\ !
00000000 c,	\ "
00000000 c,	\ #
00000000 c,	\ $
00000000 c,	\ %
00000000 c,	\ &
00000000 c,	\ '
00000000 c,	\ (
00000000 c,	\ )
00000000 c,	\ *
00101010 c,	\ +
00000000 c,	\ ,
01100001 c,	\ -
01101010 c,	\ .
00101001 c,	\ /
.( digits, )
00111111 c,	\ 0
00111110 c,	\ 1
00111100 c,	\ 2
00111000 c,	\ 3
00110000 c,	\ 4
00100000 c,	\ 5
00100001 c,	\ 6
00100011 c,	\ 7
00100111 c,	\ 8
00101111 c,	\ 9
00000000 c,	\ :
00000000 c,	\ ;
00000000 c,	\ <
00110001 c,	\ =
00000000 c,	\ >
01001100 c,	\ ?
00000000 c,	\ @
.( letters)
00000110 c,	\ A
00010001 c,	\ B
00010101 c,	\ C
00001001 c,	\ D
00000010 c,	\ E
00010100 c,	\ F
00001011 c,	\ G
00010000 c,	\ H
00000100 c,	\ I
00011110 c,	\ J
00001101 c,	\ K
00010010 c,	\ L
00000111 c,	\ M
00000101 c,	\ N
00001111 c,	\ O
00010110 c,	\ P
00011011 c,	\ Q
00001010 c,	\ R
00001000 c,	\ S
00000011 c,	\ T
00001100 c,	\ U
00011000 c,	\ V
00001110 c,	\ W
00011001 c,	\ X
00011101 c,	\ Y
00010011 c,	\ Z
.( .)
BASE ! \ restore BASE as it was before we started the table
cr .( Done.) cr