;------------------------------------------------------------------------------
; ÓRA MODUL olvasás
;




Clock_Read	

		call Kesl100
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,SEN	; start bit
		bcf	STATUS,RP0	; bank0 kiválasztás
		call Kesl100
		call	Wait
		movlw	Slave		; W= slave + R/W (=0)
		movwf	SSPBUF
		call	Wait
		movlw	0x00		; SEC regiszter címe
		movwf	SSPBUF
		call	Wait

;------------------------------------------------------------------------------
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,RSEN	; ismételt start bit !!!
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		movlw	Slave
		addlw	1		; W= slave + R/W (=1), olvasás !
		movwf	SSPBUF
		call	Wait


;------------------------------------------------------------------------------
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,RCEN	; vétel engedélyezés
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		movf	SSPBUF,0
		movwf	Sec		; vett adat másolása SEC regiszterbe
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,ACKEN	; acknowledge bit generálás
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,RCEN	; vétel ismételt engedélyezése
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		movf	SSPBUF,0
		movwf	Min		; vett adat másolása MIN regiszterbe
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,ACKEN	; acknowledge bit generálás
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,RCEN	; vétel ismételt engedélyezése
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		movf	SSPBUF,0
		movwf	Hour		; vett adat másolása HOUR regiszterbe
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,ACKEN	; acknowledge bit generálás
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,RCEN	; vétel ismételt engedélyezése
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		movf	SSPBUF,0
		movwf	Day_of_week	; vett adat másolása DAY OF WEEK regiszterbe
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,ACKEN	; acknowledge bit generálás
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,RCEN	; vétel ismételt engedélyezése
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		movf	SSPBUF,0
		movwf	Day		; vett adat másolása DAY regiszterbe
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,ACKEN	; acknowledge bit generálás
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,RCEN	; vétel ismételt engedélyezése
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		movf	SSPBUF,0
		movwf	Month		; vett adat másolása MONTH regiszterbe
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,ACKEN	; acknowledge bit generálás
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,RCEN	; vétel ismételt engedélyezése
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
		movf	SSPBUF,0
		movwf	Year		; vett adat másolása YEAR regiszterbe
		bsf	STATUS,RP0	; bank1 kiválasztás
		bsf	SSPCON2,PEN	; stop bit
		bcf	STATUS,RP0	; bank0 kiválasztás
		call	Wait
;------------------------------------------------------------------------------