PDA

Просмотр полной версии : BASIC ДВК



AlecV
27.11.2011, 02:20
Схватился и понял что нету образа ПЗУ-шного BASIC-а от ДВК-1.

Ни у кого образ не завалялся ?

Выглядит он так :

http://en.wikipedia.org/wiki/File:Basic_interpreter_on_the_DVK_computer.JPG

UPD
Нашелся!! образ 013

http://qbus.narod.ru/dvk-rom.zip

Запускается на SIMH. Чтобы загрузить, пришлось написать небольшой скрипт.
SIMH имеет встроенную команду загрузки бинарных файлов но требует
какой-то кривой формат.

#!/usr/bin/perl -w

$num_args = $#ARGV + 1;

if ($num_args != 2) {
print "\nUsage: bin2cmd.pl file.bin LOAD_ADDR > SIMH.cmd\n\n";
exit;
}

$infile=$ARGV[0];
$addr=eval($ARGV[1]);

open INFILE, "<$infile" or die $!;
binmode INFILE;

my ($data, $n);

while (($n = read INFILE, $data, 1) != 0) {
printf ("d -b %06o %03o\n",$addr,ord($data) );
$addr++;
}


close(INFILE);

$ wget http://qbus.narod.ru/dvk-rom.zip
$ unzip dvk-rom.zip
$ ./bin2cmd.pl dvk-rom/013.dat 0140000 >b.cmd
$ pdp11

PDP-11 simulator V3.8-1
sim> do b.cmd
sim> g 140000

b|jsik dwk nc
@0
vdu
list

o{ibk 1 stroke 0
vdu

SKcorp.
27.11.2011, 02:33
Дык сдампь у Фролова.

dk_spb
27.11.2011, 03:40
AlecV, А ты номер ПЗУ скажи - будет тебе Бейсик ;-)

AlecV
27.11.2011, 09:22
dk_spb, как понимаю -012 или -013

http://fincoins.spb.ru/oldpc/re2/1801PE2.html

Patron
27.11.2011, 12:16
У меня в эмуляторе МС1201 - БЭЙСИК ДВК НЦ по команде LIST ошибку не даёт:


БЭЙСИК ДВК НЦ
@0
ЖДУ
LIST

ЖДУ
10 PRINT "Hello!"

LIST

10 PRINT "Hello!"
ЖДУ
RUN
Hello!

ОСТ СТРОКЕ 10
ЖДУ


Где-то у меня даже лежало описание этого языка с примерами программ.

AlecV
27.11.2011, 12:44
Patron, Там надо просто всё писать большими буквами. Маленькие латинские -- это на самом деле большие русские.

иНЖАЛИД ДЕЖИЦЕ (http://lurkmore.ru/%D0%9A%D0%9E%D0%98-8)

Patron
27.11.2011, 13:32
Маленькие латинские -- это на самом деле большие русские.В данном случае - видимо там просто перед проверкой введённой команды её регистр не приводится к верхнему. Дело в том, что код ПЗУ рассчитан на работу с терминалом 15ИЭ-00-013 и выводит сообщения в полноценном КОИ-7 с кодами <RUS><LAT>:



<016> b|jsik dwk nc <017>
@0
<016>vdu<017>
PRINT "yes!!!"
yes!!!
LIST

<016>vdu<017>
list

<016>o{ibk 1 stroke<017> 0
<016>vdu<017>

Alex_K
27.11.2011, 16:20
:v2_wink2:

Patron
27.11.2011, 16:56
У меня БЭЙСИК ДВК НЦ вылетает в пульт при включении таймера.

Alex_K
27.11.2011, 17:13
У меня БЭЙСИК ДВК НЦ вылетает в пульт при включении таймера.
Аналогично, надо выключать, да еще перед запуском исполняю команду RESET, что бы очистить триггер EVNT.

Alex_K
27.11.2011, 18:09
Используются только вектора 34(TRAP) и 60(клавиатура). Сама программа начинается с адреса 100, потому и вылет по таймеру.

AlecV
27.11.2011, 22:38
А что за функции он подключает ?

nuvny wam ras{irennye funkcii ?

hobot
28.11.2011, 00:28
Нашелся!! образ 013
Я пришпилю папку dvk-rom к хламничку в папку ДВК !!! Спасибо !


Аналогично, надо выключать, да еще перед запуском исполняю команду RESET, что бы очистить триггер EVNT.
А на скриншоте - удачный запуск в UKNCBTL ???


Где-то у меня даже лежало описание этого языка с примерами программ.
Если найдётся описание просьба выложить по возможности.

Alex_K
28.11.2011, 00:36
А на скриншоте - удачный запуск в UKNCBTL ???
Да, в нем!

hobot
28.11.2011, 00:42
Да, в нем!
Понял, спасибо, пришпилил в папку ДВК как есть !

Patron
30.11.2011, 20:03
Если найдётся описание просьба выложить по возможности.Описание БЕЙСИК ДВК НЦ нашлось на книжной полке:

С.Т.Усачев
Персональная ЭВМ ДВК-1
Учеб.пособие -М.: Изд-во УДН, 1988.-144 с.
ISBN 5-209-00009-5
Результат сканирования можно скачать здесь: ДВК-1.pdf (http://www.onlinedisk.ru/file/779611/) ( Зеркало: DVK-1.pdf (emulator.pdp-11.org.ru\misc\DVK-1.pdf) ).

...

form
01.12.2011, 21:12
хе-хе
запустил на живой 11/83 ;)

hobot
23.11.2014, 05:20
БЕЙСИК ПОД КГД !!!
Я такого живьём не видел \ не щупал никогда


http://pic.pdp-11.ru/images/mietcr.png


:redface:

обновил образ в архиве (http://archive.pdp-11.org.ru/ukdwk_archive/dwkwebcomplekt/KGD_KCGD_GAMES/), добавив туда этот бейсик редкостный!

Обратите внимание на зоголовок, но ноль считает вверху (на УК-НЦ ноль внизу).
Попробовал в UKNCBTL - работает не корректно !!! Команды на <K1>-<K5> не назначает.
Странный БейсикГР.

SKcorp.
23.11.2014, 06:13
БЕЙСИК ПОД КГД !!!

Обратите внимание на зоголовок, но ноль считает вверху (на УК-НЦ ноль внизу).
Попробовал в UKNCBTL - работает не корректно !!! Команды на <K1>-<K5> не назначает.
Странный БейсикГР.

Ну переделанный УК-НЦ-шный под ДВК - поэтому и некорректно на УК-НЦ работает.

А что такое 15ИЭ-10-013 ?

А с КСМ+КГД идет?

MM
23.11.2014, 14:13
Вот не помню на 100%, но вроде как 15-ИЭ-0013 использовали с КГД - это который с 2-мя разъемами ОНП-КГ-56-16. В принципе, КГД как раз и делался для САПР с этим дисплеем. Вероятно, нужна еще какая-то платка согласования - видел её на комплекте Э-60 - там почти ничего нет.

hobot
23.11.2014, 22:55
Со слов ветерана производства (уже в теме про игры обсуждали),
ДВК-2М - комплектовались Фрязинскими мониторами (терминалами?) + КГД, сама
модификация случилась от того, что 15ИЭ-00-013 на складе был завал (новеньких, в масле), а КСМ поставляли (по началу) мало мало. Вот в Зеленограде ДВК-2М стояли в школах и местном вузе, а так-же в игровых центрах как сервера для БК0010.

И только в одной из школ, где была студия по производству (написанию) строго коммерческих (образовательных, системных и игровых) проектов для КУВТ уже стояла честная ДВКашка с КСМ+КГД, кстати на ней впервые я поработал с ЖД.
Там нереальный архив ПО был. И УК-НЦшного и просто под RT-11. Вот этот самый компьютер бесследно исчез после ремонтов помещений.

Vslav
23.11.2014, 23:08
ДВК-2М - комплектовались Фрязинскими мониторами (терминалами?) + КГД,

+1. Сам на такой зелененькой Land прошел на КГД.

На моей МС1201.01 обнаружилась прошивка 012 - с предыдущей версией BASIC. Буду запускать - считаю прошивку, а то в Сети не попадалась.

hobot
23.11.2014, 23:12
Буду запускать - считаю прошивку,
Обязательно киньте прямую ссылку что бы я мог подшить к прочим
http://archive.pdp-11.org.ru/ukdwk_archive/dwkwebcomplekt/dwkrom/

Спасибо.

SKcorp.
24.11.2014, 00:23
15ИЭ-10-013 на складе был завал (новеньких, в масле),

Угу, и ДВК-10.

Не было в природе 15ИЭ-10-013.

hobot
24.11.2014, 00:43
Не было в природе 15ИЭ-10-013.
Ну да там 00, а не 10 - надо Titusу поправить в эмуляторе надпись - делов то, зато
будет новый релиз эмулятора 12f+ ) Я вообще не замечал, главное по первым
буковкам понятно, что речь о Фрязинском легендарном терминалище )

---------- Post added at 00:43 ---------- Previous post was at 00:40 ----------

И да про ситуацию с тем что КСМ не хватало а Фрязинские были - это не выдумка )

http://pic.pdp-11.ru/images/err.png

SKcorp.
24.11.2014, 00:45
Я вообще не замечал, главное по первым
буковкам понятно

О, тогда этот текст прямо для Вас:

Диапгпзотг носироизводгнютькпх частот т от кубки):птргтктатаит "по 9-и октавы. "Специальные звуковые эфцюкчтудьн поп-.гггпдч°ато' "асгатчръ, вибрато, глистсаъждгцэ, плавное :<:1ь1е'гг. :|ьэл1и т<> тшупагп, мчавшие ускои реп 1 ие темпа. Функции базового музыкального моглитора --- ввод тиузые кального текста с клавиатуры или с магнитной ленты, вывод Микросхема ПЗУ КРШШРЁЁ" 370 вставка ноты (команд 1), удаление нот ы (комапдьт), трапспо ° " у " зиция на октаву вверх, транспозиция на октаву вниз ускоро (базовыи музыкальным тионитор) 1 -* ' пие общего темпа, замедление общего темпа, воспроизведение 3 'р}?}{0Б.ОЕ'[Ёд-[ьВ0 по Эксплуатации 1 музыкального текста, вывод справочнои ттнфорвлацигп [та экран, 1 Объем ОЗУ ДЛЯ хранения ноты жгли команль ш- <1 багета. Коддгдчект Упашвк" Объем служебного ОЗУ -- 22 байта. -._._ м"."_"ш-_шшп "пиши-шине шт> - ммммм щ-нднщщ" Таймер -- выводит Часы, минуты, секуидгы в С.'Ч3''>1<;сб11у|<>

MM
24.11.2014, 04:50
Кстати, дисплеев типа 15-ИЭ-0013 был целый выводок - и они как раз различались всего одним-двумя символами в обозначении.
В часности, поздняя модель с одноплаткой по типу КСМ и без полной корзины - не помню точного названия всего такого дисплея, может "17" модель ?

hobot
02.12.2014, 16:23
В продолжение темы о Бэйсике на ДВК.

Единственный бэйсик где я увидел графику (на ДВКашном железе!!!) в эмуляторе Titusa - это "пересобранный под КГД (под 2 цвета)" бэйсик 88 года УК-НЦшный.
Вот и программа для ДВК под него есть -



http://pic.pdp-11.ru/images/screenshot000.png

http://pic.pdp-11.ru/images/screenshot001.png



Вопросов два.
1. Patron - у вас эмулируется принтер, но не эмулируется КГД - печально и наоборот совсем у Titusa - ну он эмулятор ради игрушек делал, поэтому это риторический вопрос. В эмуляторе ДВК соотв. запустить BASGR.SAV - нет возможности.

2. К какому варианту бэйсика относится вот эта справка??? Если он уже давно есть в архиве - тыкнете меня носом - или что то путаю???


