Редактирование: UNTIL
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 79: | Строка 79: | ||
3668 UNTIL: .DW CALL, ONE,QPAIR, COMP,ZBRAND, BRAN,RLRESOLVE | 3668 UNTIL: .DW CALL, ONE,QPAIR, COMP,ZBRAND, BRAN,RLRESOLVE | ||
</pre> | </pre> | ||
Реализация из SP-Forth 4.20: | |||
<pre> | <pre> | ||
: UNTIL \ 94 | : UNTIL \ 94 | ||
Строка 93: | Строка 93: | ||
IF DP @ 5 - W@ 0x3F0 + DP @ 6 - W! -4 ALLOT | IF DP @ 5 - W@ 0x3F0 + DP @ 6 - W! -4 ALLOT | ||
THEN DP @ TO :-SET | THEN DP @ TO :-SET | ||
; IMMEDIATE | ; IMMEDIATE | ||
</pre> | </pre> |