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

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

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

• Поочередная смена изображений в TImage
• Установка Windows XP на нетбук ASUS eee pc 1000
• Уменьшить картинку в два раза
• Размер места занимаемый текстом
• Изменить иконку другой программы
• Как создать скрипт для вывода изображений с превью?
• Инициализация динамического массива
• Шифровка с помощью пароля. Улучшаем алгоритм
• Завтра отменят службу в армии. А вы еще служите или служили. вам обидно будет?
• Узнать общее количество файлов в заданой папке