UPPER

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

Ссылки

• Исходный текст слова UPPER в Каллисто Классик 1.0

У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.

Это заготовка статьи. Вы можете помочь проекту, дополнив её.