Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте или
создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Правка может быть отменена.
Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия |
Ваш текст |
Строка 65: |
Строка 65: |
| 2322 PPRM rrDP + PPM rrDP | | 2322 PPRM rrDP + PPM rrDP |
| 2323 KGOTO9 | | 2323 KGOTO9 |
| </pre>
| |
|
| |
| === Реализация в SP-Forth 4.20 ===
| |
| <pre>
| |
| : ALLOT ( n -- ) \ 94
| |
| \ Если n больше нуля, зарезервировать n байт пространства данных. Если n меньше
| |
| \ нуля - освободить |n| байт пространства данных. Если n ноль, оставить
| |
| \ указатель пространства данных неизменным.
| |
| \ Если перед выполнением ALLOT указатель пространства данных выровнен и n
| |
| \ кратно размеру ячейки, он остается выровненным и после ALLOT.
| |
| \ Если перед выполнением ALLOT указатель пространства данных выровнен на
| |
| \ границу символа и n кратно размеру символа, он остается выровненным на
| |
| \ границу символа и после ALLOT.
| |
| DP +!
| |
| ;
| |
| </pre> | | </pre> |
|
| |
|