From 9be6c5e0829ef6fd8011a0576ef4a9e21449b962 Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Sat, 23 Jul 2011 11:40:58 +0000 Subject: beaconcnt should be working now git-svn-id: https://svn.spreadspace.org/mur.sat@42 7de4ea59-55d0-425e-a1af-a3118ea81d4c --- software/ttx/ttx.asm | 24 ++++++++++++++---------- 1 file changed, 14 insertions(+), 10 deletions(-) (limited to 'software') diff --git a/software/ttx/ttx.asm b/software/ttx/ttx.asm index 06a56a9..6fe1cf6 100644 --- a/software/ttx/ttx.asm +++ b/software/ttx/ttx.asm @@ -44,7 +44,7 @@ ESPACE EQU DOT CSPACE EQU DASH WSPACE EQU .256 - .203 ENABLE_TIME EQU DOT -BCONINT_DEF EQU .10 ; *2 = Beacon Interval in seconds +BCONINT_DEF EQU .7 ; *2 = Beacon Interval in seconds ;; I/O Pins CWENABLE EQU GP0 @@ -536,6 +536,18 @@ caseend incf FSR,f goto case0 + ;; ------------------------------------- +send_cnt + rlf BEACONCNTL,w + movwf BUF+1 + rlf BEACONCNTH,w + movwf BUF + movlw BUF + movwf FSR + movlw .3 + call send_base32 + return + ;; ------------------------------------- send_parity movf PARITY,w @@ -553,24 +565,16 @@ send_beacon call dottime clrf PARITY - ;; CALLSIGN call send_callsign - ;; ------- movlw WSPACE call dottime - ;; BEACON CNT - movlw BEACONCNTH - movwf FSR - movlw .3 - call send_base32 + call send_cnt - ;; ------- movlw WSPACE call dottime - ;; PARITY call send_parity incfsz BEACONCNTL,f -- cgit v1.2.3