.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:

.CHARSET 1251
; Прием текстовой строки с СОМ-порта и вывод ее в строку комментариев.
; Cкорость 9600, 8 бит, без контроля чётности.
;
.ORG 0
	1 	PP M 9070	; Разрешение использования порта
	CX
		PP M 9072	; Установить режим 8 бит
	9 	PP M 9071	; Установить скорость 9600
	0 	PP M 9074	; Режим автоматического приема разрешен
	6 	PP M 9073	; Задержка между байтами при приеме 1,25*4 = 6 мс 
	1 	PP M 9076	; Прием

A1:		PP RM 9076	; Проверить окончание приема
		F X=0 A1	; пока не равно 0 - продолжать прием