Редактирование: UPPER

'''UPPER''' — стандартное слово [[Каллисто]].

Перевести строку символов в верхний регистр.

== Ввод слова UPPER ==
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите клавиши [[Клавиша 3|{{Серая клавиша|3}}]] [[Клавиша 6|{{Серая клавиша|6}}]] [[Клавиша 6|{{Серая клавиша|6}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] [[Клавиша ×|{{Серая клавиша|×}}]]


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Работа с памятью Каллисто]]
[[Категория:Слова Каллисто без стековых диаграмм]]
@@ Строка 1: / Строка 1: @@
-'''UPPER''' — фортовское слово [[Каллисто]]. Делает все буквы в строке заглавными.
+'''UPPER''' — стандартное слово [[Каллисто]].
- UPPER          ( a u −− )                           Перевести в верхний регистр u литер по адресу a.
-Перевести строку символов по адресу a длиной u в верхний регистр. Литеры, не являющиеся строчными буквами, сохраняют свои значения.
+Перевести строку символов в верхний регистр.
 == Ввод слова UPPER ==
 В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите клавиши [[Клавиша 3|{{Серая клавиша|3}}]] [[Клавиша 6|{{Серая клавиша|6}}]] [[Клавиша 6|{{Серая клавиша|6}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] [[Клавиша ×|{{Серая клавиша|×}}]]
-== Реализация ==
-<pre>
-;#UPPER
-; UPPER            ( a u −− )                           Перевести в верхний регистр u литер по адресу a.
-LUPPER:         .DB     5
-                 .TEXT   "UPPER"
-                 .DW     LDTRAI
-UPPER:          .DW     JUPPER                  ; Перевести строку литер в верхний регистр.
-JUPPER:         RM3 M8 1 + MA 1 + M3
-                 KRM8 M0 +/−  KX<09
-                 KRMA 10001 −  KX>=09  M5
-UPPERL:         KRM5
-                 97 −  PX>=0 UPPER2              ; 'a'
-                 26 −  PX>=0 UPPER3              ; 'z'−96
-                 37 −  PX>=0 UPPER2              ; 'а'−123
-                 16 −  PX>=0 UPPER4              ; 'п'−159
-                 48 −  FX>=0 UPPER2              ; 'р'−176
-                 16 −  FX>=0 UPPER6              ; 'я'−223
-                 1 −  FX=0 UPPER2                ; 'ё'−241
-                 240  GOTO UPPER5                ; 'Ё'
-UPPER6:         160  GOTO UPPER7                ; 'Р'+16
-UPPER4:         144                             ; 'А'+16
-                 .DB 0f9H                        ; PX>=0 aka PGOTO UPPER7, пропустить 2 шага
-UPPER3:         91                              ; 'A'+26
-UPPER7:         +
-UPPER5:         PKM05
-UPPER2:         PFL0 UPPERL
-UPPERR:         KGOTO9
-</pre>
-=== Советская реализация ===
-В 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>
-== Ссылки ==
-* {{Исходник|UPPER|UPPER}}
@@ Строка 59: / Строка 10: @@
 {{заготовка}}
 [[Категория:Слова Каллисто]]
-[[Категория:Фортовские слова]]
 [[Категория:Примитивы]]
 [[Категория:Работа с памятью Каллисто]]
+[[Категория:Слова Каллисто без стековых диаграмм]]