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

[gfd71]

Еще пример - использование прерываний в фортрановской программе.
Коментарии в ассемблерном коде.
В данном примере прога тупо крутится в цикле, печатая всякую фигню, при нажатии CTRL/C выходит.

а как то можно этот пример посмотреть?
мне нужно немного другое, по CTRL/B выйти из цикла в определённое место в программе, программка на ассемблере.

[Advertiser]

[form]

а как то можно этот пример посмотреть?

Если ссылки нет (возможно был аттач файла), то не сохранилось.

по CTRL/B выйти из цикла

CTRL/B не лучшая комбинация для RT-11 - в FB/XM/ZM монторах она используется.
Также нежелательно использовать CTRL/A (редкий случай - поддержка графдисплея), CTRL/F (FB/XM/ZM), CTRL/O, CTRL/Q, CTRL/S, CTRL/X (FB/XM/ZM) - они тоже используются в RT-11, некоторые варианты невозможно перехватить стандартными средствами.
Нежелательно также использовать CTRL/P - его часто используют по умолчанию терминальные программы (VTCOM например) и RTEM-11.
Кроме того в "наших| ФОДОСах была привычка заменять стандартный CTRL/O на CTRL/D

[gfd71]

CTRL/B не лучшая комбинация для RT-11 - в FB/XM/ZM монторах она используется.

мне для SJ,

ничего не сохранилось

[form]

мне для SJ

Лучше не закладываться на SJ, а просто учитывать возможные варианты.
А то потом рождаются мифы о том, что где-то TAB стирает символы по дороге на экране и тому подобное только от того, что не были учтены варианты

ничего не сохранилось

Ну в сущности связь фортрана с ассемблером очень проста, а работа с прерываниями требует большой аккуратности. Ну и нужно помнить, что большая часть фортрановских операций ввода-вывода не повторновходимы, а значит их нельзя использовать в обработчике прерывания.

[gfd71]

Ну в сущности связь фортрана с ассемблером очень проста,

ассемблер, фортрана пока не будет
крутится цикл- нажали комбинацию- перешли на нужное место в программе(ввод, печать итд итп)

Лучше не закладываться на SJ

задача узкая из моих

[form]

крутится цикл- нажали комбинацию- перешли на нужное место в программе(ввод, печать итд итп)

Ну так ничего сложного: нужно включить посимвольный режим и запрет ожидания - недавно показывал пример, в нужном месте делать проверку с помощью .TTINR - если ничего не нажато (установлен бит C), просто идти дальше, если нажато - смотреть что (вернет в R0) и реагировать соответственно.

[gfd71]

недавно показывал пример,

хороший пример, ещё раз спасибо и за подсказку тоже

- - - Добавлено - - -

с помощью .TTINR

TTYIN для этой цели не подходит????