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

Цитата:

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

1$: BIT #200, @#177564
BEQ 1$
Но проще так:
1$: TSTB @#177564
BPL 1$

Спасибо, Patron ! Я просто плаваю в этом откровенно, просто именно такой
вариант работает, а простенький не работает ) То есть сравнение с нулём но с приставкой B и даже значение #200 как бы и не нужно.
То есть получится Макрос можно так оформить

Код:

.MACRO .TTT COM 1$: TSTB @#177564 BPL 1$ MOV COM, @#177566 .ENDM

---------- Post added at 18:01 ---------- Previous post was at 17:55 ----------

Тогда ещё вопрос - принципиально что такое параметр COM в данном макрокоманде?
Имею в виду один код или последовательность?

Вложений: 1

игроделанье )

ПРОГРАММИРОВАНИЕ ))) Для меня это просто хобби, поэтому не удивляйтесь,
что какие-то моменты уже обжёванно - пережёванные могут мне не быть явными.

Я уже писал на форуме, что делаю простенькую (символьную, но цветную "смайл"),
игрушку для УК-НЦ. Добился очень правильной "своевременной" реакции на
нажатие кнопок путём подбора задержки внутри цикла.

Всё что сейчас работает, это "непрерывный" цикл (типо пульса)
внутри которого идут в такой последовательности:

Код:

repeat /* основной цикл */ секция-= Обновление экрана -персонаж -статистика секция-=(задержка DELAY - для плавности цикла в целом значение подбирал экспериментально) секция-=опрос клавиатуры оформлен так: (через глобальные переменные (регистры УК-НЦшки) VAR INKEY ORIGIN 177560B: INTEGER; KEY ORIGIN 177562B: INTEGER; ... IF((INKEY AND 128)<>0) THEN (спасибо form'у ! - сначало я просто ноль туда писал и был этому рад !) ... в зависимости от значения нажатой кнопки УПР+Ц - вызывает процедуру CANCEL (по сути EXIT, только там можно будет что то ещё подвесить, типа "ПОКА ПОКА!") Либо перемещение АВАТАРА, 12346789 - меняет значение переменной АВАТАР.НАПРАВЛЕНИЕ 5 - это стоять на месте. секция-=смотрим изменился ли НАПРАВЛЕНИЕ и если да меняем координаты АВАТАРА. until 0>0 /* конец тела основного цикла */

http://s4.rimg.info/8e12b96d087ec7ce...229be3bf91.gif

Это я всё к тому, что я пытался ввести одного АВАТАРА - которым
управлял бы ИИ, и начинаются беды с плавностью, то есть реакция
на клавиатуру становится немного не чёткой, а это не позволяет
управлять игроком адекватно, а ведь ещё пульки должны летать, да
и вражин лучше бы больше 1-го завести, буду рад любые советы по
оптимизации услышать - вплоть до "ЗАВЯЗЫВАЙ С ПРОГРАММАМИ, ХОБОТ!"

Прилепил недоделку что-бы можно было пощупать в UKNCBTL.
Там файл называется TGAME.SAV, дискета загрузочная.
Это просто рабочая модель. Идея игровая есть и сюжет там
будет и брифинг и всё такое, но сначала математика )))

Цитата:

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

То есть сравнение с нулём но с приставкой B и даже значение #200 как бы и не нужно.

Признаком готовности к передаче байта на экран служит бит 0200 в регистре статуса передатчика.

