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
Ссылки[править]
- Исходный текст слова TYPE1 в Каллисто Классик 1.0
- См. также слова TYPE, C.
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |