Почти готово
(используется 16-бит assembler , ориентируюсь на FORT-83 стандарт)
реализовал слова (возможно что-то упустил)
! * */ */MOD + +! - / /MOD 0< 0= 0> 1+ 1- 2+
2- 2/ < = > ?DUP @ ABS AND C! C@ CMOVE
CMOVE> COUNT DEPTH DROP DUP NIP ROLL ROT SWAP EXECUTE
EXIT FILL I MAX MIN MOD NEGATE NOT OR OVER PICK
>R R> R@ RP! U< XOR CR EMIT EXPECT KEY ?KEY
SPACE SPACES TYPE ' ( . .S .( >IN BLK FIND
FORGET HERE QUIT SPAN TIB U. WORD , ." : ; ALLOT BEGIN
COMPILE CONSTANT CREATE DO DOES> ELSE IF IMMEDIATE LITERAL
LOOP REPEAT STATE THEN UNTIL VARIABLE WHILE [COMPILE] [ ]
не реализовал работу с буфферами-блоками , числами двойной длины и пока работаю только с десятичными числами
из нестандартных слов:
?NUMB ( c-adr -- n -1/0)
получает строку и преобразует ее в число
если получилось, заносит число в стек и флаг -1
если не получилось, заносит в стек флаг 0
SC-KEY ( -- скан-код клавиши)
в отличие от KEY возвращает не ASCII-код, а скан-код, что позволяет использовать всю клавиатуру
пример:
Код:
: ?F1 KEY? DUP IF DROP SC-KEY 59 = THEN ; (скан-код F1=59)
: NAME BEGIN ................ ?F1 UNTIL ;
: NAME BEGIN ................ ?F1 UNTIL ;
слово NAME будет исполняться, пока не нажмешь F1
FILE
считывает в входном потоке имя файла, загружает его и интерпретирует
(скорее всего я не буду реализовывать работу с BLOCK , а буду с файлами)
-! ( n addr -- ) то же, что и +! только уменьшает значение по адресу addr на n
LASTWORD ( -- addr) возвращает адрес последнего слова в словаре.
Подумываю о слове FORGET+ ( -- ), которое возвращает словарь в исходное состояние
================================================
Теперь вопросы:
Вначале код NEXT выглядел так
Код:
LODSW
MOV BX , AX
JMP BX
Теперь так
Код:
LODSW
MOV BX , AX
JMP [BX]
Вначале был прямой шитый код, а теперь косвенный шитый ?
Не совсем понял насчет слова [COMPILE]
Например я ввожу код
Код:
: LITERAL COMPILE LIT , ;
и в словаре получаю такое:
xt(COMPILE), xt(LIT), xt(,) , xt(RETURN)
а если я введу такой код (допустим , что LIT -слово немедленного исполнения)
Код:
: LITERAL [COMPILE] LIT , ;
что я должен получить:
xt(COMPILE), xt(LIT), xt(,), xt(RETURN)
или
xt(LIT), xt(,), xt(RETURN) ?
