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

Погоди-те, не забивайте пожалуйста на мой вопрос !!!
Вам наверное кажется что я всё понял и вам уже не интересно,
но мне то только ещё больше непонятностей добавилось.

Вот ещё раз (на пальцах) как мне закодить допустим

Цитата:

EMT 44 - вывод строки символов на экран. Адрес строки символов расположен
после команды EMT, конец строки - байт 0.

в своём шедевриальном ucl я использовал EMT 351 но там через регистр там всё ясно
а тут как быть, что такое адрес строки ??? Где физически (в самой программе) сама строка???
Вот такой у меня снова вопрос. Спасибо.

Цитата:

Сообщение от hobot

Где физически (в самой программе) сама строка???
Вот такой у меня снова вопрос. Спасибо.

Сначала покажи как ты эту строку в программе будешь записывать. Скорее всего ответ получится сам собой :)

Код:

MSG:: .Asciz "TEXT"<0>

Насколько я понял этоt EMT 44 по нулю конец строки понимает?

Цитата:

Сообщение от hobot

Код:

MSG:: .Asciz "TEXT"<0>

Насколько я понял этоt EMT 44 по нулю конец строки понимает?

Так вот MSG у тебя и есть адрес. Если речь идет об обычной программе в системе.

А что такое просто "EMT 44" - вообще не ясно. EMT 44 где?
Ну ясно что не в RT-11 - там такого просто нет. Если в периферийном процессоре УКНЦ, то проще посмотреть листинги ПЗУ как оно используется, но в этом случае как уже говорилось, будет ли #MSG (или .WORD MSG) ссылкой на нужный адрес - зависит от способа загрузки.

EMT 44 - уф, я читаю описание и похоже залез в дебри в которых
не поням ))) Список ЕМТ команд он не универсальный ? Отдельный
для ПП и для "системы" - я как-то другой логики у меня мозг видимо,
косвенно вот чуть выше везде на двухчисленные емты идёт упоминание
про какой-то ПП )))

---- ну тоесть конечно про УКНЦшный ПП ))))

---------- Post added at 18:31 ---------- Previous post was at 18:29 ----------

Цитата:

Сообщение от form

Ну ясно что не в RT-11 - там такого просто нет.

А там что есть? EMT 351 для вывода строки так?

Цитата:

Сообщение от hobot

EMT 44 - уф, я читаю описание и похоже залез в дебри в которых
не поням ))) Список ЕМТ команд он не универсальный ? Отдельный
для ПП и для "системы" - я как-то другой логики у меня мозг видимо,
косвенно вот чуть выше везде на двухчисленные емты идёт упоминание
про какой-то ПП )))

Ну мне трудно угадать описание чего именно ты читаешь. Если же говорить просто о EMT, то EMT с любым номером вызывает прерывание процессора по вектору 30. Это все, что делает EMT :)
Посему как минимум надо знать о чем речь вообще. О системе RT-11, о программах загруженных в область периферийного процессора УКНЦ или вообще о функционале который добавляется после того как что-либо загружено ;)

Понял, пойду дальше "паскалить" )))
Но я ещё вернусь ))) Я всё уточню )))
И снова что нибудь спрошу, обязательно

Цитата:

Сообщение от hobot

Понял, пойду дальше "паскалить" )))
Но я ещё вернусь ))) Я всё уточню )))
И снова что нибудь спрошу, обязательно

Только чтобы вопрос однозначен был ;)

А то могу еще страшнее сказку рассказать: (шепотом) EMT может генерить прерывания с вектором, физический адрес которого не равен 30! ;)))
Правда сразу успокою, к УКНЦ это не относится :)

EMT 44 - это в ПП УКНЦ, почитать можно здесь, приложение 2.

А примеры есть не только в листингах ПЗУ УКНЦ, но можно глянуть и KBS.MAC на диске sysimage.dsk, он там выводит надписи в верхнюю информационную строку, адрес строки задается после EMT.

