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

'''ENCLOSE''' (окружить) — фортовское слово [[Каллисто]].
 ENCLOSE        ( a1 c −− a2 u1 u2 )                 Окружить. Выделить лексему с адреса a1 и ограничительным символом c.
Слово ENCLOSE — важный [[примитив]], делающий «чёрную работу» для [[WORD]].

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

== ENCLOSE в fig-FORTH Release 1 glossary, май 1979 (англ.) ==
 ENCLOSE addr1 c -- addr1 n1 n2 n3
        The text scanning primitive used by WORD. From the text address
        addr1 and an ascii delimiting character c, is determined the byte
        offset to the first non-delimiter character n1, the offset to the
        first delimiter after the text n2, and the offset to the first
        character not included.
        This proceedure will not process past an ascii 'null', treating it
        as an unconditional delimiter.

== Реализация ==
Слово ENCLOSE в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение:
<PRE>
ENCLOSE  * A,C->A,N1,N2,N3 ВВОД СЛОВА                           27

                     Экран номер 27
( 31.03.66    ENCLOSE  WORD )

CODE ENCLOSE ( A,C->A,N1,N2,N3) 14  LHRW12 BAL, RW1 RMASK NR,
  RW1 RFORTH AR,  14 14 SR,   0 0 SR,
 BEGIN,   0 0 (, 14  RW1 IC,   0 0 LTR,   2 =F  BZ,
     14 1 (, 0 14 LA, 0 RW2 CR, ?NE UNTIL,  14 0 BCTR,
2 =Н 14 PUT,
BEGIN,   1 14 LR,  0 0 (, 1 RW1 IC, 0 0 LTR,
  2 =F BZ,  14 1 (, 0 14 LA, 0 RW2 CR,   ?E UNTIL,
2 =Н  1 PUSH, RW1 14 LR,   PUSHRW1 В, END-CODE
</PRE>

В FORTH ИТЭФ слово ENCLOSE называлось ENCL и также было [[примитив]]ом, вот его определение:
<PRE>
   ;         ******************

             HEAD    204Q,'ENC',314Q,ENCL                 ; ENCLOSE
             POP   AX         ; разделитель

             POP   CX         ; начальный адрес
             MOV   BX, CX
   A:        CMP   BYTE PTR  [BX], AL ; обход разделителей в начале
             JNE   NOTEQ
   AAA:      INC   BX
             JMP   A
   NOTEQ:    CMP   BYTE PTR  [BX], 15Q
             JE    AAA
             CMP   BYTE PTR  [BX], 12Q
             JE    AAA
             MOV   DX, BX               ; начало лексемы
             PUSH  DX
   AA:       CMP   BYTE PTR  [BX],  0
             JE    ZZZ                  ; если нуль
             CMP   BYTE PTR  [BX], AL  ; не нуль, ищем конец лексемы
             JE    QW
             INC   BX
             JMP   AA
   EQW:      MOV   AX, BX
             SUB   BX, DX
             PUSH  BX
             SUB   AX, CX
             INC   AX
             PUSH  AX
             NEXT
   ZZZ:      CHP   BX, DX
             JNE   EQW
             INC   BX
             JMP   EQW
</PRE>

== Ссылки ==
* {{Исходник|ENCLOSE|ENCLOSE}}
* См. слово [[WORD]]


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
@@ Строка 17: / Строка 17: @@
 == Реализация ==
-<pre>
-;#ENCLOSE
-; ENCLOSE          ( a1 c −− a2 u1 u2 )                 Окружить. Выделить лексему с адреса a1 и ограничительной литерой c.
-;               ∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗∗
-; Делает смелое предположение, что дело происходит не в памяти программ
-LENCL:          .DB     7
-                 .TEXT   "ENCLOSE"               ; ENCLOSE  ( a1 c −− a2 len da )
-                 .DW     LGREAT
-ENCL:           .DW     JENCL
-JENCL:          RM3 MA 1 + MB
-                 KRMA M0                         ; R0 Разделитель
-                 KRMB 1 EE 4 − M8 M5             ; R5 Начальный адрес
-A:              Cx KRM8 RM0 −                   ; Обход разделителей в начале
-                 FX=0 NOTEQ
-AAA:            RM8 1 + M8  GOTO A
-NOTEQ:          RM0 32 −  FX=0 ENCLNSP          ; Только если пробел, проверить другие литеры
-                 KRM8 9 −  FX!=0 AAA             ;  9 TAB
-                 1 −  FX!=0 AAA                  ; 10 LF
-                 3 −  FX!=0 AAA                  ; 13 CR
-ENCLNSP:        Cx EE 4 RM8 M7 + KMB            ; Начало лексемы
-                 RM0 32 −  FX!=0 AASP
-AA:             Cx KRM8  PX!=0 ZZZ              ; Если нуль
-                 RM0 −  PX!=0 EQW
-                 RM8 1 + M8  GOTO AA
-AASP0:          RM8 1 + M8
-AASP:           Cx KRM8  PX!=0 ZZZ              ; Если нуль
-                 32 −  PX!=0 EQW                 ; 32 пробел
-                 FX<0 AASP0                      ; Пропустить всё, что больше пробела
-                 23 +  FX!=0 EQW                 ;  9 TAB
-                 1 −  FX!=0 EQW                  ; 10 LF
-                 3 −  PX=0 AASP0                 ; 13 CR
-EQW:            RM8 RM7 − KMA
-                 RM8 1 + RM5 − KM3
-                 KGOTO9
-ZZZ:            RM8 RM7 −  FX=0 EQW0
-                 EE                              ; 0 −> 1
-EQW0:           KMA
-                 RM8 RM5 − KM3
-                 KGOTO9
-</pre>
-=== Советская реализация ===
 Слово ENCLOSE в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение:
 <PRE>