Датчик холла

; ============================================
; I N T E R R U P T S E R V I C E S
; ============================================
;
; [Add all interrupt service routines here]

EXT_INT0:
cli
ldi flag,00000001b ;поднимаем флаг
spi
reti
;
; ============================================
; M A I N P R O G R A M I N I T
; ============================================
;
Main:
; Init stack
ldi rmp, HIGH(RAMEND) ; Init MSB stack
out SPH,rmp
ldi rmp, LOW(RAMEND) ; Init LSB stack
out SPL,rmp
; Init Port c
ldi rmp,00001111b ; Direction Port c
out DDRc,rmp

ldi rmp,11110000b ;низкий на выходы
out portc,rmp

ldi rmp,0b ; порт д будет входом D
out ddrd,rmp

ldi rmp,00000100b ; просто для очистки совести
out portd,rmp

ldi pos,11110001b ; номер светодиода
ldi flag,00000000b ; обнуляем флаг прерыв


ldi rmp, 1<<ISC01 ;по спаду фронта
out MCUCR,rmp

ldi rmp, 1<<INT0 ;разрешаем INTO
out GIMSK,rmp
sei ;разрешаем прерывания

;
; ============================================
; P R O G R A M L O O P
; ============================================
;
Loop:
cpi flag, 1 ; если флаг не установлен
brne loop ; ничего не делаем

out portc,pos ; зажигаем
nop ;ничего умнее не придумал
nop ;снова
ldi rmp,11110000b
out portc,rmp ;гасим

sbrs pos,0 ; дальше просто перебор диодов
rjmp m1
ldi pos,11110010b
rjmp ex_loop

m1:
sbrs pos,1
rjmp m2
ldi pos,11110100b
rjmp ex_loop

m2:
sbrs pos,2
rjmp m3
ldi pos,11111000b
rjmp ex_loop

m3:
ldi pos,11110001b

ex_loop:
ldi flag,0h ;сбрасываем флаг

rjmp loop ; go back to loop
;
; End of source code
;