⟩⟨

>< — фортовское слово Каллисто. Поменять местами байты в переданном через стек двухбайтном значении.

><             ( u −− u1 )                          Обменять старший и младший байты в 16−битном числе u.

Ввод слова ><

В режиме NUM последовательно нажмите четыре клавиши  F   ИП     F   ШГ→ 

История

Слово >< прослеживается с 1979 года. В 1994 году оно было убрано из стандартов Форта. В FORTH ИТЭФ слово >< было известно под именем SWAB

>< в предыдущем стандарте Forth-83 (англ.)

     ><           16b1 -- 16b2                             "byte-swap"
          Swap the high and low bytes within 16b1.

>< в стандарте Forth-79 (англ.)

><             n1 -- n2                                 "byte-swap"
    Swap the high and low bytes within n1.

Реализация

1433 ;#SWAB
1434 ; ><               ( U −− U1 )                          Обменять старший и младший байты в 16−битном числе U.
1435 LSWAB:          .DB     2
1436                 .TEXT   "><"
1437                 .DW     LNEGATE
1438 SWAB:           .DW     JSWAB
1439 JSWAB:          RM3 M8
1440                 KRM8 ENT RME / FANS <−> KINT MA ∗ −
1441                 RME ∗ RMA + KM8  KGOTO9

Советская реализация

В FORTH ИТЭФ слово >< называлось SWAB и было примитивом, вот его определение:

            HEAD     204Q,'SWA',302Q,SWAB                 ; SWAB
            POP  AX
            XCHG AL, AH
            PUSH AX
            NEXT

Ссылки

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

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

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