А про EMT в RT-11 лучше почитать оригинальную документацию, ну в крайнем случае про РАФОС/ФОДОС.

В RSX-11 свои EMT (точнее свой, вроде EMT 377), у БК также свои.

Цитата:

Сообщение от Alex_K

А про EMT в RT-11 лучше почитать оригинальную документацию, ну в крайнем случае про РАФОС/ФОДОС.

Если вообще читать :)
Обычно это не нужно. Разьве что просто представлять себе как системные вызовы работают :)

Цитата:

Сообщение от Alex_K

В RSX-11 свои EMT (точнее свой, вроде EMT 377)

Да, только EMT 377. Есть еще EMT 376 который переключает на системное состояние привилегированную задачу с мапингом на кернел. В RT-11 EMT 376 также зарезервированно, но в доке если не ошибаюсь написано, что результат непредсказуем - видимо имеется в виду, что будет разное поведение в зависимости от того чистый это RT-11, RTEM-11 или еще какой вариант.

Цитата:

Сообщение от Alex_K

но можно глянуть и KBS.MAC

Да в процессе конечно исходники изучать буду,
просто мне сам термин "адрес строки" из хелпа (со странички феликса
описания читаю) сразу в тупик поставил.

Есть ещё вопрос, про ESC последовательности, попробовал сходу
наскоком забабахать выше-где-то-обсужденный вариант UST и вот
поэксперементировав понял такую вещь - работает только
размещение курсора по координатам - ни смена цветов ни формат экрана
не робят ? Это я бестолковый или ньанс какой-то с реализацией на эмуляторе?
На реале я же помню без всяких ухищрений в нужном месте всё работало.
Но это не к спеху, другие процедуры то же время требуют )))

Цитата:

Сообщение от form

Если вообще читать :)
Обычно это не нужно. Разьве что просто представлять себе как макросы работают :)

Ну макросы надо знать обязательно, да и удобней ими писать. Но иногда какие EMT связаны с каждым макросом знать надо, чтобы представить, что есть с EMT 340 по EMT 357, каждый исполняет свою функцию, а EMT 374 и EMT 375 имеют еще и код функции.

Цитата:

Сообщение от Alex_K

Ну макросы надо знать обязательно, да и удобней ими писать. Но иногда какие EMT связаны с каждым макросом знать надо, чтобы представить, что есть с EMT 340 по EMT 357, каждый исполняет свою функцию, а EMT 374 и EMT 375 имеют еще и код функции.

Я про то и говорю - обычно хватает знания макросов, а знания какие они EMT используют - это уже для более глубокого представления. В этом случае полезнее знать даже не сами коды EMT, а способ передачи аргументов чтобы например не накосячить с выделением буфера в стеке и подстановкой регистра SP в качестве аргумента в макрос который в стеке же аргументы и передает :)

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

Есть такая система RSTS/E, в ней можно собирать без каких либо переделок программы как для RT-11 так и для RSX (разумеется если это не специфические системные программы). Для RT-11 если не ошибаюсь все совпадает, а вот для RSX - вроде нет. Будет время, посмотрю :)
Просто приятнее будет если прога автоматом работает в другой системе :)

Цитата:

Сообщение от hobot

Есть ещё вопрос, про ESC последовательности, попробовал сходу
наскоком забабахать выше-где-то-обсужденный вариант UST и вот
поэксперементировав понял такую вещь - работает только
размещение курсора по координатам - ни смена цветов ни формат экрана
не робят ? Это я бестолковый или ньанс какой-то с реализацией на эмуляторе?
На реале я же помню без всяких ухищрений в нужном месте всё работало.
Но это не к спеху, другие процедуры то же время требуют )))

А каким образом выводятся эти Esc-последовательности? Если в Паскале с помощью WRITE или средствами RT-11, то работать не будет, т.к. в выводимых символах вырезается старший бит. Надо только через регистры терминала 177564/177566.

---------- Post added at 20:27 ---------- Previous post was at 20:24 ----------

Цитата:

