Plc877

LIST P=16F877
RADIX HEX

INCLUDE
INCLUDE

DECENA EQU 0x6A
UNIDAD EQU 0x6B
DECIMA EQU 0x6C
CENTESIMA EQU 0x6D

ORG 0x00
gotoINICIO

ORG 0x04
bcf INTCON,GIE

btfsc INTCON,RBIF
goto TECLA
btfsc INTCON,T0IF
goto TIMER_0

ORG 0x20

INICIO
call INI_PORTScall INI_I2C
call Start_cond
call SendWrtAddr

call BANCO_0
clrf SCREEN
bsf SCREEN,0
call CLS
call BANCO_0
movlw 0x4Amovwf COMANDO
call SEND_C
call BANCO_0
movlw 0x43
movwf COMANDO
call SEND_C
call BANCO_0
movlw 0x51
movwf COMANDO
call SEND_Ccall BANCO_0
movlw 0x53
movwf COMANDO
call SEND_C
call BANCO_0
movlw 0x46
movwf COMANDO
call SEND_C
movlw 0xFF
call BANCO_0movwf KEY_P
clrf FILA
bsf FILA,0
clrf POS_CUR

call DEFAULT_PA
call CALC_K1
call CALC_K2
call CONF_INT;--------------------------
Call BANCO_0
clrf TMR1H
clrf TMR1L
bcf PIR1,0
movlw b'00110001'
movwf T1CON
movlw 0x03
movwf PAUSA

BUC_P call BANCO_0btfss PIR1,0
goto BUC_P
bcf PIR1,0
decfsz PAUSA
goto BUC_P
movlw 0x03
movwf PAUSA
bcf INTCON,GIE
btfss SCREEN,0
goto SKIP_UNO; ----------------------------------------
call TRANS_SP_A
movlw 0x83
movwf BEXP
movlw 0x20
movwf BARGB0

clrf BARGB1
call FPM24call DISP_5
call FLOAT_ASCII
call TRANS_IN_A
movlw 0x83
movwf BEXP
movlw 0x20
movwf BARGB0
clrf BARGB1
call FPM24
call...