From 36280cd2728fb32cdeecc055b89402e3296eec45 Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Tue, 3 May 2011 22:24:49 +0000 Subject: ignoring invalid character git-svn-id: https://svn.spreadspace.org/mur.sat@15 7de4ea59-55d0-425e-a1af-a3118ea81d4c --- software/ttx/ttx.asm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'software/ttx/ttx.asm') diff --git a/software/ttx/ttx.asm b/software/ttx/ttx.asm index c9826c7..d7282e0 100644 --- a/software/ttx/ttx.asm +++ b/software/ttx/ttx.asm @@ -245,6 +245,9 @@ beacon_next_char call string call getcwlen movwf ELECNT + movf ELECNT,f + btfsc STATUS,Z + goto beacon_invalid_char beacon_next_element bcf GPIO,CWOUT @@ -256,21 +259,22 @@ beacon_next_element bsf GPIO,CWOUT rlf ELEMENT,f - + decfsz ELECNT,f goto beacon_element_space movlw CSPACE call dottime +beacon_invalid_char decfsz CHARCNT,f goto beacon_next_char return - + beacon_element_space movlw ESPACE call dottime goto beacon_next_element - + ;; ------------------------------------- ;; MAINLOOP main -- cgit v1.2.3