;*********************************************************** ;* рюилеп мю AT90S1200 ;* ;* CLK 32768 цЖ ;* CIKL 30 ЛЙЯ ;* ;* ;*********************************************************** .include "1200def.inc";СЙЮГЮМ РХО ОПНЖЮ Х ОНДЙКЧВЕМ КХЯРХМЦ ;ЕЦН ОЕПЕЛЕММШУ ;пецхярпнбше оепелеммше .DEF D =r10 ;мнлеп дмъ медекх .DEF NB =r11 ;мнлеп ъвеийх EEPROM яннрберярбсчыецн дмъ медекх .DEF DS =r12 ;янярнъмхе бшапюммнцн дмъ медекх .DEF SEL =r14 ;оепелеммюъ SELECT(нрнапюфюрэ рейсыее бпелъ,оепбне бпелъ рюилепю,брнпне бпелъ рюилепю хкх дмх медекх) .DEF SEL_D =r15 ;ткюц янярнъмхъ ймнонй (мюфюрш хкх мер) .DEF SS =r17 ;явервхй яейсмд .DEF M =r18 ;едемхжш лхмср рейсыецн бпелемх .DEF MM =r19 ;деяърйх лхмср рейсыецн бпелемх .DEF H =r20 ;едемхжш вюянб рейсыецн бпелемх .DEF HH =r21 ;деяърйх вюянб рейсыецн бпелемх .DEF TH =r22 ;вюяш оепбнцн бпелемх рюхлепю .DEF THH =r23 ;деяърйх вюянб оепбнцн бпелемх рюхлепю .DEF TM =r24 ;лхмсрш оепбнцн бпелемх рюхлепю .DEF TMM =r25 ;деяърйх лхмср оепбнцн бпелемх рюхлепю .DEF TH1 =r26 ;вюяш брнпнцн бпелемх рюхлепю .DEF THH1 =r27 ;деяърйх вюянб брнпнцн бпелемх рюхлепю .DEF TM1 =r28 ;лхмсрш брнпнцн бпелемх рюхлепю .DEF TMM1 =r29 ;деяърйх лхмср брнпнцн бпелемх рюхлепю .DEF B =r30 ;юййслскърнп опнжедспш опепшбюмхъ .DEF A =r31 ;юййслскърнп .CSEG ;мювюкн йнднбнцн яецлемрю .ORG 0 RJMP RESET ;оепеунд он reset NOP ;оепеунд он int INC SS ;мюпюярхл яейсмдс (опепшбюмхе нр TMR0) ;NOP ;опепшбюмхе нр compare ;******************************************************************** ;напюанрйю опепшбюмхъ нр рюилепю\явервхйю (вепег 1024У200 рюйрю цемепюр.) ;******************************************************************** TMR0: LDI B,224 OUT TCNT0,B ;рюилеп явхрюер дн 32 (256-224=32) CPI SS,60 ;SS=60? BREQ T2 ;еякх дю рнцдю оепеунд мю р2,хмюве хдел дюкее RETI ;бшунд хг опепшбюмхъ T2: CLR SS ;яапняхл SS INC M ;сбекхвхл лхмсрш CPI M,10 ;лхмсрш днярхцкх 10? BREQ T3 ;еякх дю рнцдю оепеунд мю р3,хмюве хдел дюкее RETI ;бшунд хг опепшбюмхъ T3: CLR M ;яапняхл M INC MM ;сбекхвхл деяърйх лхмср CPI MM,6 ;деяърйх лхмср днярхцкх 6? BREQ T4 ;еякх дю рнцдю оепеунд мю р4,хмюве хдел дюкее RETI T4: CLR MM ;яапняхл лл INC H ;сбекхвхл вюяш CPI H,4 ;вюяш днярхцкх 4? BREQ T5 ;еякх дю рнцдю оепеунд мю р5,хмюве хдел дюкее CPI H,10 ;вюяш днярхцкх 10? BREQ T9 ;еякх дю рнцдю оепеунд мю р9,хмюве хдел дюкее RETI ;бшунд хг опепшбюмхъ T5: CPI HH,2 ;деяърйх вюянб днярхцкх 2? BREQ T6 ;еякх дю рнцдю оепеундхл мю р6,хмюве хдел дюкее CPI H,10 ;вюяш днярхцкх 10? BREQ T7 ;еякх дю рнцдю оепеунд мю р7,хмюве хдел дюкее RETI ;бшунд хг опепшбюмхъ T6: CLR HH ;яапняхл деяърйх вюянб CLR H ;яапняхл вюяш INC D ;сбекхвхл дмх MOV B,D CPI B,8 ;дмх днярхцкх 8? BREQ T8 ;еякх дю рнцдю оепеундхл мю р8,хмюве хдел дюкее RETI ;бшунд хг опепшбюмхъ T7: CLR H ;яапняхл вюяш INC HH ;сбекхвхл деяърйх вюянб RETI ;бшунд хг опепшбюмхъ T8: LDI B,1 MOV D,B RETI ;сярюмнбхрэ дмх х бшунд хг опепшбюмхъ T9: CLR H ;яапняхл вюяш INC HH ;сбекхвхрэ деяърйх вюянб RETI ;бшунд хг опепшбюмхъ ;____________________________________________________________________ ;******************************************************************** ;хмярюкъжхъ ;******************************************************************** RESET: LDI A,0B0000101 ;пюгпеьхл пюанрс рюхлепю/явервхйю OUT TCCR0,A ;йнщттхжхемр декемхъ рюхлепю CLK/1024 LDI A,224 OUT TCNT0,A ;рюилеп явхрюер дн 32(хрнцн 32768/1024/32=1 LDI A,0B00000010 OUT TIMSK,A ;пюгпеьхл опепшбюмхъ нр рюхлепю/явервхйю LDI A,0B10001111 OUT DDRB,A ;мюярпнийю онпрю B.1-бшунд,0-бунд LDI A,0B01110000 OUT PORTB,A ;бйкчвхл ондръцхбючыхе пегхярнпш мю реу бундюу ;й йнрнпшл ондйкчвемш ймнойх сопюбкемхъ LDI A,0B11111111 OUT DDRD,A ;мюярпнийю онпрю D мю бшбнд CBI PORTB,7 ;бшйкчвхрэ пеке SBI ACSR,7 ;нрйкчвхл йнлоюпюрнп (дкъ ямхфемхъ щмепцнонрпеакемхъ) CLR SS ;яапняхл явервхй яейсмд LDI M,1 ;сярюмнбхл хгмювюкэмн ндмс лхмсрс CLR MM ;яапняхл деяърйх лхмср CLR H ;яапняхл вюяш CLR HH ;яапняхл деяърйх вюянб CLR TM ;яапняхл лхмсрш оепбнцн бпелемх рюхлепю CLR TMM ;яапняхл деяърйх лхмср оепбнцн бпелемх рюхлепю CLR TH ;яапняхл вюяш оепбнцн бпелемх рюилепю CLR THH ;яапняхл деяърйх вюянб оепбнцн бпелемх рюилепю CLR TM1 ;яапняхл лхмсрш брнпнцн бпелемх рюхлепю CLR TMM1 ;яапняхл деяърйх лхмср брнпнцн бпелемх рюхлепю CLR TH1 ;яапняхл вюяш брнпнцн бпелемх рюилепю CLR THH1 ;яапняхл деяърйх вюянб брнпнцн бпелемх рюилепю CLR SEL ;яапняхл оепелеммсч SEL(он оепбнлс бйкчвемхч,нрнапюфюрэ рейсыее бпелъ) LDI A,1 MOV D,A ;сярюмнбхл оепелеммсч D б едемхжс(он оепбнлс бйкчвемхч,рейсыхи демэ медекх-онмедекэмхй) CLR DS ;яапняхл оепелеммсч DS(янярнъмхе бшапюммнцн дмъ медекх) ;------------------------------------------------------------------------------ ;опнжедспю гюохяшбюер бн бяе ъвеийх EEPROM,яннрберярбсчыхе мнлепюл дмеи медекх, ;рейсыее янярнъмхе он слнквюмхч - 0 ;------------------------------------------------------------------------------ LDI A,0 WER: SBIC EECR,EEWE RJMP WER ;фд╗л пюгпеьемхъ гюохях OUT EEAR,A ;сйюфел мнлеп гюохяшбюелни ъвеийх OUT EEDR,DS ;ондцнрнбхл дюммше й гюохях SBI EECR,EEWE ;мювюрэ опнжедспс гюохях WERR: SBIC EECR,EEWE RJMP WERR ;фд╗л онйю б EEPROM гюохьеряъ хмтнплюжхъ INC A CPI A,10 BREQ SEI RJMP WER ;гюохьел бн бяе дмх янярнъмхе 0 ;------------------------------------------------------------ SEI: SEI ;пюгпеьхрэ пепшбюмхъ ;____________________________________________________________________ ;******************************************************************** ; цкюбмюъ опнцпюллю ;опнбепйю нямнбмнцн охрюмхъ,бшбнд хмтнплюжхх мю хмдхйюрнп, ;онбепйю рюхлепю х опнбепйю ймнонй. ; ;******************************************************************** MAIN: RJMP KEY ;оепеунд мю опнбепйс ймнонй MAIN1: ;-------------------------------------------------------------------- ;щрю опнжедспю опнбепъер мюкхвхе нямнбмнцн охрюмхъ, ; еякх ецн мер рнцдю рсьхл хмдхйюрнп,х сяшокъел опнжеяянп. ;-------------------------------------------------------------------- CLR A OUT PORTD,A ;онрсьхл хмдхйюрнп CBI DDRB,0 ;мюярпнхл онпр б пюгпъд 0 мю ббнд CBI PORTB,0 ;яапняхл ахр 0 онпрю B (нрйкчвхл ондръц.пегхярнп) SBIS PINB,0 ;опносярхрэ якед.йнлюмдс еякх мю дюммнл бунде кнц.1 RJMP SLEEP ;еякх мю бунде кнц.0(мер охрюмхъ нямнбмнцн) ;рнцдю сундхл мю опнжедспс SLEEP SBI DDRB,0 SBI PORTB,0 ;еякх нямнбмне охрюмхе опхясрярбсер рнцдю бняярюмнбхл ;пюанвее янярнъмхе мскебнцн пюгпъдю онпрю б х опнднкфхл ;пюанрс ;___ MOV A,SEL CPI A,0 ; BREQ CLOCK ;еякх SEL=0 рнцдю оепеунд мю нрнапюфемхе вюянб CPI A,1 ; BREQ ALARM ;еякх SEL=1 рнцдю оепеунд мю нрнапюфемхе оепбнцн бпелемх рюилепю CPI A,2 ; BREQ ALARM1 ;еякх SEL=2 рнцдю оепеунд мю нрнапюфемхе брнпнцн бпелемх рюхлепю ;CPI A,3 ; RJMP SET_DAY ;еякх SEL=3 рнцдю оепеунд мю сярюмнбйс дмеи асдхкэмхйю ;_____________ ;******************************************************************** ;опнжедспю бшбндхр мю хмдхйюрнпш рейсыее бпелъ ;******************************************************************** CLOCK: MOV A,M ;ондцнрнбхл й нрнапюфемхч лхмсрш RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,3 ;бйкчвхл пюгпъд лхмср RCALL PAUSAA ;гюдепфйю SBI PORTB,3 ;онрсьхл пюгпъд лхмср MOV A,MM ;ондцнрнбхл й нрнапюфемхч деяърйх лхмср RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,2 ;бйкчвхл пюгпъд деяърйнб лхмср RCALL PAUSAA ;гюдепфйю SBI PORTB,2 ;онрсьхл пюгпъд деяърйнб лхмср MOV A,H ;ондцнрнбхл й нрнапюфемхч вюяш RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,1 ;бйкчвхл пюгпъд вюянб RCALL PAUSAA ;гюдепфйю SBI PORTB,1 ;онрсьхл пюгпъд вюянб MOV A,HH ;ондцнрнбхл й нрнапюфемхч деяърйх вюянб RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,0 ;бйкчвхл пюгпъд деяърйнб вюянб RCALL PAUSAA ;гюдепфйю SBI PORTB,0 ;онрсьхл пюгпъд деяърйнб вюянб RJMP ALLARM ;оепеунд мю опнбепйс оепбнцн бпелемх асдхкэмхйю MAIN0: RJMP ALLARM1 ;оепеунд мю опнбепйс брнпнцн бпелемх асдхкэмхйю ;____________________________________________________________________ ;******************************************************************** ;опнжедспю бшбндхр мю хмдхйюрнпш оепбне бпелъ рюилепю ;******************************************************************** ALARM: MOV A,TM ;ондцнрнбхл й нрнапюфемхч лхмсрш RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,3 ;бйкчвхл пюгпъд лхмср RCALL PAUSAA ;гюдепфйю SBI PORTB,3 ;онрсьхл пюгпъд лхмср MOV A,TMM ;ондцнрнбхл й нрнапюфемхч деяърйх лхмср RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,2 ;бйкчвхл пюгпъд деяърйнб лхмср RCALL PAUSAA ;гюдепфйю SBI PORTB,2 ;онрсьхл пюгпъд деяърйнб лхмср MOV A,TH ;ондцнрнбхл й нрнапюфемхч вюяш RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,1 ;бйкчвхл пюгпъд вюянб RCALL PAUSAA ;гюдепфйю SBI PORTB,1 ;онрсьхл пюгпъд вюянб MOV A,THH ;ондцнрнбхл й нрнапюфемхч деяърйх вюянб RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,0 ;бйкчвхл пюгпъд деяърйнб вюянб RCALL PAUSAA ;гюдепфйю SBI PORTB,0 ;онрсьхл пюгпъд деяърйнб вюянб RJMP MAIN ;____________________________________________________________________ ;******************************************************************** ;опнжедспю бшбндхр мю хмдхйюрнпш брнпне бпелъ рюилепю ;******************************************************************** ALARM1: MOV A,TM1 ;ондцнрнбхл й нрнапюфемхч лхмсрш RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,3 ;бйкчвхл пюгпъд лхмср RCALL PAUSAA ;гюдепфйю SBI PORTB,3 ;онрсьхл пюгпъд лхмср MOV A,TMM1 ;ондцнрнбхл й нрнапюфемхч деяърйх лхмср RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,2 ;бйкчвхл пюгпъд деяърйнб лхмср RCALL PAUSAA ;гюдепфйю SBI PORTB,2 ;онрсьхл пюгпъд деяърйнб лхмср MOV A,TH1 ;ондцнрнбхл й нрнапюфемхч вюяш RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,1 ;бйкчвхл пюгпъд вюянб RCALL PAUSAA ;гюдепфйю SBI PORTB,1 ;онрсьхл пюгпъд вюянб MOV A,THH1 ;ондцнрнбхл й нрнапюфемхч деяърйх вюянб RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,0 ;бйкчвхл пюгпъд деяърйнб вюянб RCALL PAUSAA ;гюдепфйю SBI PORTB,0 ;онрсьхл пюгпъд деяърйнб вюянб RJMP MAIN ;____________________________________________________________________ ;******************************************************************** ;опнжедспю бшбндхр мю хмдхйюрнпш сярюмнбйх дмеи медекх ;******************************************************************** SET_DAY: LDI A,94 OUT PORTD,A ;бшбндхл б оепбши пюгпъд яхлбнк d-дмх CBI PORTB,0 ;бйкчвхл оепбши пюгпъд RCALL PAUSAA ;гюдепфйю SBI PORTB,0 ;онрсьхл оепбши пюгпъд MOV A,D ;ондцнрнбхл й нрнапюфемхч мнлеп дмъ RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,1 ;бйкчвхл оепбши пюгпъд RCALL PAUSAA ;гюдепфйю SBI PORTB,1 ;онрсьхл пюгпъд OUT EEAR,D ; SBI EECR,EERE ;явхрюел хг EEPROM янярнъмхе рейсыецн дмъ IN A,EEDR ;ондцнрнбхл й нрнапюфемхч янярнъмхе рейсыецн дмъ RCALL DECOD ;оепейндхпсел вхякн CBI PORTB,2 ;бйкчвхл брнпни пюгпъд RCALL PAUSAA ;гюдепфйю SBI PORTB,2 ;онрсьхл пюгпъд RJMP MAIN ;____________________________________________________________________ ;******************************************************************** ; деьхтпюрнп ; ;опнжедспю оепейндхпсер деяърхвмне вхякн,б йнд яелхяецлемрмнцн хмд. ;дкъ пюанрш опнжедспш гюцпсгхрэ б A-деяърхвмне гмювемхе. ; ;******************************************************************** DECOD: CPI A,0 BREQ P1 CPI A,1 BREQ P2 CPI A,2 BREQ P3 CPI A,3 BREQ P4 CPI A,4 BREQ P5 CPI A,5 BREQ P6 CPI A,6 BREQ P7 CPI A,7 BREQ P8 CPI A,8 BREQ P9 CPI A,9 BREQ P10 P1: LDI A,63 RJMP QUIT P2: LDI A,6 RJMP QUIT P3: LDI A,91 RJMP QUIT P4: LDI A,79 RJMP QUIT P5: LDI A,102 RJMP QUIT P6: LDI A,109 RJMP QUIT P7: LDI A,125 RJMP QUIT P8: LDI A,7 RJMP QUIT P9: LDI A,127 RJMP QUIT P10: LDI A,111 RJMP QUIT QUIT: OUT PORTD,A RET ;____________________________________________________________________ ;******************************************************************** ;гюдепфйю нр дпеаегцю ;******************************************************************** PAUSA: LDI A,100 PAU: DEC A BREQ PAUS RJMP PAU PAUS: RET ;____________________________________________________________________ ;******************************************************************** ;гюдепфйю дкъ хмдхйюжхх ;******************************************************************** PAUSAA: LDI A,20 PAUU: DEC A BREQ PAUSS RJMP PAUU PAUSS: RET ;____________________________________________________________________ ;******************************************************************** ;опнжедспю нопняю йкюбхюрспш ;******************************************************************** KEY: TST SEL_D ;опнбепхл SEL_D мю 0 BREQ KEY1 ;еякх SEL_D=0,гмювхр ме мюфюрю мх ндмю ймнойю.хдел мю ;KEY1,хмюве бшонкмъеряъ опнцпюллю KEY0. KEY0: SBIS PINB,4 ;SELEKT мюфюрю? RJMP MAIN1 ;еякх дю рнцдю бнгбпюр SBIS PINB,5 ;HUR мюфюрю? RJMP MAIN1 ;еякх дю рнцдю бнгбпюр SBIS PINB,6 ;MIN мюфюрю? RJMP MAIN1 ;еякх дю рнцдю бнгбпюр CLR SEL_D ;яапняхл ткюц йкюбхюрспш (бяе ймнойх нросыемш) RJMP MAIN1 ;бшунд KEY1: SBIS PINB,4 ;SELECT мюфюрю? RJMP SELEKT ;сундхл мю SELECT SBIS PINB,5 ;HUR мюфюрю? RJMP HUR ;дю,сундхл мю HUR SBIS PINB,6 ;MIN мюфюрю? RJMP MIN ;дю.сундхл мю MIN RJMP MAIN1 ;еякх мх ндмю ме мюфюрю рнцдю бнгбпюр ;____________________________________________________________________ SELEKT: RCALL PAUSA ;рхою гюыхрю нр дпеаегцю SBIC PINB,4 ; RJMP MAIN ;еякх ймнойю бяе еые мюфюрю рнцдю хдел дюкее,хмюве мюгюд LDI A,1 MOV SEL_D,A ;сярюмнбхл ткюц SEL_D(мюфюрю ймнойю) INC SEL ;сбекхвхл SEL MOV A,SEL CPI A,4 BREQ E ;еякх SEL=4 рнцдю хдел мю е (хмюве бшунд) RJMP MAIN1 ;бшунд E: CLR SEL ;гюохьел б SEL,0 RJMP MAIN1 ;бшунд ;____________________________________________________________________ HUR: RCALL PAUSA ;рхою гюыхрю нр дпеаегцю SBIC PINB,5 ; RJMP MAIN ;еякх ймнойю бяе еые мюфюрю рнцдю хдел дюкее,хмюве мюгюд LDI A,1 MOV SEL_D,A ;сярюмнбхл ткюц SEL_D(мюфюрю ймнойю MOV A,SEL CPI A,0 ; BREQ CL_H ;еякх SEL=0 рнцдю оепеунд мю сярюмнбйс вюянб MOV A,SEL CPI A,1 ; BREQ AL_H ;еякх SEL=1 рнцдю оепеунд мю сярюмнбйс в.асдхкэмхйю MOV A,SEL CPI A,2 ; BREQ AL_H1 ;еякх SEL=2 рнцдю оепеунд мю сярюмнбйс в.асдхкэмхйю1 RJMP DEY ;хмюве SEL=3 рнцдю оепеунд мю сярюмнбйс дмъ медекх ;------------------------------------------ ;опнжедспю сярюмнбйх вюянб рейсыецн бпелемх ;------------------------------------------ CL_H: INC H ;сбекхвхл вюяш CPI H,4 BREQ H ;еякх вюяш пюбмш 4 рнцдю оепеунд мю м(хмюве дюкее) H3: CPI H,10 BREQ H1 ;еякх вюяш пюбмш 10 рнцдю оепеунд мю м1(хмюве дюкее) RJMP MAIN ;бнгбпюр б MAIN H: CPI HH,2 BREQ H2 ;еякх вюяш днярхцкх 24 рнцдю оепеунд мю м2(хмюве дюкее) RJMP H3 H1: CLR H ;яапняхл гмювемхе вюянб INC HH ;сбекхвхл гмювемхе д.вюянб CPI HH,3 BREQ H2 ;еякх гмювемхе д.вюянб днярхцкн 3 рнцдю оепеунд мю м2 RJMP MAIN ;бнгбпюр б MAIN H2: CLR H CLR HH RJMP MAIN ;яапняхл онйюгюмхъ вюянб х бепмеляъ б MAIN ;------------------------------------------ ;------------------------------------------------- ;опнжедспю сярюмнбйх вюянб оепбнцн бпелемх рюилепю ;------------------------------------------------- AL_H: INC TH ;сбекхвхл вюяш CPI TH,4 BREQ TH ;еякх вюяш пюбмш 4 рнцдю оепеунд мю рм(хмюве дюкее) TH3: CPI TH,10 BREQ TH1 ;еякх вюяш пюбмш 10 рнцдю оепеунд мю рм1(хмюве дюкее) RJMP MAIN ;бнгбпюр б MAIN TH: CPI THH,2 BREQ TH2 ;еякх вюяш днярхцкх 24 рнцдю оепеунд мю рм2 (х.д.) RJMP TH3 TH1: CLR TH ;яапняхл гмювемхе вюянб INC THH ;сбекхвхл гмювемхе д.вюянб CPI THH,3 BREQ TH2 ;еякх гмювемхе д.вюянб днярхцкн 3 рнцдю оепеунд мю рм2 RJMP MAIN ;бнгбпюр б MAIN TH2: CLR TH CLR THH RJMP MAIN ;яапняхл онйюгюмхъ вюянб х бепмеляъ б MAIN ;------------------------------------------------- ;------------------------------------------------- ;опнжедспю сярюмнбйх вюянб брнпнцн бпелемх рюилепю ;------------------------------------------------- AL_H1: INC TH1 ;сбекхвхл вюяш CPI TH1,4 BREQ TH4 ;еякх вюяш пюбмш 4 рнцдю оепеунд мю рм4(хмюве дюкее) TH7: CPI TH1,10 BREQ TH5 ;еякх вюяш пюбмш 10 рнцдю оепеунд мю рм1(хмюве дюкее) RJMP MAIN ;бнгбпюр б MAIN TH4: CPI THH1,2 BREQ TH6 ;еякх вюяш днярхцкх 24 рнцдю оепеунд мю рм2 (х.д.) RJMP TH7 TH5: CLR TH1 ;яапняхл гмювемхе вюянб INC THH1 ;сбекхвхл гмювемхе д.вюянб CPI THH1,3 BREQ TH6 ;еякх гмювемхе д.вюянб днярхцкн 3 рнцдю оепеунд мю рм2 RJMP MAIN ;бнгбпюр б MAIN TH6: CLR TH1 CLR THH1 RJMP MAIN ;яапняхл онйюгюмхъ вюянб х бепмеляъ б MAIN ;------------------------------------------------ ;------------------------------------------------- ;опнжедспю сярюмнбйх мнлепю рейсыецн дмъ медекх ;------------------------------------------------- DEY: INC D ;сбекхвхл мнлеп дмъ MOV A,D CPI A,8 BREQ L ;еякх йнкхвеярбн дмеи днькн дн 8 рнцдю хдел мю L RJMP MAIN L: LDI A,1 MOV D,A ;сярюмнбхл мнлеп дмъ х мнлеп ецн ъвеийх б хяунд.яняр. RJMP MAIN ;------------------------------------------------- ;------------------------------------------------- ;опнжедспю сярюмнбйх лхмср рейсыецн бпелемх ;------------------------------------------------- MIN: RCALL PAUSA ;рхою гюыхрю нр дпеаегцю SBIC PINB,6 ; RJMP MAIN ;еякх ймнойю бяе еые мюфюрю рнцдю хдел дюкее,хмюве мюгюд LDI A,1 MOV SEL_D,A ;сярюмнбхл ткюц SEL_D(мюфюрю ймнойю MOV A,SEL CPI A,0 ; BREQ CL_M ;еякх SEL=0 рнцдю оепеунд мю сярюмнбйс лхмср вюянб MOV A,SEL CPI A,1 ; BREQ AL_M ;еякх SEL=1 рнцдю оепеунд мю сярюмнбйс л. асдхкэмхйю MOV A,SEL CPI A,2 ; BREQ AL_M1 ;еякх SEL=2 рнцдю оепеунд мю сярюмнбйс л. асдхкэмхйю1 RJMP DEY_S ;хмюве SEL=3 рнцдю оепеунд мю сярюмнбйс янярнъмхъ дмъ CL_M: INC M ;сбекхвхл лхмсрш CLR SS ;яапняхл гмювемхе яейсмд (опнхяундхр йнппейжхъ) CPI M,10 BREQ J1 ;еякх лхмсрш пюбмш 10 рнцдю оепеунд мю J1(хмюве дюкее) RJMP MAIN ;бнгбпюр б MAIN J1: CLR M ;яапняхл гмювемхе лхмср INC MM ;сбекхвхл гмювемхе д.лхмср CPI MM,6 BREQ J2 ;еякх гмювемхе д.лхмср днярхцкн 6 рнцдю оепеунд мю J2 RJMP MAIN ;бнгбпюр б MAIN J2: CLR MM ;яапняхл онйюгюмхъ д.лхмср CLR M ;яапняхл онйюгюмхъ лхмср ;INC M ;сбекхвхл онйюгюмхъ лхмср RJMP MAIN ;бепмеляъ б MAIN ;---------------------------------------------------- ;------------------------------------------------- ;опнжедспю сярюмнбйх лхмср оепбнцн бпелемх рюилепю ;------------------------------------------------- AL_M: INC TM ;сбекхвхл лхмсрш CPI TM,10 BREQ J3 ;еякх вюяш пюбмш 10 рнцдю оепеунд мю J3(хмюве дюкее) RJMP MAIN ;бнгбпюр б MAIN J3: CLR TM ;яапняхл гмювемхе лхмср INC TMM ;сбекхвхл гмювемхе д.лхмср CPI TMM,6 BREQ J4 ;еякх гмювемхе д.лхмср днярхцкн 6 рнцдю оепеунд мю J4 RJMP MAIN ;бнгбпюр б MAIN J4: CLR TMM ;яапняхл онйюгюмхъ д.лхмср CLR TM ;яапняхл онйюгюмхъ лхмср RJMP MAIN ;бепмеляъ б MAIN ;-------------------------------------------------- ;------------------------------------------------- ;опнжедспю сярюмнбйх лхмср брнпнцн бпелемх рюилепю ;------------------------------------------------- AL_M1: INC TM1 ;сбекхвхл лхмсрш CPI TM1,10 BREQ J5 ;еякх вюяш пюбмш 10 рнцдю оепеунд мю J5(хмюве дюкее) RJMP MAIN ;бнгбпюр б MAIN J5: CLR TM1 ;яапняхл гмювемхе лхмср INC TMM1 ;сбекхвхл гмювемхе д.лхмср CPI TMM1,6 BREQ J6 ;еякх гмювемхе д.лхмср днярхцкн 6 рнцдю оепеунд мю J6 RJMP MAIN ;бнгбпюр б MAIN J6: CLR TMM1 ;яапняхл онйюгюмхъ д.лхмср CLR TM1 ;яапняхл онйюгюмхъ лхмср RJMP MAIN ;бепмеляъ б MAIN ;------------------------------------------------- ;--------------------------------------------------- ;опнжедспю сярюмнбйх янярнъмхъ бшапюммнцн дмъ медекх ;--------------------------------------------------- DEY_S: INC DS ;сбекхвхл йнд янярнъмхъ MOV A,DS CPI A,4 BREQ L1 ;еякх мнлеп янярнъмхъ дньек дн 4 рнцдю хдел мю L1 RJMP WR L1: LDI A,0 MOV DS,A ;сярюмнбхл йнд янярнъмхъ б хяунд.онкнфемхе. RJMP WR WR: SBIC EECR,EEWE RJMP WR ;фд╗л пюгпеьемхъ гюохях OUT EEAR,D ;сйюфел мнлеп гюохяшбюелни ъвеийх OUT EEDR,DS ;ондцнрнбхл дюммше й гюохях SBI EECR,EEWE ;мювюрэ опнжедспс гюохях WRR: SBIC EECR,EEWE RJMP WRR ;фд╗л онйю б EEPROM гюохьеряъ хмтнплюжхъ RJMP MAIN ;--------------------------------------------------- ;*************************************************************************** ;* опнжедспю опнбепйх оепбнцн бпелемх рюилепю ;*************************************************************************** ALLARM: CP HH,THH BREQ I ;еякх д.вюянб янбоюкх оепеунд мю I RJMP MAIN0 ;хмюве бшунд I: CP H,TH BREQ I1 ;еякх вюяш янбоюкх оепеунд мю I1 RJMP MAIN0 ;хмюве бшунд I1: CP MM,TMM ; BREQ I2 ;еякх д.лхмср янбоюкх оепеунд мю I2 RJMP MAIN0 ;хмюве бшунд I2: CP M,TM BREQ I3 ;еякх лхмсрш янбоюкх оепеунд мю I3 RJMP MAIN0 ;хмюве бшунд I3: OUT EEAR,D ; SBI EECR,EERE ;явхрюел хг EEPROM янярнъмхе рейсыецн дмъ IN A,EEDR ;гюцпсгхл ецн б юййслскърнп CPI A,0 BREQ I4 CPI A,1 BREQ I4 CPI A,2 BREQ I5 CPI A,3 BREQ I5 ;оепеунд б гюбхяхлнярх нр янярнъмхъ дмъ медекх I4: SBI PORTB,7 ;бйкчвхрэ пеке RJMP MAIN0 I5: CBI PORTB,7 ;бшйкчвхрэ пеке RJMP MAIN0 ;__________________________________________________________________________ ;*************************************************************************** ;* опнжедспю опнбепйх брнпнцн бпелемх рюхлепю ;*************************************************************************** ALLARM1: CP HH,THH1 BREQ II ;еякх д.вюянб янбоюкх оепеунд мю II RJMP MAIN ;хмюве бшунд II: CP H,TH1 BREQ II1 ;еякх вюяш янбоюкх оепеунд мю II1 RJMP MAIN ;хмюве бшунд II1: CP MM,TMM1 ; BREQ II2 ;еякх д.лхмср янбоюкх оепеунд мю II2 RJMP MAIN ;хмюве бшунд II2: CP M,TM1 BREQ II3 ;еякх лхмсрш янбоюкх оепеунд мю II3 RJMP MAIN ;хмюве бшунд II3: OUT EEAR,D ; SBI EECR,EERE ;явхрюел хг EEPROM янярнъмхе рейсыецн дмъ IN A,EEDR ;гюцпсгхл ецн б юййслскърнп CPI A,0 BREQ II5 CPI A,1 BREQ II4 CPI A,2 BREQ II5 CPI A,3 BREQ II4 ;оепеунд б гюбхяхлнярх нр янярнъмхъ дмъ медекх II4: SBI PORTB,7 ;бйкчвхрэ пеке RJMP MAIN II5: CBI PORTB,7 ;бшйкчвхрэ пеке RJMP MAIN ;__________________________________________________________________________ ;------------------------------------------------------------------ ;опнжедспю онцпсфюер опнжеяянп б янм,еякх хявегкн нямнбмне охрюмхе ;------------------------------------------------------------------ SLEEP: LDI A,0B00100000 OUT MCUCR,A ;(ондцнрнбхл SLEEP) SLEEP ;дюдхл йнлюмдс SLEEP RJMP ALLARM ;оепеунд мю опнбепйс оепбнцн бпелемх асдхкэмхйю (оняке ;нрпюанрйх SLEEP) ;__________________________________________________________________