;********************************************************************************************************************
;* Generador de sonidos 2
;*
;* Compañia:		Solaris Digital.   www.solaris-digital.com
;* Desarrollado por:	Ing. Victor Joaquin Zepeda P.    reviso:Ing ruben andrade navarro(cyber).
;* Lugar:		México D.F.
;*
;*	Este programa genera un tren de pulsos en un pin, el cual puede ser escuchado si se
;*	coloca un transistor y una bocina en el puerto PB0
;*
;*	El Microcontrolador indicado en esta aplicación es un AT90S4414, pero se puede usar
;*	cualquier AVR (solo habria que hacer los ajustes necesarios (por ejemplo la
;*	la definición del área de Stack).
;*
;* Nota: Recuerde que para que este programa se pueda ensamblar debera de contar con las libreria 4414def.inc en la ruta
;*	 especificada por el directivo include
;*
;********************************************************************************************************************

.include "c:\work\avr\appnotes\4414def.inc"

	.org	$0000
	ldi	r25,low(ramend)
	out	spl,r25
	ldi	r25,high(ramend)
	out	sph,r25
	sbi	DDRB,0
loop:	cbi	PORTB,0
	rcall	Delay
	sbi	PORTB,0
	rcall	Delay2
	dec	R19
	inc	R18
	rjmp	loop

Delay:	mov	R16,R18
Bucle2:	ldi	R17,$01
Bucle1:	dec	R17
	brne	Bucle1
	dec	R16
	brne	Bucle2
	ret

Delay2:	mov	R16,R19
Bucle3:	ldi	R17,$01
Bucle4:	dec	R17
	brne	Bucle4
	dec	R16
	brne	Bucle3
	ret