Не стартует Pic16F877A

[LiSiY5]

Помогите пожалуйста, что может быть? Код написан на ассемблере, симулятор  работает, все ОК. Прошиваю и нет реакции на смену 1/0 на входах. Выхода работают, моргают, а вход никак.

Код с конфигурацией прилогаю, Help me please)))

LIST p=16F877A
	__CONFIG 3F4Eh; кварц 20MHz
;===============================================================================================
; Определение положения регистров специального назначения. 
;===============================================================================================
OPTION_REG  equ        80h
Status      equ        03h         ; Регистр Status.
PortA       equ        05h         ; Регистр PortA.
TrisA       equ        85h         ; Регистр TrisA - банк 1.
PortB       equ        06h         ; Регистр PortB.
TrisB       equ        86h         ; Регистр TrisB - банк 1.
IntCon      equ        0Bh         ; Регистр IntCon.
ADCON0      equ        1Fh         ; Регистр установок компаратора

;===============================================================================================
; Определение названия и положения регистров общего назачения.
;===============================================================================================

SecH_1      equ        20h         ; старший разряд счетчика
SecL_1      equ        21h         ; младший разряд счетчика
but			equ			22h

;=============================================================================================
; Точка входа в программу.
;=============================================================================================
            org        0           ; Начать выполнение программы 
            goto       Start1      ; с подпрограммы START.

;=============================================================================================
; Инициализация порта А
;=============================================================================================

Start1      clrf       PortA       ; очистить порт А
            movlw      .7          ; Выключить компараторы и активировать порты входа-выхода
            movwf      ADCON0      ; 
			bsf       Status,5    ; Установить банк 1.
            movlw      3FH          ; портА работает на вход
            movwf      TrisA       ; входы 6,7 работают в режиме генератора
;=============================================================================================
; Инициализация порта B
;=============================================================================================
            clrf       TrisB       ; портВ работает на выход

            movlw      0           ; Включить подтягивающие резисторы порта В.
            movwf      OPTION_REG  ; На входе INT прерывания - по заднему фронту.
            bcf        Status,5    ; Установить банк 0.
            bcf        Status,6    ; Установить банк 0.
;--------------------------------------------------------------------------------------------
; анализ кнопки
;--------------------------------------------------------------------------------------------
Start       clrwdt
			btfsc      PortA,1     ; eсли А1=1
            bsf			but,0
			btfsc	   PortA,2
			bcf			but,0
			btfsc		but,0
			goto        pusk
			goto		Start
pusk		bsf        PortB,0     ; включить В0
            call		zad50
            bcf        PortB,0     ; выключить В0
			call		zad50
	    

            goto        Start

;--------------------------------------------------------------------------------------------
; задержка 50 мс 
;--------------------------------------------------------------------------------------------
zad50      movlw      .244        ; Закладка в регистр W константы .244  
            movwf      SecH_1      ; Копирование константы .244 из регистра W в регистр SecH_1.         
                                 
            movlw      .173        ; Закладка в регистр W константы .173
            movwf      SecL_1      ; Копирование константы .173 из регистра W в регистр SecL_1.

PAUSE_D     clrwdt                 ; Сброс сторожевого таймера WDT
                
            decfsz     SecL_1,F    ; Декремент содержимого младшего разряда счетчика SecL_1
            goto       PAUSE_D     ; Если результат декремента не=0, то переход в ПП PAUSE_D.                    
  
            decfsz     SecH_1,F    ; Если результат декремента =0, то инкремент старшего разряда счетчика SecH_1
            goto       PAUSE_D     ; Если результат инкремента не=0, то переход в ПП PAUSE_D.
            return                 ; Если результат инкремента =0, то программа исполняется далее.


            end                    ;конец

 

Изменено 19 сентября, 2020 пользователем LiSiY5

[Реклама]

Реклама: ООО ТД Промэлектроника, ИНН: 6659197470, Тел: 8 (800) 1000-321

[IMXO]

очередной послушник пастора?

[Реклама]

