Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;**********************************************************************
- ;Программа 1.1 для микроконтроллеров ATx8515:
- ;переключение светодиодов (СД) при нажатии на кнопку START (SW0),
- ;после нажатия кнопки STOP (SW1) переключение прекращается и
- ;возобновляется c места остановки при повторном нажатии на кнопку START
- ;Соединения: SW0-PD0, SW1-PD1, LED-PB
- ;**********************************************************************
- ;.include "8515def.inc" ;файл определений для AT90S8515
- .include "m8515def.inc" ;файл определений для ATmega8515
- .def temp = r16 ;временный регистр
- .def reg_led = r20 ; регистр состояния светодиодов
- .equ START = 0 ;0-й разряд порта
- .equ STOP = 1 ;1-й разряд порта
- .org $000
- rjmp init
- ;***Инициализация***
- INIT: ldi reg_led,0b11111101 ;сброс reg_led.0 для включения LED0
- sec ;C=1
- set ;T=1 – флаг направления
- ser temp ;инициализация
- out DDRB,temp ; порта PB на вывод
- out PORTB,temp ;погасить СД
- clr temp ;инициализация
- out DDRD,temp ; порта PD на ввод
- ldi temp,0x03 ;включение подтягивающих
- out PORTD,temp ; резисторов порта PD
- WAITSTART: ;ожидание
- sbic PIND,START ; нажатия
- rjmp WAITSTART ; кнопки START
- LOOP: out PORTB,reg_led ;включение СД
- ;***Задержка (два вложенных цикла)***
- ldi r17,2
- d1: ldi r18,2
- d2: dec r18
- brne d2
- dec r17
- brne d1
- sbic PIND,STOP ;если замкнута кнопка STOP, то
- rjmp MM ; переход
- rjmp WAITSTART ; для проверки кнопки START,
- MM: brts LEFT ;переход, если флаг T установлен
- sbrs reg_led,3 ;пропуск следующей команды,
- ; если 0-й разряд reg_led установлен
- set ;T=1 - переключение флага направления
- ror reg_led ;сдвиг reg_led вправо на 1 разряд
- ror reg_led
- rjmp LOOP
- LEFT: sbrs reg_led,5 ;пропуск следующей команды,
- ; если 7-й разряд reg_led установлен
- clt ;T=0 – переключение флага направления
- rol reg_led ;сдвиг reg_led влево на 1 разряд
- rol reg_led
- rjmp LOOP
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement