Программирование на УКНЦ как?

[form]

Подскажите, как правильно по системному запретить передачу кодов клавиш от клавиатуры на терминал, но при этом самому эти коды получать?
Приведу пример: я вывожу какую-то информацию на экран, после чего спрашиваю "Continue?". Тут человек должен нажать любую клавишу, и программа продолжится. Если делать опрос клавиш через EMT 340, то коды клавиш отображаются на экране, а мне этого не надо. Если же делать через чтение данных напрямую из канала 0 (канал клавиатуры), то символы все равно отправляются в монитор и потом печатаются. Т.е. какая-то должна быть системная функция, запрещающая выводить на терминал коды приходящих клавиш, но я ее не знаю.

Для этого надо установить бит TTSPC$ (12й) в $JSW (44).

к примеру:

        .MCALL  .TTYIN,.PRINT,.EXIT

$JSW    =       44
TTSPC$  =       10000

TEST:   BIS     #TTSPC$,@#$JSW
        .PRINT  #PROMPT
        .TTYIN
        .EXIT

PROMPT: .ASCII  /--->/<200>

печатает подсказку, ждет нажатия клавиши, выходит

---------- Post added at 17:46 ---------- Previous post was at 17:44 ----------

Другой вариант - запретить прерывания от клавиатуры и работать напрямую с регистрами, но этот вариант несовместим с виртуальными программами и не будет работать в системах с поддержкой многотерминальности.

---------- Post added at 17:57 ---------- Previous post was at 17:46 ----------

Еще дополнение - иногда полезен бит TCBIT$ (6й) - при его установке .TTINR (EMT 340) не останавливается в ожидании символа, а проходит дальше с установленным битом C если ничего не нажато.

[Advertiser]

[Titus]

Для этого надо установить бит TTSPC$ (12й) в $JSW (44).

Спасибо! Буду сейчас пробовать.
А есть документация по этим битам?

---------- Post added at 15:49 ---------- Previous post was at 15:20 ----------

Сделал вот так:

		.Print	#NextPage		;Печатаем сообщение "Next page?"

		.Print	#KeyON			;Включить клавиатуру

  		 BIS     #TTSPC$,@#$JSW		;Запрет отображения символов на экране
  		 .TTYIN				;Ожидание нажатия клавиши
  		 CMP	R0,#13			;Если код = 13 (Возврат каретки),
  		 BNE	6$			;то ожидаем еще один код = 10 (перевод строки)
  		 .TTYIN				;	 
6$:			 
		.Print	#KeyOFF			;Отключить клавиатуру
		
		.Print	#NextLine		;Переходим на следующую строку

...

NextPage:	.ASCII	"Next page?"<128>
NextLine:	.ASCII	<13><10><128>
KeyOFF:		.ASCII	<27><91><50><104><128>
KeyON:		.ASCII	<27><91><50><108><128>

Отключение клавиатуры ESCAPE-последовательностью делаю для того, чтобы во время работы основной программы не пришло прерывание от канала клавиатуры и не сбило мне измерения.

[form]

Спасибо! Буду сейчас пробовать.
А есть документация по этим битам?

---------- Post added at 15:49 ---------- Previous post was at 15:20 ----------

Сделал вот так:

		.Print	#NextPage		;Печатаем сообщение "Next page?"

		.Print	#KeyON			;Включить клавиатуру

  		 BIS     #TTSPC$,@#$JSW		;Запрет отображения символов на экране
  		 .TTYIN				;Ожидание нажатия клавиши
  		 CMP	R0,#13			;Если код = 13 (Возврат каретки),
  		 BNE	6$			;то ожидаем еще один код = 10 (перевод строки)
  		 .TTYIN				;	 
6$:			 
		.Print	#KeyOFF			;Отключить клавиатуру
		
		.Print	#NextLine		;Переходим на следующую строку

...

NextPage:	.ASCII	"Next page?"<128>
NextLine:	.ASCII	<13><10><128>
KeyOFF:		.ASCII	<27><91><50><104><128>
KeyON:		.ASCII	<27><91><50><108><128>

Отключение клавиатуры ESCAPE-последовательностью делаю для того, чтобы во время работы основной программы не пришло прерывание от канала клавиатуры и не сбило мне измерения.

Документация есть на pdp-11.nsk.ru кажется System Internals называется для RT-11 V5.6 PDFы настоящие - не сканы.

Замечу, что 27 это не ESC (равно как и 13 - не CR), а 128 - вообще ошибка - по умолчанию циферки восьмеричные если в конце нет точки. Если хочется по умолчанию десятичные сделать - нужно добавить в начале директиву .RADIX 10, но лучше все-таки исходить из стандартных умолчаний

Также код клавиши лучше сравнивать байтово - на всякий случай

[Titus]

Замечу, что 27 это не ESC (равно как и 13 - не CR), а 128 - вообще ошибка - по умолчанию циферки восьмеричные если в конце нет точки. Если хочется по умолчанию десятичные сделать - нужно добавить в начале директиву .RADIX 10, но лучше все-таки исходить из стандартных умолчаний

Также код клавиши лучше сравнивать байтово - на всякий случай

