Electronica

list P=16f877A ;tipo de uC
include ;archivo de definiciones

__CONFIG _XT_OSC & _LVP_OFF & _WDT_OFF
errorlevel -302,-305
;definicion de macros
banco1 macro
bsf STATUS,RP0bcf STATUS,RP1
endm
banco0 macro
bcf STATUS,RP0
bcf STATUS,RP1
endm
;definicion de RAM
cblock 20h
contador
PDel0
PDel1
TEMPERATURA
VAR11
RESTADOR1
TEMP_ACTUALADRESH_J
GUARDADITO
PIENSA
endc

;programa principal
org 0
BSF STATUS,RP0
MOVLW B'00000111'
MOVWF PORTB
CLRF PORTC
BCF STATUS,RP0
MOVLWB'01000001' ;P
MOVWF ADCON0 ;P
CLRF GUARDADITO
CLRF PORTC
goto inicio

inicio:
call inicio_LCD ;inicializa LCD,cursor parpadente

;ESCRIBE ARRIBA
movlw'T' ;envia caracteres a la pantalla
call EnviaCarLCD
movlw '.'
call EnviaCarLCD
movlw 'I'
call EnviaCarLCD
movlw 'D'
call EnviaCarLCD
movlw 'E'
call EnviaCarLCD
movlw 'A'
callEnviaCarLCD
movlw 'L'
call EnviaCarLCD
movlw 0X20
call EnviaCarLCD
movlw 'T'
call EnviaCarLCD
movlw '.'
call EnviaCarLCD
movlw 'H'
call EnviaCarLCD
movlw 'O'
call EnviaCarLCDmovlw 'R'
call EnviaCarLCD
movlw 'N'
call EnviaCarLCD
movlw 'O'
call EnviaCarLCD
movlw 0X20
call EnviaCarLCD
;********************************************************************
movlwh'c0' ;establece posicion del cursor en 2a fila
call EnviaCmdLCD

MOVLW .15 ;TEMPERATURA INICIAL DEL S.POINT
MOVWF TEMPERATURA

BSF ADCON0,2 ;P
BTFSCADCON0,2 ;P
GOTO $-1 ;P
MOVF ADRESH,W ;P
MOVWF ADRESH_J

CALL MUESTRA.S.POINT

GOTO PRINCIPAL;***********************************************************
;"TEMPERATURA S.POINT": MUESTRA LA TEMPERATURA S.POINT Y LA TEMPERATURA ACTUAL GUARDADO EN TEMPERATURA Y TEMP_ACTUAL

MUESTRA.S.POINT
movlw h'c0' ;establece posicion del...