Assembler (AVR)

[PHC]

Программа по переключению светофора.
После нажатия кнопки алгоритм переключения цветов светофора выполняется бесконечно, и программа не переходит в режим ожидания кнопки, хотя по меткам она должна возвращаться именно на этот момент.
Программа тут:

.include"m164pdef.inc"
.list
.def temp=r16
.def temp1=r17
.def temp2=r18
.def temp3=r19
.def temp4=r20
.def temp5=r21
;___
.cseg
.org 0
rjmp main
;___
main:
ldi temp,0xff
out ddra,temp
out ddrc,temp
ldi temp,0x00
out portc,temp
out porta,temp
out portd,temp
out ddrd,temp
 
 ili:
 ldi temp,0b00000100 ;Устанавливаем зеленый на дорожном
 out portc,temp
 ldi temp,0b00000001 ;Устанавливаем красный на пешеходном
 out porta,temp
 in temp,pind
 cpi temp,0b00000001 ;Проверка нажатия кнопки
 brne ili
 
ldi temp,0b00000010 ;Установка желтого на дорожном
;------------------------
 
;------------------------
out portc,temp
 
;________________
rcall pause
rcall pause
rcall pause
rcall pause
rcall pause
rcall pause
;_______________
 
ldi temp,0b00000001 ;Красный на дорожном
out portc,temp
ldi temp,0b00000010 ;Зеленый на пешеходном
out porta,temp
ldi temp2,255
 
 
rcall pause
rcall pause
rcall pause
rcall pause
rcall pause
rcall pause
rcall pause
rcall pause
rcall pause
 
;_______________________
;Мигаем зеленым ;)
;_______________________
ldi temp,0b00000000
out porta,temp
rcall pause
ldi temp,0b00000010
out porta,temp
rcall pause
ldi temp,0b00000000
out porta,temp
rcall pause
ldi temp,0b00000010
out porta,temp
rcall pause
ldi temp,0b00000000
out porta,temp
rcall pause
ldi temp,0b00000010
out porta,temp
rcall pause
ldi temp,0b00000000
out porta,temp
rcall pause
ldi temp,0b00000010
out porta,temp
rcall pause
ldi temp,0b00000000
out porta,temp
rcall pause
;_______________________
 
ldi temp,0b00000001 ;Красный на пешеходном
out porta,temp
ldi temp,0b00000010 ;Желтый на дорожном
out portc,temp
rcall pause
rcall pause
ldi temp,0b00000100 ;Зеленый на дорожном
out portc,temp
 
in temp,pind
cpi temp,0b00000001
brne ili1
 
ili1: rjmp ili
rjmp main
 
; Подпрограмма задержки
; ====================================================
Pause:    
ldi Temp1,0; записать в регистр temp1 знчение 0
ldi Temp2,0; записать в регистр temp2 знчение 0
ldi Temp3,2; записать в регистр temp3 знчение 2
 
Pause1:    
dec Temp1; вычесть из значения  регистра temp1 единицу
brne Pause1; если значение temp1 не равно 0 перейти к метке Pause1
 
dec Temp2; вычесть из значения  регистра temp2 единицу
brne Pause1; если значение temp2 не равно 0 перейти к метке Pause1
 
dec Temp3; вычесть из значения  регистра temp3 единицу
brne Pause1; если значение temp1 не равно 0 перейти к метке Pause1
ret; выйти из подпрограммы