работа с PIC16F877

#include <P16F877.INC>
FLAG EQU 0x30;
      ORG 0;
      bsf STATUS,RP0
      clrf TRISB
      GOTO START
      bcf          STATUS,RP0
      ORG 4;
 
    MOVWF    W_TEMP;
    SWAPF    STATUS,W;
    clrf    STATUS;
    MOVWF    STATUS_TEMP;
    MOVF    PCLATH,w;
    MOVWF    PCLATH_TEMP;
 
      BTFSS     INTCON,INTF;
      GOTO     INTERRUPT;
      INCF     FLAG,1;
      MOVF     FLAG,W;
      SUBLW     .2;
      MOVLW     .1;
      BTFSC    STATUS,Z;
      MOVWF     FLAG;
      BCF          INTCON,INTF;
INTERRUPT:
    MOVf    PCLATH_TEMP,w;
    MOVWF    PCLATH;
    SWAPF    STATUS_TEMP,w;
    MOVWF    STATUS;
    SWAPF    W_TEMP,F;
    SWAPF    W_TEMP,w;
    RETFIE;
START:
        MOVLW     .1;
        MOVWF     FLAG;
BTFSS     FLAG,1;
goto        label;
goto         label2;
label:
        MOVLW     b'11000000';
        MOVWF     PORTD;
        RRF          PORTD,1;
        GOTO     label;
label2:
        RLF          PORTD,1;
        GOTO     label2;
END

list p=16F877
#INCLUDE <P16F877.INC>                                
COUNT       EQU 20h         ;   set a symbolical designation of cells of the memory 
COUNT1      EQU 21h
FLAG        EQU 22h         ;   located to addresses 20h , 21h, 22h
DCOUNT      EQU 23h
DCOUNT1         EQU 24h
 
 
        ORG 0           ;   Current address in ROM - 0
START:      BSF STATUS,RP0  ;   set page 1
        CLRF TRISB      ;   set PORTB on conclusion 
        CLRF TRISD      ;   set PORTD on conclusion
        BCF STATUS,RP0  ;   set page 0
        CLRF PORTD
        CLRF PORTB
 
RUN     MOVLW 0
        MOVWF COUNT ;   counter of diodes
        MOVWF COUNT1
        MOVWF FLAG  ;   for change of modes (on/off)
        BSF PORTB,7     ;   (send 1 to PORTB)
        BTFSC PORTB,7   ;   if bit 0 pass next string
        GOTO BDE        
 
ON:     BTFSC FLAG,F    ;   test for off mode
        GOTO OFF        
        RLF PORTD,F     ;   Shift to the left through carrying over
        INCF PORTD,F    ;   switch on the diode
        INCF COUNT,F    ;   counter of bits
        BTFSC COUNT,3
        COMF FLAG,F ;   change to OFF
        GOTO BUE
 
OFF:        RLF PORTD,F ;   
        BCF  STATUS,C   ;   Carrying over of zero outside of a bit grid of the controller   
        INCF COUNT1,F   
        BTFSC COUNT1,3
        GOTO RUN        
        GOTO BUE
 
BUE:        BSF PORTB,7 ;   Button Up Expectation   
        BTFSC PORTB,7
        GOTO BDE
        CALL DELAY_30
        CLRWDT
        GOTO BUE
 
BDE:        BSF PORTB,7 ;   Button Down Expectation
        BTFSS PORTB,7
        GOTO ON
        CALL DELAY_30
        CLRWDT
        GOTO BDE
 
DELAY_30:   MOVLW .255
        MOVWF DCOUNT    
        MOVWF DCOUNT1
 
LOOP:   DECFSZ  DCOUNT
        GOTO LOOP1  
 
LOOP1:  DECFSZ  DCOUNT1
        GOTO LOOP1  
        RETURN  
 
END

#include <P16F877.inc>
 
R1 equ 0x20
R2 equ 0x21
R3 equ 0x22
Reverse equ 0x024
org 0x00
goto main
org 0x04
 
main:
bsf STATUS,RP0 ; Идем в первый банк памяти
movlw .1 
movwf TRISB ; Включаем контакт RB0/INT на ввод
clrf TRISD ; Переводим PORTD  на вывод
bcf STATUS,RP0 ; Возврат в 0 банк памяти
 
clrf PORTD ; Очистка порта Д
clrf Reverse ; Очистка реверса
 
M3: ; Первичная инициализация прямой последовательности переключения
movlw b'00000011'
movwf R3
bcf STATUS,C ; Очистка лишней единицы
M4:  ; Цикл переключения
movf R3,W
movwf PORTD
rlf R3,f
rlf R3,f
call delay ; Вызов задержки
btfss Reverse,0 ; Проверка реверса
goto M8
goto M5
M8:
btfss PORTD,7 ;Проверка 7 бита порта Д
goto M4
goto M3
 
M3: ; Первичная инициализация обратной последовательности переключения
M5:
movlw b'11000000'
movwf R3
bcf STATUS,C
M6:
movf R3,W
movwf PORTD
rlf R3,f
rlf R3,f
call delay
btfss Reverse,0
goto M7
goto M3
M7:
btfss PORTD,7
goto M6
goto M5
 
;Задержка на 1 мс
T1MS: movlw .248
movwf R1
M1:
nop
decfsz R1,f
goto M1
return
 
;Задержка на 250 мс
delay: movlw .250
movwf R2
M2: 
call T1MS
decfsz R2,f
goto M2
return
 
end