inter.asm

.NOLIST 

.INCLUDE "m8def.inc"

.LIST

        .DEF temp1   =   r16

        .DEF temp2   =   r17        

        .DEF alt   =   r18    ;alter Zustand(Drehgeber) allgemein

        .DEF cnt   =   r19    ;der Zähler(Drehgeber) allgemein

        .DEF pos   =   r20    ;Position(Drehgeber) allgemein

        .DEF spg   =   r21    ;Spannung der mini-PV-module

  .DEF Maske  =  r2    ;Maske für Drehgeber allgemein

  .DEF Teiler  =  r3    ;Teiler für Drehgeber allgemein

  .DEF pos_klein  =  r4    ;Position der Kleinanlage (auf 3,6 Grad genau) 

  .DEF pos_PV  =  r5    ;Position der PV-Anlage

  .DEF cnt_klein  =  r6    ;der Zähler--klein

  .DEF cnt_PV  =  r7    ;der Zähler--PV

  .DEF alt_PV  =  r8    ;alter Zustand Drehgeber-PV-Anlage

  .DEF alt_klein  =  r9    ;alter Zustand Drehgeber-Kleinanlage

  .DEF sec4  =  r10

  .DEF wind  =  r11

  .DEF myflag   =  r12    ;Bit 0 - Intervall Nachführung

            ;Bit 1 - Intervall Kleinanlage

            ;Bit 6 - alter Zustand Windmesser

            ;Bit 7 - Intervall Windmesser (4s)

  .def prescaler   =   r22

  .def sec  =   r23

  .def min  =   r24

  .def hour  =   r25

  ;.def day   =   r26

  ;Konstanten

  .EQU Kanal_spg  =   0b11000000  ;Kanal für ADC,Spannung-module

  .EQU Kanal_wind  =   0b11000001  ;Kanal für ADC, Windrichtung

  .EQU Teiler_klein =   4    ;Prescaler Drehgeber

  .EQU Teiler_PV   =   4    ;Prescaler Drehgeber

  .EQU Maske_klein=  0b00001100  ;Maske für Drehgeber-Anschluß

  .EQU Maske_PV   =  0b00110000

  .EQU MaxWind   =   100    ;maximale windgeschwindigkeit

  .EQU xtal  =   16000000  ;Taktfrequenz

  .EQU debounce   =   256    ;

  .EQU remainder   =   xtal - xtal / debounce * debounce

  .EQU wind_int  =  4  

  .EQU nachfue_int=  15

  .EQU sichpos_int=  30

.CSEG

  .ORG 0x00        ;Reset Handler

    RJMP init

;  .ORG  INT0addr      ; External Interrupt0 Vector Address

;    RETI

  .ORG  INT1addr      ; External Interrupt1 Vector Address

    RJMP windcount

;  .ORG  OC2addr       ; Output Compare2 Interrupt Vector Address

;    RETI

;  .ORG  OVF2addr      ; Overflow2 Interrupt Vector Address

;    RETI

;  .ORG  ICP1addr      ; Input Capture1 Interrupt Vector Address

;    RETI

  .ORG  OC1Aaddr      ; Output Compare1A Interrupt Vector Address

    RJMP Timer1

;  .ORG  OC1Baddr      ; Output Compare1B Interrupt Vector Address

;    RETI

;    

;  .ORG  OVF1addr      ; Overflow1 Interrupt Vector Address

;    RETI

;  .ORG  OVF0addr      ; Overflow0 Interrupt Vector Address

;    RETI

;  .ORG  SPIaddr       ; SPI Interrupt Vector Address

;    RETI

;  .ORG  URXCaddr      ; USART Receive Complete Interrupt Vector Address

;    RETI

;  .ORG  UDREaddr      ; USART Data Register Empty Interrupt Vector Address

;    RETI

;  .ORG  UTXCaddr      ; USART Transmit Complete Interrupt Vector Address

;    RETI

;  .ORG  ADCCaddr      ; ADC Interrupt Vector Address

;    RETI

;  .ORG  ERDYaddr      ; EEPROM Interrupt Vector Address

;    RETI

;  .ORG  ACIaddr       ; Analog Comparator Interrupt Vector Address

;    RETI

