;******************************************************************************
; Мигание LED на PORTB, 0
; Внешний кварц на 12.0 мгц
;******************************************************************************
.include 	"m8def.inc"						;
.device		ATmega8							;
;******************************************************************************
.def		Temp=r16
.cseg
.org 		0x0000
;******************************************************************************
			rjmp		RESET
RESET:		ldi			Temp, low(RAMEND)	; Определение
			out			SPL, Temp			; вершины стека
			ser			Temp				; Temp=$FF
			out			DDRB, Temp			; Линии порта В выходы
			ldi			Temp, 1				; В Temp => 1
Next:		out			PORTB, Temp			;
			rcall		Pause				;
			rjmp		Next				;
;******************************************************************************
; Пауза 0,5 сек
;******************************************************************************
Pause:		ldi  		r17, $1F
W_0:  		ldi  		r18, $FD
W_1:  		ldi  		r19, $FE
W_2:  		dec  		r19
          	brne 		W_2
          	dec  		r18
          	brne 		W_1
          	dec  		r17
          	brne 		W_0
          	ldi  		R17, $04
W_3:  		dec  		R17
          	brne 		W_3
			com			Temp				; Проинвертировать Temp
			ret
;******************************************************************************