vòng lặp

[trieugiang]

các bác ơi cho em hơi cái này vói .mới hoc về pic viết thử chương trinh mà sao nó ko chạy mà chẳng bít sửa như thế nào .cho em hỏi về cái vòng lặp thuan,nghich sao nó ko chạy.chỉ xuất ra mỗi giá trị đầu nhập vào.
chương trình đây nè.ở đây em chỉ viết mỗi vòng thuận thui còn vòng nghịch em cũng viết tương tự

.processor p16f877a
include<P16f877a.inc>
STATUS	EQU	03H
PORTB	EQU	06H
PORTA	EQU	05H
TRISB	EQU	86H
TRISA	EQU	85H
COUNT_1 EQU       20H
COUNT_2 EQU       21H
ORG 0X000
      BSF          STATUS,5;CHON BANK 1
      MOVLW     0x00
      MOVWF     TRISA;PORTA lA NGO RA
      MOVLW     0XFF
       MOVWF    TRISB; PORTB LA NGO VAO
      BCF          STATUS,5;CHON BANK 0
      MOVLW     0X00
      MOVWF     PORTB
MAIN 
      BTFSS       PORTB,4
      GOTO       MAIN
      BTFSS      PORTB,5 
      GOTO        THUAN
      BTFSS       PORTB,6
      GOTO        THUAN
      GOTO        MAIN
THUAN  
       MOVLW      01H     
        MOVWF     PORTA
         CALL        DELAY
LOOP  RLF          PORTA,1
      CALL           DELAY
      BTFSS         PORTB,4
      GOTO          MAIN
      BTFSS         PORTB,6 
      GOTO         NGHICH
      BTFSS        PORTA,5
      GOTO        LOOP
      GOTO         THUAN
DELAY: 	CLRF  COUNT_1
D2      CLRF  COUNT_2
D1      GOTO   D1
        DECFSZ COUNT_1 
  	    GOTO  D2
      RETURN
END

các bác giải thích giúp em với nhé.với lại có tài liệu nào hay về tập lệnh asembly của pic cho em xin với nhé
thank