;  .ORG    TWIaddr          ; Irq. vector address for Two-Wire Interface

;    RETI

;  .ORG  SPMaddr       ; SPM complete Interrupt Vector Address

;    RETI

  ;.ORG  SPMRaddr       ; SPM complete Interrupt Vector Address

  ;  RETI

windcount:          ;wird bei Interrupt-Auslösung

    push temp1

    mov temp1, wind

    INC temp1      ;an PD3 ausgeführt

    mov wind, temp1

    pop temp1

    RETI

Timer1:

  push temp1

  in  temp1, sreg

;************************************************************************/

;*      Insert Key Debouncing Here      */

;************************************************************************/

  ldi  temp2, high( xtal / debounce - 1 )

  out  ocr1ah, temp2

  ldi  temp2, low( xtal / debounce - 1 )

  out  ocr1al, temp2

  dec  prescaler

  brne  _oci1

  ldi  prescaler, debounce

  INC  sec

  ldi  temp2, high( xtal / debounce + remainder - 1 )

  out  ocr1ah, temp2

  ldi  temp2, low( xtal / debounce + remainder - 1 )

  out  ocr1al, temp2

_oci1:

  out  sreg, temp1

  pop temp1

  reti

init:  

;********************************* stackpointer initialisieren

        ldi temp1, LOW(RAMEND)      ; LOW-Byte der untersten RAM-adresse

  out SPL, temp1

  ldi temp1, HIGH(RAMEND)           ; HIGH-Byte der obersten RAM-Adresse

  out SPH, temp1

;********************************* AD-Wandler  16MHz / 200kHz = 80 mind.

  ldi  temp1,0b00000111    

  out  ADCSR,temp1        

  cbi  ADCSR,ADIE      

  sbi  ADCSR,ADEN      ;AD einschalten/aktivieren  

;********************************************************* Ein-Ausgange festlegen  

  ldi TEMP1,0b11110010           ;0=input, 1=output 

  out DDRD,TEMP1               

  ldi TEMP1,0b10001000           ; pull-up resistors(1) on inputs 

   out PORTD,TEMP1                

        ldi temp1, 0b00111111          ;Port B 

  out DDRB, temp1

  ldi temp1, 0b00000000          ;Port C 

  out DDRC, temp1

;*************************************************************************** RTC

  ldi  temp1, 1<<WGM12^1<<CS10

  out  TCCR1B, temp1

  ldi  temp1, high( xtal / debounce - 1 )

  out  ocr1ah, temp1

  ldi  temp1, low( xtal / debounce - 1 )

  out  ocr1al, temp1

  out  tcnt1l, temp1

  ldi  prescaler, debounce

  ldi  temp1, 1<<OCIE1A

  out  TIMSK, temp1

;******************************************************************* externe Interrupts

  ldi temp1, 0b00001010  ;INT0 und INT1 konfigurieren-fallende Flanke

  out MCUCR, temp1

  ldi temp1, 0b11000000  ;INT0 und INT1 aktivieren

  out GICR, temp1

  sei

;******************************************************************* Hauptprogramm

hauptprog:

NOP

;******* Drehgeber einmal einlesen

ldi temp1, Maske_klein        ;Maske festlegen

MOV Maske, temp1 

IN temp1,PINC                     ;einmal den aktuellen PortZustand laden

ANDI temp1,Maske_klein        ;Drehgeber-Bits maskieren

RCALL schieben01        ;und in 01-Position schieben

MOV alt_klein, temp1

ldi temp1, Maske_PV        ;und nochmal für anderen Drehgeber

MOV Maske, temp1

IN temp1,PINC                     

AND temp1, Maske    

RCALL schieben01    

MOV alt_PV, temp1

clr pos_klein          ;Position beider Drehgeber reset

clr pos_PV

clr cnt_klein

clr cnt_PV

rcall lcd_init            ;Display initialisieren

rcall lcd_clear           ;Display löschen

ldi  sec, 0          ;RTC mit 0 laden

ldi  min, 0

ldi   hour,0

rjmp main

;************************************************************ Sicherheitsposition

sichpos:

  SBIC PORTD,7        ;Notrelais schon an ??

  rjmp notrelais_an

  rjmp main

