40 Up En Lcd

40 UP EN LCD

LIST P=16F84
INCLUDE P16F84.INC
INDEX EQU 0X10
REG EQU 0X11
UNI EQU 0X12
DEC EQU 0X13



ORG 0X2007
DW 0X3FFA
ORG 0

BANKSEL TRISACLRF TRISA
CLRF TRISB
BANKSEL PORTA

T1 CALL LCD
CALL CONTROL

CLRW
MOVWF INDEX

X2 CALL COMANDO

MOVWF REG
XORLW 0XFF
BZ X1
MOVFW REG
MOVWFPORTB
CALL ENABLE
INCF INDEX,F
MOVFW INDEX
GOTO X2
COMANDO
ADDWF PCL,F
DT 0X38,0X06,0X0C,0X01
DT 0X85,0XFF

X1 CALL CONTROL


CALL DATO

MOVLW '0'MOVWF DEC
X6 MOVWF PORTB
CALL ENABLE

MOVLW '0'
MOVWF UNI
X4 MOVWF PORTB
CALL ENABLE
CALL TIME


INCF UNI,F
MOVFW UNI
XORLW 0X3A
BZ X3
CALL CONTROLMOVLW 0X86
MOVWF PORTB
CALL ENABLE

CALL DATO
MOVFW UNI
GOTO X4
X3


INCF DEC,F
MOVFW DEC
XORLW '5'
BZ X9
CALL CONTROL
MOVLW 0X85
MOVWF PORTBCALL ENABLE
CALL DATO

MOVFW DEC
GOTO X6

X9 CALL CONTROL
MOVLW 0X85
MOVWF PORTB
CALL ENABLE
CALL DATO
MOVFW DEC
MOVWF PORTB
CALL ENABLE

CALL CONTROLMOVLW 0X86
MOVWF PORTB
CALL ENABLE

CALL DATO

MOVLW '0'
MOVWF UNI
T2 MOVWF PORTB
CALL ENABLE
CALL TIME
INCF UNI,F
MOVFW UNI
XORLW '8'
BZ T1CALL CONTROL
MOVLW 0X86
MOVWF PORTB
CALL ENABLE
CALL DATO
MOVFW UNI
GOTO T2


TIME
MOVLW .50
MOVWF 0X42
X7 MOVLW .100
MOVWF 0X40
NOP
DECFSZ0X40,F
GOTO $-2
DECFSZ 0X42,F
GOTO X7
RETURN
LCD
MOVLW .249
MOVWF 0X40
NOP
DECFSZ 0X40,F
GOTO $-2
RETURN

ENABLE
CALL LCD
BSF PORTA,0
CALL LCDBCF PORTA,0
CALL LCD
RETURN

CONTROL
CALL LCD
BCF PORTA,0
BCF PORTA,1
CALL LCD
RETURN
DATO
CALL LCD
BCF PORTA,0
BSF PORTA,1
CALL LCD
RETURN
END