diff options
Diffstat (limited to 'software/ttx/ttx.asm')
| -rw-r--r-- | software/ttx/ttx.asm | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/software/ttx/ttx.asm b/software/ttx/ttx.asm index 02ec011..e0b8a9b 100644 --- a/software/ttx/ttx.asm +++ b/software/ttx/ttx.asm @@ -39,6 +39,15 @@ BEACON_INT EQU .60 SECCNT EQU H'0008' +DOT EQU .36 +DASH EQU .108 +ESPACE EQU .36 +CSPACE EQU .108 +WSPACE EQU .252 +CWSPEED EQU .192 +DOTCNT0 EQU H'000A' +DOTCNT1 EQU H'000B' + CWOUT EQU GP0 ;; ------------------------------------- @@ -61,9 +70,28 @@ init ;; ------------------------------------- ;; SUBROUTINES +dottime + movwf DOTCNT1 +dot_outer + movlw CWSPEED + movwf DOTCNT0 +dot_inner + nop + nop + nop + nop + decfsz DOTCNT0,f + goto dot_inner + decfsz DOTCNT1,f + goto dot_outer + return + send_beacon movlw b'00000001' xorwf GPIO,f + + + return ;; ------------------------------------- |