PIC12F629 — питание подал — постоянно горит светодиод №1, светодиод №2 не горит. Кнопку нажал и держишь, светодиод №1 сразу потух, светодиод №2 горит

Posted by obzor under Микроконтроллеры

Помогите пожалуйста написать программу для PIC12F629. Нужен следующий алгоритм: питание подал — постоянно горит светодиод №1, светодиод №2 не горит. Кнопку нажал и держишь, светодиод №1 сразу потух, светодиод №2 горит. Кнопку отпустил — светодиод №2 моргает 3 секунды после чего загорается светодиод №1. Какие ноги будут задействованы разберусь сам из кода. В наличии установлены micropascal pro for pic и mplab ide.

Nif-naf

#include "p12f629.inc"
_config _intRC_OSC_NOCLKOUT&_LVP_OFF&_WDT_OFF&_PWRTE_ON&_BODEN_ON
d equ 30
org0
goto start
org4
bcf INTCON, T0IF
movlw 1
movwf d
reti
start
banksel OSCCAL
clrf OSCCAL
bsf OSCCAL, CAL5
banksel GPIO
clrf GPIO
movlw 7
movwf CMCON
banksel TRISIO
movlw h'0C'
movwf TRISIO
banksel OPTION
movlw h'D7'
movwf OPTION
banksel WPU
clrf WPU
banksel INTCON
bsf INTCON,GIE
bsf INTCON,T0IE
bcf INTCON,T0IF
banksel GPIO
loop
bsf GPIO,GP0
bcf GPIO,GP1
wait
movf GPIO,1
btfsc GPIO,2
goto wait
bcf GPIO,GP0
bsf GPIO,GP1
call delay
bsf GPIO,GP0
bcf GPIO,GP1
call delay
bcf GPIO,GP0
bsf GPIO,GP1
delay
clrf d
del
btfsc d,0
goto del
clrf d
ret
goto loop
end

тема на форуме

Случайные статьи

• Поиск чисел-палиндромов на Python
• Рассылка. Выпуск 55.
• Проверить является ли строка рациональным числом
• Рассылка. Выпуск 179
• Анимированный gif в Delphi XE
• Рассылка. Выпуск 197
• 100 компонентов Delphi
• Test-Driven Development для Java (TDD, разработка через тестирование) на практике.
• УРОК 21 ЗНАКОМСТВО С КЛАССАМИ C++
• Как объединить 2 Image и сохранить как одну картинку?