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
		NOP
		NOP
		NOP
 		NOP
		NOP
		NOP
		NOP
 		NOP
		NOP
		NOP
		NOP
 		NOP
		NOP
		NOP
		NOP
 		NOP
		NOP
		NOP
		NOP
 		NOP
		NOP
		NOP
		NOP
 		NOP
		NOP
		NOP
		NOP
 		NOP
		NOP
		NOP
		NOP
 		NOP
		NOP
		NOP
		NOP
		NOP
		NOP
		NOP
		NOP
		DECFSZ	T2,f 
		GOTO	DEL1 
		DECFSZ	T1,f 
		GOTO	DEL 
		RETURN 
		END