: КОМАНДЫ ГРАФИЧЕСКОГО BASIC'А НА "ДВК-3" :
+-----------------------------------------+

CALL INIT(I%,J%) - УСТАНОВКА ГРАФИЧЕСКОГО РЕЖИМА РАБОТЫ,
-------------
I% = 0 - ВЫКЛЮЧИТЬ ГРАФИЧЕСКИЙ ЭКРАН,
= 1 - ВКЛЮЧИТЬ ГРАФИЧЕСКИЙ ЭКРАН,
= 2 - СОХРАНИТЬ ТЕКУЩУЮ УСТАНОВКУ И ДЕЙСТВОВАТЬ
СООБРАЗНО СО ВТОРЫМ ПАРАМЕТРОМ;

J% = -1 - ИНВЕРТИРОВАТЬ ТЕКУЩЕЕ ИЗОБРАЖЕНИЕ,
= 0 - ЧЕРНЫЙ ФОН,
= 1 - БЕЛЫЙ ФОН,
= 2 - СОХРАНИТЬ ТЕКУЩУЮ УСТАНОВКУ И ДЕЙСТВОВАТЬ
СООБРАЗНО С ПЕРВЫМ ПАРАМЕТРОМ;

CALL STYLE(I%) - ОПРЕДЕЛЕНИЕ ЦВЕТА РИСУЕМЫХ ДАЛЕЕ ЛИНИЙ,
---------------
I% = -1 - ИНВЕРСНЫЙ ВЫВОД ЛИНИИ( Т.Е. БЕЛЫМ ПО ЧЕРНОМУ
И ЧЕРНЫМ ПО БЕЛОМУ ),
= 0 - ЧЕРНЫЕ ЛИНИИ,
= 1 - БЕЛЫЕ ЛИНИИ;

CALL PNTA(X%,Y%) - ВЫВОД ТОЧКИ В АБСОЛЮТНЫХ КООРДИНАТАХ;
---------------

CALL CURSOR(I%) - ВИД ГРАФИЧЕСКОГО КУРСОРА,
-----------------
I% = 0 - КУРСОР НЕВИДИМЫЙ,
= 1 - КУРСОР ВИДИМЫЙ;

CALL MOVA(X%,Y%) - УСТАНОВИТЬ КУРСОР В ТОЧКУ (АБСОЛЮТ. КООРД.)
---------------

CALL LINA(X1%,Y1%,X2%,Y2%) - ЧЕРТИТЬ ЛИНИЮ ( АБСОЛЮТНЫЕ КООРДИНАТЫ )
---------------

CALL RECTA(X1%,Y1%,X2%,Y2%) - ЧЕРТИТЬ ПРЯМОУГОЛЬНИК(АБСОЛЮТ. КООРД.)
----------------

CALL CIRCLE(R%,X%,Y%) - ЧЕРТИТЬ ОКРУЖНОСТЬ РАДИУСА R%, С ЦЕНТРОМ
----------------- В ТОЧКЕ (X%,Y%) -( АБСОЛЮТНЫЕ КООРДИНАТЫ )

CALL FILL(X%,Y%) - ГУСТО ЗАКРАСИТЬ ОГРАНИЧЕННЫЙ КОНТУР, ОХВАТИВШИЙ
--------------- И ТОЧКУ (X%,Y%) - ( АБСОЛЮТНЫЕ КООРДИНАТЫ )

CALL PNTR(X%,Y%) - ВЫВОД ТОЧКИ В ОТНОСИТЕЛЬНЫХ КООРДИНАТАХ;
---------------

CALL MOVR(X%,Y%) - УСТАНОВИТЬ КУРСОР В ТОЧКУ ( ОТНОСИТ. КООРД.)
---------------

CALL LINR(X%,Y%) - ЧЕРТИТЬ ЛИНИЮ В ОТНОСИТЕЛЬНЫХ КООРДИНАТАХ;
---------------

CALL RECTR(X%,Y%) - ЧЕРТИТЬ ПРЯМОУГОЛЬНИК( ОТНОСИТЕЛЬНЫЕ КООРДИНАТЫ);
----------------



- может быть к тому, что в ПЗУ прошит??? Или всё таки к дисковой
реализации???

---------- Post added at 15:49 ---------- Previous post was at 14:54 ----------

Зато вот этот вариант бейсика в эмуляторе ДВК не трапиться,
запускается нормально, но вот функцию SCREEN - как я не пытался
всё время пишет - или неправильный вызов функции или синтакс.ошибка
:confused_std:


http://pic.pdp-11.ru/images/20141202153813.png

На УК-НЦ (в обоих эмуляторах) так же запускается, по размеру совпадает
с одним из вариантов дискового бэйсика для УК-НЦ, но фун-и на кнопки <K1> - <K5> не назначает. Скриншот из эмулятора ДВК сделан.
Что за странная аббревиатура? :confused_std:

---------- Post added at 16:21 ---------- Previous post was at 15:49 ----------

Ха! Среди прочего кажется нащупался какой-то ДВКашный BASIC \ GRAPH

http://pic.pdp-11.ru/images/screenshot000cr.png

Правда вешает эмулятор, но я поэкспериментирую ещё для уверенности и отпишусь.

---------- Post added at 16:23 ---------- Previous post was at 16:21 ----------

Аббревиатура "VU KNSC" - может кто то просто "поиздевался" над ненавистным УК-НЦ??? Поскольку если убрать V,пробел,S получим UKNC? (домыслы мои).

Titus
02.12.2014, 16:45
Правда вешает эмулятор, но я поэкспериментирую ещё для уверенности и отпишусь.

Уважаемый, когда пишешь 'эмулятор', следует указывать КАКОЙ эмулятор)

hobot
02.12.2014, 17:42
Уважаемый, когда пишешь 'эмулятор', следует указывать КАКОЙ эмулятор
ДА! просто у меня тут творческий процесс, вешает ВАШ эмулятор !!! Я отпишусь ещё,
нашёлся тут файлик под названием BASMSX.SAV - по умолчанию запускает 15ИЭ+КГД в EmuStudio - а стартовый экран такой у него


http://pic.pdp-11.ru/images/screenshot000flf.png


В общем у меня тут завал
+ полный архив от Колдуна до меня доехал (благодарность anasana!).
Есть с чем копаться ))) Про архив Колдуна отдельная песня,
поскольку для ДВК там горстка дискет, но есть, цитата:


Там софт уже не от ДВК, а от больших машин: МС0108, МС1212.

ПГЩ.00149-01 98 02-хх (где хх - номер дискеты от 01 до 30)
МОС-32М
ОПЕРАЦИОННАЯ СИСТЕМА


http://pic.pdp-11.ru/images/fbfd67e1b425.jpg

Что за рамки этой темы уходит (и моего архива конечно).

---------- Post added at 17:42 ---------- Previous post was at 16:56 ----------



http://pic.pdp-11.ru/images/20141202143502562.png

- вешается во всех эмулятора (Emustudio 12f, UKNCBTL, ДВК эмулятор).
Очень возможно, что файлик битый - по размеру возможно копию найду, отпишусь.

Titus
02.12.2014, 18:31
ДА! просто у меня тут творческий процесс, вешает ВАШ эмулятор !!! Я отпишусь ещё,
нашёлся тут файлик под названием BASMSX.SAV - по умолчанию запускает 15ИЭ+КГД в EmuStudio - а стартовый экран такой у него

Так выкладывай. И спорный софт, который вешает эмули тоже.

hobot
02.12.2014, 19:26
Так выкладывай.
Ты же знаешь, я всегда с радостью. Но сейчас ситуация патовая буквально.
1.У меня лимит места на форуме для вложений 0
2.Сразу лить на хостинг pdp-11.org.ru в папку temp какую-нибудь? Мне это не удобно, поскольку запутаюсь сам, что проверено что нет (до этого на сайт заливал только проверенное+описание).
3. Левые - сторонние файлообменники = битые ссылки в сообщениях, потом в ЛС
приходит - пожалуйста вот тот архивчик дайте скачать - (какой тот? что там было?)
через месяц или полгода, представь! )))

Так что немного терпения Titus - я обязательно всё так или иначе в общий доступ.
Иначе смысл какой? Вот shatered (http://zx-pk.ru/showthread.php?t=20855)- что то и в ЛС молчок и в теме тишина.

Хобот статус: завал бэйсиков )))

Titus
02.12.2014, 20:25
Так что немного терпения Titus - я обязательно всё так или иначе в общий доступ.

Все это отмазки. Было бы желание, можно было бы и поделиться самым интересным. К твоим услугам sderni.ru.

hobot
03.12.2014, 05:52
Все это отмазки
Даже не знаю, что тебе ещё ответить (http://zx-pk.ru/showpost.php?p=758359&postcount=32). Давай не будем оффтопить тут.

hobot
03.12.2014, 08:15
Очень надеюсь обнаружить ДВКашный БЭЙСИК с поддержкой графики
(читайте тему и последние сообщения), что бы запустить в нём вот этот
цветочек.



1 INIT(1%,0%) \ STYLE(-1%)
2 R%=RND*44+2
3 X%=RND*300+50
4 Y%=RND*200+50
6 I=I+1
7 IF INT(I/2)*2=I THEN 17
9 FOR J%=R% TO 2% STEP -2%
11 CIRCLE(J%,X%,Y%)
15 NEXT J%
16 GO TO 20
17 FOR J%=2% TO R% STEP 2% \ CIRCLE(J%,X%,Y%) \ NEXT J%
20 IF I=77 THEN I=1 \ GO TO 55
22 GO TO 2
55 INIT(0%,0%)
66 GO TO 1



Интересный и непривычный момент - несколько операторов в строке.
Листинг полностью соответствует справке по языку показанной тут (http://zx-pk.ru/showpost.php?p=758295&postcount=28).

form
03.12.2014, 08:20
Интересный и непривычный момент - несколько операторов в строке

Чего ж тут непривычного? Обычное явление, правда реализации были разные. У DEC традиционно операторы разделялись через "\", в некоторых реализациях использовалось ":"...

---------- Post added at 11:20 ---------- Previous post was at 11:19 ----------

А пример выше вроде в вильнюсовском должен работать если начало убрать - там вроде был такой оператер :)

hobot
03.12.2014, 08:25
А пример выше вроде в вильнюсовском должен работать
Да, но надо обрабатывать - переделывать под Вильнюс, там только 1 оператор и всяких
INITов там нету ) Там SCREEN - режим экрана задаёт. Без адаптации будет Ошибка 2 )

Вот ещё листинг с графикой на бейсике для кгд


1 E$=CHR$(27)+"Y "+CHR$(27)+"J" \ INPUT X1,X2,Y1,Y2,S,N
2 DEF FNA(X,Y)=A*SIN(ABS(X)+ABS(Y))+B
3 INIT(1%,0%) \ STYLE(1%)
9 A=50 \ B=170 \ D=120
10 PRINT E$
11 H1=(Y2-Y1)/N
15 H=(X2-X1)/280
16 G=110/N*H
20 FOR Y=Y1 TO Y2 STEP H1
30 D=D-110/N \ B=B-110/N \ X0%=1
33 Z%=0
40 FOR X=X1-D*H TO X1+(392-D)*H STEP H
50 X0%=X0%+1% \ Y0%=FNA(X,Y)
51 IF Y0%<1% THEN 99 \ IF Y0%>279% THEN Y0%=279%
60 PNTA(X0%,Y0%) \ IF S=0 THEN 99
61 STYLE(Z%)
62 IF X0%-X0%/7%*7%<2% THEN LINA(X0%,Y0%-1%,X0%,1%) \ GO TO 90
65 X3=X-G \ Y3=Y-H1 \ Y%=FNA(X3,Y3)+110/N
66 IF ABS(Y%-Y0%)<2% THEN 90
68 IF Y%>Y0% THEN LINA(X0%,Y%-1%,X0%,Y0%+1%)
70 IF Y%<Y0% THEN LINA(X0%,Y%+1%,X0%,Y0%-1%)
90 STYLE(1%)
99 NEXT X \ NEXT Y \ PRINT E$,CHR$(7) \ F=SYS(1) \ INIT(0%,0%)


