LD H,A
LD L,0
SRL H
RR L ;HL = A*128
RLCA
RLCA
RLCA
LD E,A
LD D,0 ;DE = A*8
AND A ;CF=0
SBC HL,DE
RET