include ;inicializace uC ADDR EQU 0X00 ;******************************************** START MOVLW ADDR CALL CTI_EE NOP ;XXX ;PO NAVRATU Z CTI_EE JE HODNOTA V W (HODNOTA 1-5) ADDWF PCL,F ;K PLC SE PRICTE HODNOTA ULOZENA V EE (1-5) NOP ;PODLE NI SE UDELA POZADOVANY SKOK NA EFEKTx GOTO EFEKT1 GOTO EFEKT2 GOTO EFEKT3 GOTO EFEKT4 GOTO EFEKT5 ;********************************************* EFEKT1 MOVLW .1 ;EFEKT1 PRIRAZENA 1, MOVWF EEDATA MOVLW ADDR MOVWF EEADR CALL PIS_EE ;HODNOTA 1 SE ZAPISE DO EE EFEKT_1 NOP ;PROGRAM PRO EFEKT1 NOP GOTO EFEKT_1 ;********************************************* EFEKT2 MOVLW .2 ;EFEKT1 PRIRAZENA 2, CALL PIS_EE ;HODNOTA 2 SE ZAPISE DO EE EFEKT_2 NOP ;PROGRAM PRO EFEKT1 NOP GOTO EFEKT_2 ;********************************************* EFEKT3 GOTO $ ;***** EFEKT4 GOTO $ ;***** EFEKT5 GOTO $ ;********************************************* PIS_EE BSF STATUS,RP0 BCF INTCON,GIE BSF EECON1,WREN MOVLW 55H MOVWF EECON2 MOVLW .170 MOVWF EECON2 BSF EECON1,WR NOP NOP BTFSC EECON1,WR ;CEKEJ NA DOKONCENI ZAPISU GOTO $-1 BCF STATUS,RP0 RETURN ;PODPROGRAM ZAPSANI BITU DO EE ;********************* CTI_EE BCF STATUS,RP0 ;PODPROGRAM CTENI BITU Z EE MOVLW ADDR MOVWF EEADR BSF STATUS,RP0 BSF EECON1,RD BCF STATUS,RP0 MOVF EEDATA,W RETURN ;********************* END