                               
fcdddt saver high

readin

7751/
cc1,	lat
	dip f1
	rar 6s
	dip f2
	lio f2
	dia
	lio f1
	cla
cc2,	dcc
	jmp j1
	lac in		/ddt in core?
	sas cc1
	jmp j1
	lac rd2-2
	sad cc2
	jmp in
j1,	lat+cli+hlt-opr-opr
	jmp 7751
f1,	7751
f2,	0

start 7751
                
                                                                                                                                                                                                                       
