INDEX

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

INDEX (индекс, указатель; оглавление, содержание) — фортовское слово Каллисто.

INDEX          ( c1 c2 −− )                         Вывести начальную строку экранов с номерами от c1 до c2.
Пример работы слова INDEX

Выводит на индикатор верхние строчки экранов, номера блоков которых входят в диапазон от нач до кон. Для экономии места на индикаторе после номера экрана пробела нет.

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

В режиме ЛАТ последовательно нажмите клавиши  7   4   K   ИП   0 

История[править]

Слово INDEX переходило из стандарта в стандарт в неизменном виде, но было исключено из них в 1994 году. Оно полезно в любой системе, имеющей поддержку блоков.

INDEX в предыдущем стандарте Forth-83 (англ.)[править]

     INDEX        u1 u2 --                      M
          Print the first line of each screen over the range {u1..u2}.
          This displays the first line of each screen of source text,
          which conventionally contains a title.

INDEX в стандарте Forth-79 (англ.)[править]

INDEX          n1 n2 --
    Print  the first line of each screen over the range  {n1..n2}.
    This  displays  the first line of each screen of source  text,
    which conventionally contains a title.

INDEX в fig-FORTH Release 1 glossary, май 1979 (англ.)[править]

INDEX          from to --
       Print the first line of each screen over the range from, to. This is
       used to view the comment lines of an area of text on disc screens.

Реализация[править]

3876 ;#INDEX
3877 ; INDEX            ( c1 c2 −− )                         Вывести начальную строку экранов с номерами от c1 до c2.
3878 ; Вывести на индикатор верхние строчки экранов, номера блоков которых входят в диапазон от нач до кон.
3879 ; Для экономии места на индикаторе после номера экрана пробела нет.
3880 LINDEX:         .DB     5
3881                 .TEXT   "INDEX"                 ; ( нач кон −− )
3882                 .DW     USLIST
3883 INDEX:          .DW CALL, OVER,SUB,ONEP, XFOR,INDX2
3884 INDX:           .DW CR, DUP, LITB
3885                 .DB 3
3886                 .DW DOTR, QBREAK, ZERO, OVER, DLINE, TYPE1
3887                 .DW ONEP, XNEXT,INDX
3888 INDX2:          .DW DROP, EXIT

Советская реализация[править]

Юрий Семёнов приводит следующее определение слова INDEX (стр. 105):

 : INDEX   1+ OVER - FOR ↵ ↑ 3 I.R SPACE 0  ( указание на нулевую
                                         строку)
           OVER (LINE) TYPE NEXT DROP ; ( м. табл. 20 )

Опубликовано лишь следующее описание слова INDEX из ФОРТ-ЕС. Оно ссылается на определение, отсутствующее на экране № 46:

INDEX   + N1,N2-> РАСПЕЧАТАТЬ НАЧАЛЬНУЮ СТРОКУ ЭКРАНОВ          46
          С НОМЕРАМИ ОТ N1 ДО N2

Определение слова INDEX в FORTH ИТЭФ:

             HEAD    205Q,'INDE',330Q,INDEX,$COL          ; INDEX
             DW  ONEP,SWAP,XDO
   INDX:     DW  CR,I,THREE,DOTR,SPACE,ZERO,I,DLINE
             DW  XLOOP,INDX-$,SEMI

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


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