ДВК (и всё, что с ними связано)

[form]

Файл basic.old в том архиве - не оригинал, а копия basic.sav

ok, проверю - я их там тасовал перед выкладыванием, мог ошибиться.

Помимо стандартного BASIC.SAV ( V02-03 размером 56 блоков ) в моих архивах обнаружились следующие варианты

А там среди прочего случайно нету полного дистриба?
В частности файла SUNCFG.BAS. Тогда можно будет собрать на любой вкус. В частности добавить поддержку ассемблерных функций - ее нет ни в одном из дистрибутивных вариантов. Аппаратной арифметики тоже в поставляемых нету...

P.S. Совместимость с системными датами Y2K у этих вариантов BASIC-11 отсутствует.

С оверлейными можно сделать по тому же принципу. С безоверлейным придется повозиться чтобы найти куда приткнуть новый код.

---------- Post added at 20:34 ---------- Previous post was at 20:20 ----------

команда LENGTH

Кстати в mapped мониторах XM, XB, ZM, ZB (для RT-11 начиная с 5.03 или 5.04 - не помню точно) можно существенно увеличить свободное место если в оффсет 4 файла SAV записать 200, а в системе дать команду SET RUN VBGEXE. Ну или можно просто запускать командой V/VRUN без прописывания.

На примере того который я выкладывал (ALL functions):

в оригинале: 5719 FREE
после правки оффсета 4: 19903 FREE

[Patron]

А там среди прочего случайно нету полного дистриба?

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

Относительно дистрибутва BASIC/RAFOS мне помнится, что генерация там происходила из объектных модулей, а командный файл для их сборки создавал PAGEN.SAV

[form]

Относительно дистрибутва BASIC/RAFOS мне помнится, что генерация там происходила из объектных модулей, а командный файл для их сборки создавал PAGEN.SAV

Ну в рафосе да - там везде паген пихали
IND до RT-11 в то время еще не дошел - он в V5 появился, чем помню меня сильно порадовал, а то привык в RSX к нему

[form]

Вышеупомянутый BASOVL.SAV поправленный до Y2K и отдельно SIP.
В остальных навскидку не нашлось места.

[Vamos]

form, РАФОС II найдется? Я сейчас по нему описание (сканы) обрабатываю.

[form]

form, РАФОС II найдется? Я сейчас по нему описание (сканы) обрабатываю.

Не попадался.
Только вот этот RAFOS-PLUS в двух-трех вариантах из которых что-то можно собрать.

[Patron]

В остальных навскидку не нашлось места.

Если в коде программы установить бит 0400 по адресу 044 ( т.е. бит CHAIN$ в JSW ) то коды программ для RT-11 можно начинать не с адреса 01000, а с адреса 0400.

Пример:

;
;  Echo
;
.MCall	.GtLin, .Print, .Exit

.Asect
	.=44
	.Word 400

	.=400
START:	
	.GtLin	#StrBuf
	.Print  #StrBuf
	.Exit

StrBuf:	.BlkB	120.

.End	START
;

[form]

Если в коде программы установить бит 0400 по адресу 044 ( т.е. бит CHAIN$ в JSW ) то коды программ для RT-11 можно начинать не с адреса 01000, а с адреса 0400.

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

Вот BASIC-PLUS-2 когда ковырял - там пришлось повозиться, ужать родной код, воткнуть свой, а ради RTшного лениво тем более, что в оверлейном варианте все делается легко

---------- Post added at 01:05 ---------- Previous post was at 00:35 ----------

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

056220  010500                  MOV     R5,R0           ;R0 -> ДАТА
056222  000300                  SWAB    R0
056224  042700 177603           BIC     #177603,R0      ;R0 -> МЕСЯЦ * 4
056230  062700 021354           ADD     #21354,R0       ;АДРЕС ТАБЛИЦЫ "-JAN-FEB-...DEC-" ВЕЗДЕ РАЗНЫЙ
056234  012702 000005           MOV     #5,R2
056240  112021                  MOVB    (R0)+,(R1)+
056242  005302                  DEC     R2
056244  001375                  BNE     56240

Изначально неправильная маска - должно быть 177703 вместо 177603.


056246  010500                  MOV     R5,R0		;RO -> ДАТА
056250  042700 177740           BIC     #177740,R0	;R0 -> ГОД-72
056254  062700 000110           ADD     #110,R0         ;R0 -> ГОД
056260  004767 000066           CALL    56352		;ВАРИАНТ TWODEC

В моем случае BIC заменяется на вызов "фиксатора" даты, а ADD нопается. Тут уж как захочется.
А вызывается такая подпрограмма:

FIXDAT: MOV     R0,R4
        ASR     R0
        SWAB    R0
        BIC     #^C37,R4
        BIC     #^C140,R0
        ADD     R0,R4
        ADD     #72.,R4
        CLR     R0
        MOV     #16.,R2
20$:    ASL     R4
        ROL     R0
        CMP     R0,#100.
        BLO     30$
        SUB     #100.,R0
30$:    DEC     R2
        BNE     20$
        RETURN

на входе R0 - дата, на выходе R0 -двухциферный год, регистры R2 и R4 меняются, но это не мешает - они там все-равно
везде меняются.

С оверлеем все просто - втыкаешь в конец сегмента и расширяешь его.
С не оверлеями - можно поискать куда приткнуть.

Ну и как вариант - вместо цпу-независимого кода можно запользовать EIS и упростить часть кода до одного DIV :)

[Patron]

код ищется легко в думпе...

Со второй попытки мне, наконец, удалось понять, что надо менять в коде, а что нет.

Результат - Y2K совместимые варианты безоверлейных Бэйсиков BASDBL, BASFF и BAS53 ( соответственно BASDBY, BASFFY и BAS53Y ) прилагаются.

С SB монитором RT-11 v5.7 все эти варианты работают, совместимость с другими мониторами надо проверять.

Правда, BASDBL на самом деле оказался оверлейным, но его оверлейность проявляется (насколько я понял) только при ошибке выполнения программы *.BAS, поскольку оверлеями подгружаются только сообщения интерпретатора.

[form]

Только в адреса 400 зря запихано - лучше в штатные 500е.
400-474 официально поддерживаемые RT-11 ветора устройств и на УКНЦ например они используются.