SAVE"
SAVE" — встроенное слово Каллисто. Сохранить сеанс работы с Каллисто на внутренний диск МК-161.
SAVE" ( −− ) Сохранить сеанс в файлы D/B с именем, взятым из входного потока.
Сохранить в файлы словарь Форта и десятичный словарь. SAVE" эффективно сохраняет состояние Каллисто и позволяет быстро использовать уже разработанные словари, без повторной компиляции.
Ввод слова SAVE"[править]
В режиме ЛАТ последовательно нажмите клавиши 1 ШГ← ↔ ИП P F 2
Эти нажатия оставляют клавиатуру в режиме NUM.
Не забудьте, что после кавычки должен стоять как минимум один пробел, отделяющий слово SAVE" от его аргумента, имени файла. Имя создаваемого образа должно заканчиваться кавычкой или концом строки.
Реализация[править]
4122 ;#SAVEq 4123 ; SAVE" ( −− ) Сохранить сеанс в файлы D/B с именем, взятым из входного потока. 4124 ; Сохранить в файлы словарь Форта и десятичный словарь. 4125 LSAVEQ: .DB 5 4126 .TEXT "SAVE" ; SAVE" ( "<пр>имя−файла" −− ) 4127 .DB 34 ; '"' 4128 .DW LRW 4129 SAVEQ: .DW CALL, FLUSH ; Сбросить флаг UPDATE 4130 .DW BL,KAT, LITB ; Перейти в каталог "Каллисто " 4131 .DB 34 4132 .DW WORD, COUNT, UPPER ; Получить имя файла. 4133 .DW LITB 4134 .DB 13 ; 13 4135 .DW DUP,IP, SWAP ; ( 13 −− @R13,13) 4136 .DW VERSION, OVER, RSTO ; ( @R13,13 −− @R13,13) 4137 .DW HERE,LITB 4138 .DB 4 4139 .DW ZERO,RERW, DUP,QERR ; Записать десятичный файл. 4140 .DW HERE,LITB 4141 .DB 6 4142 .DW ZERO,RERW,CLD, DUP,QERR ; Записать двоичный файл. 4143 .DW RSTO, DISKOFF, EXIT ; Восстановить R13 и выйти.
Ссылки[править]
- Исходный текст слова SAVE" в Каллисто Классик 1.0
- См. слова LOAD" и LOAD
- См. также слово ВЫКЛ
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |