LIST P=16F877
 #INCLUDE "P16F877.INC"
 __CONFIG _HS_OSC&_CP_OFF&_WDT_OFF&_LVP_OFF


	CBLOCK 0X20

	ENDC

#DEFINE	ZOLD		BSF	PORTB,4
#DEFINE	NEMZOLD		BCF	PORTB,4
#DEFINE PIROS		BSF	PORTB,5
#DEFINE NEMPIROS	BCF	PORTB,5

	ORG	0
	GOTO	MAIN_INIT

;**********************************************************************************

	ORG	4
		NOP
	END_INT

	RETFIE
;***********************************************************************************

MAIN_INIT
	PORT_INIT
		BSF		STATUS,RP0
		MOVLW	B'10000110'
		MOVWF	ADCON1
		MOVLW	B'00111111'
		MOVWF	TRISA
		MOVLW	B'11001111'
		MOVWF	TRISB
		MOVLW	B'11111111'
		MOVWF	TRISC
		MOVLW	B'11111111'
		MOVWF	TRISD
		MOVLW	B'00000111'
		MOVWF	TRISE
		BCF		STATUS,RP0
		CLRF	PORTA
		CLRF	PORTB
		CLRF	PORTC
		CLRF	PORTD
		CLRF	PORTE

MAIN
	NEMZOLD
	PIROS

GOMBPAGE0

	BTFSC	PORTA,5
		GOTO	GOMBPAGE0
	BCF		PCLATH,4
	BSF		PCLATH,3
	CALL	LEDES
	GOTO MAIN


	ORG	0X0800

LEDES
	NEMPIROS
	ZOLD
GOMBPAGE1
	BTFSS	PORTA,5
		GOTO	GOMBPAGE1
;	BCF	PCLATH,3
	RETURN

END