Редактирование: COLD

'''COLD''' («холодный» старт) — фортовское слово [[Каллисто]]. «Холодная» перезагрузка.
 COLD           ( −− )                               Холодная перезагрузка, со сбросом словаря.
[[Словарь]] приводится в исходное состояние. Все слова, определённые после стандартного слова [[TASK]], удаляются. COLD не возвращает управление назад. Всё, идущее после COLD, игнорируется.

== Ввод слова COLD ==
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите четыре клавиши [[Клавиша С/П|{{Чёрная клавиша|С/П}}]] [[Клавиша 5|{{Серая клавиша|5}}]] [[Клавиша -|{{Серая клавиша|−}}]] [[Клавиша K|{{Синяя клавиша|K}}]]

== Детали реализации ==
COLD это первая словарная статья. Это [[примитив]], то есть COLD написан на [[ЯМК]]. COLD инициализирует [[Регистр памяти данных|регистры ЭКВМ]], использующиеся [[Каллисто]], включая оба словаря — [[Словарь|двоичный]] и [[Десятичный словарь|десятичный]], после чего передаёт управление на адресный интерпретатор, который начинает исполнение шитого кода.

Высокоуровневая часть COLD выводит на экран номер версии [[Каллисто]], после чего передаёт управление слову [[WARM]].

== История ==
=== COLD в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
 COLD
        The cold start proceedure to adjust the dictionary pointer to
        the minimum standard and restart via ABORT.
        May be called from the terminal to remove application programs and
        restart.

== Реализация ==
[[Каллисто|Каллистянское]] слово COLD в FORTH ИТЭФ называется INI (первые три буквы английского слова ''initialization'', инициализация). INI начинается с ассемблерного кода, после чего инициализирует регистры и переходит исполнению шитого кода:
<pre>
       ASSUME  CS:ARRAY, DS:ARRAY, ES:ARRAY, SS:STACK

   $INI      PROC    FAR
             JMP  ENT
   ; ** PRIMITIVES **

             HEAD    203Q,'IN',311Q,INIT                  ;INI
   ENT:      MOV   CX, ARRAY
             MOV   DS, CX          ; Установка DX
             MOV   ES, CX
             MOV   BX, $US
             MOV   AX, $STI        ; Восстановление словаря
             LEA   SI, FORTH+6
             MOV   [SI], AX
             MOV   SI, $BUF
             MOV   CX, 1730        ; Установка счетчика
   XXX:      MOV   WORD PTR [SI],0 ; Обнуление массивов
             ADD   SI, 2
             LOOP  XXX

   ; INIT 'OFFSET, USE, PREV

             MOV   CX, $BUF         ; TO 'USE'
             MOV   [BX]+72Q,CX
             MOV   [BX]+74Q,CX      ; ?
             MOV   CX, 14Q          ; Установка счетчика USER
             MOV   DI, $US          ; Запись адреса области USER
             ADD   DI, 6
             LEA   SI, $STK         ; Запись начального адреса
   REP       MOVS  WORD PTR ES:[DI],HORD PTR DS:[SI]
             MOV   BP, $RS          ; Установка начального значения
             MOV   DI, $US          ; указателя стека возвратов
             MOV   WORD PTR [DI+32Q],7  ; Установка цвета
             MOV   WORD PTR [DI+42Q],0  ; Сброс флага печати
             LEA   SI, G0$
             NEXT
   G0$:      DW SPSTO,DEC,FORTH,DEFIN,ONE,LOAD
   $INI      ENDP
             ...
   END        $INI
</pre>