Конструкция (A AND R)=0 ( так же как и BIT #200,@#177564 ) проверяет на равенство нулю не весь регистр статуса, а только его бит 0200.
TSTB @#177564 проверяет младший байт регистра, для которого бит 0200 является битом знака.

Метки в макросах лучше не использовать, а байт отправлять командой MOVB:

Код:

.MACRO .TTT ARG TSTB @#177564 BPL .-4. MOVB ARG, @#177566 .ENDM

Цитата:

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

принципиально что такое параметр COM в данном макрокоманде? Имею в виду один код или последовательность?

Да, принципиально.

Чтобы результат вызова .TTT < #'Y #'E #'S > совпал с результатом вызова .TTT #'Y | .TTT #'E | .TTT #'S - макрос должен выглядеть так:

Код:

.MACRO .TTT ARGS .IRP ARG, <ARGS> .IF NB ARG TSTB @#177564 BPL .-4. MOVB ARG, @#177566 .ENDC .ENDM .ENDM

Цитата:

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

Метки в макросах лучше не использовать

Метки можно безопасно использовать в макросах, но нужно указать, что они являются локальными для макроса.

Код:

.MACRO XXX,?L1,?L2 L1: ... ... L2: ... .ENDM

Вложений: 1

ещё раз про RANDOM !!!

Уселся попинать игрульку и снова затык с RND,
я в этой теме уже вопрос задавал - но вот дошло по практики:

Код:

FUNCTION RND: REAL; VAR V: INTEGER; BEGIN /*$C BR M1 RN: .WORD 435 ; проблемная константа!!! чем заменить??? M1: MOV RN, R1 MUL #12869, R1 ADD #6925, R1 MOV R1, RN BIC #^O100000, R1 MOV R1, V(SP) */ RND:=V/32767; END;

Сразу скажу что функцию взял из старых исходников школьных времён.
Ей можно пользоваться, но данном случае у меня получается "узор"
и "время" для бонусов на уровне одинаковый всё время !
(см. миниатюру)
Я помню, что form, мне советовал использовать GetTime??? Но как это оформить ? Вместо RN - кидать в R1 что то из её параметров? А строка

Код:

MOV R1, RN

тогда вообще не нужна?
Хелп!
Неужели в памяти всё время одинаковый рисунок?
Должна же быть какая-то ячейка содержание которой случайно по определению и тогда её содержимое и можно было бы использовать?
Таймер?
Или RN - можно сделать глобальной и ввести дополнительную процедуру
RANDOMIZE которая бы писала туда что-то "случайное" - результат вычислений ???
:confused_std:
Нужно авторитетное мнение для "супер-программиста" hobota!

На самом деле проблема для меня в том, что из хелпа
я не вникаю в главное !!!

Код:

ПРИМЕР. .TITLE .GTIM.MAC ;В ЭТОМ ПРИМЕРЕ ПОЛЬЗОВАТЕЛЬ ПОЛУЧАЕТ ТЕКУЩЕЕ ВРЕМЯ ;В ТИКАХ. .MCALL .GTIM,.EXIT START: .GTIM #AREA,#TICKS ;ОПРЕДЕЛИТЬ ТЕКУЩЕЕ ;ВРЕМЯ .EXIT TICKS: .WORD 0,0 AREA: .BLKW 2 .END START

Куда в этом примере пишется определённое значение?
Моя "версия", что в #TICKS ?
:confused_std:

---------- Post added at 14:26 ---------- Previous post was at 14:23 ----------

Да и макрос зависит от поддержки таймера монитором?
Может это тупик заведомо?

Цитата:

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

Если бы не TRAP

Я не большой спец по системным вызовам, поэтому всегда делаю так, как советуют в их описании.

В описании вызова .GTIM написано, что первый аргумент - адрес пустого блока из двух слов ( а не двух байтов ) для системных целей, а второй аргумент - адрес блока из двух слов, куда будет записан результат вызова:

Код:

Area: .BlkW 2 Buf: .Word 0 Ticks: .Word 0 START: .GTIM #Area, #Buf

После вызова в слове Buf будет старшее слово счётчика тиков, а в слове Ticks - младшее ( именно оно инкрементируется 50 раз в секунду ).

Вложений: 1

Цитата:

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

В описании вызова .GTIM написано,

хочу просто убедиться, что мы один и тот же документ читаем?

Код:

5.3.16. .GTIM ЗАПРОС .GTIM ПОЗВОЛЯЕТ ПРОГРАММЕ ОПРЕДЕЛИТЬ ТЕКУЩЕЕ ВРЕМЯ СУТОК. ВЕЛИЧИНА ВРЕМЕНИ ОПРЕДЕЛЯЕТСЯ В ТИКАХ (1 ТИК=1/50 С). ФОРМАТ МАКРОКОМАНДЫ: .GTIM AREA,ADDR ГДЕ AREA - АДРЕС БЛОКА ИЗ 2-Х СЛОВ АРГУМЕНТОВ ЕМТ; ADDR - АДРЕС БЛОКА ИЗ 2-Х СЛОВ, СОДЕРЖАЩЕГО ЗНАЧЕНИЕ ВРЕМЕНИ ВО ВНУТРЕННЕМ ФОРМАТЕ; ПЕРВОЕ СЛОВО СОДЕРЖИТ СТАР- ШИЕ РАЗРЯДЫ, ВТОРОЕ СЛОВО - МЛАДШИЕ. ФОРМАТ БЛОКА АРГУМЕНТОВ: AREA: .BYTE 0,21 .WORD ADDR ПОЛЬЗОВАТЕЛЬ ДОЛЖЕН ПРЕДУСМОТРЕТЬ В СВОЕЙ ПРОГРАММЕ ОПЕРАЦИЮ ПРЕОБРАЗОВАНИЯ ТИКОВ В ЧАСЫ-МИНУТЫ-СЕКУНДЫ. В РЕЖИМЕ FB ВЕЛИЧИНА ВРЕМЕНИ АВТОМАТИЧЕСКИ ВОССТАНАВЛИВАЕТСЯ ПОСЛЕ 24:00:, В РЕЖИМЕ SJ ОПЕРАЦИЯ ВОССТАНОВЛЕНИЯ ВЫПОЛ- НЯЕТСЯ, ЕСЛИ ПРИ ГЕНЕРАЦИИ СИСТЕМЫ БЫЛА ОПРЕДЕЛЕНА ПОДДЕРЖ- КА ТАЙМЕРА.

И да, спасибо! Сейчас буду дальше двигаться, нашёл ещё вариант RND
правда он там почти "отдельная программа" - т.е. очень много строчек.
:smile:

Что находится у RT-11 по адресу ОЗУ 170?

Цитата:

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

Что находится у RT-11 по адресу ОЗУ 170?

Адрес обработчика прерываний по вектору 170 :)

