AVR Atmega 128: сигнализация не срабатывает на ключи

[Blondy]

Добрый день!
Я не очень сильна в ассемблере, но такой эффект поразил даже меня.
Написана простренькая программа сигнализации, а сверху предоставлены ключи, которые запускают ту или иную подрограмму. А сигнализация тикает себе в мэйне и на ключи не срабатывает. ноль реакции... Я уже даже начинаю сомневаться, может я ключами неправильно пользуюсь.

Не могли бы посмотреть и проконсультировать?

.include"C:\Program Files\Atmel\AVR Tools\AvrAssembler\Appnotes\m128def.inc"
.def tmp=r16


//////////////////////Ключи///////////////////////////
.equ 	door=PD2 ; дверь
.equ 	code=PD3 ;кодовый замок 
.equ 	open=PD4 ;открытие
.equ 	lock=PB2 ;блокировкка замка
.equ 	alarm=PB2;срабатывание сигнализации
.equ 	hl=PD0;


.cseg
.org 0

rjmp RESET

nop
nop
nop
nop
nop
nop
nop

nop
nop
nop

RESET:

ldi tmp, low (RAMEND) ;Определяем начало стека
out	SPL, tmp
clr tmp
out DDRD, tmp ; Конфигурируем линии порта D как входы
out PORTB, tmp ;Устанавливаем на линиях порта B низкий уровень

ser tmp ;Устанавливаем все 11111111(=$ff) в переменную   tmp    
out PORTD, tmp ; Устанавливаем на линиях порта D высокий логический уровень 

out DDRB, tmp //Линии порта В - выходы
out PIND, tmp

ldi tmp,15 // инициализаций сторожевого таймера 
out WDTCR, tmp //- сброс  wdr через 2 секунды и переход на              //прерывание  RESET

clt

main: 
wdr
sbis PIND, code //пропуск следующей команды если на линии code //высокий уровень

rcall OpenLock // Вызыв команды OpenLock (открытие двери)
sbis PIND, open  //пропуск следующей команды если на линии open (PD4)  //высокий уровень

rcall OpenLock //Вызыв команды OpenLock (открытие двери)
sbis PIND, door  //пропуск следующей команды если на линии door (PD4)  //высокий уровень

rcall DoorIsOpen //вызыв подпрограммы DoorIsOpen
clt // очисткам регистров флага
rjmp main //возврат к метке main

/////////////////////////Попрограмма управления замком
OpenLock:

sbi PORTB, lock//ustonavlivaem 1 v registr PB2   - eto visokiy uroven
/////////////////////Visov Zaderzka na 500 ms , 4 


rcall d500ms
rcall d500ms
rcall d500ms
rcall d500ms

cbi  PORTB, lock// Ustanavlivaem niskiy uroven v registr PB2 porta B - nizkiy //uroven

ldi tmp, 10//Zagruzka konstanti 10
dal: rcall d500ms// Pereimwnovt    vizov programmi zaderzki na 500 ms
dec tmp// Umenshaem tmp na 1
brne dal // esli net perepolnenija (Z ne raven 0 )

set
reti
///////////////////////////////////////DoorIsOpen - управляем сиреной и //светодиодом


DoorIsOpen:

brts Nclose /// если в регистре флагов флаг Т установлен, то переход на //метку Nclose
sbi PORTB, hl // ustanavlivaem visokiy uroven na linii  hl, PB0
ldi XL, low (500) // Zagruzaem v registr starshie snachenija
ldi XL, high (500) // Zagruzaem v registr mladshie snachenija




Watch: wdr // sbrasivaem timer
sbi PORTB, alarm // Ustanovka visokogo urovnja na linii alarm PB1

rcall d05ms
cbi PORTB, alarm //Ustanovka Nizkogo urovnja na linii alarm
rcall d05ms

sbiw XL,1 //Vichitanie 1 iz znachenija registrov XH: XL
brne Watch // esli flag Z ne raven 0  - t.e soderzimoe registrov XH: XL ne ravno 0 

rcall d500ms // vivov saderzki na 0,5 sek

rjmp  DoorIsOpen

Nclose: 
sbis PIND, door // Propustit sl comandu, esli door (PD2) Visokiy uroven

rjmp Nclose
reti



