LIST p=16C84
; Регистры общего назначения
STATUS EQU 03h ; статус
PORTB EQU 06h ; порт В
; Управляющие регистры портов ввода-вывода
TRISB EQU 86h ; для порта В
; Биты регистра STATUS
RP0 EQU 05h ; бит выбора страницы
org 00h ; начало исполняемого кода
GOTO START
; Основная программа
START
; Инициализация PORTB
MOVLW B'00001111' ; настройка порта В
BSF STATUS,RP0 ; выбор банка 1
MOVWF TRISB ; установка D0-D3 на ввод, D4-D7 на вывод
BCF STATUS,RP0 ; выбор банка 0
;
MAIN ;основной цикл
SWAPF PORTB,0 ;W = D0-D3 <-> D4-D7 порта B
ANDLW 0f0h ;сбросим млашие биты (бывшие старшие)
MOVWF PORTB ;отправляем обратно, чтобы зажечь/потушить
GOTO MAIN
END
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.