(.")

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

(.") — служебное слово Каллисто.

(.")           ( −− )                               Слово, компилируемое в ."

Слово ." компилирует слово (.") для последующего вывода строки на индикатор, во время исполнения шитого кода.

Ввод слова (.")[править]

В режиме NUM последовательно нажмите клавиши $\mathrm{\overset{\rightarrow}{ШГ}}$    /−/     F   2    $\mathrm{\overset{\leftarrow}{ШГ}}$

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

Формально каллистянское слово (.") не входит в стандарты Форта, но это общепринятое имя для слова, которое есть практически в каждом Форте.

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

(.")                                              C+
       The run-time proceedure, compiled by ." which transmits the
       following in-line text to the selected output device. See .'"

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

3101 ;#XDotq
3102 ; (.")             ( −− )                               Слово, компилируемое в ."
3103 LPDOTQ:         .DB     4                               ; (.")
3104                 .TEXT   "(."
3105                 .DB     34
3106                 .TEXT   ")"
3107                 .DW     LCOUNT
3108 PDOTQ:          .DW CALL, I,COUNT,DUP,ONEP      ; I COUNT DUP 1+
3109                 .DW FROMR,PLUS,TOR,TYPE, EXIT   ; R> + >R TYPE

Реализация из SP-Forth 4.20:

0 VALUE (.")-CODE
…
: (.") ( T -> )
  COUNT TYPE
;
' (.") TO (.")-CODE

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

Слово (.") в ФОРТ-ЕС было примитивом. Ниже его описание и определение через ".

".      * Т-> НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ СТРОКУ Т                  28
  (.")     *К ->                         ПРОЦЕДУРА, КОМПИЛИРУЕМАЯ В ".""  28

                     Экран номер 28
( 31.03.86 LIT" COUNT ," " ". (."/ ." C" ( ,( QUIT ABORT )

: ".  ( T-> )   COUNT TYPE ;

CODE (.")  ( ->) 14 IPUSH BAL,  14 GOTO BAL, ] ". [

Определение слова (.") в FORTH ИТЭФ:

             HEAD    204Q,'(."',251Q,PDOTQ,$COL           ; (.")
             DW  I,COUNT,DUBL,ONEP
             DW  FROMR,PLUS,TOR,$TYPE,SEMI

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


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


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