summaryrefslogtreecommitdiff
path: root/software/ihu/ihu.asm
diff options
context:
space:
mode:
Diffstat (limited to 'software/ihu/ihu.asm')
-rw-r--r--software/ihu/ihu.asm228
1 files changed, 124 insertions, 104 deletions
diff --git a/software/ihu/ihu.asm b/software/ihu/ihu.asm
index 552c213..6ccc821 100644
--- a/software/ihu/ihu.asm
+++ b/software/ihu/ihu.asm
@@ -197,7 +197,7 @@ int_dtmf
btfsc STATUS,Z
goto int_dtmf_end
-;; DTMF command complete
+ ;; DTMF command complete
movlw .1
movwf TMP
@@ -360,6 +360,9 @@ uart_rx_fe
;; -------------------------------------
include "adc.inc"
+
+ ;; -------------------------------------
+ include "solar.inc"
;; -------------------------------------
;; MAINLOOP
@@ -369,60 +372,77 @@ main
;; --------------------
;; ADC Test
- ;; call adc_get_solar
+ call adc_get_solar
+ call solar_calc_power
- ;; movf ADC_SOLAR_C0,w
- ;; movwf TXREG
- ;; movlw .1
- ;; call wait_ms
+ movlw .255
+ movwf TXREG
+ movlw .1
+ call wait_ms
- ;; movf ADC_SOLAR_C1,w
- ;; movwf TXREG
- ;; movlw .1
- ;; call wait_ms
+ movf ADC_SOLAR_C0,w
+ movwf TXREG
+ movlw .1
+ call wait_ms
- ;; movf ADC_SOLAR_C2,w
- ;; movwf TXREG
- ;; movlw .1
- ;; call wait_ms
+ movf ADC_SOLAR_C1,w
+ movwf TXREG
+ movlw .1
+ call wait_ms
- ;; movf ADC_SOLAR_C3,w
- ;; movwf TXREG
- ;; movlw .1
- ;; call wait_ms
+ movf ADC_SOLAR_C2,w
+ movwf TXREG
+ movlw .1
+ call wait_ms
- ;; movf ADC_SOLAR_C4,w
- ;; movwf TXREG
- ;; movlw .1
- ;; call wait_ms
+ movf ADC_SOLAR_C3,w
+ movwf TXREG
+ movlw .1
+ call wait_ms
- ;; movf ADC_SOLAR_C5,w
- ;; movwf TXREG
- ;; movlw .1
- ;; call wait_ms
+ movf ADC_SOLAR_V0,w
+ movwf TXREG
+ movlw .1
+ call wait_ms
- ;; movf ADC_SOLAR_C6,w
- ;; movwf TXREG
- ;; movlw .1
- ;; call wait_ms
+ movf ADC_SOLAR_C4,w
+ movwf TXREG
+ movlw .1
+ call wait_ms
- ;; movf ADC_SOLAR_C7,w
- ;; movwf TXREG
- ;; movlw .1
- ;; call wait_ms
+ movf ADC_SOLAR_C5,w
+ movwf TXREG
+ movlw .1
+ call wait_ms
- ;; movf ADC_SOLAR_V,w
- ;; movwf TXREG
- ;; movlw .1
- ;; call wait_ms
+ movf ADC_SOLAR_C6,w
+ movwf TXREG
+ movlw .1
+ call wait_ms
- ;; movlw .255
- ;; movwf TXREG
- ;; movlw .11
- ;; call wait_ms
+ movf ADC_SOLAR_C7,w
+ movwf TXREG
+ movlw .1
+ call wait_ms
- ;; clrf TMP
- ;; goto main
+ movf ADC_SOLAR_V1,w
+ movwf TXREG
+ movlw .1
+ call wait_ms
+
+ movf SOL_POWERH,w
+ movwf TXREG
+ movlw .1
+ call wait_ms
+
+ movf SOL_POWERL,w
+ movwf TXREG
+
+ movlw .8
+ call wait_ms
+
+ clrf TMP
+ goto main
;; --------------------
;; DTMF Test program
@@ -489,77 +509,77 @@ main
;; --------------------
;; RTC Test program
- movf TMP,f
- btfsc STATUS,Z
- goto main
+ ;; movf TMP,f
+ ;; btfsc STATUS,Z
+ ;; goto main
- call rtc_get_time
+ ;; call rtc_get_time
- swapf RTC_TOD3,w
- andlw b'00001111'
- call digit
- movwf TXREG
- movlw .1
- call wait_ms
+ ;; swapf RTC_TOD3,w
+ ;; andlw b'00001111'
+ ;; call digit
+ ;; movwf TXREG
+ ;; movlw .1
+ ;; call wait_ms
- movf RTC_TOD3,w
- andlw b'00001111'
- call digit
- movwf TXREG
- movlw .1
- call wait_ms
+ ;; movf RTC_TOD3,w
+ ;; andlw b'00001111'
+ ;; call digit
+ ;; movwf TXREG
+ ;; movlw .1
+ ;; call wait_ms
- swapf RTC_TOD2,w
- andlw b'00001111'
- call digit
- movwf TXREG
- movlw .1
- call wait_ms
+ ;; swapf RTC_TOD2,w
+ ;; andlw b'00001111'
+ ;; call digit
+ ;; movwf TXREG
+ ;; movlw .1
+ ;; call wait_ms
- movf RTC_TOD2,w
- andlw b'00001111'
- call digit
- movwf TXREG
- movlw .1
- call wait_ms
+ ;; movf RTC_TOD2,w
+ ;; andlw b'00001111'
+ ;; call digit
+ ;; movwf TXREG
+ ;; movlw .1
+ ;; call wait_ms
- swapf RTC_TOD1,w
- andlw b'00001111'
- call digit
- movwf TXREG
- movlw .1
- call wait_ms
+ ;; swapf RTC_TOD1,w
+ ;; andlw b'00001111'
+ ;; call digit
+ ;; movwf TXREG
+ ;; movlw .1
+ ;; call wait_ms
- movf RTC_TOD1,w
- andlw b'00001111'
- call digit
- movwf TXREG
- movlw .1
- call wait_ms
+ ;; movf RTC_TOD1,w
+ ;; andlw b'00001111'
+ ;; call digit
+ ;; movwf TXREG
+ ;; movlw .1
+ ;; call wait_ms
- swapf RTC_TOD0,w
- andlw b'00001111'
- call digit
- movwf TXREG
- movlw .1
- call wait_ms
+ ;; swapf RTC_TOD0,w
+ ;; andlw b'00001111'
+ ;; call digit
+ ;; movwf TXREG
+ ;; movlw .1
+ ;; call wait_ms
- movf RTC_TOD0,w
- andlw b'00001111'
- call digit
- movwf TXREG
- movlw .1
- call wait_ms
+ ;; 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
+ ;; movlw '\r'
+ ;; movwf TXREG
+ ;; movlw .1
+ ;; call wait_ms
+ ;; movlw '\n'
+ ;; movwf TXREG
- clrf TMP
- goto main
+ ;; clrf TMP
+ ;; goto main
;; --------------------
;; Temp Test program