ДALLOT

ДALLOT (дэ-распределить) — родное слово Каллисто.

ДALLOT         ( D −− )                             Сместить вершину десятичного словаря на D регистров.

Резервирует D десятичных регистров в десятичном словаре. Осмысленные значения D от -1000 до 1000, но обычно на порядки меньше.

Ввод слова ДALLOT

В режиме РУС последовательно нажмите клавиши  Выход     Р-ГРД-Г   ШГ←   −   −   5   2 

Эти нажатия оставляют клавиатуру в режиме ЛАТ.

Реализация

 142 rrDDP           .EQU     1135                   ; 11135  ДH − Указатель на первую свободную ячейку десятичного словаря
 143 rlDDP           .EQU     1136
…
2334 ;#deALLOT
2335 ; ДALLOT           ( D −− )                             Сместить вершину десятичного словаря на D регистров.
2336 LDALLOT:        .DB     6,132
2337                 .TEXT   "ALLOT"                 ; "ДALLOT" ( n −− )
2338                 .DW     LDHERE
2339 DALLOT:         .DW     JDALLOT                 ; Зарезервировать D десятичных регистров в десятичном словаре.
2340 JDALLOT:        RM3 MA 1 + M3
2341                 PPRM rlDDP KRMA +
2342                 ENT RME / FANS <−> KINT MA ∗ − PPM rlDDP
2343                 RMA KX!=09
2344                 PPRM rrDDP + PPM rrDDP
2345                 KGOTO9

Ссылки

• Исходный текст слова ДALLOT в Каллисто Классик 1.0
• См. слова ДHERE, ДH и Д,
• Ср. слово ALLOT

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

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