DPL

DPL (читается «ди-пи-эл») — фортовская переменная Каллисто.

DPL            ( −− a )                             Переменная, позиция последней запятой
                                                    в последнем введённом числе от конца.

Ввод слова DPL

В режиме ЛАТ последовательно нажмите три клавиши  K   6   − 

История

Слов DPL взято из ранних стандартов Форта, где означало Decimal Point Location (англ. позиция десятичной точки).

Форт−79 определяет DPL правильно. Но при этом почему−то говорит о выводе, а не о вводе числа.

Переменная DPL была убрана из стандарта в 1994 году. Точка перестала разделять целую и дробную части в числе с фиксированной запятой и официально разрешена в Форте лишь в конце чисел, для указания двойных целых (англ. double cell).

DPL в предыдущем стандарте Forth-83 (англ.)

     DPL          -- addr                       U              "d-p-l"
          A variable containing the number of places after the
          fractional point for input conversion.

DPL в стандарте Forth-79 (англ.)

DPL            -- addr                                      "d-p-l"
    A   variable  containing  the  number  of  places  after   the
    fractional point for output conversion.  If DPL contains zero,
    the  last character output will be a decimal point.   No point
    is  output if DPL contains a negative value.   DPL may be  set
    explicitly,  or by certain output words,  but is unaffected by
    number input.

DPL в fig-FORTH Release 1 glossary, май 1979 (англ.)

DPL           ----  addr                     U,L0
       A user variable containing the number of digits to the right of the
       decimal on double integer input. It may also be used hold output
       column location of a decimal point, in user generated formating. The
       default value on mingle number input is -1.

Реализация

 102 rrDPL           .EQU     1112                   ; 11112  DPL − позиция (десятичной) запятой в числе
 103 pDPL            .EQU      112
…
2873 ;#DPL
2874 ; DPL              ( −− a )                             Переменная, позиция последней запятой в последнем введённом числе от конца.
2875 LDPL:           .DB     3
2876                 .TEXT   "DPL"
2877                 .DW     LBASE
2878 DPL:            .DW     SUSE
2879                 .DB pDPL

Советская реализация

Описание и определение переменной DPL в ядре ФОРТ-ЕС:

DPL   +П->А ПЕРЕМЕННАЯ - ПОЗИЦИЯ ПОСЛЕДНЕЙ ТОЧКИ                 8
          В ПОСЛЕДНЕМ ВВЕДЕННОМ ЧИСЛЕ ОТ КОНЦА

                      Экран номер 8
( 09.09.86   СИСТЕМНЫЕ ПЕРЕМЕННЫЕ -   ОКОНЧАНИЕ)

VARIABLE   DPL      (  ПОЗИЦИЯ ДЕСЯТИЧНОЙ ТОЧКИ В ЧИСЛЕ)

Определение переменной DPL в FORTH ИТЭФ:

            HEAD     203Q,'DP',314Q,DPL,$USE              ; DPL
            DW 60Q

Ссылки

• Исходный текст слова DPL в Каллисто Классик 1.0
• См. слова FLITERAL, NUMBER, EE и FL
• ВВОД-ВЫВОД в книге Л.Броуди «Начальный курс программирования на языке Форт»
• I/O and You в книге Leo Brodie Starting Forth (англ.)

У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.

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