Можно сделать гораздо проще, короче, но помедленней (в зависимости от B):

Код:
SEC_BAK DEC E
        JP P,SEC_B2
        LD E,#0F
        DEC D
SEC_B2  DJNZ SEC_BAK
        RET