LIST P=16F628A
 #INCLUDE "P16F628A.INC"
 __CONFIG _XT_OSC&_CP_OFF&_WDT_OFF&_LVP_OFF&_PWRTE_OFF&_BOREN_OFF&_MCLRE_OFF

	CBLOCK 0X20
	T1
	T2
	T3
	ENDC
	
	ORG 0
	
START
	BSF		STATUS,RP0
	MOVLW 	0X06
	MOVLW	B'00000000'
	MOVWF	TRISB
	BCF		STATUS,RP0
	
VILLOGO
	MOVLW	B'00000000'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW 	B'11111111'
	MOVWF	PORTB
	CALL	DELAY
	GOTO VILLOGO

DELAY
	MOVLW 	D'100'
	MOVWF	T1
DEL
	MOVLW	D'255'
	MOVWF	T2
DEL1
	MOVLW	D'50'
	MOVWF	T3
DEL2
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	DECFSZ		T1,F
	GOTO		DEL
	RETURN
	END