BASIC ДВК

[AlecV]

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

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

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

http://en.wikipedia.org/wiki/File:Ba...K_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

[Advertiser]

[SKcorp.]

Дык сдампь у Фролова.

[dk_spb]

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

[AlecV]

dk_spb, как понимаю -012 или -013

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

[Patron]

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

       БЭЙСИК  ДВК НЦ
@0
ЖДУ
LIST
 
ЖДУ
10 PRINT "Hello!"
 
LIST
 
10 PRINT "Hello!"
ЖДУ
RUN
Hello!
 
ОСТ СТРОКЕ   10
ЖДУ

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

[AlecV]

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

иНЖАЛИД ДЕЖИЦЕ

[Patron]

Маленькие латинские -- это на самом деле большие русские.

В данном случае - видимо там просто перед проверкой введённой команды её регистр не приводится к верхнему. Дело в том, что код ПЗУ рассчитан на работу с терминалом 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]

[Patron]

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

[Alex_K]

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

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