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

0 ... 35 36 37 38 39 40 41 ... 55

delay .3

print "3fc=3: RST=0,PSEN=0 - Сиотри PSEN=0 ! ! !3агруэка"

print"" print" НИ print" ";

out Sh3fc,3 Установка RTS=9b,DTR=9b.

Прием информации иэ ADUC

10 bytes - Product identifier i „

for c=l to 10

gosub INBYTE print chr$(BYTE%);

next с

i

4 bytes - firmware version number i

for c=l to 4

gosub INBYTE print chr$(BYTE%);

next с

i

print " Hfl.N=";

2 bytes - LF and CR

for c=l to 2

gosub INBYTE

if (BYTE%=&h0d) or (BYTE%=&h0a) then goto 111 print hex$(BYTE%);

111: next с

---

2 bytes - hardware configuration

! ,

for c=l to 2

gosub INBYTE print hex$(BYTE%);

next с

16 bytes - reserved i

for c=l to 6

gosub INBYTE print hex$(BYTE%);

next с

i

print" K.c.="; i

1 byte - checksum

gosub INBYTE

print hex$(BYTE%);"h";

print " "

print "3fc=3 PSEN=0,RST print" BB

print""

i

Стирание памяти

i

print "Стирание памяти: "; gosub ER

call RECO(C$)Вывели пакет в ADUC

gosub INBYTEВвод ответа АСК или

if BYTE%=6 then print "";:goto PRO if BYTE%=7 then print "Ошибка"

Загрузка "

---

goto KON PRO:

print " ERASE Ok." print "===========

goto PROG

Установка скорости 115 кбод.

print "======================"

print "Скорость 115 кбод: ";

gosub FAST

call RECO(CS)Вывели пакет в ADUC

gosub INBYTEВвод ответа АСК или NAK

if BYTE%=6 then print "";:goto PR01

if BYTE%=7 then print "Ошибка"

goto KON PR01:

print " FAST Ok."

print "==============================="

input a

Установка скорости 115200 бод OUT &H3FB,&H8 0

OUT &H3F8,1 1-115200,12-9600. OUT &H3F9,0

Установка режима

OUT SH3FB,SH03 1 стоп-бит,8бит,нет паритета

out &h3f9,0 Запрет всех прерываний по порту 3f8h

0 ... 35 36 37 38 39 40 41 ... 55