'****************************************************************
device=16F876a
'********************************************* *******************
' LCD should be connected as follows:
' LCD PIC
' DB4 PortB.4
' DB5 PortB.5
' DB6 PortB.6
' DB7 PortB.7
' RS PortA.0 (add 4.7K pullup resistor to 5 volts)
' E PortA.1
' RW Ground
' Vdd 5 volts
' Vss Ground
' Vo 20K potentiometer (or ground)
' DB0-3 No connect
'-------------------------------------------------------------
DECLARE XTAL 4
declare LCD_RSPIN=PORTA.0
DECLARE LCD_ENPIN=PORTA.1
DECLARE LCD_DTPIN=PORTB.4
DECLARE LCD_INTERFACE=4
DECLARE LCD_LINES=2

Dim dataRC5 as WORD ' Create a WORD variable to receive the data
dim countr as byte
dim addrRC5 as $00
dim klav as byte
dim clock as byte
dim h as byte 'переменные циклов
dim j as byte
dim row as byte
dim addr as word

ADCON1 = 7 'Все порты цифровые
ADCON0.0 = 0 'АЦП выключен
SSPCON.5 = 0 'Модуль SSP выкл., порты цифровые
TRISB = %00001111 'Порты 0..3 на вход
TRISA = %00000 'На выход
TRISC = %00000000 'На выход
PORTC=%00011000 '
INTCON.7=0 'Disable interapt
OPTION_REG=%00001000'On pull-up PORTB,прерывания по спаду RB0/INT,
'пределитель перед WDT

Delayms 100 ' Wait for LCD to startup
Cls ' Clear the LCD

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' Основная программа
'-------------------------------------------------------------------------------

clock=$b0 'устойчевей работает при значении В0
Print at 1,1, "clock=", hex2 clock
gosub lcd
INTCON = %10010000 'Разрешение внешнего прерывания
On Interrupt intRB0

press:
if dataRC5<>0 then
gosub lcd
endif
for row=0 to 3
PORTB= (dcd (row +4))^$ff 'Установка порта № строка+4 в 0

if PORTB.3=0 then
delayms 20
if PORTB.3=0 then
klav=row
goto klaviatura
endif
endif
if PORTB.2=0 then
delayms 20
if PORTB.2=0 then
klav=row +4
goto klaviatura
endif
endif
next row
goto press

disable
'Обработка переменной клавиатуры
klaviatura:
if klav=0 then
if clock=$bf then press
clock=clock +1
Print at 1,1, "clock=", hex2 clock
delayms 200
endif

if klav=1 then
if clock=$91 then press
clock=clock -1
Print at 1,1, "clock=", hex2 clock
delayms 200
endif
goto press

'Comand

lcd:
print at 2,1, "dataRC5=", hex2 datarc5
dataRC5=0
return
enable
'-------------------------------------------------------------------------------
' Обработка внешнего прерывания по входу порта В0
'-------------------------------------------------------------------------------
disable 'Запрешение прерываний перед обработчиком
intRB0:
INTCON = %00000000 'Запрет прерываний битами
'-------------------------------------------------------------------------------
' декодированиe кода ДУ RC-5
'-------------------------------------------------------------------------------
datarc5=$0001 'Стартовый бит
countr=0 'Обнуление счетчика временных интервалов

while PORTB.0=0 and countr<11 'Проверка
call timer
wend
if countr>5 and countr<11 then
while countr<13 '13 чтобы в центре импульса
call timer 'Считаем временные интервалы
wend
for h=0 to 12 'Обработка 13 битов
dataRC5=dataRC5<<1 'Сдвиг на одну позицию
if PORTB.0=1 then '
dataRC5=dataRC5 | $0001 '1 в младшем разряде
countr=0 'Начало отсчета 16 интервалов
while PORTB.0=1 and countr<16 'Проверка помехи, выход из цикла
call timer 'если порт=0
wend
else
dataRC5=dataRC5 & $FFFE '0 в младшем разряде
countr=0 '
while PORTB.0=0 and countr<16 ' выход из цикла если порт=1
call timer '
wend
endif
if countr=16 and h<12 then 'Слишком долго тянулся лог. уровень
dataRC5=0
goto exit 'поэтому выход без команды
endif
for j=0 to 11 ' Досчет до 16 (4+12) интервалов
call timer
next j
next h
addr= datarc5>>6
if (addr.lowbyte & $1f) <> addrrc5 then 'проверка адреса
datarc5=0
endif
else
dataRC5=0 '
endif
exit:
datarc5=datarc5 & $3f 'Команда 0 - 63 (0-пустая команда)

INTCON = %10010000 'Разрешение внешнего прерывания и сброс флага
resume
'-------------------------------------------------------------------------------
' Обработка переполнения таймера
'-------------------------------------------------------------------------------

asm
timer
movf clock,0 ;начальная загрузка регистра таймера
movwf TMR0
bcf INTCON,2 ;начальный сброс флага
loop
btfss INTCON,2 ;проверка флага переполнения таймера
goto loop
incf countr,1 ;инкремент счетчика интервалов
bcf INTCON,2 ;сброс флага
return
endasm

enable 'Разрешение прерываний после обработчика

end