LIST p=16f877A
#include <p16f877.inc>
;------------------------------------
PDel0 EQU 0X22
PDel1 EQU 0X23
PDel2 EQU 0X24
org 0
goto empieza
org 4
goto programin
org 6
;------------------------------------
;------------------------------------
empieza
BSF STATUS,5
movlw b'00000000'
movwf TRISB
programin
BCF STATUS,5
CALL retardo
inCfsz PORTB
GOTO programin
programine
call retardo
decfsz PORTB
GOTO programine
movlw b'10101010'
MOVWF PORTB
CALL retardo
movlw b'01010101'
MOVWF PORTB
CALL retardo
movlw b'10101010'
MOVWF PORTB
CALL retardo
movlw b'01010101'
MOVWF PORTB
CALL retardo
movlw b'10101010'
MOVWF PORTB
CALL retardo
movlw b'01010101'
MOVWF PORTB
CALL retardo
CLRF PORTB
GOTO programin
;---------------------------------
retardo
movlw .125
movwf PDel0
retardon
incfsz PDel0
GOTO retardon
clrf PDel0
return
end