summaryrefslogtreecommitdiff
path: root/software/ihu/adc.inc
blob: 0be0deca2b9f2a3e182c1f3c4aceb3d7748d72de (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
  ;;
  ;;  mur.sat
  ;;
  ;;  Somewhen in the year 2012, mur.at will have a nano satellite launched
  ;;  into a low earth orbit (310 km above the surface of our planet). The
  ;;  satellite itself is a TubeSat personal satellite kit, developed and
  ;;  launched by interorbital systems. mur.sat is a joint venture of mur.at,
  ;;  ESC im Labor and realraum.
  ;;
  ;;  Please visit the project hompage at sat.mur.at for further information.
  ;;
  ;;
  ;;  Copyright (C) 2011-2013 Christian Pointner <equinox@mur.at>
  ;;
  ;;  This file is part of mur.sat.
  ;;
  ;;  mur.sat is free software: you can redistribute it and/or modify
  ;;  it under the terms of the GNU General Public License as published by
  ;;  the Free Software Foundation, either version 3 of the License, or
  ;;  any later version.
  ;;
  ;;  mur.sat is distributed in the hope that it will be useful,
  ;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
  ;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  ;;  GNU General Public License for more details.
  ;;
  ;;  You should have received a copy of the GNU General Public License
  ;;  along with mur.sat. If not, see <http://www.gnu.org/licenses/>.
  ;;
  ;; -------------------------------------
  ;; DEFINES
  ;;   constants
ADC_SOL_CH0  EQU b'01000001'
ADC_SOL_CH1  EQU b'01000101'
ADC_SOL_CH2  EQU b'01001001'
ADC_SOL_CH3  EQU b'01001101'
ADC_SOL_CH4  EQU b'01010001'
ADC_SOL_CH5  EQU b'01010101'
ADC_SOL_CH6  EQU b'01011001'
ADC_SOL_CH7  EQU b'01011101'
ADC_SOL_CH8  EQU b'01100001'
ADC_SOL_CH9  EQU b'01100101'
ADC_SOL_CHA  EQU b'01101001'
ADC_SOL_CHB  EQU b'01101101'
ADC_SOL_CHC  EQU b'01110001'

  ;; -------------------------------------
adc_get_solar
  movlw     ADC_SOL_CH0
  movwf     ADCON0
  nop
  nop
  nop
  nop
  nop
  bsf       ADCON0,GO
adc_get_solar_c0
  btfsc     ADCON0,GO
  goto      adc_get_solar_c0
  movf      ADRESH,w
  movwf     ADC_SOLAR_C0

  movlw     ADC_SOL_CH1
  movwf     ADCON0
  nop
  nop
  nop
  nop
  nop
  bsf       ADCON0,GO
adc_get_solar_c1
  btfsc     ADCON0,GO
  goto      adc_get_solar_c1
  movf      ADRESH,w
  movwf     ADC_SOLAR_C1

  movlw     ADC_SOL_CH2
  movwf     ADCON0
  nop
  nop
  nop
  nop
  nop
  bsf       ADCON0,GO
adc_get_solar_c2
  btfsc     ADCON0,GO
  goto      adc_get_solar_c2
  movf      ADRESH,w
  movwf     ADC_SOLAR_C2

  movlw     ADC_SOL_CH3
  movwf     ADCON0
  nop
  nop
  nop
  nop
  nop
  bsf       ADCON0,GO
adc_get_solar_c3
  btfsc     ADCON0,GO
  goto      adc_get_solar_c3
  movf      ADRESH,w
  movwf     ADC_SOLAR_C3

  movlw     ADC_SOL_CH4
  movwf     ADCON0
  nop
  nop
  nop
  nop
  nop
  bsf       ADCON0,GO
adc_get_solar_c4
  btfsc     ADCON0,GO
  goto      adc_get_solar_c4
  movf      ADRESH,w
  movwf     ADC_SOLAR_C4

  movlw     ADC_SOL_CH5
  movwf     ADCON0
  nop
  nop
  nop
  nop
  nop
  bsf       ADCON0,GO
adc_get_solar_c5
  btfsc     ADCON0,GO
  goto      adc_get_solar_c5
  movf      ADRESH,w
  movwf     ADC_SOLAR_C5

  movlw     ADC_SOL_CH6
  movwf     ADCON0
  nop
  nop
  nop
  nop
  nop
  bsf       ADCON0,GO
adc_get_solar_c6
  btfsc     ADCON0,GO
  goto      adc_get_solar_c6
  movf      ADRESH,w
  movwf     ADC_SOLAR_C6

  movlw     ADC_SOL_CH7
  movwf     ADCON0
  nop
  nop
  nop
  nop
  nop
  bsf       ADCON0,GO
adc_get_solar_c7
  btfsc     ADCON0,GO
  goto      adc_get_solar_c7
  movf      ADRESH,w
  movwf     ADC_SOLAR_C7

  movlw     ADC_SOL_CH8
  movwf     ADCON0
  nop
  nop
  nop
  nop
  nop
  bsf       ADCON0,GO
adc_get_solar_v
  btfsc     ADCON0,GO
  goto      adc_get_solar_v
  movf      ADRESH,w
  movwf     ADC_SOLAR_V0
  movwf     ADC_SOLAR_V1

  return