exp

reloc
entry exp
exit dlm, xp2

exp,	slr xit
	sto t
	tslr dlm
	add (161251
	add t
	llr xit
	tra xp2

const

t=17727
xit=17740

start

xp2

|Calling sequence: llr ., tra xp2. Returns exp2 of number in AC taken with
|binary point between bits 5 and 6. Result has binary point to right of
|bit 17. Negative or excessively large numbers return negative answer.

reloc
entry xp2
exit dlm

xp2,	ial
	add (tra-llr+2
	sto exx
	lac
	trn exx
	add (170000
	trn exx
	lac
	llr (-7777
	anl 20
	cyl
	cyl
	cyl
	cyl
	slr SHC
	load EX, 200001
	alo
	tra e

lp,	lcc
g1,	xx
	trn fle

r,	clad I
	add (1
e,	sto I
	add (add c
	sto g1
	add (-add-c-7+1
	trn lp

a,	lac
	llr .
	tra dlm
	add (261344
	add (200001
	llr .
	tra dlm
	add EX
	cyl
	alo
	add SHC
	add (-200000
	tra s2

s1,	ial
	shr
	ial
s2,	add (10000
	trn s1
	lac+lro-opr
exx,	xx

fle,	com
	sto F
	llr I
	lcc
	llr EX
ml,	ial
	shr
	ial
	add (1
	trn ml
	lac
	add EX
	sto EX
	llr F
	tra r

c,	112700
	51151
	25601
	13144
	5536
	2672
	1340

const

17730|	vari

start