;   SMILENGHEADER
;   COMMENT This is the Smile NG file header, do not modify!
;   VERSION 1.0
;   PROC CALM

\prog;PicGT1|Son continu sur un buzzer connecté sur une ligne du PortA
.Proc	16F870
DebVar	= 16'20
\var:Variables|
C1	= DebVar
\m2;
.Loc	0
Debut:	Move	#2'0000,W	; RA3..0 en sortie
	Move	W,TrisA
	Clr	PortA
Boucle:	Not	PortA
 B$:
;  nop ; pour ralentir la boucle éventuellement
	DecSkip,EQ  C1
	Jump	B$
	Jump	Boucle

.End