Clear Block

;Clear Block - Steve Smith - 07-06-2017
;
;Clears a block of memory to '0'
;Pasmo Source for Sinclair Spectrum
;hl = start address
;bc = length-1

org 32768

start:
        push    hl
        pop     de
        inc     de
        ld      (hl),0
        LDIR

    ret

end start