Да! И STYLE в обычном бейсике так же нету.

SKcorp.
03.12.2014, 10:24
[/COLOR]Аббревиатура "VU KNSC" - может кто то просто "поиздевался" над ненавистным УК-НЦ??? Поскольку если убрать V,пробел,S получим UKNC? (домыслы мои).

Это вполне могло быть сокращение какого-нибудь НИИ.

form
03.12.2014, 10:29
Да! И STYLE в обычном бейсике так же нету.

В обычном и графики нету :)

hobot
03.12.2014, 11:46
В обычном и графики нету
Юмор зачтён! У меня кроме вновь прибывших БЭЙСИКОВ ещё отдельная коллекция которые ты собирал. Я конечно "обычным" назвал БК, УК-НЦешный ВИЛЬНЮС.

Гляди какая штука - этот бесик \ граф для RT-11 (ДВК+КГД) - проверяет, что бы ниодна линия или точка не выходила за пределы экрана терминала, в то время как
вильнюс-бейсик это вполне допускает и к ошибке это не приводит (за исключением переполнения). Такие вот дела.


SKcorp., возможно, хотя эти надписи править легко, можно что угодно
в шапке написать))) Я помню как над бэйсиком издевались в школе. Что он
только в шапке не писал )))

Очень не похоже что он битый (формально) BASGR.SAV
Но виснет на запросе функций - это значит что ни в одном из трёх эмуляторов нет чего-то ему 100% необходимого? Вот мучайте его если хотите кину именно этот вариант во временную папку и буду дальше копаться с дискетами, там к нему и
RUBIK.SAV - самый сложный на свете вариант тетриса, самый не играбельный )))

http://archive.pdp-11.org.ru/vid/a_new2++.rar

---------- Post added at 11:46 ---------- Previous post was at 11:43 ----------

А да! Именно basic \ graph - это 61 блок который - файл у которого в названии 2.

shattered
03.12.2014, 23:14
Вот shatered (http://zx-pk.ru/showthread.php?t=20855)- что то и в ЛС молчок и в теме тишина.


shattered сам хотел делать архив а-ля bitsavers, победила лень, как обычно :(

form
03.12.2014, 23:15
shattered сам хотел делать архив а-ля bitsavers, победила лень, как обычно :(

Дайте мне диск побольше - будет вам всем место под архив, а то 4Tb уже как-то незаметно подползают к концу :D

shattered
03.12.2014, 23:42
это можно устроить, надо только проверить запасные диски

hobot
04.12.2014, 07:54
shattered сам хотел делать архив а-ля bitsavers, победила лень, как обычно
Это ни разу не повод пообещать три года и ничего не выкладывать.
Это опять же ни разу не повод не делиться образами с сочувствующими людьми.
Логики нет в таком оправдании.

Наличие или отсутствие материалов, которые так или иначе предполагается
в общий доступ выложить, на других (по одной теме) ресурсах никоим образом
не навредит и не помешает вам что угодно там организовывать. Потому как
(допустим) я обработал бы ваши образы и выложил у себя. Вы бы обработали
свои образы (по своему) и оформили на своей площадке (опять же по своему).
В любом случае - вы первоисточник именно тех образов, которые публикуете впервые
и которые нигде ранее не встречались. Но это строго моё мнение.
Таким образом, по прежнему призываю вас поучаствовать в деле архива и поделиться оригинальными образами дискет. Если посмотрите, на сегодняшний день, раздел ДВК по прежнему "страдает" недостатком реальных классических материалов. (Образы новоделы собранные в эмуляторах в расчёт не берутся).
Как-то так.




Дайте мне диск побольше
Сейчас конечно не самый выгодный (календарно) момент для апгрейта.
Лучше дождаться марта-апреля в плане цен. Сейчас спрос самый пик
(несмотря на обвал рубля) - праздники же зимние и так будет до конца февраля.
(просто из опыта). А так можно в принципе скинуться - получиться с каждого
заинтересованного и добровольного участника сумма не большая, но в купе
новенький хард (form - уточни параметры ЖД кстати, что бы можно было прицениться или пару надо ставить? - Я думаю этот вопрос можно обсудить в любой момент в теме по архиву (http://zx-pk.ru/showthread.php?t=16861) .

form
04.12.2014, 07:59
уточни параметры ЖД кстати

Да чем больше тем лучше ;)
Сейчас стоит пара двухтерабайтников, довольно плотно забиты, хотя место еще есть:
pdp-11:~% df -h
Filesystem Size Used Avail Capacity Mounted on
/dev/sd0a 1008M 70.1M 888M 7% /
/dev/sd1a 1.8T 1.7T 25.7G 99% /archive
/dev/sd0n 1.5T 1.0T 439G 70% /home
/dev/sd0d 2.0G 8.0K 1.9G 0% /tmp
/dev/sd0g 15.7G 1.4G 13.5G 10% /usr
/dev/sd0l 2.0G 1.1G 762M 60% /usr/obj
/dev/sd0j 2.0G 416M 1.5G 22% /usr/ports
/dev/sd0k 2.0G 241M 1.6G 13% /usr/ports/pobj
/dev/sd0h 2.0G 939M 973M 49% /usr/src
/dev/sd0i 2.0G 584M 1.3G 31% /usr/xenocara
/dev/sd0m 2.0G 524M 1.4G 27% /usr/xobj
/dev/sd0e 254G 2.4G 239G 1% /var
/dev/sd0f 2.0G 4.0K 1.9G 0% /var/tmp
pdp-11:~%
Архив живет не в /archive как можно было бы подумать, а в /home - там еще почти пол терабайта есть :)

hobot
04.12.2014, 08:22
form, ответил тут http://zx-pk.ru/showpost.php?p=758679&postcount=396

shattered
05.12.2014, 00:44
Это ни разу не повод пообещать три года и ничего не выкладывать.
Это опять же ни разу не повод не делиться образами с сочувствующими людьми.
Логики нет в таком оправдании.


накачу-ка я пятачину от стыда. :v2_dizzy_vodka3: :v2_dizzy_vodka2: :v2_dizzy_vodka:

hobot
05.12.2014, 13:57
Так! Обновлю баг репорт по бейсикам и эмуляторам!!!

Titus - он не висит ))) Он просто не рисует символы, но реагирует на управляющие сочетания клавиш и "ВК" )))


http://pic.pdp-11.ru/images/screenshot000mim.png


Похожее поведение и в эмуляторе Patrona.



.RU BASG2
BASIC / GRAPH V02-03G
OPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)?
READY

?SYNTAX ERROR

READY

READY

READY

READY

READY

READY


Такие дела.
:confused_std:

---------- Post added at 13:57 ---------- Previous post was at 13:53 ----------

Ну и UKNCBTL соответственно всё такая же картина !!!

http://pic.pdp-11.ru/images/cropimagesss.png


Резюме - он игнорирует алфавитно-цифровую клавиатуру (то есть не хочет её на экран выводить), но реагирует на переполнение строки и если ввести ему (вслепую) BYE корректно завершает работу !!! )))

Историческая справка (из книги ДВК-1):


4. ПОДГОТОВКА ДВК-1 К РАБОТЕ
Подготовка ДВК-1 к работе заключается не только во вклю*
чении аппаратуры, но и в загрузке интерпретатора Бейсик в
оперативную память.

http://i.smiles2k.net/sad_smiles/74.gif

Titus
05.12.2014, 14:18
Так! Обновлю баг репорт по бейсикам и эмуляторам!!!

Titus - он не висит ))) Он просто не рисует символы, но реагирует на управляющие сочетания клавиш и "ВК" )))

Ввиду того, что ты данный бейсик на всеобщее обозрение не выложил, то сам же на свои вопросы и отвечай)

hobot
05.12.2014, 14:33
Есть ещё бэйсик - который приветствие имеет такое


BASIK .SAV 56 31-Dec-1982 3689

.BASIK
BASIC / OSDVK V02-03O
OPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)? ALL

READY
NEW
NEW FILE NAME--TEST

READY
10 CLS
AUTO 10

?SYNTAX ERROR

READY
RU

?SYNTAX ERROR

READY
LIST

?MON-F-Trap to 4 037036

.


И краткая к нему справочка







РАБОТА С BASIC-ИНТЕРПРЕТАТОРОМ ДBК-2M.
=========================================

1. ЗАГРУЗКА ИНТЕРПРЕТАТОРА :

.RUN DX0:BASIC - C ЛЕВОГО ДИСКОВОДА
.RUN DX1:BASIC - С ПРАВОГО ДИСКОВОДА

P.S. ДОПУСТИМЫЕ ФОРМЫ ЗАГРУЗКИ : .BASIC - DK: ДЛЯ RT11SJ
.RU BASIC - SY: ДЛЯ RT11SJ

2. ПОСЛЕ ЗАГРУЗКИ ИНТЕРПРЕТАТОРА ПОЯВЛЯЕТСЯ СООБЩЕНИЕ :

BASIC / V02-030
OPTIONAL FUNCTIONS( ALL, NONE OR INDIVIDUAL ) ?

В ОТВЕТ НА ЗАПРОС СИСТЕМЫ СЛЕДУЕТ НАЖАТЬ КЛАВИШУ "ВК".

P.S. ДОПУСТИМЫЕ ФОРМЫ ОТВЕТА : ALL "BK" - ИСПОЛЬЗОВАТЬ ВСЕ ФУНКЦИИ
NONE "ВК" - ОТКАЗ ОТ ВСТРОЕНЫХ ФУНКЦИЙ
INDIVIDUAL "ВК" - ВЫБОР ОТДЕЛЬНЫХ ФУНКЦИЙ

3. ПОСЛЕ ВХОДА В РАБОЧИЙ РЕЖИМ ИНТЕРПРЕТАТОРА ПОЯВИТСЯ СООБЩЕНИЕ :

READY

В РАБОЧЕМ РЕЖИМЕ ИНТЕРПРЕТАТОР ОЖИДАЕТ ВВОДА КОМАНД ОПЕРАТОРА ИЛИ
ОПЕРАТОРОВ ЯЗЫКА BASIC.

4. КОМАНДЫ ОПЕРАТОРА :

NEW [ ИМЯ ПРОГРАММЫ ] - КОМАНДА ОЧИЩАЕТ СОДЕРЖИМОЕ ПАМЯТИ И ПРИСВАИВАЕТ
ИМЯ ПРОГРАММЕ.

RENAME [ ИМЯ ПРОГРАММЫ ] - ПРИСВОЕНИЕ НОВОГО ИМЕНИ ПРОГРАММЕ.

LIST [ НОМЕРА СТРОК ] - ВЫВЕСТИ НА ТЕРМИНАЛ УКАЗАННЫЕ СТРОКИ ПРОГРАММЫ.

OLD [ СПЕЦИФИКАЦИЯ ФАЙЛА ] - ОЧИСТКА ПАМЯТИ И ЗАГРУЗКА ПРОГРАММЫ ИЗ
УКАЗАННОГО ФАЙЛА.

DEL [ НОМЕРА СТРОК ] - СТЕРЕТЬ УКАЗАННЫЕ СТРОКИ ИЗ ТЕКСТА ПРОГРАММЫ.

RUN - ВЫПОЛНИТЬ ПРОГРАММУ.

SAVE [ СПЕЦИФИКАЦИЯ ФАЙЛА ] - СОХРАНИТЬ ТЕКСТ ПРОГРАММЫ В ВИДЕ ФАЙЛА
С УКАЗАННОЙ СПЕЦИФИКАЦИЕЙ.

