Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте или
создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Правка может быть отменена.
Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия |
Ваш текст |
Строка 17: |
Строка 17: |
|
| |
|
| == Реализация == | | == Реализация == |
| <pre>
| |
| 2975 ;#NtoLINK
| |
| 2976 ; N>LINK ( a1 −− a2 ) От имени к связи. Преобразовать NFA в LFA.
| |
| 2977 LNLINK: .DB 6
| |
| 2978 .TEXT "N>LINK" ; ( nfa −− lfa )
| |
| 2979 .DW LSPACE
| |
| 2980 NLINK: .DW CALL, DUP,CAT, BL,MOD, PLUS, ONEP, EXIT ; BL == 32
| |
| </pre>
| |
| Реализация из SP-Forth 4.20:
| |
| <pre>
| |
| CODE NAME>L ( NFA -> LFA )
| |
| MOVZX EBX, BYTE [EAX]
| |
| LEA EAX, [EBX] [EAX]
| |
| LEA EAX, 1 [EAX]
| |
| RET
| |
| END-CODE
| |
| </pre>
| |
|
| |
| === Советская реализация ===
| |
| Описание и определение слова N>LINK в ядре ФОРТ-ЕС: | | Описание и определение слова N>LINK в ядре ФОРТ-ЕС: |
| <PRE> | | <PRE> |