LIST P=16F88
 #INCLUDE "P16F88.INC"
    __CONFIG  _CONFIG1, _DEBUG_ON&_LVP_OFF&_BODEN_OFF&_WDT_OFF&_INTRC_IO&_CPD_OFF
    __CONFIG  _CONFIG2, _IESO_OFF&_FCMEN_OFF
	CBLOCK	0x20
	CIM
	ADAT

	ENDC
	
#INCLUDE "M_BANK.ASM"


	ORG	0


START
	BANK1
	MOVLW	B'00110000'
	MOVWF	OSCCON
	BANK0
	MOVLW	B'00000001'
	MOVWF	CIM




MAIN	
	MOVLW	B'11110000'
	MOVWF	ADAT
	GOTO	IRAS



IRAS
	BANK3
	BTFSC	EECON1,WR
	GOTO	$-1
	BANK2
	MOVFW	CIM
	MOVWF	EEADR
	MOVFW	ADAT
	MOVWF	EEDATA
	BANK3
	BCF		EECON1,EEPGD
	BSF		EECON1,WREN
	BCF		INTCON,GIE
	MOVLW	H'55'
	MOVWF	EECON2
	MOVLW	H'AA'
	MOVWF	EECON2
	BSF		EECON1,WR
	BSF		INTCON,GIE
	BCF		EECON1,WREN
	BANK0
	NOP
	END