REPLACE [ СПЕЦИФИКАЦИЯ ФАЙЛА ] - ЗАМЕНА ФАЙЛА РАНЕЕ СОЗДАННОГО ПО
КОМАНДЕ SAVE.

UNSAVE [ СПЕЦИФИКАЦИЯ ФАЙЛА ] - СТЕРЕТЬ УКАЗАННЫЙ ФАЙЛ.

BYE - ВОЗВРАТИТЬ УПРАВЛЕНИЕ МОНИТОРУ.

5. ПРИМЕРЫ КОМАНД ОПЕРАТОРА :

NEW PROGR - ПРИСВОИТЬ НОВОЙ ПРОГРАММЕ ИМЯ PROGR.

LIST - ВЫВОД ВСЕГО ТЕКСТА ПРОГРАММЫ НА ДИСПЛЕЙ.

LIST 111 - ВЫВОД ОПЕРАТОРА 111.

LIST 1-222 - ВЫВОД ОПЕРАТОРОВ С 1 ПО 222.

LIST 22- - ВЫВОД ОПЕРАТОРОВ НАЧИНАЯ С 22 И ДО КОНЦА.

LIST -55 - ВЫВОД ОПЕРАТОРОВ С НАЧАЛА ДО 55.

DEL - УДАЛЕНИЕ ТЕКСТА ПРОГРАММЫ.

DEL 11 - УДАЛЕНИЕ ОПЕРАТОРА 11.

DEL 11-333 - УДАЛЕНИЕ ОПЕРАТОРОВ С 11 ПО 333.

44 - УДАЛЕНИЕ ОПЕРАТОРА 44.

RUN - ВЫПОЛНИТЬ ПРОГРАММУ.

RUN DX0:PROGR - ЗАГРУЗИТЬ И ВЫПОЛНИТЬ ПРОГРАММУ ИЗ ФАЙЛА DX0:PROGR.BAS.

OLD DX1:PROGR - ЗАГРУЗИТЬ ПРОГРАММУ ИЗ ФАЙЛА DX1:PROGR.BAS.

OLD PROGR - ЗАГРУЗИТЬ ПРОГРАММУ ИЗ ФАЙЛА PROGR.BAS С УСТРОЙСТВА DK:.

SAVE - СОХРАНИТЬ ТЕКСТ ПРОГРАММЫ НА УСТРОЙСТВЕ DK: С ИМЕНЕМ УКАЗАННЫМ
В ОПЕРАТОРЕ NEW.

SAVE DX0:PROGR - СОХРАНИТЬ ТЕКСТ В ФАЙЛЕ DX0:PROGR.BAS.

UNSAVE DX1:PROGR - УДАЛИТЬ ФАЙЛ DX1:PROGR.BAS.

REPLACE - ЗАМЕНИТЬ ТЕКСТОМ ИЗ ПАМЯТИ СУЩЕСТВУЮЩИЙ ФАЙЛ НА УСТОЙСТВЕ DK:
С ТАКИМ ЖЕ ИМЕНЕМ.

RENAME PROGR - ПРИСВОИТЬ ПРОГРАММЕ НОВОЕ ИМЯ PROGR БЕЗ ОЧИСТКИ ПАМЯТИ.

BYE - ЗАКОНЧИТЬ РАБОТУ С BASIC-ИНТЕРПРЕТАТОРОМ.

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* ОДНОВРЕМЕННО НАЖАТЫЕ КЛАВИШИ СУ / S - ПРИОСТАНОВИТЬ ВЫВОД НА ДИСПЛЕЙ.
* ОДНОВРЕМЕННО НАЖАТЫЕ КЛАВИШИ СУ / Q - ПРОДОЛЖИТЬ ОСТАНОВЛЕННЫЙ ВЫВОД.
* ОДНОВРЕМЕННО НАЖАТЫЕ КЛАВИШИ СУ / U - СТЕРЕТЬ ТЕКУЩУЮ СТРОКУ.
* ОДНОВРЕМЕННО НАЖАТЫЕ КЛАВИШИ СУ / C - ОСТАНОВИТЬ ВЫПОЛНЕНИЕ ПРОГРАММЫ,
* ЗАПУЩЕННОЙ ПО КОМАНДЕ RUN.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *



---------- Post added at 14:33 ---------- Previous post was at 14:25 ----------


Ввиду того, что ты данный бейсик на всеобщее обозрение не выложил,
http://i.smiles2k.net/sad_smiles/Bawling.gif

Я уже привык что ты на собственные дискеты ссылки просишь, но тут тема 5 сообщений ??? У меня слов просто нет, Titus, кроме как спросить - ты в порядке там в целом ? Или это хитрый план убить репутацию Хобота?

http://zx-pk.ru/showpost.php?p=758461&postcount=35

Ты же там даже + нажал ??? (совсем совсем грустно, если Titus предателем оказался)

Titus
05.12.2014, 14:37
Я уже привык что ты на собственные дискеты ссылки просишь, но тут тема 5 сообщений ??? У меня слов просто нет, Titus, кроме как спросить - ты в порядке там в целом ? Или это хитрый план убить репутацию Хобота?

http://zx-pk.ru/showpost.php?p=758461&postcount=35

Ты же там даже + нажал ??? (совсем совсем грустно, если Titus предателем оказался)

Не путай меня. По твоей ссылке нет никакого бейсика и никакого моего лайка.
Или линк на файл с бейсиком, или его не было.

hobot
05.12.2014, 15:02
Не путай меня.
http://zx-pk.ru/showpost.php?p=758493&postcount=40

Да, не 35, а 40 пост. Там и ссылка и твой лайк.
Суть же не изменилась, так ты предатель или нет? Определи меня пожалуйста )))

---------- Post added at 15:02 ---------- Previous post was at 15:00 ----------

Тема 5 - экранов(страниц), Titus <<<--- у меня просто слов нет, розоп и дытс !!!!!!!!!!! http://i.smiles2k.net/sad_smiles/Noooooooo.gif

Titus
05.12.2014, 15:06
http://zx-pk.ru/showpost.php?p=758493&postcount=40

Да, не 35, а 40 пост. Там и ссылка и твой лайк.
Суть же не изменилась, так ты предатель или нет? Определи меня пожалуйста )))

Не предатель, а путальщик)

Этот архив я, разумеется, скачал, но в нем нет бейсика с названием 'BASG2', на который ты жалуешься, что он не печатает буковки. Может ты его переименовал, тогда опять же возвращаемся к тому, что ты путаешь меня)

hobot
05.12.2014, 15:13
Этот архив я, разумеется, скачал, но в нем нет бейсика с названием 'BASG2', на который ты жалуешься, что он не печатает буковки. Может ты его переименовал, тогда опять же возвращаемся к тому, что ты путаешь меня)

Ты же программист доктор! У меня представь свалка бейсиков на одной системе,
я их переименовывать уже замучался, поскольку они все basic.sav а представь когда их больше 5 хотя бы. Я тебе гарантирую что там есть ДВК\ГРАФ бейсик, тебе
что уже и позапускать файлики лень самому??? (я в шоке, или ломанули аккаунт Титуса и это какой то левый рог меня троллит или у Титуса ко мне "завышанные требования"). Названия файлов - есть субъективная абстракция ))) И не пытайся
даже меня делать крайним снова.

Titus
05.12.2014, 15:15
у Титуса ко мне "завышанные требования"). Названия файлов - есть субъективная абстракция ))) И не пытайся
даже меня делать крайним снова.

Нет, нормальные требования не путать людей и не заставлять их пускаться во всякие поиски. Посмотри, какой бейсик тот, и скажи.

hobot
05.12.2014, 15:17
Я кроме названия кстати - дал так же наводку по размеру (вот это уже не абстракция), 61 блок который - он один такой - самый кстати пока "жирный" из всех вариаций !!!!!!!!!!!!!!

Titus
05.12.2014, 15:22
Я кроме названия кстати - дал так же наводку по размеру (вот это уже не абстракция), 61 блок который - он один такой - самый кстати пока "жирный" из всех вариаций !!!!!!!!!!!!!!

Итак, называется он в твоем архиве Basic2.

Да, странноватый. Никаких левых регистров не трогает, а с вводом глючит.

hobot
05.12.2014, 15:24
Ты пост 40 даже сейчас не прочитал !!!!!!!!!!!!!!!!!!!!!! там написано

http://pic.pdp-11.ru/images/cropimagewhw.png

---------- Post added at 15:24 ---------- Previous post was at 15:22 ----------


а с вводом глючит.
Я подозреваю, помнишь шахматы КСМ - они же только доску рисовали а команд видно не было, что ты потом добавил в эмуляторе что они играбельные стали КСМ?????

Titus
05.12.2014, 15:26
Я подозреваю, помнишь шахматы КСМ - они же только доску рисовали а команд видно не было, что ты потом добавил в эмуляторе что они играбельные стали КСМ?????

Это было когда для режима КСМ+КГД не было наложения графического изображения на текстовое. Потом это сделал. Но там хоть понятно было, что просто не доделано железо, т.к. регистры графические были задействованы. А тут никаких позывов к графике.

hobot
05.12.2014, 15:30
Так вот, эти шаматы корректно отрисовывают поле не сразу после старта (как должны), а только после ввода первой команды !!!
Так что по существу они так же до сих пор не совсем корректно работают ???


http://pic.pdp-11.ru/images/screenshot000cpc.png

http://pic.pdp-11.ru/images/screenshot001jij.png


похожая ситуация (поскольку КСМ - у Patrona и в UKNCBTL нет по определению!!!,
а у тебя что то видимо "эмулируется" не 1 в 1)

ДОБАВИЛ !!!
Конечно это всё лирика - мои домыслы типа.

Titus
05.12.2014, 15:32
похожая ситуация (поскольку КСМ - у Patrona и в UKNCBTL нет по определению!!!,
а у тебя что то видимо "эмулируется" не 1 в 1)

Понятное дело, что не один в один, ибо КСМ+КГД тут приделано к УКНЦ, а стало быть это не настоящий ДВК, а лишь УКНЦ здорово с ним совместимый)

Вот если б я писал именно эмулятор ДВК, то тогда да, там было бы корректнее.

hobot
05.12.2014, 16:10
Вот если б я писал именно эмулятор ДВК, то тогда да, там было бы корректнее
Графику выводит, правда хитро как то я этого добился, всплепую загрузик
ему FLOWER.BAS, который после удалось запустить из под КЦГД режима (???),
он сам переметнулся в режим КГД и выдал на экран вот что :


http://s7.hostingkartinok.com/uploads/images/2014/12/dceb66d8225660b76596110949bcae20.png

http://s7.hostingkartinok.com/uploads/images/2014/12/dcd85dc12cd2a17331000db160f7559b.png

http://s7.hostingkartinok.com/uploads/images/2014/12/82fdbef26894d97cf1bd4ed6d4de8acd.png

http://s7.hostingkartinok.com/uploads/images/2014/12/5ed0ebbb425aaa9a3591fb3ab8f2456a.png

http://s7.hostingkartinok.com/uploads/images/2014/12/725c1ec48d153f1ec63ef596ae3990b2.png


Про проверку выхода за пределы экрана терминала я уже писал, но
вот теперь точно видно что об ошибке он сообщает, но программы
выполнение не прерывает при этом.

2 Titus - пишишь вслепую OLD потом жмёшь (ентер), на запрос пишешь вслепую
FLOWER, после того как напишет READY, запускаешь вслепую командой RUN !!!

---------- Post added at 16:10 ---------- Previous post was at 16:08 ----------


Вот если б я писал именно эмулятор ДВК, то тогда да, там было бы корректнее.
А почему не хочешь (кроме лени) ? Ведь всё есть (прошивки?). На ВМ2 только надо, не надо ДВК-1,
надо ДВК-2М + КЦГД (опционально). И да конечно накопители строго меняем на MY который = MZ УК-НЦ практически.


