dlm

|Calling sequence: llr ., tra dlm, add a, ..., a| n.
|Yields contents of AC times n, high order in AC, low order in LR.

reloc
entry dlm

dlm,	ial
	add (2
	sto pua
	add (tra 1-llr
	sto xit
	lac
pua,	xx		|pick up argument
	slr pub
	alo
pub,	xx		|get value

bgn,	lpd
	sto HPR
	lpd
	trn .+2
	tra .+2
	com
	sto A
	lac
	trn .+2
	tra .+2
cm,	com
	sto B
	clad HPR		|take absolute values and set sign of product
	llr cm
	trn .+2
	load sgl, opr
	slr sgh
	cal
	sto HPR
	add (-600000

lp,	sto CT
	clad B
	cyl
	sto B
	trn neg
	lal
lp1,	llr (-600000
	anl 20		|retain low bits in LR,
	add HPR		|spill high bits into HPR.
	cyl
	sto HPR
	clad CT
	cyr
	trn lp

don,	clad HPR
	slr HPR		|now low order prod.
	llr (-400000
	anl 20
	cyr
	add HPR
sgl,	xx
	ial
sgh,	xx
xit,	xx

neg,	lal
	add A
	tra lp1

const

17734|	vari

start
m