usr_rf_set_bit_24
   bcf status,rp0                   ;cambiar a banco 0
   bcf status,rp1
   movf rf_num_max_bits,w           ;si el reg rf_cont_bits < rf_num_max_bits
   subwf rf_cont_bits,w
   btfsc status,c
   goto usr_rf_set_bit_2453
   movf rf_cont_bits,w              ;sumar a 8 bits (w = rf_cont_bits + rf_cont_bits)
   addwf rf_cont_bits,w             ;guardar el resultado en w
   addwf pcl,1                      ;calcular desplazamiento (numero del bit  a modificar por dos)
   bsf rf_input_byte_0,rf_in_adr_0
   retlw 0x00                       ;agregar retorno (retlw 0)
   bsf rf_input_byte_0,rf_in_adr_1
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_0,rf_in_adr_2
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_0,rf_in_adr_3
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_0,rf_in_adr_4
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_0,rf_in_adr_5
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_0,rf_in_adr_6
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_0,rf_in_adr_7
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_1,rf_in_adr_8
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_1,rf_in_adr_9
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_1,rf_in_adr_10
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_1,rf_in_adr_11
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_1,rf_in_adr_12
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_1,rf_in_adr_13
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_1,rf_in_adr_14
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_1,rf_in_adr_15
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_2,rf_in_adr_16
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_2,rf_in_adr_17
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_2,rf_in_adr_18
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_2,rf_in_adr_19
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_2,rf_in_adr_20
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_2,rf_in_adr_21
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_2,rf_in_adr_22
   retlw 0x00                              ;agregar retorno (retlw 0)
   bsf rf_input_byte_2,rf_in_adr_23
   retlw 0x00                              ;agregar retorno (retlw 0)
usr_rf_set_bit_2453
   movlw 0xff
   goto usr_rf_set_bit_24_salir
usr_rf_set_bit_24_salir
   bcf status,rp0                   ;cambiar a banco 0
   bcf status,rp1
   return