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'		; r
		MOVWF	PORTB
		CALL	DELAY
		MOVLW	B'11000000'		; r+g
		MOVWF	PORTB
		CALL	DELAY
		MOVLW	B'01000000'		; g
		MOVWF	PORTB
		CALL	DELAY
		MOVLW	B'01100000'		; g+b
		MOVWF	PORTB
		CALL	DELAY
		MOVLW	B'00100000'		; b
		MOVWF	PORTB
		CALL	DELAY
		MOVLW	B'10100000'		; r+b
		MOVWF	PORTB
		CALL	DELAY
		MOVLW	B'11100000'		; r+g+b
		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
		DECFSZ	T2,f
		GOTO	DEL1
		DECFSZ	T1,f
		GOTO	DEL
		RETURN
		END