;--------------------------------
btfsc MBC,4 ; System bit 4
call Tx_1
btfss MBC,4
call Tx_0
;--------------------------------
btfsc MBC,3 ; System bit 3
call Tx_1
btfss MBC,3
call Tx_0
;--------------------------------
btfsc MBC,2 ;System bit 2
call Tx_1
btfss MBC,2
call Tx_0
;--------------------------------
btfsc MBC,1 ;System bit 1
call Tx_1
btfss MBC,1
call Tx_0
;--------------------------------
btfsc MBC,0 ;System bit 0
call Tx_1
btfssMBC,0
callTx_0
;--------------------------------
btfsc LBC,5 ;Command bit 5
call Tx_1
btfss LBC,5
call Tx_0
;--------------------------------
btfsc LBC,4 ;Command bit 4
call Tx_1
btfss LBC,4
call Tx_0
;--------------------------------
btfsc LBC,3 ;Command bit 3
call Tx_1
btfss LBC,3
call Tx_0
;--------------------------------
btfsc LBC,2 ;Command bit 2
call Tx_1
btfss LBC,2
call Tx_0
;--------------------------------
btfsc LBC,1 ;Command bit 1
call Tx_1
btfss LBC,1
call Tx_0
;--------------------------------
btfsc LBC,0 ;Command bit 0
call Tx_1
btfssLBC,0
callTx_0
bcf MBC,5 ; установить управляющий бит в 0 (повторное нажатие)
;****** ПАУЗА, РАВНАЯ МЕЖПАКЕТНОМУ ИНТЕРВАЛУ ****************************************
;****** Пауза между пакетами равна 50 bit, т.е. надо послать 100 нулевых полубитов (RCN) ********
movlw .99 ; здесь записано 99, а не 100, т.к. далее call стоит раньше декремента
movwf T_0
pause call RCN
decfsz T_0,F ; декремент T_0
goto pause
goto Scan
;********КОНЕЦ ОСНОВНОЙ ПРОГРАММЫ ***************************************************************
;******* ПОДПРОГРАММЫ ПЕРЕДАЧИ НУЛЯ И ЕДИНИЦЫ ***********************************************
;******* Передача нуля манчестерским кодом **********************
Tx_0 call RCY ; первые полбита единица
call RCN ; вторые полбита ноль
return
;******* Передача единицы манчестерским кодом *******************
Tx_1 call RCN ; первые полбита ноль
call RCY ; вторые полбита единица
return
;*********************************************************************************************
;***** ПОДПРОГРАММЫ ФОРМИРОВАНИЯ СОСТОЯНИЙ "ON" И "OFF" ***********************
;***** Передача единичного полубита ("ON") ******************
RCY movlw NCr ; поместить константу NCr в аккумулятор
movwf T_NC ; скопировать содержимое аккумулятора в регистр T_NC
Y_001 movlw Cr1 ; поместить константу Cr1 в аккумулятор (изменяя Cr1 и Cr0 можно грубо подстраивать частоту несущей)
movwf T_Cr ; поместить содержимое аккумулятора в регистр T_Cr (таймер несущей)
bsf GPIO,0 ; установить на выходе защелки GP0 единицу (установить 1 на выходе)
Cr1_Y decfsz T_Cr,F ; декремент содержимого регистра T_Cr с ветвлением: если f=0 - результат
; сохраняется в аккумуляторе, если f=1 - результат сохраняется в регистре T_Cr.
; Если результат не равен 0, то исполняется следующая инструкция, если равен 0,
; то вместо следующей инструкции исполняется nop, а команда исполняется за 2 м.ц.
goto Cr1_Y ; переход на метку Cr1_Y
nop ; увеличивая здесь длительность паузы (добавляя еще nop) - можно точно подстраивать чатоту несущей
bcf GPIO,0 ; Установить на выходе защелки GP0 ноль (установить 0 на выходе)
movlw Cr0 ; поместить константу Cr0 в аккумулятор (изменяя Cr1 и Cr0 можно грубо подстраивать частоту несущей)
movwf T_Cr ; скопировать содержимое аккумулятора в регистр T_Cr
local Cr0_Y
Cr0_Y decfsz T_Cr,F
goto Cr0_Y ; увеличивая здесь длительность паузы (добавляя еще nop) - можно точно подстраивать чатоту несущей
decfsz T_NC,F
goto Y_001
return
;***** Передача нулевого полубита ("OFF") *******************
RCN movlw NCr ; подпрограмма передачи нулевого полубита имеет
movwf T_NC ; ту же структуру, что и подпрограмма передачи единичного
local N_001 ; полубита только для того, чтобы было легче регулировать
N_001 movlw Cr1 ; их длительности
movwf T_Cr
nop ; вместоbsfGP0
local Cr1_N
Cr1_N decfsz T_Cr,F
goto Cr1_N
nop
nop ; вместо bсf GP0
movlw Cr0
movwf T_Cr
local Cr0_N
Cr0_N decfsz T_Cr,F
goto Cr0_N
decfsz T_NC,F
goto N_001
return
;***********************************************************************************************
end
;------------------------------------------------------------------------------------------------------------------------------
Приложение В
Программа прошивки микроконтроллера PIC12F629 для ИК приемника дистанционного управления
;------------------------------------------------------------------------------------------------------------------------------
list p = 12f629
__config 01FE4h ; 01111 11 1 1 0 0 100 - (7,8)защиты памяти нет, (6)сброс по питанию разрешен,
; (5)GP3/-MCLR работает как -MCLR, (4)PWRT включен, (3)WDT - выключен, (2-0)генератор - внутренний
;********* Переменные ************************************
CBLOCK 0x20 ; Начальный адрес
MBC ; старший байт посылки (полбита - 889uS)
LBC ; младший байт посылки
Schetchik ; счетчик принятых бит
Prov_reg ; регистр для проверки на манчестер (сюда пишем три последних принятых бита)
Adrbit ; адрес бита для записи
Counter ; счетчик для паузы
ENDC ;
;******** Константы ***************************************
T1 equ .205 ; задержка 1
T2 equ .204 ; задержка 2
TP equ .255 ; задержка между приемом посылок
TN equ .125 ; начальная задержка, чтобы попасть на середину полубита
Sys equ .29 ; номер системы
CMD_1 equ .8 ; код команды 000010 00 последние 2 бита не используются, т.е. команда = 2
INDF equ 0h ; регистр косвенной адресации
Status equ 03h ; Регистр выбора банка.
FSR equ 04h ; регистр адреса при косвенной адресации
GPIO equ 05h ; Регистр управления защелками порта.
Cmcon equ 19h ; Регистр Cmcon - компаратора
TrisIO equ 05h ; Регистр выбора направления работы выводов порта.
INTCON equ 0Bh ; Регистр разрешения(1)/запрета(0) прерываний
IOCB equ 16h ; регистр разрешения прерываний по GP0...GP5
OSCCAL equ 10h ; Регистр хранения калибровочной константы
F equ 1 ; Результат направить в регистр.
;********************************************************
; Пусть у нас GP0 (1-й кр), GP1(2-й кр), GP2(жел), GP4(зел) - выходы на транзисторы управления светодиодов, GP5 - вход ИК-приемника
;********************************************************
org 0
goto start
org 4
;********* ПРЕРЫВАНИЕ *************************************************************
btfsc GPIO,5 ; если вход не = 0, то это не начало приема
goto exit
;********* Установить счетчик принятых бит **********************************************
movlw .1 ;
movwf Schetchik ; 3-й бит определяет - куда пишем, если 1, то в MBC, если 0, то в LBC
;********* Установить адрес бита для записи = 7 (поднять 7-й бит) ***********************
movlw .128
movwf Adrbit
;********* Заполняем три младших бита проверочного регистра нулями *****************
clrf Prov_reg
;********* Установить адрес регистра для записи в регистр косвенной адресации (сначала пишем в MBC) ***
movlw MBC ; записываем адрес MBC в регистр косвенной адресации
movwf FSR ;
;********* Начальная задержка ****************************************
movlw TN
movwf Counter
nach_zad nop
decfsz Counter,1
goto nach_zad
;********* ЗАПИСЬБАЙТА *****************************************************************
;*********Второй полубит n-го бита **********************************************************
;********* Проверить вход и записать принятый полубит (один полубит пишем, другой - пропускаем) **
zapis btfss GPIO,5 ; если на входе GP5 низкий уровень - пишем единицу (выполняем следующую команду)
goto zapis1
zapis0 comf Adrbit,0 ; записываем позицию бита, которую будем менять
andwf INDF,1 ; побитное "и", - ставим ноль в позиции, указанной в Adrbit
bcf Status,0 ; очищаем флаг переноса
rlf Prov_reg,1 ; сдвигаем биты в проверочном регистре влево
movlw .7 ; .7 = 00000111
andwf Prov_reg,1 ; сбрасываем все биты кроме первых трех
bcf Prov_reg,0 ; в нулевой бит проверочного регистра пишем ноль
goto sdvig
zapis1 movf Adrbit,0
iorwf INDF,1 ; побитное "или", - ставим единицу в позиции, указанной в Adrbit
bcf Status,0 ; очищаем флаг переноса
rlf Prov_reg,1 ; сдвигаем биты в проверочном регистре влево
movlw .7 ; .7 = 00000111
andwf Prov_reg,1 ; сбрасываем все биты кроме первых трех
bsf Prov_reg,0 ; в нулевой бит проверочного регистра пишем единицу
;******** меняем адрес записи бита *************************************************
sdvig bcf Status,0 ; очищаем флаг С
rrf Adrbit,1 ; циклический сдвиг вправо через перенос (смещаем позицию)
btfsc Status,0 ; если флаг С = 0, пропускаем следующую команду
bsf Adrbit,7 ; поднимаем 7-й бит (ставим адрес на 7-й бит)
;******** Проверяем на манчестер ****************************************************
movlw .0
xorwf Prov_reg,0 ; проверка - равен ли нулю проверочный регистр
btfsc Status,2 ; если флаг Z = 0, пропускаем следующую команду
goto not_manch
movlw .7
xorwf Prov_reg,0 ; проверка - равен ли 00000111 проверочный регистр
btfsc Status,2 ; если флаг Z = 0, пропускаем следующую команду
goto not_manch
;******** Задержка 1, чтобы общая длительность от метки zapis до окончания задержки равнялась 889 мкс ***
movlw T1
movwf Counter ; загружаемв Counter таймер T1
Count1 nop
decfsz Counter,1
goto Count1
nop
;******** первый полубит n+1-го бита (писать не надо, но для проверки на манчестер - надо) ******
btfss GPIO,5 ; если на входе GP5 низкий уровень - пишем единицу (выполняем следующую команду)
goto zapis12
zapis02 bcf Status,0 ; очищаем флаг переноса
rlf Prov_reg,1 ; сдвигаем биты в проверочном регистре влево
movlw .7 ; .7 = 00000111
andwf Prov_reg,1 ; сбрасываем все биты кроме первых трех
bcf Prov_reg,0 ; в нулевой бит проверочного регистра пишем ноль
goto proverka
zapis12 bcf Status,0 ; очищаем флаг переноса
rlf Prov_reg,1 ; сдвигаем биты в проверочном регистре влево
movlw .7 ; .7 = 00000111
andwf Prov_reg,1 ; сбрасываем все биты кроме первых трех
bsf Prov_reg,0 ; в нулевой бит проверочного регистра пишем единицу
;******** Проверяем на манчестер ****************************************************
proverka movlw .0
xorwf Prov_reg,0 ; проверка - равен ли нулю проверочный регистр
btfsc Status,2 ; если флаг Z = 0, то проверочный регистр не равен нулю - пропускаем следующую команду
goto not_manch
movlw .7
xorwf Prov_reg,0 ; проверка - равен ли 00000111 проверочный регистр
btfsc Status,2 ; если флаг Z = 0, пропускаем следующую команду
goto not_manch
;******** Задержка 2, чтобы общая длительность от чтения этого полубита до чтения следующего равнялась 889 мкс ***
movlw T2
movwf Counter ; загружаемв Counter таймер T2
Count2 nop
decfsz Counter,1
goto Count2
nop
;******** Сколько бит записали? ******************************************************
movlw .14
xorwf Schetchik,0 ; счетчик = 14?
btfsc Status,2 ; если флаг Z = 0, пропускаем следующую команду
return ; выходим без разрешения прерываний
;****** Если бит 3 счетчика = 1, то мы уже записали 8 бит и следующие надо писать в LBC *****
btfss Schetchik,3 ; если третий бит счетчика равен единице, то следующая инструкция пропускается
goto zap_MBC
zap_LBC movlw LBC ; записываем адрес LBC в регистр косвенной адресации
movwf FSR
goto next
zap_MBC movlw MBC ; записываем адрес MBC в регистр косвенной адресации
movwf FSR
;****** Увеличить счетчик *******************************************************************
next incf Schetchik,1 ; увеличиваем счетчик
goto zapis
;****** Погасить все, зажечь первый красный *************************************************
not_manch bcf GPIO, 1 ; погасить второй красный светодиод