== Ссылки ==
* {{Исходник|COLD|COLD}}
* См. статью [[Начальная загрузка Каллисто]]
* См. слова [[QUIT]], [[ABORT]] и [[BYE]]
* См. также [[WARM]] — «горячий» старт.
* [https://ru.wikipedia.org/wiki/%D0%9F%D0%B5%D1%80%D0%B5%D0%B7%D0%B0%D0%B3%D1%80%D1%83%D0%B7%D0%BA%D0%B0 Перезагрузка в Википедии]


{{нет иллюстраций}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
@@ Строка 1: / Строка 1: @@
 '''COLD''' («холодный» старт) — фортовское слово [[Каллисто]]. «Холодная» перезагрузка.
   COLD           ( −− )                               Холодная перезагрузка, со сбросом словаря.
-[[Словарь]] приводится в исходное состояние. Все слова, определённые после стандартного слова [[TASK]], удаляются. COLD не возвращает управление назад. Символы, идущие во входном потоке после COLD, игнорируются.
+[[Словарь]] приводится в исходное состояние. Все слова, определённые после стандартного слова [[TASK]], удаляются. COLD не возвращает управление назад. Всё, идущее после COLD, игнорируется.
 == Ввод слова COLD ==
@@ Строка 7: / Строка 7: @@
 == Детали реализации ==
-COLD это первая словарная статья. Это [[примитив]], то есть COLD написан на [[ЯМК]]. COLD инициализирует [[Регистр памяти данных|регистры ЭКВМ]], использующиеся [[Каллисто]], включая оба словаря — [[Словарь|двоичный]] и [[Десятичный словарь|десятичный]], после чего передаёт управление на [[адресный интерпретатор]], который начинает исполнение [[Шитый код|шитого кода]].
+COLD это первая словарная статья. Это [[примитив]], то есть COLD написан на [[ЯМК]]. COLD инициализирует [[Регистр памяти данных|регистры ЭКВМ]], использующиеся [[Каллисто]], включая оба словаря — [[Словарь|двоичный]] и [[Десятичный словарь|десятичный]], после чего передаёт управление на адресный интерпретатор, который начинает исполнение шитого кода.
-Высокоуровневая часть COLD выводит на [[индикатор]] номер версии [[Каллисто]], после чего передаёт управление слову [[WARM]].
+Высокоуровневая часть COLD выводит на экран номер версии [[Каллисто]], после чего передаёт управление слову [[WARM]].
 == История ==
@@ Строка 20: / Строка 20: @@
 == Реализация ==
-В [[Каллисто|Каллисто 1.0]] слово COLD начинается на [[Язык МК|языке МК]], инициализирует [[USER|переменные USER]] и переходит на исполнение [[Шитый код|шитого кода]]:
-<pre>
-; Эта часть переменных инициализируется в COLD
-;
-nbEmpty         .EQU      126                   ; 126 сколько байт обнулит COLD перед инициализацией _FONT и далее
-; Описание активного шрифта
-; Порядок полей важен, они заполняются словом FONT!
-;
-pFONT           .EQU      126                   ; 11126  _FONT − Структура терминала, описывающая активный шрифт
-rrCHW           .EQU     1126                   ; 11126  +0  максимальная ширина литеры при выводе на индикатор
-rrCHH           .EQU     1127                   ; 11127  +1  высота литеры при выводе на индикатор
-rrBSW           .EQU     1128                   ; 11128  +2  ширина курсора и средней литеры для BS
-rrSCRLN         .EQU     1129                   ; 11129  +3  на сколько линий поднять экран при прокрутке
-rrSCRLFIX       .EQU     1130                   ; 11130  +4  на сколько строк поднять курсор после прокрутки
-rrS0            .EQU     1131                   ; 11131  S0 − Указатель начала стека параметров
-rlS0            .EQU     1132
-pS0             .EQU      131
-rrR0            .EQU     1133                   ; 11133  R0 − Указатель начала стека возвратов
-rlR0            .EQU     1134
-pR0             .EQU      133
-rrDDP           .EQU     1135                   ; 11135  ДH − Указатель на первую свободную ячейку десятичного словаря
-rlDDP           .EQU     1136
-pDDP            .EQU      135
-rrDP            .EQU     1137                   ; 11137  H − Указатель на первую свободную ячейку словаря H @ = HERE
-pDP             .EQU      137
-rlDP            .EQU     1138
-rrVOCLINK       .EQU     1139                   ; 11139  VOC−LINK − Переменная связи наборов слов
-pVOCLINK        .EQU      139
-rrAUTOEXEC      .EQU     1141                   ; 11141  APP − код отсюда будет выполняться сразу после WARM
-pAUTOEXEC       .EQU      141
-rlAUTOEXEC      .EQU     1142
-…
-;#COLD
-; COLD             ( −− )                               Холодная перезагрузка, со сбросом словарей.
-;−−−−−−−−−−−−−−−−−−−−−−−−
-; Первая словарная статья
-; Слово COLD может использоваться, как более суровый вариант FORGET TASK
-LCOLD:          .DB     4                       ; NFA: байт−счётчик 4 − длина имени
-                 .TEXT   "COLD"                  ; Имя слова, длина переменная и записана в байте счётчика
-                 .DW     0                       ; LFA: Поле связи равно 0, завершающее слово набора FORTH
-COLD:           .DW     JCOLD                   ; CFA: Поле кода ссылается на поле параметров, слово на ЯМК
-JCOLD:                                          ; PFA: Поле параметров содержит программу на ЯМК
-                 2 PPM 9010                      ; Инициализация графического экрана, шрифт 0
-                 256 ME                          ; В RE всегда 256, экономит память и время
-                 .NUMT   nbEmpty                 ; Столько байт предстоит обнулить
-                 M0
-                 999 M5                          ; Начиная с R1000, прединкримент
-                 Cx
-COLD0:          KM5  FL0 COLD0                  ; Обнулить их все!
-                 .NUMT   SSTR
-                 PPM 9042                        ; Читать шитый код из памяти программ
-                 44 M0                           ; Всего 17+27 байт
-CLDCPY:         PPRM 9044 KM5  FL0 CLDCPY       ; Копировать в байтовую область переменные USER + заготовку словаря
-                 PGOTO SETPRG                    ; Начать исполнять код из памяти программ
-SSTR:
-; Теневая таблица для инициализации _FONT и шести переменных USER (5+12=17 байт)
-                 .DB 8,8,6,1,0                   ; 11126..11130 rrCHW, rrCHH, rrBSW, rrSCRLN, rrSCRFIX для шрифта 0
-;
-;                   S0        R0        ДH       H        VOC−LINK   APP
-;                   1131      1133      1135     1137       1139     1141 ∗
-;               .DW rrXS0,    rrXR0,    10020,   rrXDP,   rrXVOC,    QUIT
-;               .DW 10998,    15090,    10020,   11170,    11159,    QUIT ∗
-                 .DB 2aH,0f6H, 3aH,0f2H, 27H,24H, 2bH,0a2H, 2bH,97H
-                 .DW QUIT                ; APP
-; Эти две статьи (27 байт) COLD переносит в словарь в области двоичных регистров
-; Их поле данных сможет меняться
-;
-;#FORTH
-; FORTH            ( −− )                               Сделать набор слов FORTH контекстным.
-; LFORTH:
-                 .DB     5                       ; 11143 = 2b87 = LFORTH:
-                 .TEXT   "FORTH"                 ; 11144:
-                 .DW     LLOADQ                  ; 11149:
-                 .DW     SDOEP                   ; 11151 = 2b8f = FORTH: (xt)
-                 .DW DOVOC                       ; 11153: Обработчик VOCABULARY для DOES>
-                 .DB 1,20H                       ; 11155: псевдозаголовок первого слова
-                 .DB 2bH,99H                     ; 11157: ссылка на LTASK в новой адресации
-                                                 ; Этим адресом инициализируется VOC−LINK
-                 .DW     0                       ; 11159 = 2b97 = XVOC: Это должно быть уже в байтовой памяти
-;#TASK
-; TASK             ( −− )                               Последнее слово ядра Каллисто.
-; В Форте слово TASK чаще всего используется оператором FORGET для сброса словаря в начальное состояние.
-;LTASK:
-                 .DB     4                       ; 11161 = 2b99 = LTASK
-                 .TEXT   "TASK"                  ; 11162:
-                 .DB     2bH,87H                 ; 11166: 11143 rrDict, ссылка на LFORTH в единой адресации
-                 .DW     JNOP                    ; 11168 = TASK: (xt)
-                                                 ; 11170 = 2ba2: этим адресом инициализируется H
-; Отсюда, из памяти программ, запускается шитый код −− сразу после "болванки" для инициализации USER и словаря.
-;
-                 .DW SPSTO,RPSTO                 ; Инициализировать оба стека
-                 .DW DARK,PDOTQ                  ; Вывести название и версию транслятора
-                 .DB 22                          ; Длина первой строки
-strForthM1:     .DB 12                          ; Начать с CLS
-                 .TEXT "Каллисто Классик 1.0"    ; Фраза означает, что Каллисто удалила словарь разработчика
-                 .DB 10                          ; Закончить LF
-                 .DW BRAN,RWARM                  ; Передать управление WARM (оптимизация)
-</pre>
-=== Советская реализация ===
 [[Каллисто|Каллистянское]] слово COLD в FORTH ИТЭФ называется INI (первые три буквы английского слова ''initialization'', инициализация). INI начинается с ассемблерного кода, после чего инициализирует регистры и переходит исполнению шитого кода:
 <pre>