LIST P=16F84A
 #INCLUDE "P16F84A.INC"
 __CONFIG _XT_OSC&_CP_OFF&_WDT_OFF
	CBLOCK	0x0C
	T1
	T2
	ENDC

	ORG	0
START	BSF	STATUS,RP0	;BANK1
	MOVLW	B'00011111'
	MOVWF	TRISA
	MOVLW	B'00000000'
	MOVWF	TRISB
	BCF	STATUS,RP0	;BANK0
VISSZA:	MOVLW	B'10000000'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'01000000'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00100000'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00010000'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00001000'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00000100'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00000010'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00000001'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00000000'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00000001'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00000010'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00000100'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00001000'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00010000'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00100000'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'01000000'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'10000000'
	MOVWF	PORTB
	CALL	DELAY
	MOVLW	B'00000000'
	MOVWF	PORTB
	CALL	DELAY
	GOTO	VISSZA

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