Контроллер НМЛ СМ5300.01

[Andrey_Ak]

@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
@

[Advertiser]

[Patron]

Лень пока программу править - лучше прервать и затем запустить с адреса 01044 ( 1044G ) - тогда программа пойдёт дальше.

[Andrey_Ak]

@1044G 001114
@176730/000040
176732/000066
176734/

---------- Post added at 00:16 ---------- Previous post was at 00:08 ----------

Ладненько, завтра с утра еще попробую...

[Patron]

Вот новый вариант, который не должен зависать:

	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

Программа подаёт коды 033407 + 02 в регистр 176730, читает байты данных из регистра 176732 ( в буфер по адресу 020000 ) и возвращает число прочитанных байт в регистре R0.

[Andrey_Ak]

@1000G 001114
Ничего не прочиталось...
@R0/000000
@1110/005200
001112/000000

---------- Post added at 08:17 ---------- Previous post was at 08:17 ----------

Возможно требуется ввести задержки...

[Patron]

Нужно программно воспроизвести те обращения к регистрам контроллера, которые происходят при работе драйвера из ПЗУ ( и при запуске чтения ленты в "ручном режиме" ).

...

Сейчас я добавил в эмуляцию регистров контроллера появление в регистре 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

При любых "нештатных" ситуациях происходит останов.


В эмуляторе эта программа читает данные с ленты так же успешно, как и драйвер из ПЗУ.

[Andrey_Ak]

Сегодня вечером обязательно попробую..

[Patron]

Кстати, не обязательно вбивать коды руками.

Можно скомпилировать программу ассемблером и запускать из-под 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

[Andrey_Ak]

А как я под RT11 посмотрю дамп памяти?
Кстати, я использую вместо терминала ПиСи,
как бы сделать чтоб коды вводились автоматически?
там можно послать текстовый файл, но я не могу в
этом файле ввести код ПС и ВК

[Patron]

По завершении - программа выполняет команду Halt и вываливается в пульт для просмотра результатов.

...

как бы сделать чтоб коды вводились автоматически?
там можно послать текстовый файл, но я не могу в
этом файле ввести код ПС и ВК

Смысл этих слов до меня не дошёл.

Желательно иметь более подробное описание проблемы.