Цитата:

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

Адрес обработчика прерываний по вектору 170 :)

А что это за прерывание?

---------- Post added at 16:44 ---------- Previous post was at 16:40 ----------

Не, вообще не верно. Не прерывания.
У УКНЦ там, например, число 67776. По этом адресу в ОЗУ ничего нет. Могу предположить, что это, например, число слов ОЗУ. Т.к. это похоже на правду.

Цитата:

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

А что это за прерывание?

DEC традиционно использовал для второго принтера. А так - SH DEV должен показать кто использует.

---------- Post added at 19:45 ---------- Previous post was at 19:44 ----------

Цитата:

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

Не, вообще не верно. Не прерывания.
У УКНЦ там, например, число 67776. По этом адресу в ОЗУ ничего нет. Могу предположить, что это, например, число слов ОЗУ. Т.к. это похоже на правду.

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

Хотя вру, не у УКНЦ, а у .sav'ов от НЕМИГИ)

Цитата:

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

Хотя вру, не у УКНЦ, а у .sav'ов от НИМИГИ)

Область векторов прерывания перекрывается данными из SAV кроме тех, что отмечены в системном битмапе как защищенные (это системные вектора, вектора для загруженных драйверов, SYSCOM итд).

Цитата:

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

Область векторов прерывания перекрывается данными из SAV кроме тех, что отмечены в системном битмапе как защищенные (это системные вектора, вектора для загруженных драйверов, SYSCOM итд).

Ну вот когда я загружаю на УКНЦ НЕМИГ'овский .sav, по этому адресу оказывается число. И программа сразу с ним делает какие-то действия.

Цитата:

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

Ну вот когда я загружаю на УКНЦ НЕМИГ'овский .sav, по этому адресу оказывается число. И программа сразу с ним делает какие-то действия.

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

Цитата:

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

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

Это обычная игра Диггер.

---------- Post added at 16:53 ---------- Previous post was at 16:51 ----------

Цитата:

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

Это обычная игра Диггер.

И еще подскажите, что делает команда EMT 345?

Цитата:

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

Это обычная игра Диггер.

"Обычная" - это для VT11/VS60 итд, а все остальное может быть для конкретной машины (ДВК, УКНЦ) и конкретного железа :)

---------- Post added at 19:53 ---------- Previous post was at 19:53 ----------

Цитата:

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

Это обычная игра Диггер.

---------- Post added at 16:53 ---------- Previous post was at 16:51 ----------

И еще подскажите, что делает команда EMT 345?

Макрокоманда .CSISPC.

Цитата:

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

"Обычная" - это для VT11/VS60 итд, а все остальное может быть для конкретной машины (ДВК, УКНЦ) и конкретного железа :)

Обычная для НЕМИГИ)

---------- Post added at 16:54 ---------- Previous post was at 16:54 ----------

Цитата:

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

Макрокоманда .CSISPC.

...означающая?

Цитата:

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

Обычная для НЕМИГИ)

---------- Post added at 16:54 ---------- Previous post was at 16:54 ----------

...означающая?

Читает с терминала, командного файла или буфера строку в формате

