Самостоятельное написание софта к программаторам ST-007, BiDiPro и другим

[ua4pqd]

ART_K , Можете написать модуль для К1801РР1 (bidipro) ?

[ART_K]

у меня нет необходимости в программировании данной микросхемы, кроме того она поддерживается в фирменном ПО программатора st-007..

[ua4pqd]

У меня нет st-007, только bidi ,пробовал через переходник читать 1801рр1 но модуль сырой и читается коряво, есть тема на http://zx-pk.ru/ память /по этому модулю . Программист из меня никакой ,а добить хочется .Сможете помочь доработать модуль ?

[ART_K]

дайте глянуть сырой модуль и даташит на микруху..

[ua4pqd]

дайте глянуть сырой модуль и даташит на микруху..

отправляю что у меня есть

[ART_K]

видимо нужно ждать низкого уровня на RPLY, а потом уже читать данные.. чьи исходники?

[ua4pqd]

В заголовке си-файла Автор

[ua4pqd]

Как продвигается реставрация модуля

[ART_K]

прокоментировал бросающиеся в глаза возможные ошибки, к DFN_FREAD не относятся:

		rd = bdport (PRC1);		// считывается значение пина RPLY
		bdport (PWA2 | BITTER | PIN_OE          | PIN_UPR | PIN_WRRD);
		bdport (PFORCE | PWR1 | PCIN);			//OOI
		bdport (PWA2 | BITTER | PIN_OE | PIN_CE | PIN_UPR | PIN_WRRD);

		switch (dlp-›funcode) {
		case DFN_FREAD:
//			dlp-›setbytebuf (adr, rd & 1);
			dlp-›setbytebuf (adr, rdl);
			dlp-›setbytebuf (adr+1, rdh);
			break;
		case DFN_FCOMPARE:
			if (dlp-›getbytebuf (adr) != rd) {	// непонятно зачем сравнивать RPLY с байтом данных
				dlp-›setbmark (adr, 1);		// видимо не доработаное место
				errors++;
			}
			break;
		case DFN_FBLANK:
			if (rd != 0xff) {		// аналогично
				dlp-›adr = adr;
				power_off ();
				return ERC_BLANK;

пробуйте изменять значение "dlp-›mcsdelay (10L)", возможно необходимо добавить задержки в определенных местах и потом можно проверять в железе, надеюсь у вас есть микросхема..

[ART_K]

еще один момент:

bdport (PFORCE | PWR1 | PCIN);		// DD1:OOI

PFORCE нет необходимости употреблять совместно с PWR1(PWR2), там запись идет без предварительной проверки, вот часть кода драйвера:

swrA1:	  ;9 - запись А1
swrB1:	  ;D - запись В1
swrC1:	  ;1 - запись С1
swrA2:	  ;B - запись А2
swrB2:	  ;F - запись В2
swrC2:	  ;3 - запись С2
swrIR:	  ;6 - запись ИР22
	add bx,rgdtbl-psubtbl  ; указатель на rgdtbl
	test	 ah,80h       ; проверка старшего бита
	jnz	 flwr	      ; если бит 7(PFORCE) установлен, то запись без проверки
	cmp	 byte ptr cs:[bx],al
	jz	 portret      ; если байт не меняется то выйти без записи
flwr:	mov	 byte ptr cs:[bx],al   ; сохранить новое значение

writerg:
	mov	 dx,cs:_portaddr	; базовый адрес LPT
	out	 dx,al		; out data
	inc	 dx
	inc	 dx
	mov	 al,ah
	and	 al,0dfh	;ArAnd С5- в ноль -› запись
	out	 dx,al		; out control
	and	 al,0Ch 	; сбросить все биты кроме адресных
	out	 dx,al
	ret

swrP1:	  ;5 - запись Р1 (PWR1)
	mov	 byte ptr cs:rgdP1,al
	mov	 byte ptr cs:rgdA1,0
	mov	 byte ptr cs:rgdB1,0
	mov	 byte ptr cs:rgdC1,0
	jmp	 writerg
swrP2:	  ;7 - запись Р2 (PWR2)
	mov	 byte ptr cs:rgdP2,al
	mov	 byte ptr cs:rgdA2,0
	mov	 byte ptr cs:rgdB2,0
	mov	 byte ptr cs:rgdC2,0
	jmp	 writerg