1 | ;ausgangsspannungsregelung nach stepdown
|
2 | ;pwm an atmega16 für 3,906 khz
|
3 | ;bei 4mhz taktfrequenz
|
4 | ;mit timer0 im fast pwm mode, 8 bit aufloesung
|
5 | ;pwm-signal liegt auf pb3 oc0
|
6 | ;adc takt mittels OVF1addr
|
7 | ;14.2.12
|
8 | .include "m16def.inc"
|
9 |
|
10 | .def v_panel = r14 ;Messwert PV-Spannung PA0
|
11 | .def v_akku = r12 ;Messwert Akku-Spannung PA1
|
12 | .def i_panel = r10 ;Messwert PV-Strom PA2
|
13 | .def temp1 = r16 ;temporäre Variable
|
14 | ;.def wait1 = r17 ;Zähler
|
15 | ;.def wait2 = r18 ;Zähler
|
16 | .def v_akkupwm = r19 ;ermittellter Vorladewert ocr0 für 13.4v
|
17 | .def v_store = r20 ;gespeicherte Wunschspannung am PWM-Ausgang
|
18 |
|
19 |
|
20 |
|
21 | .org 0x000
|
22 | rjmp RESET ;External Pin, Power-on Reset, Brown-out
|
23 | .org INT0addr
|
24 | reti ;External Interrupt Request 0
|
25 | .org INT1
|
26 | reti ;External Interrupt Request 1
|
27 | .org OC2addr
|
28 | reti ;Timer/Counter2 Compare Match
|
29 | .org OVF2addr
|
30 | reti ;Timer/Counter2 Overflow
|
31 | .org ICP1addr
|
32 | reti ;Timer/Counter1 Capture Event
|
33 | .org OC1Aaddr
|
34 | reti ;Timer/Counter1 Compare Match A
|
35 | .org OC1Baddr
|
36 | reti ;Timer/Counter1 Compare Match B
|
37 | .org OVF1addr
|
38 | jmp timer1ini ;TIMER1 OVF ;Timer/Counter1 Overflow
|
39 | .org OVF0addr
|
40 | reti ;Timer/Counter0 Overflow
|
41 | .org SPIaddr
|
42 | reti ;Serial Transfer Complete
|
43 | .org URXCaddr
|
44 | reti ;USART, Rx Complete
|
45 | .org UDREaddr
|
46 | reti ;USART Data Register Empty
|
47 | .org UTXCaddr
|
48 | reti ;USART, Tx Complete
|
49 | .org ADCCaddr
|
50 | reti ;ADC Conversion Complete
|
51 | .org ERDYaddr
|
52 | reti ;EEPROM Ready
|
53 | .org ACIaddr
|
54 | reti ;Analog Comparator
|
55 | .org TWIaddr
|
56 | reti ;Two-wire Serial Interface
|
57 | .org INT2addr
|
58 | reti ;External Interrupt Request 2
|
59 | .org OC0addr
|
60 | reti ;Timer/Counter0 Compare Match
|
61 | .org SPMRaddr
|
62 | reti ;Store Program Memory Ready
|
63 |
|
64 | .org 0x30 ;programm ab flashadresse 30h speichern
|
65 |
|
66 | ;=============== stackpointer ini ===========================
|
67 | reset:
|
68 |
|
69 | ldi temp1, high (RAMEND)
|
70 | out SPH, temp1 ;SPH am Ende phys. SRAM
|
71 | ldi temp1, low (RAMEND)
|
72 | out SPL, temp1 ;SPL am Ende phys. SRAM
|
73 | ldi temp1,0b11111000
|
74 | out DDRA, temp1 ;pa0-2 analoge eingaenge
|
75 | ldi temp1,0b11111111
|
76 | out DDRD, temp1 ;pd2-7 ausgabe
|
77 | ldi temp1, 0b11111111
|
78 | out DDRC, temp1 ;pc0-7 ausgabe
|
79 | ldi temp1, 0b00001111
|
80 | out DDRb, temp1 ;pb0-3 ausgabe
|
81 |
|
82 | ;ldi r21, 125 ;verstärkungsfaktor fuer ad ergebniss
|
83 | ldi v_store,225 ;max.ladespannung rechner.139
|
84 | rcall timer1ini ;TIMER 1 initialisieren
|
85 | rcall timer0ini ;Timer 0 initialisieren
|
86 | rcall adini ;A-D Wandler AD0 initialisieren
|
87 |
|
88 | sei ;Interrupts global aktivieren?????????
|
89 | ;============== hauptprogramm ====================================
|
90 | main:
|
91 | rcall auswahl
|
92 |
|
93 |
|
94 |
|
95 | jmp main
|
96 | ;============== auswahl+pwm ausgabe ====================================
|
97 | auswahl:
|
98 |
|
99 | cp v_store, v_akku ;vergleiche gespeicherte mit gemessener
|
100 | brsh up ;akkuspannung, wähle aus ob höher oder niedriger
|
101 | brlo down ;und springe zu up oder down
|
102 |
|
103 | down:
|
104 | dec v_akkupwm ;akkuspannung zu hoch, zaehle runter ;
|
105 |
|
106 | jmp sichern ;sprung zum sichern/ausgabe ocr0
|
107 |
|
108 | up:
|
109 | inc v_akkupwm
|
110 |
|
111 | jmp sichern ;sprung zum sichern/ausgabe ocr0
|
112 |
|
113 | sichern:
|
114 | sts 0x0072, v_akkupwm ;wert im sram gesichert, fuer spaeter
|
115 | ;mul r19,r21 ;ergebnis mit r20 verstaerken
|
116 | ;mov r19, r0 ;und in r19 verschieben
|
117 | out ocr0, v_akkupwm ;als vorladewert nach ocr0
|
118 |
|
119 | ;out ocr0,r19 ;und ins vorladeregister von tc0 gespeichert
|
120 | ; lt. simulation klappt das nicht, ich weis
|
121 | ret ;mir keinen rat warum???
|
122 |
|
123 | ;======================== timer0ini =====================
|
124 | timer0ini:
|
125 |
|
126 | in temp1, tccr0
|
127 | ori temp1, 0b01101010 ;tccr0, fast pwm, prescaler 8, lösche oc0 bei gleichstand
|
128 | out tccr0, temp1
|
129 | in temp1, timsk
|
130 | ori temp1, 0b00000000
|
131 | out timsk, temp1 ;ohne irq
|
132 |
|
133 | ;ldi temp1, 28 ; vorladewert
|
134 | ;out ocr0, temp1 ;pwm
|
135 |
|
136 | ret
|
137 | ;====================== ad-wandler ini =================
|
138 | adini:
|
139 |
|
140 | ldi temp1,(1<<ADEN)
|
141 | out ADCSRA,temp1 ;adcen,
|
142 | in temp1, SFIOR ;OVF1addr taktquelle für adwand
|
143 | ori temp1, (1<<ADTS2)|(1<<ADTS1)|(0<<ADTS0) ;in sfior geschrieben
|
144 | out SFIOR, temp1
|
145 |
|
146 | ret
|
147 |
|
148 | ;====================== timer1ini ======================
|
149 | timer1ini:
|
150 |
|
151 | ldi temp1,(1<<CS11) ;Betriebsart Mode 0 (PB3 normal)
|
152 | ;4Mhz/1 Wave Form Generator Mode 0 (Normal)
|
153 | out TCCR1B, temp1 ;Prescaler 256 um bei TCNT1H + TCNT1L = 0
|
154 | in temp1, timsk ;auf ca. 239msek zu kommen
|
155 | ori temp1, (1<<TOIE1) ;Timer1 Overflow Interrupt aktiviert
|
156 | out TIMSK, temp1
|
157 | sei ;Enble all Interrupt
|
158 | ldi temp1, 0b00000000 ;Lade High Byte des 16 bit Zählers
|
159 | out TCNT1H, temp1 ;in TCNT1H
|
160 | ldi temp1, 0b00000000 ;Lade High Byte des 16 bit Zählers
|
161 | out TCNT1L, temp1 ;in TCNT1L
|
162 |
|
163 | ret
|
164 |
|
165 | ;======================== adwandlung pa0,1,2 ==================
|
166 | adwand:
|
167 | ;pa0
|
168 | ldi temp1,(1<<REFS0)|(1<<ADLAR) ;AVcc,linksbuendig
|
169 | out ADMUX,temp1
|
170 | ldi temp1,(1<<ADEN)|(1<<ADSC)|(1<<ADIF)|(1<<ADPS2)|(1<<ADPS1)
|
171 | out ADCSRA,temp1 ;Wandlung pa0 starten
|
172 | fertig:
|
173 | sbic ADCSRA,ADSC ;warten bis wandlung
|
174 | rjmp fertig ;beendet
|
175 |
|
176 | in v_panel, ADCH ;highbyte auslesen
|
177 |
|
178 | ;pa1
|
179 | ldi temp1,(1<<REFS0)|(1<<ADLAR)|(1<<MUX0) ;AVcc,linksbuendig
|
180 | out ADMUX,temp1
|
181 | ldi temp1,(1<<ADEN)|(1<<ADSC)|(1<<ADIF)|(1<<ADPS2)|(1<<ADPS1)
|
182 | out ADCSRA,temp1 ;Wandlung pa1 starten
|
183 | fertig1:
|
184 | sbic ADCSRA,ADSC ;warten bis wandlung
|
185 | rjmp fertig1 ;beendet
|
186 |
|
187 | in v_akku, ADCH ;highbyte auslesen
|
188 |
|
189 | ;pa2
|
190 | ldi temp1,(1<<REFS0)|(1<<ADLAR)|(1<<MUX1) ;AVcc,linksbuendig
|
191 | out ADMUX,temp1
|
192 | ldi temp1,(1<<ADEN)|(1<<ADSC)|(1<<ADIF)|(1<<ADPS2)|(1<<ADPS1)
|
193 | out ADCSRA,temp1 ;Wandlung pa2 starten
|
194 | fertig2:
|
195 | sbic ADCSRA,ADSC ;warten bis wandlung
|
196 | rjmp fertig2 ;beendet
|
197 |
|
198 | in i_panel, ADCH ;highbyte auslesen
|
199 |
|
200 | ret
|