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

[hobot]

Для того и конструкция - надо проверять 7 бит в 177560 и когда он установлен (клавиша нажата) - только тогда и читать ее.

Погоди, тут понимаешь какая вещь, мне не надо ждать нажатия клавиши,
мне надо в каждом тике цикла заного опрашивать и сравнивать какая именно нажата, то есть там какие-то объектики ползают себе, а где-то
между всем этим ( в самом начале цикла как правило ) я обнуляю RA
потом происходят вычисления положений объектов, отрисовка фона например, потом идет case где я смотрю какие именно кнопки лежат в RD
соответственно внутри case у меня реакция на эти кнопки
и условие until rd=13 (код ентера)

[form]

Погоди, тут понимаешь какая вещь, мне не надо ждать нажатия клавиши,
мне надо в каждом тике цикла заного опрашивать и сравнивать какая именно нажата, то есть там какие-то объектики ползают себе, а где-то
между всем этим ( в самом начале цикла как правило ) я обнуляю RA
потом происходят вычисления положений объектов, отрисовка фона например, потом идет case где я смотрю какие именно кнопки лежат в RD
соответственно внутри case у меня реакция на эти кнопки
и условие until rd=13 (код ентера)

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

---------- Post added at 23:56 ---------- Previous post was at 23:53 ----------

Примерно так.

inkey := 0;

repeat
        if ((inkey and 128) <> 0) then begin
                ch := key;
                case ch of
                ...
        end;

        ...

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

Самое простое перед ифом pressed := (inkey and 128) <> 0; (var pressed boolean). И уже этот pressed проверять и в ифе и ниже - к примеру until pressed and key = 13;

---------- Post added 23.11.2011 at 00:02 ---------- Previous post was 22.11.2011 at 23:56 ----------

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

[hobot]

form, ага! )))

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

да у меня так и будет я просто для краткости написал, конечно из регистровой переменной значение будет присвоено глобальной переменной типа integer к примеру.

[form]

form, ага! )))

да у меня так и будет я просто для краткости написал, конечно из регистровой переменной значение будет присвоено глобальной переменной типа integer к примеру.

Ну главную ошибку свою ты надеюсь понял?
Клавиша нажата не тогда когда есть код в 177562, а когда в 177560 установлен 7й бит -- вот тогда и читаем 177562

[hobot]

Ну главную ошибку свою ты надеюсь понял?
Клавиша нажата не тогда когда есть код в 177562, а когда в 177560 установлен 7й бит -- вот тогда и читаем 177562

Да с клавиатурой ситуация стала гораздо более явной )))
И конечно мне хочется верить что главную свою ошибку я ещё не совершил )))
В любом случае - замечательно что есть у кого спросить!

Для меня некоторые моменты просто не такие явные как для профи, поэтому я считал (не понимаю до сих пор на 100%
значение термина ПРЕРЫВАНИЕ - по моему это неудачная русификация какая-то) что обнуление 177560 это и есть опрос
клавиатуры с автоматическим занесением кода кнопки в 177562, но я ничего не знал про признак нажатия кнопки ( не углублялся поскольку и так всё работало "как-бы"), я конечно догадывался ))) Ладно...главное ты меня во время
вернул к МАТ.ЧАСТИ )))

[form]

Да с клавиатурой ситуация стала гораздо более явной )))
И конечно мне хочется верить что главную свою ошибку я ещё не совершил )))
В любом случае - замечательно что есть у кого спросить!

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

[Alex_K]

Кстати о совместимостях. Теоретически можно представить себе, что если прога сделана для УКНЦ, то уж там-то не на что натыкаться. Ан нет: и на УКНЦ можно поставить многотерминальную систему и успешно запользовать С2 как второй терминал

А если есть стандартный сетевой адаптер, то можно соединить две УКНЦ. На подсоединенной должна быть запущена программа терминала, что получили - вывели на экран, что нажали на ней - передали в сеть. Вот и трехтерминальная машина.

[form]

А если есть стандартный сетевой адаптер, то можно соединить две УКНЦ. На подсоединенной должна быть запущена программа терминала, что получили - вывели на экран, что нажали на ней - передали в сеть. Вот и трехтерминальная машина.

Ну я сетевого адаптера в глаза не видел для УКНЦы, потому и не знаю что с ним можно делать
Если он совместим с DL11 то вполне можно

А так - цепляем к С2 какой-нибудь VT52, собираем GADа как REL, делаем ему FR/TE:1 и получаем на одном терминале игрушку, а на втором нормальную работу которой вышеупомянутый гад не мешает несмотря на свою форегроундность

[Alex_K]

Ну я сетевого адаптера в глаза не видел для УКНЦы, потому и не знаю что с ним можно делать

Ну собран он также на 1801ВП1-065, как С2, так что различий почти нет. Единственно, что надо прямо соединить, не через реле, а то тогда по сигналу таймера надо все время писать в регистр состояния приемника, чтобы линию не разорвало.

[form]

Ну собран он также на 1801ВП1-065, как С2, так что различий почти нет. Единственно, что надо прямо соединить, не через реле, а то тогда по сигналу таймера надо все время писать в регистр состояния приемника, чтобы линию не разорвало.

Ну это уже с довесками, а С2 стардартным способом подключается как доп терминал, XL:, LS: или DD:

Последнее кстати можно взять на заметку как способ связи с PC для которого ничего не нужно изобретать