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

'''C!''' (записать байт, читается «си-присвоить») — стандартное слово [[Каллисто]]. Сохранить 8-битное число.
 C!             ( y a -- )                      Записывает байт y по адресу a.
Записывает число y по [[Единое адресное пространство|адресу]] a.

Если a указывает на [[Регистры байтовых данных|байтовую память]] (диапазон 11000…18167), [[Шестнадцатеричный формат|двоичный]] байт y записывается по [[Единое адресное пространство|адресу]] a. В этом случае допустимые значения y от -128 до 255.

Если a в диапазоне от 10000 до 10999, запись y проводится в [[десятичный регистр]].

== Ввод слова C! ==
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите три клавиши [[Клавиша С/П|{{Чёрная клавиша|С/П}}]] &nbsp; [[Клавиша P|{{Синяя клавиша|P}}]] [[Клавиша П|{{Чёрная клавиша|П}}]]

Эти нажатия оставляют клавиатуру в [[Режим NUM|режиме NUM]].

== C! в стандарте ANS Forth ==
<PRE>
 6.1.0850   C!                                "c-store"                     CORE
            ( char c-addr -- )
            Сохраняет char в c-addr. Когда размер символа меньше чем размер 
            ячейки, переданы только младшие биты, соответствующие размеру 
            символа.

        См.: 3.3.3.1 Выравнивание адреса.
</PRE>

== История ==
=== C! в предыдущем стандарте Forth-83 (англ.) ===
      C!           16b addr --                   79           "c-store"
           The least-significant 8 bits of 16b are stored into the byte
           at addr.

=== C! в стандарте Forth-79 (англ.) ===
 C!             n addr --                     219          "c-store"
     Store the least significant 8-bits of n at addr.

=== C! в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
 C!            b  addr  ---
        Store 8 bits at address. On word addressing computers, further
        specification is necessary regarding byte addressing.

== Реализация ==
<pre>
2257 STORE1:         KRMA KM8 KGOTO9                 ; Запись в десятичный регистр
…
2272 ;#CStore
2273 ; C!               ( y a −− )                           Записать байт y по адресу a.
2274 ; Может также записать число y в десятичный регистр, но не регистр функций.
2275 LCSTOR:         .DB     2
2276                 .TEXT   "C!"                    ; ( байт адрес −− )
2277                 .DW     LZSTORE
2278 CSTOR:          .DW     JCSTOR
2279 JCSTOR:         RM3 M8 1 + MA 1 + M3
2280                 KRM8 1 EE 4 −  KX>=09           ; Защита от записи в память программ
2281                 M8 1000 −  FX<0 STORE1          ; 1000 быстрее, чем 1 ВП 3
2282                 KRMA  FX<0 CSTOR2
2283                 RME +
2284 CSTOR2:         KM8 KGOTO9
</pre>

=== Советская реализация ===
Слово C! в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение:
<PRE>
C!        С,А-> ЗАСЛАТЬ БАЙТ С ПО АДРЕСУ А                      11

                     Экран номер 11
( 31.03.86      !  0!  @  С!  С@  , С, EXECUTE )

CODE C!  ( C,A-> )      14 LHRW12 BAL, RW2 RMASK NR,
 RW1 0 (, RW2 RFORTH STC,    2POP  B,   END-CODE
</PRE>
В FORTH ИТЭФ слово C! также было [[примитив]]ом, вот его определение:
<PRE>
            HEAD     202Q,'C',241Q,CSTOR                  ; C!
            POP  BX
            POP  AX
            MOV  BYTE PTR [BX],  AL
            NEXT
</PRE>

== Ссылки ==
* {{Исходник|CStore|C!}}
* См. слова [[C@]], [[Слово !|!]], [[Слово П|П]] и [[Символ с кодом 33|символ !]]
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0850 C! (c-store)] в стандарте ANS Forth ''(англ.)''
* Слово [http://forth-standard.org/standard/core/CStore C! (c-store)] в черновике Forth 200x ''(англ.)''
* [http://www.forth.com/starting-forth/sf8/sf8.html Variables, Constants, and Arrays] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)''


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Работа с памятью Каллисто]]
[[Категория:Стандартные слова]]
[[Категория:1994 CORE]]
[[Категория:2012 CORE]]
@@ Строка 55: / Строка 55: @@
                  RME +
 CSTOR2:         KM8 KGOTO9
-</pre>
-Реализация из SP-Forth 4.20:
-<pre>
-CODE C! ( char c-addr -- ) \ 94
-\ Записать char по адресу a-addr.
-     MOV EDX, [EBP]
-     MOV BYTE [EAX], DL
-     MOV EAX, 4 [EBP]
-     LEA EBP, 8 [EBP]
-     RET
-END-CODE
 </pre>