Counting led blinks..

[tacbanon]

Hi, I don't have data sheet. I tried to search on www.lcsoft.net but there was none. But I was able to test this module successfully on a separate program using the following code.

asm   
     __CONFIG    _CONFIG1L, _PLLDIV_5_1L & _CPUDIV_OSC1_PLL2_1L & _USBDIV_2_1L 
     __CONFIG    _CONFIG2L, _PWRT_ON_2L & _BOR_ON_2L  & _BORV_2_2L  & _VREGEN_ON_2L   
    __CONFIG    _CONFIG2H, _WDT_OFF_2H 
    __CONFIG    _CONFIG3H, _MCLRE_ON_3H & _LPT1OSC_OFF_3H & _PBADEN_OFF_3H & _CCP2MX_ON_3H 
    __CONFIG    _CONFIG4L, _STVREN_ON_4L & _LVP_OFF_4L & _ICPRT_OFF_4L  & _XINST_OFF_4L & _DEBUG_OFF_4L 
endasm
DEFINE    OSC 48

' Alias PIC pins and registers for SD/MMC card
SD_WE        Var    PORTA.4    ' SD card write protect
SD_WE_TRIS    Var    TRISA.4    ' SD card write protect direction
SDI        Var    PORTB.0    ' SPI data in
SDI_TRIS    Var    TRISB.0    ' SPI data in direction
SCL        Var    PORTB.1    ' SPI clock
SCL_TRIS    Var    TRISB.1    ' SPI clock direction
SD_CS        Var    PORTB.3    ' SD card chip select
SD_CS_TRIS    Var    TRISB.3    ' SD card chip select direction
SD_CD        Var    PORTB.4    ' SD card detect
SD_CD_TRIS    Var    TRISB.4    ' SD card detect direction

SDO        Var    PORTC.7    ' SPI data out
SDO_TRIS    Var    TRISC.7    ' SPI data out direction

    Include "SDFS.PBP"
    SDC_UseHardSPI = TRUE    ' Use hardware SSP port for SPI.

    ADCON1 = 15        ' All I/O pins digital    Pause 100

    ' FSInit initializes the card and reads all the preliminary information from it
    Gosub FSInit
    Serout2 PORTC.6, 84, ["Init: ", Dec FAT_error, " ", Dec SDC_status, " ", Dec SDC_response, $d, $a]
    If (FAT_error != 0) Then Stop

    ' Display card directory
    Gosub FINDfirst        ' Find first file on card
    While (FAT_error = 0)
        Serout2 PORTC.6, 84, [Str FAT_FileName\11, $d, $a]
        Gosub FINDnext    ' Find next file on card
    Wend

' This section defines a specific short (8.3) filename
'  Note that spaces are use in empty elements and must be upper case for Windows
    FAT_FileName[0] = "T"
    FAT_FileName[1] = "E"
    FAT_FileName[2] = "S"
    FAT_FileName[3] = "T"
    FAT_FileName[4] = "1"
    FAT_FileName[5] = " "
    FAT_FileName[6] = " "
    FAT_FileName[7] = " "
    FAT_FileName[8] = "T"
    FAT_FileName[9] = "X"
    FAT_FileName[10] = "T"

' Set file time to 8:30:10 and date to 1/1/2008
    FAT_seconds = 5
    FAT_minutes = 30
    FAT_hours = 8
    FAT_day = 1
    FAT_month = 1
    FAT_year = 28

' Open a file for write
    FAT_mode = "w"        ' Write mode
    Gosub FSfopen        ' Open file pointed to by Byte array FAT_FileName
    Serout2 PORTC.6, 84, ["Open for write: ", Dec FAT_error, $d, $a]
    If (FAT_error != 0) Then Stop

' Write to file
    FAT_src[0] = "P"
    FAT_src[1] = "r"
    FAT_src[2] = "0"
    FAT_src[3] = "t"
    FAT_src[4] = "o"
    FAT_src[5] = "t"
    FAT_src[6] = "y"
    FAT_src[7] = "p"
    FAT_src[8] = "e"
    FAT_count = 9
    Gosub FSfwrite
    Serout2 PORTC.6, 84, [ "Write ", Dec FAT_error, $d, $a]
    If (FAT_error != 0) Then Stop

' Close file
    Gosub FSfclose
    Serout2 PORTC.6, 84, [ "Close ", Dec FAT_error, $d, $a]
    If (FAT_error != 0) Then Stop

' Open a file for read
    FAT_mode = "r"        ' Read mode
    Gosub FSfopen        ' Open file pointed to by Byte array FAT_FileName
    Serout2 PORTC.6, 84, ["Open: ", Dec FAT_error, $d, $a]
    If (FAT_error != 0) Then Stop

' Read and display the whole file
    FAT_count = 1        ' Read 1 byte to buffer at a time
    Gosub FSfread
    While (FAT_error = 0)
        Serout2 PORTC.6, 84, [FAT_dest[0]]
        FAT_count = 1    ' Read 1 byte to buffer at a time
        Gosub FSfread
    Wend
    Serout2 PORTC.6, 84, [ "Read: ", Dec FAT_error, $d, $a]
    End

regards,
tacbanon

[tacbanon]

Hi, I'm trying to test the RTC module on pic16F877A, according to the pins assignment SDA is on RC4 and SCL on RC3.

'RTC pins on 4550
SDA    Var    PORTB.0
SCL    Var    PORTB.1

'The above code works

'RTC pins on 877a
SDA    Var    PORTC.4
SCL    Var    PORTC.3

