diff options
Diffstat (limited to 'software/ihu/ihu.asm')
| -rw-r--r-- | software/ihu/ihu.asm | 240 |
1 files changed, 102 insertions, 138 deletions
diff --git a/software/ihu/ihu.asm b/software/ihu/ihu.asm index 434ddfb..716ac72 100644 --- a/software/ihu/ihu.asm +++ b/software/ihu/ihu.asm @@ -95,6 +95,11 @@ DTMF_BUF EQU H'0030' ; 5Bytes for incoming DTMF commands DTMF_BUF_END EQU H'0034' DTMF_BUF_PTR EQU H'0035' DTMF_CS EQU H'0036' + +RTC_TOD0 EQU H'003A' +RTC_TOD1 EQU H'003B' +RTC_TOD2 EQU H'003C' +RTC_TOD3 EQU H'003D' BUF EQU H'0040' BUF_END EQU H'004F' @@ -330,6 +335,7 @@ uart_rx_fe ;; ------------------------------------- ;; MAINLOOP main + ;; -------------------- ;; ADC Test ;; call adc_get_solar @@ -383,218 +389,176 @@ main ;; movlw .11 ;; call wait_ms + ;; clrf TMP ;; goto main + ;; -------------------- ;; DTMF Test program - movf TMP,f - btfsc STATUS,Z - goto main + ;; movf TMP,f + ;; btfsc STATUS,Z + ;; goto main - movf DTMF_BUF,w - movwf TXREG - movlw .1 - call wait_ms + ;; movf DTMF_BUF,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms - movf DTMF_BUF+1,w - movwf TXREG - movlw .1 - call wait_ms + ;; movf DTMF_BUF+1,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms - movf DTMF_BUF+2,w - movwf TXREG - movlw .1 - call wait_ms + ;; movf DTMF_BUF+2,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms - movf DTMF_BUF+3,w - movwf TXREG - movlw .1 - call wait_ms + ;; movf DTMF_BUF+3,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms - movf DTMF_BUF+4,w - movwf TXREG - movlw .1 - call wait_ms + ;; movf DTMF_BUF+4,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms - movlw ' ' - movwf TXREG - movlw .1 - call wait_ms + ;; movlw ' ' + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms - movf DTMF_CS,f - btfsc STATUS,Z - movlw '!' - btfss STATUS,Z - movlw 'x' - movwf TXREG - movlw .1 - call wait_ms + ;; movf DTMF_CS,f + ;; btfsc STATUS,Z + ;; movlw '!' + ;; btfss STATUS,Z + ;; movlw 'x' + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms - movlw '\r' - movwf TXREG - movlw .1 - call wait_ms - movlw '\n' - movwf TXREG - movlw .1 - call wait_ms + ;; movlw '\r' + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms + ;; movlw '\n' + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms - clrf TMP - movlw DTMF_BUF - movwf DTMF_BUF_PTR - clrf DTMF_CS + ;; clrf TMP + ;; movlw DTMF_BUF + ;; movwf DTMF_BUF_PTR + ;; clrf DTMF_CS - goto main + ;; goto main + ;; -------------------- + ;; RTC Test program + movf TMP,f + btfsc STATUS,Z + goto main - - movlw BUF - movwf FSR call rtc_get_time - swapf BUF+4,w - andlw b'00000011' - call digit - movwf TXREG - movlw .1 - call wait_ms - - movf BUF+4,w + swapf RTC_TOD3,w andlw b'00001111' call digit movwf TXREG movlw .1 call wait_ms - - movlw '.' - movwf TXREG - movlw .1 - call wait_ms - - swapf BUF+5,w - andlw b'00000001' - call digit - movwf TXREG - movlw .1 - call wait_ms - - movf BUF+5,w - andlw b'00001111' - call digit - movwf TXREG - movlw .1 - call wait_ms - - movlw '.' - movwf TXREG - movlw .1 - call wait_ms - swapf BUF+6,w + movf RTC_TOD3,w andlw b'00001111' call digit movwf TXREG movlw .1 call wait_ms - movf BUF+6,w + swapf RTC_TOD2,w andlw b'00001111' call digit movwf TXREG movlw .1 call wait_ms - - movlw ' ' - movwf TXREG - movlw .1 - call wait_ms - swapf BUF+2,w - andlw b'00000011' - call digit - movwf TXREG - movlw .1 - call wait_ms - - movf BUF+2,w + movf RTC_TOD2,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 + swapf RTC_TOD1,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 + movf RTC_TOD1,w andlw b'00001111' call digit movwf TXREG movlw .1 call wait_ms - movlw '\r' - movwf TXREG - movlw .1 - call wait_ms - movlw '\n' - movwf TXREG - movlw .1 - call wait_ms - - call temp_read_value - swapf OWIRE_BYTE,w + swapf RTC_TOD0,w andlw b'00001111' call digit movwf TXREG movlw .1 call wait_ms - movf OWIRE_BYTE,w + movf RTC_TOD0,w andlw b'00001111' call digit movwf TXREG movlw .1 call wait_ms - + movlw '\r' movwf TXREG movlw .1 call wait_ms movlw '\n' movwf TXREG - + clrf TMP goto main + + ;; -------------------- + ;; Temp Test program + ;; movf TMP,f + ;; btfsc STATUS,Z + ;; goto main + + ;; call temp_read_value + ;; swapf OWIRE_BYTE,w + ;; andlw b'00001111' + ;; call digit + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms + + ;; movf OWIRE_BYTE,w + ;; andlw b'00001111' + ;; call digit + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms + + ;; movlw '\r' + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms + ;; movlw '\n' + ;; movwf TXREG + + ;; clrf TMP + ;; goto main powerdown sleep |