PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : ASM ATMega48/88/168/328 Bibliothek



avr_racer
12.08.2017, 13:55
Moin moin,

Die Bibliothek zielt auf den oben genannten AVR ATMega x8 ab. Dieser unterscheidet sich nur in der Flash/EEPROM/SRAMgröße. Der 48er z.B. ist ein Atmega8 mit nur 4kB Flash, 256byte EEPROM und 512byte SRAM. Der 328 hat das 8fache an Flash/Sram und das 4fache des EEPROMs eines 48er.

Auch hier können wieder die Bibliotheken vom LCD/Mathe/HexWandlung kompatibel benutzt werden.

ATMEGA328_origin.asm


;###########################################
;# Projekt: #
;# #
;# #
;# Taktfrequenz des AVR: 4 MHz #
;# #
;# CS-SOFT #
;###########################################

.include "m328Pdef.inc" ;Atmega8

.def math1h = r8
.def math1l = r9
.def math2h = R10
.def math2l = r11
.def matherghh = r12
.def mathergh = r13
.def mathergl = r14
.def mathergll = r15

.def temp0 = r16 ;
.def temp1 = r17 ;
.def temp2 = r18
.def temp3 = r19 ;
.def temp4 = r20
.def cnt = r21

.equ cpu = 4000000
.equ Baud0 = 9600
.equ UBRR0 = cpu/(16*Baud0)-1

;**********LCD Port mit 74HC164
.equ LCD_signs = 20
.equ Zeile1 = $00+$80
.equ Zeile2 = $40+$80
.equ Zeile3 = Zeile1+LCD_signs
.equ Zeile4 = Zeile2+LCD_signs

.equ port_lcd_x = portc ;gilt für 4/8bit modus
.equ ddrx_lcd_x = ddrc
; Pinbelegungen
; STD
.equ SClock = 0 ;LCD ;;;
.equ SRS = 0
.equ SData = 1 ;74164 ;;;;;so Kann die HW angeschlossen sein
.equ SRW = 1
.equ Light = 2 ;LCD ;;;;;
.equ SEnable = 3 ;74164 ;;;


;********* parallel für LCD/Simulationssoftware*************
;.equ st_port_lcd_x = portb
;.equ st_ddrx_lcd_x = ddrb
; STD
.equ PRS = 4 ;
.equ PEnable = 5 ;

;Entry Set
.equ SH = 0 ;1 = Display shift 0 = not shifted
.equ ID = 1 ;1 = increase 0 = decrease
.equ HES = 2 ;immer 1 setzen Symbolisiert das Ende
;des Commandos
;DISPLAY on/off
.equ B = 0 ;1 = Blink 0 = no Blink
.equ C = 1 ;1 = Cursor on 0 = Cursor off
.equ D = 2 ;1 = Disp on 0 = Disp off
.equ HD = 3 ;immer 1 setzen Symbolisiert das Ende
;des Commandos
;Shift
.equ RL = 2 ;1 = right shift 0 = left shift
.equ SC = 3 ;1 = Disp shift 0 = Cursor move
.equ HS = 4 ;immer 1 setzen Symbolisiert das Ende
;des Commandos
;SET Function
.equ F = 2 ;1 = 5x10 0 = 5x7
.equ N = 3 ;1 = 2line(4line) 0 = 1line
.equ DL = 4 ;1 = 8bit int 0 = 4bit interface
.equ HSF = 5 ;immer 1 setzen Symbolisiert das Ende
;des Commandos

;**********interner ADC
.equ ADC_ddr = ddrc
.equ ADC_Port = Portc
.equ ADC_Pin = PinC
.equ Chan0 = 0
.equ Chan1 = 1
.equ Chan2 = 2
.equ Chan3 = 3
.equ Chan4 = 4
.equ Chan5 = 5
.equ ref5 = $1312
.equ ref52 = $0
.equ ref256 = $09d0
.equ ref2562 = $0
;**********SRAM
.equ erg_k = $0100 ;erg_k wird bis zu 5 weiteren bytes genutzt sprich erg_k+5
.equ ocra0 = $0105 ;für T2
.equ ocrb0 = $0106
.equ ocra1h = $0107 ;;;;;
.equ ocra1l = $0108 ;;;;;;;; für T1 A channel
.equ ocrb1h = $0109 ;;;;;
.equ ocrb1l = $010a ;;;;;;;; für T1 B channel
.equ icr1xh = $010b ;;;;;
.equ icr1xl = $010c ;;;;;;;; für T1 ICR
.equ ocra2 = $010d
.equ ocrb2 = $010e

.equ hadc = $0110 ;adc
.equ ladc = $0111 ;adc
.equ eep_adrh = $0112 ;eeprom
.equ eep_adrl = $0113 ;eeprom
.equ LTC_wertH = $0114
.equ LTC_wertL = $0115

.equ RSdebug = $0140 ;debug serielle Schnittstelle
;***************************Einsprungadressen***** ******************
.cseg
.org $0000
rjmp stack
.org $0002 ;2
reti;rjmp INT_EX0
.org $0004 ;4
reti;rjmp INT_EX1
.org $0006 ;6
reti;rjmp INT_PC0
.org $0008 ;8
reti;rjmp INT_PC1
.org $000a ;a
reti;rjmp INT_PC2
.org $000c ;c
reti;rjmp INT_WDT
.org $000e ;e
rjmp INT_OC2A;reti
.org $0010 ;10
reti;rjmp INT_OC2B
.org $0012 ;12
reti;rjmp INT_OVF2
.org $0014 ;14
reti;rjmp INT_CPT1
.org $0016 ;16
reti;rjmp INT_OC1A
.org $0018 ;18
reti;rjmp INT_OC1B
.org $001a ;1a
reti;rjmp INT_OVF1
.org $001c ;1c
reti;rjmp INT_OC0A
.org $001e ;1e
reti;rjmp INT_OC0B
.org $0020 ;20
reti;rjmp INT_OVF0
.org $0022 ;22
reti;rjmp INT_SPI
.org $0024 ;24
reti;rjmp INT_USART_RX
.org $0026 ;26
reti;rjmp INT_USART_UDRE
.org $0028 ;28
reti;rjmp INT_USART_TX
.org $002a ;2a
reti;rjmp INT_ADC
.org $002c ;2c
reti;rjmp INT_EE_Ready
.org $002e ;2e
reti;rjmp INT_ANALOG_COMP
reti ;11 keine 2wireRoutinen
reti ;a keine SPI Routinen

;***************************Init mit allem drumdran*****************
stack: ldi temp1,high(ramend) ;Stackpointer festlegen
out sph, temp1
ldi temp1,low(ramend) ;Stackpointer festlegen
out spl, temp1
rcall sram

rcall lcd_init
rcall lcd_clear
rcall werbe1
; rcall werbe2
; rcall wait1s
; rcall leer_z

; rcall INIT_ext_Int01
; rcall deak_int01

; rcall INIT_PC_INTx

; rcall mode7_t0_init
; rcall prescaler_T0_on

; rcall mode4_t1_init
; rcall prescaler_T1_on

; rcall mode2_t2_init
; rcall prescaler_T2_on

; rcall adc_header

; rcall eeprom_init ;wenn ints bevorzugt werden
; rcall adr_cnt
; rcall eeprom_write

; rcall AC_init
; rcall ac_change

; rcall usart_init ;wenn INT bevorzugt dann hier aktivieren und prog erweitern
; rcall werbe_rs


start: rcall ADC_Wandlung_Ausgabe_lcd

