( -*- forth -*- ) host : (ee@), INDF movf, bank1, EEADR movwf, EECON1 RD bsf, EEDATA movf, bank0, INDF movwf, ; ( this leaves ints disabled, so it's possible to do some state restoration before re-enabling ) : (ee!), bank1, EEADR, !, EEDATA, !, EECON1 WREN bsf, cli, 0x55 movlw, EECON2 movwf, 0xaa movlw, EECON2 movwf, EECON1 WR bsf, bank0, ;