mpf

|multiply fractions. Calling sequence: llr ., tra mpf, add a, ... a| n.
|Yields C(AC) X n.

reloc
entry mpf

mpf,	sto B
	lac
	add (2
	sto pa
	add (tra 1-llr
	sto xit
pa,	xx
	slr pb
	cla
pb,	xx
	llr B

mp,	ial 40
	ial 40
	trn mp
	slr B
	alo
	sto PRD
	add (-20

lp,	sto CT
	lal
	trn n
	alo
	add B
	shr
	sto B
	tra p

n,	alo
	add B
	shr
	sto B
	add prd
	sto prd

p,	clad CT
	add (1
	trn lp
	llr prd
	lac
xit,	xx

const
17734|	vari

start
tm