Ingeniero

LIST P= 16F877A
#INCLUDE

CBLOCK 20H
CONT0
CONT1
CONT2
APUNTADOR_1
APUNTADOR_2
ENDC

ORG 00H
GOTO INICIO
ORG 05H;___________________________________________

INICIO CALL CONFPORTS
BCF PORTE,2
CALL CONFIG_LCD
CALL ESCRIBIR_1
MOVLW .1
CALL CONTROL
CALL ESCRIBIR_2
INICIO_1 MOVLW.200
CALL CONTROL
CALL ASIGNACION
MOVFW PORTB
CALL DATO
MOVFW PORTB
CALL TRA
CALL ALARMA
NOP
GOTO INICIO_1;___________________________________________

ALARMA MOVLW .56
SUBWF PORTB,W
BTFSS STATUS,C
GOTO PRENDER
GOTO APAGAR
PRENDER BSF PORTE,2
RETURN
APAGAR BCF PORTE,2
RETURN;___________________________________________

ESCRIBIR_1 CLRF APUNTADOR_1
VOLVER_1 MOVFW APUNTADOR_1
CALL TABLA_1
CALL DATO
INCF APUNTADOR_1
MOVLW .16
XORWF APUNTADOR_1,WBTFSS STATUS,Z
GOTO COLUMNA2_1
MOVLW B'11000000'
CALL CONTROL
GOTO VOLVER_1
COLUMNA2_1 MOVLW .32
XORWF APUNTADOR_1,W
BTFSS STATUS,Z
GOTO VOLVER_1RETURN
;___________________________________________

ESCRIBIR_2 CLRF APUNTADOR_2
VOLVER_2 MOVFW APUNTADOR_2
CALL TABLA_2
CALL DATO
INCF APUNTADOR_2
MOVLW .16XORWF APUNTADOR_2,W
BTFSS STATUS,Z
GOTO COLUMNA2_2
MOVLW B'11000000'
CALL CONTROL
GOTO VOLVER_2
COLUMNA2_2 MOVLW .32
XORWF APUNTADOR_2,W
BTFSS STATUS,ZGOTO VOLVER_2
RETURN
;___________________________________________

TABLA_1 ADDWF PCL

RETLW ' '
RETLW 'A'
RETLW 'n'
RETLW 'a'
RETLW 'l'
RETLW 'i'RETLW 'z'
RETLW 'a'
RETLW 'd'
RETLW 'o'
RETLW 'r'
RETLW ' '
RETLW ' '
RETLW 'D'
RETLW 'e'
RETLW ' '

RETLW 'O'
RETLW 'x'
RETLW...