Microcontrolador

;programa para realizar una conversión analógica digital y da la temperatura en 2 digitos a un display
LIST P=16F877
include
RDELAY    EQU 0x21
CONTA0    EQU 0x22
CONTA1    EQU 0x23
CONTA2   EQU 0x24
conta_n EQU 0x25
DIS1    EQU 0x26
DIS2    EQU 0x27
temp   EQU 0x28
contb_n EQU 0x29
conta   EQU 0x30

;TABLA ADDWF PCL,1 ; Cargamos el valor del acumulador en el registro
               ; PLC. Cuando se ejecute esta instruccion el pic
                ; saltara inmediatamente a la direccion del programa
                ; que le hayamos invocado.
                ; En esta tablaalmacenaremos los valores que hay
                ; que sacar por el puerto para que se muestren en
                ; el display los numeros del 0 a 9.

DISPLAY
;   cero    RETLW h'40' ; Para mostrarel 0
;   uno    RETLW h'79' ;Para mostrar el 1
;   dos   RETLW h'24' ;Para mostrar el 2
;   tres    RETLW h'30' ;Para mostrar el 3
;   cuatro    RETLW h'19' ;Para mostrar el 4
;   cinco    RETLWh'12' ;Para mostrar el 5
;   seis    RETLW h'02' ;Para mostrar el 6
;   siete    RETLW h'78' ;Para mostrar el 7
;   ocho    RETLW h'00' ;Para mostrar el 8
;   nueve    RETLW h'10' ;Para mostrarel 9
;   diez    RETLW h'40' ;Para mostrar el 0

;*****************************************************************
inicio   
      bsf    STATUS,RP0 ; Selecciona Banco 1
      movlw   b'00011111'
      movwf    TRISA   ; Configura PA como entrada (5 bits)
      clrf   ADCON1   ; 8 entradas Analogicas, justificado izquierda (6 bits menos sig. ADDRESL cero,), Vref=Vdd, Fosc/2      bsf      ADCON1,ADFM ; Se justifica a la derecha.
      clrf    TRISC    ; PC de salida
      clrf   TRISB     ; PB Como salida;
      bcf      STATUS,RP0 ; selecciona BANCO 0
      clrf    ADCON0   ; Seleccion delcanal 0, Fosc/2,  conversion apagada, convertidor apagado
      bsf    ADCON0,0 ; Activa el convertidor A/D
convertir
      call    espera20u   ;Crea un pequeno retardo...