ЭТЮДЫ

[mishutka]

ld hl,5800h
ld de,5801h
xor a
push af
label
pop af
ld bc,32; (или 31 (не помню тонкостей ldir) и еще увеличить hl и de)
ld (hl),a
ldir
add a,8
and 38h
push af
ld a,d
cp 5bh
jr nz,label
pop af

естественно что можно процедуру оптимизировать