Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс. e-mail:jobsmp@pochta.ru |
.include "8515def.inc"
rjmp start
rjmp EXT_INT0
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
start:
ldi r20,0x01
ldi r21,0x5F
out SPH, r20
out SPL, r21
sei
ldi r17,0x30
out MCUCR,r17
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
rcall tormoz
ldi r17,0xFF
out DDRA,r17
out DDRB,r17
out DDRC,r17
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
end:
ldi r16,0x00
out PORTA,r16
out PORTB,r16
out PORTC,r16
;out PORTD,r16
rcall tormoz
rcall tormoz
rcall tormoz ;V pravo
rcall tormoz
rcall tormoz
rcall tormoz
rcall tormoz
rcall tormoz
rcall tormoz
rcall tormoz
rcall tormoz
rcall tormoz
ldi r17,0xFF
out PORTA,r17
out PORTB,r17
out PORTC,r17
rjmp start
EXT_INT0:
qqq:
ldi r16,0xBF
out PORTA,r16
rjmp qqq
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
tormoz:
ldi r17,0x7F ;1
q1:
;cpi r17,0x00
dec r17
breq q
ldi r18, 0xFF ;2
z2:
;cpi r18, 0xFE
dec r18
breq zwe
ldi r19,0x10 ;3
h:
dec r19
breq hg
rjmp h
hg:
rjmp z2
rjmp z2
zwe:
rjmp q1
q:
ret