У меня в начале исходника стоит .RADIX 10, т.к. восмеричная система - это не для меня. Она ближе PDP-шникам. А я привык к десятичной и шестнадцатиричной.
А на счет байтов - согласен.

[Voxel]

form, Спасибо)

[form]

Всегда пожалуйста
Собраться бы с силами да рассортировать все, что есть и каталогизировать...

[Vamos]

Вот Си если еще нужен, диск загрузочный.

[Voxel]

Может кто знает. Решил познакомится с Фортраном. Пролистал книгу по нему (именно по 77 версии). В общем то оказался тот же Бейсик, ни чего в нем сложного нет.
Возникли такие вопросы:
1. Толи я пропустил, то ли не уловил. Я так понимаю Фортран транслируемый язык. То есть готовую программу нельзя откомпилировать в запускаемый файл?

2. Не нашел в книге, возможно это не реализовано. Может ли Фортран работать с портами и памятью? Можно ли делать вставки на ассемблере?

[Patron]

Я так понимаю Фортран транслируемый язык. То есть готовую программу нельзя откомпилировать в запускаемый файл?

Слово "транслируемый" чаще всего означает то же самое, что и "компилируемый". Компилятор фортрана производит объектный код ( файл .OBJ ), который затем компонуется с библиотекой и даёт в результате исполнимый файл ( .SAV ).

Не нашел в книге, возможно это не реализовано. Может ли Фортран работать с портами и памятью? Можно ли делать вставки на ассемблере?

Насчёт ассемблерных вставок - это вряд ли, а вот использование каких-то подпрограмм для доступа к ячейкам, типа PUT(adr,val) и GET(adr) - то почему бы и нет. Нужно только найти правильные имена в описании системной библиотеки фортрана ( SYSLIB ).

[form]

Насчёт ассемблерных вставок - это вряд ли, а вот использование каких-то подпрограмм для доступа к ячейкам, типа PUT(adr,val) и GET(adr) - то почему бы и нет. Нужно только найти правильные имена в описании системной библиотеки фортрана ( SYSLIB ).

Можно использовать подпрограммы/функции на ассемблере. Принцип такой: создается файл .MAC с нужными подпрограммами, имя подпрограммы совпадает с меткой ассемблера (должна быть объявлена глобальной). На входе R5 указывает на вектор в котором первое слово - количество переданных аргументов, а следующие слова - адреса передаваемых параметров или -1 (177777 восьм.) если параметр пропущен. Если это функция, возвращать параметры можно через R0 (R0:R1 для двухсловных значений). Все регистры можно менять. Дополнительно остановлюсь на том, что в фортране параметры подпрограмм всегда передаются ссылкой в отличие от C или паскаля, если делается скажем CALL XXX(1), а внутри подпрограммы SUBROUTINE XXX(I) делается присвоение вида I = 3, то при следующем попадании на этот же вызов, в качестве аргумента будет передано 3.

Пример:

Фортран:

        J = IFUFL(1, 2, , 'TEXT', , I)

Ассемблер:

IFUFL::
;
; В ЭТОМ МЕСТЕ:
;   (R5) - 6 (ЧИСЛО АРГУМЕНТОВ)
;  2(R5) - ССЫЛКА НА АРГУМЕНТ "1"
;  4(R5) - ССЫЛКА НА АРГУМЕНТ "2"
;  6(R5) - -1 (АРГУМЕНТ ПРОПУЩЕН)
; 10(R5) - ССЫЛКА НА ASCIZ СТРОКУ 'TEXT'
; 12(R5) - -1 (АРГУМЕНТ ПРОПУЩЕН)
; 14(R5) - ССЫЛКА НА АРГУМЕНТ "I"
;
...
        MOV     #123456,R0      ;ВОЗВРАЩАЕМОЕ ЗНАЧЕНИЕ
        RETURN                  ;ВОЗВРАТ ПО RTS PC

Живой пример:

	PROGRAM TEST
	CALL TXT('LALALA','XAXAXA',,'BUBUBU')
	CALL EXIT
	END



	.TITLE	TXT -- ПЕЧАТЬ ТЕКСТОВЫХ СТРОК
	.MCALL	.PRINT

TXT::	MOV	(R5)+,R1	;ЧИСЛО АРГУМЕНТОВ
	BEQ	30$		;EQ - НЕТ АРГУМЕНТОВ
10$:	MOV	(R5)+,R0	;АДРЕС ОЧЕРЕДНОГО АРГУМЕНТА
	CMP	#-1,R0		;ЕСЛИ -1 - АРГУМЕНТ ПРОПУЩЕН
	BEQ	20$		;...ПРОПУСКАЕМ
	.PRINT			;ПЕЧАТАЕМ СТРОКУ
20$:	SOB	R1,10$		;ЦИКЛИМСЯ ПОКА ЕСТЬ АРГУМЕНТЫ
30$:	RETURN			;ВОЗВРАЩАЕМ УПРАВЛЕНИЕ

	.END


.SET FOR F77

.FORT F

.MAC A

.LIN F,A,SY:FORLIB/LIB

.RUN F
LALALA
XAXAXA
BUBUBU

.