1−

Материал из ПМК вики
Перейти к: навигация, поиск

1− (уменьшить, единицу вычесть, читается «один-минус») — стандартное слово Каллисто. Вычитание 1.

1−             ( x -- x1 )                     Уменьшить. x1 ← x − 1
Пример работы слова 1−

Слово 1− вычитает 1 из числа, находящегося на вершине стека.

Ввод слова 1−[править]

В режиме NUM последовательно нажмите две белые клавиши  1    

1− в стандарте ANS Forth[править]

6.1.0300   1-                               "one-minus"                    CORE
           ( n1|u1 -- n2|u2 )
           Вычитает один (1) из n1|u1, возвращает разницу n2|u2.

История[править]

Первое зафиксированное упоминание слова 1− относится к 1979 году.

Каллистянское слово 1− способно уменьшать на 1 не только целые, но и числа с плавающей запятой.

1− в предыдущем стандарте Forth-83 (англ.)[править]

     1-           w1 -- w2                      79         "one-minus"
          w2 is the result of subtracting one from w1 according to the
          operation of - .

1− в стандарте Forth-79 (англ.)[править]

1-             n -- n-1                      105        "one-minus"
    Decrement n by one, according to the operation of - .

Реализация[править]

1287 NONEP:          PKRM03 + PKM03  KGOTO9
1288 JONEM:          1 +/−  GOTO NONEP
…
1299 ;#OneMinus
1300 ; 1−               ( x −− x1 )                          Уменьшить. x1 := x−1
1301 LONEM:          .DB     2
1302                 .TEXT   "1−"                    ; ( x −− x−1 )
1303                 .DW     LGBODY
1304 ONEM:           .DW     JONEM                   ; Вычитание 1.

Реализация из SP-Forth 4.20:

CODE 1- ( n1|u1 -- n2|u2 ) \ 94
\ Вычесть 1 из n1|u1 и получить разность n2|u2.
     LEA EAX, -1 [EAX]
     RET
END-CODE

Советская реализация[править]

Описание и определение слова 1− в ядре ФОРТ-ЕС:

1-           W1->W2 УМЕНЫШИТЬ W1 НА 1                          17

                     Экран номер 17
( 31.03.86   NEGATE ABS + - 1+ 1- 2+ 2- +!  1+!  )

: 1- ( W1->W2) -1 + ;

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

             HEAD    202Q,'1',255Q,ONEM                   ; 1-
             POP   AX
             DEC   AX
             PUSH  AX
             NEXT

Ссылки[править]


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