(это из Вики)
ДВК-2М

Процессор: МикроЭВМ MC 1201.01 на основе процессора КМ1801ВМ1 или MC 1201.02 на основе процессора КМ1801ВМ2
КНГМД
Внешние накопители: два 5-дюймовых накопителя на гибких магнитных дисках НГМД 6022 (40 дорожек) MX:
Алфавитно-цифровой терминал: 15ИЭ-00-013

В этой модели ДВК было введено разделение «корзин» дисплея и собственно ЭВМ. В корзине дисплея осталось свободное место, а платы микроЭВМ и КНГМД (контроллера накопителей на гибких магнитных дисках) были помещены в отдельную корзину, в которой оставалось ещё 2 посадочных места под полные платы. Первые экземпляры ДВК-2М имели всего 48 килобайт ОЗУ. 8 килобайт адресного пространства были заняты микросхемой пользовательского ПЗУ с начальным загрузчиком с MX. Позднее было заменено системное ПЗУ на микроЭВМ. В него был включен начальный загрузчик с MX, в результате чего надобность в пользовательском ПЗУ отпала и объём ОЗУ вернулся к 56 килобайтам. Контроллер КНГМД поддерживал подключение до 4 накопителей.

Возможность подключения ГМД-7012 осталась, но требовала пайки специального кабеля. Пользователи собирали подобные комплексы для переноса информации с 8-дюймовых дискет на 5-дюймовые.

В 1987 г. ДВК-2М (в составе гидроакустической приставки «Рица») принимали участие в поисковой противолодочной операции «Атрина» Северного флота СССР в Саргасовом море и Атлантическом океане[1][2]. Цена ДВК-2М составляла 15600 рублей[3].

(это уже от меня дописал).
УК-НЦ стоила 1000-1500 + где то столько же стоил КМД УК-НЦ - для быта, как для предпиятий не знаю, мониторы стоили
"за сколько достанешь" )))

Titus
05.12.2014, 16:16
Графику выводит, правда хитро как то я этого добился, всплепую загрузик
ему FLOWER.BAS, который после удалось запустить из под КЦГД режима (???),
он сам переметнулся в режим КГД и выдал на экран вот что

На каком бейсике-то, блин? Опять Basic2?

На КГД переключает, значит используется КГД, что логично)

---------- Post added at 17:16 ---------- Previous post was at 17:14 ----------



А почему не хочешь (кроме лени) ? Ведь всё есть (прошивки?). На ВМ2 только надо, не надо ДВК-1,
надо ДВК-2М + КЦГД (опционально).

Кроме лени - УКНЦ еще сырая, т.к. нет точных док по железу. А городить огород для ДВК, пока нет отлаженного механизма - это контрпродуктивно. И так полно веток - Э-85, КСМ, КГД, КЦГД, Немига, 15ИЭ. Это уже еще тот монстр)

hobot
05.12.2014, 16:21
А городить огород для ДВК
Не огород, с нуля писать, забыть про Эмю-окошко как про кошмар !!!
Писать ДВК-2М с норм. фун-налом с нуля. ;-)

---------- Post added at 16:21 ---------- Previous post was at 16:19 ----------


На КГД переключает, значит используется КГД, что логично)
да но RUN ругается !!! ) У меня RUN сработал из режима КЦГД

Titus
05.12.2014, 16:29
Не огород, с нуля писать, забыть про Эмю-окошко как про кошмар !!!
Писать ДВК-2М с норм. фун-налом с нуля. ;-)

Что за кошмар и почему?

hobot
05.12.2014, 16:54
Что за кошмар и почему?
Я уже писал в теме эмулятора ))) Тебе снова ссылку на пост годичной давности надо,
мне лень. Я лучше на последний "радостный" ссылку сделаю тут
http://zx-pk.ru/showpost.php?p=759123&postcount=62

---------- Post added at 16:54 ---------- Previous post was at 16:40 ----------

В UKNCBTL есть запуск - но конечно окружности
(по понятным причинам) рисоваться не будут.

http://s7.hostingkartinok.com/uploads/images/2014/12/113d8b1ad8efc660166fb05ea91c8b22.png


В эмуляторе Patrona - цветочков нет (по понятным причинам),
но и запуска то же нет.

http://s7.hostingkartinok.com/uploads/images/2014/12/bc3f882ee685a3008fc7b50ba307afbc.png
Трап - это реакция на вслепую введённый RUN.

shattered
05.12.2014, 23:25
Кроме лени - УКНЦ еще сырая, т.к. нет точных док по железу. А городить огород для ДВК, пока нет отлаженного механизма - это контрпродуктивно. И так полно веток - Э-85, КСМ, КГД, КЦГД, Немига, 15ИЭ. Это уже еще тот монстр)

А что, может объединим усилия и все это в mess вкрутим?

Titus
05.12.2014, 23:39
А что, может объединим усилия и все это в mess вкрутим?

Каким образом? У меня все заточено под мой эмуль, да и то сырое. Да и месс я особо не жалую, слишком громоздко и непонятно.
А у меня упор на идентичность визуального ряда, чтобы каждый кадр - новое изображение, и никакого попадания под луч или иного размазывания.

shattered
06.12.2014, 12:36
Спрашивайте - отвечу о громоздком и непонятном, если сам не знаю - спрошу старших товарищей :)

Один кадр - одна картинка делается просто кмк -- double buffering. В 15иэ например, по таймеру на hsync [1] рисуется одна строка растра во временный буфер [2], и каждый vsync этот буфер копируется в экран [3].

https://github.com/mamedev/mame/blob/master/src/mess/drivers/ie15.c



[1] MCFG_TIMER_DRIVER_ADD_PERIODIC("scantimer", ie15_state, scanline_callback, attotime::from_hz(50*28*11))
[2] ie15_state::draw_scanline()
[3] ie15_state::screen_update()

Titus
06.12.2014, 13:59
Спрашивайте - отвечу о громоздком и непонятном, если сам не знаю - спрошу старших товарищей :)

Мне этот mess не интересен просто) Люблю свое писать.
Если есть какие-то вопросы по тому, что я писал в EmuStudio, спрашивай, отвечу.

Vslav
23.12.2014, 20:53
Прочитал я 1801РЕ2-012, которая стояла в моей 1201.01. Файл в формате программатора во вложении (инвертированы адреса и данные + код). Код микросхемы оказался не 001, а 003, то есть базовый адрес 100000. Код внутри вроде осмысленный, видно немножко текста.

PS. Пока все тестировал - отвалилась ножка у РЕ2-108, один разряд отпал внутри. Для ММ прочитал -019, и еще для контроля -106 и -018, все работает, сдохла именно -108.
PPS. И что-то я не очень уверен что -012 это BASIC, странный там код внутри какой-то, да и код чипа странный.

Vslav
23.12.2014, 23:42
Сравнил 012 с 013, таки 012 это Бейсик, есть схожесть. Но почему у него база 100000 - неясно, может быть для каких-то машин с 32КБ памяти. Но микросхема стоит в панельке МС1201.1, но все перемычки SA3 на плате врублены - то есть вообще все 7 пользовательские страницы ОЗУ подключены, базы 100000 и 140000 не отрублены, может кто-то игрался переключателями.

hobot
29.12.2014, 02:46
[CpuBoard.ini]
RAM_Size_Kb = 56
RAM_Latency_NS = 1000
LineClock_ComponentDisabled = 0
LineClock_Hz = 50
BootROM_DataFile = 000.dat
BootROM_Latency_NS = 300
UserROM_DataFile = 012.bin
UserROM_Latency_NS = 300
UserROM_Disable = 0
SEL1_Data = 0160003


Подскажите как в эмуляторе его стартануть, кроме замены
файла с прошивкой (имени), какие параметры надо подкручивать под
12 прошивку Бейсик (http://zx-pk.ru/showpost.php?p=764563&postcount=71), а может он там "графический" под КГД? Надо изучить!!! )

hobot
29.12.2014, 05:18
Теперь стартанул норм )



БЭЙСИК ДВК НЦ
@0
ЖДУ




[CpuBoard.ini]
RAM_Size_Kb = 56
RAM_Latency_NS = 1000
LineClock_ComponentDisabled = 0
LineClock_Hz = 50
BootROM_DataFile = 000.dat
BootROM_Latency_NS = 300
UserROM_DataFile = Basic 1201.01 - 012 (Restored).bin
UserROM_Latency_NS = 300
UserROM_Disable = 0
SEL1_Data = 0160003

Vslav
29.12.2014, 11:50
А базовый адрес у 012-ой все-таки какой? 100000? Все правильно определилось?

Patron
29.12.2014, 12:46
А базовый адрес у 012-ой все-таки какой?Все прошивки МС1201.00 и МС1201.01 производят автозапуск ПЗУ пользователя только с адреса 0140000 :


ROM:160322 loc_160322:
ROM:160322 Mov #140000, @#CPC
ROM:160330 loc_160330:
ROM:160330 Mov #340, @#CPSW
ROM:160336 Clr @#word_177644
ROM:160342 START


---------- Post added at 12:46 ---------- Previous post was at 12:20 ----------

Кстати, файлы 1801RR1_013.rom и 012.bin отличаются только предпоследним байтом, а восстановленные из них прошивки 013.dat и 012.dat полностью тождественны.

Если посадить образ 013.dat не на адрес 0140000, а на адрес 0100000, то результат получается такой:


.SH MEM

Address Module Words
------- ------ -----
160000 IOPAGE 4096.
100000 MEMTOP 12288.
077436 HD 113.
066610 RMON 2251.
062272 SL 1127.
052226 USR 2066.
001000 ..BG.. 10571.


.
070246
@100000G
БЭЙСИК ДВК НЦ
@0
ЖДУ

Vslav
29.12.2014, 12:49
Получается что 012 это та же самая 013, только разные коды микросхем (базовые адреса). И еще, видимо, Бейсик написан в позиционно-независимом коде, прикольно.

SKcorp.
29.12.2014, 19:32
Получается что 012 это та же самая 013, только разные коды микросхем (базовые адреса). И еще, видимо, Бейсик написан в позиционно-независимом коде, прикольно.

Я слышал, что по запуску "верхний" Бейсик копируется в "нижние" адреса.

MiX
30.12.2014, 00:52
Patron, Надо бы латентность ОЗУ поправить. У самой медленной РУ6Д будет 250нс, но Д не ставили в ДВК(?), ставили Г где латентность 200нс. В любом случае не 1000нс.

Patron
30.12.2014, 13:23
В любом случае не 1000нс.Задержка памяти определяется всей схемой передачи RPLY. На ДВК-1 задержка ОЗУ составляет 6 тактов по 200 нс, задержка ПЗУ - 2 такта по 200 нс.

MiX
30.12.2014, 13:34
Patron, 6*200=1200
2*200=400

Patron
30.12.2014, 13:39
http://s4.hostingkartinok.com/uploads/images/2012/10/475d50c8bc791397ccbe4608c9c2bd96.png

MiX
30.12.2014, 13:50
Replay наступает после 13 такта, по клеткам 23 клетки= 230нс.( если клетка 10нс)

Vslav
30.12.2014, 14:29
Replay наступает после 13 такта, по клеткам 23 клетки= 230нс.( если клетка 10нс)
Клетка 100 нс, потому что при 10нс CLK был бы 50 МГц :)

Patron
30.12.2014, 14:35
Replay наступает после 13 такта, по клеткам 23 клетки= 230нс.( если клетка 10нс)Пиксел = 10 нс, клетка = 10 пикселов = 100 нс, FCLC = 5300 КГц, продолжительность такта T = 189 нс, RPLY наступает через 115 пикселов после DIN = 1150 нс.

1150/189 = 6