file1,file2,file3=file1,file2,file3,...,file6

(ненужное можно опустить, выводным добавить размер в формате [размер]), разбирает односимвольные опции и значения (/A, /A:123. /B:ACD, /C:ABC:FED) и после проверки синтакса заполняет блоки данных с готовыми параметрами для .LOOKUP/.ENTER, а опции записывает в стек (с указанием номера файла на котором указаны), при этом наверху стека число опций.

---------- Post added at 20:01 ---------- Previous post was at 19:57 ----------

Чаще используется .CSIGEN которая делает то же самое, только не заполняет блоки, а сразу открывает файлы (подгрузив недостающие драйвера если надо).

А что делает конкретно эта комбинация:

Код:

MOV #664,R3 MOV #230,R2 PUSH R2 PUSH #1 PUSH R3 CLR -(SP) EMT 345

где по адресу 664 находится строка:

Код:

16, 162, 115, 125, 17, 77, 40, 200

---------- Post added at 17:16 ---------- Previous post was at 17:11 ----------

И вообще, посмотрел файлы .sav от 4 игр для НЕМИГи, все они начинаются с одинаковых непонятных 'загрузчиков' по адресу 400.
А сами игры, т.е. те части файлов, которые начинают отличаться, начинаются уже с адреса 1000.

Цитата:

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

А что делает конкретно эта комбинация:

Код:

MOV #664,R3 MOV #230,R2 PUSH R2 PUSH #1 PUSH R3 CLR -(SP) EMT 345

где по адресу 664 находится строка:

Код:

16, 162, 115, 125, 17, 77, 40, 200

Странная комбинация.

.CSISPC #0,R3,#0,R2

#0 - блок для заполнения спецификациями файлов (вообще по документации нулевого значения не предусмотрено, в последних версиях SYSMAC даже ругается на это. Возможно (в каких-то переделанных версиях?) просто делается контроль синтакса в этом случае

R3 - 4 слова RADIX 50 - расширения по умолчанию для трех выходных и всех входных файлов (написанное не сильно похоже на что-то вменяемое)

#0 - ввод строки с терминала

R2 - буфер куда помещается проверенная строка

Цитата:

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

И вообще, посмотрел файлы .sav от 4 игр для НЕМИГи, все они начинаются с одинаковых непонятных 'загрузчиков' по адресу 400.
А сами игры, т.е. те части файлов, которые начинают отличаться, начинаются уже с адреса 1000.

В RT-11 считается, что начиная с 500 адреса идет пользовательская область которую можно использовать и передавать от программы к программе. Область ниже отведена под вектора, но в принципе если нет устройств с такими векторами - тоже можно использовать.

Цитата:

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

расширения по умолчанию для трех выходных и всех входных файлов (написанное не сильно похоже на что-то вменяемое)

Может поменять байты местами?

Цитата:

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

Может поменять байты местами?

Да что так что эдок - не сильно удобоворимо.
Это разбор самого .SAV файла или памяти после него оставшейся?

Цитата:

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

Да что так что эдок - не сильно удобоворимо.
Это разбор самого .SAV файла или памяти после него оставшейся?

Памяти, после загрузки сава.
Вот файл:

Цитата:

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

Памяти, после загрузки сава.
Вот файл:

Память анализировать муторно. Особенно если загрузка была с запуском или если файл использует оверлеи :)

Цитата:

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

Память анализировать муторно. Особенно если загрузка была с запуском или если файл использует оверлеи :)

Ничего не муторно. Он запускается с адреса 400, с него же я и ставлю точку останова.

Разобрался еще немного. Из 4-х игр под НЕМИГУ, все запускаются с адреса 400, все имеют по этому адресу одинаковую хитрую функцию, которую я описал выше. А реальный адрес запуска у каждой игры прописан по адресу 166. Интересно зачем так.

Цитата:

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

Интересно зачем так.

Возможно переделывалось из игр для другой системы (или вообще stand).

Цитата:

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

Возможно переделывалось из игр для другой системы (или вообще stand).

Однозначно переделывалось. А что такое stand?

Цитата:

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

Однозначно переделывалось. А что такое stand?

standalone program - грузится сама по себе без всяких систем.
На УКНЦ, к слову, применялись активно :)

---------- Post added at 21:26 ---------- Previous post was at 21:25 ----------

Кстати хинт: IDA PRO умеет дизассемблить RTшные проги с опознанием макрокоманд.

Цитата:

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

