Раздел: Документация
0 ... 18 19 20 21 22 23 24 ... 55 els locate 2,7 print"" C$ = "ABCDEFGHI JKLMNOPQRSTUVWXYZabcdefghi j klmnopqrs ухугАБВГДЕЖЭИЙКЯШОПРСТУФХЦ " Ц-75-й символ. Cl $ =11 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx " print " C$=";C$ print "C1$=";C1$ рг1пЪ"Начало передачи" call REC(C$) a=inp(&h3f8) Холостой ввод a=inp(&h3f8) Холостой ввод CALL RED(C1$) print "-------------------------------------------------- print "Конец приема" print " C$=";C$ print "C1$=";C1$ locate 10,5 print "K=";K K=K+1 locate 15,15 print " Нажми ENTER - для продолжения и ESC - для выхода" print"" print" 11 while not instat wend a$=inkey$ if a$=chr$(13) then els: goto www els goto E Вывод байта WWW: wait &h3fd,&h20 wait &h3fe,&h20 out 6ch3f8,&h40 Вьшод байта 4Oh("@")-продолжения работы, wait &h3fe,&h20,&h20 wait &h3fd,&h40 goto START 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 &h3fc,0 Установка DTR=-9b., RTS=-9b.Сброс микроконтроллера, els end ***************************************** ;Программа на ассемблере компьютерного процессора Х86, /осуществляющая высокоскоростной синхронный вывод строки ;байт компьютером в однокристальный микроконтроллер по /интерфейсу RS232 и использующаяся как "inline" /подпрограмма в *.сот-формате /в программе на ТВ RdAt2051.EXE(BAS). /Название настоящего файла - prgrsis.asm, ;corn-файла - prgrsis.com. #. ******************************************** Макрос вывода байта. On SO OUTBYTE macro/Байт должен быть в Ы local MET1,MET2,MET3,MET4 mov dx,3fdh МЕТ1: in al, dx test al,20h jz MET1 mov dx,3feh MET2: in al,dx test al,20h jz MET2 mov al,bl mov dx,3f8h out dx,al mov dx,3feh MET3: in al,dx test al,20h jnz MET3 mov dx,3fdh MET4: in al,dx test al,40h jz MET4 endm Основная подпрограмма PROGRAM segment org lOOh assume CS: PROGRAM, ds : PROGRAM, es : PROGRAM, SS : PROGRAM START: push bp mov bp,sp push es push ds /Ожидание готовности буффера передатчика /компьютера принять новый байт ;(transmitter empty). ;(не 40h, a 20h !!!) /Ожидание разрешения /передачи от микроконтроллера /(установки линии DSR). /Вывод байта в буффер передатчика /и инициализация аппаратного /вывода байта через порт RS232. /Ожидание запрета /передачи от микроконтроллера ;(сброса линии DSR). /Ожидание окончания передачи байта ;(установки бита "Transmitter holding /register empty. OK to send"), (не 20h, a 40h . . !) /т.е. опустошения сдвигового регистра передатчика. 0 ... 18 19 20 21 22 23 24 ... 55
|
