out (c),a
ld h,a ; H = 7654 3210
rra ; A = *765 4321
add hl,hl ; H = 6543 210-
push af ; Carry flag (bit 7) preserved
add hl,hl ; H = 5432 10--
add hl,hl ; H = 4321 0---
rra ; A = 5765 4321
ld l,a ; L = 5765 4321
pop af ; Carry flag (bit 7) recovered
ld l,a ; L = *765 4321
ld a,h ; A = 4321 0---
rra ; A = 7432 10--