LIST P=16F877 RADIX HEX

INCLUDE INCLUDE

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

ORG 0x00 goto INICIO

ORG 0x04 bcf INTCON,GIE

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

ORG 0x20

INICIO call INI_PORTS call INI_I2C call Start_cond call SendWrtAddr

call BANCO_0 clrf SCREEN bsf SCREEN,0 call CLS call BANCO_0 movlw 0x4A movwf COMANDO call SEND_C call BANCO_0 movlw 0x43 movwf COMANDO call SEND_C call BANCO_0 movlw …ver más…

S24 bcf STATUS,Z movlw 0xFF andwf AEXP,0 btfsc STATUS,Z clrf AARGB0 movlw 0x80 movwf BEXP movlw 0x40 movwf BARGB0 clrf BARGB1 bcf STATUS,Z movlw 0xFF andwf AEXP,0 btfss STATUS,Z call FPM24 call TRANS_D_B call FPA24 call TRANS_K2_B call FPM24 call TRANS_GN_B call TRANS_SP_B call FPA24

call BANCO_0 btfsc