UPPER: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) Нет описания правки |
||
| Строка 1: | Строка 1: | ||
'''UPPER''' — | '''UPPER''' — встроенное слово [[Каллисто]]. Делает маленькие буквы большими. | ||
UPPER ( a u −− ) Перевести в верхний регистр u литер по адресу a. | |||
Перевести строку символов в верхний регистр. | Перевести строку символов по адресу a длиной u в верхний регистр. Литеры, не являющиеся строчными буквами, сохраняют свои значения. | ||
== Ввод слова UPPER == | == Ввод слова UPPER == | ||
| Строка 21: | Строка 21: | ||
NEXT | NEXT | ||
</PRE> | </PRE> | ||
== Ссылки == | |||
* {{Исходник|UPPER|UPPER}} | |||
| Строка 28: | Строка 31: | ||
[[Категория:Примитивы]] | [[Категория:Примитивы]] | ||
[[Категория:Работа с памятью Каллисто]] | [[Категория:Работа с памятью Каллисто]] | ||
Версия от 19:12, 4 июня 2016
UPPER — встроенное слово Каллисто. Делает маленькие буквы большими.
UPPER ( a u −− ) Перевести в верхний регистр u литер по адресу a.
Перевести строку символов по адресу a длиной u в верхний регистр. Литеры, не являющиеся строчными буквами, сохраняют свои значения.
Ввод слова 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
Ссылки
|
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |