https://emuverse.ru/w/index.php?action=history&feed=atom&title=%D0%A0%D0%B0%D0%B4%D0%B8%D0%BE-86%D0%A0%D0%9A%2F%D0%A0%D0%B0%D0%B4%D0%B8%D0%BE_06-89%2F%D0%9A%D0%BE%D0%BD%D1%82%D1%80%D0%BE%D0%BB%D0%BB%D0%B5%D1%80_%D0%BF%D0%BE%D1%81%D0%BB%D0%B5%D0%B4%D0%BE%D0%B2%D0%B0%D1%82%D0%B5%D0%BB%D1%8C%D0%BD%D0%BE%D0%B3%D0%BE_%D0%B8%D0%BD%D1%82%D0%B5%D1%80%D1%84%D0%B5%D0%B9%D1%81%D0%B0%2F%D0%A2%D0%B0%D0%B1%D0%BB%D0%B8%D1%86%D0%B0_3 2026-05-04T01:38:40Z История изменений этой страницы в вики MediaWiki 1.40.0 https://emuverse.ru/w/index.php?title=%D0%A0%D0%B0%D0%B4%D0%B8%D0%BE-86%D0%A0%D0%9A/%D0%A0%D0%B0%D0%B4%D0%B8%D0%BE_06-89/%D0%9A%D0%BE%D0%BD%D1%82%D1%80%D0%BE%D0%BB%D0%BB%D0%B5%D1%80_%D0%BF%D0%BE%D1%81%D0%BB%D0%B5%D0%B4%D0%BE%D0%B2%D0%B0%D1%82%D0%B5%D0%BB%D1%8C%D0%BD%D0%BE%D0%B3%D0%BE_%D0%B8%D0%BD%D1%82%D0%B5%D1%80%D1%84%D0%B5%D0%B9%D1%81%D0%B0/%D0%A2%D0%B0%D0%B1%D0%BB%D0%B8%D1%86%D0%B0_3&diff=1160&oldid=prev 2008-11-28T12:47:51Z

