Изучать асемблер начал недавно, решил разобраться в исрользовании LCD 1602 для начала, текст выводить научился по примерам из исходников но не могу понять одного, например подключен LCD к порту B 0,1,2,3 PIC16F84A, а нужно подключить к B 4,5,6,7. Не могу понять как определяются биты порта к которым подключен дисплей С восьми битным интерфейсом всё понятно, использовать весь порт и всё. Спойлер;;;;;;;;;;Проба работы в 4 битном режиме;;;;;;;;;;;;; ; LCD: D0-D7 подключены к RB0-RB7 ; E - RA3, RS - RA2, R/W - GND ;========== LIST P=16F84A __CONFIG _XT_OSC & _CP_OFF & _PWRTE_OFF & _WDT_OFF include P16F84A.inc ;==========
;banksel PORTB bcf RS ; commands so RS bit set low movlw b'00010000' ; must be more than 15ms call delay_short ;banksel PORTB movlw 0x03 ; send first high nibble movwf LCD_PORT call Nibble movlw D'6' ; must be more than 4.1ms call delay_short ;banksel PORTB movlw 0x03 ; send second high nibble movwf LCD_PORT call Nibble movlw D'1' ; must be more than 100us call delay_short ;banksel PORTB movlw 0x03 ; send third high nibble movwf LCD_PORT call Nibble movlw D'5' ; must be more than 5ms call delay_short
;banksel PORTB movlw 0x02 ; set 4 bit mode movwf LCD_PORT call Nibble movlw 0x28 ; function set: 4 bit, 2 lines, 5 x 7 font call LCD_Cmd movlw 0x08 ; display switch: D = 0, C = 0, B = 0 call LCD_Cmd call LCD_Clear movlw 0x0C ; display switch: D = 1, C = 0, B = 0 call LCD_Cmd
LCD_Cmd movwf tempLCD ; move contents of w into tempLCD swapf tempLCD,w ; swap contents of tempLCD put result in w andlw 0x0f ; select high nibble movwf LCD_PORT bcf RS ; RS set low due to instruction write call Nibble movlw D'1' call delay_short
movfw tempLCD ; move contents of tempLCD into w andlw 0x0f ; select low nibble movwf LCD_PORT bcf RS ; RS set low due to instruction write call Nibble movlw D'1' call delay_short
return
;========== ; LCD Write
LCD_Write movwf tempLCD ; move contents of w into tempLCD swapf tempLCD,w ; поменять местами содержимое tempLCD положить результат в w andlw 0xf ; Выбрать старший полубайт movwf LCD_PORT ; Записать в порт bsf RS ; RS set high due to instruction write call Nibble movlw D'1' call delay_short movfw tempLCD ; move contents of tempLCD into w andlw 0xf ; select low nibble movwf LCD_PORT bsf RS ; RS set high due to instruction write call Nibble movlw D'5' ; vary this delay to control writing speed call delay_long return
;========= ; Send nibble - toggle E pin
Nibble bsf E ; E set high movlw D'1' call delay_short bcf E ; E set low movlw D'2' call delay_short
вот ковырял тут "andlw 0x0f ; select high nibble" но что то не получилось, Сейчас ещё разок попробую я так понимаю нужно на "andlw 0xF0" заменить, что то не работает
Добавлено after 49 minutes 21 second: andlw 0xf0 ; Выделяем старший полубайт movwf TEMP ; Помещаем старший полубайт во временныую переменную TEMP movfw LCD_PORT ; Считали данные с порта данных LCD andlw 0x0f ; Маскируем разряды, не относящиеся к LCD iorwf TEMP, w ; Объединяем значащие полубайты movwf LCD_PORT ; Записываем новое значение в порт данных LCD bsf E bcf E ; Strobe out the LCD Data movlw 0xD0 ; Задержка на 250 uS !!!!!!!!!!!!!!!! movwf DCnt
Открыта удобная площадка с выгодными ценами, поставляющая весь ассортимент продукции, производимой компанией MEAN WELL – от завоевавших популярность и известных на рынке изделий до новинок. MEAN WELL.Market предоставляет гарантийную и сервисную поддержку, удобный подбор продукции, оперативную доставку по России.
На сайте интернет-магазина посетители смогут найти обзоры, интересные статьи о применении, максимальный объем технических сведений.
вот этот исходник то что мне нужно, но хотелось бы разобраться. Кстати тоже не могу поменять биты порта. Спойлерlist p=16f84A ; list directive to define proces #include <p16f84A.inc> ; processor specific variable
endc ;Define Information #DEFINE RS PORTA, 0 ; RC4 is RS line of LCD #DEFINE E PORTA, 1 ; RC5 is E line of LCD ; RB0-RB3 are D4-D7 of LCD ;************************************************************ ; LCD Module commands ;************************************************************ #define DISP_ON 0x0C ; Display on #define CLR_DISP 0x01 ; Clear the Display (команда требует задержки на 5 mS) #define ENTRY_INC 0x06 ; #define LINE1 0x80 ; Начало первой линии #define LINE2 0xC0 ; Начало второй линии #define LCD_DATA PORTB ;*********************************************************** org 0x00 ; goto INIT ; ;********************* Обработчик прерываний *************** org 0x04 ; interrupt vector goto INTERRUPT ;************************ЗДЕСЬ ТАБЛИЦЫ,ПОДПРОГРАММЫ И Т.Д.** ;*********************************************************** ;*************************************************************************; ; Initialize the LCD ; ;*************************************************************************; InitLCD: call Delay40ms ; Wait 40 msecs before Reset bcf RS ; send an 8 bit instruction movlw 0x30 ; Reset Command call NybbleOut ; Send the Nybble call Delay5ms ; Wait 5 msecs before Sending Again movlw 0x30 call NybbleOut ; Send the Nybble call Delay5ms movlw 0x30 call NybbleOut ; Send the Nybble call Delay5ms movlw 0x20 ; Set 4 Bit Mode !!! call NybbleOut ;--- Задержка на 250 uS --- movlw 0xD0 movwf DCnt DLoopIL: decfsz DCnt, f goto DLoopIL ;---------- movlw b'00101000' ;0x28 ; 4 bit, 2 Линии, 5x7 Точек call SendINS movlw b'00010000' ;0x10 ; display shift off call SendINS movlw CLR_DISP ; Clear the Display RAM call SendINS call Delay5ms ; Wait 5 msecs (Note, Can take up to 4.1 msecs) movlw ENTRY_INC ; increment cursor call SendINS movlw b'00001100' ;0x0C ; display on cursor off call SendINS movlw LINE1 ; call SendINS return ;*************************************************************************; ; Send an instruction in W out to the LCD ; ;*************************************************************************; SendINS: movwf Temp ; Save the Temporary Value bcf RS ; Командный режим call NybbleOut movfw Temp ; Send the HIGH Nybble swapf Temp, w ; Send the LOW Nybble call NybbleOut return
;*************************************************************************; ; Send the character in W out to the LCD ; Отправить символ в W на ЖК-дисплее ;*************************************************************************; SendASCII: ; Send nbr as ASCII character addlw '0' SendCHAR: ; Отправить символ на LCD-дисплей movwf Temp ; Сохранить временное значение bsf RS ; Режим данных call NybbleOut movfw Temp ; Отправить старший полубайт swapf Temp, w ; Отправить младший полубайт bsf RS ; Режим данных call NybbleOut return ;*************************************************************************; ; Send the nibble in W out to the LCD ; ;*************************************************************************; NybbleOut: ; Send a Nybble to the LCD andlw 0xf0 ; Выделяем старший полубайт movwf TEMP ; Помещаем старший полубайт во временныую переменную TEMP movfw LCD_DATA ; Считали данные с порта данных LCD andlw 0x0f ; Маскируем разряды, не относящиеся к LCD iorwf TEMP, w ; Объединяем значащие полубайты movwf LCD_DATA ; Записываем новое значение в порт данных LCD bsf E bcf E ; Strobe out the LCD Data movlw 0xD0 ; Задержка на 250 uS !!!!!!!!!!!!!!!! movwf DCnt DLoop1: decfsz DCnt, f goto DLoop1 return
;************************************************************************** ; Задержка 5, 40, 80 миллисекунд ;************************************************************************** Delay80ms: movlw 0xFF ; устанавливаем начальное значение переменной (256) goto $+4 Delay40ms: movlw 0x85 ; устанавливаем начальное значение переменной (133) goto $+2 ; перескакиваем через следующий оператор Delay5ms: movlw 0x10 ; устанавливаем начальное значение переменной... movwf DCnt2 ; ...внешнего цикла (16) DLoopOut: movlw 0xFF ; устанавливаем начальное значение переменной... movwf DCnt ; ...вложенного цикла (256) DLoopIn: ; Продолжительность внетреннего цикла ~0,3 mS decfsz DCnt, f ; декремент переменной цикла goto DLoopIn ; если DCnt не 0, повторить декремент decfsz DCnt2, f ; иначе декремент переменной внешнего цикла goto DLoopOut ; если DCnt2 не 0, повторить декремент return ;************************ПРЕРЫВАНИЕ************************* INTERRUPT: movwf w_temp movfw STATUS bcf STATUS, RP0 movwf status_temp movfw PCLATH movwf pclath_temp
btfsc INTCON, RP0 goto PORTB_INT ;***************ОБРАБОТКА ТАЙМЕРА************ ;************** ЗДЕСЬ КОД ОБРАБОТКИ ТАЙМЕРА** goto END_INT ;********************************************
PORTB_INT: ;************** ЗДЕСЬ КОД ОБРАБОТКИ КЛАВИШ***
; ----------
END_INT:
bcf INTCON, RBIF bcf STATUS, RP0 movfw pclath_temp movwf PCLATH movfw status_temp movwf STATUS swapf w_temp, f swapf w_temp, w retfie
; **************** Конец обработчика прерывания *********** ;----------
INIT: clrf PORTA ; initialize PORTA ;movlw 0x07 ;movwf CMCON ; отключение аналоговых компараторов clrf STATUS clrf INTCON movlw b'00000000' movwf PORTA clrf PORTB
Продукция MOSO предназначена в основном для индустриальных приложений, использует инновационные решения на основе более 200 собственных патентов для силовой электроники и соответствует международным стандартам. LED-драйверы MOSO применяются в системах наружного освещения разных отраслей, включая промышленность, сельское хозяйство, транспорт и железную дорогу. В ряде серий реализована возможность дистанционного контроля и программирования работы по заданному сценарию. Разберем решения MOSO
подробнее>>
musor
Заголовок сообщения: Re: LCD1602 Assembler pic по 4м битам
у тебя действително 84 пик? просто их счас ненайти а под другие надо коректировать исходники
_________________ ZМудрость(Опыт и выдержка) приходит с годами. Все Ваши беды и проблемы, от недостатка знаний. Умный и у дурака научится, а дураку и .. Алберт Ейнштейн не поможет и ВВП не спасет.и МЧС опаздает
...А исходник был под PIC16F1459 я его переделал для 84го... Смелый подход при условии что ...Изучать асемблер начал недавно... Можно добавить не оттуда начал.
Последний раз редактировалось otest Пт янв 17, 2020 00:10:12, всего редактировалось 1 раз.
...А исходник был под PIC16F1459 я его переделал для 84го... Смелый подход при условии что ...Изучать асемблер начал недавно... Можно добавить не оттуда начал.
А что такого про смелый подход, поменять порты с С на B сложно? или может сконфигурировать мк сложно. А вообще все мигалки кнопки EEPROM динамическую индикацию я уже освоил. С дисплеем занялся потому как имеется исходник синтезатора частоты на pic16f84a с LCD МТ10-Т7 с енкодером а хотелось бы LCD хотябы двух строчный.
Кстати ассемблер начал изучать из за этого синтезатора, изначально диапазон 144-146 МГц думаю щас я подправлю под себя, открыл исходник блокнотом минут 10, 15 пытался что то там высмотреть а там не понятно ни чего, в общем решил я понять что же там. Вот так и начал учить ассемблер.
movfw - в среднем семействе нет команды. movfw LCD_PORT - наверно правильнее movf LCD_PORT
Команды МК нет, а ассемблерная команда есть... Все очень просто: movfw <reg> абсолютно идентична movf <reg>, w и всего лишь наводит эстетический порядок в мнемонике....
ЗЫ. По теме. Автору рекомендую В ДАННОМ СЛУЧАЕ добавить к загрузке ниббла swap. И младший ниббл станет старшим. Вообще, смена пинов может быть любой. Для этого можно применить табличный пересчет retlw.
movfw - в среднем семействе нет команды. movfw LCD_PORT - наверно правильнее movf LCD_PORT
Псевдокоманды заложены в "слэнговый набор" макросов IDE. Открываем IDE (у меня 8.92) тыць help выбираем раздел topics в выпавшем меню выбираем language tools -> mpasm assembler тыць OK... Далее в левой менюшке reference -> instruction sets -> 12-Bit/14-Bit Instruction Width Pseudo-Instructions и читаньки-распечатаньки. Там моного чего интересного-полезного имеется.
Оу, вау, да неужели в супер-20-20 году кто-то еще начинает изучать PIC16F84A, да еще и на ассемблере? Ваааау... Прям как археологическая раскопка. Видимо, раскопали книжки Корабельникова и видеоуроки доцэнта Ласёва или как его там. На мой взгляд, после первого беглого знакомства с ассемблером, и особенно с PIC16F84, эти древнейшие артефакты прошлого тысячелетия надо оставить. Они просто не стоят потраченных сил и времени. Я бы даже не стал рекомендовать ничего распечатывать - пустой перевод бумаги и тонера. Полезного там, по состоянию на 20-20 год, нет ничегошеньки. Это как сейчас смотреть в кинескопный монитор 14 дюймов 800х600 точек - в то время такие как раз и были.
Возможно PIC16F84A не стоит детального изучения - их на сегодня только в антикварных коллекциях встретить можно... А вот ассемблер изучать смысл ВСЕГДА имеется!.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения
Вход
Регистрация
Правила
FAQ
Поиск