notrelais_an:

  CBI PORTD, 7        ;Notrelais an PD7 einschalten (0)

;****************** Normalfall

main:  

;Intervalle

cpi sec, wind_int

BREQ myflag7

;cpi min, nachfue_int

;BREQ myflag0

rjmp second

myflag7:MOV temp1, myflag

  SBR temp1, 7

  MOV myflag, temp1

  rjmp second

myflag0:MOV temp1, myflag

  SBR temp1, 0

  MOV myflag, temp1  

  rjmp second

;****RTC      

second:  

  cpi  sec, 60        ;----second

  breq  minute

  rjmp  main_weiter

minute: clr sec          ;minute

  inc min

  cpi min, 60

  breq hour

  rjmp main_weiter

hour:   clr min          ;hour

  inc hour

  cpi hour, 24

  breq day

  rjmp main_weiter

day:  clr hour        ;day

  nop

  rjmp main_weiter

main_weiter:  

    RCALL windmessung    ;windrichtg/geschw

    RCALL kleinanlage    ;Beste Position bestimmen

    ;RCALL nachfuehrung    ;zu bestem Wert nachführen

    ;RCALL speichern    ;Werte speichern

    ;RCALL ausgeben      ;Anzeige am LCD

    ;RCALL messen

    RJMP main

    cpi spg,MaxWind    ;Windgeschw. zu groß ?

    BRSH sichpos

    ;LDI temp1, 0x00    ;verzögerung abgelaufen ?? dann vergleich und evtl abschalten

    ;cpi temp1, sichpos_int

    BRLO sichpos_aus

    rjmp main

sichpos_aus:

    SBI PORTD, 7      ;Notrelais an PD7 ausschalten (1)

          rjmp main

;******************************************************************* ADC-Wandlung

analog_digital:      

;Single-Mode    

Main_Single:  sbi  ADCSR,ADSC    ;Start Wandlung

            ;das ADSC-Flag löscht sich

            ;selbst nach der Wandlung

            ;man kann es auch für busy? verwenden

AD_busy_:  sbis  ADCSR,ADIF    ;Flag, busy?

    rjmp  AD_busy_    ;springt raus, wenn fertig

Lesen_Single:  in  temp1,ADCL    ;Das Ergebnis steht in temp1,temp2  

    in  temp2,ADCH  

;Sollten nur 8 Bit = 256 Schritte notwendig sein, dann wie folgt:

;Auf256_:  ror  temp2      ;xxxxxxxN  c=N

;    ror  temp1      ;Nnnnnnnn  c=n

;    ror  temp2      ;xxxxxxxx  c=N

;    ror  temp1      ;NNnnnnnn  c=n

;    mov spg, temp1      ;Das Ergebnis steht in spg

ret

;******************************************************************** Nachführung

nachfuehrung:

  sbrs myflag, 0        ;intervall abgelaufen ?

  ret          ;zurück, wenn nicht

;**************** Werte für Drehgeber_PV zuweisen

    ;Maske    ---welcher Drehgeber wird verwendet

    ;alt    ---alter Drehgeber-zustand  

    ;cnt    --- alter counter-stand

    ;Teiler    ---Teiler

    ;pos    ---position des Drehgebers

    ldi temp1, Maske_PV

    mov Maske, temp1    

    mov alt, alt_PV    

    mov cnt, cnt_PV    

    ldi temp1, Teiler_PV

    mov Teiler, temp1    

    mov pos, pos_PV

    RCALL position      ;position bestimmen

    mov pos_PV, pos

    mov cnt_PV, cnt

    mov alt_PV, alt

  cp pos_klein, pos_PV      ;Positionsvergleich

  BRNE weiter2        ;gleich ?

  clr temp1        ;wenn ja, dann rechts- und linkslauf ausschalten

  out portD, temp1      ;ansonsten zu weiter2

  ret

weiter2:

  BRLO links

  BRSH rechts

links:  

  SBIS portD,4        ;schon an ??

  rjmp an_links

  ret

an_links:

  ldi temp1, 0b00010000           ;Relais für linkslauf anschalten

  out portD, temp1

  ret

rechts:

  SBIS portD,5        ;schon an ??

  rjmp an_rechts

  ret  

