Умножить на 85 (%1010101) и сдвинуть на 8 бит.
;l=число
ld h,0
ld d,h,e,l
add hl,hl ;*2
add hl,hl ;*4
add hl,de ;*5
add hl,hl ;*10
add hl,hl ;*20
add hl,de ;*21
add hl,hl ;*42
add hl,hl ;*84
add hl,de ;*85
;h=результат