ну и занеси в регистр B чегонить, в цикле добавь и курага, не?

типа

ld b, нумер
ld hl, 40000
ld de, размер фрейма в байтах
L1 add hl, de
djnz L1

не?