Помогите разобраться с задачей (PIC16F84A))

[Spag]

Помогите пожалуйста с программой для PIC16F84A. Задача такая: Нужно написать программу которая обеспечивала бы мигание светодиода подключенного к порту В с частотой 2Гц. При поступлении низкого сигнала на порт В5 загорался второй светодиод подключенный к порту А. Попеременное мигание осуществить с помощью прерываний инициируемых таймером. Программу написал но не уверен что все правильно. Помогите пожалуйста

List p=16F84a
Include ‹c:\P16F84a.inc›
_w equ 0x00b;
_status equ 0x00d;
PAGE;
__CONFIG _CP_OFF & _XT_OSC & _PWRTE_ON &_WDT_OFF
org 0;
goto Mainline
org 4
int
movwf_w;
movf STATUS,w;
movwf STATUS;
bcf INTCON, T0IF
movlw B'00000001'
xorwf PORTB
movwf STATUS;
swapf_w;
swapf_ww;
retfie;
Mainline
bsf STATUS, RP0;
movlw B'11111110'
movlw TRISA;
movlw B'11010111'
movlw OPTION_REG;
movlw B'11111110'
movlw TRISB;
bcf STATUS, RP0;
movlw B'10100000'
movwf INTCON;
Loop
btfsc PORTB, 5;
goto Setbit;
bcf PORTA,0;
goto Loop;
Setbit;
Bsf PORTA, 0;
goto Loop;
end

[RECTO]

Нужно написать программу которая обеспечивала бы мигание светодиода подключенного к порту В с частотой 2Гц.

Схема? Частота кварца?

Программу написал но не уверен что все правильно

Ну, сразу же - сохранение контекста при обработке прерываний выполнен неправильно.
Не уверен, что Вы понимаете, что и зачем у Вас написано в этой программе. Скорее всего, списали откуда-нибудь? Объясните, зачем у вас вот это написано, например:

movlw B'00000001'
xorwf PORTB
movwf STATUS

Проинвертировать 0-й разряд на выходе порта В, и записать результат в регистр статуса? С какой целью, что Вы этим хотели сделать?