20% скидка на весь каталог электронных компонентов в ТМ Электроникс!

Акция "Лето ближе - цены ниже", успей сделать выгодные покупки!

Плюс весь апрель действует скидка 10% по промокоду APREL24 + 15% кэшбэк и бесплатная доставка!

Перейти на страницу акции

Реклама: ООО ТМ ЭЛЕКТРОНИКС, ИНН: 7806548420, info@tmelectronics.ru, +7(812)4094849

[Zhuk72]

Похоже на то. Либо какие-то древние инструкции для начинающих.

19 часов назад, LiSiY5 сказал:

Помогите пожалуйста, что может быть?

Для начала исправьте начало файла, не изобретайте велосипед.

В меню МПЛаба (в моей версии Х 5.00 это в Production) имеется пункт Configuration bits. Он автоматически генерирует заголовок, надо только мышкой выставить нужные биты.

; Assembly source line config statements

#include "p16f877a.inc"

; CONFIG
; __config 0xFFFA
 __CONFIG _FOSC_HS & _WDTE_OFF & _PWRTE_OFF & _BOREN_ON & _LVP_ON & _CPD_OFF & _WRT_OFF & _CP_OFF

;===============================================================================================
; Определение названия и положения регистров общего назачения.
;===============================================================================================

SecH_1      equ        20h         ; старший разряд счетчика
SecL_1      equ        21h         ; младший разряд счетчика
but			equ			22h

Строка с #include ведет на файл, в котором уже прописаны адреса всех регистров. А конфигурационные биты надо писать именно в таком развернутом виде, чтобы всем было понятно, что там вкл, а что выкл.

Кроме того нет необходимости вручную переключать банки. Достаточно перед обращением к регистру написать banksel TRISA (или любой другой регистр или переменная). В процессе компиляции переключение банка компилятор добавит сам. Так вы точно не ошибетесь с банками и избавите себя от лишних поисков.

И потом, зачем вам на начальном этапе понадобился WDT? Добейтесь нормальной работы без него, а потом можете и с ним поиграться (если это так важно).

Изменено 20 сентября, 2020 пользователем Zhuk72

[Реклама]

Выбираем схему BMS для корректной работы литий-железофосфатных (LiFePO4) аккумуляторов

 Обязательным условием долгой и стабильной работы Li-FePO4-аккумуляторов, в том числе и производства EVE Energy, является применение специализированных BMS-микросхем. Литий-железофосфатные АКБ отличаются такими характеристиками, как высокая многократность циклов заряда-разряда, безопасность, возможность быстрой зарядки, устойчивость к буферному режиму работы и приемлемая стоимость. Но для этих АКБ, также как и для других, очень важен контроль процесса заряда и разряда, а специализированных микросхем для этого вида аккумуляторов не так много. Инженеры КОМПЭЛ подготовили список имеющихся микросхем и возможных решений от разных производителей. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

[Zhuk72]

.7 надо записывать не в ADCON0, а в ADCON1. И это не отключение компараторов, а отключение выводов порта от АЦП.

Кроме того .7 нужно также прописать и в CMCON. Это и будет отключение компараторов. А что вы делаете с кнопками мне совершенно непонятно.

Изменено 20 сентября, 2020 пользователем Zhuk72

[IMXO]

3 часа назад, Zhuk72 сказал:

.7 надо записывать

 в 877 вообще нет регистра CMCON

 нет разницы ADCON0(1Fh) или ADCON1(9Fh) обращение определяется битами регистра STATUS, хотя в коде ТС запись действительно идет в регистр ADCON0.

[Zhuk72]

У 877 нет, но у вопрос касается 877А, у которого компаратор есть.

Программа начинается с строк

Start1      clrf       PortA       ; очистить порт А
            movlw      .7          ; Выключить компараторы и активировать порты входа-выхода
            movwf      ADCON0      ;

Обращение идет к порту, а следом к ADCON0. Они оба в одном банке, а поскольку программа только стартанула, следовательно в нулевом.

Изменено 20 сентября, 2020 пользователем Zhuk72