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_5 2026-05-04T02:45:13Z История изменений этой страницы в вики 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_5&diff=1162&oldid=prev 2008-11-28T12:50:56Z

<p>http://retro.h1.ru/RK86/RS232/Rs232io.asm</p> <p><b>Новая страница</b></p><div>{{ДИ|Автор=А. ДОЛГИЙ| Источник=http://retro.h1.ru/RK86/RS232/Rs232io.asm}}<br /> &lt;pre&gt;<br /> ;*** ПОДПРОГРАММА ПЕРЕДАЧИ ***<br /> ;ПЕРЕДАВАЕМЫЙ СИМВОЛ (В КОДЕ КОИ-7&gt; <br /> ;ЗАДАЕТСЯ В РЕГИСТРЕ С. ВМЕСТО СИМВОЛОВ, <br /> ;ОТСУТСТВУЮЩИХ В МТК-2, ПЕРЕДАЕТСЯ ТОЧКА.<br /> TTYOUT: PUSH PSW<br /> PUSH Н<br /> PUSH В<br /> MOV А, С<br /> ANI 7FH<br /> MOV С, А<br /> CPI 0AH<br /> JZ LF ;ПЕРЕВОД СТРОКИ<br /> CPI 00Н<br /> JZ CR ;ВОЗВРАТ КАРЕТКИ<br /> CPI &#039;.&#039;<br /> JZ BL ;ПРОБЕЛ <br /> ; СИМВОЛЫ С КОДОМ МЕНЫЕ 20Н <br /> ;НЕ ПЕРЕДАЮТСЯ<br /> JM RTRN <br /> ;ПЕРЕВОДИМ КОИ-7 В МТК-2<br /> LXI H, ASCITC-20H<br /> MVI В,0<br /> DAD В <br /> ;ВЫДЕЛЯЕМ ПРИЗНАК РЕГИСТРА<br /> MVI A, 0E0H<br /> ANA M<br /> MOV В, А<br /> ;ЕСЛИ РЕГИСТР НЕ СОВПАДАЕТ С УСТАНОВЛЕННЫМ, <br /> ;ПЕРЕДАЕМ КОД СМЕНЫ РЕГИСТРА <br /> LDA REG<br /> CMP B <br /> JZ XMT<br /> MOV А, В<br /> STA REG<br /> RLC<br /> JC SETFIG<br /> RLC<br /> JC SETRUS<br /> MVI C, 1FH <br /> SETREG: CALL TX <br /> ;ПЕРЕДАЕМ СИМВОЛ В MTK-2 <br /> ХМТ: MOV С, М <br /> ХMТ1: CALL TX <br /> RTRN: POP В<br /> POP Н<br /> POP PSW<br /> RET <br /> ;ПЕРЕВОД СТРОКИ <br /> LF: MVI С, 2<br /> JMP XMT1 <br /> ;ПРОБЕЛ <br /> BL: MVI С, 4<br /> JMP XMT1 <br /> ;ВОЗВРАТ КАРЕТКИ <br /> CR: MVI С,8<br /> JMP XMT1 <br /> ;ЦИФРОВОЙ РЕГИСТР <br /> SETFIG: MVI C, 1BH<br /> JMP SETREG <br /> ;РУССКИЙ РЕГИСТР <br /> SETRUS: MVI C, 0<br /> JMP SETREG<br /> ;*** ПОДПРОГРАММА ПРИЕМА ***<br /> ;ЖДЕМ ОЧЕРЕДНОЙ СИМВОЛ <br /> TTYIN: CALL RX<br /> JC TTYIN <br /> ANI 1FH <br /> ;ОБРАБАТЫВАЕМ ВК, ПРОБЕЛ И ПС<br /> CPI 2<br /> JNZ TI1 <br /> MVI А, 0АН <br /> RET <br /> TI1: CPI 4<br /> JNZ TI2<br /> MVI А, 20H<br /> RET <br /> TI2: CPI 8<br /> JNZ TI3 <br /> MVI А, 00Н <br /> RET<br /> ;ОБРАЕАТЫВАЕН КОДЫ СМЕНЫ РЕГИСТРОВ <br /> TI3: PUSH Н<br /> LXI H, REG<br /> CPI 1FH<br /> JNZ TI4<br /> MVI M, 20H ;ЛАТИНСКИЙ <br /> TI4: CPI 0<br /> JNZ TI5<br /> MVI Н, 40Н ;РУССКИЙ <br /> TI5: CPI 1ВН<br /> JNZ TI6<br /> MVI Н, 80Н ;ЦИФРА <br /> TI6: ANA M <br /> ;ОБРАБАТЫВАЕМ КОД ТОЧКИ<br /> CPI 9CH<br /> JNZ TI7<br /> MVI А, &#039;.&#039;<br /> POP Н<br /> RET<br /> ;ПЕРЕВОДИМ MTK-2 8 КОИ-7 <br /> TI7: PUSH В<br /> MVI C, 5FH<br /> LXI H, ASCITC <br /> TI8: CMP М<br /> JZ TI9<br /> INX Н<br /> DCR С<br /> JNZ TI8 <br /> TI9: MOV А,С<br /> XRI 7FH<br /> POP B<br /> POP H<br /> RET<br /> ;** ТАБЛИЦА ПЕРЕВОДА КОИ-7 В МТК-2 ***<br /> ASCITC: DB 84H,9CH,85H,9CH,9CH,9CH,9CH,85H <br /> DB 8FН,92Н,89Н,91Н,82Н,83Н,9СН,9DН <br /> DB 96H,97H,93H,81H,8AH,90H,95H,87H <br /> DB 86H,98H,8EH,9CH,9CH,9EH,9CH,99H<br /> DB 9CH,23H,39H,2EH,29H,21H,2DH,ЗАH <br /> DB 34H,26H,2BH,2FH,32H,3CH,2CH,38H<br /> DB 36H,37H,2AH,25H,30H,27H,3EH,33H <br /> DB 30Н,35Н,31Н,9CH,9CH,9CH,9CH,9CH <br /> DB 8BH,43H,59H,4EH,49H,41H,40H,5AH <br /> DB 54H,46H,4BH,4FH,52H,SCH,4CH,58H <br /> DB 56H,57H,4AH,45H,50H,47H,5EH,53H <br /> DB 50H,55H,51H,9AH,80H,94H,8AH,9CH<br /> END<br /> &lt;/pre&gt;<br /> <br /> [[Категория:Радио-86РК/Публикации|415]]</div>

Panther