rjmp start

ADC_Wandlung_Ausgabe_lcd:
rcall adc_chan_0
rcall start_convers

ldi temp1,high(ref5)
ldi temp0,low(ref5)

mov math1h,temp1
mov math1l,temp0
lds math2h,hadc
lds math2l,ladc

rcall hmul_2_16bit ;Ergebenisse in Ergebnissregister
rcall zahl_out_lcd ;Zahlenausgabe über LCD
ret

;*********Sram clearen******************************************* ****
sram: clr temp0
ldi yl,low(SRAM_START)
ldi yh,high(SRAM_START) ;Masterclr des Sram's über
sram2: st y+,temp0 ;die indirekte Adressierung
cpi yl,$50 ;bis zur zelle x=$a0 löschen
brne sram2
ret
;*************************weitere*includedata***** ******************
.include "AtMega328_adc_lst.asm"
.include "AtMega328_analogcomparator.asm"
.include "AtMega328_ext_ints.asm"
.include "AtMega328_eeprom.asm"
.include "AtMega328_timercounter.asm"
.include "AtMega328_uart_std.asm"
.include "AtMega328_LCD_Txt_out.asm"
.include "AtMega328_RS_Txt_out.asm"


.include "i:\etronik\Software3\sonstiges\origin\mathe.asm"
.include "i:\etronik\Software3\sonstiges\origin\lcd_KS0066_K S0070_8bit.asm"
;.include "i:\etronik\Software3\sonstiges\origin\lcd_KS0066_K S0070_4bit_HapSim.asm" ;Nur zur Simulation mit HapSim aktivieren
.include "i:\etronik\Software3\sonstiges\origin\zeitschleife n.asm"
.include "i:\etronik\Software3\sonstiges\origin\hex_dez_wand lung.asm" ;gebraucht für LCD oder nur umwandlung

;*************************ENDE******************** ******************


.include "AtMega328_adc_lst.asm"


/*
.equ ADC_ddr = ddrc
.equ ADC_Port = Portc
.equ ADC_Pin = PinC
.equ Chan0 = 0
.equ Chan1 = 1
.equ Chan2 = 2
.equ Chan3 = 3
.equ Chan4 = 4
.equ Chan5 = 5
.equ ref5 = $1312
.equ ref256 = $09d0
*/
;***********************adc_header**************** **********
adc_header:
rcall adc_init
;rcall start_convers_int ;mit Interrupt
rcall start_convers ;ohne Interrupt
ret

;***********************adc_init****************** ***********
adc_init:
ldi temp0,(0<<Chan5|0<<Chan4|0<<Chan3|0<<Chan2|0<<Chan1|0<<Chan0)
out ADC_ddr,temp0
ldi temp0,(0<<Chan5|0<<Chan4|0<<Chan3|0<<Chan2|0<<Chan1|0<<Chan0)
out ADC_Pin,temp0

ldi temp0,(1<<ADEN|0<<ADSC|0<<ADATE/*|ADIF*/|0<<ADIE|1<<ADPS2|0<<ADPS1|1<<ADPS0) ;ADC aktivieren Sample 50khz-250Khz
sts ADCSRA,temp0

ldi temp0,(0<<ACME | 0<<ADTS2 | 0<<ADTS1 | 0<<ADTS0 ) ;TRIGGER SOURCE
sts ADCSRB,temp0
rcall adc_ref_5V ;Interne 5V-Referenz
rcall adc_chan_gnd
ret

;*********************AREF
adc_ref_extern: ;extern on
ldi temp0,(0<<REFS1|0<<REFS0) ;AREF, Internal Vref turned off
sts admux,temp0
ret

adc_ref_5V: ;AREF 5V
ldi temp0,(0<<REFS1|1<<REFS0) ;AVCC with external capacitor at AREF pin
sts admux,temp0
ret
/*
adc_ref_reserve: ;reserve
in temp0,admux
ori temp0,(1<<REFS1|0<<REFS0) ;RESERVED
out admux,temp0
ret
*/
adc_ref_11V: ;1,1V on
ldi temp0,(1<<REFS1|1<<REFS0) ;internal 1,1V AREF pin
sts admux,temp0
ret

;mit Interrupt
start_convers_int:
lds temp0,adcsra ;wenn ADFR aktiv dann nur adc_read nötig für jeweiligen kanal
ori temp0,(0<<ADEN|1<<ADSC|0<<ADATE/*|ADIF*/|1<<ADIE|1<<ADPS2|0<<ADPS1|0<<ADPS0) ;freigabe ADC Abtastrate zwischen 50Khz-200Khz Teiler=32 single mode
sts adcsra,temp0 ;
sei
ret

;ohne Interrupt dann abfrage auf des bits ADSC=1?????
start_convers:
cli
lds temp0,ADCSRA
ori temp0,(0<<ADEN|1<<ADSC|0<<ADATE/*|ADIF*/|0<<ADIE|1<<ADPS2|0<<ADPS1|1<<ADPS0);freigabe der Messung
sts adcsra,temp0
start_convers2:
lds temp0,ADCSRA ;;;
sbrc temp0,ADSC ;;;;;; diese kleine routine braucht man nicht wenn man mit ints arbeitet
rjmp start_convers2 ;;;
rcall adc_chan_gnd
lds temp0,adcl ;wichtig erst low
lds temp1,adch ;dann high lesen sonst erg müll
sts hadc,temp1
sts ladc,temp0
sei
ret

;*******************Channels********************** ************************************************** **************
adc_chan_0:
lds temp0,ADMUX
andi temp0,$F0
ori temp0,(0<<ADLAR|0<<MUX3|0<<MUX2|0<<MUX1|0<<MUX0) ;AVCC with external capacitor at AREF pin
sts admux,temp0
ret

adc_chan_1:
lds temp0,ADMUX
andi temp0,$F0
ori temp0,(0<<ADLAR|0<<MUX3|0<<MUX2|0<<MUX1|1<<MUX0) ;AVCC with external capacitor at AREF pin
sts admux,temp0
ret

adc_chan_2:
lds temp0,ADMUX
andi temp0,$F0
ori temp0,(0<<ADLAR|0<<MUX3|0<<MUX2|1<<MUX1|0<<MUX0) ;AVCC with external capacitor at AREF pin
sts admux,temp0
ret

adc_chan_3:
lds temp0,ADMUX
andi temp0,$F0
ori temp0,(0<<ADLAR|0<<MUX3|0<<MUX2|1<<MUX1|1<<MUX0) ;AVCC with external capacitor at AREF pin
sts admux,temp0
ret

adc_chan_4:
lds temp0,ADMUX
andi temp0,$F0
ori temp0,(0<<ADLAR|0<<MUX3|1<<MUX2|0<<MUX1|0<<MUX0) ;AVCC with external capacitor at AREF pin
sts admux,temp0
ret

adc_chan_5:
lds temp0,ADMUX
andi temp0,$F0
ori temp0,(0<<ADLAR|0<<MUX3|1<<MUX2|0<<MUX1|1<<MUX0) ;AVCC with external capacitor at AREF pin
sts admux,temp0
ret

adc_chan_6:
lds temp0,ADMUX
andi temp0,$F0
ori temp0,(0<<ADLAR|0<<MUX3|1<<MUX2|1<<MUX1|0<<MUX0) ;AVCC with external capacitor at AREF pin
sts admux,temp0
ret

