.CHARSET 1251 ;Для примера 1. Приём одного байта ЭКВМ ;Скорость 2400, 8 бит, без контроля чётности. 1 PP M 9070 ; Разрешение порта, запись 1 - разрешение использования порта ЭКВМ ; С этого момента и до записи 0 команды протокола обмена данными ; из документа Д2 не обрабатываются. 5 PP M 9071 ; Установить скорость 2400 0 PP M 9072 ; Установить режим 8 бит 16 PP M 9073 ; Задержка между байтами при приёме 16*1,25=20 мс. 1 PP M 9076 ; Приём A1: PP RM 9076 ; Проверить окончание приёма F X=0 A1 ; пока не равно 0 - продолжать считывание 0 PP M 9070 ; Запрет использования порта программой ЭКВМ 0 PP M 9085 PP RM 9086 PP RM 9075 R/S ; Останов RX- количество, RY - первый байт пакета .END