PWM_PA0_Uvergleich-239ms-14.2.12-1.asm


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
;============== hauptprogramm ====================================

89
main:

90
    rcall auswahl

91
92
93
94
jmp main

95
;============== auswahl+pwm ausgabe ====================================

96
auswahl:

97
      MOV v_akku, r18

98
      MOV v_akkupwm, v_akku

99
    

100
101
102
      cp v_store, v_akku  ;vergleiche gespeicherte mit gemessener

103
      brsh up      ;akkuspannung, wähle aus ob höher oder niedriger

104
      brlo down    ;und springe zu up oder down

105
      

106
down:      

107
      dec v_akkupwm      ;akkuspannung zu hoch, zaehle runter  ;

108
      

109
      jmp sichern      ;sprung zum sichern/ausgabe ocr0

110
      

111
up:      

112
      inc v_akkupwm

113
      

114
      jmp sichern      ;sprung zum sichern/ausgabe ocr0

115
      

116
sichern:

117
      sts 0x0072, v_akkupwm  ;wert im sram gesichert, fuer spaeter

118
      ;mul r19,r21        ;ergebnis mit r20 verstaerken

119
      ;mov r19, r0        ;und in r19 verschieben

120
      out ocr0, v_akkupwm      ;als vorladewert nach ocr0

121
      

122
      ;out ocr0,r19     ;und ins vorladeregister von tc0 gespeichert

123
                  ; lt. simulation klappt das nicht, ich weis

124
ret                  ;mir keinen rat warum???  

125
      

126
;======================== timer0ini =====================    

127
timer0ini:

128
  

129
  in temp1, tccr0

130
  ori temp1, 0b01101010    ;tccr0, fast pwm, prescaler 8, lösche oc0 bei gleichstand

131
  out  tccr0, temp1

132
  in temp1, timsk

133
  ori temp1, 0b00000000

134
  out timsk, temp1      ;ohne irq

135
136
  ;ldi temp1, 28      ; vorladewert

137
  ;out ocr0, temp1      ;pwm

138
    

139
  ret

140
;====================== ad-wandler ini =================

141
adini:  

142
    

143
    ldi  temp1,(1<<ADEN)

144
    out  ADCSRA,temp1         ;adcen,

145
        in temp1, SFIOR      ;OVF1addr taktquelle für adwand

146
    ori temp1, (1<<ADTS2)|(1<<ADTS1)|(0<<ADTS0)  ;in sfior geschrieben    

147
    out SFIOR, temp1

148
    sei            ;Interrupts global aktivieren                  

149
    ret

150
151
;====================== timer1ini ======================

152
timer1ini:

153
    

154
    ldi  temp1,(1<<CS11)  ;Betriebsart Mode 0 (PB3 normal) 

155
                ;4Mhz/1 Wave Form Generator Mode 0 (Normal)

156
    out TCCR1B, temp1    ;Prescaler 256 um bei TCNT1H + TCNT1L = 0

157
    in temp1, timsk            ;auf ca. 239msek zu kommen

158
    ori temp1, (1<<TOIE1)    ;Timer1 Overflow Interrupt aktiviert    

159
    out TIMSK, temp1

160
    sei            ;Enble all Interrupt

161
    ldi temp1, 0b00000000    ;Lade High Byte des 16 bit Zählers

162
    out TCNT1H, temp1      ;in TCNT1H

163
    ldi temp1, 0b00000000    ;Lade High Byte des 16 bit Zählers

164
    out TCNT1L, temp1      ;in TCNT1L

165
    

166
    ret

167
168
;======================== adwandlung pa0,1,2 ==================

169
adwand:

170
;pa0     

171
      ldi temp1,(1<<REFS0)|(1<<ADLAR)  ;AVcc,linksbuendig

172
        out ADMUX,temp1

173
      ldi temp1,(1<<ADEN)|(1<<ADSC)|(1<<ADIF)|(1<<ADPS2)|(1<<ADPS1)  

174
      out  ADCSRA,temp1  ;Wandlung pa0 starten    

175
fertig:      

176
      sbic ADCSRA,ADSC      ;warten bis wandlung

177
        rjmp fertig        ;beendet    

178
179
      in v_panel, ADCH    ;highbyte auslesen

180
181
;pa1

182
      ldi temp1,(1<<REFS0)|(1<<ADLAR)|(1<<MUX0)  ;AVcc,linksbuendig

183
        out ADMUX,temp1

184
      ldi temp1,(1<<ADEN)|(1<<ADSC)|(1<<ADIF)|(1<<ADPS2)|(1<<ADPS1)  

185
      out  ADCSRA,temp1  ;Wandlung pa1 starten    

186
fertig1:      

187
      sbic ADCSRA,ADSC      ;warten bis wandlung

188
        rjmp fertig1        ;beendet    

189
190
      in v_akku, ADCH      ;highbyte auslesen

191
192
;pa2

193
      ldi temp1,(1<<REFS0)|(1<<ADLAR)|(1<<MUX1)  ;AVcc,linksbuendig

194
        out ADMUX,temp1

195
      ldi temp1,(1<<ADEN)|(1<<ADSC)|(1<<ADIF)|(1<<ADPS2)|(1<<ADPS1)  

196
      out  ADCSRA,temp1  ;Wandlung pa2 starten    

197
fertig2:      

198
      sbic ADCSRA,ADSC      ;warten bis wandlung

199
        rjmp fertig2        ;beendet    

200
201
      in i_panel, ADCH    ;highbyte auslesen

202
203
ret