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

[form]

Проверил - да, похоже что с ним получается только код с 6-байтовым заголовком. Заголовок не смотрел.

Формат LDA описан в RT-11 Volume And File Formats Manual. В общем случае файл делится на куски, каждый из них предваряется заголовком в котором прописан адрес в который этот кусок грузится и его длина, а в конце идет контрольная сумма. Заканчивается файл голым заголовком который сообщает стартовый адрес или 1 если его нет. Формат предназначен для записи на перфоленту. Так же используется в XXDP для запускаемых файлов (там формат немного расширен для использования расширенной памяти).

Если нужен чистый код без нулевого блока SAV файла, то проще сделать

.SPLIT FILE.SAV/B:1 ,FILE.BIN

(нужна программа SPLIT.SAV из стандартного набора RT-11).

[Advertiser]

[hobot]

Подскажите как в ЦП по простому синхронизироваться с сетевым таймером?
Задача стереть-вывести спрайт с началом обратного хода.
В ПП все тривиально: 7130 - 1, 7132- адрес процедуры.

перекинул вопрос в тему, надо системнее справочки шпаргалочки, потом искать проще )
@S_V_B

[hobot]

Как и можно ли выполнить LOAD SYS из программы?

допустим я хотел бы из своей программы запускать часики @form 'a CL.SYS которые?
Это хороший пример, поскольку часики для старта не нужны никакие SET, just LO CL?

[Hunta]

Как и можно ли выполнить LOAD SYS из программы?

	.TITLE	RELEAS
;In this example, the Null handler (NL) is loaded into memory,
;used, then released. If NL is LOADed the handler is
;resident, and .FETCH will return HSPACE in R0.
	.MCALL	.FETCH,.RELEAS,.EXIT,.PRINT
START:	.FETCH	#HSPACE,#NLNAME	;Load NL handler
	BCS	FERR	;Not available

; Use handler

	.RELEAS	#NLNAME	;Mark NL no longer in memory
	.EXIT
FERR:	.PRINT	#NONL	;NL not available
	.EXIT
NLNAME:	.RAD50	/NL /	;Name for NL handler
NONL:	.ASCIZ	/?ERELEA-F-NL handler not available/
	.EVEN
HSPACE:			;Beginning of handler area
	.END	START

[form]

Как и можно ли выполнить LOAD SYS из программы?

Выше Hunta привет пример.
Вроде CL поддерживает вызов .FETCH - не помню уже. Если нет - можно сделать

Разве что замечу, что метка перед .END не всегда будет последним адресом программы. Более универсальный метод - взять значение по адресу 50 и прибавить к нему 2 (или взять значение, генерируемое директивой .LIMIT).

[Hunta]

Более универсальный метод - взять значение по адресу 50 и прибавить к нему 2

Более правильный метод - получить размер драйвера (.DSTAT?), выделить кусок памяти соответствующего размера и грузить драйвер туда. Но это если в SJ/FB. А если в XM и виртуальная программа - с ходу не скажу - таких я мало писал

[form]

Более правильный метод - получить размер драйвера (.DSTAT?), выделить кусок памяти соответствующего размера и грузить драйвер туда. Но это если в SJ/FB. А если в XM и виртуальная программа - с ходу не скажу - таких я мало писал

Использование .DSTAT и .SETTOP имеет смысл если хочется грузить драйвера начиная сверху вниз, а промежуток до них использовать на свое усмотрение. MU BASIC-11 так делает например.
В остальном смысла особого нет так как единственное что делает .SETTOP - это просто переставляет значение ячейки 50.
Так что если нет нужды в вышеописанном варианте, можно просто использовать .FETCH с указанием первого свободного адреса, а на выходе получать новый свободный адрес с учетом загруженного драйвера.
Бонусом будет отсутствие лишней суеты с файлом SWAP.SYS после выхода из программы
Что касается XM, в нем FG job е может использовать .FETCH, а в виртуальной BG программе .SETTOP просто переставит лимит задачи на который .FETCH и загруженному драйверу глубоко наплевать
Ну и для полноты картины, остается упомянуть VBGEXE BG job - в этом случае указанный в .FETCH адрес вообще никак не используется.

[Hunta]

имеет смысл если хочется грузить драйвера начиная сверху вниз, а промежуток до них использовать на свое усмотрение

Я писал программы, которые всю доступную память забирали себе в пул, из которой потом и выделялась память кусками. По описанной мной схеме мой код так с подгрузкой драйверов и работал - получить информацию - сколько надо памяти (посмотрел - да, .DSTAT), получить, проверить, что выдали затребованное, загрузить драйвер

[hobot]

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

как это значение получить, ведь у всех свои конфиги ?

[hobot]

Hunta,
form, благодарю )

пока результат такой, буду эксп-ть )

*** CТOП ***                                                                    
000016/ 000000                                                                  
@ 0                                                                             
*** ДBOЙНOE ЗABИCAНИE ***                                                       
000006/ 000000                                                                  
@

двойное зависание - обожаю, но "сбой аппаратуры" это абсолютный хит!