;*********************************************************************** ;* mega16 ;* f osc = 8 MHz internal RC ;* fuses=0 CKSEL3 CKSEL1 CKSEL0 SUT0 ;*********************************************************************** .include "m16def.inc" .nolist ; R0 ; R1 ; R2 ;mult .def EncCount = R5 ; .def timrU10 = R6 ; .def timrU20 = R7 ; .def timrU30 = R8 ; .def filtradr = R9 ; .def ADCcnt = R10 ; .def keycnt = R11 ; .def morgalka = R12 ; .def msec = R13 ; 10Hz смена значений на индикаторе .def enccnt = R14 .def resetFM = R15 ; сбросить флаг моргалки .def temp = R16 .def tempH = R17 .def flags = R18 .equ f_MV = 0 .equ f_MA = 1 .equ f_delay = 2 .equ f_dir = 3 .equ f_5tr = 4 .equ f_OFF = 5 .def razryad = R19 ;.def = R20 ;.def = R21 ;.def = R22 ;.def = R23 .def buferL = R24 .def buferH = R25 ; XL = R26 ; XH = R27 ; YL = R28 ; YH = R29 ; ZL = R30 uses in conversion ; ZH = R31 ;---------- описание портов ---------------- .equ S_Port = PORTC ; сегменты ; 76543210 .equ S_a = 0b00100000 .equ S_b = 0b10000000 .equ S_c = 0b00000010 .equ S_d = 0b00001000 .equ S_e = 0b00010000 .equ S_f = 0b01000000 .equ S_g = 0b00000001 .equ S_h = 0b00000100 .equ Off = 0b00000000 .equ R_Port = PORTB ; разряды .equ R_V1 = 2 .equ R_V2 = 1 .equ R_V3 = 0 .equ R_I1 = 3 .equ R_I2 = 4 .equ R_I3 = 5 .equ B_Port = PORTB ; порт кнопки .equ button = 6 ; пин кнопки .equ OFFbutt = 5 .equ Ibutt = 0 .equ Ubutt = 2 .equ notbutt = 3 .equ E_Port = PORTD ; энкодеры .equ E_INT1 = 3 ; INT1 .equ E_INT0 = 2 ; INT0 .equ E_Volt = 1 ; второй на INT1 .equ E_Amper = 0 ; второй на INT0 .equ ADC_Port= PORTA ; ацп .equ Voltage_ADC =2 ; был канал 0 .equ Current_ADC =1 ; канал 1 .equ Temper_ADC =0 ; был канал 2 .equ O_Port = PORTA ; Opto .equ U36 = 5 .equ U24 = 6 .equ U12 = 7 ;U30 .equ OFF_STAB= 4 ;---------Constants------- ;------RAM-------- ;* $060-0FF empty ;0x01xx .equ RAM_Disp =0x00 ;to 0x05 Data to display .equ RAM_Segm =0x08 ;to 0x0D Segmented data .equ RAM_Hex =0x10 ;to 0x14 Result of hex2dec .equ RAM_VA =0x18 ;to 0x1B E_VoltL,E_VoltH,E_AmpL,E_AmpH, .equ RAM_ADVA =0x20 ;to 0x25 ADC_VoltL,ADC_VoltH,ADC_AmpL,ADC_AmpH,ADCTempL,H .equ RAM_ADC =0x80 ;to 0x2FF ;---------Macros------- .MACRO macroName nop .ENDM .cseg ;выбор сегмента програмного кода .org 0 ;установка текущего адреса на 0 ;******************************************************************** ;* Векторы прерываний * ;******************************************************************** jmp RESET ;0x000 Pin, Power-on, Brown-out, Watchdog Reset jmp I_INT0 ;0x002 INT0 External Interrupt Request 0 jmp I_INT1 ;0x004 INT1 External Interrupt Request 1 reti ;0x006 TIMER2_COMP Timer/Counter2 Compare Match nop reti ;0x008 TIMER2_OVF Timer/Counter2 Overflow nop reti ;0x00A TIMER1_CAPT Timer/Counter1 Capture Event nop reti ;0x00C TIMER1_COMPA Timer/Counter1 Compare Match A nop reti ;0x00E TIMER1_COMPB Timer/Counter1 Compare Match B nop reti ;0x010 TIMER1_OVF Timer/Counter1 Overflow nop reti ;0x012 TIMER0_OVF Timer/Counter0 Overflow nop reti ;0x014 SPI_STC Serial Transfer Complete nop reti ;0x016 USART_RXC USART, Rx Complete nop reti ;0x018 USART_UDRE USART Data Register Empty nop reti ;0x01A USART_TXC USART, Tx Complete nop jmp ADC_COMP;0x01C ADC ADC Conversion Complete reti ;0x0 EE_RDY EEPROM Ready nop reti ;0x0 ANA_COMP Analog Comparator nop reti ;0x0 TWI Two-wire Serial Interface nop reti ;0x0 INT2 External Interrupt Request 2 nop jmp T0_COMP ;0x0 TIMER0_COMP Timer/Counter0 Compare Match reti ;0x0 SPM_RDY Store Program Memory Ready nop SIMV: ;they will be ON (255-... inverse) ; -a- ; f b ; |-g-| ; e c ; -d- .db (S_a|S_b|S_c|S_d|S_e|S_f) ,(S_b|S_c) ;0,1 .db (S_a|S_b|S_d|S_e|S_g) ,(S_a|S_b|S_c|S_d|S_g) ;2,3 .db (S_b|S_c|S_f|S_g) ,(S_a|S_c|S_d|S_f|S_g) ;4,5 .db (S_a|S_c|S_d|S_e|S_f|S_g) ,(S_a|S_b|S_c) ;6,7 .db (S_a|S_b|S_c|S_d|S_e|S_f|S_g) ,(S_a|S_b|S_c|S_d|S_f|S_g);8,9 .db (S_a|S_d|S_e|S_f|S_g) ,(S_e|S_g) ;E,r .db (S_g) ,(S_g|S_f|S_e|S_d) ;-,t .db (S_b|S_c|S_e|S_f|S_g) ,Off ;H,space ;-------------------------------------------------------- conversion: ;Disp->temp->Segm ldi ZH,1 ldi ZL,RAM_Disp CONV_LOOP: ld temp,Z+ push ZH push ZL ldi ZH,High(2*SIMV) ldi ZL,Low (2*SIMV) cbr temp,0xF0 ;ограничить символы 0-F add ZL,temp lpm temp,Z pop ZL pop ZH sbrc flags,f_OFF rjmp nopoint cpi ZL,RAM_Disp+4 ;point Amp brne PC+2 sbr temp,S_h cpi ZL,RAM_Disp+2 ;point Volt brne nopoint sbr temp,S_h nopoint: std Z+(RAM_Segm-RAM_Disp-1),temp ;сохранить в новой области памяти cpi ZL,(RAM_Disp+6) brne CONV_LOOP ret ;---------------------------------------------- hex2dec: ;in buferH,buferL out RAM_Hex 5 byte (used temp) ldi ZH,$01 ldi ZL,RAM_Hex clr temp five: subi buferL,LOW(10000) sbci buferH,HIGH(10000) inc temp brcc five subi temp,(-$2F) st Z+,temp subi buferL,LOW(-10000) sbci buferH,HIGH(-10000) clr temp four: subi buferL,LOW(1000) sbci buferH,HIGH(1000) inc temp brcc four subi temp,(-$2F) st Z+,temp subi buferL,LOW(-1000) sbci buferH,HIGH(-1000) clr temp tres: subi buferL,LOW(100) sbci buferH,HIGH(100) inc temp brcc tres subi temp,(-$2F) st Z+,temp subi buferL,LOW(-100) clr temp dous: subi buferL,10 inc temp brcc dous subi temp,(-$2F) st Z+,temp subi buferL,-$3A st Z+,buferL ret ;---------------------------------------------- writeEEPROM: ld temp,Y+ out eedr,temp ;data out eearl,buferL ;adr L out eearh,buferH ;adr H sbi eecr,eemwe ;Master Write Enable sbi eecr,eewe ;Write Enable WaitWriteComplite: sbic eecr,eewe ;WaitWriteComplite rjmp WaitWriteComplite ret ;********************************************************************** ;* НАЧАЛО ПРОГРАММЫ * ;********************************************************************** RESET: cli ;запретить все прерывания clr temp out EECR, temp ;обнулить EEPROM Control Register out GICR, temp ;interrupt vectors at start of FlashMEM out MCUCR,temp ;Sleep Disable ;Sleep Mode = Idle ;Interrupt Sense Control = Low level of INT1(0) ; out WDTCR, R30 ;Watchdog Disable ldi temp,0x18 out WDTCR,temp ldi temp,0x0E ;Watchdog Enable 1sec out WDTCR,temp ;--------Очистка SRAM------------------------------- ldi temp,0 ldi YL, LOW(RAMEND-0x60) ldi YH, HIGH(RAMEND-0x60) ldi XL, 0x60 ;X=0x0060 CLEAR_SRAM: st X+, temp ;R30=0 adress 060..45F sbiw YL, 1 ;3FF..0 brne CLEAR_SRAM ;branch if not zero ;--------Инициализация стека------------------------ ldi temp, LOW(RAMEND) ;выбор адреса вершины стека out SPL, temp ;запись его в регистр стека ldi temp, HIGH(RAMEND) ;выбор адреса вершины стека out SPH, temp ;запись его в регистр стека ;--------Инициализация портов----------------------- ldi temp, 0b11111111 out S_Port-1,temp ;DDR 1=out сегменты ldi temp, 0b11111111 out R_Port-1,temp ;DDR 1=out разряды ldi temp, 0b00000000 out E_Port-1, temp ;DDR 0=in датчики ldi temp, 0b00000000 out ADC_Port-1, temp ;DDR 0=in датчики ldi temp, 0b00000000 out S_Port,temp ;Segment off ldi temp, 0b11111111 out R_Port,temp ;Razryad off ldi temp, 0b00000000 out ADC_Port,temp ;1= pull-up cbi B_Port-1,button ;buttons in cbi B_Port,button ;buttons no pullup sbi O_Port-1,U36 ;OPTOCOUP1 out sbi O_Port-1,U24 ;OPTOCOUP2 out sbi O_Port-1,U12 ;OPTOCOUP3 out cbi O_Port,U12 ;OPTOCOUP1 of cbi O_Port,U24 ;OPTOCOUP2 of cbi O_Port,U36 ;OPTOCOUP2 of sbi O_Port-1,OFF_STAB ;OFF out sbi O_Port,OFF_STAB ;OFF =1 sbi E_Port,E_INT0 ;pullup sbi E_Port,E_INT1 ;pullup sbi E_Port,E_Volt ;pullup sbi E_Port,E_Amper ;pullup sbi PortD-1,4 ;OC1B - current sbi PortD-1,5 ;OC1A - voltage sbi PortD-1,7 ;OC2 - vent ;-------- Инициализация Ext INT ----------------- ldi temp,0b11000000 out GICR,temp out GIFR,temp ldi temp,0b00000101 ;int0,int1 any change out MCUCR,temp ;-------- Инициализация таймера TMR0 ----------------- ldi temp,(1< +1 inc enccnt sbrs enccnt,3 cbr flags,(1<14,5 then opto1 on ;if volt>28,5 then opto2 on ;if volt>42,5 then opto3 on cpi temp,low(145) ldi buferH,high(145) cpc tempH,buferH brcs PC+3 sbi O_Port,U12 mov timrU10,buferL cpi temp,low(285) ldi buferH,high(285) cpc tempH,buferH brcs PC+3 sbi O_Port,U24 mov timrU20,buferL cpi temp,low(425) ldi buferH,high(425) cpc tempH,buferH brcs PC+3 sbi O_Port,U36 mov timrU30,buferL ;if volt<14,0 then opto1 off ;if volt<28,0 then opto2 off ;if volt<42,0 then opto3 off cpi temp,low(420) ldi buferH,high(420) cpc tempH,buferH brcc lowerend dec timrU30 ;-1 brne PC+3 ;=0 cbi O_Port,U36 inc timrU30 ;+1 cpi temp,low(280) ldi buferH,high(280) cpc tempH,buferH brcc lowerend dec timrU20 ;-1 brne PC+3 ;=0 cbi O_Port,U24 inc timrU20 ;+1 cpi temp,low(140) ldi buferH,high(140) cpc tempH,buferH brcc lowerend dec timrU10 ;-1 brne PC+3 ;=0 cbi O_Port,U12 inc timrU10 ;+1 lowerend: ; ******************************************************* ; индикация токов и напряжений ; в зависимости от флага f_MV и f_MV ; показывает измеренное или заданное ; ******************************************************* ldi YH,1 sbrc flags,f_OFF rjmp incmsecend ldi YL,RAM_ADVA ;ADCvolt sbrs flags,f_MV rjmp Show_volt ldi YL,RAM_VA ;Evolt sbrs flags,f_5tr rjmp Show_volt ldi YL,RAM_Disp ;VoltInd ldi buferL,5 ;s st Y+,buferL ldi buferL,0x0D ;t st Y+,buferL ldi buferL,0x0B ;r st Y+,buferL rjmp Show_voltEnd Show_volt: ld buferL,Y+ ld buferH,Y+ sbrc flags,f_MV adiw buferL,1 rcall hex2dec ldi YL,RAM_Disp ;VoltInd ldd buferL,Y+(RAM_Hex-RAM_Disp+2) cpi buferL,0x30 brne PC+2 ldi buferL,0x0F ;пробел st Y+,buferL ldd buferL,Y+(RAM_Hex-RAM_Disp+2) st Y+,buferL ldd buferL,Y+(RAM_Hex-RAM_Disp+2) st Y+,buferL Show_voltEnd: ldi YL,RAM_ADVA+2 ;ADC_Amp sbrs flags,f_MA rjmp Show_Amp ldi YL,RAM_VA+2 ;E_Amp sbrs flags,f_5tr rjmp Show_Amp ldi YL,RAM_Disp+3 ;AmpInd ldi buferL,5 ;s st Y+,buferL ldi buferL,0x0D ;t st Y+,buferL ldi buferL,0x0B ;r st Y+,buferL rjmp Show_AmpEnd Show_Amp: ld buferL,Y+ ld buferH,Y sbrc flags,f_MA adiw buferL,1 rcall hex2dec ldi YL,RAM_Disp+3 ;AmpInd ldd buferL,Y+(RAM_Hex-RAM_Disp-3+2) st Y+,buferL ldd buferL,Y+(RAM_Hex-RAM_Disp-3+2) st Y+,buferL ldd buferL,Y+(RAM_Hex-RAM_Disp-3+2) st Y+,buferL Show_AmpEnd: rcall conversion incmsecend: out R_Port,razryad inc morgalka sbrs morgalka,6 rjmp indikac sbrs morgalka,5 rjmp indikac sbrs flags,f_MV rjmp testMA sbrs razryad,R_V1 rjmp indikacend sbrs razryad,R_V2 rjmp indikacend sbrs razryad,R_V3 rjmp indikacend testMA: sbrs flags,f_MA rjmp indikac sbrs razryad,R_I1 rjmp indikacend sbrs razryad,R_I2 rjmp indikacend sbrs razryad,R_I3 rjmp indikacend indikac: sbrs razryad,R_V1 ldi YL,RAM_Segm sbrs razryad,R_V2 ldi YL,RAM_Segm+1 sbrs razryad,R_V3 ldi YL,RAM_Segm+2 sbrs razryad,R_I1 ldi YL,RAM_Segm+3 sbrs razryad,R_I2 ldi YL,RAM_Segm+4 sbrs razryad,R_I3 ldi YL,RAM_Segm+5 ld temp,Y out S_Port,temp indikacend: interuptend: pop buferL pop buferH pop temp out SREG,temp pop temp reti ;закончить прерывание I_INT1: push temp in temp,SREG push temp push tempH sbrc flags,f_delay rjmp endint1 sbrc flags,f_OFF rjmp endint1 ldi temp,200 delay100us: nop dec temp brne delay100us in temp,E_Port-2 sbrc temp,E_INT1 rjmp secondchng cbr flags,(1<