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

\prog;PicgT|Copie le Port A sur le port B
.Proc	16F870

.Ref	16F870
.Ins	16F870M.asi

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

ToutEteint	= 2'11111111  ; Lampes éteintes

.Loc	0
\prog:Initialisation| 
Debut:  
; Il faut désactiver le convertisseur A/D
	Clr PortA
	Bank0to1;	Set Status:#RP0
	Move #16'06,W
	Move W,Adcon1
	Bank1to0;	Clr Status:#RP0
; On peut maintenant initialiser le PortA comme sur un 16F84
	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