Курсовая работа: Разработка микропроцессорной системы на базе микроконтроллера для пожарной сигнализации

RETURN ;ИМПУЛЬС НЕ ФОРМИРУЕТСЯ.

CALL ID2O ;ПАУЗА, РАВНАЯ НУЛЮ.

BSF PORTA,3 ;ВКЛЮЧИМ ВЫХОД.

CALL ID21 ;ОТРАБОТАЕМ ПАУЗУ, РАВНУЮ ДЛИТЕЛЬНОСТИ ЕДИНИЦЫ.

BCF PORTA,3 ;ВЫКЛЮЧИМ ВЫХОД.

CALL ID2O ;ПАУЗА, РАВНАЯ НУЛЮ.

BCF PORTA,4 ;ВЫКЛЮЧИМНЕСУЩУЮ.

RETURN

S10

BCF FLAG,1 ;СБРОСИМ ФЛАГ ВКЛЮЧЕНИЯ НЕСУЩЕЙ.

BTFSC FLAG,0 ;ЕСЛИ НЕСУЩАЯ ВЫКЛЮЧАЛАСЬ ПО ДАТЧИКУ,

RETURN ;ИМПУЛЬС НЕ ФОРМИРУЕТСЯ.

BSF PORTA,4 ;ВКЛЮЧИМ НЕСУЩУЮ,

CALL ID2O ;ПАУЗА, РАВНАЯ НУЛЮ.

BSF PORTA,3 ;ВКЛЮЧИМ ВЫХОД.

CALL ID21 ;ОТРАБОТАЕМ ПАУЗУ, РАВНУЮ ДЛИТЕЛЬНОСТИ ЕДИНИЦЫ.

BCF PORTA,3 ;ВЫКЛЮЧИМ ВЫХОД.

CALL ID2O ;ПАУЗА, РАВНАЯ НУЛЮ.

BCF PORTA,4 ;ВЫКЛЮЧИМ НЕСУЩУЮ.

RETURN

;======================

; 2. ИНИЦИАЛИЗАЦИЯ.

;======================

INIT

BSF STATUS,RP0 ;ПЕРЕХОДИМ В БАНК 1.

MOVLW B'00000100';ПРЕДДЕЛИТЕЛЬ ПЕРЕД ТАЙМЕРОМ, К=32...100,

MOVWF OPTION_REG^80H;ПОДТЯГИВАЮЩИЕ РЕЗИСТОРЫ ВКЛЮЧЕНЫ.

MOVLW B'10100000' ;РАЗРЕШЕНИЕ ПРЕРЫВАНИЯ = ПРИ ПЕРЕПОЛНЕНИИ ТАЙМЕРА.

MOVWF INTCON ;