Гляну на досуге.
Хотя в общем и целом все просто:
Будет работать в любом мониторе с любым процессором.Код:$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+2 - последнего+2.Код:LIMIT: .LIMIT
можно добавить еще CALL @PC, тогда будет 4 раза, еще один - 8 раз итд...Код:SUBR: CALL @PC ;ВЫПОЛНИТЬ ПОДПРОГРАММУ ДВА РАЗА
...
RETURN
---------- 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 ----------
Кстати еще мысль: может сделать одну оболочку для тестов, а остальное подгружать?
Тогда можно будет и параметры запоминать один раз на все случаи.