From d3231bdb79f03d710da961e9fe1ed2bae0f3c1ab Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Tue, 3 May 2011 11:59:17 +0000 Subject: added morse code tables git-svn-id: https://svn.spreadspace.org/mur.sat@11 7de4ea59-55d0-425e-a1af-a3118ea81d4c --- software/ttx/ttx.asm | 129 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 129 insertions(+) (limited to 'software/ttx') 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 @@ -68,6 +68,135 @@ init movwf SECCNT 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 -- cgit v1.2.3