Code:
<html>
<head></head>
<body><!--StartFragment--><pre><code><font color="#008000"><i>'****************************************************************
'* Name : Reciver.BAS *
'* Author : Fredrick *
'* Notice : Copyright (c) 2008 *
'* : All Rights Reserved *
'* Date : 2008-02-13 *
'* Version : 2008-02-16 *
'* Notes : PIC16F872 @ 20 MHz *
'* * *
'* *
'****************************************************************
</i></font>ADCON1 = <font color="#808080">7 </font><font color="#008000"><i>' Alla digitala
</i></font><font color="#000080">DEFINE </font>OSC <font color="#808080">20
</font><font color="#000080">DEFINE </font>LCD_COMMANDUS <font color="#808080">3000 </font><font color="#008000"><i>'Set command delay time in us
</i></font><font color="#000080">DEFINE </font>LCD_DATAUS <font color="#808080">200 </font><font color="#008000"><i>'Set data delay time in us
</i></font><font color="#000080">DEFINE </font>DEBUG_BAUD <font color="#808080">2400
</font><font color="#000080">DEFINE </font>DEBUG_MODE <font color="#808080">0
</font><font color="#000080">DEFINE </font>DEBUG_REG PORTC
<font color="#000080">DEFINE </font>DEBUG_BIT <font color="#808080">7 </font><font color="#008000"><i>'PORTC.7 OLIMEX RS232Board
</i></font><font color="#000080">INCLUDE </font><font color="#FF0000">"modedefs.bas"
</font>ReciverPIN <font color="#000080">VAR </font>PORTC.<font color="#808080">0
</font>Check1 <font color="#000080">VAR BYTE
</font>Check2 <font color="#000080">VAR BYTE
</font>Counter <font color="#000080">VAR BYTE
</font>Errors <font color="#000080">VAR WORD
CLEAR
PAUSE </font><font color="#808080">500
</font><font color="#000080">LCDOUT </font><font color="#808080">$FE</font>,<font color="#808080">1
</font>Main:
<font color="#000080">SERIN </font>ReciverPIN,N2400,<font color="#808080">100</font>,NoSignal,[<font color="#808080">$55</font>,<font color="#808080">$55</font>,<font color="#808080">$55</font>,<font color="#808080">63519</font>],Counter,Check1,Check2
<font color="#000080">IF </font>Check1 = <font color="#808080">121 </font><font color="#000080">AND </font>Check2 = <font color="#808080">212 </font><font color="#000080">THEN
GOSUB </font>LCD
<font color="#000080">ELSE
GOSUB </font>NoSignal
<font color="#000080">ENDIF
GOTO </font>Main
LCD:
<font color="#000080">LCDOUT </font><font color="#808080">$FE</font>,<font color="#808080">$80</font>, #Counter, <font color="#FF0000">" "
</font><font color="#000080">DEBUG </font>#Counter, <font color="#808080">13</font>,<font color="#808080">10
</font>Check1 = <font color="#808080">0
</font>Check2 = <font color="#808080">0
</font><font color="#000080">GOTO </font>Main
NoSignal:
Errors = Errors + <font color="#808080">1
</font><font color="#000080">LCDOUT </font><font color="#808080">$FE</font>,<font color="#808080">$C0</font>, <font color="#FF0000">"ERROR:"</font>,#Errors,<font color="#FF0000">" "</font>,#Check1,<font color="#FF0000">" "</font>,#Check2
<font color="#000080">DEBUG </font>#Counter, <font color="#FF0000">"ERROR:"</font>,#Errors,<font color="#FF0000">" "</font>,#Check1,<font color="#FF0000">" "</font>,#Check2, <font color="#808080">13</font>,<font color="#808080">10
</font>Check1 = <font color="#808080">0
</font>Check2 = <font color="#808080">0
</font><font color="#000080">GOTO </font>Main
<font color="#000080">END
</font></code></pre><!--EndFragment--></body>
</html>
Bookmarks