Pozdrav i hvala na utrosenom vremenu

Moderators: pedja089, stojke369, [eDo], trax
Code: Select all
pShEEc64; najprej preberem naslov shranjen v ee pica, kamor bom shranil podatke v c64 ee
movlw 0x85
movwf EproNas ; W vpišem v naslov v epromu
call Beri_EE ;berem iz EE podatke
movwf TIPKA ; iz EE PIC-a preberem eprom naslov, kamor shranjujem vrednosti
;*********************************************
movlw 0x86
movwf EproNas ; W vpišem v naslov v epromu
call Beri_EE ;berem iz EE podatke
movwf NiTipk ; iz EE PIC-a preberem eprom naslov, kamor shranjujem vrednosti
;******************
;naslova iz ee pic eproma
movf TIPKA,W
;movlw TIPKA
iorwf NiTipk,w
btfsc STATUS,Z ; sta oba 0
call pShEEura ;shrani datum na 0
comf TIPKA,w ; negera bite zgornjega dela naslova če so vsi 00011111 nastane 11100000
andlw b'00011111' ;nato pa 00000000
btfsc STATUS,Z
call pPisk10s ;piskanje 10 sekund(piše se na zadnjih 256 prostih mest spodnjega dela naslova
;****************************
; shranim temperature
MOVLW 0X49 ;NASLOV Te0Izm
movwf FSR
MOVLW .15
MOVWF I2C_STEVEC ; SHRANIM PETNAJST TEMPERATUR
ZankaEEp
call START_BIT
MOVLW B'10100010' ; UKAZ 24C64 EEPROMA ZA PISANJE VANJ
call I2C_TX ; pošlem ukaz za vpisovanje na 64
;**********************
MOVF TIPKA,W ; addres high
CALL I2C_TX
MOVF NiTipk,W ; address low
CALL I2C_TX
;*********************
movf INDF,W
CALL I2C_TX ;POŠLI NA EE c64
CALL STOP_BIT
movlw .16
call CakajMs
INCF NiTipk,f;TIPKA,F ; low
BTFSC STATUS,Z
INCF TIPKA,F;NiTipk,F ;EeNas1,F, high
incf FSR,F
DECFSZ I2C_STEVEC,F
GOTO ZankaEEp ; vpišem naslednji podatek
;Shranit si moram EeNas0 in EeNas1, da naslednjič pišem naprej, ne pa preko shranjenih vrednosti.
;------------------
;RAM2EE1 ne rabim, kadar vpisuješ eno vrednost.
movf TIPKA,W ;EeNas0,w HIGH
movwf EproPod
movlw 0x85 ;lokacija, kamor se bodo hranili podatki v PIC
movwf EproNas ; W vpišem v naslov v epromu PIC-a
call Pisi_EE ; vpišem v EE PICa
;******************
movf NiTipk,W ;EeNas1,w LOW
movwf EproPod
movlw 0x86 ;lokacija, kamor se bodo hranili podatki v PIC
movwf EproNas ; W vpišem v naslov v epromu PIC-a
call Pisi_EE
return