.CHARSET 1251
; Приём текстовой информации с СОМ-порта и вывод ее
; в графический экран.
; Cкорость 9600, 8 бит, без контроля чётности
.ORG 0
	CX
	PP 	M 9072		; Установить режим 8 бит
	9 	PP M 9071	; Установить скорость 9600
	4  PP M 9073	; Задержка между байтами в ответе 4*1,25=6 мс.
	1	PP M 9070	; Разрешение порта, запись 1 - разрешение использования порта ЭКВМ
	2 	PP M 9010	; Инициализация графического экрана
A0:
	0 	PP M 9085	; Буфер приёма, смещение 0
	1 	PP M 9076	; Начать приём данных

A1:
		PP RM 9076	; Проверить окончание приёма, считав содержимое регистра приёма
		F X=0 A1	; пока оно не равно 0 - продолжать считывание
				; Приём окончен, количество принятых байт в R9075, 
				; пакет строк в буфере приёма (R9086-R9089)

		PP RM 9075	; Проверка количества принятых байт
		F X!=0 A0	; Повтор при нулевом значении
		P M 0		; Количество принятых байт - в регистр 0
	0 	PP M 9070	; Запрет на использование порта
	0 	PP M 9085	; Буфер приёма, смещение 0
	5 	P M 1		; Количество выводимых строк => в регистр М1

A2:
	1 	PP M 9007	; Прокрутка одной строки
	56 	ENT 0 
		PP M 9000	; Позиция вывода X0=0, Y0=56

A3:
		PP RM 9087    ; Считать принятый байт с автоинкрементом
		P M 2		; => в регистр 2
		13 -		; Вычесть код символа 'CR' (Возврат каретки)
		F X!=0 A4	; Если не 'CR' ->
		P RM 2        
		PP M 9020	; -> Выдать байт в графический экран
		F L0 A3	; Продолжать, пока не выведутся все байты

A4:           
		K GRPH		; --> Если 'CR', то обновить экран
		F L1 A2
		GOTO A0

.END

После загрузки программы в МК-1хх и нажатия В/О С/П ЭКВМ переходит в режим ожидания приема строки из СОМ-порта.

Устанавливаем в терминальной программе нужные параметры порта и вывод локального эха, копируем из буфера обмена строку символов:

На экране появится: