Работа с портами ввода-вывода и таймерами (ASM, PIC16F873)

LIST P=16F873
#include p16F873.inc
__CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _HS_OSC
Green EQU 0x20 ; назначаем имя регистра для работы с зелеными
; светодиодами
Cycle EQU 0x21 ; назначаем имя регистра цикла, используемого в задержке
ORG 0x00 ; основная программа
GOTO Main ; переход на метку Main
ORG 0x04 ; подпрограмма прерывания
BCF PIR1,0 ; очищаем бит 0 в регистре PIR1. Сбрасываем
;флаг переполнения таймера TMR1
;
DECFSZ Cycle ; декрементируем регистр Cycle
RETFIE ; возврат из подпрограммы прерывания
MOVLW .3 ; заносим значение 3 в регистр W
MOVWF Cycle ; заносим значение из W в регистр Cycle
BTFSC Green,5 ; проверяем 5-й бит в регистре Green, если
; равен 1, то выполняется следущая инструкция
; если 0 - пропускаем "GOTO GreenM"
GOTO GreenM ; переходим на метку GreenM
RLF Green,1 ; сдвиг влево регистра Green
MOVF Green,0 ; заносим значение из Green в W
MOVWF PORTB ; выводим значение на выход PORTB
MOVLW B'10011000' ; заносим начальное время в таймер TMR1
MOVWF TMR1L
MOVLW B'10101011'
MOVWF TMR1H
RETFIE ; возврат из подпрограммы прерывания GreenM
MOVLW B'00000001' ; заносим значение B'00000001' в W
MOVWF Green ; заносим значение из W в регистр Green
MOVWF PORTB ; выводим значение из W в PORTB
MOVLW B'10011000' ; заносим начальное время в таймер TMR1
MOVWF TMR1L
MOVLW B'10101011'
MOVWF TMR1H
RETFIE ; возврат из подпрограммы прерывания
Main
BSF STATUS,0x5 ; устанавливаем 5-й бит в регистре STATUS,
; переходим в банк 1
CLRF TRISB ; очищаем регистр TRISB, настраиваем PORTB
; на выход
BSF PIE1,0 ; устанавливаем 0 бит в регистре PIE1,
;разрешаем прерывание по переполнению TMR1
BCF STATUS,0x5 ; очищаем 5 бит STATUS, переходим в банк 0
BSF INTCON, GIE ; устанавливаем бит GIE, глобальное
; разрешение прерываний разрешено
BSF INTCON, PEIE ; устанавливаем бит PEIE, разрешение
; прерываний от периферийных модулей
MOVLW B'00110001' ; пересылаем значение B'00110001' в W
MOVWF T1CON ; пересылаем значение из W в T1CON,
; устанавливаем коэффициент предделителя TMR1 1:8
; и включаем TMR1
MOVLW .3 ; заносим значение 3 в регистр W
MOVWF Cycle ; заносим значение из W в регистр Cycle
MOVLW B'00100000' ; заносим значение B'00100000' в W
MOVWF Green ; заносим значение из W из Green
CLRF PORTB ; очищаем содержимое регистра PORTB
MOVLW B'10011000' ; заносим начальное время в таймер TMR1
MOVWF TMR1L
MOVLW B'10101011'
MOVWF TMR1H
Loop ; цикл ожидания переполнения таймера TMR1
GOTO Loop
END