an_rechts:

  ldi temp1, 0b00100000           ;Relais für rechtslauf anschalten

  out portD, temp1

  ret

;******************************************************************* Kleinanlage

kleinanlage:

  sbrs myflag, 1        ;intervall abgelaufen ?

  rjmp wischer_aus

  rjmp messen

wischer_aus:

  CBI PORTD, 7        ;wischermotor ausschalten

  RET

messen:  

;Spannungsmessung der RWE-Schott mini-Solarmodule

;mit

;Leerlaufpannung  ;4,9V

;Lastspannung max  :3,6V

;Pmax      ;0,1W

;Kurzschlussstrom  ;35mA

;Laststrom max    :27mA

;

;Eingang ADC0 an PC0

  ldi  temp1,Kanal_spg      ;Kanal für ADC auswählen           ;

  out  ADMUX,temp1      ;

  rcall analog_digital      ;Wandlung durchführen

            ;Ergebnis in ADCL,ADCH

;**************** Werte für Drehgeber_klein zuweisen

    ;Maske    ---welcher Drehgeber wird verwendet

    ;alt    ---alter Drehgeber-zustand  

    ;cnt    --- alter counter-stand

    ;Teiler    ---Teiler

    ;pos    ---position des Drehgebers

    ldi temp1, Maske_klein

    mov Maske, temp1    

    mov alt, alt_klein    

    mov cnt, cnt_klein    

    ldi temp1, Teiler_klein

    mov Teiler, temp1    

    mov pos, pos_klein

    RCALL position      ;position bestimmen

    mov pos_klein, pos

    mov cnt_klein, cnt

    mov alt_klein, alt          

  SBIS portD,6        ;wischer schon an ??

  rjmp wischer_an

  ret

wischer_an:

  SBI PORTD, 6          ;wischer anschalten

  RET

;****************************************************************** Windmessung

windmessung:

;************ Geschwindigkeit

  ;nop

  ;ret

  SBRS myflag, 7        ; vier Sekunden vergangen ?

  RET

  rjmp calc

calc:

  lsr wind        ;wind/4= Hz, da pro Sekunde

  lsr wind

  RCALL ausgeben

  clr wind

  MOV temp1, myflag      ;Reset des 4-Sekunden Zählers

  CBR temp1, 7

  MOV myflag, temp1

  RET

  RJMP windrichtung

;************ windrichtung

windrichtung:

  ldi  temp1,Kanal_wind    ;Kanal für ADC auswählen           ;

  out  ADMUX,temp1      ;

  RCALL analog_digital      ;Wandlung durchführen

            ;Ergebnis in temp1,temp2

  ;vergleich mit Tabelle-------für Richtungsangabe

  RET

;;;;windmessung ENDE

;*********************************************************** Speichern der Daten

speichern:

  sbrs myflag, 0        ;intervall abgelaufen ?

  rjmp abspeichern

  ret

abspeichern:

  ;Zeit + höchste Windgeschw + Richtg+ beste Pos+Spg

  ;clr flag

  nop

ret

;****************************************************************** Display/UART

ausgeben:

  rcall lcd_home

  hex2bcd:

    push sec

    mov sec, myflag

    push r17

    push r18

    ldi  r18, -1 + '0'

  _bcd1:  inc  r18

    subi  sec, 100

    brcc  _bcd1

    ldi  r17, 10 + '0'

  _bcd2:  dec  r17

    subi  sec, -10

    brcs  _bcd2

    subi  sec, -'0'

  ;ret

  mov temp1,r18

  rcall lcd_data

  mov temp1,r17

  rcall lcd_data

  mov temp1,sec

  rcall lcd_data

  pop r18

  pop r17

  pop sec

  ;------------

  ;rcall lcd_secondline

  ldi  ZH,high(2*ausgabe)     ;Lade oberen Teil der 

             ;ByteAdresse in ZH

  ldi  ZL,low(2*ausgabe)      ;Lade unteren Teil der 

             ;ByteAdresse in ZL

  rcall lcd_out        ;Text ausgeben

  ret

;********************************************************************** Tabellen

ausgabe:        

 .db " Anzeige funktioniert!",0

 .NOLIST

 .INCLUDE "routines.asm"

 .INCLUDE "position.asm"

 .LIST