[1.4.6] RedPower 2 [Prerelease 6]

Предыдущая программа была ориентирована на взаимодействие компьютера с проводами.
На сей раз программа заблокирует возможность проводить какие-либо действия кроме ввода пароля.
Итак:
Сперва нам нужно хранить правильный пароль, но 1 переменной не достаточно.
Как хранить строку? Есть разные способы, но мы будем хранить их так как в Си:
Строка - последовательность байт, заканчивающиеся нулевым.
Каждый байт представляет собой 1 литеру.
Я выбрал это тип представления строки, т.к. данная реализация ФОРТа использует именно его.

Зарезервируем память:

DECIMAL10 ALLOTCONSTANT PASSWORD

Что тут происходит:
Слово ALLOT(n-->addr), резервирует n байт из кодофайла и записывает в стек адрес начала зарезервированной области. Далее создаётся константа, которая хранит это адрес.

Кодофайл -основной участок памяти, в котором хранятся все слова ФОРТа и данные, в т.ч. переменные и константы. Резервирование адресов происходит по возрастанию.

Пароль нам надо с чем-то сравнивать. Использовать арифметический стек в данном случае неудобно, т.к. внесенные в него символы будут возвращаться в обратном порядке.
Тогда создадим ещё одну переменную:

10 ALLOTCONSTANT BUF

(В данном примере пароль ограничен 10-ю символами. Это число может быть больше вплоть до 255)

Примечание: вместо создания строки вручную, можно создавать их также легко, как обычные переменные:
Для этого нужно создать слово описание:

: STRINGCREATE ALLOT ,  DOES> ;

И объявление предыдущей строки будет выглядеть так:

10 STRING BUF

НО! Т.к. я никак не могу найти что в данном ФОРТе использовано вместо слова DOES>, то я не неиспользовал это.

Далее, нам нужно как-то вводить пароль.
Для этого опишем слово:

: GETWORD10 0 DOKEYDUP 13 = IF    DROP    0 I BUF + C!    LEAVEELSE    DUP 8 = IF        I 0 <= IF            0        ELSE            BS -1        THEN    ELSE        DUP EMIT        I BUF + C!        1    THENTHEN+LOOP ;

Описание (с 3-й строки):
KEY(-->n) - ожидает нажатие клавиши, а после вносит его код в стек.
Сравниваем копию с символом "Enter".
Если это он, значит ввод слова закончен. Удаляем копию и после введенного слова ставим "Ноль" (Признак конца строки) и покидаем цикл.
Слово C!(n,addr-->), в отличии от !(n,addr-->), заносит только 1 байт.
Далее, если слово/пароль ещё не до конца введено, то сравниваем ещё одну копию с символом "Забой".
Если это он, то нужно удалить символ с экрана (если есть что удалять), а -1 понизит счётчик цикла (потом).
И наконец, по условию получается, что это символ, который нужно запомнить.
Слово EMIT(n-->) берёт число со стека, представляет как символ и выводит на дисплей.
Т.е. Ещё одну копию выводим на дисплей, а оригинал заносим в буфер. 1 увеличит счётчик.
Слово +LOOP(n-->) берёт число со стека и прибавляет его к счётчику (1 или -1, которые были внесены выше).

Итог: при запуске этого слова, необходимо ввести символы, которые будут помещены с буфер.

Обратите внимание, что в проверке на клавишу "Enter" и "Забой" используется их номера.
Есть простой способ, как узнать номер клавиши:

: ?KEYCR [paste][/paste]" Press any key: "KEY DUP [paste][/paste] SPACE EMIT ;

Эта программа выведет номер и символ нажатой клавиши.
Если вы хотите узнать коды сразу нескольких клавиш, то введите:

5 TIMES ?KEY

Теперь мы можем поменять пароль:

: SETPASSCR [paste][/paste]" Enter new password: "GETWORDBUF PASSWORDBUF STRLEN 1+ MOVE ;

Описание:
Просим пользователя ввести пароль.
Заносим в стек адреса строк.
Вычисляем длину нового пароля словом STRLEN(addr-->n), увеличиваем число на 1 (чтобы скопировался ноль в конце).
Слово MOVE(addr1,addr2,n-->) копирует участок в n байтов с началом addr1 по адресу addr2.

Чтобы посмотреть текущий пароль необходимо ввести:

PASSWORD TYPE

Опишем слово, которое будет сравнивать строку в буфере с паролем.
После выполнения она оставит на стеке логическое число (TRUE или FALSE).

: CHECKPASSTRUEPASSWORD STRLEN 1+ 0 DOBUF I + C@PASSWORD I + C@<> IFDROP FALSE LEAVETHENLOOP ;

Описание:
Оставляем на стеке "ИСТИНУ" (Если цикл не найдёт различий, то она останется).
Вычисляем длину пароля и запускаем цикл.
Берём 2 символа для сравнения: один из буфера, второй из пароля.
Если они не равны, то "сбрасываем" "ИСТИНУ", оставляем на стеке "ЛОЖЬ" и выходим из цикла.

Осталось описать слово блокировки (с интерфейсом):

: BLOCKBEGINPAGE[paste][/paste]" PC is bloked[paste][/paste]" CR[paste][/paste]" Enter password: "GETWORD CRCHECKPASS DUP IF    [paste][/paste]" You are right!"ELSE    [paste][/paste]" Wrong passwor!" CR    [paste][/paste]" You can try after "    1 3 DO        CR I [paste][/paste]        20 TICKS -1    +LOOPTHENUNTIL ;

Краткое описание:
В бесконечном цикле отчищаем экран и просим ввести пароль.
Сверяем его и дублируем результат (1 для IF-а, второй для UNTIL-а)
Если пароль правильный, пишем об успехе и UNTIL выпустит из цикла.
Если нет, то пишем о провале и не даём новой попытки 3 секунды. (Чтобы не перебирали слишком быстро)

Всё! Программа готова!
Удачи!

Написал программу, которая "распечатывает" содержимое памяти:

: DUMP (addr,n-->)0 DO DUP  C@ EMIT1+ LOOP ;

и заметил, что после перезагрузки часть данных сохраняется в памяти компьютера.
Та часть, в которой описаны новые слова и не перекрытые дискетой при загрузке.
Так что будте внимательны, если надумаете сохранить в компьютере что-то важное/секретное =)