Прерывания PIC

[milssky]

Пытаюсь разобраться с прерывания. Выбрал 16F84A и пытаюсь моделировать в протеусе. Поставил задачу: при нажатии на кнопочку светодиод загорается и тухнет через небольшое время (около 0.5 секунды). Использую RB0/INT как источник внешнего прерывания. На RA0 висит светодиод. Код

;=================================================  ========================
; Конфигурация
;=================================================  ========================
	LIST P=16F84A			; устанавливаем тип МК
	#include p16F84A.inc	; подключаем шапку
	__CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _HS_OSC	; конфигурация МК
;=================================================  ========================
; Описание регистров общего назначения
;=================================================  ========================
W_backup 		EQU		0x20		; копия аккумулятора
S_backup		EQU		0x21		; копия регистра статус
Dig1			EQU 	0x22		; младший разряд индикатора
Dig2			EQU 	0x23		; 2 разряд индикатора
Dig3			EQU 	0x24		; 3 разряд индикатора
Dig4			EQU 	0x25		; старший разряд индикатора
Rank			EQU		0x26		; номер разряда
Delay			EQU		.255		; задержка
Counter			EQU		0x28		; счеьтчик 

;=================================================  ========================
; Программа
;=================================================  ========================
			ORG			0x00
			GOTO		Main
;=================================================  ========================
; Подпрограммы и прерывания
;=================================================  ========================
			ORG			0x04
			MOVWF W_backup			; сохранение текущего значения аккумулятора
			MOVF STATUS,w			; помещаем регистр STATUS в аккумулятор
			MOVFW S_backup			; схраняем значение регистра STATUS
			MOVLW Delay				
			MOVWF Counter
			BSF PORTA,0				; высокий уровень на 0 ноге порта а
wwww		DECFSZ Counter
			GOTO wwww
			MOVF S_backup,w			; возвращаем значения регистра STATUS
			MOVWF STATUS
			SWAPF W_backup,f
			SWAPF W_backup,w
			BCF INTCON,INTE			; запрещаем прерывание на RB0
			RETFIE					; уход из прерывания
;=================================================  ==========================
; Главный цикл
;=================================================  ==========================
Main 		BSF STATUS,5			; идем в 1 банк
			BSF INTCON,7			; разрешаем прерывания
			BSF	INTCON,4			; разрешаем прерывания по INT
			MOVLW .1
			MOVWF TRISB				; порт В на вход
			BCF TRISA,0				; 0 вывод порта А на выход
			BSF OPTION_REG,6		; Прерывание на RB0 по переднему фронту
			BSF INTCON,4			; Разрешаем внешнее INT прерывание
			BCF STATUS,5			; идем в 0 банк
			CLRF PORTA				; 0 на всех входах порта А
			NOP						; Ждем прерывание по кнопочке
			GOTO Main
			end

Не работает зараза =( Направьте на путь истинный =)

[аtаs_stas]

			NOP
			GOTO Main
			end

А по идее должно быть так

Loop:
			NOP
			GOTO Loop
			end

И ещё... возьмите за правило... сначала все настройки портов, периферии и прерываний, а потом уже разрешение прерываний... в самую последнюю очередь... а первой командой в Main - запрет всех прерываний...

[milssky]

Все равно не работает =(

;=================================================  ========================
; Программа
;=================================================  ========================
            ORG            0x00
            GOTO        Main
;=================================================  ========================
; Подпрограммы и прерывания
;=================================================  ========================
            ORG            0x04
            MOVWF W_backup            ; сохранение текущего значения аккумулятора
            MOVF STATUS,w            ; помещаем регистр STATUS в аккумулятор
            MOVFW S_backup            ; схраняем значение регистра STATUS
            MOVLW Delay                
            MOVWF Counter
            BSF PORTA,0                ; высокий уровень на 0 ноге порта а
wwww        DECFSZ Counter
            GOTO wwww
            MOVF S_backup,w            ; возвращаем значения регистра STATUS
            MOVWF STATUS
            SWAPF W_backup,f
            SWAPF W_backup,w
            BCF INTCON,INTE            ; запрещаем прерывание на RB0
            RETFIE                    ; уход из прерывания
;=================================================  ==========================
; Главный цикл
;=================================================  ==========================
Main         BCF INTCON,7            ; запрещаем все прерывания
            BSF STATUS,5            ; идем в 1 банк
            MOVLW .1
            MOVWF TRISB                ; порт В на вход
            MOVLW .0
            MOVWF TRISA                ; выводы порта А на выход
            BCF STATUS,5            ; идем в 0 банк
            CLRF PORTA                ; 0 на всех входах порта А
            CLRF PORTB                ; ---------------------- B
            BSF INTCON,7            ; разрешаем прерывания
            BSF    INTCON,4            ; разрешаем прерывания по INT
            BSF OPTION_REG,6        ; Прерывание на RB0 по переднему фронту
Loop        NOP                        ; Ждем прерывание по кнопочке
            GOTO Loop
            end

Хотя по идее должно. Может я где-то туплю?

[аtаs_stas]

RB0 подтяните к земле через сопротивление 10кОм, а кнопку к + питания через 270 Ом...

[milssky]

Заработало. Спасибо огромное. Подтяжки нужны чтобы точно определить начальный уровень на ножке?

[dosikus]

А не проще подтяжку вывода к VDD , а кнопку на вывод и на землю напрямую ?!

[milssky]

да может и проще Объясните на кой вообще подтяжки?)

[аtаs_stas]

Тоже хотел дать такой совет... а вдруг у него там не кнопка... а кнопкой в Протэзе эмулирует какой-то сигнал...
"на землю напрямую"... он сейчас в Протэзе, а через пять минут с железом... неправильная настройка на выход с единицей и... кнопкой на землю... "PIC гавно, пошёл покупать AVR..." ....
Уж лучше пусть сопрот 270 Ом поставит...

[аtаs_stas]

да может и проще Объясните на кой вообще подтяжки?)

Чтобы избежать неопределённости состояния пина настроенного на ввод из-за его высокого входного сопротивления... чтобы "шум космоса" не ловил...

[dosikus]

аtаs_stas, Понял , предохраняешься значит.