Вид для печати
@1000G 001036
@176730/000050
@
---------- Post added at 00:03 ---------- Previous post was at 00:01 ----------
После открытия регистра 176730 и 176732 в 176730 снова 40
@1000G 001042
@176730/000050
176732/000066
176734/
BUS ERROR
@176730/000040
176732/000066
176734/
BUS ERROR
@
Лень пока программу править - лучше прервать и затем запустить с адреса 01044 ( 1044G ) - тогда программа пойдёт дальше.
@1044G 001114
@176730/000040
176732/000066
176734/
---------- Post added at 00:16 ---------- Previous post was at 00:08 ----------
Ладненько, завтра с утра еще попробую...
Вот новый вариант, который не должен зависать:
Программа подаёт коды 033407 + 02 в регистр 176730, читает байты данных из регистра 176732 ( в буфер по адресу 020000 ) и возвращает число прочитанных байт в регистре R0.Код:005000 Clr R0
012701 Mov #Buffer, R1
020000
012702 Mov #TPS, R2
176730
012703 Mov #TPD, R3
176732
032712 BiT #40, (R2)
000040
001001 BNE 1$
000005 Reset
1$:
012713 Mov #33407, (R3)
033407
012712 Mov #1, (R2)
000001
2$:
032712 BiT #40, (R2)
000040
001775 BEq 2$
005713 Tst (R3)
012713 Mov #2, (R3)
000002
012712 Mov #1, (R2)
000001
4$:
032712 BiT #40, (R2)
000040
001006 BNE 3$
032712 BiT #10, (R2)
000010
001772 BEq 4$
111321 MovB (R3), (R1)+
005200 Inc R0
000767 Br 4$
3$:
032712 BiT #10, (R2)
000010
001402 BEq 5$
111321 MovB (R3), (R1)+
005200 Inc R0
5$:
000000 Halt
@1000G 001114
Ничего не прочиталось...
@R0/000000
@1110/005200
001112/000000
---------- Post added at 08:17 ---------- Previous post was at 08:17 ----------
Возможно требуется ввести задержки...
Нужно программно воспроизвести те обращения к регистрам контроллера, которые происходят при работе драйвера из ПЗУ ( и при запуске чтения ленты в "ручном режиме" ).
...
Сейчас я добавил в эмуляцию регистров контроллера появление в регистре 176732 данных с ленты, выполнил команду SHW/IST:TP и получил на экране имеенно те байты, которые показывал в регистре 176732. После завершения дампа блока ( когда я показал в регистре 176730 не 014, а 044 ) - драйвер повторил процедуру чтения, снова подав коды 033407 + 02.
Получается, что команда SHW/IST:TP - последовательно выводит дамп всех блоков ленты ( причём, на экране содержимое отдельных блоков никак не разделяется ).
Такие команды использовал драйвер из ПЗУ для чтения блока ленты:
Вариант "нашей" программы, доработанный для лучшего соответствия коду ПЗУ:Код:BiT #40, @#176730
BNE Ready
BiS #20, @#176730
1$:
BiT #40, @#176730
BEq 1$
Ready:
Mov #33407, @#176732
Mov #1, @#176730
2$:
BiT #40, @#176730
BEq 2$
BiT #10, @#176730
BEq OK
MovB @#176732, R4
BPl Error
ASR R4
BCS Abort
OK:
Mov #2, @#176732
Mov #1, @#176730
3$:
BiT #60, @#176730
BNE Done
BiT #10, @#176730
BEQ 3$
MovB @#176732, (R1)+
Inc R0
Br 3$
Done:
При любых "нештатных" ситуациях происходит останов.Код:005000 Clr R0
012701 Mov #Buffer, R1
020000
012702 Mov #TPS, R2
176730
012703 Mov #TPD, R3
176732
032712 BiT #40, (R2)
000040
001001 BNE 1$
000000 Halt
1$:
012713 Mov #33407, (R3)
033407
012712 Mov #1, (R2)
000001
2$:
032712 BiT #40, (R2)
000040
001775 BEq 2$
032712 BiT #10, (R2)
000010
001406 BEq 7$
111304 MovB (R3), R4
100401 BMi 6$
000000 Halt
6$:
006204 ASR R4
103001 BCC 7$
000000 Halt
7$:
012713 Mov #2, (R3)
000002
012712 Mov #1, (R2)
000001
4$:
032712 BiT #60, (R2)
000060
001006 BNE 3$
032712 BiT #10, (R2)
000010
001772 BEq 4$
111321 MovB (R3), (R1)+
005200 Inc R0
000767 Br 4$
3$:
000000 Halt
В эмуляторе эта программа читает данные с ленты так же успешно, как и драйвер из ПЗУ.
Сегодня вечером обязательно попробую.. :)
Кстати, не обязательно вбивать коды руками.
Можно скомпилировать программу ассемблером и запускать из-под RT-11.
Вот готовый для компиляции вариант - файл TP.MAC ( компилируется и запускается командой EX TP ):
Код:
.NList SEQ, LOC
TPS =: 176730
TPD =: 176732
Buffer =: 20000
Start:
Clr R0
Mov #Buffer, R1
Mov #TPS, R2
Mov #TPD, R3
BiT #40, (R2)
BNE 1$
Halt
1$:
Mov #33407, (R3)
Mov #1, (R2)
2$:
BiT #40, (R2)
BEq 2$
BiT #10, (R2)
BEq 7$
MovB (R3), R4
BMi 6$
Halt
6$:
ASR R4
BCC 7$
Halt
7$:
Mov #2, (R3)
Mov #1, (R2)
4$:
BiT #60, (R2)
BNE 3$
BiT #10, (R2)
BEq 4$
MovB (R3), (R1)+
Inc R0
Br 4$
3$:
Halt
.End Start
А как я под RT11 посмотрю дамп памяти?
Кстати, я использую вместо терминала ПиСи,
как бы сделать чтоб коды вводились автоматически?
там можно послать текстовый файл, но я не могу в
этом файле ввести код ПС и ВК
По завершении - программа выполняет команду Halt и вываливается в пульт для просмотра результатов.
...
Смысл этих слов до меня не дошёл.Цитата:
как бы сделать чтоб коды вводились автоматически?
там можно послать текстовый файл, но я не могу в
этом файле ввести код ПС и ВК
Желательно иметь более подробное описание проблемы.