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_4 2026-05-25T03:51:24Z История изменений этой страницы в вики 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_4&diff=1161&oldid=prev 2008-11-28T12:49:02Z

<p>http://retro.h1.ru/RK86/RS232/RS232s.asm</p> <p><b>Новая страница</b></p><div>{{ДИ|Автор=А. ДОЛГИЙ| Источник=http://retro.h1.ru/RK86/RS232/RS232s.asm}}<br /> &lt;pre&gt;<br /> ;<br /> ;*** ПОДПРОГРАММЫ ОБСЛУЖИВАНИЯ КОНТРОЛЛЕРА *&#039;<br /> ;******* ПОСЛЕДОВАТЕЛЬНОГО ИНТЕРФЕЙСА, *****1<br /> ;******** ПОДКЛЮЧЕННОГО К СИСТ. ШИНАМ *****<br /> ; *ASD* 18/06/88<br /> ;АДРЕСА РЕГИСТРОВ УСАПП И ТАЙМЕРА:<br /> DAT51: EQU 0А800Н ;РЕГИСТР ДАННЫХ ВВ51 <br /> CW51: EQU 0А801Н ;РЕГИСТР КОМАНД ВВ51<br /> СТ0: EQU 0А400Н ;СЧЕТЧИК 0 ВИ53 <br /> СТ1: EQU 0А401Н ;СЧЕТЧИК 1 ВИ53 <br /> CT2: EQU 0A40ZH ; СЧЕТЧИК 2 ВИ53 <br /> CW53: EQU 0А403Н ;РЕГИСТР КОМАНД ВИ53<br /> ;+++ УПРАВЛЯЮЩЕЕ СЛОВО ВИ53 +++ <br /> BCD: EQU 1 ; ДВ. -ДЕСЯТИЧНЫЙ СЧЕТ<br /> MODE0: EQU 0<br /> МОDЕ1: EQU 2<br /> MODE2: EQU 4 ;ВЫБОР<br /> MODE3: EQU 6 ;РЕЖИМА<br /> MODE4: EQU 8<br /> MODE5: EQU 0AH<br /> ;<br /> ROF: EQU 0 ;ЧТЕНИЕ НА ЛЕТУ <br /> RLL: EQU 10Н ;ЧТЕНИЕ/ЗАПИСЬ МЛ. БАЙТА <br /> RLH: EQU 20Н ;ЧТЕНИЕ/ЗАПИСЬ СТ. БАЙТА <br /> RLW: EQU 30Н ;ЧТЕНИЕ/ЗАПИСЬ СЛОВА<br /> SCO: EQU 0<br /> SC1: EQU 40H ;ВЫБОР СЧЕТЧИКА<br /> SC2: EQU 80H<br /> ;<br /> ;+++ ИНСТРУКЦИЯ РЕЖИМА ВВ51 +++<br /> X1: 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 0CH<br /> PEN: EQU 10Н ;РАЗРЕШЕНИЕ КОНТРОЛЯ <br /> ЕР: EQU 20Н ;КОНТРОЛЬ ЧЕТНОСТИ<br /> S1: EQU 40H<br /> S15 EQU 80H ;ДЛИНА СТОП-БИТА <br /> S2: EQU 0C0H<br /> ;+++ ИНСТРУКЦИЯ КОНАНДЫ ВВ51 +++<br /> TXEN: EQU 1 ;ПЕРЕДАТЧИК ВКЛЮЧЕН <br /> DTR: EQU 2 ;УСТРОЙСТВО ГОТОВО <br /> RXE: EQU 4 ;ПРИЕМНИК ВКЛЮЧЕН <br /> SBRK: EQU 8 ;ПРЕРЫВАНИЕ ПЕРЕДАЧИ <br /> ER: EQU 10Н ;СБРОС ОШИБОК ПРИЕМА <br /> RTS: EQU 20Н ;ПЕРЕДАЧА РАЗРЕШЕНА <br /> IR: EQU 40H ;ПРОГР. СБРОС УСАПП <br /> ЕН: EQU 80H ; РАЗРЕШЕНИЕ ПОИСКА ; СИНХРОСИМВОЛА<br /> ;**** РЕГИСТР СОСТОЯНИЯ ВB51 ****<br /> TXRDY: EQU 1 ;ПЕРЕДАТЧИК ГОТОВ <br /> RXRDY: EQU 2 ;ПРИЕМНИК ГОТОВ <br /> ТХЕ: EQU 4 ;ПЕРЕДАЧА ЗАКОНЧЕНА <br /> РЕ: EQU 8 ;ОШИБКА ЧЕТНОСТИ <br /> ОЕ: EQU 10Н ;ПЕРЕПОЛНЕНИЕ ПРИЕМНИКА <br /> FE: EQU 20Н ;ОШИБКА ФОРМАТА <br /> SYNDET: EQU 40H ;СИНХРОСИМВОЛ НАЙДЕН <br /> DSR: EQU 80H ;ПЕРЕДАТЧИК ДАННЫХ ГОТОВ<br /> ;*** ПОДПРОГРАММА НАСТРОЙКИ КОНТРОЛЛЕРА **** <br /> ;СКОРОСТЬ И РЕЖИМ УСАПП ПО УМОЛЧАНИЮ<br /> KDIV: EQU 23 ;4800 Бод (F0=1,78 МГГЦ)<br /> MI: EQU X16+L8+S2 ;<br /> INIT: LXI Н, KDIV<br /> MVI A, MI <br /> INIT1: PUSH PSW <br /> ;НАСТРАИВАЕМ ТАЙМЕР<br /> MVI A, SCO+RLW+MODE3<br /> STA CW53<br /> MOV A, L<br /> STA СТО<br /> MOV А, И<br /> STA СТО<br /> ;УСТАНАВЛИВАЕМ УСАПП В ИСХ. СОСТОЯНИЕ<br /> MVI А, 1<br /> STA CW51<br /> STA CW51<br /> MVI A, IR<br /> STA CW51 <br /> ; ЗАПИСЫВАЕМ ИНСТРУКЦИЮ РЕЖИМА<br /> POP PSW<br /> STA CW51<br /> ; УСТАНАВЛИВАЕМ ФЛАГZ, ЕСЛИ ЗАДАНА <br /> ;РАБОТА С ТЕЛЕТАЙПОМ<br /> ANI 0FCH ;#<br /> CPI 80Н ;#<br /> ; ЗАПИСЫВАЕМ ИНСТРУКЦИЮ КОМАНДЫ<br /> MVI A, TXEN+DTR+RXE+RTS<br /> STA CW51<br /> RNZ ;# <br /> ;ЕСЛИ ЗАДАНА РАБОТА С ТЕЛЕТАЙПОМ, <br /> ;ТО 5 РАЗ ПЕРЕДАЕМ КОД УСТАНОВКИ <br /> ; ЛАТИНСКОГО РЕГИСТРА<br /> LXI B, 51FH ;#<br /> LAT: CALL TX ;#<br /> DCR В ;#<br /> JNZ LAT ;# <br /> ;И ЗАПИСЫВАЕМ ПРИЗНАК ЛАТ. РЕГИСТРА<br /> MVI А, 20H ;#<br /> STA REG ;#<br /> RET<br /> ;*** ПОДПРОГРАММА ПЕРЕДАЧИ *** <br /> ;***... БАЙТА ИЗ РЕГИСТРА С ***<br /> TX: PUSH PSW <br /> ;ЖДЕМ ГОТОВНОСТИ <br /> ТХ1: LDA CW51<br /> ANI TXRDY+DSR<br /> CPI TXRDY+DSR<br /> JNZ ТХ1 <br /> ;ПЕРЕДАЕМ БАЙТ<br /> MOV А, С<br /> STA DAT51<br /> POP PSW<br /> RET<br /> ;*** ПОДПРОГРAMMA ПРИЕМА БАЙТА В АККУМУЛЯТОР ��*<br /> PX:<br /> ;ПРОВЕРЯЕМ ГОТОВНОСТЬ <br /> LDA CW51 <br /> ANI RXRRY<br /> ;ВОЗВРАТ С ФЛАГОМ ПЕРЕНОСА, <br /> ;ЕСЛИ ПРИЕМНИК НЕ ГОТОВ <br /> STC RZ<br /> ;ЧИТАЕМ ПРИНЯТЫЙ БАЙТ <br /> LDA DAT51 <br /> CMC <br /> RET <br /> ;<br /> ;ЯЧЕЙКА ОЗУ ДЛЯ ХРАНЕНИЯ ПРИЗНАКА <br /> ;РЕГИСТРА ТЕЛЕТАЙПА:<br /> ;<br /> REG: EQU 7653H ;АДРЕС НУЖНО УКАЗАТЬ ТОТ ЖE, <br /> ;ЧТО В TTYOUT, TTYIN<br /> END<br /> ;*** ПОДПРОГРАММЫ РАБОТЫ С ТЕЛЕТАЙПОМ<br /> ; *ASD* 01/07/88<br /> ;ИСПОЛЬЗУЮТ ПОДПРОГРАММЫ ТХ,PХ. <br /> ;В ПОДПРОГРАММЕ INIT ЗАДАТЬ ИНСТРУКЦИИ<br /> ;РЕЖИМА 82H ИЛИ 83Н<br /> ;ЯЧЕЙКА ОЗУ ДЛЯ ХРАНЕНИЯ ПРИЗНАКА <br /> ;РЕГИСТРА ТЕЛЕТАЙПА:<br /> REG: EQU 7653H ;ДЛЯ ОЗУ 32K<br /> &lt;/pre&gt;<br /> <br /> [[Категория:Радио-86РК/Публикации|414]]</div>

Panther