dvf

|Divide fractions. Yields C(AC)/n where n must be greater than C(AC).
|Calling sequence: llr ., tra dvf, add (n, tra ovf.

reloc
entry dvf

dvf,	sto AN
	lac
	add (2
	sto pa
	add (tra 2-llr
	sto xit
pa,	xx
	slr pb
	cla
pb,	xx
	alo
	add AN
	trn .+3
	ial 40
	ial 40
	sto AN
	lac
	llr (opr
	trn n
	llr .+1
	com
n,	sto BC
	slr sgn
	com+lro-opr
	sto B
	add AN
	trn ovf
	tra ent

lp,	ial-10
	trn lp1
	tra sgn

lp1,	ial-10
	add B
	trn lp

ent,	add BC
	ial-10
	add (-1
	trn lp1

sgn,	xx
xit,	xx
ovf,	llr xit
	ial
	add (-1
	sto .+1
	xx

const
17734|	vari

start