ADC LCD PIC16F1827 ASM

;*******************************************************************************
;                                                                              *
;    Filename:  Proyecto 9                                                     *
;    Date:      29/07/2017                                                     *
;    File Version:   0.01                                                      *
;    Author:    Mariano Rocha                                                  *
;    Company:   Electronicos embebidos                                         *
;    Description: ADC LCD                                               *
;                                                                              *
;*******************************************************************************
;*******************************************************************************
; MAIN PROGRAM
;*******************************************************************************

LIST P=16f1827
RADIX HEX
include  "P16f1827.inc"
__CONFIG _CONFIG1, _FOSC_XT & _WDTE_OFF & _PWRTE_ON & _MCLRE_OFF & _CP_OFF & _CPD_OFF & _BOREN_ON & _CLKOUTEN_OFF & _IESO_ON & _FCMEN_ON
__CONFIG _CONFIG2, _WRT_OFF & _PLLEN_OFF & _STVREN_ON & _BORV_LO & _LVP_ON
    ORG 0


CBLOCK 0X20
RESULTHI, RESULTLO
ENDC



    ORG 0
    goto INICIO

 include "lcd.inc"
 include "convert.inc"

ADC_INIT:
     BANKSEL   ADCON0
     movlw     b'00000001'
     movwf     ADCON0
     BANKSEL   ADCON1
     movlw     b'11110000'
     movwF     ADCON1
     BANKSEL   ANSELA
     movlw     b'00000001'
     movwf     ANSELA
     BANKSEL   0
     return


ADC_READ:
     BANKSEL   ADCON0
     bsf       ADCON0,GO_NOT_DONE   ; se pone en marcha el ADC
     btfsc     ADCON0,GO_NOT_DONE
     goto      $-1              ; esparamos a que termine la conversion
     BANKSEL   ADRESH ;
     MOVF      ADRESH,W ;Read upper 2 bits
     BANKSEL   0
     MOVWF     RESULTHI ;store in GPR space
     BANKSEL   ADRESL ;
     MOVF      ADRESL,W ;Read lower 8 bits
     BANKSEL   0
     MOVWF     RESULTLO ;Store in GPR space
     BANKSEL   0
     return

INICIO:
    BANKSEL    ANSELB
    clrf       ANSELB
    BANKSEL 0
    call       ADC_INIT
    call       Lcd_Init_4L
    movlw      MEN_1-1
    call       Lcd_Out_Rom

MAIN:
     movlw      0
     call       Curs_Pos_L2
     movlw      MEN_2-1
     call       Lcd_Out_Rom

     call       ADC_READ

     movf       RESULTHI,w
     movwf      dato_word_h
     movf       RESULTLO,w
     movwf      dato_word_l

     movlw      array_txt_0         ; posicion del array
     movwf      Array
     movlw      dato_word_h         ; direccion del dato alto del word
     call       WordToStr


     movlw      array_txt_0         ; posicion del array
     call       Lcd_out

     movlw      'F'
     call       LCD_CHAR


    goto       MAIN

    goto $


end;