diff options
Diffstat (limited to 'software/ihu/ihu.asm')
| -rw-r--r-- | software/ihu/ihu.asm | 78 |
1 files changed, 78 insertions, 0 deletions
diff --git a/software/ihu/ihu.asm b/software/ihu/ihu.asm index 72ecc32..434ddfb 100644 --- a/software/ihu/ihu.asm +++ b/software/ihu/ihu.asm @@ -99,6 +99,18 @@ DTMF_CS EQU H'0036' BUF EQU H'0040' BUF_END EQU H'004F' +ADC_SOLAR_C0 EQU H'0050' +ADC_SOLAR_C1 EQU H'0051' +ADC_SOLAR_C2 EQU H'0052' +ADC_SOLAR_C3 EQU H'0053' +ADC_SOLAR_C4 EQU H'0054' +ADC_SOLAR_C5 EQU H'0055' +ADC_SOLAR_C6 EQU H'0056' +ADC_SOLAR_C7 EQU H'0057' +ADC_SOLAR_C8 EQU H'0058' +ADC_SOLAR_C9 EQU H'0059' +ADC_SOLAR_V EQU H'005A' + ;; variables ;; page 2 only CALC_ACC0 EQU H'0110' @@ -203,6 +215,8 @@ init bsf STATUS,RP1 movlw b'00000000' movwf BAUDCTL + movlw b'11111111' + movwf ANSEL movlw b'00000111' movwf ANSELH @@ -226,6 +240,9 @@ init movwf TRISC movlw b'10001111' movwf TRISD + movlw b'11111111' + movwf TRISE + clrf ADCON1 movlw b'00100100' movwf TXSTA movlw .12 @@ -238,6 +255,8 @@ init ;; bank 0 bcf STATUS,RP0 bcf STATUS,RP1 + movlw b'01000001' + movwf ADCON0 movlw b'10010000' movwf RCSTA movlw B'01010000' @@ -306,8 +325,67 @@ uart_rx_fe include "temp.inc" ;; ------------------------------------- + include "adc.inc" + + ;; ------------------------------------- ;; MAINLOOP main + ;; ADC Test + ;; call adc_get_solar + + ;; movf ADC_SOLAR_C0,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms + + ;; movf ADC_SOLAR_C1,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms + + ;; movf ADC_SOLAR_C2,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms + + ;; movf ADC_SOLAR_C3,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms + + ;; movf ADC_SOLAR_C4,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms + + ;; movf ADC_SOLAR_C5,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms + + ;; movf ADC_SOLAR_C6,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms + + ;; movf ADC_SOLAR_C7,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms + + ;; movf ADC_SOLAR_V,w + ;; movwf TXREG + ;; movlw .1 + ;; call wait_ms + + ;; movlw .255 + ;; movwf TXREG + ;; movlw .11 + ;; call wait_ms + + ;; goto main + + ;; DTMF Test program movf TMP,f btfsc STATUS,Z goto main |