standalone program - грузится сама по себе без всяких систем.
На УКНЦ, к слову, применялись активно :)

Нет, это обычный савчик.

Цитата:

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

Нет, это обычный савчик.

Ну он может быть переделан из самостоятельной проги.

Цитата:

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

Ну он может быть переделан из самостоятельной проги.

Может, но не уверен. Попробовал запустить дальше, вроде все корректно системно, только регистров таких на УКНЦ нет)

Titus, http://zx.pk.ru/attachment.php?attac...7&d=1353758141
в этом описании большой пример в параграфе 5.6.3 Макрокоманда .CSISPC

---------- Post added at 19:04 ---------- Previous post was at 19:03 ----------

Цитата:

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

Ну он может быть переделан из самостоятельной проги

из магнитофонного файла для БК0010 например )

Что за регистр на PDP11 системах по адресу 177572? При загрузке, RT-11 его проверяет. На НЕМИГЕ там, например, регистр адреса косвенной адресации к расширенной памяти. Но раз обычная RT-11 проверяет его, значит он по стандарту что-то должен значить.

Цитата:

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

Что за регистр на PDP11 системах по адресу 177572? При загрузке, RT-11 его проверяет. На НЕМИГЕ там, например, регистр адреса косвенной адресации к расширенной памяти. Но раз обычная RT-11 проверяет его, значит он по стандарту что-то должен значить.

Регистр управления MMU (MMR0):

15 - non-resident page
14 - address length error
13 - access violation
6,5 - cpu mode
4 - address space
3,2,1 - page number

^ биты ошибки, устанавливаемые при ее возникновении

0 - enable relocation

---------- Post added at 23:07 ---------- Previous post was at 23:06 ----------

Это я описал полнокровный, полнорежимный 22bit CPU. На процах попроще некоторых битов может не быть.

Заодно и в этой теме спрошу:

Цитата:

Horace пока не работает в связи с тем, что там функция устанавливает 7-й бит в регистре состояния приемника 0, а у меня в УКНЦ в этот бит писать нельзя. Подождем наших профессоров, послушаем, что они скажут по этому поводу)

Можно ли на УКНЦ писать в 7-й бит регистра состояния приемника канала-0 процессора? А на ДВК?

Цитата:

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

Можно ли на УКНЦ писать в 7-й бит регистра состояния приемника канала-0 процессора? А на ДВК?

Нет.
Это бит состояния, указывающий на то, что есть что брать из регистра данных. Он только для чтения.

---------- Post added at 19:07 ---------- Previous post was at 19:06 ----------

А точно нужен 7й, а не 6й? :)

Цитата:

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

Нет.
Это бит состояния, указывающий на то, что есть что брать из регистра данных. Он только для чтения.

---------- Post added at 19:07 ---------- Previous post was at 19:06 ----------

А точно нужен 7й, а не 6й? :)

Точно.
Там такая программа.
Идет опрос бита готовности, и если он готов, то программа идет далее, т.к. нажали любую клавишу.
Но! При нажатии клавиши, срабатывает прерывание, в котором читается регистр данных клавиатуры, и таким образом бит готовности сбрасывается. Но чтобы это не повлияло на основную программу, в конце обработчика прерывания этот бит устанавливается принудительно. У меня на УКНЦ в этот бит писать нельзя, поэтому данная методика не прокатывает. Может в НЕМИГЕ можно?

Цитата:

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

Точно.
Там такая программа.
Идет опрос бита готовности, и если он готов, то программа идет далее, т.к. нажали любую клавишу.
Но! При нажатии клавиши, срабатывает прерывание, в котором читается регистр данных клавиатуры, и таким образом бит готовности сбрасывается. Но чтобы это не повлияло на основную программу, в конце обработчика прерывания этот бит устанавливается принудительно. У меня на УКНЦ в этот бит писать нельзя, поэтому данная методика не прокатывает. Может в НЕМИГЕ можно?

Про немигу ничего не скажу - не знаю. Могу лишь заметить, что не факт, что один и тот же адрес в основной программе и обработчике прерываний - это одно и то же, поскольку уже упоминались регистры MMU :)

---------- Post added at 19:54 ---------- Previous post was at 19:53 ----------

В RT-11 на PRO кстати интерфейс консоли эмулируется в памяти.
Может и тут также.

---------- Post added at 19:58 ---------- Previous post was at 19:54 ----------

Кстати, а с какой стати при работе опросом вообще разрешены прерывания?