UPPER

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

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

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