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

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

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

• Связать объект с формой
• Рассылка. Выпуск 154
• Как проверить все значения последней строчки в StringGrid?
• Рассылка. Выпуск 229
• Как вернуть из функции 2 и более аргумента в VBA?
• Анимация GIF в делфи
• Значок «new» к картинке
• Как удалить и копировать файлы с рабочего стола с помощью программы на Delphi
• Чтение всех ключей из секции INI-файла в Делфи
• Вставить текст в Edit Tab