Вид для печати
Первый проход по ПЗУ от KDJ11-B - приведение дизассемблированного текста к виду, позволяющему его оттранслировать и собрать. Более менее разделены код и данные, данные, по возможности, приведены к правильному виду, метки практически все локальные, отслеживание логики и причёска кода - минимальные.
Обработал на текущий момент 6 страниц из 64. Вроде как набил руку на быстром переводе, думаю, дней за пять (в основном вечерами) первый проход завершу.
32 из 64
Сегодня не сильно много удалось причесать - работа... Думал, сегодня уже половина будет.. :)
Захотелось мне странного... Хочется - сделаем :)
А в чём цимес - смотрим на фото :)Код:KDF11B-BH ROM V1.0
4088KB MEMORY
9 STEP MEMORY TEST
STEP 1 2 3 4 5 6 7 8 9
TOTAL MEMORY ERRORS = 0
CLOCK ENABLED
Boot Switch (S1) Invalid
Type ? for HELP
Enter one of [Boot, Diagnose, Help, List, Map]:BOO DU0
TRYING UNIT DU0
BOOTING FROM DU0
RT-11SB V05.07
.R MSCPCK
.SHO CONF
RT-11SB V05.07
Booted from DU0:RT11SB
USR is set SWAP
EXIT is set SWAP
KMON is set NOIND
MODE is set NOSJ
TT is set NOQUIET
ERROR is set ERROR
SL is set OFF
EDIT is set KED
FORTRAN is set FORTRA
KMON nesting depth is 3
CLI is set DCL, CCL, UCL, NO UCF
PDP 11/23 PLUS Processor
4088KB of memory
FP11 Hardware Floating Point Unit
Extended Instruction Set (EIS)
Commercial Instruction Set (CIS)
Memory Management Unit
Parity Memory
60 Hertz System Clock
FPU support
.RUN HX7:SPEED3
Тест быстродействия
R1+R0 classic 560 984 оп./сек
R1(23456.)+R0(12345.) empty 169 084 оп./сек
R1(23456.)+R0(12345.) 130 152 оп./сек -> 565 257 оп./сек
R1+@R0 classic 312 183 оп./сек
R1(23456.)+@R0(M-12345.) empty 169 084 оп./сек
R1(23456.)+@R0(M-12345.) 109 879 оп./сек -> 313 804 оп./сек
R0*R0 classic 40 812 оп./сек
empty 11.*12. 169 084 оп./сек
11.*12. 32 853 оп./сек -> 40 775 оп./сек
R2/R0 classic 141 948 оп./сек
R2-R3(34567.)/R1(321.) empty 130 152 оп./сек
R2-R3(34567.)/R1(321.) 20 218 оп./сек -> 23 936 оп./сек
34567.89022+32109.754321 empty 26 485 оп./сек
34567.89022+32109.754321 9 763 оп./сек -> 15 463 оп./сек
34567.89022*32109.754321 empty 26 486 оп./сек
34567.89022*32109.754321 3 595 оп./сек -> 4 159 оп./сек
34567.89022/32109.754321 empty 26 489 оп./сек
34567.89022/32109.754321 3 495 оп./сек -> 4 026 оп./сек
CIS MULPI 1 422 оп./сек
CIS MULP 1 empty 56 582 оп./сек
CIS MULP 1 425 оп./сек -> 428 оп./сек
CIS MULPI 2 1 982 оп./сек
CIS MULP 2 empty 56 072 оп./сек
CIS MULP 2 2 025 оп./сек -> 2 100 оп./сек
CIS ADDNI 1 3 116 оп./сек
CIS ADDN 1 empty 55 520 оп./сек
CIS ADDN 1 3 202 оп./сек -> 3 397 оп./сек
CIS ADDNI 2 6 451 оп./сек
CIS ADDN 2 empty 56 064 оп./сек
CIS ADDN 2 6 829 оп./сек -> 7 776 оп./сек
MOV 8 word 1 empty 112 824 оп./сек
MOV 8 word 1 14 287 оп./сек -> 16 358 оп./сек
MOV 8 word 2 empty 112 824 оп./сек
MOV 8 word 2 16 806 оп./сек -> 19 747 оп./сек
CIS MOVCI 8 word 1 13 978 оп./сек
CIS MOVC 8 word 2 empty 59 427 оп./сек
CIS MOVC 8 word 2 16 479 оп./сек -> 22 801 оп./сек
.
Встреча на Эльбе
32 из 64
Уф... Половина :)
Попробовал поставить нашу МК1 вместо двух микрух от DEC. Есть тройка проблем
– во-первых – крайние ряды для контактов на плате DEC чуть шире, чем расстояние межу линейками контактов на МК1 – приходится выгибать,
– во-вторых – крайние три контакта с обеих сторон МК1 начинаются упираться в детали и дорожки на плате – их приходится выгибать сильнее,
– в-третьих - за счёт большей длины МК1 она (со стороны тех контактов, которые остаются свободными) начинает упираться в кондёр – его приходится отгибать.
В целом – видимо из-за во-первых и где-то не контакта – МК1 не завелась… Может ещё завтра попробую... :)
- - - Добавлено - - -
Попался занимательный кусок кода:
или в более коротком виде:Код:660$:
CLR R5
CMP R0,R1
BEQ 726$
CLR -(SP)
CLR -(SP)
672$:
MOVB (R0)+,R5
BIC #177770,R5
TST @SP
BEQ 706$
ASH @SP,R5
706$:
ADD #3,(SP)+
BIS R5,@SP
TST -(SP)
CMP R0,R1
BNE 672$
TST (SP)+
MOV (SP)+,R5
726$:
RETURN
На беглый взгляд - в R0 - указатель на строку (восьмеричного числа), R1 - адрес её последнего байта + 1, в R5 возвращается результат.Код:660$:
LET R5 := #0
IF R0 NE R1 THEN
PUSH <#0, #0>
REPEAT
LET R5 :B= (R0)+
LET R5 := R5 OFF.BY #^C<7>
IF @SP NE #0 THEN
LET R5 := R5 SHIFT @SP
END
LET (SP)+ := (SP)+ + #3
LET @SP := @SP SET.BY R5
TST -(SP)
UNTIL R0 EQ R1
POP
LET R5 := (SP)+
END
726$:
RETURN
Действия вроде бы понятны и логичны, но зачем такие извращения со стеком... Правда, стек у этого кода скорее всего на регистрах ДП, так то возможно как то с этим связано, но пока - не совсем понятно..
Только строка получается в перевёрнутом виде, потому всё время три и прибавляют, сдвигают следующую цифру всё дальше, а уже BIS-ом накладывают. Если бы строка была в прямом виде, то сдвинул результат на три разряда и наложил бы следующую цифру.Цитата:
Сообщение от Hunta
Это понятно, просто не понятно, зачем такие извращения со стеком.Цитата:
Сообщение от Alex_K
А насчёт перевёрнутых строк - у ПЗУ KDJ11-B к ним прям любофф.. Может, когда буду логику разбирать - пойму, почему так, пока просто принял как данность - ишо надо 26 страниц причесать.
- - - Добавлено - - -
Вот это
вполне можно было бы написать какКод:ADD #3,(SP)+
BIS R5,@SP
TST -(SP)
Код:ADD #3,(SP)
BIS R5,2(SP)
Надеюсь этот код исполняется при запрещённых прерываниях.Цитата:
Сообщение от Hunta
А в мегабайтах сколько? Имеется ввиду код.Цитата:
Сообщение от Hunta
Пока не могу сказать, но это код из ПЗУ и там много мест, где выставляется приоритет 7 плюс вполне возможно, что стек, используемый этим кодом, сделан на регистрах ДП...Цитата:
Сообщение от Alex_K
Там весь код - 32 кб :) страница - 512 байт :) Но первоначальная причёска достаточно муторное и однообразное дело, так что - не быстро. Цель - получить что то более менее читабельно и разобранное на код-данные, собираемое обратно в образ и дающее на выходе идентичное исходному :)Цитата:
Сообщение от Alex_K
Основная цель - запихать загрузчик с CF-ок и (по просьбе) - загрузчики с DW и MY. Правда, плата MY пока не будет работать, но поместить загрузчик это не помешает :)
32 кБ, почти как на УКНЦ. Его ПЗУ я тоже вручную разбирал. Действительно долго, но когда сам вручную дизассемблируешь, то одновременно начинаешь понимать код.Цитата:
Сообщение от Hunta
Не совсем вручную (использую две программы и результат беру из одной или другой кусками), но пока подходящего инструмента (IDA не предлагать :) ) нет. Начал потихоньку писать, но ещё самое начало.
На первом проходе я на логику смотрю только если надо поточнее понять - код или данные. Ну, иногда глаз цепляет вышеприведённое. Особенно учитывая, что имеем своеобразный вариант оверлеев, резидентных в памяти :)
Разобрал (логика не до конца) ПЗУ от MXV11-B (использовал для нашей М8), там тоже страничная организация, но вызов кода из других страниц сделан малость по другому - в конца страницы две процедуры (страничный вызов, возрат из страничного вызова) и типа дальнего (на другую страницу) JMP-а.
У KDJ11-B вроде как нет - прямая запись в регистр отображения страниц и переход-вызов.
На первый взгляд - в случае MXV11-B легче анализировать код, но.. посмотри, как пойдёт..
Если не секрет, то в чем проблема с IDA?
За текущую версию не скажу, но та, которую в своё время пробовал - не позволяла задать (или я не нашёл) базовый адрес для кусков кода. Например - ПЗУ от KDJ11-B - это файл размером 32 кб, но принцип его работы - отображение 512-байтных страниц через два окошка с фиксированными адресами. То есть то, что с точки зрения IDA находится с адреса 1000 (2000, 3000) - на самом деле работает с адреса 165000 или 173000, причём понять - с какого адреса оно работает, можно только после логического анализа.
Возможно, это и можно задать, но даже если так - на втором этапе я начинаю переделывать код под использование пакета макросов структурных операторов (пример - на предыдущей странице) - и вот что то мне подсказывать, что это не получится сделать в IDA. То есть после первоначального дизассембла - всё равно выгружать в файл и дальше работать не с IDA
Хунта.. ты же самый умный в этой конторе :) Вот скажи какую арифметику с фиксированной точкой лучше использовать для 2D для физики 640х264?
Чего-то я маханул по моему с s15x16?
Что ты имеешь ввиду под - какую? Вроде как на УКНЦ особого выбора нет.Цитата:
Сообщение от S_V_B
Или ты имеешь ввиду - диапзон?
Да.. диапазон.. можно же s7x8..
Я не сталкивался, ты то же?
640 на 264 больше тянет на 10 бит на 9, так что для хранения всё равно будет 15 бит
Вычисления можно слегка оптимизировать, так как 640 - это 512+128, а 264 - это 256+8, то есть вместо умножения можно использовать сдвиги
Дальше пока не понял суть вопроса
- - - Добавлено - - -
Ну и результат умножения в общем случае вылезет за 16 бит
Суть вопроса про разрядность арифметики.
Про 512 я тоже думал..
Ты в курсе что Джон Кармак написал Doom на такой арифметике? Только проц у него был 32бит.
- - - Добавлено - - -
Два слова дофига..
Знаю.Цитата:
Сообщение от S_V_B
MUL у нас тоже может дать 32 бита, разрядность входных данных ограничена.Цитата:
Сообщение от S_V_B
Я в SPEED3 на это ограничение налетел, мне нужно было умножать 32-битные числа и делить 64-х битное на 32-ух битное
Умножать будем на синусыкосинусы (что меньше нуля)... единственное - трансляция но тоже без переполненияЦитата:
Сообщение от Hunta
Можно, конечно, хранить как 24 бита, но это значит байтовая выборка и надо смотреть, что выгодней - скорострельность или память.Цитата:
Сообщение от S_V_B
- - - Добавлено - - -
А они точно там нужны?Цитата:
Сообщение от S_V_B
И это для тебя они меньше нуля, в на ВМ2 это будут целые числа с определённым число подразумеваемых разрядов после запятой - то есть типа - умножили на 5 разделили на 10.
Что опять похоже на то, что я делал в SPEED3
Т.Е. проще два слова жрать.. зато быстро?
- - - Добавлено - - -
Нет.. же фиксированная точка.. первое слово целая часть... второе дробная.. после переполнения инкремент старшего слова.Цитата:
Сообщение от Hunta
Другие варианты сложнее.
Мерить надо. Учитывая извращения в организации работы с памятью в УКНЦ, особенно в ПП процессоре - не могу сказать.Цитата:
Сообщение от S_V_B
Плюс на это накладывается требования к памяти - может, будет достаточно памяти под цифровые данные и не надо будет мудрить с хранением полутора слов
Это и называется - подразумеваемое количество разрядов (цифр) после запятой.Цитата:
Сообщение от S_V_B
- - - Добавлено - - -
Учитывая целочисленность координат, смотрим, какие значения углов возможны (с учётом симметрии), смотрим для них значения синусов-косинусов, подбираем пару чисел - на первое умножить, на второе разделить. С учётом ограничений количество разряд - вполне возможно, что количество значений синусов-косинусов ещё сократитсяЦитата:
Сообщение от S_V_B
Вот тебе пример для 8ми бит
;
; resets rotation part of matrix
; r1 - address of 3x2 s7.8 fixed point transform matrix
; clobbers: r0, r1
;
resetrotmtx:
mov #400, r0 ; unit
mov r0, (r1)+ ; x -> x'
clr (r1)+ ; y -> x'
tst (r1)+ ; skip offset
clr (r1)+ ; x -> y'
mov r0, (r1)+ ; y -> y'
ret
;
; calculates a rotation/scale part of transform matrix for a given angle
; r0 - angle
; r1 - address of 3x2 s7.8 fixed point transform matrix
; r2 - special transform bit flags:
; r2.0 - y flip (mathematical to screen transform)
; r2.1 - scale x by 0.75 (screen aspect ratio correction)
; clobbers: nothing
;
makerotmtx:
; x' = x * cos - y * sin
; y' = x * sin + y * cos
mov r0, -(sp)
call cos
mov r0, @r1 ; x -> x'
mov r0, 10(r1) ; y -> y'
mov @sp, r0
call sin
mov r0, 6(r1) ; x -> y'
neg r0
mov r0, 2(r1) ; y -> x'
bit #1, r2 ; y flip
beq 30$
neg 6(r1)
neg 10(r1)
30$: bit #2, r2 ; x downscale
beq 31$
mov @r1, r0
asr r0
asr r0
sub r0, @r1
mov 2(r1), r0
asr r0
asr r0
sub r0, 2(r1)
31$: mov (sp)+, r0
ret
;
; Transform a list of 8-bit points by the given matrix
;
; r4 - source
; r5 - destination
; r3 - count
; stack - transform matrix
;
dotransform:
mov r3, -(sp)
; now matrix base offset is 4
50$: ; calculate x'
movb (r4)+, r3 ; x
mov r3, r0
mov 4(sp), r1 ; x -> x'
call mul8x8s
mov r0, @r5
movb @r4, r0 ; y
mov 6(sp), r1 ; y -> x'
call mul8x8s
; accumulate & store x'
add @r5, r0
add 10(sp), r0 ; x' offset
swab r0
movb r0, (r5)+
; calculate y'
mov r3, r0 ; x
mov 12(sp), r1 ; x -> y'
call mul8x8s
mov r0, r3
movb (r4)+, r0 ; y
mov 14(sp), r1 ; y -> y'
call mul8x8s
; accumulate and store y
add r3, r0
add 16(sp), r0 ; y' offset
swab r0
movb r0, (r5)+
; loop until the end
dec @sp
bne 50$
; done
tst (sp)+
ret
;
- - - Добавлено - - -
Вся красота в другом.. хоть координаты на экране и целочисленные.... ты суммируешь все объекты в натуральных числах..при переполнении ты сдвинешся на пиксель
Если ты думаешь, что я буду в нём разбираться, то ошибаешься.
Что то у нас такое было в курсе по численным методам про трансформацию трёхмерки БЕЗ матрицы - ищи.
Я окончил мехмат больше 20 лет назад, с этим дел больше не имел, так что не помню и вспоминать не тянет, так как личных моих интересов в этой области, по крайне мере пока, нет.
- - - Добавлено - - -
Если ты думаешь, что сброшенное сюда ЭТО в ТАКОМ виде вызовет какие то эстетические чувства - то сильно ошибаешься.Цитата:
Сообщение от S_V_B
Я просто механик. Без всяких МАТ.Цитата:
Сообщение от Hunta
Но я говорю об очевидных вещах..
- - - Добавлено - - -
Я придумал - двойная трата памяти.. зато быстро, в нашем случае пойдет.
Перекур.. Осталось 24 страниц...
Или - сделано 40 из 64-ёх
В IDA есть сегменты. Непрерывное пространство из файла можно разбить на сегменты со своими свойствами, в том числе стартовым адресом.Цитата:
Сообщение от Hunta
Думаю, стоит посмотреть.
Возможно. Но с этим ПЗУ я уже точно это делать не буду, а когда доберусь до следующего дизассемблирования чего-то, то, что сможет сделать IDA, боюсь, будет в моей программ в более удобной для меня виде.Цитата:
Сообщение от yu.zxpk
Решил попробовать посмотреть - удастся ли получить с платой KDJ11-D 4 мб памяти. На самой плате УЖЕ стоит 512 кб памяти плюс у меня есть плата памяти на полные 4 Мб. Ну, после некоторой возни с джамперами на плате памяти (документации так пока и не нашёл) опытным путём определил назначение ещё восьми джамперов (два я уже узнал, когда добивал плату микросхемами до 4 Мб). Результат:
Так что KDJ11-D вполне работоспособна с полным объёмом памятиКод:9 8 7 6 5 4 3 2 1
Commands are Help, Boot, List, Map, Test and Wrap.
Type a command then press the RETURN key: MAP
KDJ11-D/S ROM V2.0
4088 K Bytes
00000000 - 01777776 512 KB CSR = 17772100
02000000 - 17757776 3576 KB CSR = 17772102
Press the RETURN key to continue:
17761000 - 17761176 000-036 - ZA 040-076 - ZB 100-136 - ZC 140-176 - ZD
17770200 - 17770376 Unibus mapping registers
17772100 - 17772102 MCSR Memory CSR1, Memory CSR2
17772150 - 17772152 DU
17772200 - 17772216 SIPDR0-7
17772220 - 17772236 SDPDR0-7
17772240 - 17772256 SIPAR0-7
17772260 - 17772276 SDPAR0-7
17772300 - 17772316 KIPDR0-7
17772320 - 17772336 KDPDR0-7
17772340 - 17772356 KIPAR0-7
17772360 - 17772376 KDPAR0-7
17772516 MMR3
17773000 - 17773776 CPU ROM
17774440 - 17774456 ETHERNET 08-00-2B-0E-EE-87
17776500 - 17776506 SLU1
17776540 - 17776546 SLU
Press the RETURN key to continue:
17777400 - 17777416 RK11
17777520 NR ??
17777524 Display register
17777546 LTC CSR, BEVENT = 1
17777560 - 17777566 SLU0
17777572 - 17777576 MMR0,1,2
17777600 - 17777616 UIPDR0-7
17777620 - 17777636 UDPDR0-7
17777640 - 17777656 UIPAR0-7
17777660 - 17777676 UDPAR0-7
17777750 - 17777752 MREG,Hit/Miss
17777766 CPUER
17777772 PIRQ
17777776 PSW
Commands are Help, Boot, List, Map, Test and Wrap.
Type a command then press the RETURN key: BOO DU0
DU0
RT-11SB V05.07
.R MSCPCK
.BOO ZB1:RT11SB
RT-11SB (S) V05.07
.R MSCPCK
.SHO ALL
RT-11SB (S) V05.07
Booted from ZB1:RT11SB
USR is set SWAP
EXIT is set SWAP
KMON is set NOIND
MODE is set NOSJ
TT is set NOQUIET
ERROR is set ERROR
SL is set OFF
EDIT is set KED
FORTRAN is set FORTRA
KMON nesting depth is 3
Global .SCCA flag is disabled
CLI is set DCL, CCL, UCL, NO UCF
PDP 11/53 Processor
4088KB of memory
Floating Point Microcode
Extended Instruction Set (EIS)
Memory Management Unit
Parity Memory
50 Hertz System Clock
Memory parity support
SB timer support
Global .SCCA support
FPU support
Extended unit support
Device Status CSR Vector(s)
------ ------ --- ---------
RK Installed 177400 220
DL Not installed 174400 160
DU Installed 172150 154
HX Installed 177560 000
ZA Installed 161014 350
ZB Resident 161054 354
ZC Installed 161114 360
ZD Installed 161154 364
ZE Not installed 161214 370
ZF Not installed 161254 374
WQ Not installed 177134 204
WS Not installed 177134 204
LD Installed 000000 000
VM Installed 177572 250
MU Not installed 174500 260
NL Installed 000000 000
SL Installed 000000 000
EM Installed 000000 010
TT (Resident)
ZB (Resident)
ZB1 = DK , SY
HX
RK
ZA
DU
VM
ZC
ZD
NL
LD
SL
EM
13 free slots
Job Name Console Level State Low High Impure
--- ---- ------- ----- ----- --- ---- ------
0 RESORC 0 0 Run 000000 135204 137076
No multi-terminal support
Address Module Words
------- ------ -----
160000 IOPAGE 4096.
157200 ZB 192.
135250 RMON 4588.
001000 ..BG.. 23636.
LD0 is ZB3:S00.DSK[1950.]
LD1 is ZB3:ADV.DSK[400.]
.
у Вас какая именно KDJ11-D - с матрицами или "на рассыпухе"(512 потому что не все микросхемы RAM припаяны или предусмотрено всего 512) ?
На рассыпухе, но в данном случае это роли не играет - я смогу добавить памяти и для варианта с 1.5 мб памяти
по памяти - возникает естественный вопрос - а сколько ее НЕОБХОДИМО ? ("чем больше - тем лучше" и "максимально возможное" - не ответ).
Что-то мне кажется, что для RSX достаточно (для 1го - 2-х терминалов) - 512.
Для чего?Цитата:
Сообщение от ra3qdp
Для системы, для системы и запущенной пары программ, для системы и запущенного Oracle или для системы и запущенного DECNet-а вместе со стеком TCP/IP?
Ответ на вопрос - столько, сколько надо.
вот и - сколько именно НАДО, например для перечисленных Вами случаев ?
4 мб хватит
как Вы могли заметить, я спрашивал не сколько хватит, а сколько надо (требуется).
Понятия не имею.
И поскольку личного интереса к этой информации у меня, по крайне мере сейчас, нет, то своё свободное время я потрачу на что то другое.
К тому же, судя по тому, что я читал здесь и на фантомах, ответ на этот вопрос простой - памяти требуется столько, сколько согласен потратить тот, которому вдруг понадобилась память для PDP-11.
- - - Добавлено - - -
Вдогонку.
"Лишнюю память" под RSX-11M-Plus всегда можно пустить на дисковый кэш.
отчего же ? Вы, ведь, показывали картинки RMD в некоторых конфигурациях использования софта.Цитата:
Сообщение от Hunta
И у Вас был какой-то опыт практической работы "в старые времена".