Сообщение от hobot

Да в процессе конечно исходники изучать буду,
просто мне сам термин "адрес строки" из хелпа (со странички феликса
описания читаю) сразу в тупик поставил.

Вполне нормальный термин. Строка-то ведь в памяти расположена, и адресом строки является адрес в памяти самого первого символа строки.

Цитата:

Сообщение от Alex_K

Вполне нормальный термин. Строка-то ведь в памяти расположена, и адресом строки является адрес в памяти самого первого символа строки.

Не совсем в тему, просто вспомнился смешной случай - человек писал программу для поиска в памяти определенной строки на BASIC, присваивал строку для поиска переменной и потом шарил по всей памяти и надо же - что бы он туда не писал, оно обязательно находилось :)

Цитата:

Сообщение от form

Не совсем в тему, просто вспомнился смешной случай - человек писал программу для поиска в памяти определенной строки на BASIC, присваивал строку для поиска переменной и потом шарил по всей памяти и надо же - что бы он туда не писал, оно обязательно находилось :)

А искал по первому совпадению или всю память шарил?
Кстати, а сам потом понял, почему все-таки находилось?

Цитата:

Сообщение от Alex_K

А искал по первому совпадению или всю память шарил?
Кстати, а сам потом понял, почему все-таки находилось?

Да, по первому совпадению по всей памяти. Понял через пару дней - я его как раз ассемблеру обучал, а там все сразу становится на места :)

Кстати на похожий прикол можно нарваться и в реальной жизни - например в DOSовских Norton Utilities diskedit умеет работать и с памятью, так там поиск строки раза 4 напорется на написанное тобой :)

Цитата:

Сообщение от Alex_K

А каким образом выводятся эти Esc-последовательности? Если в Паскале с помощью WRITE или средствами RT-11, то работать не будет, т.к. в выводимых символах вырезается старший бит. Надо только через регистры терминала 177564/177566.

Да мне очень нужно курсор гасить и формат экрана менять в игрушеке )))
Такая конструкция работает

Код:

function AT(xx,yy: integer):char; begin write(chr(27),'Y',chr(32+yy),chr(32+xx)); AT:=''; end;

а вот такая нет

Код:

write(chr(33B),chr(246B),chr(62B));

??? :confused_std:

Цитата:

Сообщение от form

Просто приятнее будет если прога автоматом работает в другой системе

Но в моём случае на голом МАКРО-11 писать у меня не выйдет ничего, я его не знаю.
EМТ и последовательности у Феликса подглядел и сам кое-что вспомнилось со школьных времён,
а так ПАСКАЛЬ+МАКРО ВСТАВОЧКИ для УКНЦ (и для меня!) просто спасает, если программировать
самому что-то захочется например.

Цитата:

Сообщение от hobot

а вот такая нет

Код:

write(chr(33B),chr(246B),chr(62B));

??? :confused_std:

Дык пояснили же - write может стрипать 7й бит, а 246 - восьмибитное число.

Цитата:

Сообщение от form

Да, по первому совпадению по всей памяти. Понял через пару дней - я его как раз ассемблеру обучал, а там все сразу становится на места :)

Знание ассемблера должно подразумевать собой и знание архитектуры компьютера и операционной системы, и как все делается и где все хранится. Уж если понял все вкупе, дальше автоматом понимаешь почему строка все время находится.

Цитата:

Сообщение от form

Кстати на похожий прикол можно нарваться и в реальной жизни - например в DOSовских Norton Utilities diskedit умеет работать и с памятью, так там поиск строки раза 4 напорется на написанное тобой :)

В RT-11 есть DESS, он тоже память смотрит. В ответ на приглашение CSI просто жмется Enter, и мы в режиме просмотра ОЗУ. По <PF1>MA задается строка поиска, а по <PF1>S ищется.

Цитата:

Сообщение от form

На консоли при 9600 оба теста 960.
На DLV11-J пробовать не стал так как терминал прога не учитывает, а из-за русского текста внутри компилиться не желает (патчить MACRO нет охоты) :)

