Редактирование: Слово /−/
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 55: | Строка 55: | ||
1431 JNEGATE: PKRM03 +/− PKM03 KGOTO9 ; Обёртка вокруг /−/ | 1431 JNEGATE: PKRM03 +/− PKM03 KGOTO9 ; Обёртка вокруг /−/ | ||
</pre> | </pre> | ||
Реализация из SP-Forth 4.20: | |||
<pre> | <pre> | ||
CODE NEGATE ( n1 -- n2 ) \ 94 | CODE NEGATE ( n1 -- n2 ) \ 94 | ||
\ n2 - арифметическая инверсия n1. | \ n2 - арифметическая инверсия n1. | ||
NEG EAX | NEG EAX | ||
RET | RET | ||
END-CODE | END-CODE |