Гляну на досуге.
Хотя в общем и целом все просто:
Будет работать в любом мониторе с любым процессором.Код:$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 ----------
Кстати еще мысль: может сделать одну оболочку для тестов, а остальное подгружать?
Тогда можно будет и параметры запоминать один раз на все случаи.