SAVE"

Материал из ПМК вики
Перейти к навигации Перейти к поиску

SAVE" — встроенное слово Каллисто. Сохранить сеанс работы с Каллисто на внутренний диск МК-161.

SAVE"          ( −− )                               Сохранить сеанс в файлы D/B с именем, взятым из входного потока.
Пример работы слова SAVE"

Сохранить в файлы словарь Форта и десятичный словарь. SAVE" эффективно сохраняет состояние Каллисто и позволяет быстро использовать уже разработанные словари, без повторной компиляции.

Ввод слова SAVE"[править]

В режиме ЛАТ последовательно нажмите клавиши  1  $\mathrm{\overset{\leftarrow}{ШГ}}$     ИП     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 и выйти.

Ссылки[править]


  Stub-icon-48px.png Это заготовка статьи. Вы можете помочь проекту, дополнив её.