Процессор принимает RPLY не когда тот приходит, а синхронно с тактовой частотой, поэтому реальная задержка памяти округляется вверх до ближайшего такта.

Эмулятор делает так же - округляет указанную задержку памяти до периодов тактовой частоты и получает число тактов задержки памяти. Если ( при CPU_Frequency_KHz = 5300 ) это число в итоге равно 6 - тайминги эмулятора совпадают с таймингами реальной ДВК-1, работающей на тактовой частоте 5.3 МГц.

eugeneak
02.01.2015, 18:40
На всякий случай, если кому хочется сравнить, свеже-прочитанная прошивка кр1801ре2 ** 012 (ангстрем, 8611). Микросхема нигде до этого не устанавливалась, прочитана с помощью ChipStarMT.

Код адреса = 4. (100)

Patron
02.01.2015, 18:50
На всякий случай, если кому хочется сравнить, свеже-прочитанная прошивка кр1801ре2 ** 012Содержимое файла 1801ре2-012.BIN полностью совпадает с имеющейся в сети ( и в комплекте эмулятора ДВК ) прошивкой 013.dat.

eugeneak
02.01.2015, 19:02
Содержимое файла 1801ре2-012.BIN полностью совпадает с имеющейся в сети ( и в комплекте эмулятора ДВК ) прошивкой 013.dat.

Очевидно тогда разницы между 012 и 013 в содержимом нет.

Вот откуда я это прочитал:

MiX
01.03.2015, 23:58
QBASIC-2
Может кому-то пригодится...

hobot
02.03.2015, 15:12
QBASIC-2
Может кому-то пригодится...

Этот файл на пару блоков отличается от того,
который у меня храниться в не разобранном архиве от forma
+ form сохранил к нему описание на английском в формате .pdf

При старте оба файла пишут одинаковую строку-заголовок о готовности
к работе, описание прилагается ) Кстати говоря - там вроде как в самом
начале написано, что разработка вроде Отечественная (или около того).


Q2.SAV - это тот который прилепил MiX,
ну а другой соответственно другой )
http://pic.pdp-11.ru/images/q2.png
http://archive.pdp-11.org.ru/ukdwk_archive/dwkwebcomplekt/Quasic2/

MiX
27.09.2015, 17:15
Пишу здесь т.к. эта (http://zx-pk.ru/showthread.php?t=12081) тема закрыта.


Упоминаются К1801РЕ1-037 и 038 -- вроде как ПЗУ программ для первых учебных классов ДВК.
Об 037 прошивке упоминается -здесь (http://ershov-arc.iis.nsk.su/archive/eaimage.asp?did=39009&fileid=209867) и здесь. (http://ershov-arc.iis.nsk.su/archive/eaimage.asp?did=39008&fileid=209862)

фото
http://ershov-arc.iis.nsk.su/files/raznoe/fold502/502_269.gif

Только вот непонятно, почему Преснухин в 8 книге упоминает о 093 прошивке.

Murzik
19.10.2015, 15:23
А как бы получить содержимое в виде как это видит процессор?
Интересно будет посмотреть как это работает в эмуляторе.

form
19.10.2015, 16:08
А как бы получить содержимое в виде как это видит процессор?

Так вроде в этой же теме было где-то, я даже ради интереса запускал на 11/83 его...

form
19.10.2015, 17:13
На всякий случай - вдруг пригодится - загрузчик BASIC ДВК из под RT-11 ;)

MiX
19.10.2015, 19:36
form, 037 прошивка это Фокал.

form
19.10.2015, 19:36
037 прошивка это Фокал.

Ну я исходники выложил, по тому же принципу все можно сделать. Если адреса совпадают - просто переименовать файл.

Murzik
20.10.2015, 07:47
Все темы пересмотрел а прошивку РЕ1-037 (38) не нашел... Это не Basic а Focal для
ДВК-1 без графики но с загрузчиками с ИРПР и ИРПС видимо это предтеча прошивки Ре1-084 для БК-0010Ш.

И все таки хотелось бы прошивку 037 в виде как ее видит процессор.

form
20.10.2015, 07:53
А, я не так суть понял - найти фокал хочется... А он был в реале или только в теории? :)
У DEC такого много что только в теории было (при том подробно описывалось в документации)...

hobot
20.10.2015, 08:16
А, я не так суть понял - найти фокал хочется...
Было бы просто чудесно! Я видел фокал, только в виде исполняемого SAV файла
под RT-11 (БКашка не в счёт, но если была ПЗУ ДВКашная с Фокалом - это раритет тот ещё !!! )

Murzik
20.10.2015, 08:17
Судя по снимку выше он даже в серию вошел... Причем в приведенных доках на фото еще он в 573РФ3 а на фото уже нормальная заводская прошивка

hobot
20.10.2015, 08:26
а на фото уже нормальная заводская прошивка
на фото видно номер, но что там внутри, согласитесь не видно.
Документацию по ссылкам не читал, но верю на слово.

Как ещё можно (по мимо этой темы или даже раздела форума) дополнительно
пустить клич агрессивный на розыск именно этой ПЗУ(содержимого)??? На призраках спросить
громко громко у кого аккаунт есть, колликцеонеров завалить запросами???

С моей стороны, очень прошу, сразу же для архива DWKROM (http://archive.pdp-11.org.ru/ukdwk_archive/dwkwebcomplekt/dwkrom/) при случае обнаружения выложить! )

Спасибо.

hobot
21.02.2016, 19:19
Заголовок к Руководству по системному Бейсику от ОС РАФОС


УТВЕРЖДЕН

2/Б/4.072.207-32-01-ЛУ



ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ СМ ЭВМ
ОПЕРАЦИОННАЯ СИСТЕМА С РАЗДЕЛЕНИЕМ ФУНКЦИЙ

Р А Ф О С

БЕЙСИК


ГЕНЕРАЦИЯ СИСТЕМЫ

РУКОВОДСТВО СИСТЕМНОГО ПРОГРАММИСТА
ТОМ 5 КНИГА 3 ЧАСТЬ 1


2/Б/4.072.207-32-01
<...>
КОМПЛЕКТ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ ИНТЕРПРЕТАТОРА БЕЙ-
СИК СОДЕРЖИТ ТРИ РАБОЧИХ ВЕРСИИ:

1) BASIC.SAV;
2) BASICD.SAV;
3) BAS8K.SAV.

ВЕРСИЯ BASIC.SAV СОДЕРЖИТ СРЕДСТВА РАСШИРЕНИЯ ИНТЕРП-
РЕТАТОРА (Т.5 КН.3 Ч.2) ЗА ИСКЛЮЧЕНИЕМ ОПЕРАТОРА CALL И
РАСШИРИТЕЛЯ АРИФМЕТИКИ ЦЕНТРАЛЬНОГО ПРОЦЕССОРА. ПРОГРАММА
BASIC.SAV ИМЕЕТ ТРЕТИЙ ТИП ОВЕРЛЕЙНОСТИ (ТИПЫ ОВЕРЛЕЙНОСТИ
ПРИВЕДЕНЫ В ПРИЛОЖЕНИИ 1).

ВЕРСИЯ BASICD.SAV ЯВЛЯЕТСЯ РАСШИРЕНИЕМ ВЕРСИИ
BASIC.SAV. BASICD.SAV ИСПОЛЬЗУЕТ ВСЕ РАСШИРЕННЫЕ ВОЗМОЖНОС-
ТИ ПРОЦЕССОРА СМ-4 (FIS). ПРОГРАММA ИМЕЕТ ТРЕТИЙ ТИП ОВЕР-
ЛЕЙНОСТИ.

ВЕРСИЯ BAS8K.SAV МОЖЕТ РАБОТАТЬ С 8К СЛОВ ПАМЯТИ. В
СОСТАВ ДАННОЙ ВЕРСИИ НЕ ВХОДЯТ:

1) ОПЕРАТОР CALL;
2) ОПЕРАТОР PRINT USING;
3) КОМАНДА SUB;
4) КОМАНДА RESEQ;
5) РАСШИРЕННЫЕ СООБЩЕНИЯ ОБ ОШИБКАХ.

ПРОГРАММА BAS8K.SAV ИМЕЕТ ПЯТЫЙ ТИП ОВЕРЛЕЙНОСТИ. ДАН-
НАЯ ВЕРСИЯ МОЖЕТ РАБОТАТЬ НА ЛЮБОМ ТИПЕ ПРОЦЕССОРОВ.

ПОЛЬЗОВАТЕЛЬ С ПОМОЩЬЮ ПРОЦЕДУРЫ ГЕНЕРАЦИИ ИМЕЕТ ВОЗ-
МОЖНОСТЬ СОЗДАТЬ ИНТЕРПРЕТАТОР ЯЗЫКА БЕЙСИК ДЛЯ ИМЕЮЩЕЙСЯ
КОНФИГУРАЦИИ ТЕХНИЧЕСКИХ СРЕДСТВ С УЧЕТОМ СПЕЦИФИКИ РЕШАЕ-
МЫХ ЗАДАЧ.


П_Р_И_М_Е_Ч_А_Н_И_Е. В ДАННОМ ДОКУМЕНТЕ СООБЩЕНИЯ,
ВВОДИМЫЕ С ТЕРМИНАЛА ПОЛЬЗОВАТЕЛЕМ, ЗАКАНЧИВАЮТСЯ СИМВОЛОМ
"CR" (НАЖАТИЕМ КЛАВИШИ "RETURN" ИЛИ "ВК").

Unik
24.01.2017, 09:18
Можно ли на BASIC-11 написать программу в которой экран бы не прокручивался вверх, а просто обновлялся, отрисовывая все на предыдущем месте но с изменениями?

И если вдруг у кого то есть интересные программы написанные на BASIC-11, поделитесь :)

form
24.01.2017, 11:19
Можно ли на BASIC-11 написать программу в которой экран бы не прокручивался вверх, а просто обновлялся, отрисовывая все на предыдущем месте но с изменениями?
Можно - какая разница на каком языке писать экранную программу? :)

Unik
24.01.2017, 11:54
Можно - какая разница на каком языке писать экранную программу? :)
Ну дело в том что я не нашел ни один пример, а сам не догадался как :)
Можно пример?

form
24.01.2017, 12:14
Ну дело в том что я не нашел ни один пример, а сам не догадался как
Можно пример?
Нужно использовать ESC последовательности экранные.
10 DEF FNH$(X%)=CHR$(27%)+"H"
20 DEF FNC$(X%)=FNH$(X%)+CHR$(27%)+"J"
30 DEF FNP$(X%,Y%)=CHR$(27%)+"Y"+CHR$(32%+Y%)+CHR$(32%+X%)
100 PRINT FNC$(0%);
110 PRINT FNP$(30%,10%)+"XA-XA";
120 PRINT FNH$(0%)+"XE-XE";
130 PRINT FNP$(0%,20%);

В данном примере (для VT52) в строке 10 определяется функция перевода курсора в верхний левый угол, в строке 20 - функция очистки экрана, в строке 30 - функция позиционирования курсора (верхний левый угол - 0,0). Функции (как можно видеть) возвращают строку для печати (соответственно можно поменять первые три строки на другие для другого типа терминала) и ничего больше не менять в программе.
Ну а сам пример просто стирает экран, печатает "XA-XA" в позиции 30:10, печатает "XE-XE" в верхнем левом углу и выходит, предварительно выставив курсор в позицию 0:20.

Sergei Frolov
13.09.2018, 22:53
Подскажите, почему в 013-й прошивке в Бейсике может не работать функция степени?
Набираю PRINT 2^3, выдает ответ 2 и дальше ошибку.

Символ степени - это же тот, который под буквой Ч ?

MiX
13.09.2018, 23:43
не работать функция
Работает.
На эмуляторе (с писишной клавиатурой) нажать [Shift+6] - вводится [^].

