UPPER: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) Нет описания правки |
||
| Строка 1: | Строка 1: | ||
'''UPPER''' — встроенное слово [[Каллисто]]. Делает | '''UPPER''' — встроенное слово [[Каллисто]]. Делает все буквы в строке заглавными. | ||
UPPER ( a u −− ) Перевести в верхний регистр u литер по адресу a. | UPPER ( a u −− ) Перевести в верхний регистр u литер по адресу a. | ||
Перевести строку символов по адресу a длиной u в верхний регистр. Литеры, не являющиеся строчными буквами, сохраняют свои значения. | Перевести строку символов по адресу a длиной u в верхний регистр. Литеры, не являющиеся строчными буквами, сохраняют свои значения. | ||
Версия от 19:24, 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
Ссылки
|
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
|
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |