Редактирование: ¦X¦
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 50: | Строка 50: | ||
1459 JABS: PKRM03 KABS PKM03 KGOTO9 ; Обёртка вокруг K |x| | 1459 JABS: PKRM03 KABS PKM03 KGOTO9 ; Обёртка вокруг K |x| | ||
</pre> | </pre> | ||
Реализация из SP-Forth 4.20: | |||
<pre> | <pre> | ||
CODE ABS ( n -- u ) \ 94 | CODE ABS ( n -- u ) \ 94 | ||
Строка 59: | Строка 59: | ||
SUB EAX, ECX | SUB EAX, ECX | ||
RET | RET | ||
END-CODE | END-CODE | ||
</pre> | </pre> |