PIC Vietnam - Lập trình led theo porta và porte

Mình chỉ thực hiện một bài quét led đơn giản là cho từng led sáng theo porta và porte, nhưng sao mình đã chỉnh bằng nhiều phương pháp mà cũng không được, mong các cao thủ xem dùm mình.
đây là code mình viết để test port (chương trình hơi cù lần, mong các bác đừng chê cười)

#include <p16f877a.inc>
__config _hs_osc&_wdt_off&_lvp_off
cblock 0x20
count1
counta
countb
endc
org 0x00
goto main
org 0x05
main
bcf status,rp1;
bsf status,rp0;
clrf trisa;
bcf status,rp0;
loop
clrf porta;
call delay
movlw 0xff;
movwf porta;
call delay
bcf porta,0;
call delay
bsf porta,0;
bcf porta,1;
call delay
bsf porta,1;
bcf porta,2;
call delay
bsf porta,2;
bcf porta,3;
call delay
bsf porta,3;
bcf porta,4;
call delay
bsf porta,4;
bcf porta,5;
call delay
movlw 0xff
movwf porta;
call delay
goto loop
delay
movlw d'255';
movwf count1;
d1
movlw d'199';
movwf counta;
movlw d'1';
movwf countb;
delay0ms
decfsz counta,f
goto $+2;
decfsz countb,f;
goto delay0ms;
decfsz count1,f;
goto d1;
return;
end;