Электроника-85 vs. DEC Pro-350 + их эмуляция

Цитата:

Сообщение от form

Так может просто выкладывать сюда по мере разборки листинг который на данный момент получился - может кто еще посмотрит :)

Он сумбурный, просто дизассемблированный дамп памяти размером 30 с лишним килобайт с некими пометками. К тому же, у меня свой дизассемблер, понятный мне, но не очень дружественный любителям PDP11, с 16-ричными числами и некими сокращениями и упрощениями.

Пример:

Код:

7558 17C1 0028 MOV (#$0028),R1 755C 031D BEQ $7598 755E 1C42 0004 MOV $4(R1),R2 7562 1089 MOV R2,(R1) 7564 0A0A CLR (R2) 7566 1C43 0006 MOV $6(R1),R3 756A E083 SUB R2,R3 756C 0A83 INC R3 756E 10F2 0002 MOV R3,$2(R2) 7572 15F1 8080 0044 MOV #$8080,$44(R1) 7578 1042 MOV R1,R2 757A 65C2 000C ADD #$000C,R2 *757E 10A6 PUSH R2 *7580 15E6 023F PUSH #$023F ; $GTSK (Get Task Parameters) *7584 88FF EMT $FF ; Получить 16-словный массив параметров таска по адресу $72F4 ; R2 - указатель на массив параметров 7586 8703 BCS $758E ; Если ошибка, то -> $758E 7588 1CB1 000E 0044 MOV $E(R2),$44(R1) ; Параметр 7 (User Identification Code) -> ($72E8 + $44) 758E 15F1 FFFF 0028 MOV #$FFFF,$28(R1) 7594 0A31 003E CLR $3E(R1) 7598 0087 RTS

Звездочками помечаю те строчки, которые убираю, чтобы трассировать дальше, пропуская ненужные системные вызовы.

Пока что уперся в сообщение: PASCAL -- Fatal initialization error

Цитата:

Сообщение от Titus

Он сумбурный, просто дизассемблированный дамп памяти размером 30 с лишним килобайт с некими пометками. К тому же, у меня свой дизассемблер, понятный мне, но не очень дружественный любителям PDP11, с 16-ричными числами и некими сокращениями и упрощениями.

Пример:

Код:

7558 17C1 0028 MOV (#$0028),R1 755C 031D BEQ $7598 755E 1C42 0004 MOV $4(R1),R2 7562 1089 MOV R2,(R1) 7564 0A0A CLR (R2) 7566 1C43 0006 MOV $6(R1),R3 756A E083 SUB R2,R3 756C 0A83 INC R3 756E 10F2 0002 MOV R3,$2(R2) 7572 15F1 8080 0044 MOV #$8080,$44(R1) 7578 1042 MOV R1,R2 757A 65C2 000C ADD #$000C,R2 *757E 10A6 PUSH R2 *7580 15E6 023F PUSH #$023F ; $GTSK (Get Task Parameters) *7584 88FF EMT $FF ; Получить 16-словный массив параметров таска по адресу $72F4 ; R2 - указатель на массив параметров 7586 8703 BCS $758E ; Если ошибка, то -> $758E 7588 1CB1 000E 0044 MOV $E(R2),$44(R1) ; Параметр 7 (User Identification Code) -> ($72E8 + $44) 758E 15F1 FFFF 0028 MOV #$FFFF,$28(R1) 7594 0A31 003E CLR $3E(R1) 7598 0087 RTS

Звездочками помечаю те строчки, которые убираю, чтобы трассировать дальше, пропуская ненужные системные вызовы.

Пока что уперся в сообщение: PASCAL -- Fatal initialization error

Очень неудобно смотреть - в шестнадцатеричном виде теряется наглядность и охрененно затрудняется запрос хелпа по директивам. Когда я пишу в интеле или просто на C (кроме кода, относящегося к PDP-11), я использую шестнадцатеричные числа для нагладности, но использовать их для потери таковой... :)

Цитата:

Сообщение от form

Очень неудобно смотреть - в шестнадцатеричном виде теряется наглядность и охрененно затрудняется запрос хелпа по директивам. Когда я пишу в интеле или просто на C (кроме кода, относящегося к PDP-11), я использую шестнадцатеричные числа для нагладности, но использовать их для потери таковой... :)

Для меня восмиричные числа - абсолютно нечитаемые. И логично, что для себя я сделал именно такой дизассемблер.

Цитата:

Сообщение от Titus

Для меня восмиричные числа - абсолютно нечитаемые. И логично, что для себя я сделал именно такой дизассемблер.

Я тоже работал с шестнадцатеричными числами во много раз больше чем с восьмеричными несмотря на солидный стаж PDP-11 (единственная архитектура где я применяю восьмеричку, а их было много), но тем не менее я от этого не пытаюсь переводить вообще все в шестнадцатеричную систему: это всего лишь приведет в данном случае к отсутствию наглядности (переводить код в инструкции и даже просто узнать код который ошибочно [не]дизассеблировался придется с вычислениями), а уж когда дело доходит до понимания что собственно делается - начинается полное счастье так как в справочниках и доках разумеется все в восьмеричном :)

Вот если бы речь шла о том, чтобы с этими числами вычисления проводить или разбирать на отдельные байты - тут был бы смысл :)

Вложений: 1

