summaryrefslogtreecommitdiff
path: root/software/ttx
diff options
context:
space:
mode:
Diffstat (limited to 'software/ttx')
-rw-r--r--software/ttx/ttx.asm38
1 files changed, 20 insertions, 18 deletions
diff --git a/software/ttx/ttx.asm b/software/ttx/ttx.asm
index c1c65fd..7931771 100644
--- a/software/ttx/ttx.asm
+++ b/software/ttx/ttx.asm
@@ -30,29 +30,31 @@
;; -------------------------------------
;; PREAMBLE
- LIST p=10F206
- include "p10f206.inc"
- __config _MCLRE_OFF & _CP_OFF & _WDT_OFF
-
+ LIST p=12F519
+ include "p12f519.inc"
+ ;; __config _IntRC_OSC & _IOSCFS_4MHz & _MCLRE_ON & _CP_OFF & _CPDF_OFF & _WDTE_OFF
+ __config _IntRC_OSC & _IOSCFS_4MHz & _MCLRE_OFF & _CP_OFF & _CPDF_OFF & _WDTE_OFF
+
;; -------------------------------------
;; DEFINES
BEACON_INT EQU .5
-SECCNT EQU H'0008'
+SECCNT EQU H'0007'
-CHAR EQU H'0009'
-CHARCNT EQU H'000A'
-ELEMENT EQU H'000B'
-ELECNT EQU H'000C'
+CHAR EQU H'0008'
+CHARCNT EQU H'0009'
+ELEMENT EQU H'000A'
+ELECNT EQU H'000B'
DOT EQU .85
DASH EQU .255
ESPACE EQU .85
CSPACE EQU .255
CWSPEED EQU .100
-DOTCNT0 EQU H'0010'
-DOTCNT1 EQU H'0011'
+DOTCNT0 EQU H'000E'
+DOTCNT1 EQU H'000F'
-CWOUT EQU GP0
+CWENABLE EQU 0
+CWOUT EQU 1
;; -------------------------------------
;; OFFSET
@@ -61,12 +63,12 @@ CWOUT EQU GP0
;; -------------------------------------
;; INIT
init
- bcf CMCON0,CMPON
movlw b'11110110'
option
- movlw b'11111110'
- tris GPIO
- bsf GPIO,CWOUT
+ movlw b'11111100'
+ tris PORTB
+ bcf PORTB,CWOUT
+ bcf PORTB,CWENABLE
clrf TMR0
movlw BEACON_INT
movwf SECCNT
@@ -250,13 +252,13 @@ beacon_next_char
goto beacon_invalid_char
beacon_next_element
- bcf GPIO,CWOUT
+ bsf PORTB,CWOUT
btfss ELEMENT,7
movlw DOT
btfsc ELEMENT,7
movlw DASH
call dottime
- bsf GPIO,CWOUT
+ bcf PORTB,CWOUT
rlf ELEMENT,f