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

0 ... 37 38 39 40 41 42 43 ... 55

П/п формирования строки ERASE

ER:

Стартовая строка.

START$=mki$(&h0e07)

Строка команды ERASE + 1 байт - количество байт

ERASE=43h - стирание памяти программ, K.c.=bch ERASE=41h - стирание памяти программ и данных, к.с.=Ьеп

CMDERASE$=mki$(&h4101)

Строка контрольной суммы beh

KSER$=LEFT$((mki$(uhbe)),1)

Полная строка С$

C$=START$+CMDERASE$+KSER$ C$=mki$(&h0e07)+mki$(&h4101)+LEFT$((mki$(uhbe)),1)

return

П/п установки скорости 115 кбод.

FAST :

---

Полная строка С$

C$=mki$(&h0e07)+mki$(&h4203)+mki$(&h2d81)+left$((mki$(&hOd)),

return

П/гтрограмма ввода байта

INBYTE:

WAIT &H3FD,1 Ожидание факта прихода байта BYTE%=INP(&H3F8) Ввод очередного байта

return

KON:

Сброс микроконтроллера

out &h3fс,0Установка DTR=-9в,RTS=-9в.Полный сброс.

print " 11

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

END

for j=l to 5

•print " ";j;"h ";hex$(asc<MTD$(C$,j,1)));"h"; •print hex?(asc(MID$(C$,j,l))) ; " "; 1 next j

for j=l to 24

•print hex?(asc(MID$(C$,j,l)));" "; nex t j

---

prgrsds.asm

OUTBYTE macro ; Байт в Ы local MET1,MET3

mov dx,3fdh MET1: in al,dx

test al,20h ; Проверка вх. буфера в машине(transmitter empty)

jz MET1

mov al,Ы mov dx,3f8h

out dx,al ; Вывод байта

mov dx,3fdh MET3: in al,dx

test al,40h ; Transm. holding reg. empty. OK to send, jz MET3

endm

PROGRAM segment org lOOh

assume cs:PROGRAM,ds:PROGRAM,es:PROGRAM,ss:PROGRAM START: push bp

mov bp,sp

push es.

push ds

lesdi,[bp+6]

movdx,ds:[0]

movds,dx

movsi, es: [di+2]

movcx,es: [di]

andcx,7fffh ; Длина в cx

Передача файла по послед, порту в ВЕ51

mov Ы,с1 OUTBYTE

0 ... 37 38 39 40 41 42 43 ... 55