LIST P=16F877
#INCLUDE "P16F877.INC"
__Config _HS_OSC&_CP_OFF&_WDT_OFF&_LVP_OFF
	cblock	0x20
		x
  		a
		c
	endc
	org	0
START
	BSF		STATUS,RP0
	MOVLW	0x6
	MOVWF	ADCON1			;PORTA digitalis
	MOVLW	B'00000011'		
	MOVWF	TRISA			;2es 3as digitalis bemenet
	MOVLW	B'00000000'
	MOVWF	TRISD			;PORTD kimenet
	BCF		STATUS,RP0
	MOVLW	B'01100000'
	MOVWF	PORTD			;29es 30as labon levo led kivilagitasa
	CALL	DELAY1s
	CALL	DELAY1s
	MOVLW	B'01000000'
	MOVWF	PORTD			;29es lab elalszik 30as tovabra is vilagitt
	CALL	DELAY1s
	CALL	DELAY1s
	MOVLW	B'011110000'
	MOVWF	PORTD
	CALL	DELAY10s
	CALL	DELAY10s
	MOVLW	B'00000000'
	MOVWF	PORTD
	GOTO	START




DELAY1s
	MOVLW	D'159'
	MOVWF	a

DELAY
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	DECFSZ	a,f
	GOTO	DELAY
	RETURN

DELAY10s
	MOVLW	D'10'
	MOVWF	c
	DECFSZ 	c,f
	CALL	DELAY1s
	RETURN
	END