2/: различия между версиями

Материал из ПМК вики
Перейти к навигации Перейти к поиску
Строка 58: Строка 58:
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0330 2/ (two-slash)] и [http://forth.sourceforge.net/standard/dpans/dpansa6.htm#A.6.1.0330 комментарии к нему] в стандарте ANS Forth ''(англ.)''
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0330 2/ (two-slash)] и [http://forth.sourceforge.net/standard/dpans/dpansa6.htm#A.6.1.0330 комментарии к нему] в стандарте ANS Forth ''(англ.)''
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.2162 RSHIFT] в стандарте ANS Forth ''(англ.)''
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.2162 RSHIFT] в стандарте ANS Forth ''(англ.)''
* Слова [http://www.forth200x.org/documents/html3/core/TwoDiv.html 2/ (two-slash)] и [http://www.forth200x.org/documents/html3/core/RSHIFT.html RSHIFT] в черновике Forth 200x ''(англ.)''
* Слова [http://forth-standard.org/standard/core/TwoDiv 2/ (two-slash)] и [http://forth-standard.org/standard/core/RSHIFT RSHIFT] в черновике Forth 200x ''(англ.)''
* [https://ru.wikipedia.org/wiki/%D0%91%D0%B8%D1%82%D0%BE%D0%B2%D1%8B%D0%B9_%D1%81%D0%B4%D0%B2%D0%B8%D0%B3 Битовый сдвиг в Википедии]
* [https://ru.wikipedia.org/wiki/%D0%91%D0%B8%D1%82%D0%BE%D0%B2%D1%8B%D0%B9_%D1%81%D0%B4%D0%B2%D0%B8%D0%B3 Битовый сдвиг в Википедии]
* [https://en.wikipedia.org/wiki/Logical_shift Logical shift] и [https://en.wikipedia.org/wiki/Arithmetic_shift Arithmetic shift] в английской Википедии ''(англ.)''
* [https://en.wikipedia.org/wiki/Logical_shift Logical shift] и [https://en.wikipedia.org/wiki/Arithmetic_shift Arithmetic shift] в английской Википедии ''(англ.)''

Версия от 07:54, 29 марта 2016

2/ (на два делить нацело, читается «два дробь») — стандартное слово Каллисто. Целочисленное деление на 2 (двоичный сдвиг вправо).

2/             ( x -- n )                      Половина. n ← [x/2]
Пример работы слова 2/

Делит x на 2. Отбрасывает остаток (цифры после запятой), а частное n заносит в стек.

Ввод слова 2/

В режиме NUM последовательно нажмите три клавиши  2     F   ÷ 

Детали реализации

Слово 2/ осуществляет арифметический сдвиг вправо на один двоичный разряд — сохраняя знак всех целых чисел, кроме 1. Слово осуществляет обратное действие, двоичный сдвиг влево.

Каллисто реализована поверх десятичной машины «Электроника МК-161», поэтому поведение этих двух команд может не всегда соответствовать тому, как они реализованы на двоичных форт-машинах.

2/ в стандарте ANS Forth

6.1.0330   2/                                "two-slash"                   CORE
           ( x1 -- x2 )
           x2 - результат смещения x1 на один бит к младшему двоичному 
           разряду, оставляет старший бит неизменным.
A.6.1.0330   2/
Это слово имеет то же самое общее использование и следствие неверного названия 
как 2∗. Оно часто реализовано на машинах с дополнительным кодом (дополнение до 
двух) аппаратным сдвигом вправо, который распространяет знаковый разряд.

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

     2/           n1 -- n2                      83        "two-divide"
          n2 is the result of arithmetically shifting n1 right one
          bit.  The sign is included in the shift and remains
          unchanged.

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

2/             n1 -- n2                                "two-divide"
    Leave (n1)/2.

Реализация

Слово 2/ в ФОРТ-ЕС было примитивом. Вот его описание и определение:

2/           W1->W2 АРИФМЕТИЧЕСКИЙ СДВИГ ВПРАВО НА 1           20

                     Экран номер 20
( 31.03.86    SP@ SP! RP@ RP! 2/ 2* 2@ 2! DEPTH )

CODE 2/ ( W1->W2 ) RW1 PULL, RW1 1 SRA, PUTRM1 B, END-CODE

В FORTH ИТЭФ слово 2/ было примитивом, вот его определение:

             HEAD    202Q,'2',257Q,DIV2                   ; 2/
             POP   AX
             SAR   AX, 1
             PUSH  AX
             NEXT

Ссылки


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