LIBRERIA+CENTENAS+DECCENAS+UNIDADES

ESTA ES LA LIBRERIA DE CENTENAS DECENAS Y UNIDADES

CBLOCK .100 UNID DEC CENT DATO ENDC CENT_DEC_UNID CLRF UNID CLRF DEC CLRF CENT CICLO MOVF DATO,W SUBLW D'9' BTFSS STATUS,C GOTO DATO_MENOS_10 GOTO DATO_IGUAL_UNIDAD DATO_IGUAL_UNIDAD MOVF DATO,W MOVWF UNID GOTO TERMINAR DATO_MENOS_10 DECF DATO,F DECF DATO,F DECF DATO,F DECF DATO,F DECF DATO,F DECF DATO,F DECF DATO,F DECF DATO,F DECF DATO,F DECF DATO,F MOVF DEC,F INCF DEC,F MOVF DEC,W SUBLW D'10' BTFSS STATUS,Z GOTO IR_A GOTO INCREMENTO_CENTENA IR_A GOTO CICLO INCREMENTO_CENTENA INCF CENT,F CLRF DEC GOTO IR_A TERMINAR RETURN