;;
  ;;  mur.sat
  ;;
  ;;  Somewhen in the year 20xx, mur.at will have a nano satellite launched
  ;;  into a low earth orbit (310 km above the surface of our planet). The
  ;;  satellite itself is a TubeSat personal satellite kit, developed and
  ;;  launched by interorbital systems. mur.sat is a joint venture of mur.at,
  ;;  ESC im Labor and realraum.
  ;;
  ;;  Please visit the project hompage at sat.mur.at for further information.
  ;; 
  ;;
  ;;  Copyright (C) 2011-2015 Christian Pointner <equinox@mur.at>
  ;;                         
  ;;  This file is part of mur.sat.
  ;;
  ;;  mur.sat 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 3 of the License, or
  ;;  any later version.
  ;;
  ;;  mur.sat 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 mur.sat. If not, see <http://www.gnu.org/licenses/>.
  ;;

  ;; -------------------------------------
  ;; Morse Codes: 0=dot, 1=dash
getcw
  addwf     PCL,f
  nop
  retlw     b'00010000'                 ; !
  retlw     b'01001000'                 ; "
  retlw     b'00000000'                 ; #
  retlw     b'00010010'                 ; $
  retlw     b'00000000'                 ; %
  retlw     b'01000000'                 ; &
  retlw     b'01111000'                 ; '
  retlw     b'10110000'                 ; (
  retlw     b'10110100'                 ; )
  retlw     b'00000000'                 ; *
  retlw     b'01010000'                 ; +
  retlw     b'11001100'                 ; ,
  retlw     b'10000100'                 ; -
  retlw     b'01010100'                 ; .
  retlw     b'10010000'                 ; /
  retlw     b'11111000'                 ; 0
  retlw     b'01111000'                 ; 1
  retlw     b'00111000'                 ; 2  
  retlw     b'00011000'                 ; 3
  retlw     b'00001000'                 ; 4
  retlw     b'00000000'                 ; 5  
  retlw     b'10000000'                 ; 6
  retlw     b'11000000'                 ; 7
  retlw     b'11100000'                 ; 8  
  retlw     b'11110000'                 ; 9
  retlw     b'11100000'                 ; :
  retlw     b'10101000'                 ; ;
  retlw     b'00010100'                 ; <
  retlw     b'10001000'                 ; =
  retlw     b'10001010'                 ; >
  retlw     b'00110000'                 ; ?  
  retlw     b'01000000'                 ; @ 
  retlw     b'01000000'                 ; A
  retlw     b'10000000'                 ; B
  retlw     b'10100000'                 ; C
  retlw     b'10000000'                 ; D
  retlw     b'00000000'                 ; E
  retlw     b'00100000'                 ; F
  retlw     b'11000000'                 ; G
  retlw     b'00000000'                 ; H
  retlw     b'00000000'                 ; I
  retlw     b'01110000'                 ; J
  retlw     b'10100000'                 ; K
  retlw     b'01000000'                 ; L
  retlw     b'11000000'                 ; M
  retlw     b'10000000'                 ; N
  retlw     b'11100000'                 ; O
  retlw     b'01100000'                 ; P
  retlw     b'11010000'                 ; Q
  retlw     b'01000000'                 ; R
  retlw     b'00000000'                 ; S
  retlw     b'10000000'                 ; T
  retlw     b'00100000'                 ; U
  retlw     b'00010000'                 ; V
  retlw     b'01100000'                 ; W
  retlw     b'10010000'                 ; X
  retlw     b'10110000'                 ; Y
  retlw     b'11000000'                 ; Z
  
  ;; -------------------------------------
  ;; Morse Code Length
getcwlen
  addwf     PCL,f
  nop       
  retlw     .5                          ; !
  retlw     .6                          ; "
  retlw     .0                          ; #
  retlw     .7                          ; $
  retlw     .0                          ; %
  retlw     .5                          ; &
  retlw     .6                          ; '
  retlw     .5                          ; (
  retlw     .6                          ; )
  retlw     .0                          ; *
  retlw     .5                          ; +
  retlw     .6                          ; ,
  retlw     .6                          ; -
  retlw     .6                          ; .
  retlw     .5                          ; /
  retlw     .5                          ; 0
  retlw     .5                          ; 1
  retlw     .5                          ; 2  
  retlw     .5                          ; 3
  retlw     .5                          ; 4
  retlw     .5                          ; 5  
  retlw     .5                          ; 6
  retlw     .5                          ; 7
  retlw     .5                          ; 8  
  retlw     .5                          ; 9
  retlw     .6                          ; :
  retlw     .6                          ; ;
  retlw     .6                          ; <
  retlw     .5                          ; =
  retlw     .7                          ; >
  retlw     .6                          ; ?  
  retlw     .6                          ; @ 
  retlw     .2                          ; A
  retlw     .4                          ; B
  retlw     .4                          ; C
  retlw     .3                          ; D
  retlw     .1                          ; E
  retlw     .4                          ; F
  retlw     .3                          ; G
  retlw     .4                          ; H
  retlw     .2                          ; I
  retlw     .4                          ; J
  retlw     .3                          ; K
  retlw     .4                          ; L
  retlw     .2                          ; M
  retlw     .2                          ; N
  retlw     .3                          ; O
  retlw     .4                          ; P
  retlw     .4                          ; Q
  retlw     .3                          ; R
  retlw     .3                          ; S
  retlw     .1                          ; T
  retlw     .3                          ; U
  retlw     .4                          ; V
  retlw     .3                          ; W
  retlw     .4                          ; X
  retlw     .4                          ; Y
  retlw     .4                          ; Z

  ;; -------------------------------------
  ;; Base32 Code
base32
  addwf     PCL,f
  retlw     'A'
  retlw     'B'
  retlw     'C'
  retlw     'D'
  retlw     'E'
  retlw     'F'
  retlw     'G'
  retlw     'H'
  retlw     'I'
  retlw     'J'
  retlw     'K'
  retlw     'L'
  retlw     'M'
  retlw     'N'
  retlw     'O'
  retlw     'P'
  retlw     'Q'
  retlw     'R'
  retlw     'S'
  retlw     'T'
  retlw     'U'
  retlw     'V'
  retlw     'W'
  retlw     'X'
  retlw     'Y'
  retlw     'Z'
  retlw     '2'
  retlw     '3'
  retlw     '4'
  retlw     '5'
  retlw     '6'
  retlw     '7'

  ;; -------------------------------------
  ;; fixed strings
callsign
  addwf     PCL,f
  nop
  retlw     'R'
  retlw     'U'
  retlw     'M'
  retlw     '6'
  retlw     'E'
  retlw     'O'

  ;; -------------------------------------