//////////Podprogramma zaderzki 0,5 ms

d05ms: wdr
ldi YL, low (497)
ldi YL, high (497)

d05_1: sbiw YL, 1 // Vichitanie edinitsi
brne d05_1  // Esli Z<> 0(rezultat vipolnenija vishitanija ne raven 0)


reti


//////////////////Podprogramma zaderzki na 500 ms


d500ms: ldi XL, low (1000)
		ldi XL, high (1000)

		d500_1: rcall d05ms

		sbiw XL, 1

		brne d500_1

		reti

[Ulex]

А у меня срабатывают.
Как проверяете, в эмуляторе, на железе?
По замечаниям, у вас вроде reti в конце процедур а не прерываний. Криминала в данном случае нет, но лучше заменить на ret.

Добавлено, по мелочам:
1.
стек неправильно настроен:

ldi	tmp, low (RAMEND)
out	SPL, tmp
ldi	tmp,high(RAMEND)
out	SPH,tmp

2.
процедуры задержки, здесь опечатка:

d05ms: 
wdr
ldi YL, low (497)
ldi YH, high (497)
d05_1: 
sbiw YL, 1
brne d05_1
ret

И ещё, если вы хотите, чтобы вам отвечали, то поддерживайте диалог. Если вам задают встречные вопросы, то наверное это неспроста. Если вам указывают на какие-то ошибки в программе, то это не означает, что вас поднимают насмех. А то потом начинается - "я тут задала вопрос, а в ответ мне тишина".

[Blondy]

Спасибо))
Я проверяю на эмуляторе (потому как железа боюсь как огня, мне пытались подсунуть плату с лампочками, я еле открестилась, мне с эмулятором проще)
Сейчас я перекомпилирую.

А у меня наивный вопрос - я просто боюсь, что я что-то не то делаю: чтобы сработала подпрограмма открытия двери OpenLock мы должны поставить "черный кубик" в 3-ю ячейку порта В (так как PB2), да? Просто в этом случае у меня ничего не происходит....

[Ulex]

А у меня наивный вопрос - я просто боюсь, что я что-то не то делаю: чтобы сработала подпрограмма открытия двери OpenLock мы должны поставить "черный кубик" в 3-ю ячейку порта В (так как PB2), да?

Нет. Порт B настроен на выход. Это реакция сигнализации на взлом либо открытие двери, либо ещё на что-то. На вход работает порт D. Чтобы сработала подпрограмма OpenLock нужно убрать чёрный квадратик на пинах порта D (code или open) PD3, PD4.

[С.М.С]

А как вы используете команды rcall, reti, rjmp для mega128?

[Ulex]

А как вы используете команды rcall, reti, rjmp для mega128?

А что, там на 128 какие-то особенности?

[raxp]

- УДАЛИТЬ -

[С.М.С]

Из всех отличий нас интересует размер памяти программ. Если объём памяти меньше или равен 8 кбайт-ам, то используется rjmp, rcall и.т.д и занимает 2 байта. Если же объём памяти больше 8 кбайт, то используют команды jmp, call и.т.д которые занимаю 4 байта. К примеру команда rjmp состоит - 4 старшие бита код команды, остальные 12 бит адрес, куда переходим. Вот и получается, что выполняя команду компилятор обращается не к той ячейки памяти, ну а дальше вы сами понимаете.

Да и использовать мегу под такой код неведомая роскошь.

[Ulex]

Вот и получается, что выполняя команду компилятор обращается не к той ячейки памяти, ну а дальше вы сами понимаете.

Ой ли. А команды то разные, или это разве ничего не значит?

RJMP k - Relative Jump - PC< PC + k + 1
JMP k - Jump- PC< k

[С.М.С]

Ой ли. А команды то разные, или это разве ничего не значит?

RJMP k - Relative Jump - PC< PC + k + 1
JMP k - Jump- PC< k

Команды разные и это много значит, повторюсь к примеру для команды rjmp адрес 12бит это 4096 адресов, а если метка подпрограммы располагается за этим диапазоном куда перейдёт компилятор? И что будет при прерываниях, сброс может произойдёт и правильно, а все остальные прерывания нет.

Пересмотрел задержку. В принципе в данном случае и rjmp покатит, хотя это извращение.