\prog;XDebug.asm|Test macros DebutM.asi et routines DebugR.asi
.Proc	16F84

Debug	= 1	; =0 pour ne pas générer les macros dans XDebugM.asi

\b;Ports
\dtrame;
bSw	= 4	; switch sur PB4, actif ŕ zéro
\ftrame;
DirA	= 2'10000

DirB	= 0	; sorties

\b;Variables
.Loc	16'0C
Compte:	.Blk.16	1
Decale:	.Blk.16	1

SavW:	.Blk.16	1

\dtrame;
.Ins	XDebugM.asi
\ftrame;
\m2;
.Loc	0
\b;Initialisation
	Move	#DirA,W
	Move	W,TrisA
	Move	#DirB,W
	Move	W,TrisB
	Clr	Compte
	Move	#2'10000000,W
	Move	W,Decale
\b;Boucle
Loop:
	Inc	Compte
\dtrame;
M 1,Compte
\ftrame;
	RRC	Decale
\dtrame;
M 2,Decale
\ftrame;
	Jump	Loop

\dtrame;
.Ins	XDebugR.asi
\ftrame;
.End