Sergei Frolov
14.09.2018, 22:30
В общем, разобрался. Действительно, нажимал не тот символ. Думал, что надо в нижнем регистре вводить, потому что он под буквой Ч нарисован, а оказалось, что в верхнем регистре.

http://ipic.su/img/img7/fs/1.1536953393.jpg

MacBuster
15.09.2018, 07:26
Удаление в знак протеста против действий MM

piotr433
15.09.2018, 17:29
Кстати, Бейсик от ДВК-1 является русифицированной версией Бейсика-11 компании DEC.
образ перфоленты:
http://vaxhaven.com/images/c/c2/DEC-11-AJPB-PB.ptap
он же, но конвертированный в образ памяти:
http://www.pisi.com.pl/piotr433/misc/dec_007a.bin
руководство:
http://bitsavers.trailing-edge.com/pdf/dec/pdp11/basic/DEC-11-AJPB-D_PDP-11_BASIC_Programming_Manual_Dec70.pdf

Программу можно запустить на эмуляторе SIMH по методу из первого поста. Писать надо только большими буквами.

$ ./bin2cmd.pl dec_007a.bin 0 >b.cmd
$ pdp11

PDP-11 simulator V3.8-1
sim> do b.cmd
sim> g 016104

PDP-11 BASIC, VERSION 007A
*O
READY
PRINT 2&3
2
ERROR 11 AT LINE 0
PRINT 2^3
8
PRINT 1.0000001^(2^27)
879845.2

Интерпретатор Бейсика микрокомпьютера Электроника МК-90 основан на той же программе.

http://www.pisi.com.pl/piotr433/misc/img_1191.jpg

Если кому интересно, я дизассемблировал и частично прокомментировал код Бейсика от ДВК-1. Заранее извиняюсь за шестнадцатеричные числа.
http://www.pisi.com.pl/piotr433/dvkbasic.zip

hobot
15.09.2018, 18:36
он же, но конвертированный в образ памяти:
запуск в эмуляторе ДВК Patrona




CpuBoard.ini]
RAM_Size_Kb = 56
RAM_Latency_NS = 1000
LineClock_ComponentDisabled = 0
LineClock_Hz = 50
BootROM_DataFile = 000.dat
BootROM_Latency_NS = 300
UserROM_DataFile =
UserROM_Latency_NS = 300
UserROM_Disable = 0
SEL1_Data = 0160003
BinLoadFile= dec_007a.bin

piotr433
15.09.2018, 20:16
Оказывается, что в текущей версии эмулятора Patrona этот Бейсик уже есть.
http://zx-pk.ru/threads/18351-emulyator-dvk.html?p=801290&viewfull=1#post801290

hobot
11.04.2020, 23:43
Три варианта QUASIC выявлено и все три разного размера, ещё какой то LDA к ним (уж не для КЦГД-ли?).
Хотелось бы подробностей от AFZ и всех кто сведущь




KZ V01.00 (C) ВЦ МИЭТ, НОЯБРЬ 1987

SL V08.00 [SW] Сторожевых С.В. 1988


RT11-SJ (DS) V05.01

Date [24-APR-92]
24-APR-92, Пятница

SET EXIT NOSWAP
SET USR NOSWAP
SET TT SCOPE
! < UNUSED >
! < UNUSED >
! < UNUSED >
! < UNUSED >
SET SL ON
! < UNUSED >

MY1> DIR Q*.*
24-Apr-92
QDOC .DOC 77 15-Sep-91 QUPD .LDA 5 21-Sep-91
QUADOC.DPR 89 -BAD- Q2 .SAV 43 05-Oct-88
QUASIC.OLD 32 22-Sep-91 QUASIC.SAV 41 11-Feb-103
Q2 .TXT 2 -BAD-
7 Files, 289 Blocks
423 Free blocks

MY1>

Hunta
11.04.2020, 23:56
ещё какой то LDA к ним (уж не для КЦГД-ли?).
Аха, для КЦГД. Если на нём запустить DOS-11/Batch

hobot
12.04.2020, 00:44
Hunta, с таким разрешением и для КЦГД что то там попадалось вроде бы

ну да вопрос про Квасики и их подробности

Q2 .SAV 43 05-Oct-88
QUASIC.OLD 32 22-Sep-91 QUASIC.SAV 41 11-Feb-103

Hunta
12.04.2020, 02:18
Hunta, с таким разрешением и для КЦГД что то там попадалось вроде бы
Ты бы хоть иногда умные книжки читал. А не свои шпаргалки.

MiX
12.04.2020, 03:57
QUASIC.SAV 41 11-Feb-103
Как может быть QUASIC 103го года?

hobot
12.04.2020, 05:05
Как может быть QUASIC 103го года?
у Хунты спроси, он тут на форуме самый умный )))

Hunta
12.04.2020, 09:39
Как может быть QUASIC 103го года?
RT11-SJ (DS) V05.01 - я так понимаю, система не поддерживает даты после 99. А образ сделан в системе с поддержкой. Думаю, правильный год - 2003

- - - Добавлено - - -

Ну да - 12-FEB-2003

