Вид для печати
Видимо RESET (выполняемый командой S перед запуском) заставляет консоль BREAKнуть, а PCшный порт на это плюется содержимым своего FIFO (даже если он его уже отправил [у меня так во всяком случае на USBшном порту]), а тем временем загрузчик уже начинает что-то слать, и оно или теряется или превращается в кашу...Цитата:
Сообщение от BYTEMAN
Поскольку планшет уже почти сел а зарядку оставил на квартире, то на сегодня наверное все. Продолжу в субботу после работы :)
- - - Добавлено - - -
form, но ведь ioscan набранный с терминала не работал тоже при запуске через s...
Похоже на ANSI ленту, записанную не в RT-11, возможно с длинными именами.Цитата:
Сообщение от BYTEMAN
https://goo.gl/photos/3hJesZrnyPMd6A6W6
- - - Добавлено - - -
form, программа при своей работе перезаписала строчку, т.е. там было первое число около 4 тысяч но потом оно поменялось...
- - - Добавлено - - -
могла лента в рсыкс писаться? при загрузке с нее this not hardware bootable blablabla
Видимо та же проблема - он начинает выводить, а порт еще реагирует на BREAK. Код который я добавил выше просто вставил задержку перед началом выполнения загрузчика.Цитата:
Сообщение от BYTEMAN
- - - Добавлено - - -
Это именно в RSX такой псевдо-загрузчик. RTшный (на ленте его впрочем не бывает) пишет ?BOOT-U-No boot on volume или что-то в этом роде...Цитата:
Сообщение от BYTEMAN
Я так понял, СМка зависла т.к. лента дальше чистая а маркер eot отсутствовал?
Это штатная ситуация. Драйвер может вернуть три варианта EOF:Цитата:
Сообщение от BYTEMAN
- только EOF
- EOF+EOT
- только EOT (лента кончилась)
У меня MU ни разу не возвращал иного статуса кроме EOF, после нескольких тестов выяснилось, что EOT отмечается двумя EOFами подряд, всего EOF+EOT выглядит как 3 EOFа. Если позволить читать дальше - у меня начинает сыпать ошибками с кодом 0 - No additional information (consult documentation for your
particular tape drive for all possible error conditions).
А то, что вылетает - или ошибка в драйвере или вредное влияние большого драйвера SL в SB мониторе (обнаружилось такое недавно). На всякий случай стоит сделать SET SL OFF перед тестированием.
Понял, спасибо! В субботу попробую еще разок с отключением sl
- - - Добавлено - - -
К слову, сегодня перевел порт на 19200 - теперь летаем) Как сделаю загрузочную дискетку, разведу терминал и данные отдельно.
Надо доделать, у меня тоже парочка лент не считалась.. И вывод сообщения на каком блоке сбой..Цитата:
Сообщение от form
ну так ждем результатов анализа программой выше битых лент. У себя тоже попробуй на том усложненно-упрощенном MT.Цитата:
Сообщение от Andrey_Ak
Да, на выходных попробую... Думаю еще набраться сил, и достать стандартный контроллер МТ,Цитата:
Сообщение от form
и пробовать делать одни и те-же операции на стандартном и не стандартном..
.
Тестовая программа: TSTDX_v1.0 - предназначена для определения реальной скорости работы привода при инициализации и чтении секторов:
Код:.RU TSTDX
TSTDX - v1.0
1 sec 00001:20798
INIT 00000:10084 CSR/000040 ; SR/000204 ; ER/000000
Read SR 00000:20763 CSR/000040 ; SR/000200 ; ER/000000
Read 0:01
TR Sector 00000:00000
TR Track 00000:00000
Read Done 00000:09366
Read 0:03
TR Sector 00000:00000
TR Track 00000:00000
Read Done 00000:00432
Read 0:05
TR Sector 00000:00000
TR Track 00000:00000
Read Done 00000:00430 CSR/000040 ; SR/000000 ; ER/000000
Program completed.
.
Есть смысл запускать дважды - первый раз с рабочим диском в приводе 0, второй раз - с неформатированным диском в приводе 0.
Результат на форматированном диске:
На неформатированном:Код:
.RU TSTDX
TSTDX - v1.0
1 sec 00001:53774
INIT 00000:49288 CSR/000040 ; SR/000004 ; ER/000000
Read SR 00000:21230 CSR/000040 ; SR/000000 ; ER/000000
Read 0:01
TR Sector 00000:00004
TR Track 00000:00004
Read Done 00000:03819
Read 0:03
TR Sector 00000:00004
TR Track 00000:00004
Read Done 00000:01438
Read 0:05
TR Sector 00000:00000
TR Track 00000:00000
Read Done 00000:00000 CSR/000040 ; SR/000000 ; ER/000000
Program completed.
Без диска:Код:.RU TSTDXTSTDX - v1.0
1 sec 00001:53755
INIT 00000:49288 CSR/000040 ; SR/000004 ; ER/000000
Read SR 00000:21231 CSR/000040 ; SR/000000 ; ER/000000
Read 0:01
TR Sector 00000:00004
TR Track 00000:00004
Read Done 00000:01632 CSR/100040 ; SR/000000 ; ER/000120
Program completed.
- - - Добавлено - - -Код:.RU TSTDXTSTDX - v1.0
1 sec 00001:53713
INIT 00000:28187 CSR/000040 ; SR/000004 ; ER/000120
Read SR 00000:00503 CSR/000040 ; SR/000000 ; ER/000120
Read 0:01
TR Sector 00000:00004
TR Track 00000:00004
Read Done 00000:01513 CSR/100040 ; SR/000000 ; ER/000120
Program completed.
Жесть как медленно через hx сливается лента... Чуть дернется и стоит... Дернется и стоит... Жаль что ИРПС в СМке максимум 19200 держит... :(
Кстати тоже думал об этом. Через LPT должно быть быстрее.Цитата:
Сообщение от BYTEMAN
Уже понятно, где ругается COPYDX :Цитата:
Сообщение от BYTEMAN
Код:ResetDX:
Mov #CSINIT, @$SReg
Mov #100., R1
Call WaitDX
BCS LRet
BiT #ESID, @$DReg
BEq NtRd
Mov #C.RDST, R0 ; R0 = Чтение регистра состояния.
BiS $Drive, R0 ; Учесть номер привода.
Mov R0, @$SReg
4$:
Mov #32., R1
Call WaitDX
BCS LRet
BiT #ESDRY, @$DReg
;; BEq NtRd ; Это убрать
LRet:
Return
Остальное можно оставить, как в оригинале.
LPT не позволяет в две стороны общаться.Цитата:
Сообщение от MiX
Позволяют. Даже ранние могут 8 туда по 4м служебным обратно.Цитата:
Сообщение от form
Не позволяют. Это не PC и не УКНЦ :)Цитата:
Сообщение от MiX
.
Похоже, что признак готовности в регистре данных DX сбрасывается при любом обращении к регистру статуса.
Для проверки этого предположения - исправленная версия теста: TSTDX_v1.1
Запускать есть смысл только с рабочим диском в приводе 0 - для остальных вариантов разницы результатов с предыдущей версией TSTDX быть не может.
http://s020.radikal.ru/i720/1602/eb/1b9ae54b1c8c.jpgЦитата:
Сообщение от form
LPT как бы в РС находится. Или что имеется ввиду? ИРПР?Цитата:
Сообщение от form
Поскольку речь шла про медленность HX, и в ответ было сказано про LPT который быстрее, я сделал вывод, что предлагается использовать соединение LPT с принтерным портом CM1420. Но LP11 это далеко не PCшный LPT. Теоретически у стандартного LPV11 (про LP11 не знаю, но вероятно также) есть три бита которые можно вернуть (их четыре, но два мешают друг другу), но поскольку DEC их не использует в принципе (что задокументировано), не факт, что их обязательно везде реализуют. И фактически гарантированно остается один бит на вход (вернее те самых два из которых один запрещает другой).Цитата:
Сообщение от MiX
- - - Добавлено - - -
Ведь про соедниение двух PC таким способом нет смысла говорить - это давно сделано многочислеными вариантами, в том числе в виде сетевого интерфейса на принтерном порту :)
В свое время была мысль УКНЦ так у DOSовскому INTERSRV или как там его - не помню уже - прицепить...
Цитата:
Сообщение от Patron
два запуска подряд
Код:TSTDX - v1.1
1 sec 00001:53744
INIT 00000:50481 CSR/000040 ; SR/000004 ; ER/000020
Read SR 00000:21229 CSR/000040 ; SR/000000 ; ER/000020
Read 0:01
TR Sector 00000:00004
TR Track 00000:00004
Read Done 00000:18422
Read 0:03
TR Sector 00000:00004
TR Track 00000:00004
Read Done 00000:01412
Read 0:05
TR Sector 00000:00004
TR Track 00000:00004
Read Done 00000:00981 CSR/000040 ; SR/000000 ; ER/000000
Program completed.
Код:tstdx
TSTDX - v1.1
1 sec 00001:53698
INIT 00000:49289 CSR/000040 ; SR/000004 ; ER/000000
Read SR 00000:21231 CSR/000040 ; SR/000000 ; ER/000000
Read 0:01
TR Sector 00000:00004
TR Track 00000:00004
Read Done 00000:03647
Read 0:03
TR Sector 00000:00004
TR Track 00000:00004
Read Done 00000:01432
Read 0:05
TR Sector 00000:00004
TR Track 00000:00004
Read Done 00000:00986 CSR/000040 ; SR/000000 ; ER/000000
Program completed.
СМ 5631упорно не хочет сообщать о готовности привода 0 после INIT и READ SR.Цитата:
Сообщение от BYTEMAN
С чтением ситуация полностью прояснилась. Первое чтение в тесте производится без разгрузки буфера, а второе - с разгрузкой. Видно, что разгрузка буфера занимает меньше половины имеющегося в запасе времени, поэтому чередование 2 при чтении вполне достаточно.
Значение ER/000020 после инита опционально и означает, что во втором кармане нет диска.
- - - Добавлено - - -
А программа COPYDX.SAV может скопировать образ DX из привода 0 в файл на диске HX ?
Завтра проверю, уже уехал со склада домой...
- - - Добавлено - - -
Слил ту ленту, каталог которой тут выводил вчера.
https://drive.google.com/file/d/0B6V...ew?usp=sharingКод:*HX1:MT01.TAP[-1]=MT1:?RDTAP-I-65467. block(s) allocated for tape image file
?RDTAP-I-16384. word(s) allocated for tape block buffer
?RDTAP-I-00006. file(s) read from tape
?RDTAP-I-03486. disk block(s) used
Это лента в формате BRU.Цитата:
Сообщение от BYTEMAN
Цитата:
Сообщение от BYTEMAN
Код:BRU>/REW/DIR MU:
VOL1. BTSP61 DISK1 31-JUL-90 16:13:09
VOL1. BTSP62 DISK1 31-JUL-90 16:25:30
BRU - Completed
BRU>/REW/DIR/BAC:BTSP61 MU:
VOL1. BTSP61 DISK1 31-JUL-90 16:13:09
[001,001]
BTSP61.XXX;1
BRU - Completed
BRU>/REW/DIR/BAC:BTSP62 MU:
VOL1. BTSP62 DISK1 31-JUL-90 16:25:30
[001,001]
BTSP62.XXX;1
BRU - Completed
BRU>
Как-то список файлов реально просмотреть?
Так это и есть список файлов - их всего два.Цитата:
Сообщение от BYTEMAN
- - - Добавлено - - -
[1,1]BTSP61.XXX;1
[1,1]BTSP62.XXX;1
- - - Добавлено - - -
- - - Добавлено - - -Код:>DIR
Directory DM0:[1,1]
21-FEB-16 09:06
BTSP61.XXX;1 1849. 25-JUL-90 14:33
BTSP62.XXX;1 1577. 25-JUL-90 14:53
Total of 3426./3426. blocks in 2. files
>TYP BTSP61.XXX
DOCUMENT= 1113
DT = 05
KN = B40891202375
LG = ENGL
SN = ISSN 0168-583X
YR = 89
000 3375340
002 B40891202375
010 CONFERENCE PROCEEDINGS.
100 7TH INTERNATIONAL CONFERENCE ON ION IMPLANTATION TECHNOLOGY.
MCR>ABO PIP
300 7TH INTERNATIONAL CONFERENCE ON ION IMPLANTATION TECHNOLOGY.
09:08:15 Task "PIPT2 " terminated
Aborted via directive or CLI
>TYP BTSP62.XXX
DOCUMENT= 1564
AUTH = HILAL
DT = 06
KN = B40891402584
LG = ENGL
SN = ISSN 0018-9464
YR = 89
000 3393813
002 B40891402584
010 CONFERENCE PAPER; THEORETICAL, EXPERIMENTAL.
100 MAGNETIC ADVANCED HYBRID (MAH) GUN.
200 HILAL, M.A.
MCR>ABO PIP
220 APPL. SUPERCONDUCTIVITY CENTER, WISCONSIN UNIV., MADISON, WI, USA
09:08:41 Task "PIPT2 " terminated
Aborted via directive or CLI
>
Выложил сюда.
А мне показалось при просмотре сырого дампа, что там еще тексты про rsx на русском есть...
Весьма сомнительно, но в любом случае без информации (например вижу вот это) нечего проверять :)Цитата:
Сообщение от BYTEMAN
Теоретически возможна лента на которой кончился один формат и начался другой и даже без каких-либо кривых ситуаций вроде моей старой ленты где посреди ленты был логический EOT, а после него еще информация (rdtap впрочем такую ленту не прочитает дальше логического EOT).
Похоже, что отсутствие сигнала готовности от нулевого привода СМ 5631 и зависание микропрограммы форматирования связаны друг с другом. Первый привод выдаёт сигнал готовности и его форматировать контроллер пытается, а при форматировании нулевого привода контроллер до бесконечности ждёт готовности.
Контроллер определяет готовность привода по форме сигнала INDEX.
Тогда получается, что чтение и запись в СМ 5631 начало дорожки по сигналу INDEX не проверяют - ведь им достаточно сигнала разметки, а при форматировании надо ждать начало дорожки по INDEX. Весьма вероятно, что у нулевого привода этот сигнал неисправен.
http://pic.pdp-11.ru/images/rx01.png
- - - Добавлено - - -
Кстати, судя по интерфейсу между внутренним контроллером привода и блоком механики - в качестве блока механики RX01 / СМ 5631 может выступать любой дисковод - хоть 3" в режиме 720К, хоть даже эмулятор дисковода на SD карте.
Про индекс вполне вероятно, мб перебито что где на кабеле, а может и сам карман неисправен...Цитата:
Сообщение от Patron
Про ту ленту - гляньте плз тупо в текстовом просмотрщике, там много оказывается еще чего записано...
Код:
sistema programmirowaniq na "C". DECUS
sodervanie
kompilqtor & biblioteka
sprawo~noe rukowodstwo
1. wwedenie............................................ 6
awtor: martin minou 2. standartnaq biblioteka.............................. 7
redaktory: robert b. denni
2.1. wwedenie w potoki tipa UNIX...................... 8
2.2. otkrytie i zakrytie fajlow....................... 8
2.3. ~tenie dannyh iz fajla........................... 9
2.4. zapisx dannyh w fajl............................. 10
2.5. wzaimodejstwie s operacionnoj sistemoj........... 11
2.6. logi~eskie nomera ustrojstw...................... 11
2.7. gruppowye operacii s fajlami..................... 12
|tot dokument opisywaet biblioteku ispolnq`}ej sistemy 2.8. wydelenie pamqti................................. 13
qzyka "s" DECUS dlq operacionnyh sistem RSX/VMS/RSTS/RT11. 2.9. globalxnye simwoly............................... 13
on takve sodervit wse wnutrennie funkcii i ime`}u`sq infor-
maci`. 3. sluvebnaq informaciq................................ 14
3.1. kompilqtor....................................... 14
3.2. biblioteka ispolnq`}ej sistemy "C"............... 17
gruppa po strukturirowannym qzykam, DECUS 3.3. biblioteka interfejsa s RSTS/E................... 17
wersiq ot 6 noqbrq 1980 goda 3.4. ras{irennaq biblioteka RSX-11.................... 17
3.5. ras{irennaq biblioteka RT-11..................... 18
3.6. instrumenty i igru{ki............................ 18
3.7. polu~enie dokumentacii........................... 19
4. wnutrennqq informaciq kompilqtora................... 20
4.1. format fajla promevuto~nogo koda................. 20
4.2. kodogenerator.................................... 23
4.2.1. optimizaciq i raspredelenie registrow.......... 23
4.2.2. generator koda................................. 24
4.2.3. makrosy, ispolxzuemye pri kodogeneracii........ 25
4.3. poddervka ras{irennoj apparatury................. 27
5. opisanie bibliote~nyh funkcij....................... 28
5.1. preobrazowanie iz RADIX-50 w ASCII............... 28
5.2. zakrytx wse kanaly............................... 29
5.3. bezznakowoe delenie (tolxko MACRO)............... 29
5.4. preobrazowanie dwojnoj to~nosti w ASCII.......... 30
5.5. poddervka plawa`}ej zapqtoj.
slovenie/wy~itanie............................... 31
5.6. umnovenie/delenie s plawa`}ej zapqtoj............ 31
5.7. procedury poddervki plawa`}ej zapqtoj............ 32
5.8. razbor komandnoj stroki.......................... 32
5.9. polu~enie znakow................................. 33
5.10. odnorazowyj kod inicializacii.................... 34
5.11. preobrazowanie LONG w ASCII...................... 36
5.12. na~alo raboty programmy na "C"................... 36
Код:- 2 -
1. wwedenie
dannyj dokument qwlqetsq wwedeniem w qzyk programmiro-
m_a_r_T_i_n m_i_n_O_u waniq "C".
q_z_y_K "C" "C" qwlqetsq uniwersalxnym qzykom programmirowaniq. on
tesno swqzan s operacionnoj sistemoj UNIX, tak kak byl raz-
rabotan na |toj sisteme i tak kak UNIX i ee programmnoe
obespe~enie napisano na "C". sam qzyk, odnako, ne swqzan s
kakoj-libo operacionnoj sistemoj ili ma{inoj; i hotq ego
nazywa`t qzykom sistemnogo programmirowaniq, tak kak on
udoben dlq napisaniq operacionnyh sistem, on s rawnym uspe-
hom ispolxzowalsq pri napisanii bolx{ih wy~islitelxnyh
programm, programm dlq obrabotki tekstow i baz dannyh."
"qzyk "C" - |to qzyk otnositelxno nizkogo urownq. w
takoj harakteristike net ni~ego oskorbitelxnogo; |to prosto
ozna~aet, ~to "C" imeet delo s ob'ektami togo ve wida, ~to
i bolx{instwo |wm, a imenno, s simwolami (znakami), ~islami
i adresami. oni mogut ob'edinqtxsq ili peresylatxsq pos-
redstwom oby~nyh arifmeti~eskih i logi~eskih operacij, osu-
}estwlqemyh realxnymi |wm".
"w qzyke "C" otsutstwu`t operacii, ime`}ie delo nepos-
redstwenno s sostawnymi ob'ektami, takimi kak stroki simwo-
low, mnovestwa, spiski ili massiwy, rassmatriwaemymi kak
edinoe celoe. zdesx, naprimer, net nikakogo analoga opera-
ciqm PL/1, operiru`}im celymi massiwami i strokami. qzyk ne
predostawlqet nikakih drugih wozmovnostej raspredeleniq
pamqti, krome stati~eskogo opredeleniq i mehanizma stekow,
obespe~iwaemogo lokalxnymi peremennymi funkcij: zdesx net
ni "ku~" (HEAP), ni "s borki musora", kak |to obespe~iwaetsq
w algole-68. napomnim, ~to sam po sebe "C" ne obespe~iwaet
nikakih wozmovnostej wwoda/wywoda: zdesx net operatorow
READ ili WRITE i nikakih wstroennyh metodow dostupa k faj-
lam. wse |ti mehanizmy wysokogo urownq dolvny obespe~iwatx-
sq qwno wyzywaemymi funkciqmi."
"analogi~no, qzyk "C" predlagaet tolxko prostye, pos-
ledowatelxnye konstrukcii potokow uprawleniq: prowerki,
cikly, gruppirowanie i podprogrammy, no ne mulxtiprogrammi-
rowanie, parallelxnye operacii, sinhronizaci` ili soprog-
rammy."
"... udervanie qzyka w skromnyh razmerah daet realxnye
preimu}estwa. tak kak "C" otnositelxno mal, on ne trebuet
mnogo mesta dlq swoego opisaniq i movet bytx bystro wyu~en.
kompilqtor "C" movet bytx prostym i kompaktnym. krome togo,
kompilqtory legko pi{utsq; pri ispolxzowanii sowremennoj
tehnologii movno ovidatx napisanie kompilqtora dlq nowoj
|wm za paru mesqcew i pri |tom okavetsq, ~to 80% programmy
nowogo kompilqtora budet ob}ej s programmoj uve su}estwu`-
}ih kompilqtorow. |to obespe~iwaet wysoku` stepenx mobilx-
nosti qzyka."
Код:Input file ? **** GC V.01 **** R NOT FOUND INPUT FILE
Output file ? W I/O ERROR OUT.FILE
M00 : { IF( )
{ ;
;GOTO MK0 %2d
;}
ELSE { ;
FOR( )
{ } {
} {
; GOTO M00 %d 2%d ;}
; GOTO M00 %d ;}
%2d ;}
;} ;}
ELSE { PRINTF("KOMPLEX-ERROR IN %s " );
EXIT() %d %2d %3d ; GOTO MK0 %2d ;}
;}
;}
MK0 %2d : IF( $$narg = 1;
static char *daynames[] {
"woskresenxe", /* Sunday is day zero */
"ponedelxnik",
"wtornik",
"sreda",
"~etwerg",
"pqtnica",
"subbota",
};
static char *monthnames[] {
"?Nomember?", /* Illegal month */
"qnwarq",
"fewralq",
"marta",
"aprelq",
"maq",
"i`nq",
"i`lq",
"awgusta",
"sentqbrq",
"oktqbrq",
"noqbrq",
"dekabrq",
};
extern char *rtime();
main()
{
int day;
int month;
int year;
struct time{
int year;
int month;
int day;
int hour;
int minute;
int second;
int tick;
int tsec;
} tm;
rtime( &tm );
year = tm.year+1900;
month = tm.month;
day = tm.day;
printf("\016\nsegodnq ");
printf("%2u",day);
printf(" ");
printf(monthnames[month]);
printf(" ");
printf("%4u",year);
printf(" goda, ");
printf(daynames[ dayofweek(year,month,day)]);
printf(".\017\n");
}
dayofweek(year, month, day)
int year; /* Year, 1978 = 1978 */
int month; /* Month, January = 1 */
int day; /* Day of month, 1 = 1 */
/*
* Return the day of the week on which this date falls: Sunday = 0.
* Note, this routine is valid only for the Gregorian calender.
*/
{
register int yearfactor;
yearfactor = year + (month - 14)/12;
return (( (13 * (month + 10 - (month + 10)/13*12) - 1)/5
+ day + 77 + 5 * (yearfactor % 100)/4
+ yearfactor / 400
- yearfactor / 100 * 2) % 7);
}
Эта информация не оформлена по правилам TAP-образа SIMH, поэтому весьма похоже, что это мусор, находившийся в файле MTDUMP01.DSK до того, как туда был записан дамп ленты.Цитата:
Сообщение от BYTEMAN
Вот почему полезно иметь в резерве идеально чистую болванку и перед дампом каждой новой ленты подключать в привод HX копию именно этого чистого образа.
Patron, елки-палки... А init чистку не делает? :(
.
Вот ссылка на пустой образ для использования при копировании лент: ZERO32.DSK
- - - Добавлено - - -
Не только не делает, но даже и позволяет вернуть всё как было до INIT ( при помощи команды INIT/RESTORE ).Цитата:
Сообщение от BYTEMAN
Получается что INIT устанавливает бит статуса каталога в 0 (типа каталог чист) и при RESTORE в 1 (в каталоге есть запись). Кстати при нажатии кнопки УСТ (для процессора это INIT) в памяти тоже сохраняется запись, и далее если нажать G то благополучно возвращается в монитор.Цитата:
Сообщение от Patron
Это все дурацкое PCшное (или до-) определение форматирования все портит... Раньше было просто - форматирование - это физическая размета, инициализация - разметка под fs, а потом...Цитата:
Сообщение от Patron
Сегодня пересолью ленточку эту тогда... Хотя наверное смысла нет особого..
В PC тоже есть полное форматирование и быстрое где уже разметка сделана.Цитата:
Сообщение от form
Вопрос не в наличии факта, вопрос в названии. Исторически форматирование - это нанесение физической разметки. Разметка под FS никакого отношения к этому процессу не имеет.Цитата:
Сообщение от MiX