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

[IGRA]

Добрый день! Помогите пожалуйста написать программу для 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

[macomics]

На пару лет опоздали! Хоть бы отступы добавили (столько времени было)

[Nif-naf]

#include "p12f629.inc"
_config _HS_OSC&_CP_OFF&_WDT_OFF&_PWRTE_OFF&_BODEN_ON
d equ 30
org0
goto start
org4
bcf INTCON, T0IF
movlw 1
movwf d
retfie
start
banksel OSCCAL
call 3FFh
movwf OSCCAL
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
call delay
delay
clrf d
del
btfss d,0
goto del
retlw
goto loop
end

этот мк фсе обходят

[Nif-naf]

Сообщение от 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

Примечание. Заменить _INTRC_osc -> INTOSC_OSC, reti -> retfie, ret->retlw, btfsc d,0-> btfss и учесть rmw

[digitalis]

Любители некропостов так просто не сдаются!

[Nif-naf]

Вот из последнего.
Кварц 16 МГц.

#include "p12f629.inc"
_config _MCLRE_OFF&_HS_OSC&_CP_OFF&_WDT_OFF&_PWRTE_ON&_BODEN_ON
d equ 21
Reg equ 22
org0
goto start
org4
bcf INTCON, T0IF
incf d,1
btfsc d,7
clrf d
retfie
start
banksel OSCCAL
call 3FFh
movwf OSCCAL
banksel GPIO
clrf GPIO
movlw 7
movwf CMCON
banksel TRISIO
movlw h'0C'
movwf TRISIO
banksel OPTION_REG
movlw h'D7'
movwf OPTION_REG
banksel WPU
clrf WPU
banksel INTCON
bsf INTCON,GIE
bsf INTCON,T0IE
bcf INTCON,T0IF
banksel GPIO
loop
clrf Reg
bsf Reg,0
bcf Reg,1
bsf Reg,2
movf Reg,0
movwf GPIO
wait
movf GPIO,1
btfsc GPIO,2
goto wait
clrf Reg
bcf Reg,0
bsf Reg,1
bsf Reg,2
movf Reg,0
movwf GPIO
call delay
goto loop
delay
clrf d
del
btfss d,6
goto del
retlw
end

Кнопка на 0 -> GP2, GP0 и GP1 светодиоды