91
Л исти н г 4.1. П родолжен и е
out TIMSK,tmp ;разрешаем прерывания по
/переполнению от T1 ldi tmp,F ;настройка режима #10001111
out TCCR1, tmp /вывод 0С1А, линия вывода !?31) пор
/выполнение условия "женской" логики (включение 30 минут) clz
cpi tmp5, /установлена "женская" логика? brne qq9 rcall zad30 nop
qq9: nop
/нет "женской" логики sbi portb, 0 rcall zadl nop
rjmp nStart nop
/выключение света poff: nop
cbi portb, 0
rcall zadl
nop
rjmp nStart ; подпрограмма прерывания таймера TIMER1: nop /вектор прерывания
nop
inc I clz
cpi i, $FF breq yu /настройка таймера Tl
/работа таймера Tl с максимальным предварительным делением ldi tmp,
/установка флага при переполнении
;подпрограмма включения света
/зключить свет
/задержка 1 секунда
/эоззращение в начало
;задержка 1 секунда /возвращение з начало
out ldi out
ldi out
TIFR,tmp tmp, TIMSK,tmp
tmp,F TCCR1, tmp
/разрешаем прерывания по /переполнению от Tl /настройка режима #10001111 ;зызод ОС1А, линия зызода (?31)
rjmp ррр пор
clr i cbi пор ret i
portb, 0
;выход из подпрограммы прерывания
92
Глава 4
Листинг 4.1. Продолжение
/подпрограмма задержки "30 минут"
|
zad30: |
: nop |
|
|
ldi |
tmp6, S1E |
|
|
ert: |
nop |
|
|
ldi |
tmp, C |
|
|
edc: |
nop |
|
|
rcall |
zadl |
|
|
clz |
||
|
dec |
tmp |
|
|
brne |
ssw |
|
|
rjmp |
ttw |
|
|
ssw: |
nop |
|
|
rjmp |
edc |
|
|
ttw: |
nop clz |
|
|
dec |
tmp6 |
|
|
brne |
s3 |
|
|
rjmp |
tt |
|
|
ss: |
nop |
|
|
rjmp |
ert |
|
|
tt: |
nop ret |
|
|
;подпрограмма |
задержки |
|
|
zadl: |
nop wdr |
|
|
ldi |
M, $A1 |
|
|
dm: |
nop |
|
|
ldi |
X, |
|
|
ldi |
Y, |
|
|
goq: |
nop |
|
|
dv: |
nop wdr |
|
|
ldi |
Y, |
|
|
dx: |
nop |
|
|
ldi |
tmp, |
|
|
dl : |
nop nop nop cln |
|
|
inc |
tmp |
|
|
nop |
||
|
nop |
||
|
nop |
||
|
nop |
||
|
brpl |
di |
|
|
noo |
||
;задаем 30 минут
;задаем 60 с
/подпрограмма "1 с"
/уменьшить секунды /переход по не разно (Z)
; цикл условия
/уменьшить минуты /переход по не разно (2)
/цикл услозия
:выход из подпрограммы
с"
Автоматическое освещение шкафа
93
Листинг 4.1. Окончание
cln пор
inc Y brpl dx cln
inc X nop
brpl dv cln
inc M nop
brpl dm
nop
ret
Листинг 4 2. Шестнадцатиричный код управления освещением
:020000020000FC
:1000000013C00 00 00 00 0 000 05DC00 00 00 00 0 000 00 0 :020010000000ЕЕ
:100028000000442747BB4 8BB4 4274FE047BB3B27DA :1000380000001127222733274427552766277727СВ :1000480088279927АА274ЕЕ14 7В3000048335527С0 :1000 58COB49B03C000007 3E002C0000077270000D3 :10006800B39B03C00 00095E002COOOO09927000080 :1000780048335527В29909С000009894733029F005 :10008800319903С0000015С000000000С09А44Е008 :10009800483F44Е0493F4FE8403F000098949530FE :1000A8O011F41ED0O000O0OOCO9A2FDO0 0OOC0CF6D :1000380000000000C0982 9D0000 03ACF0000000 05E :1000C800339598943F3F39F04 4S04 83F4 4E04 93F36 :1000D8004FE84 03F03C000C03327С0980000189538 :1300S8000000AEE10 0004CE300000FD09894 4A9 560 :1000F8000 9F402COOOOOF8CF0 00 09894AA9 509F40A :100108O002C00O0OEFCF0O0008950000A89511SA92 :10011800000031Е 721Е300000 00 0А8 9521Е3000 07А :1С012 8ОО4 5Е0О0ОО0О000000А8944 39 5ОООООООО8Е : 1001 38000000000 032F70000A894 С 00 02 3957AF7A9 : 10014800А8943395000042F7A8941395000002F78D =040158000000089506 tOCOOOOClFF
| НА ГЛАВНУЮ | | ЧТО ТАКОЕ PIC ? | | ПРОГРАММАТОР | | ПРОЕКТЫ | | СТАТЬИ | | ССЫЛКИ | | КАРТА САЙТА |