Раздел: Документация
0 ... 30 31 32 33 34 35 36 ... 55 print chr$(BYTE%) if byte%=&h4f then print "OK":goto E if byte%=&h45 then goto ERROR0 print "He работает":goto E ERRORO: print "Ошибка" goto E Конец п/п программирования. RED: П/п чтения. els BYTE%=&h72 Вывод буквы г gosub OUTBYTE print chr$ (BYTE%) PR0DR1: delay .5 a=inp(&h3f8) Холостой ввод locate 2,7 print "Чтение AT89S8252 и запись его содержимого на диск в filea.bas locate 3,7 print "------------------------------------------------------------- locate 7,20 print "Начинать чтение? OK? (ENTER)" while not instat:wend a$=inkey$ gosub INBYTE print chr$(BYTE%) C$=space$(&h2800) locate 7,15 print "Идет считывание < CALL RED(C$) locate 7,15 print "Идет запись на диск! open "Ь»,#1,"filea.bas" if lof(1)<>0 then kill "filea.bas" close open "b",#1,"filea.bas" put$ #1,C$ close C$=space$(0) locate 10,15 print "Все записалось gosub INBYTE print chr$(BYTE%) if BYTE%=&h4f then locate 8,10:print "OK! ".-goto E print "Ошибка"; goto E Конец п/п чтения. Подпрограммы INBYTE: out Sh3fb,SH47 wait &h3fe,&h20 out Sh3fb,&h07 wait SH3fd,l Установка линии TxD - разрешение передачи Ожидание старт-бита(установки DSR) Сброс линии TxD - запрет передачи Ожидание конца прихода байта BYTE%=inp(&h3f8)Ввод байта return OUTBYTE: wait Sh3fd,&h20 wait Sh3fe,sh20 out ih3f8,BYTE% wait Sh3fe,&h20,&h20 wait &h3fd,&h40 return WYKL: els locate 10,25 print " Система выключена" locate 15,22 print " Нажми ENTER - для выхода" print"" print"" while not instat wend a$=inkey$ if a$=chr$(13) then els: goto E goto WYKL E : out &h3fс,0:Установка DTR=-9вольт, RTS=-9вольт. Контрольный сброс delay .5 locate 15,20 print "Выньте микросхему и нажмите любую клавишу" while not instat:wend r$=inkey$ els end Ожидание готовности передатчика (в машине). Ожидание готовности линии (установки DSR). Вывод байта. Ожидание сброса готовности линии (сброса DSR). Transmitter holding registr is empty. Программа программатора AT89S8252 0 ... 30 31 32 33 34 35 36 ... 55
|
