Важная информация

User Tag List

Страница 24 из 24 ПерваяПервая ... 2021222324
Показано с 231 по 237 из 237

Тема: PASCAL + MACRO11 (УКНЦ-ДВК).

  1. #231
    Veteran Аватар для Oleg N. Cher
    Регистрация
    24.08.2007
    Адрес
    Днепропетровская обл.
    Сообщений
    1,065
    Спасибо Благодарностей отдано 
    304
    Спасибо Благодарностей получено 
    21
    Поблагодарили
    16 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Я не очень понял про многотерминальные системы. Есть ли какой-то другой более правильный способ опроса клавиатуры в RT-11? (с ожиданием нажатия, и без).

  2. #232
    Guru
    Регистрация
    30.11.2015
    Адрес
    г. Самара
    Сообщений
    2,951
    Спасибо Благодарностей отдано 
    54
    Спасибо Благодарностей получено 
    113
    Поблагодарили
    95 сообщений
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Oleg N. Cher Посмотреть сообщение
    Есть ли какой-то другой более правильный способ опроса клавиатуры в RT-11?
    .TTINR

  3. #233
    Veteran Аватар для Oleg N. Cher
    Регистрация
    24.08.2007
    Адрес
    Днепропетровская обл.
    Сообщений
    1,065
    Спасибо Благодарностей отдано 
    304
    Спасибо Благодарностей получено 
    21
    Поблагодарили
    16 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Хобот, лови для Паскаля. Спасибо Никите и Alex_K

    Код:
    VAR crtflg: INTEGER;
    
    PROCEDURE CrtInit;
    BEGIN /*$C
            .TITLE  CRT001
            MOV     @#^O177560, crtflg
            BIC     #^O100, @#^O177560
    */
    END {CrtInit};
    
    PROCEDURE CrtQuit;
    BEGIN /*$C
            MOV     crtflg, @#^O177560
    */
    END {CrtQuit};
    
    /*------------------------------- Cut here --------------------------------*/
    
    FUNCTION GetKey : INTEGER;
    BEGIN /*$C
            .TITLE  CRT002
            .GLOBL  RETKEY
            CLR     R1
            TSTB    @#^O177560         ; is char?
            BPL     RETN$              ; no char => return 0
    RETKEY: MOVB    @#^O177562, R1     ; A key code
            CMPB    R1, #^O33
            BNE     RETN$
    ESCKEY: TSTB    @#^O177560
            BPL     ESCKEY
            MOVB    @#^O177562, R1     ; char => low byte
            BIS     #^O15400, R1       ; ^O33 => high byte
    RETN$:  MOV     R1, 12(SP)         ; return result
    */
    END {GetKey};
    
    /*------------------------------- Cut here --------------------------------*/
    
    FUNCTION WaitKey : INTEGER;
    BEGIN /*$C
            .TITLE  CRT003
    WTKEY$: TSTB    @#^O177560         ; Ready?
            BPL     WTKEY$             ; No!
            JMP     RETKEY
    */
    END {WaitKey};
    - - - Добавлено - - -

    CrtInit нужен чтобы переключить ввод с эха на опрос процедурами GetKey и WaitKey. CrtQuit возвращает ввод обратно - его надо вызывать перед выходом в ОС. Можно было бы попробовать вставить эти вызовы прямо в процедуры опроса. Но если WaitKey ещё как-то будет работать, то GetKey нет - потому что в процессе работы программы ввод будет хапать то ОС (с выводом эха), то сама GetKey. Поэтому только такой механизм.

    У кого-нить есть OMSI Pascal, запатченный под возможность использовать в идентах символ "_"?

    У кого-нить есть линкер и Macro-11, запатченные под иденты длиннее 6 символов? Это вообще возможно?

  4. #234
    Оператор ДВК Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    5,905
    Спасибо Благодарностей отдано 
    1,202
    Спасибо Благодарностей получено 
    100
    Поблагодарили
    88 сообщений
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от nzeemin Посмотреть сообщение
    Ответ, очевидно: "возможно. переписывайте."
    Благодарю, что отозвался, Никита, но тут хочется именно скан-коды на выходе, а через регистры или системный .TTYIN это ж даже @Titus могёт ))) (это шутка, как и про 8-ми я на свой счёт не воспринимаю)
    В твоём варианте, кроме АР2 - в идеале надо бы ещё <ВК> двойной код отрабатывать ;-)
    Последний раз редактировалось hobot; 27.03.2020 в 03:06.
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  5. #235
    Member
    Регистрация
    13.07.2018
    Адрес
    г. Переславль-Залесский
    Сообщений
    133
    Спасибо Благодарностей отдано 
    0
    Спасибо Благодарностей получено 
    3
    Поблагодарили
    3 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Oleg N. Cher Посмотреть сообщение
    Я не очень понял про многотерминальные системы. Есть ли какой-то другой более правильный способ опроса клавиатуры в RT-11? (с ожиданием нажатия, и без).
    При генерации RT-11 можно указать такую опцию, как "многотерминальная поддержка". Это для случая, когда к одному компьютеру подключено более одного терминала и эта опция обеспечивает поддержку этих терминалов на уровне системы. Возможность для программистов, чтобы всё было более-менее единообразно. Система поддерживает многотерминальные версии макрокоманд, кольцевой буфер терминала, отработку Ctrl/S, Ctrl/Q Ctrl/O стандартным образом.
    Только я вот знаю только одну программу, которая пользуется этим функционалом - многотерминальный бэйсик. Он позволят на конфигурации без диспетчера памяти посадить за терминалы, как я видел, 4-х студентов, обеспечив им бэйсик ...
    Имеет ли смысл многотерминальная поддержка на УКНЦ смысл? С первого взгляда не имеет, но кто его знает - вполне может возникнуть желание подцепить терминал на С2 и(или) на переделанный сетевой адаптер(токовая петля 20 ма, использовалось на УКНЦ входящих в комплект СВД ВУЗ, кои, как утверждалось, даже экспортировались в ГДР).
    Последний раз редактировалось Alex; 27.03.2020 в 09:25.

  6. Этот пользователь поблагодарил Alex за это полезное сообщение:

    Oleg N. Cher (27.03.2020)

  7. #236
    Оператор ДВК Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    5,905
    Спасибо Благодарностей отдано 
    1,202
    Спасибо Благодарностей получено 
    100
    Поблагодарили
    88 сообщений
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Alex Посмотреть сообщение
    Только я вот знаю только одну программу, которая пользуется этим функционалом - многотерминальный бэйсик.
    Я видел распечатку исходников многотерминального Паскаля для RT-11, на данный момент - распечатка передана на хранение в музей истории МИЭТа.

    Со скан-кОдами клавиатуры для Паскаля, что то никто даже не проявил интерес, я ожидал, конечно, что такая возможность (буде реализованной) пригодилась бы всем сочувствующим, не только мне https://zx-pk.ru/threads/20444-pasca...=1#post1053516 - вопрос\запрос висит по ссылке с исходником
    Последний раз редактировалось hobot; 27.03.2020 в 09:49.
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  8. #237
    Junior
    Регистрация
    26.03.2019
    Адрес
    г. Киев, Украина
    Сообщений
    22
    Спасибо Благодарностей отдано 
    12
    Спасибо Благодарностей получено 
    16
    Поблагодарили
    6 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Oleg N. Cher Посмотреть сообщение
    ...
    У кого-нить есть OMSI Pascal, запатченный под возможность использовать в идентах символ "_"?
    У кого-нить есть линкер и Macro-11, запатченные под иденты длиннее 6 символов? Это вообще возможно?
    Ответ нет на оба вопроса, ибо RADIX50. 3 символа помещаются в 16 bit integer, 6 символов - 32 бита (2 слова).

    Пользуйте GNU binutils (asm, linker, etc). Но там нет Pascal. И нет MACRO11 библиотеки (смотрю доку на RT11)
    Я делаю себе C функции или макросы препроцессора с asm вставками и EMT), инструкции макросов не такие мощные в GNU as, как в MACRO11.
    В теории можно сделать конвертор из формата файлов OBJ в Files11 в *.o (a.out) для target=pdp11-dec-aout

  9. Эти 3 пользователя(ей) поблагодарили yu.zxpk за это полезное сообщение:

    hobot (27.03.2020), nzeemin (27.03.2020), Oleg N. Cher (27.03.2020)

Страница 24 из 24 ПерваяПервая ... 2021222324

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. "Исходники" Turbo Pascal нужны кому ?
    от esl в разделе Программирование
    Ответов: 2
    Последнее: 19.10.2018, 11:33
  2. Продам МС5310 блок дисководов к УКНЦ+КМД УКНЦ
    от Mad Killer/PG в разделе Барахолка (архив)
    Ответов: 7
    Последнее: 19.03.2012, 11:27
  3. в розыске дисковая версия Pascal.
    от goblinish в разделе Программирование
    Ответов: 18
    Последнее: 16.08.2011, 16:30
  4. Pascal
    от Andrew771 в разделе Программирование
    Ответов: 22
    Последнее: 24.05.2011, 21:20
  5. Скопировать/вставить из/в HiSoft Pascal в эмуляторе
    от kit в разделе Программирование
    Ответов: 1
    Последнее: 05.02.2010, 15:35

Метки этой темы

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •