$regfile = "m16def.dat"
$crystal = 8000000
'--- config serial -------------------------------------------------------------
Ucsra = &B00000000
Ucsrb = &B00011000
Ucsrc = &B10001110
$baud = 9600
'--- config port ---------------------------------------------------------------
'Ddra = 0 : Porta = 255
Config Portc = Output
'--- dim var as ----------------------------------------------------------------
Dim R(100) As Byte , N As Integer , Convert As Byte , New As Byte
Dim S(100) As String * 1
'--- config lcd ----------------------------------------------------------------
Config Lcdpin = Pin , E = Porta.1 , Rs = Porta.0 , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5
Config Lcd = 16 * 2
Cursor Off
Cls
Lcd "HELLO"
Wait 1
Cls
'--- SEND ----------------------------------------------------------------------
Print "HELLO BOY"
'--- RESIVE ----------------------------------------------------------------------
Do
If Ucsra.7 = 1 Then
N = 0
Do
If Ucsra.7 = 1 Then
N = N + 1
R(n) = Udr
New = R(n)
If New <> 10 Then
S(n) = String(1 , New)
Else
N = 0
End If
Ucsra.7 = 0
If R(n) = 13 Then
Cls
New = N - 1
For Convert = 1 To New
If Convert =< 16 Then
Locate 1 , Convert
Else
N = Convert - 16
Locate 2 , N
End If
Lcd S(convert)
Next
Exit Do : End If
End If
Loop
End If
Loop
'end program
دیدگاه