LIST P=16F874
#INCLUDE "P16F874.INC"
 __CONFIG _XT_OSC&_CP_OFF&_WDT_OFF
               CBLOCK 0x20
	T1
	T2
	ENDC

	ORG	0
START	
	BANKSEL	TRISD
        
	MOVLW	B'00000000'
	MOVWF	TRISD

	BANKSEL	PORTD
VISSZ	MOVLW	B'10000000'
	CALL	DELAY
	MOVWF	PORTD
	CALL	DELAY
	CLRF	PORTD
	GOTO	VISSZ
        

DELAY:   MOVLW    d'150'
         MOVWF    T1
DEL:     MOVLW    d'255'
         MOVWF    T2
DEL1:    NOP
         NOP
         NOP
         NOP
         NOP
         NOP
         NOP
         NOP
         DECFSZ   T2,f
         GOTO     DEL1
         DECFSZ   T1,f
         GOTO     DEL
         RETURN
         END