/public routine, pass 1 only

7747/
	dcc		/pa
	hlt+cla+cli-opr-opr
	lac r0		/entry
	lio r2

xe3,xe4,	xx		/procede
	jmp .
	jmp .

xe1,xe2,	xx		/execute
	bpt
	bpt

dfe,	7751		/dfd
dfq,	0		/dfp

r1,	0
r2,	0

r0,	0
	dac r1
	dio r2
	lio dfq
	dia
	lio dfe
	cla
	dcc
	hlt+cla+cli-opr-opr
	jmp plc
7777,	jmp lis

bpt=jda r0

start