ИСПОРЧЕН РЕКОРД
LUN 1 RЕТ 02657 DЕV 00041 СZ 00000 РОINТ 00012
IОХNSWАР 01000 GIVЕМАSК Е 01116
НID/* 01073 IОХХRРСК 01145
АНID/* Е 01076 IОХХUРСК Е 01146
СLЕАRLЕХ 01103 *IОХLSW* С 01217
IОХGIVЕМ 01115 СВОБОД 01220
КОНЕЦ ЗАДАЧИ
00411: 00 074 0000 *74
dispak --punch=punch.txt tst_esevm-gdr.b6
...O............................................................................
................................................................................
.OO.OOOOOOOO....................................................................
O...............................................................................
................................................................................
...O............................................................................
................................................................................
................................................................................
................................................................................
................................................................................
...O............................................................................
................................................................................
Подскажите пожалуйста как на эмуляторе dispak вводить выводить данные в файл?Печать работает - но это только вывод.Данные на БЭСМ6 на сколько понимаю могли быть:0 - введены тут-же в колоде карт как массив и прописаны в паспорте
1 - в(ы)ведены с(на) перфоленты/перфокарт с определенного накопителя, то-же прописывается в паспорте, но самих данных в задаче нет
2 - в(ы)ведены с(на) магнитную ленту/диск с определенного накопителя, то-же прописывается в паспорте, но самих данных в задаче нет
On Thursday, May 16, 2024 at 5:25:42 AM UTC-7 oxy...@gmail.com wrote:Подскажите пожалуйста как на эмуляторе dispak вводить выводить данные в файл?Печать работает - но это только вывод.Данные на БЭСМ6 на сколько понимаю могли быть:0 - введены тут-же в колоде карт как массив и прописаны в паспортеТут есть какая-то неувязка в терминах. В паспорте задачи прописывается исключительно заказ ресурсов.1 - в(ы)ведены с(на) перфоленты/перфокарт с определенного накопителя, то-же прописывается в паспорте, но самих данных в задаче нет2 - в(ы)ведены с(на) магнитную ленту/диск с определенного накопителя, то-же прописывается в паспорте, но самих данных в задаче нет
Тут в системе есть асимметрия. Действительно, в МС "Дубна" взять исходный текст и данные для задачи можно было с накопителя(обычно заказанного в паспорте), т. е., собственно вводимый пакет мог выглядеть как*NAME ...*READ:nuzzzz (и программа, и данные находятся в "файле" на устройстве nu с зоны zzzz)*END FILEили аналогично с произвольным количеством *READ, с тем лишь ограничением, что разбиение пакета на файлы может делаться только в тех местах, где в пакете есть управляющиекоманды мониторной системы, т. е., например, команда запуска программы на выполнение *EXECUTE и все данные для программыдолжны находиться в одном файле.Оператор READ 1,N в Фортране "не знает", откуда он читает данные - из вводимого массива или с накопителя.Но перенаправить вывод аналогичным образом, чтобы оператор PRINT - именно PRINT, а не WRITE - мог писать данные на накопитель или на перфокарты/перфоленту,в МС "Дубна" не было способа (насколько я понимаю, в Мониторе-80 какой-то способ появился, но детали мне неизвестны).
Что касается выдачи на перфокарты. Эта функциональность создавалась в эмуляторе ради возможности выдавать т. н. стандартные массивы(скомпилированные объектные модули). В этом случае перекодировать образ перфокарт в текст смысла не имеет.Текстовых форматов на перфокартах было более одного: кроме поколонного IBM-, ICL- или CDC-совместимого (между ними была разница в кодировке пунктуации), был ии построчный формат ГОСТ/УПП. В любом случае, программу или скрипт, преобразующий образы перфокарт в текст, можно при желании написать за непродолжительное время.Leo
--
Данное сообщение отправлено Вам, как участнику группы "БЭСМ-6":
http://groups.google.com/group/besm6/topics
---
Вы получили это сообщение, поскольку подписаны на группу "БЭСМ-6".
Чтобы отменить подписку на эту группу и больше не получать от нее сообщения, отправьте письмо на электронный адрес besm6+un...@googlegroups.com.
Чтобы посмотреть обсуждение на веб-странице, перейдите по ссылке https://groups.google.com/d/msgid/besm6/95f3073f-0c42-4e28-aa02-d9c96f343b8fn%40googlegroups.com.
16 мая 2024 г., в 20:07, Leo B. <leo...@gmail.com> написал(а):
On Thursday, May 16, 2024 at 5:25:42 AM UTC-7 oxy...@gmail.com wrote:Подскажите пожалуйста как на эмуляторе dispak вводить выводить данные в файл?Печать работает - но это только вывод.Данные на БЭСМ6 на сколько понимаю могли быть:0 - введены тут-же в колоде карт как массив и прописаны в паспортеТут есть какая-то неувязка в терминах. В паспорте задачи прописывается исключительно заказ ресурсов.1 - в(ы)ведены с(на) перфоленты/перфокарт с определенного накопителя, то-же прописывается в паспорте, но самих данных в задаче нет2 - в(ы)ведены с(на) магнитную ленту/диск с определенного накопителя, то-же прописывается в паспорте, но самих данных в задаче нет
Тут в системе есть асимметрия. Действительно, в МС "Дубна" взять исходный текст и данные для задачи можно было с накопителя(обычно заказанного в паспорте), т. е., собственно вводимый пакет мог выглядеть как*NAME ...*READ:nuzzzz (и программа, и данные находятся в "файле" на устройстве nu с зоны zzzz)*END FILEили аналогично с произвольным количеством *READ, с тем лишь ограничением, что разбиение пакета на файлы может делаться только в тех местах, где в пакете есть управляющиекоманды мониторной системы, т. е., например, команда запуска программы на выполнение *EXECUTE и все данные для программыдолжны находиться в одном файле.
Оператор READ 1,N в Фортране "не знает", откуда он читает данные - из вводимого массива или с накопителя.Но перенаправить вывод аналогичным образом, чтобы оператор PRINT - именно PRINT, а не WRITE - мог писать данные на накопитель или на перфокарты/перфоленту,в МС "Дубна" не было способа (насколько я понимаю, в Мониторе-80 какой-то способ появился, но детали мне неизвестны).
Что касается выдачи на перфокарты. Эта функциональность создавалась в эмуляторе ради возможности выдавать т. н. стандартные массивы(скомпилированные объектные модули). В этом случае перекодировать образ перфокарт в текст смысла не имеет.Текстовых форматов на перфокартах было более одного: кроме поколонного IBM-, ICL- или CDC-совместимого (между ними была разница в кодировке пунктуации), был ии построчный формат ГОСТ/УПП. В любом случае, программу или скрипт, преобразующий образы перфокарт в текст, можно при желании написать за непродолжительное время.
Leo
шифр 419999 зс5^
лен 41(2048)^
лен 42(1234-зп)^
eeв1а3
*name Ftn
*call yesmemory
*system
*full list
*ftn
SUBROUTINE NEWTON(X0,X1,ETS)
X1=X0+ETS
RETURN
END
PROGRAM MAIN
X0=100
PUNCH 0012, X0
READ (54,0011) ETS
0011 FORMAT (F12.8)
0012 FORMAT (' FLOAT:', F12.8)
CALL NEWTON(X0,X1,ETS)
WRITE (02,0012) X0
WRITE (02,0012) X1
WRITE (02,0012) ETS
PAUSE
END
*execute
*end file
``````
еконец
% touch 1234
% BESM6_PATH=/usr/local/share/besm6/:. dispak --punch=punch.txt tst_esevm-gdr.b6
23.4
IОХNSWАР 01000 GIVЕМАSК Е 01116
НID/* 01073 IОХХRРСК 01145
АНID/* Е 01076 IОХХUРСК Е 01146
СLЕАRLЕХ 01103 *IОХLSW* С 01217
IОХGIVЕМ 01115 СВОБОД 01220
КОНЕЦ ЗАДАЧИ
00411: 00 074 0000 *74
% cat punch.txt
.O..O.O...O.....................................................................
..OO............................................................................
.....O..OO.OOOOOOOO.............................................................
....O..O........................................................................
................................................................................
..O..O....O.....................................................................
................................................................................
......O.........................................................................
.O.O............................................................................
................................................................................
......O...O.....................................................................
................................................................................
% hexdump -C 1234
00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
*
00008100 08 95 0b 4b 83 00 02 00 00 20 4d c7 f1 05 02 00 |...K..... M??...|
00008110 00 00 00 99 99 41 02 00 fe 88 bf b4 10 9e 02 00 |.....A..?.??....|
00008120 08 95 0b 4b 93 00 02 00 00 20 4d c7 f1 05 02 00 |...K..... M??...|
00008130 00 00 00 99 99 41 02 00 fe 88 bf b4 10 9e 02 00 |.....A..?.??....|
00008140 55 55 55 55 55 55 02 00 aa aa aa aa aa aa 02 00 |UUUUUU..??????..|
*
00008190 00 00 00 00 00 c0 02 00 54 41 4f 4c 46 81 02 00 |.....?..TAOLF...|
000081a0 30 2e 30 30 31 3a 02 00 30 30 30 30 30 30 02 00 |0.001:..000000..|
000081b0 0a 55 55 55 0a 30 02 00 aa aa aa aa aa aa 02 00 |.UUU.0..??????..|
000081c0 55 55 55 55 55 55 02 00 aa aa aa aa aa aa 02 00 |UUUUUU..??????..|
*
00008250 55 55 55 55 55 55 02 00 04 00 00 00 00 00 02 00 |UUUUUU..........|
00008260 00 00 00 00 00 c0 02 00 54 41 4f 4c 46 81 02 00 |.....?..TAOLF...|
00008270 34 2e 33 32 31 3a 02 00 30 30 30 30 30 30 02 00 |4.321:..000000..|
00008280 0a 55 55 55 0a 30 02 00 aa aa aa aa aa aa 02 00 |.UUU.0..??????..|
00008290 55 55 55 55 55 55 02 00 aa aa aa aa aa aa 02 00 |UUUUUU..??????..|
*
00008320 55 55 55 55 55 55 02 00 04 00 00 00 00 00 02 00 |UUUUUU..........|
00008330 00 00 00 00 00 c0 02 00 54 41 4f 4c 46 81 02 00 |.....?..TAOLF...|
00008340 34 2e 33 32 81 3a 02 00 30 30 30 30 30 30 02 00 |4.32.:..000000..|
00008350 0a 55 55 55 0a 30 02 00 aa aa aa aa aa aa 02 00 |.UUU.0..??????..|
00008360 55 55 55 55 55 55 01 00 aa aa aa aa aa aa 01 00 |UUUUUU..??????..|
*
000083f0 55 55 55 55 55 55 01 00 04 00 00 00 00 00 02 00 |UUUUUU..........|
00008400 00 00 00 00 00 60 02 00 aa aa aa aa aa aa 01 00 |.....`..??????..|
00008410 55 55 55 55 55 55 01 00 aa aa aa aa aa aa 01 00 |UUUUUU..??????..|
*
0000a140
я слегка запутался, о чем, собственно, речь и за что боремся-то?
вполне работала схема:массив А3 с пакетом управляющих картзаканчивающийся картой *READ: (где лежит программа для компиляции, например)*END FIконец-А3А3*execu<данные>*END FIконец-А3
тут интересно, МС Дубна - AFAIR - выдавала _только_ поколонку (наследие предков)…
а в УПП выдавали родные системы программирования - АвЧай, БЕМШ…
Я, скажу сразу, в БЭСМ не гуру, и никогда им не был. Но программировать приходилось.
Поэтому отвечу так, как я понимаю сейчас: МС Дубна - это,
по-современному, BIOS. Диспак (Диапак :) - это тогдашний linux,
который перехватывает и переопределяет кучу системных вызовов, но
вот сам процесс загрузки (паспорт задачи) переопределить не может.
Поэтому начальная загрузка (паспорт задачи) - по Мазному, а
дальнейшее выполнение - по Тюрину.
--
Данное сообщение отправлено Вам, как участнику группы "БЭСМ-6":
http://groups.google.com/group/besm6/topics
---
Вы получили это сообщение, поскольку подписаны на группу "БЭСМ-6".
Чтобы отменить подписку на эту группу и больше не получать от нее сообщения, отправьте письмо на электронный адрес besm6+un...@googlegroups.com.
Чтобы посмотреть обсуждение на веб-странице, перейдите по ссылке https://groups.google.com/d/msgid/besm6/b2e407f5-6b5e-451e-9c48-01a0839a91een%40googlegroups.com.
Чтобы посмотреть обсуждение на веб-странице, перейдите по ссылке https://groups.google.com/d/msgid/besm6/0a3684a0-85f3-43b5-b32e-f12bfeb3692d%40koctya.ru.
М О Н И Т О Р-8 0 (3.7) 25.09.84* ( МС " Д У Б Н А " ИАЭ ) ШИФР 419999000000
Но остается вопрос зачем еще эмулятор dubna https://github.com/besm6/dubna :-/
Вот это похоже на то что я вижу.Паспорт от шифр до еконец это ДИСПАК а внутри со * похоже ДУБНА.
шифр 419999 зс5^
лен 41(2048)^
лен 42(1234-зп)^
eeв1а3
*name Ftn
...
Чтобы посмотреть обсуждение на веб-странице, перейдите по ссылке https://groups.google.com/d/msgid/besm6/03a35901-e0be-49bc-baa4-7637179a6793n%40googlegroups.com.
Чтобы посмотреть обсуждение на веб-странице, перейдите по ссылке https://groups.google.com/d/msgid/besm6/03a35901-e0be-49bc-baa4-7637179a6793n%40googlegroups.com.