Раздел: Документация

0 ... 21 22 23 24 25 26 27 ... 55

loutbytec.cla i

(Программа передачи и приема строки из 75 символов по RS232

PROGRAM

< Определение переменных

С	byte
А	byte
В	byte
S	string(75)
ВТ	byte
м	byte,dim(75)	,over(S)
S1	string(75)
Ml	byte,dim(75)	,over(SI)
1	ushort
j	ushort
k	ushort
YOOh	byte
YOlh	byte
Y03h	byte
Y04h	byte
Y07h	byte
Y12	byte
Y47h	byte
Y80h	byte
YOfh	byte

CODE

Очистка экрана

---

blank k=l

Y00h=0 0h;Y01h=01h;Y03h=03h;Y04h=04h;Y07h=07h;Y0fh=0fh;Y12 = 12;Y47h=47-h;Y80h=80h do INITинициализация RS232

goto OK in(3feh,B)

if band(10h,B)=10h then goto OK.

show(8,28,Система выключена) goto WYKL

OK

i=l

setcursor(4,1) INBdo INBYTE

! type(chr(Ml[i] ) ) goto INB

setcursor(20,10) type(k)

k=k+l

S= 1 ABCDEFGHI JKLMN0PQRSTUVWXYZabcdifjhigklпmopqrstuvwxyzAБBГДEЖЗИKЛMH0ПPCTУФXЦЧ1 ! Ч-7 5-й символ show(1,1, 1 Начало передачи из PC)

---

i = l

M[l] =41h OUBdo OUTBYTE

!type(chr(M[l] ) )

goto OUB

i = l C=M[1] M[l] =75

do OUTBYTE [Передача мл. байта длины (7 5) M[l] =0

do OUTBYTE [Передача ст. байта длины (0)

show(2,1,1 Длина передана1) М[1] =С

setcursor (3,1) loop i=l to 75 do OUTBYTE

!type(chr(M[i] ) )

show(4,l,S)

show 18 ,1,Конец передачи иэ £C) show(9,1, 1

in(3f8h,B)[Холостой ввод - делать ОБЯЗАТЕЛЬНО .! ! (Для сброса бита DR-data ready).

in(3f8h,B)[Холостой ввод - делать ОБЯЗАТЕЛЬНО ! ! . (Для сброса бита DR-data ready).

show(10,1,1 Начало передачи из микроконтроллера)

setcursor(12,1) loop i=l to 7 5

0 ... 21 22 23 24 25 26 27 ... 55