\prog;PicgT|Copie le Port A sur le port B
.proc	16F84

\const;Ports|Ports A et B
DirA	= 2'11111     ; Tout le PortA en entrée
DirB	= 2'00000000  ; Tout en sortie

ToutEteint	= 2'11111111  ; Lampes éteintes

.Loc	0
\prog:Initialisation| 
Debut:	Move	#DirA,W
	Move	W,TrisA
	Move	#DirB,W
	Move	W,TrisB

	Move	#ToutEteint,W
	Move	W,PortB	; Initialisation

\prog;Boucle | On boucle sans cesse pour copier RA dans RB
Boucle:

	Move	PortA,W
	Move	W,PortB

	Jump	Boucle

.End