Как-то так
Код:
ld hl,#4001
ld de,#4000
ld bc,6912
ldir
ld hl,#401f
ld de,32
ld b,27
clr_rig:
ld (hl),0
add hl,de
djnz clr_rig