![Confused :?](./images/smilies/icon_confused.gif)
******************************* TEST I/O ******************************
******PIC_TX = PortC4
******PIC_RX = PortD6
for i=1 to TEST
serOUT PIC_TX,T9600,["PROVA",13,10]
SERIN PIC_RX,N9600,400,SALTA,[">OK<"]
lcdout $FE, $C0, "PIC I/O...OK"
I=TENTATIVI+2
SALTA:
next i
IF I=TEST+1 THEN
lcdout $FE, $C0, "PIC I/O...PROBLEM"
ENDIF
'******************************* TEST RTC *****************************
******RTC_TX = PortD2
******RTC_RX = PortD3
for i=1 to TEST
SEROUT2 RTC_TX,84,["INTERROGAZIONE",13,10]
serIN RTC_RX,T9600,400,TESTAVVENUTO,["T"]
lcdout $FE, $94, "RTC...FUNZIONANTE"
I=TENTATIVI+2
TESTAVVENUTO:
next i
IF I=TEST+1 THEN
lcdout $FE, $94, "RTC...PROBLEM"
ENDIF
*********************************************************************************
You can kindly help me.I use FC 5.5 Pro
I thank everyone.
Greetings
Ferla