mpy

|Calling sequence: llr ., tra mpy, add a, ..., a| n. Yields contents of AC times n.

reloc
entry mpy

mpy,	sto b
	lac
	add (2
	sto pua
	add (tra-llr+1
	sto don
pua,	xx		|pick up argument
	slr ada
	cal

lp,	clad b
	cyl
	sto b
	trn ngt
	lal
	tra pst

ngt,	lal
ada,	xx

pst,	alo
	add ct
	cyl
	sto ct
	trn lp
	lac+lro-opr
	cyr
don,	xx

ct,	-trn

ers=17740
b=ers-1

const
start
v