Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте или
создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Правка может быть отменена.
Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия |
Ваш текст |
Строка 38: |
Строка 38: |
|
| |
|
| == Реализация == | | == Реализация == |
| <pre>
| |
| 1835 I0: MA M5
| |
| 1836 KRMA RME ∗ KRM5 + KM3 KGOTO9
| |
| 1837
| |
| 1838 ;#J
| |
| 1839 ; J ( −− U ) Значение счётчика внешнего цикла FOR.
| |
| 1840 LJ: .DB 1
| |
| 1841 .TEXT "J" ; ( −− n )
| |
| 1842 .DW LI
| |
| 1843 J: .DW JJ ; Узнать значение переменной цикла из вложенного цикла.
| |
| 1844 JJ: 4
| |
| 1845 JJ0: RM2 + GOTO I0
| |
| </pre>
| |
| Реализация из SP-Forth 4.20:
| |
| <pre>
| |
| \ ================================================================
| |
| \ Циклы
| |
|
| |
| CODE J \ 94
| |
| \ Интерпретация: семантика неопределена.
| |
| \ Выполнение: ( -- n|u ) ( R: loop-sys -- loop-sys )
| |
| \ n|u - копия параметра следующего объемлющего цикла.
| |
| \ Неоднозначная ситуация возникает, если параметр недоступен.
| |
| LEA EBP, -4 [EBP]
| |
| MOV [EBP], EAX
| |
| MOV EAX, 10 [ESP]
| |
| SUB EAX, 14 [ESP]
| |
| RET
| |
| END-CODE
| |
| </pre>
| |
|
| |
| === Советская реализация ===
| |
| Слово J в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение: | | Слово J в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение: |
| <PRE> | | <PRE> |
Строка 96: |
Строка 64: |
| [[Категория:Слова Каллисто]] | | [[Категория:Слова Каллисто]] |
| [[Категория:Примитивы]] | | [[Категория:Примитивы]] |
| [[Категория:Операции со стеком возвратов Каллисто]]
| |
| [[Категория:Стандартные слова]]
| |
| [[Категория:1994 CORE]]
| |
| [[Категория:2012 CORE]]
| |