Patron, 6*200=1200
2*200=400
Вид для печати
Patron, 6*200=1200
2*200=400
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 МГц.
На всякий случай, если кому хочется сравнить, свеже-прочитанная прошивка кр1801ре2 ** 012 (ангстрем, 8611). Микросхема нигде до этого не устанавливалась, прочитана с помощью ChipStarMT.
Код адреса = 4. (100)
QBASIC-2
Может кому-то пригодится...
Этот файл на пару блоков отличается от того,
который у меня храниться в не разобранном архиве от forma
+ form сохранил к нему описание на английском в формате .pdf
При старте оба файла пишут одинаковую строку-заголовок о готовности
к работе, описание прилагается ) Кстати говоря - там вроде как в самом
начале написано, что разработка вроде Отечественная (или около того).
картинка + ссылка
Q2.SAV - это тот который прилепил MiX,
ну а другой соответственно другой )
http://pic.pdp-11.ru/images/q2.png
http://archive.pdp-11.org.ru/ukdwk_a...plekt/Quasic2/[свернуть]
Пишу здесь т.к. эта тема закрыта.
Об 037 прошивке упоминается -здесь и здесь.
фото
http://ershov-arc.iis.nsk.su/files/r...02/502_269.gif
Только вот непонятно, почему Преснухин в 8 книге упоминает о 093 прошивке.
А как бы получить содержимое в виде как это видит процессор?
Интересно будет посмотреть как это работает в эмуляторе.
На всякий случай - вдруг пригодится - загрузчик BASIC ДВК из под RT-11 ;)
form, 037 прошивка это Фокал.
Все темы пересмотрел а прошивку РЕ1-037 (38) не нашел... Это не Basic а Focal для
ДВК-1 без графики но с загрузчиками с ИРПР и ИРПС видимо это предтеча прошивки Ре1-084 для БК-0010Ш.
И все таки хотелось бы прошивку 037 в виде как ее видит процессор.
А, я не так суть понял - найти фокал хочется... А он был в реале или только в теории? :)
У DEC такого много что только в теории было (при том подробно описывалось в документации)...
Судя по снимку выше он даже в серию вошел... Причем в приведенных доках на фото еще он в 573РФ3 а на фото уже нормальная заводская прошивка
на фото видно номер, но что там внутри, согласитесь не видно.
Документацию по ссылкам не читал, но верю на слово.
Как ещё можно (по мимо этой темы или даже раздела форума) дополнительно
пустить клич агрессивный на розыск именно этой ПЗУ(содержимого)??? На призраках спросить
громко громко у кого аккаунт есть, колликцеонеров завалить запросами???
С моей стороны, очень прошу, сразу же для архива DWKROM при случае обнаружения выложить! )
Спасибо.
Заголовок к Руководству по системному Бейсику от ОС РАФОС
Код:УТВЕРЖДЕН
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" ИЛИ "ВК").
Можно ли на BASIC-11 написать программу в которой экран бы не прокручивался вверх, а просто обновлялся, отрисовывая все на предыдущем месте но с изменениями?
И если вдруг у кого то есть интересные программы написанные на BASIC-11, поделитесь :)
Нужно использовать ESC последовательности экранные.В данном примере (для VT52) в строке 10 определяется функция перевода курсора в верхний левый угол, в строке 20 - функция очистки экрана, в строке 30 - функция позиционирования курсора (верхний левый угол - 0,0). Функции (как можно видеть) возвращают строку для печати (соответственно можно поменять первые три строки на другие для другого типа терминала) и ничего больше не менять в программе.Код: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%);
Ну а сам пример просто стирает экран, печатает "XA-XA" в позиции 30:10, печатает "XE-XE" в верхнем левом углу и выходит, предварительно выставив курсор в позицию 0:20.
Подскажите, почему в 013-й прошивке в Бейсике может не работать функция степени?
Набираю PRINT 2^3, выдает ответ 2 и дальше ошибку.
Символ степени - это же тот, который под буквой Ч ?
В общем, разобрался. Действительно, нажимал не тот символ. Думал, что надо в нижнем регистре вводить, потому что он под буквой Ч нарисован, а оказалось, что в верхнем регистре.
http://ipic.su/img/img7/fs/1.1536953393.jpg
Удаление в знак протеста против действий MM
Кстати, Бейсик от ДВК-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/p...nual_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
запуск в эмуляторе ДВК 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
Оказывается, что в текущей версии эмулятора Patrona этот Бейсик уже есть.
http://zx-pk.ru/threads/18351-emulya...l=1#post801290
Три варианта 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, с таким разрешением и для КЦГД что то там попадалось вроде бы
ну да вопрос про Квасики и их подробности
Q2 .SAV 43 05-Oct-88
QUASIC.OLD 32 22-Sep-91 QUASIC.SAV 41 11-Feb-103