UPPER: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) Нет описания правки |
||
| Строка 5: | Строка 5: | ||
== Ввод слова UPPER == | == Ввод слова UPPER == | ||
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите клавиши [[Клавиша 3|{{Серая клавиша|3}}]] [[Клавиша 6|{{Серая клавиша|6}}]] [[Клавиша 6|{{Серая клавиша|6}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] [[Клавиша ×|{{Серая клавиша|×}}]] | В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите клавиши [[Клавиша 3|{{Серая клавиша|3}}]] [[Клавиша 6|{{Серая клавиша|6}}]] [[Клавиша 6|{{Серая клавиша|6}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] [[Клавиша ×|{{Серая клавиша|×}}]] | ||
== Реализация == | |||
В FORTH ИТЭФ слово UPPER было [[примитив]]ом, вот его определение: | |||
<PRE> | |||
HEAD 205Q,'UPPE',3220,UPPER ; UPPER | |||
POP CX | |||
POP BX | |||
$COMP: CMP BYTE PTR [BX], 141Q | |||
JL OFLIM | |||
CMP BYTE PTR [BX], 172Q | |||
JG OFLIM | |||
AND [BX], 177737Q | |||
OFLIM: INC BX | |||
LOOP $COMP | |||
NEXT | |||
</PRE> | |||
Версия от 22:02, 27 марта 2016
UPPER — стандартное слово Каллисто.
Перевести строку символов в верхний регистр.
Ввод слова UPPER
В режиме ЛАТ последовательно нажмите клавиши 3 6 6 ИП ×
Реализация
В FORTH ИТЭФ слово UPPER было примитивом, вот его определение:
HEAD 205Q,'UPPE',3220,UPPER ; UPPER
POP CX
POP BX
$COMP: CMP BYTE PTR [BX], 141Q
JL OFLIM
CMP BYTE PTR [BX], 172Q
JG OFLIM
AND [BX], 177737Q
OFLIM: INC BX
LOOP $COMP
NEXT
|
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |