binhold = (( A1minS & $f0)>>4*10)+( A1minS & $0f) 'covert bcd to binary

binhold =binhold -1

How do i now convert back to bcd ?

Whould the result be correct?