adc_chan_7:
lds temp0,ADMUX
andi temp0,$F0
ori temp0,(0<<ADLAR|0<<MUX3|1<<MUX2|1<<MUX1|1<<MUX0) ;AVCC with external capacitor at AREF pin
sts admux,temp0
ret

adc_chan_8:
lds temp0,ADMUX
andi temp0,$F0
ori temp0,(0<<ADLAR|1<<MUX3|0<<MUX2|0<<MUX1|0<<MUX0) ;AVCC with external capacitor at AREF pin
sts admux,temp0
ret

adc_chan_BG:
lds temp0,ADMUX
andi temp0,$F0
ori temp0,(0<<ADLAR|1<<MUX3|1<<MUX2|1<<MUX1|0<<MUX0) ;AVCC with external capacitor at AREF pin
sts admux,temp0
ret

adc_chan_gnd:
lds temp0,ADMUX
andi temp0,$F0
ori temp0,(0<<ADLAR|1<<MUX3|1<<MUX2|1<<MUX1|1<<MUX0) ;AVCC with external capacitor at AREF pin
sts admux,temp0
ret
;**************U-Ref laden***********************************
ref_5v: ldi temp1,high(ref5)
ldi temp0,low(ref5)
ret

ref_52v:ldi temp1,high(ref52)
ldi temp0,low(ref52)
ret

ref_256v:
ldi temp1,high(ref256)
ldi temp0,low(ref256)
ret

ref_2562v:
ldi temp1,high(ref2562)
ldi temp0,low(ref2562)
ret

;******************************adc_interrupt****** ****************
INT_ADC:
lds temp0,adcl ;wichtig erst low
sts ladc,temp0
lds temp1,adch ;dann high lesen sonst erg müll
sts hadc,temp1
reti


.include "AtMega328_analogcomparator.asm"


;ACHTUNG man kann im simulator nicht mit PD6/7 simulieren geht nur
;wenn ACO händisch gesetzt wird ACO=1 wird auch ACI=1 um den int zu nutzen
;wenn man den int nicht nutzt ist die abfrage auf ACO

AC_init:lds temp0,ADCSRB
ori temp0,(0<<ACME)
sts ADCSRB,temp0

ldi temp0,(0<<ACD|0<<ACBG|1<<ACIE|0<<ACIC|0<<ACIS1|0<<ACIS0)
out ACSR,temp0
sei ;
ret

;AUSWAHL neagtiver Input vom ADC
AC_negative_AC0:
rcall AC_negative_IN_init
rcall adc_chan_0
ret

AC_negative_AC1:
rcall AC_negative_IN_init
rcall adc_chan_1
ret

AC_negative_AC2:
rcall AC_negative_IN_init
rcall adc_chan_2
ret

AC_negative_AC3:
rcall AC_negative_IN_init
rcall adc_chan_3
ret

AC_negative_AC4:
rcall AC_negative_IN_init
rcall adc_chan_4
ret

AC_negative_AC5:
rcall AC_negative_IN_init
rcall adc_chan_5
ret

AC_negative_AC6:
rcall AC_negative_IN_init
rcall adc_chan_6
ret

AC_negative_AC7:
rcall AC_negative_IN_init
rcall adc_chan_7
ret

AC_negative_IN_init:
ldi temp0,(1<<ACME)
sts ADCSRB,temp0

ldi temp0,(0<<ADEN)
sts ADCSRA,temp0

ret

ac_change:
in temp0,ACSR
sbrs temp0,ACO
rjmp ac_change
ret

INT_ANALOG_COMP:
;wird aufgerufen wenn pd6+/pd7- pegelunterschiede feststellen
reti


.include "AtMega328_ext_ints.asm"


;PD2/3 sind INT0/1
INIT_EXT_INT01:
lds temp0,EICRA
ori temp0,(1<<ISC11|1<<ISC10|1<<ISC01|1<<ISC00) ;hier INT0/1 auf steigende flanke siehe PDF KAP.13
sts EICRA,temp0

in temp0,EIMSK
ori temp0,(1<<INT1|1<<INT0) ;beide INTs aktiv
out EIMSK,temp0

sei ;global int
ret

deak_INT01:
lds temp0,EIMSK
andi temp0,(0<<INT1|0<<INT0) ;beide INTs aktiv
sts EIMSK,temp0
ret

INT_EX0: ;hier steht das programm welches ausgeführt werden soll
reti

INT_EX1: ;hier steht das programm welches ausgeführt werden soll
reti

;*******************Pin Change Interrupt***************************************** ****
INIT_PC_INTx:
lds temp0,PCICR
ori temp0,(1<<PCIE2|1<<PCIE1|1<<PCIE0) ;Hier Portbereich wählen
sts PCICR,temp0 ;2=(23:16),1=(14:),0=(7:0)

rcall PCIE0_active
rcall PCIE1_active
rcall PCIE2_active

sei

ret

INIT_PC_INTx_deakt:
lds temp0,PCICR
andi temp0,(0<<PCIE2|0<<PCIE1|0<<PCIE0) ;Hier Portbereich wählen
sts PCICR,temp0 ;2=(23:16),1=(14:),0=(7:0)
ret

PCIE0_active:
lds temp0,PCMSK0
ori temp0,(0<<PCINT7 | 0<<PCINT6 | 0<<PCINT5| 0<<PCINT4 | 0<<PCINT3 | 0<<PCINT2 | 0<<PCINT1 | 0<<PCINT0)
sts PCMSK0,temp0
ret

PCIE1_active:
lds temp0,PCMSK1
ori temp0,(0<<PCINT14 | 0<<PCINT13 | 0<<PCINT12 | 0<<PCINT11 | 0<<PCINT10 | 0<<PCINT9 | 0<<PCINT8)
sts PCMSK1,temp0
ret

PCIE2_active:
lds temp0,PCMSK2
ori temp0,(0<<PCINT23 | 0<<PCINT22 | 0<<PCINT21 | 0<<PCINT20 | 0<<PCINT19 | 0<<PCINT18 | 0<<PCINT17 | 0<<PCINT16)
sts PCMSK2,temp0
ret


.include "AtMega328_eeprom.asm"

;*************************************
eeprom_init:
ldi temp0,(1<<EERIE)
out EECR,temp0
sei
ret

eeprom_rdy:
;siehe eeprom_write ;** man kann in der wartezeit andere sachen erledigen
;bis der int kommt, um dann weitere daten an den eeprom zum schreiben zu senden
;nur bei eeprom schreiben möglich
reti

;Adreessierung im eeprom
adr_cnt:ldi r25,high(EEPROMEND+1)
ldi r24,low(EEPROMEND+1)
lds yh,eep_adrh
lds yl,eep_adrl
adiw yh:yl,$01
cp yl,r24
cpc yh,r25
breq adr_cnt_eeprom_end
sts eep_adrl,yl
sts eep_adrh,yh
ret

adr_cnt_eeprom_end:
ret

EEPROM_write:
sbic EECR,EEPE ;** falls eewe im eecr noch gesetzt
rjmp EEPROM_write ;** spring zu zurück
lds r18,eep_adrh
lds r17,eep_adrl
out EEARH, r18 ;highbyte der adr
out EEARL,r17 ;lowbyte der adr
out EEDR,r16 ;zu speichernder wert
sbi EECR,EEMPE ;sperrt eeprom master write enable
sbi EECR,EEPE ;setze EEWE um eeprom zu schreiben
ret

