LOOP:
RLF NUMERO, W ;Procedo a multiplicarlo por 2 primero (2*k)
MOVWF TEMP ; Lo guardo en un registro temporal
INCF TEMP, F ; Le sumo 1 (1 + 2*k)
RLF TEMP, W ; Lo multiplico por 2 y guardo en W - 2*(1+2*k)
ADDWF RESULTADOL ; Lo sumo al total
BTFSC STATUS,C ; Se excedio de lso 8 bits ?
INCF RESULTADOH ; Incremento en 1 la parte alta si es que fue asi.
DEFSZ NUMERO, F ; Decremento de a 1 numero para pasarlo por todos los valores
GOTO LOOP ; Mientras no llegue a 0 vuelva a repetir