\prog;Picgt00|Lit et copie un interupteur
.Proc	16F84
\var:Néant| 
\const;Port A| 
bInter	= 0		; Interupteur en RA0
DirA	= 2'11111	; RA4..0 en entrée
\const;Port B| 
bLed	= 7		; Led en RB7

DirB	= 2'00000000	; Tout en sortie
\m2;
\prog;Début du programme| 
.Loc	0
Debut:	Move	#DirA,W
	Move	W,TrisA
	Move	#DirB,W
	Move	W,TrisB
Boucle:
	TestSkip,BS  PortA:#bInter	; Si 0 (bit clear), on allume
	Clr	PortB:#bLed
	TestSkip,BC  PortA:#bInter	; dans l'autre cas, on éteint
	Set	PortB:#bLed
;... rien d'autre à faire dans ce programme
	Jump	Boucle
.End