Микропроцессорная техника Сторожок / лаб 3 / лаб 2 сторожок

;дисциплина "Программируемые цифровые устройства"
;Лабораторная работа № 4
;Изучаем организацию памяти программ и памяти данных
list p=16f877a
include <p16f877a.inc>
ledset equ 0x20 ;используем директиву Ассемблера для назначения имени ячейки
;0x20 в нулевом банке регистров общего назначения
org 0x00 ;директива Ассемблера «поместить команду goto start в 0x00»
;адрес памяти программ (в вектор сброса)
goto start ;безусловный переход на метку start
org 0x05 ;директива Ассемблера «поместить команду bcf STATUS,5 в 0x05»
;адрес памяти программ (следующий за вектором прерываний)
start ;метка
bcf STATUS,5 ;сброс 5-го байта в регистре STATUS
bcf STATUS,6 ;сброс 6-го байта в регистре STATUS
;в результате переход в банк 0
clrf PORTD ;сброс защелки порт D - все нули
clrf ledset ;сброс переменой ledset - все нули
bsf STATUS,5 ;установить 5-й байт в регистре STATUS (5-й байт = 1)
;в результате переход в банк 1
movlw b'11111011' ;константу b'11111011' переслать в аккумулятор (рабочий
;регистр W)
movwf TRISD ;содержимое аккумулятора переслать в регистр TRISD
;в результате настройка направления передачи сигналов на
;выводах порт D. вывод RD2 (21 ножка) настроен как выход,
;остальные - вход
bcf TRISE,4 ;настройка порт D в режим цифровых каналов ввода-вывода
change ;метка
bcf STATUS,5 ;переход в банк 0
movlw b'00000100' ;константу b'00000100' переслать в аккумулятор (рабочий
;регистр W)
xorwf ledset,1 ;выполнить побитное исключающее ИЛИ между W и ledset,
;результат сохранить в ledset
;в результате изменение 2 бита на противоположное в переменной ledset
movfw ledset ;запись ledset в "аккумулятор"

bsf STATUS,5
movwf PORTD ;запись ledset в защелку порт D
movlw b'00000000'
movwf TRISD
bcf STATUS,5
movlw b'10110101'; заносим в аккумулятор константу c
movwf PORTD; содержимое аккумулятора пересылаем на вывод порта D

end ;конец программы