PWM_PA0_Uvergleich-IVT2-239ms.asm

;ausgangsspannungsregelung nach stepdown

;pwm an atmega16 für 3,906 khz

;bei 4mhz taktfrequenz

;mit timer0 im fast pwm mode, 8 bit aufloesung

;pwm-signal liegt auf pb3 oc0

;13.2.12

.include "m16def.inc"

;.def v_panel = r14    ;Messwert PV-Spannung PA0

.def v_akku = r12    ;Messwert Akku-Spannung PA0  (PA1)

.def i_panel = r10    ;Messwert PV-Strom PA2 (spaeter)

.def temp1 = r16    ;temporäre Variable

;.def wait1 = r17    ;Zähler

;.def wait2 = r18    ;Zähler

.def v_akkupwm = r19  ;ermittellter Vorladewert ocr0 für 13.4v

.def v_store = r20    ;gespeicherte Wunschspannung am PWM-Ausgang

.org  0x000     

  rjmp RESET    ;External Pin, Power-on Reset, Brown-out

.org  INT0addr    

  reti      ;External Interrupt Request 0

.org  INT1    

  reti        ;External Interrupt Request 1

.org  OC2addr  

  reti        ;Timer/Counter2 Compare Match

.org  OVF2addr  

  reti        ;Timer/Counter2 Overflow

.org  ICP1addr  

  reti         ;Timer/Counter1 Capture Event

.org  OC1Aaddr  

  reti         ;Timer/Counter1 Compare Match A

.org  OC1Baddr  

  reti         ;Timer/Counter1 Compare Match B

.org  OVF1addr  

  rjmp timer1ini   ;TIMER1 OVF ;Timer/Counter1 Overflow  

.org  OVF0addr     

  rjmp timer0ini  ;Timer/Counter0 Overflow  

.org  SPIaddr    

  reti        ;Serial Transfer Complete

.org  URXCaddr  

  reti         ;USART, Rx Complete

.org  UDREaddr  

  reti       ;USART Data Register Empty

.org  UTXCaddr  

  reti         ;USART, Tx Complete

.org  ADCCaddr      

  rjmp adini    ;ADC Conversion Complete  

.org  ERDYaddr    

  reti        ;EEPROM Ready

.org  ACIaddr  

  reti        ;Analog Comparator

.org  TWIaddr  

  reti         ;Two-wire Serial Interface

.org  INT2addr    

  reti        ;External Interrupt Request 2

.org  OC0addr  

  reti        ;Timer/Counter0 Compare Match

.org  SPMRaddr    

  reti         ;Store Program Memory Ready

.org 0x30             ;programm ab flashadresse 30h speichern

;=============== stackpointer ini ===========================

reset:

      LDI temp1, high (RAMEND)

      OUT SPH, temp1  ;SPH am Ende phys. SRAM

      LDI temp1, low (RAMEND)

      OUT SPL, temp1  ;SPL am Ende phys. SRAM  

      LDI temp1,0b11111000  

      OUT DDRA, temp1    ;pa0-2 analoge eingaenge

      LDI temp1,0b11111100   

      OUT DDRD, temp1    ;pd2-7 ausgabe

      ldi temp1, 0b11111111      

      OUT DDRC, temp1    ;pc0-7 ausgabe

      LDI temp1, 0b00001111

      OUT DDRb, temp1    ;pb0-3 ausgabe

      ldi r21, 125  ;verstärkungsfaktor fuer ad ergebniss

      ldi v_store,225    ;max.ladespannung rechner.139

      call timer1ini ;TIMER 1 initialisieren

      call timer0ini ;Timer 0  initialisieren

      call adini     ;A-D Wandler AD0 initialisieren

;============== hauptprogramm ====================================

adpa0:     

      sbi  ADCSR,ADSC      ;Wandlung starten

fertig:      

      sbic ADCSR,ADSC      ;warten bis wandlung

        rjmp fertig        ;beendet    

      in r17, ADCL      ;ad lowbyte in r17 merken

      in r18, ADCH      ;ad highbyte in r18 merken

      MOV v_akku, r18

      MOV v_akkupwm, v_akku

;auswahl

      cp v_store, v_akku  ;vergleiche gespeicherte mit gemessener

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

      brlo down    ;und springe zu up oder down

      jmp main

down:      

      dec v_akkupwm      ;akkuspannung zu hoch, zaehle runter  ;

      cp v_store, v_akkupwm  ;und vergleiche mit gespeicherter spannung

      brne down        ;noch nicht gleich? springe zu down

      breq sichern      ;wenn gleich, sichern

      jmp main

up:      

      inc v_akkupwm

      ;cp v_store, v_akkupwm

      ;brne up

      jmp sichern

      jmp main

sichern:

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

      mul r19,r21        ;ergebnis mit r20 verstaerken

      mov r19, r0        ;und in r19 verschieben

      out ocr0, v_akkupwm      ;als vorladewert nach ocr0

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

main:                  ; lt. simulation klappt das nicht, ich weis

                  ;mir keinen rat warum???  

      jmp main

;======================== timer0ini =====================    

timer0ini:

  cli

  in temp1, tccr0

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

  out  tccr0, temp1

  in temp1, timsk

  ori temp1, 0b00000000

  out timsk, temp1      ;ohne irq

  ;ldi temp1, 28      ; 255 = 13,1V

  ;out ocr0, temp1      ;gewünschte PWM-Wert 128 für 3,906 khz

  sei

  ret

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

adini:  

    cli

    ldi temp1, 0b01000000  ;;AREF, linkssbündig,pa0

    out ADMUX, temp1

    ldi  temp1,0b10011101

    out  ADCSR,temp1         ;adcen,adif,adie,teiler 32

        sei            ;Interrupts global aktivieren                  

    ret

;====================== timer1ini ======================

timer1ini:

    cli

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

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

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

    in temp1, timsk            ;auf ca. 235msek zu kommen

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

    OUT TIMSK, temp1

    SEI            ;Enble all Interrupt

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

    OUT TCNT1H, temp1      ;in TCNT1H

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

    OUT TCNT1L, temp1      ;in TCNT1L

    sei

    ret