;* 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'10101001' ;ADC Frc clock,
    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'10100000'
    SUBWF RESULTHI
    BTFSS STATUS,C
    CALL NB4
    MOVFW B'1000000'
    SUBWF RESULTHI
    BTFSS STATUS,C
    CALL NB3
    MOVFW B'01000000'
    SUBWF RESULTHI
    BTFSS STATUS,C
    CALL NB2
    MOVFW B'00100000'
    SUBWF RESULTHI
    BTFSS STATUS,C
    CALL NB1

NB1
   BSF PORTA,0
   goto MAINLOOP
NB2
   BSF PORTA,0
   BSF PORTA,1
   goto MAINLOOP
NB3
   BSF PORTA,0
   BSF PORTA,1
   BSF PORTA,2
   goto MAINLOOP
NB4
   BSF PORTA,0
   BSF PORTA,1
   BSF PORTA,2
   BSF PORTA,3
   goto MAINLOOP
tempo
    movlw .255
    movwf tempo2
    decfsz tempo2,f
    goto $-1
    return
END