TYPE1

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

TYPE1 (печать-один) — родное слово Каллисто.

TYPE1          ( a u −− )                           Напечатать на индикаторе в одну строку u литер от адреса a.

Вывести строку из памяти данных, заменяя управляющие коды и строго в одну строчку, до исчерпания количества символов или конца индикатора.

Ввод слова TYPE1[править]

В режиме ЛАТ последовательно нажмите клавиши  2    ,    6   ИП     P   1 

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

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

В Каллисто 1.0 слово TYPE1 выводит символы только из области данных:

 624 ;#TYPE1
 625 ; TYPE1            ( a u −− )                           Напечатать на индикаторе в одну строку u литер от адреса a.
 626 ; Вывести строку из памяти данных, заменяя управляющие коды и строго в одну строчку, до конца индикатора.
 627 LTYPE1:         .DB     5
 628                 .TEXT   "TYPE1"
 629                 .DW     LTYPE
 630 TYPE1:          .DW     JTYPE1                  ; Примитив
 631 JTYPE1:         9 EE 3 MA
 632                 RM3 M8  1 + MB  1 + M3
 633                 KRM8 M0 +/− KX<09               ; R0 := длина
 634                 KRMB 1 EE 4 − KX>=09
 635                 1 − M5
 636 TYPE1C:         KRMA MB
 637                 KRM5 PPM9020                    ; Вывести литеру
 638                 KRMA RMB −  FX=0 TYPEC3         ; Курсор сдвинулся с места?
 639                 PPM9020                         ; Вывести '.' ( RX==0)
 640                 KRMA RMB −  FX=0 TYPEC3         ; По−прежнему застряли?
 641                 Cx 127 MB KMA
 642                 Cx 7 + RMB PPM 9012             ; Вывод линии, признак продолжения строки
 643                 KGRPH  KGOTO9
 644 TYPEC3:         FL0 TYPE1C
 645                 KGRPH  KGOTO9

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


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


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