hobot
12.04.2020, 12:14
я так понимаю, система не поддерживает даты после 99.
вообще и местный "родной" DIR в частности - обычно я заменяю на патченый, но там система с которой скрин (https://zx-pk.ru/threads/17417-basic-dvk.html?p=1056408&viewfull=1#post1056408) не тронутая от AFZ

AFZ
12.04.2020, 17:29
Три варианта QASIC выявлено и все три разного размера, ещё какой то LDA к ним (уж не для КЦГД-ли?).
Хотелось бы подробностей от @AFZ и всех кто сведущьВо-первых, QUASIC (ты U пропустил. Квэйсик. В народе его звали Квасик и сочинить на нем программу называли термином "заквасить". :)

Quasic - это, так сказать, комплексный продукт, включающий редактор текста, компилятор и исполнитель (Run-Time System) для программ на языке Квэйсик. Язык бэйсикоподобный, но работает только с целыми числами. Он действительно компилирующий, програииа исполняется со скоростью процессора, а не 100 команд в секунду, как на интерпретаторе Бэйсика. С другой стороны весь этот комплексный продукт все время занимает память, исходник сочиняемой программы также занимает память, поэтому сильно большую программу не сделаешь. Допустим, моя любимая Анчурия туда не влезла. Зато быстро попробовать какую-либо мелочь - милое дело.

Исходно это была перфолента, загружаемая абсолютным загрузчиком и работающая со стандартной периферией ПЛОС через, опять же, стандартный ПЛОСовский супервизор ввода-вывода (IOX). Та копия дискеты - это моё творение. Я перенес QUASIC под RT-11, заменил перфоленты файлами на дисках, еще что-то там сделал, но сейчас ничего не помню. При этом я особенно не вникал в его потроха. Я, по-простому, перехватил вектор команды IOT, распознав обращение к фотосчитывателю перенаправил запрос ко входному файлу, при обращении к перфоратору перенаправил к выходному, еще что-то сделал...

Руководство по этому QUASIC'у лежит в файле QDOC.DOC (в формате докуматора DOC.SAV), руководства по своим программам, посредством которых этот QUASIC перенесен пол RT-11 я, увы, сочинить не удосужился.

- - - Добавлено - - -

Да, копию оригинальной перфоленты QUASIC'а я тоже где-то публиковал...

Patron
12.08.2020, 13:52
В текущей версии "эмулятора ДВК": DVK_Emulator_12.08.20_13-08 (http://emulator.pdp-11.org.ru/DVK/distr/DVK_Emulator_12.08.20_13-08.rar) - добавлен образ перфоленты с примером программы для БЭЙСИК ДВК НЦ.

Теперь, поле запуска конфига Бэйсик НЦ.cfg - можно загрузить программу с перфоленты командой OLD:



БЭЙСИК ДВК НЦ
@0
ЖДУ
OLD
ЖДУ
RUN
7 4 1 0
8 5 2 9
6 3 7 4

ОСТ СТРОКЕ 150
ЖДУ



Для сохранения собственной программы в образ перфоленты - нужно выполнить команду SAVE.

Образ будет создан в каталоге Paper Tapes\ с именем файла вроде: 2020.08.12 13-50-26.bin

shattered
28.12.2021, 13:15
Описание БЕЙСИК ДВК НЦ нашлось на книжной полке:
Код:

С.Т.Усачев
Персональная ЭВМ ДВК-1
Учеб.пособие -М.: Изд-во УДН, 1988.-144 с.
ISBN 5-209-00009-5

Оно не рассказывает про работу с перфолентой (OLD/SAVE) и настройку на старте (нужны вам расширенные функции / высокоскоростные устройства / установка внешней функции / озу)

Но поскольку это клон DEC PDP-11 BASIC, то об этом можно прочесть в pdf/dec/pdp11/lang/basic/DEC-11-AJPB-D_PDP-11_BASIC_Programming_Manual_Dec70.pdf

AFZ
29.12.2021, 19:08
Если что, нормальное описание ПЛОСовского Бейсика (а в ПЗУхе ДВК-1 именно он, с небольшим загрузчиком из ПЗУ на положенное место) есть в документе 0.005.027 ПО2, который шёл в комплекте с Электроникой-60 и 60М.

Есть в сети, в частности, на retropc.org, но там скан документа из поздних поставок Э-60, оригинал которого был отпечатан на каком-то принтере без маленьких букв, или даже на АЦПУ. Собственно, почти все понятно, просто странно смотрится, например, такой текст: "ЭЛЕМЕНТЫ, НАПЕЧАТАННЫЕ СТРОЧНЫМИ БУКВАМИ, НАПРИМЕР СПИСОК...", где имеемое в виду слово "список" на самом деле отпечатано заглавными буквами. Ранние и средние по времени поставки Э-60 комплектовались копией книжки, оригинал которой был отпечатан на обычной русской пишущей машинке, а буквы английских слов, не имеющие похожих по начертанию русских букв, были вписаны от руки. У меня, кстати, где-то должна быть такая книжка, но сканить ее сильно не хочется...

MM
29.12.2021, 23:11
на обычной русской пишущей машинке
Неа, это был танко-подобный Роботрон, весом 60+ кг, цельнолитой из алюминия поддон. И прекрасная медная трубочка на вершине механизьма.
Широченный, лента до 2 цветов. Имел ж. корзинку с платами. ИРПР родной, и к БКшке мог подключаться. Шрифтовое колесико было 2 видов - Рус загл/стр и Рус/Лат заглавные .
Такие принтера ставили в эпоху компьютеризации в ОКБ Э. ( 1988-1990 г. ) , вместе с ДВК-2М и даже ЛС 1-проволочной на базе полной платы КНГМД ( МХ ).

AFZ
30.12.2021, 09:38
Неа, это был танко-подобный Роботрон, весом 60+ кг, цельнолитой из алюминия поддон.Нечто подобное я и подозревал. Но, по-любому, документация на поздние выпуски Э-60М и вся документация Э-60.1 (то, что цельноутянуто с 11/23) отпечатана безобразно. Да и значительная часть ДВК-шной ранней и средней по времени документации тоже. Ранняя документация Э-60 тоже не сахар, но, ИМХО, все-таки лучше. Но, увы, я не нашел в Сети приличных сканов этого варианта документации.

piotr433
10.01.2022, 11:57
Подробный разбор кода данного Бейсика:
https://www.learningpdp11.com/pdp-11-basic-analysis

AFZ
11.01.2022, 19:49
Если что, я на днях нашел у СуперМакса листинг этого самого Бейсика. Да, скан отвратительного качества, тем не менее это скан оригинального листинга от Digital. Естественно, его кто-то скачал или на битсейверсе или где-то на похожем ресурсе. Зная наименование оригинального файла, наверное, нетрудно будет и найти его там. Но проще скачать у СуперМакса. Вот здесь. (http://mirrors.pdp-11.ru/_dec_books/pdp11/basic/AB-2045B-SC_BASIC_PTS_Listing_Mar77.pdf)

piotr433
12.01.2022, 00:47
Я имел ввиду ПЗУ-шный Бейсик из первого поста.
По вашей ссылке совсем другая программа.

AFZ
12.01.2022, 05:38
Вообще-то я с этим Бейсиком ни разу не работал. Я в своё время (первая половина 80-х) довольно много работал с ПЛОСовским Бейсиком на Электронике-60М (ЦП М2). Когда же мне, уже в 90-е, в руки попал ДВК-1 с ПЗУхой 013, я запустил этот Бейсик и понял, что он ну очень похож на тот самый ПЛОСовский Бейсик от Э-60, в котором двоичным редактором перетерли часть сообщений, заменив их на русские в коде КОИ-7 Н2.


По вашей ссылке совсем другая программа. Я сравнивал эту программу с тем перфоленточным Бейсиком, который был в комплекте Э-60. Ну очень похоже. Сравнивал, правда, по памяти, оригинала у меня нет. Хотя в Сети где-то должна быть и копия этой перфоленты...

Hunta
12.01.2022, 08:48
.BOO/FOR HX1:

HX 2.2 XXDP Cold boot..



BOOTING UP XXDP-XM EXTENDED MONITOR


XXDP-XM EXTENDED MONITOR - XXDP V2.5
REVISION: F0
BOOTED FROM HX1
124KW OF MEMORY
UNIBUS SYSTEM

RESTART ADDRESS: 152000
TYPE "H" FOR HELP !

.R BASIC
BASIC .BIN

PDP-11 BASIC, VERSION 007A
*O
READY

PRINT 10
10

R0=004106 R1=013545 R2=177560 R3=013540 R4=016142 R5=016106
SP=157472 PC=000702 PS=000004
>>>B HX1
HX 2.2 XXDP Cold boot..



BOOTING UP XXDP-XM EXTENDED MONITOR


XXDP-XM EXTENDED MONITOR - XXDP V2.5
REVISION: F0
BOOTED FROM HX1
124KW OF MEMORY
UNIBUS SYSTEM

RESTART ADDRESS: 152000
TYPE "H" FOR HELP !

.R RBASIC
RBASIC.BIN

100/16i b|iCiK, BAPiAHT 001A
*O
gOTOB
PRINT 10
10

piotr433
12.01.2022, 13:11
Я сравнивал эту программу с тем перфоленточным Бейсиком, который был в комплекте Э-60. Ну очень похоже.
Я в этом не сомневаюсь, но листинг от СуперМакса с ними ничуть не сходится.

Пример - обработка команды FOR из листинга СуперМакса:



1391 MOV R1,-(SP)
1392 DEC (SP) ;(LOC OF THE 'FOR')
1393 MOVB (R1)+,R2
1394 BMI ERRSX6
1395 SWAB R2
1396 BISB (R1)+,R2 ;ADDRESS RUNNING VARIABLE IN SYMBOL TABLE
1397 ADD (R5),R2
1398 CMPB (R1)+,#.EQ ;CHECK "="
1399 BNE ERRSX6
1400 MOV R2,VARSAV(R5) ;(VAR OF THE FOR)
1401 JSR PC,EVAL ;EVALUATE START VARIABLE

Для сравнения соответствующий код из ПЗУ 013:



007306: TRAP 126 ;parse the variable name
007310: CMP R2, #75 ;equals sign
007314: BNE 7552
007316: CLR R0
007314: MOV R4, -(SP)
007322: TRAP 134 ;beginning of the running state storage
007324: TRAP 114 ;search the running state storage
007326: BNE 7336 ;skip if variable found
007330: MOV R4, R0
007332: TRAP 146 ;allocate space for the variable
007334: BR 7342

Обратите внимание на широкое использование TRAP-ов для вызова подпрограмм.

SuperMax
13.01.2022, 05:54
вот что ко мне пришло вчера


Basic-11 V2 - Source File Assembling and Linking

Lou Ernst 5/8/2007


References: (available from Bitsavers.org)

DEC-11-LIBTA Basic-RT V2 Installation Manual
DEC-11-LIBUA Basic-11 Users Guide

Files: DISK1.DSK (RT-11 logical disk image of the first floppy - Basic-11)
DISK2.DSK (RT-11 logical disk image of the second floppy - Basic-11)
DISK3.DSK (RT-11 logical disk image of the third floppy - MU Basic)
BASIC.DSK (a single RT-11 logical disk image of files from the first and second disk that has been cleaned up - extraneous/redundant files removed. Use this disk image for best results for generating Basic-11)

Background:

Basic-11 V2 is a basic language package for RT-11. It can be customized to run in as little as 8kw of core (by way of overlays) and make use of EIS, FIS, or an FPU if available.

The collection of files here was extracted from three RX02s that Tom Ponsford had in his collection. He purchased some binders with Basic-11 documentation in them with three RX02 floppies at a University of Arizona auction in 2005. Tom never read the disks, but correctly assumed that they would eventually be readable by someone with an RX02 or compatible drive.

I read the disks on my 11/23+ and found what you now see. Two of the disks had the complete source code for Basic-11 V2 as .MAC files, the SUCNFG.BAS and related configuration files, and a series of .BAT files for patching assembled code with various fixes. The .MAC files are fully commented and can be amusing to simply read by themselves. The comments can give insights into the personalities of the programmers in the early/mid seventies when this code was written.

The third disk contained assembled and linked .SAV files for Multi-User Basic (mubas.sav) and the version of MU Basic optimized to take advantage of the XM monitor (mubasx.sav). MU Basic ran on RT-11 systems sysgened for multi-terminal support. Each terminal would appear to the operator to be connected to its own dedicated machine running basic. Only some of the MU Basic source files are present, there is not enough here to run mucnfg.bas and assemble and link custom versions of MU Basic. Perhaps the rest will turn up eventually. The present author has not gone to the trouble to install the hardware and sysgen his system for multi-user support to verify that the MU Basic .sav files work. However, there is no reason not to believe that they do.

The author extracted these files from his 11/23+ with Will Kranz' TU58.exe IBM-PC TU58 emulator. The PC running the emulator when connected properly looks like DD: to the pdp-11. The .dsk images can be manipulated on a PC with Will's rtxtra and rtdir utilities. There are various other ways to transport the files that work just as well.

Most, if not all of the manuals required to get started with Basic-11 (and MU Basic) are on Bitsavers and should be reviewed.

However, the dec manuals all appear to assume that the user who is building his own custom version of Basic already has assembled .OBJ files. In this archive there are the original source .MAC files, which need to be assembled before they can be linked as illustrated in the manual.

In the paragraphs that follow, the instuctions to assemble and link custom versions of Basic-11 are detailed.


Procedure:

It is assumed that the user has a sizeable mass storage device, like an RK05 or RL01 or RDxx. If that is not the case (a system with no fixed disks and limited removable storage) the user is not out of luck. They will instead however, need to be more careful, planning to put only the needed files on the working disks.

Transfer the logical disk image with the source files (basic.dsk is suggested) to your machine and mount the logical disk. Assign the logical disk to DK:. There is already a basic.sav on the logical disk. This is needed to run the sucnfg.bas configuration file. This basic, as stated in the installation guide has type 3 overlay and no math hardware support. The manual also mentions bas8k and basicd. A user can make his own basicd from selecting the right options in sucnfg. Bas8k is only needed if the user's machine only has 8k (overlay 5). The sucnfg basic program generates an indirect file that when run will link the necessary pre-assembled .OBJ files. Again though, the necessary .OBJ may not be present here, they need to be assembled from the .MAC files. Sucnfg.bas will chain to other small sucnfg#.bas files as it runs. Assumedly this was done for users with only 8kw. Sucnfg1.bas does most of the work populating the indirect file with most of the appropriate routines to be linked based on the question responses. One of the sucnfg2 through 6 files adds the remaining entries depending on the overlay structure requested. Sucnfg7 cleans up and finishes off the job.

To determine what source files need to be assembled, run the sucnfg.bas as detailed in the Basic-11 Instalaltion Guide. The user will be prompted to answer questions about the his custom basic should be built, reminescent of a simplified rt-11 sysgen. Next, examine the indirect file that was generated - it contains the list of .OBJ files that need to be assembled.

For each .OBJ to be assembled, there are three .MAC files required. These are BSMAC.MAC, BSASM.MAC, and the .MAC that has/almost has the name of the finished .OBJ required. The BSMAC.MAC contains some common routines used by every .OBJ the user will be creating. BSASM.MAC contains definitions that will be looked for by assembler directives in the third .MAC file mentioned above. The user should examine the BSASM.MAC and edit it so that it agrees with the choices made when sucnfg.bas was run (for example, double or single precision, subroutine support, resequencing, etc.) Various versions of BSASM.MAC that were present on the source floppies have been left here. They have filenames like BSASM*.mac, where * is some other letter.

There is often not a .MAC file with exactly the name of the .OBJ file referenced in the indirect file generated by sucnfg.bas. Often the difference is a missing last letter. For example, the indirest file shows BSR0D while only BSRO.MAC is found. The present author has found that depending on the definition found in the BSASM.MAC, the BSR0 can complile with double or single precision support, hence the D or S at the end of the compiled BSR0D or BSR0S that came from BSR0.MAC.

So, to create BSROD.OBJ, the user edits BSASM.MAC to enable the definition for double precision support then does:

.R MACRO
*BSR0D=BSMAC,BSASM,BSR0

and gets BSROD.OBJ as output. Other files this is true for are BSSUB (BSSUB and BSSUBN for subroutine and no subroutine support) and slightly more complicated BSERML (long err msg) or BSERMS (short err msg), which are generated from BSERMD (double precision) and BSERMS.MAC (single precision).

BSCLI is also tricky. If the user is not linking other outside routines that will need call support, then assemble this file to BSCLIN.OBJ. If they will, follow the instructions in the users guide in the chapter entitled "Using Assembly Language Routines with Basic."

Some files are straightforward, as with SUDTCM. It assembles to SUDTCM.OBJ. In all cases, always assemble all three files. Again for example:

.R MACRO
*SUDTCM=BSMAC,BSASM,SUDTCM

Some files do not have to be assembled, they already have been. These are BSOT0 and 1, D and S .EAE, .EIS, .FIS, .FPU. These routines contain the transindental function support using optional math hardware, if so selected for incorporation by sucnfg. The unassembled source files are not here.

Once all the files have been assembled, then the indirect file generated by SUCNFG.BAS can be executed as illustrated in the installation guide.

Notes about linking Basic-11 with assembly routines provided with hardware (drivers):

If the user has assembly routines to link with Basic (as described in the installation manual and users guide) they may also need to link a library called BSCLLB if requested by the instructions that came with the hardware. The author has a National Instruments GPIB11V-2 interface card for which that is the case. BSCLLB.MAC or .OBJ was not found with this distribution, however a series of other files that appear to contain the routines that would otherwise have been in BSCLLB were found. The user should assemble BSMAC and BSASM with each of the following: BSCLAE, BSCLAL, BSCLBM, BSCLCH, BSCLCK, BSCLMS, BSCLPL, and BSCLRT. Then when answering the question in SUCNFG concerning user provided files to be linked, instead of entering BSCLLB, instead enter each of the individual files assembled above.

Good Luck. If the reader gets stuck, he is welcome to send the present author an e-mail for help.


брать тут
https://mirrors.pdp-11.ru/search.php?text=Basic%2011%20dec&page=1
http://mirrors.pdp-11.ru/_pdp-11/_soft/Basic-11/

shattered
07.02.2022, 22:07
любопытно, что происходит на этом видео


https://www.youtube.com/watch?v=DDCWZsV-e-Y

если учесть, что mame не умеет в двк....

Titus
07.02.2022, 23:02
любопытно, что происходит на этом видео
А что происходит?