<p>http://retro.h1.ru/RK86/RS232/RS232p.asm</p> <p><b>Новая страница</b></p><div>{{ДИ|Автор=А. ДОЛГИЙ| Источник=http://retro.h1.ru/RK86/RS232/RS232p.asm}}<br /> &lt;pre&gt;<br /> ;***** ПОДПРОГРАММЫ ОБСЛУЖИВАНИЯ КОНТРОЛЛЕРА *** <br /> ;***** ПОСЛЕДОВАТЕЛЬНОГО ИНТЕРФЕЙСА, ******* <br /> ; ***** ПОДКЛЮЧЕННОГО ЧЕРЕЗ КР580ИК55 ***<br /> ; *ASD* 18/06/88<br /> ;АДРЕСА ПОРТОВ ИК55 (D14)<br /> PA55: EQU 0А000Н <br /> РВ55: EQU 0A001H <br /> РС55: EQU 0A002H <br /> СW55: EQU 0A003H<br /> ;Адреса, ВЫВОДИМЫЕ В ПОРТ В:<br /> NIL: EQU 70H<br /> RES51: EQU 0F0H ;СБРОС ВВ51<br /> DAT51: EQU З0Н ;РЕГИСТР ДАННЫХ ВВ51<br /> CW51: EQU 31H ;РЕГИСТР КОМАНД ВВ51<br /> ;<br /> СТ0: EQU 50H ;СЧЕТЧИК 0 ВИ53<br /> СТ1: EQU 51H ;СЧЕТЧИК 1 ВИ53<br /> СТ2: EQU 52Н ;СЧЕТЧИК 2 ВИ53<br /> CW53: EQU 53H ;РЕГИСТР КОМАНД ВИ53<br /> ;НАЗНАЧЕНИЕ РАЗРЯДОВ ПОРТА С<br /> TXRD: EQU 1 ;ПЕРЕДАТЧИК ГОТОВ <br /> CTSN: EQU 2 ; ПЕРЕДАЧА НЕ РАЗРЕШЕНА <br /> DSRN: EQU 4 ;ДАННЫЕ НЕ ГОТОВЫ <br /> RXRD: EQU 20Н ;ПРИЕМНИК ГОТОВ<br /> ;***** УПРАВЛЯЮЩЕЕ СЛОВО ВИ53 *****<br /> ;<br /> BCD: EQU 1 ;ДВ.-ДЕСЯТИЧНЫЙ СЧЕТ<br /> MODE0: EQU 0 ;<br /> MОDЕ1: EQU 2<br /> MОDЕ2: EQU 4 ;ВЫБОР<br /> MODE3: EQU 6 ;РЕЖИМА<br /> MODE4: EQU 8 ;<br /> МОDЕ5: EQU 0АН ;<br /> ;<br /> ROF: EQU 0 ;ЧТЕНИЕ НА ЛЕТУ<br /> RLL: EQU 10H ;ЧТЕНИЕ/ЗАПИСЬ МЛ. БАЙТ <br /> RLH: EQU 20H ;ЧТЕНИЕ/ЗАПИСЬ СТ. БАЙТ&#039; <br /> RLW: EQU 30Н ;ЧТЕНИЕ/ЗАПИСЬ СЛОВА<br /> SCO: EQU 0 ;<br /> SC1: EQU 40H ;ВЫБОР СЧЕТЧИКА<br /> SC2: EQU 80H ;<br /> ;*** ИНСТРУКЦИЯ РЕЖИМА ВВ51 **<br /> Х1: EQU 1 ;<br /> Х16: EQU 2 ;МНОЖИТЕЛЬ СКОРОСТИ <br /> Х64: EQU 3 ;<br /> L5: EQU 0 ;<br /> L6: EQU 4 ;ДЛИНА ИНФОРМАЦИОННОГО <br /> L7: EQU 8 ;СЛОВА <br /> L8: EQU 0СН ;<br /> PEN: EQU 10H ;РАЗРЕШЕНИЕ КОНТРОЛЯ<br /> ЕР: EQU 20H ;КОНТРОЛЬ ЧЕТНОСТИ<br /> S1: EQU 40H ;<br /> S15: EQU 80H ;ДЛИНА СТОП-БИТА <br /> S2: EQU 0С0Н ;<br /> ;**+ ИНСТРУКЦИЯ КОМАНДЫ ВВ51 ++*<br /> ;<br /> TXEN: EQU 1 ;ПЕРЕДАТЧИК ВКЛЮЧЕН <br /> DTR: EQU 2 ;УСТРОЙСТВО ГОТОВО <br /> RXE: EQU 4 ;ПРИЕМНИК ВКЛЮЧЕН <br /> SBRK: EQU 8 ;ПРЕРЫВАНИЕ ПЕРЕДАЧИ <br /> ER: EQU 10Н ;СБРОС ОШИБОК ПРИЕМА<br /> RTS: EQU 20H ;ПЕРЕДАЧА РАЗРЕШЕНА<br /> IR: EQU 40H ;ПРОГР. СБРОС УСАПП <br /> EH: EQU 80H ;РАЗРЕШЕНИЕ ПОИСКА СИНХРОСИМВОЛА<br /> ;<br /> ;*** ПОДПРОГРАММА НАСТРОЙКИ КОНТРОЛЛЕРА****&#039;<br /> ;СКОРОСТЬ И РЕЖИМ УСАПП ПО УМОЛЧАНИЮ<br /> ;<br /> KDIV: EQU 23 ; 4800 Б0Д (F0=1,78 МГГЦ) <br /> MI: EQU X16+L8+S2<br /> INIT: LXI Н, KDIV<br /> MVI A, MI <br /> INIT1: PUSH PSW <br /> ;Настраиваем D14 (А - ввод/вывод.<br /> ; В - вывод, C[0:2]-ввод)<br /> MVI A, 0C1H<br /> STA CW55 <br /> ;НАСТРАИВАЕМ ТАЙМЕР<br /> MVI A, CW53<br /> STA PB55<br /> MVI A, SCO+RLW+MODE3<br /> STA PA55<br /> MVI А, СТО<br /> STA PB55<br /> MOV A, L<br /> STA PA55<br /> MOV А, Н<br /> STA PA55 <br /> ;УСТАНАВЛИВАЕМ УСАПП В ИСХ. СОСТОЯНИЕ<br /> MVI A, RES51<br /> STA PB55<br /> ;ЗАПИСЫВАЕМ ИНСТРУКЦИИ РЕЖИМА<br /> MVI A, CW51<br /> STA PB55<br /> POP PSW<br /> STA PA55<br /> ;ОСТАНАВЛИВАЕМ ФЛАГ Z, ЕСЛИ ЗАДАНА РАБОТА С ТЕЛЕТАЙПОМ<br /> ANI 0FCH ;#<br /> CPI 80H ;#<br /> ;ЗАПИСЫВАЕМ ИНСТРУКЦИЮ КОМАНДЫ<br /> MVI A, TXEN+DTR+RXE+RTS<br /> STA PA55 <br /> MVI A, NIL <br /> STA PB55 <br /> RNZ ;# <br /> ;ЕСЛИ ЗАДАНА РАБОТА С ТЕЛЕТАЙПОМ <br /> ;ТО 5 РАЗ ПЕРЕДАЕМ КОД УСТАНОВКИ <br /> ;ЛАТИНСКОГО РЕГИСТРА<br /> LXI B, 51fH ;# <br /> LAT: CALL ТХ ;#<br /> DCR В ;#<br /> JNZ LAT ;#<br /> ;И ЗАПИСЫВАЕМ ПРИЗНАК ЛАТ. РЕГИСТРА<br /> MVI A, 20H ;#<br /> STA REG ;#<br /> RET<br /> ;*** ПОДПРОГРАММА ПЕРЕДАЧИ **� <br /> ;**** БАЙТА ИЗ РЕГИСТРА С ****<br /> ТХ: PUSH PSW ;ЖДЕМ ГОТОВНОСТИ <br /> ТХ1: LDA PC55<br /> ANI TXRD+DSRN<br /> CPI TXRD<br /> JNZ TX1 ;ПЕРЕЯАЕМ БАЙТ<br /> MVI A, DAT51<br /> STA РB55<br /> MOV А, С<br /> STA PA55<br /> POP PSW<br /> RET<br /> ;<br /> ;*** ПОДПРОГРАММА ПРИЕМА БАЙТА В АККУМУЛЯТОР **�<br /> RX: MVI А, DАТ51<br /> STA PB55 <br /> ;ПРОВЕРЯЕМ ГОТОВНОСТЬ<br /> LDA РС55<br /> ANI RXRD <br /> ;ВОЗВРАТ С СЛАГОМ ПЕРЕНОСА, <br /> ;ЕСЛИ ПРИЕМНИК НЕ ГОТОВ<br /> STC RZ<br /> ;ЧИТАЕМ ПРИНЯТЫЙ БАЙТ <br /> LDA PA55 <br /> CMC RET<br /> ;ЯЧЕЙКА ОЗУ ДЛЯ ХРАНЕНИЯ ПРИЗНАКА <br /> ;РЕГИСТРА ТЕЛЕТАЙПА:<br /> REG: EQU 7653Н ;АДРЕС НУЖНО УКАЗАТЬ ТОТ ЖЕ, <br /> ;ЧТО В TTYOUT.TTYIN<br /> END<br /> <br /> &lt;/pre&gt;<br /> <br /> [[Категория:Радио-86РК/Публикации|413]]</div>

Panther