Есть задачка важная, может кто-то сможет помочь - очень нужно "починить" один файлик из набора автотеста, т.к. загрузка Э-85 затыкается на проверке КС одного модуля.
Разные цитаты:
;ПРОИЗВЕСТИ КОНТРОЛЬНОЕ СУММИРОВАНИЕ СОДЕРЖИМОГО ПЗУ МОДУЛЯ
;КОЛИЧЕСТВО СУММИРУЕМЫХ ЯЧЕЕК РАВНО СОДЕРЖИМОМУ БАЙТА 7 ПЗУ, УМНОЖЕННОМУ НА 200

В R0 - уже занесена емкость ПЗУ (из мл. и ст. байтов 6,7), это число известно заранее и прописано в этой же ПЗУ
Дописал, как, я понимаю, там проводится эта проверка:

Код:

BIS #-1,1020 (либо MOV #177777,1020) ; начальное значение в рабочей ячейке КС 1S: MOV #200,R1 ; Начинаем новый цикл по 200 байт 2S: MOVB 174200,1022 ; каждое чтение по адресу слота 174200 даст следующий байт из содержимого ПЗУшки MOVB 174200,1023 ; (там аппаратно увеличивается внутренний указатель на данные) MOV 1022,R2 ; таким образом считали 2 байта из ПЗУ ; сама кухня КС: XOR R2,1020 ; "Исключающее ИЛИ" считанных 16 бит (R2) и накопительным значением текущей КС (содержимым 1020) CLC ; очистили флаг переноса ROL 1020 ; сдвинули влево накопительное значение текущей КС (повышаем надёжность?) ADC 1020 ; (зачем-то прибавили туда перенос) SOB R1,2S ; R1-- 200 раз пока не == 0 SOB R0,1S ; R0--, достигли окончания данных в ПЗУ? (зависит от емкости ПЗУ) TST 1020 ; КС=0? ДА - ОК, ЕСЛИ НЕТ - ОШИБКА КС СОДЕРЖИМОГО ПЗУ МОДУЛЯ

В общем как можно узнать _какое именно_ значение КС (т.е. два байта) _должно быть записано_ в конец ПЗУ что бы TST 1020 в итоге дал 0?..
В идеале переписать бы на С пример для универсального подсчета по массиву байтов :v2_rolley.
В аттаче - корректные файлы ПЗУ для примеров, ну и описание полей...

Цитата:

Сообщение от anasana

Код:

CLC ; очистили флаг переноса ROL 1020 ; сдвинули влево накопительное значение текущей КС (повышаем надёжность?) ADC 1020 ; (зачем-то прибавили туда перенос)

Эта конструкция равносильна обычному циклическому сдвигу влево, но без бита переноса. А так как ROL через бит переноса, то идет пред и посткоррекция.
Т.е. весь алгоритм подсчета контрольной суммы - это:
1) a = a ^ b
2) a = a rol 1 (циклический сдвиг без бита переноса)

---------- Post added at 22:33 ---------- Previous post was at 22:29 ----------

Ну и разумеется, в конец ПЗУ должно быть записано значение КС всех слов без последнего.

---------- Post added at 22:35 ---------- Previous post was at 22:33 ----------

На Си, очевидно, алгоритм подсчета будет выглядеть так:

unsigned short a, b;

a = a ^ b;
a = (a << 1) | (a >> 15);

Давно хотел выложить маленькую антологию плат сопроцессора MS-DOS для Электроники 85:

плата БA-86M (на плате маркировка дат: 29.02.8_(последняя цифра непонятная то ли 8 то ли 9))
http://img-fotki.yandex.ru/get/9256/...29720ebe_L.jpg
http://img-fotki.yandex.ru/get/9364/...18206511_L.jpg
Описание в прошивке: 052291 "ЦНИИ ЦИКЛОН"; дата биоса: 22/05/91. (разогнанный вариант, 640К ОЗУ)

плата МС-1702 (на плате маркировка дат: 29.06.88):
http://img-fotki.yandex.ru/get/4013/...5aeb7fcf_L.jpg
http://img-fotki.yandex.ru/get/4108/...5bfec7fe_L.jpg

платы МС-1702 (на платах маркировка дат: 9.10.90):
http://img-fotki.yandex.ru/get/9311/...c98f7ecb_L.jpg
http://img-fotki.yandex.ru/get/9060/...26f3fe11_L.jpg
Описание в прошивках: 030387 "ЦНИИ ЦИКЛОН"; дата биоса: 17/11/88

Продолжу...
Следующий сет: Контроллер МОС-80 (БА-80), аналог PRO-CP/M (PC3XS-AA) Card ID: 000043
Плата 7.102.291 (на базе CPU Z80):
http://img-fotki.yandex.ru/get/9110/...7ffa335c_L.jpg
http://img-fotki.yandex.ru/get/9263/...64b74776_L.jpg

Характеристики:
http://img-fotki.yandex.ru/get/9161/...2a4b2a14_L.png

Операционная система CP/M-80:
http://img-fotki.yandex.ru/get/9109/...f1f82ed2_L.png

http://img-fotki.yandex.ru/get/6709/...692fe75b_L.png

ОС МОС-80 (адаптация МЭП СССР, ИПИ АН СССР)
http://img-fotki.yandex.ru/get/9152/..._4effef4_L.png

Телефоны для справок в Воронеже

Сейчас позвоним...

Цитата:

Сообщение от Denkixot

Сейчас позвоним...

"Аллё! Это СССР? "