EEPROM_read:
sbic EECR,EEPE ;falls eewe im eecr noch gesetzt
rjmp EEPROM_read ;springe zurück
lds r18,eep_adrh
lds r17,eep_adrl
out EEARH, r18 ;highbyte der adr
out EEARL, r17 ;lowbyte der adr
sbi EECR,EERE ;sperrt lesen des eeproms
in r16,EEDR ;zu lesender wert
ret


- - - Aktualisiert - - -

.include "AtMega328_timercounter.asm"


;*****************************INIT-Mode 1 Timer0******************************************** ************************
mode0_t0_init:
lds temp1,TIMSK0
ori temp1,(0<<OCIE0B | 0<<OCIE0A | 1<<TOIE0)
sts TIMSK0,temp1
clr temp1
sts TCNT0,temp1
ret

;MODE 1 PWM-PhaseCorrect beide Channels nutzbar da Counter bis FF zählt
mode1_t0_init:
rcall A0_ch_en ;out aktivieren
rcall B0_ch_en ;out aktivieren
rcall A0_ch_load ;Zeitwert laden
rcall B0_ch_load ;Zeitwert laden

in temp0,TCCR0A
ori temp0,(0<<COM0A1|1<<COM0A0|0<<COM0B1|1<<COM0B0) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
out TCCR0A,temp0

in temp0,TCCR0B
ori temp0,(0<<WGM02)
out TCCR0B,temp0

in temp0,TCCR0A
ori temp0,(0<<WGM01|1<<WGM00)
out TCCR0A,temp0

lds temp1,TIMSK0
ori temp1,(1<<OCIE0B | 1<<OCIE0A | 0<<TOIE0)
sts TIMSK0,temp1

ret

;MODE 2 CTC ACHTUNG NUR ein OCR nutzbar A oder B ausser
mode2_t0_init:
rcall A0_ch_en ;out aktivieren
rcall B0_ch_en ;out aktivieren
rcall A0_ch_load ;Zeitwert laden
rcall B0_ch_load ;Zeitwert laden

in temp0,TCCR0A
ori temp0,(1<<COM0A1|1<<COM0A0|1<<COM0B1|1<<COM0B0) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
out TCCR0A,temp0

in temp0,TCCR0B
ori temp0,(0<<WGM02)
out TCCR0B,temp0

in temp0,TCCR0A
ori temp0,(1<<WGM01|0<<WGM00)
out TCCR0A,temp0

lds temp1,TIMSK0
ori temp1,(1<<OCIE0B | 1<<OCIE0A | 0<<TOIE0)
sts TIMSK0,temp1

ret

;MODE 3 FAST PWM A / B unabahängig nutzbar
mode3_t0_init:
rcall A0_ch_en ;out aktivieren
rcall B0_ch_en ;out aktivieren
rcall A0_ch_load ;Zeitwert laden
rcall B0_ch_load ;Zeitwert laden

in temp0,TCCR0A
ori temp0,(1<<COM0A1|1<<COM0A0|1<<COM0B1|1<<COM0B0) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
out TCCR0A,temp0

in temp0,TCCR0B
ori temp0,(0<<WGM02)
out TCCR0B,temp0

in temp0,TCCR0A
ori temp0,(1<<WGM01|1<<WGM00)
out TCCR0A,temp0

lds temp1,TIMSK0
ori temp1,(1<<OCIE0B | 1<<OCIE0A | 0<<TOIE0)
sts TIMSK0,temp1

ret

;MODE 4 RESERVED


;MODE 5 PWM-PhaseCorrect nur OCRA mit CHAN A und INT A, wenn OCRB < OCRA dann ist noch INT B ohne CHAN B nutzbar
mode5_t0_init:
rcall A0_ch_en ;out aktivieren
rcall B0_ch_en ;out aktivieren
rcall A0_ch_load ;Zeitwert laden
rcall B0_ch_load ;Zeitwert laden

in temp0,TCCR0A
ori temp0,(0<<COM0A1|1<<COM0A0|0<<COM0B1|1<<COM0B0) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
out TCCR0A,temp0

in temp0,TCCR0B
ori temp0,(1<<WGM02)
out TCCR0B,temp0

in temp0,TCCR0A
ori temp0,(0<<WGM01|1<<WGM00)
out TCCR0A,temp0

lds temp1,TIMSK0
ori temp1,(1<<OCIE0B | 1<<OCIE0A | 0<<TOIE0)
sts TIMSK0,temp1

ret

;MODE 6 RESERVED

;MODE 7 FAST-PWM nur OCRA mit CHAN A und INT A, wenn OCRB < OCRA dann ist noch INT B ohne CHAN B nutzbar
mode7_t0_init:
rcall A0_ch_en ;out aktivieren
rcall B0_ch_en ;out aktivieren
rcall A0_ch_load ;Zeitwert laden
rcall B0_ch_load ;Zeitwert laden

in temp0,TCCR0A
ori temp0,(0<<COM0A1|1<<COM0A0|0<<COM0B1|1<<COM0B0) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
out TCCR0A,temp0

in temp0,TCCR0B
ori temp0,(1<<WGM02)
out TCCR0B,temp0

in temp0,TCCR0A
ori temp0,(1<<WGM01|1<<WGM00)
out TCCR0A,temp0

lds temp1,TIMSK0
ori temp1,(1<<OCIE0B | 1<<OCIE0A | 0<<TOIE0)
sts TIMSK0,temp1

ret

;Zähler de/aktivieren
prescaler_T0_on:
in temp0,TCCR0B
ori temp0,(0<<CS12|0<<CS11|1<<CS10) ;schmeißt den counter an
out TCCR0B,temp0
sei
ret

prescaler_T0_off:
in temp0,TCCR0B
andi temp0,(0<<CS12|0<<CS11|0<<CS10) ;stoppt den counter an
out TCCR0B,temp0
ret

T0_clr: clr temp0
sts TCNT0,temp0
ret

;*****************ChannelLoad********************* *********************************
A0_ch_load:
ldi temp0,$50 ;Toggeln oder Clr/Set aktiv muss OCR1Ah-Register beachtet werden um
sts ocra0,temp0 ;____--- oder _------ zu erreichen
out OCR0A,temp0 ;Toggeln oder Clr/Set aktiv muss OCR1Al-Register beachtet werden um

ret

A0_ch_en:
sbi ddrd,6 ;output aktivieren wenn Toggeln am PINB1=OCR1A erwünscht
ret

A0_ch_dis:
cbi ddrd,6 ;output deaktivieren wenn Toggeln am PINB1=OCR1A erwünscht
ret

B0_ch_load:
ldi temp0,$25 ;Toggeln oder Clr/Set aktiv muss OCR1Ah-Register beachtet werden um
sts ocrb0,temp0 ;____--- oder _------ zu erreichen
out OCR0B,temp0 ;Toggeln oder Clr/Set aktiv muss OCR1Al-Register beachtet werden um

ret

B0_ch_en:
sbi ddrd,5 ;output aktivieren wenn Toggeln am PINB1=OCR1A erwünscht
ret

B0_ch_dis:
cbi ddrd,5 ;output deaktivieren wenn Toggeln am PINB1=OCR1A erwünscht
ret

;******ISR
INT_OC0A: ;$000E
reti

INT_OC0B: ;$0010
reti

INT_OVF0: ;$0012
reti



Fortsetzung folgt

avr_racer
13.08.2017, 10:09
Fortsetzung

.include "AtMega328_timercounter.asm" Fortsetzung