But this does not
What do you think I'm missing?
this is the code I'm using

DEFINE  OSC 20CLEAR


;----[LCD definitions]------------------------------------------------------
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
'RTC pins on 877a
SDA	Var	PORTC.4
SCL	Var	PORTC.3


' Allocate variables
RTCYear	Var	Byte
RTCMonth Var Byte
RTCDate	Var	Byte
RTCDay	Var	Byte
RTCHour	Var	Byte
RTCMin	Var	Byte
RTCSec	Var	Byte
RTCCtrl Var	Byte


TRISC= %11111111
;DB0 var byte[8]
CMCON = %00000111                   ' Comparators = off


' Initialize LCD
LCDOUT $FE,1:FLAGS=0:PAUSE 250:LCDOUT $FE,1:PAUSE 250 


' Set initial time 
	RTCYear = $10
	RTCMonth = $03
	RTCDate = $23
	RTCDay = $02
	RTCHour = $19
	RTCMin = $35
	RTCSec = 0
	RTCCtrl = 0
	
'Gosub set		' Set the time


Goto mainloop		' Skip over subroutines


' Subroutine to write time to RTC
set:
	I2CWrite SDA,SCL,$D0,$00,[RTCSec,RTCMin,RTCHour,RTCDay,RTCDate,RTCMonth,RTCYear,RTCCtrl]
	Return


' Subroutine to read time from RTC
gettime:
	I2CRead SDA,SCL,$D0,$00,[RTCSec,RTCMin,RTCHour,RTCDay,RTCDate,RTCMonth,RTCYear,RTCCtrl]
	Return


mainloop:
	Gosub gettime		' Read the time from the RTC


    Lcdout $fe, 128,"Date:",  hex2 RTCDate, "/",hex2 RTCMonth, "/" , hex2 RTCYear
	Lcdout $fe, $c0, "Time:", hex2 RTCHour, ":", hex2 RTCMin, ":", hex2 RTCSec


	Pause 500

	Goto mainloop

regards,
tacbanon

[mackrackit]

My guess is to try it on pins that are not Schmitt triggered.

[tacbanon]

Hi mackrackit, I was able to run the RTC on PortB.0(SCL) and PortB.1(SDA). I'm still confused. I tried PortA ports that has TTL but did not work. and I have read other thread that they were able to run their program using Pic16F877A to read RTC module on PORTC.1 and PORTC.0 (Post# 1 http://www.picbasic.co.uk/forum/showthread.php?t=12671) can you help me point out how it works? I'm amazed that my lcd is also using PortB.0 and PortB.1 at the same time with the RTC required pins. BTW now I'm on Pic16F877A, does this mean that my sdcard module will not work on this chip?

thanks for the patients,
tacbanon

[tacbanon]

oops sorry for the typos(patients) what I meant is patience

[mackrackit]

Well, I am not sure why your code is not working on PORTC.3 and PORTC.4. I just tried it here and it is running. The code I used is below.

Port A. Did you turn the analog off? ADC

You have to use an 18Fxx with SDFS as LONG variables are needed.

' 16F877A RTC
' 10/30/2011
DEFINE OSC 4
#CONFIG
    __config _HS_OSC & _WDT_ON & _LVP_OFF & _CP_OFF
#ENDCONFIG


LED     VAR PORTB.5
TX      VAR PORTD.1  ' DATA SEND PIN
BAUD    CON 18030	' 18030 = 600 BAUD


'RTC pins on 877a
SDA	Var	PORTC.4
SCL	Var	PORTC.3


' Allocate variables
RTCYear	Var	Byte
RTCMonth Var Byte
RTCDate	Var	Byte
RTCDay	Var	Byte
RTCHour	Var	Byte
RTCMin	Var	Byte
RTCSec	Var	Byte
RTCCtrl Var	Byte


TRISC= %11111111
CMCON = %00000111                   


' Set initial time 
	RTCYear = $10
	RTCMonth = $03
	RTCDate = $23
	RTCDay = $02
	RTCHour = $19
	RTCMin = $35
	RTCSec = 0
	RTCCtrl = 0
	
'Gosub set		' Set the time


Goto mainloop		' Skip over subroutines


' Subroutine to write time to RTC
set:
	I2CWrite SDA,SCL,$D0,$00,[RTCSec,RTCMin,RTCHour,RTCDay,RTCDate,RTCMonth,RTCYear,RTCCtrl]
	Return


' Subroutine to read time from RTC
gettime:
	I2CRead SDA,SCL,$D0,$00,[RTCSec,RTCMin,RTCHour,RTCDay,RTCDate,RTCMonth,RTCYear,RTCCtrl]
	Return


mainloop:
	Gosub gettime		' Read the time from the RTC
    TOGGLE LED
    SEROUT2 TX, BAUD,["Date:",  hex2 RTCDate, "/",hex2 RTCMonth, "/" , hex2 RTCYear,13]
    SEROUT2 TX, BAUD,["Time:", hex2 RTCHour, ":", hex2 RTCMin, ":", hex2 RTCSec,13]


'    Lcdout $fe, 128,"Date:",  hex2 RTCDate, "/",hex2 RTCMonth, "/" , hex2 RTCYear
'	Lcdout $fe, $c0, "Time:", hex2 RTCHour, ":", hex2 RTCMin, ":", hex2 RTCSec


	Pause 500
	GOTO mainloop

[tacbanon]

okay I think I know whats the problem, I found out that one my file I'm working has this code ADCON1 = %00001111 ' A/D converter off...which is different from the file I post. So this means I have to work on 18F.

thanks again,
tacbanon