; сформирован градус цельсия 01h ;*************************************************************************** .include "m8def.inc" .def min = r1 ;минуты 0-59 .def hour = r2 ;часы 0-23 .def day = r3 ;день недели 1-7 .def t_ud = r4 .def korr = r5 .def cnt = r6 ;счетчик при выводе знака в лсд для мерцания .def day2 = r7 ;день недели 1-7 для уст темп по дням и времени .def temp_e_old = r8 .def koord = r9 .def koord_old = r10 .def t1sreg = r13 .def buf = R16 ;General use working register buf for calling subroutines .def return = r16 ;return value from subroutines .def temp = r17 .def dosek = r18 ;пересчет до секунды .def sek = r19 ;секунды 0-59 .def flags = r20 .def index = r21 ;координаты ветвей .def temp_e = r22 ;----------------------------- .def xx = r16 ;multiplicand x .def yy = r17 ;multiplier y x*y .def m8uL = r17 ;result Low byte .def m8uH = r30 ;result High byte .def mcnt8u = r31 ;loop counter ;-------------------------------- ;-------------------------------- .def wreg =R23 .def duration =R24 .def lbyte =R25 .def hbyte =R26 .def ds_command =R27 .def wr_counter =R28 ;------------------------------ .equ LCD_RS = 1 .equ LCD_RW = 2 .equ LCD_E = 3 .equ gist =1 .equ line1 =0x80 ;строка 1 LCD .equ line2 =0xC0 ;строка 2 LCD ;------------------------------------------------------------- ; sbrc sbr ;r20.0 $1 ; 1- eeprom уже считан \0- можно ситывать ;r20.1 $2 ; 1- обойти заполнение temp_e_old 0-норма ;r20.2 $4 ; 1- прошел час и день можно считать темпер из eeprom 0- читать нельзя ;r20.3 $8 ; 1- было включение 0 опустились ниже гистерезиса можно включать ;r20.4 $10 ; 1- питание пропало 0 -питание норма ;r20.5 $20 ; 1- обход 0- можно однократность temp_e из lbyte в режиме ТЕРМОСТАТ ;r20.6 $40 ; 1- запрет коррекции 0- можно коррекцию (нужен если коррекция в минус) ;r20.7 $80 ; ;***** Code .cseg rjmp RESET ; Reset Handler reti ;EXT_INT0 ; IRQ0 Handler reti ;EXT_INT1 ; IRQ1 Handler reti ;TIM2_COMP ; Timer2 Compare Handler reti ;TIM2_OVF ; Timer2 Overflow Handler reti ;TIM1_CAPT ; Timer1 Capture Handler rjmp t1 ;TIM1_COMPA ; Timer1 CompareA Handler reti ;TIM1_COMPB ; Timer1 CompareB Handler reti ;TIM1_OVF ; Timer1 Overflow Handler reti ;TIM0_OVF ; Timer0 Overflow Handler reti ;SPI_STC ; SPI Transfer Complete Handler reti ;USART_RXC ; USART RX Complete Handler reti ;USART_UDRE ; UDR Empty Handler reti ;USART_TXC ; USART TX Complete Handler reti ;ADC ; ADC Conversion Complete Handler reti ;EE_RDY ; EEPROM Ready Handler reti ;ANA_COMP ; Analog Comparator Handler reti ;TWSI ; Two-wire Serial Interface reti ;SPM_RDY ; Store Program Memory Ready RESET: ldi r16,high(RAMEND); Main program start out SPH,r16 ; Set Stack Pointer to top of RAM ldi r16,low(RAMEND) out SPL,r16 ;----------------------------------------------------------------------- ;настроим timer1 по совпадению делит до 10 Гц 0,1 сек ldi R16,0B00010000 ; разр прерывания Т1 по совпадению out timsk,r16 ; прерывание по совпадению t1 clr R16 out tccr1a,r16 ldi R16,0B00001011 ; очистка по совпадению предделитель таймера-1 64 out tccr1b,r16 ; значения для совпадения (6250) ldi r30,$18 ldi r31,$6A out ocr1ah,r30 out ocr1al,r31 ;настроим линии порта C ldi R16,0B11000000 ; 5-0 -входы кнопок out DDRC,R16 ldi R16,0B00111111 out portC,r16 ; вкл подтяг резиcтор ;настроим линии порта b ldi R16,0B11101110 ; out DDRB,R16 ldi R16,0B11101110 out portB,r16 ; вкл подтяг резиcтор ;настроим WDT на 2 сек ldi r16,0b00011000 out wdtcr,r16 ldi r16,0b00001111 out wdtcr,r16 ; начальные значения ; считаем korr по адресу 00 eeprom clr buf ; в buf адрес ячейки для чтения rcall r_eeprom ; прочтем, значение в buf mov korr,buf ldi buf,168 ;10101000 1_40 cp korr,buf brlo jj clr korr ;### jj: ldi dosek,10 clr hour clr min clr sek ldi buf,1 mov day,buf mov day2,buf clr index clr cnt clr flags ldi temp_e,5 sbr flags,4 ; нач счит eeprom rcall LCD_init ;загрузим символ градус цельсия ldi buf,$48 ; пишем в cgram с адреса 0х01 rcall lcd_command ldi zl,low(strel*2) ldi zh,high(strel*2) ldi r24,8 cgram: lpm mov buf,r0 rcall LCD_putchar adiw ZL,1 dec r24 brne cgram ; градус цельсия загружен sei ;================================================================================= ;заполним озу $70 строкой ldi ZH,high(2*time) ; эти значения определять перед вызовом пп ldi ZL,low(2*time) ; ldi YH,0 ldi YL,$70 rcall in_ram ;заполним озу $80 строкой ldi ZH,high(2*nastr1) ; эти значения определять перед вызовом пп ldi ZL,low(2*nastr1) ; ldi YH,0 ldi YL,$80 rcall in_ram ;заполним озу $90 строкой ldi ZH,high(2*nastr2) ; эти значения определять перед вызовом пп ldi ZL,low(2*nastr2) ; ldi YH,0 ldi YL,$90 rcall in_ram ;заполним озу $A0 строкой ldi ZH,high(2*konf1) ; эти значения определять перед вызовом пп ldi ZL,low(2*konf1) ; ldi YH,0 ldi YL,$A0 rcall in_ram ;заполним озу $C0 строкой ldi ZH,high(2*ts) ; эти значения определять перед вызовом пп ldi ZL,low(2*ts) ; ldi YH,0 ldi YL,$C0 rcall in_ram loop: rjmp loop ;--------------------------------------------------------------------------- ;--------------------------------------------------------------------------- ;--------------------------------------------------------------------------- ;--------------------------------------------------------------------------- ; ПРЕРЫВАНИЕ КАЖДЫЕ 0,1 СЕК T1: in t1sreg,sreg push buf push r30 push r31 push r28 push r29 wdr ;------------------------------------------- KN: ; секция отработки нажатий кнопок считаем байт порта С in buf,pinC andi buf,0b00111111 cpi buf,0b00111111 ; проверим кнопки нажаты или нет brne y_kn rjmp no_kn ; кнопки не нажаты y_kn: ; длительность нажатия кнопки dec t_ud breq ud_OK sbi portb,1 ; откл beep Rjmp beep_on ; ud_OK: cbi portb,1 ; вкл beep ldi r31,2 mov t_ud,r31 ; beep кнопкb отработан анализируем кнопку cpi buf,0b00001111 ; это <> ТЕРМОСТАТ brne no_EF tst index breq y_ind_0 rjmp beep_on y_ind_0: ldi index,12 ; режим термостат rjmp beep_on no_EF: ; проверим кнопку 1 cpi buf,0b00111110 ; это Escape brne no_kn0 ;+++++++++++++++++++++++++++++++++++++++++++++ sbr flags,$4 ; ускорим считывание темп из eeprom (а то только при переходе часа) cbr flags,$20 ; можно temp_e home rcall LCD_command ldi buf, 0x06 ;auto-inc cursor rcall LCD_command ret ; п/п считывания EEPROM в buf r_eeprom: out eearl,buf sbi eecr,eere in buf,eedr no_s_eere: sbic eecr,eere rjmp no_s_eere ret ; п/п записи в eeprom w_eeprom: ; out eedr,buf ; в buf значение для записи sbi eecr,eemwe sbi eecr,eewe no_s_eewe: sbic eecr,eewe rjmp no_s_eewe nop ret ;********************* DS18B20 ******************* Ds: cpi dosek,5 ; на преоразование breq nach_preob cpi dosek,6 ; на считывание результата breq schit_dat nach_preob: rcall ds_reset ; вызов обнуления линии ldi ds_command, 0xCC ; пропуск идентификации rcall ds_write ldi ds_command, 0x44 ; начало преобразования rcall ds_write ; здесь надо выйти и сделать паузу ret ;---------------------------- schit_dat: rcall ds_reset ; вызов обнуления линии ldi ds_command, 0xCC rcall ds_write ldi ds_command, 0xBE ;чтение блокнота, получение результата rcall ds_write ldi wreg, 5 rcall ds_delay rcall ds_read ; принять 8 бит ret ds_delay: ldi duration, 2 ; 2,75uS*wreg cycle: nop dec duration brne cycle dec wreg brne ds_delay ret ds_reset: cbi PORTB, PB0 ldi wreg, 0xFF ; Portb выход out DDRB, wreg ldi wreg, 220 ; обнуление 600мкс rcall ds_delay ldi wreg, 0xFE ; Portb.0 вход out DDRB, wreg ldi wreg, 220 ; принятие импульса присутствия 600мкс rcall ds_delay ret ds_write: ldi wr_counter,8 Label1: lsr ds_command ; лог сдвиг 0 бит -> CF brcs one_wr ; пререход если CF=1 rjmp zero_wr one_wr: cbi PORTB, PB0 ldi wreg, 0xff out DDRB, wreg ; PORTB - выход ldi wreg, 1 ; 2,7мкс rcall ds_delay ldi wreg, 0xFE ; PORTB - вход out DDRB, wreg ldi wreg,20 ; 60мкс - продление "1" rcall ds_delay rjmp Label2 zero_wr: cbi PORTB, PB0 ldi wreg, 0xff out DDRB, wreg ; PORTB - выход ldi wreg, 26 ; 70мкс rcall ds_delay ldi wreg, 0xFE ; PORTB - вход out DDRB, wreg Label2: ldi wreg, 1 ; задержки между посылками битов 2,7мкс rcall ds_delay dec wr_counter brne Label1 ; проверка счетчика ret ds_read: ldi wr_counter, 9 ldi lbyte, 0x00 ; new section cbi PORTB,PB0 ldi wreg, 0xFF ; PB0 - output out DDRB, wreg ldi wreg,2 rcall ds_delay ; синхроимпульс 2,7мкс ldi wreg, 0xFE ; PB0 - input out DDRB, wreg ldi wreg, 3 rcall ds_delay ; проверка через 8мкс ldi wreg, 22 ; 60мкс rcall ds_delay ;2 cbi PORTB,PB0 ldi wreg, 0xFF ; PB0 - output out DDRB, wreg ldi wreg,2 rcall ds_delay ; синхроимпульс 2,7мкс ldi wreg, 0xFE ; PB0 - input out DDRB, wreg ldi wreg, 3 rcall ds_delay ; проверка через 8мкс ldi wreg, 22 ; 60мкс rcall ds_delay ;3 cbi PORTB,PB0 ldi wreg, 0xFF ; PB0 - output out DDRB, wreg ldi wreg,2 rcall ds_delay ; синхроимпульс 2,7мкс ldi wreg, 0xFE ; PB0 - input out DDRB, wreg ldi wreg, 3 rcall ds_delay ; проверка через 8мкс ldi wreg, 22 ; 60мкс rcall ds_delay ; end of section label3: cbi PORTB,PB0 ldi wreg, 0xFF ; PB0 - output out DDRB, wreg ldi wreg,2 rcall ds_delay ; синхроимпульс 2,7мкс ldi wreg, 0xFE ; PB0 - input out DDRB, wreg ldi wreg, 3 rcall ds_delay ; проверка через 8мкс cpi wr_counter, 1 breq sign sbis PINB, PB0 ; проп. след ком если PB0=1 rjmp zero_r one_r: lsr lbyte ori lbyte,0x80 rjmp label4 zero_r: lsr lbyte nop label4: ldi wreg, 22 ; 60мкс rcall ds_delay dec wr_counter brne label3 ; переход если ds_counter > 0 sign: ldi hbyte, 0xFF sbis PINB, PB0 ; проп. след ком если PB0=1 ldi hbyte, 0x00 nop ldi wreg, 22 ; 60мкс rcall ds_delay ; здесь температура в Hbyte и Lbyte ;проверим на отрицательную tst hbyte breq no_otr neg lbyte ldi buf,'-' sts $7a,buf rjmp minus no_otr: ldi buf,'+' sts $7a,buf minus: clc ror lbyte brcs set_5 ldi buf,$30 sts $7e,buf rjmp jum_5 set_5: ldi buf,$35 sts $7e,buf jum_5: ; ограничим диапазон срабатывания от 5 до 35 tst hbyte brne sys_off cpi lbyte,2 brlo sys_off cpi lbyte,36 brsh sys_off ;здесь темпер в пределах +5 +35 ; сравним lbyte -темп DS и еуьз_у ntvgth bp уузкщь на текущий час cp lbyte,temp_e brlo rel_on sys_off: sbr flags,8 ;признак включились для гистерезиса cbi portB,3 ;реле sbi portB,2 ;вкл реле ret rel_on: sbrs flags,3 rjmp yyy_on mov buf,temp_e subi buf,gist cp lbyte,buf brlo yyy_on ret yyy_on: cbr flags,8 ;признак отключились для гистерезиса sbi portB,3 ;реле cbi portB,2 ;откл вкл реле ret time: .db "21:22:45 -22,5C",0 PN: .db $A8,"OHE",$E0,"E",$A7,"bH",$A5,"K +",0 ;ponedelbnik VT: .db "BTOPH",$a5,"K +",0 SR: .db "CPE",$e0,"A +",0 CT: .db $AB,"ETBEP",$a1," +",0 PT: .db $a8,$b1,"TH",$a5,$e1,"A +",0 SB: .db "C",$a9,$a0,$a0,"OTA +",0 VS: .db "BOCKPECEHbE +",0 nastr1: .db " ",$E0,"EHb/",$AB,"AC",$AE,"/KOPP ",0 ;$80 nastr2: .db "pn 00:00-10 ",0 ;$90 konf1: .db " KOH",$AA,$A5,$A1,$A9,"PA",$E1,$A5,$B1," ",0 ;a0 конфигурация ;konf2: ;.db "PN --cas t=--,0C",0 ;B0 ts: .db "TEPMOCTAT + ",0 ;$C0 w1: .db $A8,"H ",0 w2: .db "BT ",0 w3: .db "CP ",0 w4: .db $AB,"T ",0 w5: .db $A8,"T ",0 w6: .db "C",$A0," ",0 w7: .db "BC ",0 w11: .db $A8,"H",0 w12: .db "BT",0 w13: .db "CP",0 w14: .db $AB,"T",0 w15: .db $A8,"T",0 w16: .db "C",$A0,0 w17: .db "BC",0 num: .db $00,$01,$02,$03,$04,$05,$06,$07,$08,$09 .db $10,$11,$12,$13,$14,$15,$16,$17,$18,$19 .db $20,$21,$22,$23,$24,$25,$26,$27,$28,$29 .db $30,$31,$32,$33,$34,$35,$36,$37,$38,$39 .db $40,$41,$42,$43,$44,$45,$46,$47,$48,$49 .db $50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$60 strel: .db $18,$1e,$09,$08,$08,$09,$06,$00 ;.db $01,$03,$07,$0f,$07,$03,$01,$00 .EXIT