;* Projet : Labo XXX *
;************************************************************************
;* Nom de fichier: Labo XXX *
;* Date: XX-XX-XXXX *
;* *
;* Auteur: YY *
;* Haute Ecole Louvain en Hainaut *
;************************************************************************
;* Fichiers nécessaires: aucun *
;************************************************************************
;* Notes: *
;************************************************************************
    list p=16F887, f=INHX8M ; directive pour definir le processeur
    list c=90, n=60 ; directives pour le listing
    #include <p16F887.inc> ; incorporation variables spécifiques
    errorlevel -302 ; pas d'avertissements de bank
    errorlevel -305 ; pas d'avertissements de fdest


    __CONFIG _CONFIG1, _LVP_OFF & _WDT_OFF & _INTOSCIO
    __CONFIG _CONFIG2, _IESO_OFF & _FCMEN_OFF


;*************************************************************************
;* Définitions et Variables *
;*************************************************************************
    cblock 0x020
    tempo2,RESULTHI,VAR
    endc
;*************************************************************************
;* Programme principal *
;*************************************************************************
    ORG 0x000 ; vecteur reset
START
    CLRF STATUS
    BSF STATUS,5; banque 1
    CLRF TRISA; registre trisa a 0
    ;CLRF TRISC; registre trisc à 0
    BSF TRISB,1
    MOVLW b'00001111'

    BCF STATUS,5; retour banque 0
    CLRF PORTA; registre porta a 0

    BANKSEL ANSEL
    CLRF ANSEL
    CLRF STATUS
MAINLOOP
    BANKSEL ADCON1 ;
    MOVLW b'00000000' ;right justify
    MOVWF ADCON1 ;Vdd and Vss as Vref
    BANKSEL TRISA ;
    BANKSEL ADCON0 ;
    MOVLW b'11101001' ;ADC Frc clock,10101001
    MOVWF ADCON0 ;AN0, On
    CALL tempo ;Acquisiton delay
    BSF ADCON0,GO ;Start conversion
    BTFSC ADCON0,GO ;Is conversion done?
    GOTO $-1 ;No, test again
    BANKSEL ADRESH ;
    MOVF ADRESH,W ;Read upper 2 bits
    MOVWF RESULTHI ;store in GPR space
    ;MOVWF PORTA
   ; movfw B'00100000'
    CLRF PORTA


    MOVFW B'00100000' ;32
    SUBWF RESULTHI
    BTFSS STATUS,C
    GOTO NB1
    CLRF PORTA
    MOVFW B'01000000';64
    SUBWF RESULTHI
    BTFSS STATUS,C
    GOTO NB2
    CLRF PORTA
    MOVFW B'01100000';96
    SUBWF RESULTHI
    BTFSS STATUS,C
    GOTO NB3
    CLRF PORTA
    MOVFW B'10000000';128
    SUBWF RESULTHI
    BTFSS STATUS,C
    GOTO NB4
    CLRF PORTA
    MOVFW B'10100000';160
    SUBWF RESULTHI
    BTFSS STATUS,C
    GOTO NB5
    CLRF PORTA
    MOVFW B'11000000';192
    SUBWF RESULTHI
    BTFSS STATUS,C
    GOTO NB6
    CLRF PORTA

    CLRF PORTA
    MOVFW B'11100000';224
    SUBWF RESULTHI
    BTFSS STATUS,C
    GOTO NB7
    CLRF PORTA
    MOVFW B'11111111';255
    SUBWF RESULTHI
    BTFSS STATUS,C
    GOTO NB8
    GOTO MAINLOOP
NB1
   BSF PORTA,0
   BCF PORTA,1
   BCF PORTA,2
   BCF PORTA,3
   BCF PORTA,4
   BCF PORTA,5
   BCF PORTA,6
   BCF PORTA,7
   GOTO MAINLOOP
NB2

   BSF PORTA,0
   BSF PORTA,1
   BCF PORTA,2
   BCF PORTA,3
   BCF PORTA,4
   BCF PORTA,5
   BCF PORTA,6
   BCF PORTA,7

   GOTO MAINLOOP
NB3

   BSF PORTA,0
   BSF PORTA,1
   BSF PORTA,2
   BCF PORTA,3
   BCF PORTA,4
   BCF PORTA,5
   BCF PORTA,6
   BCF PORTA,7

   GOTO MAINLOOP
NB4

   BSF PORTA,0
   BSF PORTA,1
   BSF PORTA,2
   BSF PORTA,3
   BCF PORTA,4
   BCF PORTA,5
   BCF PORTA,6
   BCF PORTA,7

   GOTO MAINLOOP
NB5

   BSF PORTA,0
   BSF PORTA,1
   BSF PORTA,2
   BSF PORTA,3
   BSF PORTA,4
   BCF PORTA,5
   BCF PORTA,6
   BCF PORTA,7

   GOTO MAINLOOP
NB6

   BSF PORTA,0
   BSF PORTA,1
   BSF PORTA,2
   BSF PORTA,3
   BSF PORTA,4
   BSF PORTA,5
   BCF PORTA,6
   BCF PORTA,7
   GOTO MAINLOOP
NB7

   BSF PORTA,0
   BSF PORTA,1
   BSF PORTA,2
   BSF PORTA,3
   BSF PORTA,4
   BSF PORTA,5
   BSF PORTA,6
   BCF PORTA,7

   GOTO MAINLOOP
NB8

   BSF PORTA,0
   BSF PORTA,1
   BSF PORTA,2
   BSF PORTA,3
   BSF PORTA,4
   BSF PORTA,5
   BSF PORTA,6
   BSF PORTA,7

   GOTO MAINLOOP

tempo
    movlw .255
    movwf tempo2
    decfsz tempo2,f
    goto $-1
    return
    END