Всем привет. Помогите, пожалуйста, разобраться в моей ошибке. Где я ошибся. Есть ЖК-индикатор WH1602D-YYK-CTK (2х16 русскоязычный). Учился с ним работать на PIC16F84A. Работаю по 4-х проводному интерфейсу. Все работало верно и правильно. Когда понадобилось АЦП решил перейти на PIC16F676. Программу перенес на этот контроллер с поправками для него. Теперь не могу понять где моя ошибка. Почему на PIC16F84A у меня все нормально выводит, а на PIC16F676 или вообще ничего или с 3-5 раза какую-то "кракозябру" и не на том месте где нужно. Оба контролера работают на тактовой частоте 4 МГц. Может в инициализации допускаю ошибку.
Вот пример для PIC16F84A. ЖКИ подключен к PB4-PB7
*******************************************************************************************************************
LIST p=16F84a ; Определение типа микроконтроллера.
#include<p16f84a.inc>
__CONFIG 03FF1H
#define RS PortB,2
#define E PortB,3
.......
; НАЧАЛО ОСНОВНОЙ ПРОГРАММЫ
;*********************************************************************************************************************************
START clrf INTCON ; ЗАПРЕТ ПРЕРЫВАНИЙ
;-------------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------------
clrwdt ; Сброс сторожевого таймера.
bsf Status,5 ; Перейти в 1-й банк (установить в 1 5-й бит регистра Status).
clrf TrisB ; Установить все порты на "выход".
movlw b'00011100'
movwf TrisA ; В0 - вход
movlw b'11000011'
movwf OPTION_REG ; Переключаем предделитель 1:16 к TMR0, ПОДТЯГИВАЮЩИЕ РЕЗИСТОРЫ ОТКЛЮЧЕНЫ
bcf Status,5 ; Перейти в 0-й банк (установить в 0 5-й бит регистра Status).
;==================================================================================================================================
;==============ИНИЦИАЛИЗАЦИЯ LCD(СТАНДАРТНЫЙ БЛОК)===========================
bcf RS
bcf RW
bcf E
movlw 15h ; загрузить константу задержки
call DELAY2 ; задержка на 15мс
movlw 30h ; 30h-это константа для всех режимов
movwf PortB
bsf E
NOP
bcf E
CALL delay_100mks
bsf E
NOP
bcf E
MOVLW 4h
CALL DELAY2 ;задержка вместо опроса BUSY
MOVLW 20h
CALL WRC
MOVLW 28h ;шина - 4бит, 2строки, 5х8 пикселей, 38h - 8 бит
CALL WRC
MOVLW 0Ch ;отображение - вкл, но без курсора
CALL WRC
MOVLW 06h ;автоматическое перемещение курсора слева направо
CALL WRC
MOVLW 01h ;очистить дисплей
CALL WRC
MOVLW 03h
CALL DELAY2 ;задержка вместо опроса BUSY
.....
;======================================================================
; ПОДПРОГРАММЫ ДЛЯ ВЫВОДА НА ЖКИ
;======================================================================
; Запись кода команд LCD
;----------------------------------------------------------------------
WRC BCF RS
CLRF TEM_P
BCF RW
MOVWF TEM_P
ANDLW 0F0h ; 0F0h-вывод на порты D7-D4, 1Eh-вывод на порты D4-D1
MOVWF PortB
BSF E
nop
nop
BCF E
SWAPF TEM_P,W
ANDLW 0F0h
MOVWF PortB
BSF E
nop
nop
BCF E
MOVLW 4h
CALL DELAY2 ;задержка вместо опроса BUSY
RETURN
;========================================================================
; Запись кода данных LCD
;------------------------------------------------------------------------
WRD BSF RS
CLRF TEM_P
BCF RW
MOVWF TEM_P
ANDLW 0F0h
IORLW 04h ;оставить RS=1
MOVWF PortB
BSF E
nop
nop
BCF E
SWAPF TEM_P,W
ANDLW 0F0h
IORLW 04h ;оставить RS=1
MOVWF PortB
BSF E
nop
nop
BCF E
MOVLW 4h
CALL DELAY2 ;задержка вместо опроса BUSY
BCF RS
RETURN
;========================================================================
DELAY2 MOVWF TEM_P ;задержка на W*(5/7)мс
DLOOP MOVLW 0F0h;
MOVWF R0
DECFSZ R0,F
GOTO $-1
DECFSZ TEM_P,F
GOTO DLOOP
RETURN
Все работает без проблем.
***************************************************************************************************************************
Вот пример для PIC16F676. ЖКИ подключен к PC0-PC3
=======================
include <p16f676.inc>
__CONFIG 03FF4H ;
;===============================================================================================
;Внутренний генератор частотой 4 МГц
#define RS PortC,5
#define E PortC,4
....
; НАЧАЛО ОСНОВНОЙ ПРОГРАММЫ
;*********************************************************************************************************************************
START
;-------------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------------
clrwdt ; Сброс сторожевого таймера.
bsf Status,5 ; Перейти в 1-й банк (установить в 1 5-й бит регистра Status).
MOVLW B'00000001' ;
MOVWF TrisA ; Установить все порты на "выход". РА0 на вход.
MOVLW B'00000001'
MOVWF ANSEL ; ВЫБРАН АНАЛОГОВЫЙ ВХОД
clrf TrisC ; Установить все порты на "выход"
movlw b'10000001'
movwf OPTION_REG ; Переключаем предделитель 1:128 к TMR0, ПОДТЯГИВАЮЩИЕ РЕЗИСТОРЫ отключены
clrf INTCON ; ЗАПРЕТ ПРЕРЫВАНИЙ
CLRF VRCON ; ИОН ОТКЛЮЧЕН.
CLRF PCON ; ПРЕРЫВАНИЯ ПО ПИТАНИЮ ЗАПРЕЩЕНЫ.
clrwdt ; Сброс сторожевого таймера.
clrf WPUA ; ПОДТЯГИВАЮЩИЕ РЕЗИСТОРЫ ВЫКЛЮЧЕНЫ.
clrf IOCA ; ПРЕРЫВАНИЯ РА запрещены
MOVLW B'00100000' ;
MOVWF OSCCAL ; минимальная частота
MOVLW 0FFH ; СИНХРОНИЗАЦИЯ ОТ RC
MOVWF ADCON1 ; ТАКТ АЦП ОТ ВНУТРЕННЕГО ГЕНЕРАТОРА 500 кГц.
CLRF VRCON ; ИОН ОТКЛЮЧЕН.
bcf Status,5 ; Перейти в 0-й банк (установить в 0 5-й бит регистра Status).
clrwdt ; Сброс сторожевого таймера.
CLRF PortA
CLRF PortC
CLRF T1CON ; ТАЙМЕР 1 ОТКЛЮЧЕН.
MOVLW B'00000111' ;
MOVWF CMCON ; КОМПАРАТОР ВЫКЛЮЧЕН.
....
Инициализацию ЖКИ использую как для PIC16F84A.
;======================================================================
; ПОДПРОГРАММЫ ДЛЯ ВЫВОДА НА ЖКИ
;======================================================================
; Запись кода команд LCD
;----------------------------------------------------------------------
WRC bcf RS ; запись команд
movwf TEM_P ;
swapf TEM_P,W ;
andlw B'00001111' ; обнуляем старшие разряды
movwf PortC ;
call strob ; строб
call pau1ms ; пауза
movfw TEM_P
andlw B'00001111' ; обнуляем старшие разряды
movwf PortC ;
call strob ; строб
pau1ms
movlw .255 ; пауза 1 мсек
call Psm
return
;========================================================================
; Запись кода данных LCD
;------------------------------------------------------------------------
WRD movwf TEM_P ; временное хранение
swapf TEM_P,W ; меняем местами полубайты
andlw B'00001111' ; обнуляем старшие разряды
movwf PORTC ;
bsf RS ; запись данных
call strob ; строб
call pausm ; пауза
movfw TEM_P ;
andlw B'00001111' ; обнуляем старшие разряды
movwf PORTC ;
bsf RS ; запись данных
call strob ; строб
call pausm ; пауза
return
;========================================================================
; ФОРМИРОВАНИЕ СТРОБИРУЮЩЕГО ИМПУЛЬСА.
;========================================================================
strob clrwdt
nop
bsf E ;
movlw .25
call Psm
bcf E ;
return
;========================================================================
Psm addlw -1 ;
btfss Status,Z ;
goto $-2 ;
return ;
;========================================================================
pausm
movlw .10 ;40 МКС.
addlw -1
btfss Status,Z
goto $-2
return
;=======================================================================
Вот тут не пойму, что я делаю не так и у меня либо ничего не выводит или "кракозябра". Подпрограммы подготовки данных для ЖКИ работают на 100% (тут я их не указывал).
- участник сейчас на форуме
- участник вне форума
Но не надо опускать до уровня "великих". 
Взял и сравнил нас, земляных червей, с о великим и могучим... Прошу прощения и ссори за оффтоп 
