Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте или
создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Правка может быть отменена.
Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия |
Ваш текст |
Строка 7: |
Строка 7: |
|
| |
|
| Эти нажатия оставляют клавиатуру в [[Режим ЛАТ|режиме ЛАТ]]. | | Эти нажатия оставляют клавиатуру в [[Режим ЛАТ|режиме ЛАТ]]. |
|
| |
| == Реализация ==
| |
| <pre>
| |
| 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
| |
| </pre>
| |
|
| |
|
| == Ссылки == | | == Ссылки == |