                             drum zeroer

4000/

zdh,	hlt+cla+cli+7-opr-opr
zdr,	cla
	dap zdz
zdz,	dzm
	idx zdz
	sas (dzm 4000
	jmp zdz
	lac (200000
	dac zdf
	lat
zd1,	dac zdi
	sma
	jmp zds
	lio zdf
	dia
	law 4000
	cli 60
	dcc
	hlt
	law 4000
	add zdf
	opr 60
	dia
	law 4000
	cli 60
	dcc
	hlt
zds,	lac (i
	add zdf
	dac zdf
	sad (270000
	jmp zdh
	lac zdi
	ral 1s
	jmp zd1

zdi,	0
zdf,	0

constants

start zdh
                
                                                                                                                                      
