Цитата Сообщение от Patron Посмотреть сообщение
Надо модифицировать для образца какой-нибудь из тестов, а я уже переделаю и все остальные.
Гляну на досуге.
Хотя в общем и целом все просто:
Код:
$JSX	=	4			;РАСШИРЕННОЕ СЛОВО СОСТОЯНИЯ ЗАДАНИЯ
NOVBG$	=	100			;ЗАПРЕТ VBGEXE

	.ASECT
	.=$JSX
	.WORD	NOVBG$			;ЗАПРЕТ ЗАПУСКА ПОД VBGEXE

	.=20
	.WORD	SYSTM,340		;ВЕКТОР IOT

	.PSECT
START::	IOT				;ВЫЗОВ ТЕСТА
;
;ПЕЧАТЬ РЕЗУЛЬТАТОВ
;
	.EXIT				;ВЫХОД

SYSTM::
;
;СОХРАНЕНИЕ ВЕКТОРОВ
;ЗАГЛУШКИ НА ВСЕ ВЕКТОРА
;УСТАНОВКА ВЕКТОРОВ ДЛЯ РАБОТЫ
;ТЕСТ
;ВОССТАНОВЛЕНИЕ ВЕКТОРОВ
;
	RTI
Будет работать в любом мониторе с любым процессором.
Еще как фича - одноразовый код можно поместить в конце, чтобы потом затереть его тестовыми командами.

---------- Post added at 06:31 ---------- Previous post was at 06:26 ----------

Еще пара фич которые могут пригодиться:

Код:
LIMIT:	.LIMIT
по адресу LIMIT будет лежать адрес первого слова программы, по адресу LIMIT+2 - последнего+2.

Код:
SUBR:	CALL	@PC	;ВЫПОЛНИТЬ ПОДПРОГРАММУ ДВА РАЗА
	...
	RETURN
можно добавить еще CALL @PC, тогда будет 4 раза, еще один - 8 раз итд...

---------- Post added at 06:39 ---------- Previous post was at 06:31 ----------

В примере выше вектор инициализируется в SAV файле. Этот вариант не сработает если загружен SD - он защищает SST вектора. Можно вручную делать чтобы и с загруженным SD работало.

---------- Post added at 06:46 ---------- Previous post was at 06:39 ----------

Кстати еще мысль: может сделать одну оболочку для тестов, а остальное подгружать?
Тогда можно будет и параметры запоминать один раз на все случаи.