;******************************Init-Modes des Timers1******************************************* ********************
mode0_T1_init:;NORMAL_MODE OCR1A h:l,OCR1B h:l update ocrxH:L sofort oder im INT
;rcall A1_ch_en ;out aktivieren
;rcall B1_ch_en ;out aktivieren
;rcall A1_ch_load ;Zeitwert laden
;rcall B1_ch_load ;Zeitwert laden
ldi temp0,(0<<ICNC1|0<<ICES1|0<<WGM13|0<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(0<<COM1A1|1<<COM1A0|0<<COM1B1|1<<COM1B0|0<<WGM11|0<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(0<<ICIE1|0<<OCIE1B|0<<OCIE1A|1<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode1_T1_init:;8bit phase correct mode OCR1A h:l,OCR1B h:l update ocrxH:L on top oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(0<<WGM13|0<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(1<<COM1A1|0<<COM1A0|1<<COM1B1|0<<COM1B0|0<<WGM11|1<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(0<<ICIE1|1<<OCIE1A|1<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode2_T1_init:;9bit phase correct mode OCR1A h:l,OCR1B h:l update ocrxH:L on top oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(0<<WGM13|0<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(1<<COM1A1|0<<COM1A0|1<<COM1B1|0<<COM1B0|1<<WGM11|0<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(0<<ICIE1|1<<OCIE1A|1<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode3_T1_init:;10bit phase correct mode OCR1A h:l,OCR1B h:l update ocrxH:L on top oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(0<<WGM13|0<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(1<<COM1A1|0<<COM1A0|1<<COM1B1|0<<COM1B0|1<<WGM11|1<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(0<<ICIE1|1<<OCIE1A|1<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode4_T1_init:;CTC mode OCR1A h:l,OCR1B h:l update ocrAH:L oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(0<<WGM13|1<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(0<<COM1A1|1<<COM1A0|0<<COM1B1|1<<COM1B0|0<<WGM11|0<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(0<<ICIE1|0<<OCIE1A|0<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode5_T1_init:;FAST PWM 8bit OCR1A h:l,OCR1B h:l update ocrxH:L on bottom oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(0<<WGM13|1<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(0<<COM1A1|1<<COM1A0|0<<COM1B1|1<<COM1B0|0<<WGM11|1<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(0<<ICIE1|0<<OCIE1A|0<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode6_T1_init:;FAST PWM 9bit OCR1A h:l,OCR1B h:l update ocrxH:L on bottom oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(0<<WGM13|1<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(1<<COM1A1|0<<COM1A0|1<<COM1B1|0<<COM1B0|1<<WGM11|0<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(0<<ICIE1|1<<OCIE1A|1<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode7_T1_init:;FAST PWM 10bit OCR1A h:l,OCR1B h:l update ocrxH:L on bottom oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(0<<WGM13|1<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(1<<COM1A1|0<<COM1A0|1<<COM1B1|0<<COM1B0|1<<WGM11|1<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(0<<ICIE1|1<<OCIE1A|1<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode8_T1_init:;PWM,PahseFrequenzyCorrect OCR1A h:l,ICRh:l update ocrxH:L on bottom oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(1<<ICES1|1<<WGM13|0<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(1<<COM1A1|0<<COM1A0|1<<COM1B1|0<<COM1B0|0<<WGM11|0<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(1<<ICIE1|0<<OCIE1A|0<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode9_T1_init:;PWM,PahseFrequenzyCorrect OCR1A h:l,OCR1A h:l update ocrxH:L on bottom oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(1<<WGM13|0<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(1<<COM1A1|0<<COM1A0|1<<COM1B1|0<<COM1B0|0<<WGM11|1<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(0<<ICIE1|1<<OCIE1A|1<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode10_T1_init:;PWM,PahseCorrect OCR1A h:l,ICRh:l update ocrxH:L on top oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(1<<WGM13|0<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(1<<COM1A1|0<<COM1A0|1<<COM1B1|0<<COM1B0|1<<WGM11|0<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(1<<ICIE1|0<<OCIE1A|0<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode11_T1_init:;PWM,PahseCorrect OCR1A h:l,OCRah:l update ocrxH:L on top oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(1<<WGM13|0<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(1<<COM1A1|0<<COM1A0|1<<COM1B1|0<<COM1B0|1<<WGM11|1<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(0<<ICIE1|1<<OCIE1A|1<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode12_T1_init:;CTC OCR1A h:l,ICRh:l update sofort oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(1<<WGM13|1<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(0<<COM1A1|1<<COM1A0|0<<COM1B1|1<<COM1B0|0<<WGM11|0<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(1<<ICIE1|0<<OCIE1A|0<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode13_T1_init:;RESERVED not activated
/* ;rcall A1_ch_en ;out aktivieren
;rcall B1_ch_en ;out aktivieren
;rcall A1_ch_load ;Zeitwert laden
;rcall B1_ch_load ;Zeitwert laden
ldi temp0,(1<<WGM13|1<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
out TCCR1B,temp0
in temp0,TCCR1A
ori temp0,(1<<COM1A1|0<<COM1A0|1<<COM1B1|0<<COM1B0|0<<WGM11|1<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
out TCCR1A,temp0
in temp0,TIMSK
ori temp0,(0<<TICIE1|1<<OCIE1A|1<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
out TIMSK,temp0
*/ ret

mode14_T1_init:;FAST PWM OCR1A h:l,ICRh:l update ocrxH:L on bottom oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(1<<WGM13|1<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(1<<COM1A1|0<<COM1A0|1<<COM1B1|0<<COM1B0|1<<WGM11|0<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(1<<ICIE1|0<<OCIE1A|0<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

mode15_T1_init:;FAST PWM OCR1A h:l,OCRah:l update ocrxH:L on bottom oder im INT
rcall A1_ch_en ;out aktivieren
rcall B1_ch_en ;out aktivieren
rcall A1_ch_load ;Zeitwert laden
rcall B1_ch_load ;Zeitwert laden
ldi temp0,(1<<WGM13|1<<WGM12) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1B,temp0
lds temp0,TCCR1A
ori temp0,(0<<COM1A1|1<<COM1A0|0<<COM1B1|0<<COM1B0|1<<WGM11|1<<WGM10) ;zum Toggeln COM1xA/B Einstellungen beachten!!!!!!!!!
sts TCCR1A,temp0
lds temp0,TIMSK1
ori temp0,(0<<ICIE1|0<<OCIE1A|0<<OCIE1B|0<<TOIE1) ;INT für ICP=off, OCIE1A=off, OCIE1B=off, OVFL=1
sts TIMSK1,temp0
ret

prescaler_T1_on:
lds temp0,TCCR1B
ori temp0,(0<<CS12|0<<CS11|1<<CS10) ;schmeißt den counter an
sts TCCR1B,temp0
sei
ret

prescaler_T1_off:
lds temp0,TCCR1B
andi temp0,(0<<CS12|0<<CS11|0<<CS10) ;stoppt den counter an
sts TCCR1B,temp0
ret

T1_clr: clr temp0
sts TCNT1h,temp0
sts TCNT1l,temp0
ret

;**********Channel load
A1_ch_load:
ldi temp0,$00 ;Toggeln oder Clr/Set aktiv muss OCR1Ah-Register beachtet werden um
sts OCRa1h,temp0 ;____--- oder _------ zu erreichen
sts OCR1ah,temp0
ldi temp0,$ff ;Toggeln oder Clr/Set aktiv muss OCR1Al-Register beachtet werden um
sts OCRa1l,temp0 ;____--- oder _------ zu erreichen
sts OCR1al,temp0
ret

A1_ch_en:
sbi ddrb,1 ;output aktivieren wenn Toggeln am PINB1=OCR1A erwünscht
ret

A1_ch_dis:
cbi ddrb,1 ;output deaktivieren wenn Toggeln am PINB1=OCR1A erwünscht
ret

B1_ch_load:
ldi temp0,$00 ;Toggeln oder Clr/Set aktiv muss OCR1Bh-Register beachtet werden um
sts OCRb1h,temp0 ;____--- oder _------ zu erreichen
sts OCR1bh,temp0
ldi temp0,$80 ;Toggeln oder Clr/Set aktiv muss OCR1Bl-Register beachtet werden um
sts OCRb1l,temp0 ;____--- oder _------ zu erreichen
sts OCR1bl,temp0
ret

B1_ch_en:
sbi ddrb,2 ;output aktivieren wenn Toggeln am PINB1=OCR1A erwünscht
ret

B1_ch_dis:
cbi ddrb,2 ;output deaktivieren wenn Toggeln am PINB1=OCR1A erwünscht
ret

;**********ISR
INT_CPT1: ;$0014 Timer/Counter1 Capture Event
;ICRH:L wird vom Counter TVCNT1H:L bei Steigender/Fallender Flanke beschrieben
reti

INT_OC1A: ;$0016 Timer/Counter1 Compare Match A
push temp0
lds temp0,OCRa1h ;Toggeln oder Clr/Set aktiv muss OCR1Ah-Register beachtet werden um
sts OCR1Ah,temp0 ;____--- oder _------ zu erreichen
lds temp0,OCRa1l ;Toggeln oder Clr/Set aktiv muss OCR1Al-Register beachtet werden um
subi temp0,$30
sts OCR1Al,temp0 ;____--- oder _------ zu erreichen
sts OCRa1l,temp0
pop temp0
reti

INT_OC1B: ;$0018 Timer/Counter1 Compare Match B
push temp0
lds temp0,OCRb1h ;Toggeln oder Clr/Set aktiv muss OCR1Bh-Register beachtet werden um
sts OCR1Bh,temp0 ;____--- oder _------ zu erreichen
lds temp0,OCRb1l ;Toggeln oder Clr/Set aktiv muss OCR1Bl-Register beachtet werden um
sts OCR1Bl,temp0 ;____--- oder _------ zu erreichen
pop temp0
reti

INT_OVF1: ;$001A Timer/Counter1 Overflow
reti

;************************************************* ************************************************** ****************
;******************************Init-Modes des Timers2******************************************* ********************
mode0_T2_init:;NORMAL_MODE OCR2 update sofort oder im INT
rcall A2_ch_en ;output aktivieren wenn Toggeln am PINB3=OCR2 erwünscht
rcall B2_ch_en ;Toggeln oder Clr/Set aktiv muss OCR2-Register beachtet werden um
rcall A2_ch_load ;____--- oder _------ zu erreichen
rcall B2_ch_load

lds temp0,TCCR2B
ori temp0,(0<<WGM22)
sts TCCR2B,temp0

lds temp0,TCCR2A
ori temp0,( 0<<WGM21 | 0<<WGM20 )
sts TCCR2A,temp0

lds temp0,TCCR2A
ori temp0,( 0<<COM2A1 | 0<<COM2A0 | 0<<COM2B1 | 0<<COM2B0 ) ;zum Toggeln COM2x Einstellungen beachten!!!!!!!!!
sts TCCR2A,temp0

lds temp0,TIMSK2
ori temp0,( 0<<OCIE2B | 0<<OCIE2A | 1<<TOIE2 );OutputCompareInterrupt deaktiviert
sts TIMSK2,temp0

ret

mode1_T2_init:;PWM-PhaseCorrect
rcall A2_ch_en ;output aktivieren wenn Toggeln am PINB3=OCR2 erwünscht
rcall B2_ch_en ;Toggeln oder Clr/Set aktiv muss OCR2-Register beachtet werden um
rcall A2_ch_load ;____--- oder _------ zu erreichen
rcall B2_ch_load

lds temp0,TCCR2B
ori temp0,(0<<WGM22)
sts TCCR2B,temp0

lds temp0,TCCR2A
ori temp0,( 0<<WGM21 | 1<<WGM20 )
sts TCCR2A,temp0

lds temp0,TCCR2A
ori temp0,( 1<<COM2A1 | 1<<COM2A0 | 0<<COM2B1 | 0<<COM2B0 ) ;zum Toggeln COM2x Einstellungen beachten!!!!!!!!!
sts TCCR2A,temp0

lds temp0,TIMSK2
ori temp0,( 0<<OCIE2B | 1<<OCIE2A | 0<<TOIE2 );OutputCompareInterrupt deaktiviert
sts TIMSK2,temp0

ret

mode2_T2_init:;CTC
;rcall A2_ch_en ;output aktivieren wenn Toggeln am PINB3=OCR2 erwünscht
;rcall B2_ch_en ;Toggeln oder Clr/Set aktiv muss OCR2-Register beachtet werden um
rcall A2_ch_load ;____--- oder _------ zu erreichen
;rcall B2_ch_load

lds temp0,TCCR2B
ori temp0,(0<<WGM22)
sts TCCR2B,temp0

lds temp0,TCCR2A
ori temp0,( 1<<WGM21 | 0<<WGM20 )
sts TCCR2A,temp0

lds temp0,TCCR2A
ori temp0,( 0<<COM2A1 | 1<<COM2A0 | 0<<COM2B1 | 1<<COM2B0 ) ;zum Toggeln COM2x Einstellungen beachten!!!!!!!!!
sts TCCR2A,temp0

lds temp0,TIMSK2
ori temp0,( 0<<OCIE2B | 1<<OCIE2A | 0<<TOIE2 );OutputCompareInterrupt deaktiviert
sts TIMSK2,temp0

ret

mode3_T2_init:;FastPWM
rcall A2_ch_en ;output aktivieren wenn Toggeln am PINB3=OCR2 erwünscht
rcall B2_ch_en ;Toggeln oder Clr/Set aktiv muss OCR2-Register beachtet werden um
rcall A2_ch_load ;____--- oder _------ zu erreichen
rcall B2_ch_load

lds temp0,TCCR2B
ori temp0,(0<<WGM22)
sts TCCR2B,temp0

lds temp0,TCCR2A
ori temp0,( 1<<WGM21 | 1<<WGM20 )
sts TCCR2A,temp0

lds temp0,TCCR2A
ori temp0,( 0<<COM2A1 | 1<<COM2A0 | 0<<COM2B1 | 1<<COM2B0 ) ;zum Toggeln COM2x Einstellungen beachten!!!!!!!!!
sts TCCR2A,temp0

lds temp0,TIMSK2
ori temp0,( 1<<OCIE2B | 1<<OCIE2A | 0<<TOIE2 );OutputCompareInterrupt deaktiviert
sts TIMSK2,temp0

ret

mode5_T2_init:;PWM PHASE CORRECT
rcall A2_ch_en ;output aktivieren wenn Toggeln am PINB3=OCR2 erwünscht
rcall B2_ch_en ;Toggeln oder Clr/Set aktiv muss OCR2-Register beachtet werden um
rcall A2_ch_load ;____--- oder _------ zu erreichen
rcall B2_ch_load

lds temp0,TCCR2B
ori temp0,(1<<WGM22)
sts TCCR2B,temp0

lds temp0,TCCR2A
ori temp0,( 0<<WGM21 | 1<<WGM20 )
sts TCCR2A,temp0

lds temp0,TCCR2A
ori temp0,( 0<<COM2A1 | 1<<COM2A0 | 1<<COM2B1 | 0<<COM2B0 ) ;zum Toggeln COM2x Einstellungen beachten!!!!!!!!!
sts TCCR2A,temp0

lds temp0,TIMSK2
ori temp0,( 1<<OCIE2B | 1<<OCIE2A | 0<<TOIE2 );OutputCompareInterrupt deaktiviert
sts TIMSK2,temp0

ret

mode7_T2_init:;FAST PWM
rcall A2_ch_en ;output aktivieren wenn Toggeln am PINB3=OCR2 erwünscht
rcall B2_ch_en ;Toggeln oder Clr/Set aktiv muss OCR2-Register beachtet werden um
rcall A2_ch_load ;____--- oder _------ zu erreichen
rcall B2_ch_load

lds temp0,TCCR2B
ori temp0,(1<<WGM22)
sts TCCR2B,temp0

lds temp0,TCCR2A
ori temp0,( 1<<WGM21 | 1<<WGM20 )
sts TCCR2A,temp0

lds temp0,TCCR2A
ori temp0,( 1<<COM2A1 | 1<<COM2A0 | 1<<COM2B1 | 1<<COM2B0 ) ;zum Toggeln COM2x Einstellungen beachten!!!!!!!!!
sts TCCR2A,temp0

lds temp0,TIMSK2
ori temp0,( 1<<OCIE2B | 1<<OCIE2A | 0<<TOIE2 );OutputCompareInterrupt deaktiviert
sts TIMSK2,temp0

ret

prescaler_T2_on:
lds temp0,TCCR2B
ori temp0,(1<<CS22|1<<CS21|1<<CS20) ;schmeißt den counter an
sts TCCR2B,temp0
sei
ret

prescaler_T2_off:
lds temp0,TCCR2B
andi temp0,(0<<CS22|0<<CS21|0<<CS20) ;stoppt den counter an
sts TCCR2B,temp0
ret

T2_clr: clr temp0
sts TCNT2,temp0
ret

;**********Channel load
A2_ch_load:
ldi temp0,$4d ;Toggeln oder Clr/Set aktiv muss OCR1Ah-Register beachtet werden um
sts OCR2A,temp0
clr temp0
sts ocra2,temp0
ret

A2_ch_en:
sbi ddrb,3 ;output aktivieren wenn Toggeln am PINB1=OCR1A erwünscht
ret

A2_ch_dis:
cbi ddrb,3 ;output deaktivieren wenn Toggeln am PINB1=OCR1A erwünscht
ret

B2_ch_load:
ldi temp0,$40 ;Toggeln oder Clr/Set aktiv muss OCR1Ah-Register beachtet werden um
sts OCR2B,temp0
sts ocrb2,temp0
ret

B2_ch_en:
sbi ddrd,3 ;output aktivieren wenn Toggeln am PINB1=OCR1A erwünscht
ret

B2_ch_dis:
cbi ddrd,3 ;output deaktivieren wenn Toggeln am PINB1=OCR1A erwünscht
ret


;*******ISR
INT_OC2A: ;$000E
reti
INT_OC2A2:
reti

INT_OC2B: ;$0010
reti

INT_OVF2: ;$0012
reti



.include "AtMega328_uart_std.asm"

;************************Unterprogramme*********** *******************
rx: rcall data_received ;warte auf daten von PC
cpi temp1,' ' ;vergleich auf leerzeichen
brne rx ;sonst wenn falsch warte weiter
ldi temp1,'*' ;
rcall data_transmit ;sende * als ack
ret

tx: rcall wait150ms
ldi temp1,'T'
rcall data_transmit ;sende T
ldi temp1,'S'
rcall data_transmit ;sende S
ldi temp1,'T'
rcall data_transmit ;sende T
ret

;*********************Textausgabe aus DB***********************************
txt_out_rs_debug:
rcall debug_pnt ;Pointer für Debug laden wird alles in SRAM ab Adresse RSDEBUG geschrieben
txt_out_rs:
lpm temp1,z+ ;!!! muss in der .db *2 genommen werden
cpi temp1,$ff
breq txt_out_rs_end
; st x+,temp1 ;nur einschalten wenn debug angesprungen wird
rcall data_transmit ;z.b.: ldi ZH,high(out0*2)
rjmp txt_out_rs
txt_out_rs_end:
ret

debug_pnt:
ldi xh,high(RSdebug)
ldi xl,low(RSdebug)
ret

;***********This is an ENTER omg*******************************************
enter_rs232:
ldi temp1,$0d
rcall data_transmit
ldi temp1,$0a
rcall data_transmit
ret

leer_zeichen_rs232:
ldi temp1,' '
rcall data_transmit
ret

;***************************ZahlenAusgabe********* ****************
zahl_rs_load_out:
; ld mathergll,y+ ;alles in die Mathregs laden
; clr mathergl
; clr mathergh
; clr matherghh
rcall hex_dez ;Zahlenwandlung
push yh ;on stack anderer AdressBereich
push yl ;on stack
rcall load_Y_ergk ;maximale Ausgabe an Zahlen also 5Byte; load_Y_ergk1(4byte),2(3byte),3(2byte),4(1byte)
ldi temp3,high(erg_k+5)
ldi temp4,low(erg_k+5)
zahl_rs_load_out2:
rcall zahl_out_rsx ;Dez in ASCII + Ausgabe
cp yl,temp4 ;
brne zahl_rs_load_out2
pop yl ;from stack
pop yh ;from stack
ret

zahl_out_rsx: ;RSX Ausgabe mit Variabler BYTEZAHL durch load_Y_ergk festgelegt
ld temp1,y+
rjmp zahl_out_rs
zahl_out_rs1: ;rs Ausgabe 2er Zahlen = 1Byte
ld temp1,y ; nur um 1byte auszugeben
zahl_out_rs: ;wird nur rs1 angesprungen müssen die Daten vorher geladen werden
mov temp2,temp1
swap temp1
andi temp1,$0f
ori temp1,$30
rcall data_transmit ;Zehnerausgabe
;Ausgbabe 1er Zahl
mov temp1,temp2
andi temp1,$0f
ori temp1,$30
rcall data_transmit ;Einerausgabe
ret

;*****************Wandlung von 1A-hex in 1A-ASCII = 31 , 41 Anzeige ist 1 A
adr_hex_ASCII_rs: ;Daten vorher in Temp1 laden
pc_ser2:mov temp2,temp1 ;byte sichern

swap temp1 ;swapen
andi temp1,$0f ;ausanden
cpi temp1,$0a ;vergleich ob >= 10
brsh pc_ser21 ;wenn ja mach ein HexBuchstabe zu ASCII-Buschstabe
subi temp1,-$30 ;wenn nein mach HexZahl zu ASCII-Zahl
rjmp pc_ser22
pc_ser21:
subi temp1,-$37 ;HexBuchstabe zu ASCII-Buschstabe
pc_ser22:
rcall data_transmit ;und ab damit zum PC
mov temp1,temp2 ;gesichertes byte laden
andi temp1,$0f ;ausanden
cpi temp1,$0a ;vergleich ob >= 10
brsh pc_ser31 ;wenn ja mach ein HexBuchstabe zu ASCII-Buschstabe
subi temp1,-$30 ;wenn nein mach HexZahl zu ASCII-Zahl
rjmp pc_ser32
pc_ser31:
subi temp1,-$37 ;HexBuchstabe zu ASCII-Buschstabe
pc_ser32:
rcall data_transmit ;und ab damit zum PC
rcall leer_zeichen_rs232 ;leerzeichen
rcall enter_rs232 ;wenn ja mach noch ein ENTER
ret

;************************uart_init mit RX interrupt**********************
usart_init:
ldi temp0,high (UBRR0)
ldi temp1,low (UBRR0)
sts UBRR0H,temp0 ;9600 Baud einstellen PDF S.133 table52
sts UBRR0L,temp1

rcall char_size8 ;8 zeichen, 1 stoppbit

lds temp0,UCSR0A
ori temp0,(0<<U2X0|0<<MPCM0) ;no DoubleSpeed, no MultiProzComMode
sts UCSR0A,temp0

ret

char_size5:
ldi temp0,(0<<UMSEL01|0<<UMSEL00|0<<UPM01|0<<UPM00|0<<USBS0|0<<UCSZ01|0<<UCSZ00|0<<UCPOL0) ; UCSRC1 or UBRRH0,USBS=0 stoppbits1,
sts UCSR0C,temp0
ldi temp0,(0<<RXCIE0|0<<TXCIE0|0<<UDRIE0|1<<RXEN0|1<<TXEN0|0<<UCSZ02) ;enable RX u TX <=5bit(UCSZ2=0)
sts UCSR0B,temp0 ;
ret

char_size6:
ldi temp0,(0<<UMSEL01|0<<UMSEL00|0<<UPM01|0<<UPM00|0<<USBS0|0<<UCSZ01|1<<UCSZ00|0<<UCPOL0) ;UCSRC1 or UBRRH0,USBS=0 stoppbits1,
sts UCSR0C,temp0
ldi temp0,(0<<RXCIE0|0<<TXCIE0|0<<UDRIE0|1<<RXEN0|1<<TXEN0|0<<UCSZ02) ;enable RX u TX <=6bit(UCSZ2=0)
sts UCSR0B,temp0
ret

char_size7:
ldi temp0,(0<<UMSEL01|0<<UMSEL00|0<<UPM01|0<<UPM00|0<<USBS0|1<<UCSZ01|0<<UCSZ00|0<<UCPOL0) ;UCSRC1 or UBRRH0,USBS=0 stoppbits1,
sts UCSR0C,temp0
ldi temp0,(0<<RXCIE0|0<<TXCIE0|0<<UDRIE0|1<<RXEN0|1<<TXEN0|0<<UCSZ02) ;enable RX u TX <=7bit(UCSZ2=0)
sts UCSR0B,temp0 ;
ret

char_size8:
ldi temp0,(0<<UMSEL01|0<<UMSEL00|0<<UPM01|0<<UPM00|0<<USBS0|1<<UCSZ01|1<<UCSZ00|0<<UCPOL0) ;UCSRC1 or UBRRH0,USBS=0 stoppbits1,
sts UCSR0C,temp0
ldi temp0,(0<<RXCIE0|0<<TXCIE0|0<<UDRIE0|1<<RXEN0|1<<TXEN0|0<<UCSZ02) ;enable RX u TX <=7bit(UCSZ2=0)
sts UCSR0B,temp0
ret

char_size9:
ldi temp0,(0<<UMSEL01|0<<UMSEL00|0<<UPM01|0<<UPM00|0<<USBS0|1<<UCSZ01|1<<UCSZ00|0<<UCPOL0) ;UCSRC1 or UBRRH0,USBS=0 stoppbits1,
sts UCSR0C,temp0
ldi temp0,(0<<RXCIE0|0<<TXCIE0|0<<UDRIE0|1<<RXEN0|1<<TXEN0|1<<UCSZ02) ;enable RX u TX <=9bit(UCSZ2=1)
sts UCSR0B,temp0
ret

;************************uart_deinit************** ******************
usart_all_aus:
clr temp0
sts UCSR0B,temp0
sts UCSR0C,temp0
sts UBRR0L,temp0
sts UBRR0H,temp0
ret

usart_ofln: ;wenn unterprogramme nicht
clr temp0 ;gestört werden dürfen
sts UCSR0B,temp0 ;nur usart offline
ret

;**********************daten_senden*************** ******************
INT_USART_RX:
;siehe data_transmit;** man kann in der wartezeit andere sachen erledigen
;bis der int kommt im INT selbst könnte man ne art daten-lese-schleife implementieren
;um weitere daten zu senden die dann an temp1>>>UDR weitergegeben werden
sts UDR0,temp1 ; Put LSB data (r17) into buffer, tranceived data
reti
;(polling)
data_transmit:
lds temp0,UCSR0A
sbrs temp0,UDRE0 ;**
rjmp data_transmit ;**
sts UDR0,temp1 ; Put LSB data (r17) into buffer, tranceived data
ret

;**********************daten_empfangen **********************
INT_USART_TX:
lds temp1,UDR0 ; Put data from buffer into r17, received Data
;siehe data_received;** man kann in der wartezeit andere sachen erledigen
;bis der int kommt im INT selbst könnte man ne art daten-schreib-schleife implementieren
;um weitere daten zu empfangen die dann an UDR>>>temp1 weitergegeben werden
reti
;(polling)
data_received:
lds temp0,UCSR0A
sbrs temp0,RXC0 ;**
rjmp data_received ;**
lds temp1,UDR0 ; Put data from buffer into r17, received Data
ret

;********************DatenRegisterLeereInterrupt** *********************
INT_UDRE:
;SOLANGE dieses register leer ist wird diese routine aufgerufen
;also eigentlich immer wenn UDR=0
reti



.include "AtMega328_LCD_Txt_out.asm"

;Hier her kommen alle Texte und Zahlausgaben für das LCD die so anfallen
;********************TextAusgabeLCD*************** ******************
werbe1: ldi temp1,Zeile1
rcall lcd_DDR_AdrX
ldi ZH,high(out0*2)
ldi ZL,low(out0*2)
rcall txt_out
ret

;************************Zahlenausgabe
zahl_out_lcd:
ldi temp1,Zeile2
rcall lcd_DDR_AdrX ;auf LCDadresse 00
;!!!!!!!!Um andere Werte zu wandeln, müssen diese in matherghh:h:l:ll geladen werden!!!!!!!!!!
;clr matherghh ;hhbyte löschen
;clr mathergh ;hbyte löschen
;clr mathergl ;lbyte löschen
;lds mathergll,*** ;Wert laden
rcall hex_dez ;Wandlung von HEX in DEZ steht dierekt im RAM
set ;T-Flag setzen damit von 8stellig 8/7te
rcall lcd_zahlout_4 ;Zahl auf LCD 4byte = 8stellig
set ;T-Flag setzen damit von 8stellig 6/5te
rcall lcd_zahlout_3 ;Zahl auf LCD 4byte = 8stellig
ret

;************************direktwandlung*wort*in*AS CII***************
; * + *=16Stellen/+=20stellen
; "12345678901234567890"
out0: .db " AVR-Atmega328 ",$ff
;**************************ende******************* *******************************


.include "AtMega328_RS_Txt_out.asm"

;**************Zeichen AUSGABE PC**************************************
werbe_rs:
ldi ZH,high(rs_out0*2)
ldi ZL,low(rs_out0*2)
rcall txt_out_rs
;rcall txt_out_rs_debug
rcall enter_rs232
ret

;************************direktwandlung*wort*in*AS CII***************
rs_out0: .db "TST AtMega328 BIB",$ff