;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