trisa EQU 85h
	trisb EQU 86h
	timer11 EQU 20h
	timer22 EQU 21h
	time EQU 40h
	TMR0 EQU 01h
	INTCON EQU 0Bh
	OPTION_REG EQU 81h
	hulp1 EQU 41h
	hulp2 EQU 42h
	hulp3 EQU 43h
	hulp4 EQU 44h
	hulp5 EQU 45h
	porta EQU 05h
	portb EQU 06h
	ORG 00h
begin	CLRF INTCON
	BSF 03,5
	MOVLW b'11111111'
	MOVWF trisa
	MOVLW b'00001111'
	MOVWF trisb
	MOVLW b'11010101'
	MOVWF OPTION_REG
	BCF 03,5
	GOTO main
setout	BSF 03,5
	MOVLW b'11101111'
	MOVWF trisa
	BCF 03,5
	RETURN
setin	BSF 03,5
	MOVLW b'11111111'
	MOVWF trisa
	BCF 03,5
	RETURN
main	CALL setout
	BCF porta,4
	MOVLW 014h
	MOVWF timer22
labelb	MOVLW 0FFh
	MOVWF timer11
labela	DECFSZ timer11,1
	GOTO labela
	DECFSZ timer22,1
	GOTO labelb
	CALL setin
	CLRF TMR0
	BCF INTCON,2
msure	BTFSS porta,4
	GOTO msure
	MOVF TMR0,W
	MOVWF time
	GOTO pre1
pre1	MOVLW 03Fh
	MOVWF hulp1
timer1	DECFSZ hulp1,1
	GOTO aa
	GOTO pre2	
aa	DECFSZ time,1
	GOTO timer1
	GOTO jaja
pre2	MOVLW 03Fh
	MOVWF hulp2
timer2	DECFSZ hulp2,1
	GOTO ab
	GOTO pre3	
ab	DECFSZ time,1
	GOTO timer2
	GOTO jaja
pre3	MOVLW 03Fh
	MOVWF hulp3
timer3	DECFSZ hulp3,1
	GOTO ac
	GOTO pre4	
ac	DECFSZ time,1
	GOTO timer3
	GOTO jaja
pre4	MOVLW 03Fh
	MOVWF hulp4
timer4	DECFSZ hulp4,1
	GOTO ad
	GOTO pre5	
ad	DECFSZ time,1
	GOTO timer4
	GOTO jaja
pre5	MOVLW 03Fh
	MOVWF hulp5
timer5	DECFSZ hulp5,1
	GOTO ae
	GOTO jaja	
ae	DECFSZ time,1
	GOTO timer5
	GOTO jaja
jaja	BTFSC hulp1,7
	GOTO rgb1
	BTFSC hulp2,7
	GOTO rgb2	
	BTFSC hulp3,7
	GOTO rgb3	
	BTFSC hulp4,7
	GOTO rgb4 
	GOTO rgb5
rgb1	CLRF portb
	MOVLW b'10000000'
	MOVWF portb
	GOTO begin
rgb2	CLRF portb
	MOVLW b'01000000'
	MOVWF portb
	GOTO begin
rgb3	CLRF portb
	MOVLW b'00100000'
	MOVWF portb
	GOTO begin
rgb4	CLRF portb
	MOVLW b'11000000'
	MOVWF portb
	GOTO begin
rgb5	CLRF portb
	MOVLW b'11100000'
	MOVWF portb
	GOTO begin
	END