' Louis Payen . Liaison série
' Affichage sortie sur ecran du pc
' utilisez logiciel putty en configurant sur 19200 bauds ...

#chip 18f45k22, 16
#define USART_BAUD_RATE 9600
#define USART_BLOCKING

#define SerInPort PORTc.7 'usart1 in
#define SerOutPort PORTc.6 'usart2 out

Dir SerOutPort Out
Dir SerInPort In

Wait 100 Ms   ' delai d'attente pour initialiser probablement

' Déclaration  des variables

Dim compteur,compteur2 as Byte

' Initialisation des entrées / sorties

Dir PORTD out     ' Tout le Port B en sortie

' Pour envoyer un message sur écran PC (via putty)
HSerPrint "18F45k22"   ' message
HSerPrintCRLF          ' passage à la ligne
                        '  HSerSend 32  pour envoyer le code ascii espace
                        ' HSerSend 12  pour debut de page
                        ' HSerSend 13  pour debut de ligne

' Programme principal . Faire clignoter une led su port B0

compteur = 0
Do Forever
if compteur=16 Then
 compteur=0
 end if
 compteur2=15-compteur%16
 PORTB=compteur2
 wait 1000 ms

 if PORTD.0=0 and PORTD.1=1 Then
    PORTD=15
 else
    PORTB=0
 end if

 'Exemple d'affichage sur le PC pour du debug
 compteur = compteur + 1
 HSerPrint compteur
 HSerPrint "    "
 HSerSend 13         ' revient debut ligne
                      'utiliser  HSerPrintCRLF  pour passer à la ligne

Loop