Bueno gracias por su ayuda y disculpen que me olvide el lenguaje
que es Mikrobasic y es para un PIC , lo hice asi y me funciona.
Dim Digit as Byte[5]
Dim restauro , valor As Longint
Digit[0] = ((valor and $FFFF0000) >> 4)*10 + ((valor >> 24) and $0000FFFF)
Digit[1] = ((valor and $FFFF0000) >> 4)*10 + ((valor >> 16) and $0000FFFF)
Digit[2] = ((valor and $FFFF0000) >> 4)*10 + ((valor >>
and $0000FFFF)
Digit[3] = ((valor and $FFFF0000) >> 4)*10 + (valor and $0000FFFF)
restauro = Digit[0]
restauro = Digit[1] + (restauro <<
restauro = Digit[2] + (restauro <<
restauro = Digit[3] + (restauro <<
Si hay alguna forma de hacerlo mas simple se agradece