Пользуясь случаем, поксольку все-равно надо было в руководство по процу зяглянуть. Консоль, 38400:

Код:

.RU CPS CPS - --_ede+e+ie _+-_-_+i +y+-da +a +e_+i+a+ d+- za+e_{e+i- -_-g_a++y - +a++i+e +`b+` ++a+i{+ CPS: 3840 -_-g_a++a za+e_{e+a .

Вложений: 1

В приложении - англоязычный вариант CPS.SAV и CPS.MAC

Цитата:

Сообщение от Patron

В приложении - англоязычный вариант CPS.SAV и CPS.MAC

Сделай еще чтобы CSR и VEC для DL можно было задавать через GET/D - тогда можно будет тестировать другие линии :)

Вложений: 1

Цитата:

Сообщение от form

чтобы CSR и VEC для DL можно было задавать через GET/D

В приложении - изменённый вариант (не проверенный), в котором значения адресов регистров и база векторов прерывания записаны в ячейках 01000-01010:

Код:

.GET CPSENG .E 1000-1010 177560 177562 177564 177566 000060 .ST CPS - CHECK TERMINAL OUTPUT SPEED PRESS ANY KEY TO EXIT CPS: 5741 PROGRAM COMPLETED .

При абстрактной эмуляции - скорость в порту слегка плавает и всегда немного отличается от абсолютно точного значения.

Значение по адресу 01000 на самом деле нигде в программе не используется - его можно не изменять.

Этот вариант программы можно перезапускать командами START и REENTER.

Если занести ненулевое значение в ячейку 1012 или запустить программу по команде REENTER - программа не будет выводить сообщения:

Код:

.GET CPSENG .E 1000-1012 177560 177562 177564 177566 000060 000000 .REE CPS: 5736 .

Если пропатчить ячейку 01012 в CPSENG.SAV - программа умолкнет навсегда :)

Цитата:

Сообщение от Patron

Если пропатчить ячейку 01012 в CPSENG.SAV - программа умолкнет навсегда :)

У меня для умолкания навсегда есть аппаратный инструмент - PIRQ :)

Вложений: 1

Цитата:

Сообщение от Patron

В приложении - изменённый вариант (не проверенный), в котором значения адресов регистров и база векторов прерывания записаны в ячейках 01000-01010:

Пашет.
В том числе под ZM и многотерминалкой поскольку прога все-равно все нужное перехватывает :)

Цитата:

Сообщение от form

У меня для умолкания навсегда есть аппаратный инструмент - PIRQ

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

Цитата:

Сообщение от Patron

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

А-а. Ну PIRQ при неаккуратном пользовании заставит умолкнуть совсем до ближайшего BHALT или BREAK на консоли :)

Хотя есть еще более надежный способ - при невозможности системы по таймеру вернуть терминалы в порядок, записать 1 в 177564 :)
Тогда даже BREAK/BHALT не поможет :)

Ребята, вы уверены, что эта тема относится к программированию на УКНЦ, а не к ДВК и всему, что с ним связано?)

Цитата:

Сообщение от Titus

Ребята, вы уверены, что эта тема относится к программированию на УКНЦ, а не к ДВК и всему, что с ним связано?)

На УКНЦ если память мне не изменяет есть некий С2, который ничем от DL11 не отличается? ;)

Цитата:

Сообщение от Titus

Ребята, вы уверены, что эта тема относится к программированию на УКНЦ, а не к ДВК и всему, что с ним связано?)

Программа CPS.SAV написана (в том числе и) для УКНЦ.

Какие результаты она сообщает при запуске на реальной УКНЦ?

Цитата:

Сообщение от Patron

Программа CPS.SAV написана (в том числе и) для УКНЦ.

Какие результаты она сообщает при запуске на реальной УКНЦ?

Кстати интересно померять консоль :)
С С2-то примерно и так ясно :)

Вложений: 1

