From fc6abe82fbb37bdc15db18c86b48393fecccc1d1 Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Sat, 30 Jul 2011 00:26:22 +0000 Subject: added time output git-svn-id: https://svn.spreadspace.org/mur.sat@78 7de4ea59-55d0-425e-a1af-a3118ea81d4c --- software/ihu/ihu.asm | 61 ++++++++++++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 59 insertions(+), 2 deletions(-) (limited to 'software/ihu/ihu.asm') diff --git a/software/ihu/ihu.asm b/software/ihu/ihu.asm index 93780f7..97a36b3 100644 --- a/software/ihu/ihu.asm +++ b/software/ihu/ihu.asm @@ -226,8 +226,7 @@ init ;; ------------------------------------- ;; TABLES - - ;; TODO: add lookup tables if needed + include "tables.inc" ;; ------------------------------------- ;; SUBROUTINES @@ -272,6 +271,64 @@ main movlw BUF movwf FSR call rtc_get_time + + swapf BUF+2,w + andlw b'00000011' + call digit + movwf TXREG + movlw .1 + call wait_ms + + movf BUF+2,w + andlw b'00001111' + call digit + movwf TXREG + movlw .1 + call wait_ms + + movlw ':' + movwf TXREG + movlw .1 + call wait_ms + + swapf BUF+1,w + andlw b'00000111' + call digit + movwf TXREG + movlw .1 + call wait_ms + + movf BUF+1,w + andlw b'00001111' + call digit + movwf TXREG + movlw .1 + call wait_ms + + movlw ':' + movwf TXREG + movlw .1 + call wait_ms + + swapf BUF,w + andlw b'00000111' + call digit + movwf TXREG + movlw .1 + call wait_ms + + movf BUF,w + andlw b'00001111' + call digit + movwf TXREG + movlw .1 + call wait_ms + + movlw '\r' + movwf TXREG + movlw .1 + call wait_ms + clrf TMP goto main -- cgit v1.2.3