Редактирование:
EMI
(раздел)
Перейти к навигации
Перейти к поиску
Внимание:
Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте
или
создадите учётную запись
, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Анти-спам проверка.
Не
заполняйте это!
== Реализация == <pre> 969 ; ∗∗ Дисплей: вывод текста на индикатор ∗∗ 970 ; 971 ;#EMI 972 ; EMI ( c n −− ) Вывод нескольких литер на индикатор. 973 LEMI: .DB 3 974 .TEXT "EMI" 975 .DW LENCL ; Слово странное, взято из FORTH ИТЭФ 976 EMI: .DW JEMI 977 JEMI: PKRM03 M0 ; Число литер 978 RM3 1 + M8 1 + M3 979 RM0 +/− KX<09 ; Проверка на отрицательное или нулевое число литер 980 EMIS1: KRM8 PGSB CHPUT ; Вывести литеру 981 FL0 EMIS1 982 KGRPH KGOTO9 </pre> === Советская реализация === Ниже определение [[примитив]]а EMI из FORTH ИТЭФ: <PRE> HEAD 203Q,'EM',311Q,EMI$ ; EMI POP CX ; Число символов POP AX ; Символ PUSH CX ; Сохранение содержимого CX PUSH AX ; Сохранение содержимого AХ MOV BX, [DI+32Q] ; Установка атрибута MOV AH, 15 ; Чтение текущей страницы INT 16 ; в BH POP AX ; Восстановление содержимого AX MOV AH, 9 ; Запись строки символов INT 16 MOV AH, 3 ; Чтение положения курсора INT 16 POP CX ADD DL, CL MOV AH, 2 ; Установка положения курсора $EM: INT 16 CMP WORD PTR [DI+42Q],0 JNE PRINT OK: NEXT HEAD 204Q,'EMI',324Q,EMIT,$EMIT ; EMIT $EMIT LABEL FAR POP AX ENT$: PUSH AX MOV AH, 15 INT 16 POP AX MOV AH, 14 JMP $EM PRINT: MOV DX, 0 ; Установка номера принтера SUB AH, AH INT 23 TES AH, 51Q JE OK ERR4: MOV AL, AH ADD AL, 60Q MOV AH, 14 INT 16 MOV DX, OFFSET ERMES4 MOV AH, 9H INT 21H JMP TYPE$ ERMES4: DB ' PRINTER ERROR $' </PRE>
Описание изменений:
Пожалуйста, учтите, что любой ваш вклад в проект «ПМК вики» может быть отредактирован или удалён другими участниками. Если вы не хотите, чтобы кто-либо изменял ваши тексты, не помещайте их сюда.
Вы также подтверждаете, что являетесь автором вносимых дополнений, или скопировали их из источника, допускающего свободное распространение и изменение своего содержимого (см.
Pmkwiki:Авторские права
).
НЕ РАЗМЕЩАЙТЕ БЕЗ РАЗРЕШЕНИЯ ОХРАНЯЕМЫЕ АВТОРСКИМ ПРАВОМ МАТЕРИАЛЫ!
В целях защиты вики от автоматического спама в правках просим вас решить следующую каптчу:
Отменить
Справка по редактированию
(в новом окне)
Навигация
Персональные инструменты
Вы не представились системе
Обсуждение
Вклад
Создать учётную запись
Войти
Пространства имён
Статья
Обсуждение
русский
Просмотры
Читать
Править
История
Ещё
Поиск
Навигация
Заглавная страница
Свежие правки
Случайная страница
Справка по MediaWiki
Инструменты
Ссылки сюда
Связанные правки
Служебные страницы
Сведения о странице