Версия 1.1 CPS.SAV для УКНЦ :)

Код:

.GET CPSENG .E 1000-1012 177560 000060 177564 000064 000000 000000 .REE CPS: 5735 .

Теперь регистры и вектора для ввода и вывода задаются раздельно - это даёт возможность пропатчить CPSENG.SAV значениями TTKS и TTKINT в ячейках 01000, 01002 (если нужные значения отличаются от находящихся там 0177560 и 060) и задавать только значения TTPS и TTPINT тестируемого порта в ячейках 01004, 01006 .

Так же, как и в предыдущей версии - запуск по команде REENTER или с ненулевым значением в ячейке 01012 - приводит к отмене вывода программой необязательных сообщений.

Цитата:

Сообщение от Patron

Версия 1.1 CPS.SAV для УКНЦ :)

Код:

.GET CPSENG .E 1000-1012 177560 000060 177564 000064 000000 000000 .REE CPS: 5735 .

Теперь регистры и вектора для ввода и вывода задаются раздельно - это даёт возможность пропатчить CPSENG.SAV значениями TTKS и TTKINT в ячейках 01000, 01002 (если нужные значения отличаются от находящихся там 0177560 и 060) и задавать только значения TTPS и TTPINT тестируемого порта в ячейках 01004, 01006 .

Так же, как и в предыдущей версии - запуск по команде REENTER или с ненулевым значением в ячейке 01012 - приводит к отмене вывода программой необязательных сообщений.

Для полного счастья - еще одну ячейку сделать патчуемой и в ней держать число тиков в секунду - так, на всякий случай :)

Код:

.GET CPSENG .E 40 001030 .D 500=52737,4000,177520,137,1030 .ST 500 CPS - CHECK TERMINAL OUTPUT SPEED - V1.1 PRESS ANY KEY TO EXIT CPS: 240 PROGRAM COMPLETED .

---------- Post added at 19:36 ---------- Previous post was at 19:34 ----------

Ну и таки на живом УКНЦ интересно посмотреть сколько консоль покажет...
Хотя если с силами соберусь - может сам перетащу, только это надо задействовать 386 колмпьютер и контроллер дискет :)

---------- Post added at 20:04 ---------- Previous post was at 19:36 ----------

Кстати о версиях программ. В RESORC как минимум начиная с RT-11 V5.4 (более ранние проверять лень, но в макробиблиотеке поддержка с 5.0 начинается) есть фича, позволяющая показывать версию (версии) модуля.

Код:

.RESORC TEST.SAV/V Release = V01, ID(s): 2 .TY TEST.MAC .MCALL .MODULE .MODULE TEST,RELEASE=V01,VERSION=02,COMMENT=<Test module>,AUDIT=YES START: 104350 .END START

В данном случае версия V01.02 (генерится .IDENT если явно не сказать IDENT=NO, его в MAP файле видно если есть).
Если RELEASE не писать, по умолчанию V05. RELEASE должен быть одинаков во всех файлах которые принимают участие в программе. Это может мешать если используются библиотеки DECовские, но на MACRO походу их никто кроме меня не пользует :)

Может пригодиться чтобы различать SAVы сразу :)

Цитата:

Сообщение от form

Для полного счастья - еще одну ячейку сделать патчуемой и в ней держать число тиков в секунду

В следующей версии так и сделаем, а пока - единственное на всю программу слово со значением 50. (062) по адресу 01236 - это оно и есть.

Поведение команд, что вспомнилось...
Тут больше чем в УКНЦ влезет, но поди не помешает ;)
Может забыл чего - в частности поведение EIS, но я и сам не особо помню что и как...

Код:

