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

[form]

Пример выполнения определенного кода при любом выходе из программы (.EXIT, CTRL/C, ?MON-F-Ошибка):

$E16LS	==:	316				;СМЕЩЕНИЕ ДО ТАБЛИЦЫ EMT 340-357
$JOBNU	==:	322				;ТЕКУЩИЙ НОМЕР ЗАДАНИЯ

E6.EXI	=:	20				;ХУК ДЛЯ .EXIT

	.MCALL	.PRINT				;СИСТЕМНЫЕ МАКРОСЫ

START::	MOV	@#$SYPTR,R5			;ПОЛУЧАЕМ АДРЕС RMON
	ADD	R5,JOBNU			;СОХРАНЯЕМ АДРЕС JOBNUM
	ADD	$E16LS(R5),R5			;ПОЛУЧАЕМ АДРЕС ТАБЛИЦЫ EMT
	MOV	E6.EXI(R5),R0			;ПОЛУЧАЕМ АДРЕС ПОДПРОГРАММЫ
	ADD	R5,R0				;...ОБРАБОТКИ .EXIT
	MOV	R0,E6EXI			;СОХРАНЯЕМ
	MOV	#EHOOK,R0			;УСТАНАВЛИВАЕМ ХУК
	SUB	R5,R0				;...
	MOV	R0,E6.EXI(R5)			;...ДЛЯ .EXIT

	JMP	R0				;КОМАНДА, ВЫЗЫВАЮЩАЯ ПАДЕНИЕ

EHOOK::	TST	@(PC)+				;ФОНОВОЕ ЗАДАНИЕ АКТИВНО?
JOBNU::	.WORD	$JOBNU				;
	BNE	10$				;НЕТ
;+
;ЗДЕСЬ ПОМЕЩАЕМ ЛЮБОЙ КОД КОТОРЫЙ ДОЛЖЕН ВЫПОЛНЯТЬСЯ ПРИ ЛЮБОМ ВЫХОДЕ
;ИЗ ФОНОВОГО ЗАДАНИЯ. ДЛЯ .EXIT ИМЕЕТ ЗНАЧЕНИЕ РАВЕН R0 НУЛЮ ИЛИ НЕТ.
;ПОСКОЛЬКУ МЫ ЛОВИМ ТОЛЬКО СВОЙ ОСТАНОВ, ПРОСТО СЧИТАЕМ, ЧТО ЕМУ НЕ НУЖНО
;БЫТЬ РАВНЫМ НУЛЮ (НЕ ВЫПОЛНЯТЬ .HRESET ПО ВЫХОДУ).
;-
	.PRINT	#EXMSG				;ПЕЧАТАЕМ СООБЩЕНИЕ
	MOV	@#$SYPTR,R0			;ПОЛУЧАЕМ АДРЕС RMON
	ADD	$E16LS(R0),R0			;ПОЛУЧАЕМ АДРЕС ТАБЛИЦЫ EMT
	MOV	E6EXI,-(SP)			;УБИРАЕМ
	SUB	R0,@SP				;...ХУК
	MOV	(SP)+,E6.EXI(R0)		;...ДЛЯ .EXIT
10$:	JMP	@(PC)+				;ВЫПОЛНЯЕМ .EXIT
E6EXI::	.BLKW					;

EXMSG:	.ASCIZ	<15><12>/*** BYE BYE ***/<15><12>

	.END	START

.EX ATEXIT

?MON-F-Trap to 10 001042

*** BYE BYE ***


.

[nzeemin]

С небольшой правкой (stricmp -> strcasecmp) собирается и не под visual studio :-)

Мне по-другому пришлось заменить для VS2008:

#define stricmp _stricmp

А так вообще MACRO11.exe собралось и работает, и походу тот же объектный файл даёт.

Ещё бы LINK под современную систему получить.

[DJs3000]

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

[Titus]

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

Похоже, что пока никто.

Хотя, некоторые грозились, вплоть до SuperMario (благо, палитра позволяет).

[Patron]

Интересный способ применяется в ранних версиях Unix для получения указателя на структуру ( заголовок буфера ) из любого указателя на любой член структуры ( на текущую позицию в буфере ).

Для этого нужно, чтобы размер буфера и его выравнивание в памяти были кратны степени 2 ( например: буфера по 8 байтов, выровненные в памяти по границе 010 ) - тогда простое стирание соответствующего количества младших битов ( 07 ) у любого указателя на содержимое буфера даёт указатель на заголовок буфера.

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

[bigral]

Интересный способ применяется в ранних версиях Unix для получения указателя на структуру ( заголовок буфера ) из любого указателя на любой член структуры ( на текущую позицию в буфере ).

Для этого нужно, чтобы размер буфера и его выравнивание в памяти были кратны степени 2 ( например: буфера по 8 байтов, выровненные в памяти по границе 010 ) - тогда простое стирание соответствующего количества младших битов ( 07 ) у любого указателя на содержимое буфера даёт указатель на заголовок буфера.

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

Жесть, ну вот как гуру обычно изьясняются публично не заботясь особенно о том что обычные люди, типа меня, читают форум и ничего понять не могут из этого? Неужели так сложно по человечески обьяснить? Ну как может быть связный список без связей?

Если я правильно понял то суть вопроса в том, что обычно для вычисления адресса элемента массива нужно умножить длинну элемента массива на индекс элемента и прибавить к адресу начала массива. Эта задача может быть ускоренна если сами массивы распологать начиная с адрессов кратным степеням 2 и использовать длинну элемента массива тоже кратную степеням 2-ки, так как в этом случае операция умножения превращается "в сдвиг в лево". Кроме того из любого указателя на адрес внутри любого элемента можно будет легко вычислить адрес начала елемента наложив на него маску (соответствующую длинне 1 элемента массива) операцией AND.

[hobot]

bigral, а мне вот интересно 010 и 07 - в сообщении Patrona, это восьмиричные
числа?

[Patron]

как может быть связный список без связей

Список со связями, но нигде в программе нет ни одного отдельного указателя ни на один из заголовков элементов списка ( только указатели на хранимое в списке содержимое ). Когда надо добавить или исключить элемент списка - у любого из указателей на содержимое нужного элемента обнуляются младшие биты и он превращается в указатель на заголовок этого элемента списка.

[nzeemin]

Исходники LINK от RT-11 V5.7...

Чтиво очень интересное, но с виду тут нехватает модулей LNKEM и LNKLB1 для полноты картины. Можете посмотреть, есть ли они там поблизости? возможно это не исходники а просто объектные модули.

[form]

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

В архиве.