Фортран для БЭСМ-6 это сила

[vak]

Сижу в центре кремниевой долины и программирую на фортране для БЭСМ-6. На дворе 2016 год, а вот поди ж ты, возникла настоятельная потребность. Нужно извлечь с диска некий бинарный образ и преобразовать в текстовый HEX файл. Надо сказать, Фортран-ГДР отличный инструмент для подобных задач. Мониторная система Дубна, симулятор ОС Диспак, книжки Мазного и Салтыкова-Макаренко под рукой. Решение выглядит так: hexdump.b6

История вопроса следующая. Есть процессор микро-БЭСМ, и для него есть тест системы команд. Тест написан на языке ассемблера, а сам ассемблер имеется в исходных текстах для БЭСМ-6. К ассебмлеру также прилагается линкер. Всё это запускается под мониторной системой "Дубна" на симуляторе ОС Диспак. На самом деле написана эта кросс-система была под ОС Дубна, и пользуется некоторыми её особенностями, поэтому пришлось на скорую руку привинтить несколько дубненских экстракодов к симулятору Диспака. Но это всё мелочи. В конце концов ассемблер с линкером заработали и на диске получился двоичный образ теста, размером около 24 килобайт. Как его извлечь оттуда? Тем более, что хранится он под управлением некой "библиотеки виртуальной памяти", и формат хранения не описан. Но есть API, набор фортрановских вызовов. Не вопрос: пишем програмулину и получаем нужный результат. Теперь можно смело запускать тест на симуляторе Verilog.

Comments

[juan-gandhi.livejournal.com]

Восторг, конечно.

[vak]

Вся эта компьютерная археология - затягивающая штука. Ожившие тени забытых предков. :)

[juan-gandhi.livejournal.com]

Вот меня тоже иной раз тянет тряхнуть, да зафигачить форт где-нибудь просто в джаваскрипте. Чо, делов-то.

[kbb.livejournal.com]

Ну зафигачь например для:

10 a=a+1
goto 100

100 a=a-1
goto 10

[juan-gandhi.livejournal.com]

Это фортран; а я если зафигачу, то форт.

[cross-join.livejournal.com]

Смысла нет. Форт - высокоуровневая замена ассемблера и альтернатива Си для программирования встроенных систем. Яваскрипт - программирование терминалов конечного пользователя и "клей" для интеграции системных компонентов.

[nzeemin.livejournal.com]

Года два уже как есть такой:
https://github.com/eatonphil/jsforth

Сейчас наверное имеет смысл реализовать Форт под asm.js.

[Евгений Х. (from livejournal.com)]

Так asm.js уже наверно каменный век.
Теперь эпоха WebAssembly (отгрузка официально в Q1 2017)
А внутри там очень даже тортфорт!

[Евгений Х. (from livejournal.com)]

Это просто высший пилотаж!

[vak]

Фотран-ГДР для системных применений чем-то напоминал язык Би. Эффективный код, битовые операции, возможность описывать структуры в виде common-блоков.

[qvb.livejournal.com]

Да, компьютерная археология - очень интересная штука.

Лет пять назад меня почему-то торкнуло вспомнить незабвенную CM4/CM1420 и RSX11M. Поставил эмулятор, пару месяцев поигрался, вспомнил тот ассемблер, даже начал зачем-то портировать TCP стэк на RSX11M, но потом занялся другими хобби-проектами и охладел.

[vak]

От БЭСМ-6 осталось некоторое количество бинарников и исходников. Довольно любопытно пробовать их оживлять.

[archaicos.livejournal.com]

Маньячно! :)

[vak]

Приятно вспомнить молодость. Ровно этим я занимался в студенчестве, 85-86 годы.

[Евгений Х. (from livejournal.com)]

А вот получается, что полноценной МС Дубна/ДИСПАК под симулятор нету?
Или так было быстрее просто?

[vak]

Почему нету? У нас как раз полноценная, классическая мониторная система Дубна. Но она никак не помогает решить нужную задачу. Даже примитивы печати в шестнадцатеричном виде отсутствуют.

[Евгений Х. (from livejournal.com)]

Я имел ввиду под симулятор на базе SIMH который.

[vak]

В симуляторе SIMH запускается ровно та же мониторная система Дубна, с того же самого диска 2048. Разница в том, что SIMH эмулирует машину на аппаратном уровне, со всеми внешними устроуствами, поэтому под ним приходится сначала запускать ОС Диспак, а уже под ним задачу МС Дубна. Симулятор dispak эмулирует только один процесс режима пользователя и набор системных вызовов (экстракодов). Под ним запускается ровно такая же задача МС Дубна. Разницу можно наблюдать только в некоторых тонких отличиях работы экстракода печати, который в dispak переписан на Си.

Грубо говоря, SIMH это аналог virtualbox, а dispak - аналог wine.

[qvb.livejournal.com]

Интересный проект.

А как микро-бэсм по производительности, если например сравнить с ДВК3 или подобными аппаратами?

[vak]

Микро-БЭСМ работала на частоте 2Мгц и по производительности давала 1/9 от реальной БЭСМ-6. Сравнить с ДВК-3 трудно: частоты близкие, но по вычислительным возможностям 64-битный процессор с плавающей точкой всяко мощнее 16-битного с фиксированной.

[qvb.livejournal.com]

Да, трудно сравнивать из-за разницы в разрядности и системе команд.

У старших моделей ДВК производительность была вполне ОК - где-то до 1 mips (на 16-битных операциях). Но в 4 раза большая разрядность - это существенно.

А операции с плавающей точкой на ДВК были очень медленные, там по-моему вообще только эмуляция была.

[avseyev.livejournal.com]

Сопроцессор был. На ДВК-3 их ставили не так часто, но на поздних Квантах их ставили. Сопроцессор, правда, не самый быстрый. Археологи собирались реверснуть 1801ВМ3 со временем. Интересно, если кто-нибудь за ВМ4 возьмется. В итоге же может получиться полноценная железная реплика ДВК-3. Вот тогда и можно будет сравнивать. :)

[avseyev.livejournal.com]

"Всяко мощнее" только с плавучкой, очевидно.

[vak]

Контрольные суммы тоже удобно считать.