(NEXT): различия между версиями

Материал из ПМК вики
Перейти к навигации Перейти к поиску
Нет описания правки
Строка 15: Строка 15:
                       Экран номер 5
                       Экран номер 5
( 09.09.86  BRANCH  ?BRANCH  (LOOP/  (+LOOP/ )
( 09.09.86  BRANCH  ?BRANCH  (LOOP/  (+LOOP/ )
CODE  BRANCH  M: ВRANСН#
RI 0 (, RI RFORTH LH,    RI RMASK  NR,      RNEXT BR,


CODE  (LOOP)  RW1 1 LA,  1 =F B,
CODE  (LOOP)  RW1 1 LA,  1 =F B,

Версия от 07:41, 26 марта 2016

(NEXT) — стандартное слово Каллисто.

Конец цикла со счётчиком в шитом коде.

Это служебное слово, которое компилирует в шитый код слово NEXT. Нет ни малейшей необходимости использовать слово (NEXT) в прикладных программах.

Ввод слова (NEXT)

В режиме NUM последовательно нажмите клавиши  ШГ→     Р-ГРД-Г   4   ИП   0   2     P   ШГ← 

Реализация

Для реализации цикла со счётчиком в ФОРТ-ЕС служили примитивы (LOOP) и (+LOOP)

Вот их определения:

                      Экран номер 5
( 09.09.86  BRANCH  ?BRANCH  (LOOP/  (+LOOP/ )

CODE  BRANCH  M: ВRANСН#
 RI 0 (, RI RFORTH LH,    RI RMASK  NR,      RNEXT BR,

CODE  (LOOP)  RW1 1 LA,   1 =F B,
CODE (+LOOP)  RW1 POP,
1 =H  0 RFIRST LH,   0 RSECOND SH,   0 RMASK NR,
      0 RW1 AR,      RW1 RFIRST AH,  RW1 RFIRST STH,
      0 RMASK  CLR,   BRANCH# BNH,   RRET 6 (, 0 RRET LA,
      RI RTWO AR,  RNEXT BR,   END-CODE


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


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