Простейшая кнопка на PIC Опции

[TimR]

Привет всем!!!
Пожалуйста помогите разобраться с ерундой. Программа - простейшая кнопка на PIC16F627,
создана в качестве обучаловки. Принцип такой: подаем внешний сигнал 5V на МК (провод естественно общий) на вывод 4 PortB и должен загорается светодиод на PortB,2.
Я уже пробовал задействовать и PortA, и с подтягивающими пробовал - ничего.
Как-то странно, видел много исходников, где "кнопка" делается именно по такому принципу.
В итоге, светодиод либо вообще не загорается, либо горит постоянно.

(Извиняйте за "нижний пробел" - его как будто нет)
;-----------------------------------------------------------------------------
стандартные установки OptionR, отключение ненужных модулей.
;---------------------------------------------------------------------------------------
Start________btfsc PortB,4 ; если присутствует высокий уровень то
____________goto hight ; переход на hight
____________goto low ; иначе на low
;------------------------------------------------------------
hight________bsf PortB,2 ; "зажечь" 2-й порт
____________call delay ; переход на подпрогу задержки
____________goto Start ; при возврате переход в режим сканирования
;-------------------------------------------
low_________bcf PortB,2 ;
___________ call delay
___________ goto Start
;-------------------------------------------
delay______ задержка........ 1сек
__________ return
;************************
end

Сообщение отредактировал TimR - Aug 31 2006, 07:36

[upc2]

Вот так ваш код работает

LIST p=16F84 ; PIC16F844 is the target processor

#include "P16F84.INC" ; Include header file

CBLOCK 0x10 ; Temporary storage
pos
dc1
dc2
ENDC
LIST p=16F84 ; PIC16F844 is the target processor

#include "P16F84.INC" ; Include header file

CBLOCK 0x10 ; Temporary storage
ENDC

ORG 0
entrypoint goto start

ORG 4
intvector goto intvector

start clrw ; Zero.

movwf PORTB ; Ensure PORTB is zero before we enable it.
bsf STATUS,RP0 ; Select Bank 1
movlw 0xF0 ; Set port B bits 0-3 as outputs
movwf TRISB ; Set TRISB register.

bcf STATUS,RP0 ; Select Bank 0



;Main loop
loop
btfsc PORTB,4
goto bhight
goto blow

bhight
bsf PORTB,2 ;
call delay ;
goto loop ;

blow
bcf PORTB,2 ;
call delay;
goto loop;

delay movlw 18 ; Outer loop iteration count
movwf dc1
dl1 clrf dc2 ; Initialize inner loop
dl2 nop
nop
decfsz dc2,F
goto dl2
decfsz dc1,F
goto dl1
return

END


У моего компилятора были претензии к PortB и к именам low , hight

Эскизы прикрепленных изображений

 

[Денис v]

Вот так ваш код работает
...
У моего компилятора были претензии к PortB и к именам low , hight

А что это за симулятор? Какая программа делает такие красивые картинки?