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

0 ... 33 34 35 36 37 38 39 ... 55

Ввод команды продолжения работы

Г IB:

Е:

setb REN INBYTE

cjne a,#40h,E jmp START

;Разрешение приема.

setb SCK setb MOSI setb MISO setb ON jmp $

DEL2 5MS: MET:

mov a,#20h mov b,#16h djnz b,$ djnz a,MET ret

Задержка 2508.1 мкс (2.5 мс) вместе с "call" и "ret" при Ркварца=7372800Гц.

.end

---

Программа 3

out &h3fc,0:Установка БТР.= -9вольт, RTSs-Эвольт. Контрольный сброс els

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

1 Считывание файла с диска

F$="inrs.hex"

open "b",#l,F$ C$ = space$ (0) L%=lof(1) gets #1,L%,C$ close #1

print"Haчaлo программирования" print "Программируется файл ";F$

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

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

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

out &h3fb,&h80

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

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

out &h3fb,3 -1 стоп,8 бит,нет паритета

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

---

out Sh3fc,01 Остановка DTRe-9вольт, RTS=-Эвольт. Сброс и программир. delay .3

byte%=bhOD•"CR»

gosub OUTBYTE delay .3

byte%»&h4C1"L"

gosub OUTBYTE byte%=bhOD"CR"

gosub OUTBYTE delay .1

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

call REC(C$)

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

out Sh3fc,l:Установка DTR=+9вoльт,RTS=-9вoльт. Запуск соединение с комп

out &h3fc,3Установка DTR=+9зoльт,RTS=+9soльт. Запуск и разъединение с

out bh3fс ,2 -.Установка DTR=-9вольт, RTS=+9sonbT .No connect

delay .3 goto E

Подпрограмма вывода байта

OUTBYTE:

wait Sh3fd,Sh40 Проверка готовности передатчика ( в машине ) out Sh3f8,byte% Вывод байта

wait bh3fd,Sh20 Проверка OK to send ( в машине )

return E-.

end

0 ... 33 34 35 36 37 38 39 ... 55