Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте или
создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Правка может быть отменена.
Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия |
Ваш текст |
Строка 28: |
Строка 28: |
|
| |
|
| == Реализация == | | == Реализация == |
| <pre>
| |
| 99 rrBASE .EQU 1110 ; 11110 BASE − основание действующей системы счисления
| |
| 100 pBASE .EQU 110
| |
| 101 rlBASE .EQU 1111
| |
| …
| |
| 2374 SETBASE: PPM rlBASE
| |
| 2375 CX PPM rrBASE ; Каллисто использует 16−битную переменную для совместимости с Фортом.
| |
| 2376 KGOTO9
| |
| 2377
| |
| 2378 ;#DECIMAL
| |
| 2379 ; DECIMAL ( −− ) Установить десятичную систему счисления для ввода−вывода.
| |
| 2380 LDEC: .DB 7
| |
| 2381 .TEXT "DECIMAL"
| |
| 2382 .DW LHEX
| |
| 2383 DEC: .DW JDEC
| |
| 2384 JDEC: 10 PGOTO SETBASE
| |
| </pre>
| |
| Реализация из SP-Forth 4.20:
| |
| <pre>
| |
| : DECIMAL ( -- ) \ 94
| |
| \ Установить основание системы счисления равным десяти.
| |
| 10 BASE !
| |
| ;
| |
| </pre>
| |
|
| |
| === Советская реализация ===
| |
| У Баранова-Ноздрунова приводится следующее определение слова DECIMAL через присваивание переменной [[BASE]] числа 10 (стр. 24): | | У Баранова-Ноздрунова приводится следующее определение слова DECIMAL через присваивание переменной [[BASE]] числа 10 (стр. 24): |
| : decimal ( -- ) 10 base ! ; | | : decimal ( -- ) 10 base ! ; |