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

Цитата:

Сообщение от Patron

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

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

Цитата:

Сообщение от Patron

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

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

Цитата:

Сообщение от Patron

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

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

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

Цитата:

Сообщение от Patron

команда 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

Цитата:

Сообщение от form

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

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

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

Цитата:

Сообщение от Patron

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

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

Вложений: 1

BASIC-11/RT-11

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

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

Цитата:

Сообщение от Vamos

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

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

Цитата:

Сообщение от form

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

Если в коде программы установить бит 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 ;

Цитата:

Сообщение от Patron

Если в коде программы установить бит 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 :)

Вложений: 1

Цитата:

Сообщение от form

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

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

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

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

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

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