И при этом - передача любого другого значения CSR в R1 - приводит к зависанию при загрузке всех операционных систем DEC, которые используют при загрузке с RK адрес CSR из R1.Цитата:
Сообщение от Hunta
- - - Добавлено - - -
Ошибочное поведение - так невозможно загрузить ни одну операционку DEC, использующую значение из R1.Цитата:
Сообщение от form
То есть DSM-11
- - - Добавлено - - -
Код:dkboot: ; DK: boot, continued
ror r2 ;(finish getting unit in <15:13>)
ror r2
ror r2
add #dkda,r1 ;point at disk addr
mov r2,(r1) ;set unit, C/H/S=0/0/0
clr -(r1) ;bus addr = 0
.assume dkba eq dkda-2
mov #-<1000/2>,-(r1) ;word count for one block
.assume dkwc eq dkba-2
mov #dkrdd!dkgo,-(r1) ;start command
.assume dkcs eq dkwc-2
10$: tstb (r1) ;wait for completion
bpl 10$ ;(ignore errors, will be obvious)
clr pc ;drop into boot block
Код:add #dlmp,r1 ;point at multi-purpose reg
mov #-<1000/2>,(r1) ;word count = 1 block
clr -(r1) ;disk addr = 0/0/0
.assume dlda eq dlmp-2
clr -(r1) ;bus addr = 0
.assume dlba eq dlda-2
add #dlrdd-dlsek,r2 ;change cmd to "read"
mov r2,-(r1) ;start cmd
.assume dlcs eq dlba-2
50$: bit #dlerr!dlrdy,(r1) ;wait for error or success
beq 50$
bmi 60$ ;error
.assume dlerr eq 100000
clr pc ;happy, drop into boot block
60$: ; error of some kind, just give up
halt
Код:go1: mov #dm$csr,r1 ;R1 points at base CSR
mov pc,r4 ;must point 20 bytes past signature
.assume . eq 20
mov #dmrdd!dmgo,r2 ;"read" command, as RK06 first time through
10$: ; read block 0, R2 contains "read" command including CDT bit
mov #dmerr,(r1) ;controller clear
;;; need to select drive first?
clr dmdc(r1) ;desired cyl = 0
add #dmcs2,r1 ;point at DMCS2
mov r0,(r1) ;set unit #
clr -(r1) ;disk addr=0/0 (track/sector)
.assume dmda eq dmcs2-2
clr -(r1) ;bus addr = 0
.assume dmba eq dmda-2
mov #-<1000/2>,-(r1) ;word count = 1 block
.assume dmwc eq dmba-2
mov r2,-(r1) ;"read" command
20$: bit #dmerr!dmrdy,(r1) ;wait for error or success
bpl 30$ ;success
.assume dmerr eq 100000
;;; we have lots of space, maybe we can fix soft ECC errors?
; assume drive type mismatch, try it both ways (RK06 vs. RK07)
add #dmcdt,r2 ;assume tried as RK06, now do RK07
bit #dmcdt,r2 ;or did we do that already?
bne 10$ ;no, do it now
br . ;error, hang
30$: clr pc ;happy, drop into boot block
Код:go1: mov #dx$csr,r1 ;R1 points at base CSR
mov pc,r4 ;must point 20 bytes past signature
.assume . eq 20
restrt: ; retry
mov #dxrds!dxgo,r2 ;"read sector" command
tst r0 ;unit 1?
beq 10$
bis #dxus,r2 ;yes, set unit select bit
10$: mov #1,r3 ;starting sector #
clr r5 ;init memory address
20$: ; read next sector
; R2=read cmd, R3=sector number, R5=address
mov r2,(r1) ;start cmd
30$: bit #dxerr!dxtr,(r1) ;wait for error or transfer request
beq 30$
bmi restrt ;error, start over
.assume dxerr eq 100000
mov r3,dxdb(r1) ;write sector number
40$: bit #dxerr!dxtr,(r1) ;wait for error or transfer request
beq 40$
bmi restrt ;error, start over
.assume dxerr eq 100000
mov #1,dxdb(r1) ;write track # (always 1 for block 0)
50$: bit #dxerr!dxdone,(r1) ;wait for error or completion
beq 50$
bmi restrt ;error
.assume dxerr eq 100000
; success, empty silo
add #dxemp-dxrds,r2 ;change command to "empty silo"
mov r2,(r1) ;start cmd
60$: bit #dxerr!dxtr,(r1) ;wait for error or transfer request
beq 60$
bmi restrt ;error, start over
.assume dxerr eq 100000
add #dxrds-dxemp,r2 ;restore "read sector" command
70$: bit #dxerr!dxtr,(r1) ;wait for error or transfer request
beq 70$
bmi restrt ;error, start over
.assume dxerr eq 100000
movb dxdb(r1),(r5)+ ;read next data byte
bit #177,r5 ;reached multiple of 128.?
bne 70$ ;loop if not
; bump to next sector
add #2,r3 ;skip 2 sectors (2:1 soft interleave)
cmp r5,#1000 ;done whole block?
blo 20$ ;loop if not
clr pc ;happy, drop into boot block
Везде передаётся CSR. Берем документацию на RK11 - адрес CSR по умолчанию 177404Код:go1: mov #dy$csr,r1 ;R1 points at base CSR
mov pc,r4 ;must point 20 bytes past signature
.assume . eq 20
restrt: ; retry
mov #dyrds!dygo,r2 ;init command, assume SD (about to flip it)
tst r0 ;unit 1?
beq 10$
bis #dyus,r2 ;yes, set unit select bit
10$: ; try other density
add #dydd,r2 ;flip DD flag
bic #dydd*2,r2 ;(clear carry)
mov #1,r3 ;starting sector #
clr r5 ;init memory address
20$: ; read next sector
; R2="read sector" cmd including DD flag, R3=sector number, R5=addr
mov r2,(r1) ;start cmd
30$: tstb (r1) ;wait for transfer request
bpl 30$ ;(ignore errors)
mov r3,dydb(r1) ;write sector number
40$: tstb (r1) ;wait for transfer request
bpl 40$ ;(ignore errors)
mov #1,dydb(r1) ;write track # (always 1 for block 0)
50$: bit #dyerr!dydone,(r1) ;wait for error or completion
beq 50$
bmi 10$ ;error, try other density
.assume dyerr eq 100000
; success, empty silo
add #dyemp-dyrds,r2 ;change command to "empty silo"
mov r2,(r1) ;start cmd
60$: tstb (r1) ;wait for transfer request
bpl 60$ ;(ignore errors)
add #dyrds-dyemp,r2 ;(restore "read sector" command)
mov #128./2,sp ;SD word count (not using stack, so...)
cmp r2,sp ;double density?
.assume dydd ge 128./2
.assume dyus!dyrds!dygo lt 128./2
blo 70$ ;no
asl sp ;yes, DD word count
70$: mov sp,dydb(r1) ;set word count
80$: tstb (r1) ;wait for transfer request
bpl 80$ ;(ignore errors)
mov r5,dydb(r1) ;write core addr
90$: bit #dydone,(r1) ;wait for completion
beq 90$ ;(ignore errors)
add sp,r5 ;bump addr by sector size
add sp,r5 ;(twice for byte address)
; bump to next sector
add #2,r3 ;skip 2 sectors (2:1 soft interleave)
cmp r5,#1000 ;done whole block?
blo 20$ ;loop if not
clr pc ;happy, drop into boot block
На этом для себя обсуждение считаю законченным.
С чем, к слову, согласен и DSM в процессе инсталяции:Цитата:
Сообщение от Hunta
Код:1.3 Do you wish to Auto-configure the current system [Y OR N] ? <Y>
Configuring Host System . . .
Processor Type: PDP-11/83
Memory Size: 256 KB
Processor/Memory Options:
Floating Point Unit
Extended Instuction Set
22 Bit Addressing
Cache
Name Vector CSR Unit Type Description
DKA 220 177404 RK11 Disk Controller
...
Информация к размышлению: ни один загрузчик DSM кроме RK05 не использует R1.
При загрузке с того же RL02 в R1 можно положить что угодно.
Аппаратная загрузка с MT пишет 172522 (как и положено) в R1, а не 172520 как можно было бы подумать.
Иными словами, загрузка с RK05 (для которого при генерации любой DEC системы даже не
спрашивается адрес регистра - он всегда жестко зашит) единственная вдруг с какого-то перепуга
хочет использовать R1, причем довольно странным способом: готовится набор регистров к которым
будет обращение методом BIS, а не ADD. В R1 можно записать 0, 400, 1400, 2400, 5400, ... загрузится.
Добавим гипотетический контроллер RK05 по адресу 177410 (CSR=177414) и... правильно: нифига не загрузится хоть ты 177410 хоть 177414 передавай в R1. Или, скажем, 177200 (чтобы не было соблазна сказать, что пересекается со стандартным, не кратен 20 или еще что-нибудь)... То есть реально этому загрузчику (единственному у DSM что-то делающему с R1) CSR передать через R1 невозможно (если быть точнее, то возможно три варианта кроме 177400).
То есть загрузчики для контроллеров, которых официально может быть несколько, игнорируют R1. Единственный загрузчик для контроллера который с точки зрения DEC всегда один и на одном месте (RSX правда позволяет кучу наплодить возможно - спрашивает сколько контроллеров, но отвечать на вопрос не пробовал) пытается манипулировать с R1 и выбрать один из 4 вариантов.
Не удивлюсь, если было какое то нестандартное чудо, в котором было четыре контроллера RK. Учитывая, что DSM - это к тому же своеобразная база данных, а где базы - там большие объёмы и требуется скорость - может DEC под что такое своеобразное и сделало такой не стандартный загрузчик. Но это только предположение.
Кстати, ещё на что обратил внимание (хотя в памяти это и так крутилось) - начальный загрузчик грузиться с адреса 0
В этом случае ничто не мешает как с остальными контроллерами использовать прописанный в загрузчике. Или если уж передавать, то использовать переданное (а не часть битов).Цитата:
Сообщение от Hunta
Ну может там какое то извращение было задумано :) В общем, сейчас, когда с авторами не связаться... уже и не скажешь...
..
Как выяснилось - загрузчик DSM-11 берёт номер загружаемого привода RK из R0, а не из RKDA, поэтому минимальный загрузчик, способный загрузить с RK0 любую ОС DEC, выглядит так:
Код:MOV (PC), R2 ; READ COMMAND
RESET ; SET UNIT 0 ; BLOCK 0 ; ADDR 0
MOV #177400, R1 ; WORD COUNT
MOV #177406, R3 ; RKWC
MOV R1, (R3) ; SET WORD COUNT
MOV R2,-(R3) ; READ BOOT
TSTB (R3) ; WAIT FOR READY
BPL .-2.
CLR R0 ; BOOT UNIT
CLR PC ; BOOT
Что вроде бы тоже как стандарт DEС, ЕМНИПЦитата:
Сообщение от Patron
Да, но сам DEC как правило не использует.Цитата:
Сообщение от Hunta
Ровно на одно слово короче с полным сохранением результата ;)Цитата:
Сообщение от Patron
Код:MOV @PC,R2
RESET
MOV #177410,R3
COMB -(R3)
MOVB -(R3),R0
MOV @R3,R1
MOV R2,-(R3)
TSTB @R3
BPL .-2
CLR PC