summaryrefslogtreecommitdiff
path: root/software/ttx/ttx.asm
diff options
context:
space:
mode:
authorChristian Pointner <equinox@mur.at>2011-05-03 11:59:17 +0000
committerChristian Pointner <equinox@mur.at>2011-05-03 11:59:17 +0000
commitd3231bdb79f03d710da961e9fe1ed2bae0f3c1ab (patch)
tree058ab2f7c39cf08898624c930577f67739b51380 /software/ttx/ttx.asm
parentadded licence (diff)
added morse code tables
git-svn-id: https://svn.spreadspace.org/mur.sat@11 7de4ea59-55d0-425e-a1af-a3118ea81d4c
Diffstat (limited to 'software/ttx/ttx.asm')
-rw-r--r--software/ttx/ttx.asm129
1 files changed, 129 insertions, 0 deletions
diff --git a/software/ttx/ttx.asm b/software/ttx/ttx.asm
index 2030cf7..abfd472 100644
--- a/software/ttx/ttx.asm
+++ b/software/ttx/ttx.asm
@@ -69,6 +69,135 @@ init
goto main
;; -------------------------------------
+ ;; TABLES
+
+ ;; Morse Codes: 0=dot, 1=dash
+getcw
+ addwf PCL,f
+ retlw b'00000000' ; SPACE
+ 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
+ retlw .0 ; SPACE
+ 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
+
+ ;; -------------------------------------
;; SUBROUTINES
dottime
movwf DOTCNT1