Mnem Code N Z V C Mnem Code N Z V C Непредсказуемый ~~~~~~~ ~~~~~~~ ~~~~~~~ ~~~~~~~ ~~~~~~~ ~~~~~~~ результат HALT 000000 - - - - WAIT 000001 - - - - ~~~~~~~~~~~~~~~~~ RTI 000002 * * * * BPT 000003 * * * * JMP (Rx)+ IOT 000004 * * * * RTT 000006 * * * * JSR Rx,(Ry)+ RESET 000005 - - - - MFPT 000007 - - - - MOV Rx,(Rx)+ SPL 00023L - - - - NOP 000240 - - - - MOV Rx,-(Rx) CLC 000241 - - - 0 CLV 000242 - - 0 - MOV Rx,@(Rx)+ CLZ 000244 - 0 - - CLN 000250 0 - - - MOV Rx,@-(Rx) CCC 000257 0 0 0 0 SEC 000261 - - - 1 MOV PC,X SEV 000262 - - 1 - SEZ 000264 - 1 - - MOV PC,@X SEN 000270 1 - - - SCC 000277 1 1 1 1 ASH #37,Rx BR 000400 - - - - BNE 001000 - - - - ASHC #37,Rx BEQ 001400 - - - - BGE 002000 - - - - BLT 002400 - - - - BGT 003000 - - - - Прерывание 4 или 10 BLE 003400 - - - - BPL 100000 - - - - ~~~~~~~~~~~~~~~~~~~ BMI 100400 - - - - BVC 102000 - - - - JMP Rx BVS 102400 - - - - BHI 101000 - - - - CALL Rx BLOS 101400 - - - - BCC 103000 - - - - HALT в режимах U, S BCS 103400 - - - - BHIS 103000 - - - - BLO 103400 - - - - JMP 0001DD - - - - Прерывание 10 EMT 104000 * * * * TRAP 104400 * * * * ~~~~~~~~~~~~~ MARK 0064NN - - - - JSR 004RDD - - - - TSTSET Rx RTS 00020R - - - - SOB 077RXX - - - - WRTLCK Rx CSM 0070DD - - - - CLR(B) .050DD 0 1 0 0 CSM в режиме K COM(B) .051DD * * 0 1 INC(B) .052DD * * * - DEC(B) .053DD * * * - NEG(B) .054DD * * * * ADC(B) .055DD * * * * SBC(B) .056DD * * * * На некоторых CPU TST(B) .057DD * * 0 0 ROR(B) .060DD * * * * SWAB не меняет V. ROL(B) .061DD * * * * ASR(B) .062DD * * * * ASL(B) .063DD * * * * WRTLCK 0076DD * * 0 - TSTSET 0072DD * * 0 * SWAB 0003DD * * 0 0 SXT 0067DD - * 0 - MFPS 1067DD * * 0 - MTPS 1064DD * * * * MTPD 1066DD * * 0 - MTPI 0066DD * * 0 - MFPD 1065SS * * 0 - MFPI 0065SS * * 0 - MOV(B) .1SSDD * * 0 - CMP(B) .2SSDD * * * * BIT(B) .3SSDD * * 0 - BIC(B) .4SSDD * * 0 - BIS(B) .5SSDD * * 0 - ADD 06SSDD * * * * SUB 16SSDD * * * * MUL 070RSS * * 0 * DIV 071RSS * * * * ASH 072RSS * * * * ASHC 073RSS * * * * XOR 074RDD * * 0 -

Цитата:

Сообщение от form

Поведение команд, что вспомнилось...
Тут больше чем в УКНЦ влезет, но поди не помешает ;)
Может забыл чего - в частности поведение EIS, но я и сам не особо помню что и как...

Что это такое и к чему?

Цитата:

Сообщение от Titus

Что это такое и к чему?

К тому, чтобы лучше понимать программы и не городить идиотизм вроде

Код:

ERROR: SEC RETURN OK: CLC RETURN

Чем советские (да и не только) программы частенько страдают :)

Цитата:

Сообщение от form

К тому, чтобы лучше понимать программы и не городить идиотизм вроде

Код:

ERROR: SEC RETURN OK: CLC RETURN

Чем советские (да и не только) программы частенько страдают :)

А городить надо так:

Код:

OK: TST (PC)+ ERROR: SEC RETURN