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

0 ... 29 30 31 32 33 34 35 ... 55

Программа 2

F$="file.tsk"

sub REC inline $inline "prgrsis.com" end sub

sub RED inline $inline "p86rd.com" end sub

Инициализация последовательного порта

1 Установка скорости:

• 96- 1200,48- 2400,24- 4800,12 - 9600 6-19200, 3-38400, 2-57600, 1-115200

out &h3fb,&h8 0

out &Mf8,l -Коэффициент скорости out &h3f9,0 -Старший байт делителя

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

out &h3fb,7 2 стопа,8 бит,нет паритета

out Sh3f9,0 Запрет всех прерываний по СОМ-порту

out &h3fc,2 Сброс микроконтроллера AT89C2051. delay .1

out &h3fc,3 Запуск микроконтроллера AT89C2051. delay .1

---

о о

if (inp(&h3fe) and &hlO)=&hlO then goto REGIM goto WYKL

REGIM:

Определение режима работы программатора

els

goto PROG locate 4,15

print "Введите код режима работы программатора:" locate 10,10

print " 1 - программирование в AT89S8252 файла file.tsk locate 12,10

print " 2 - чтение АТ89С8252 и запись в файл filea.bas" locate 18,10

input 11";А$

if A$="l" then goto PROG if A$ = II2" then goto RED

els PROG:

П/п программирования AT89S8252

els

•delay .2

BYTE%=6h77 1 Вывод буквы w gosub OUTBYTE print chr$(BYTE%)

PRODR0: locate 4,22

print "Программирование AT89S8252"; locate 5,22

print "---------------------------"

locate 7,12

---

print "Считывание файла file.tsk для AT89S8252 с диска. ***************************************

open "b",#l,F$ L=lof(1) IA=L

C$=space$(0) get$ #1,IA,C$ close #1

locate 12,15

print "Начинать программировать? OK? (ENTER) 11 locate 13,15

print 11 -...........-----------------...........---11

while not instat:wend

r$=inkey$

els

locate 7,15

print "Программирование в AT89S8252 файла ";F$ locate 10,15

print "Ждите... "

Программирование.

Передача длины файла и файла в ассемблер

call REC(C$) locate 10,25

print "Конец программирования"

delay .1

a=inp(&h3f8)

delay .2

els

gosub INBYTE locate 12,25

0 ... 29 30 31 32 33 34 35 ... 55