opt

reloc
entry opt
exit rtn

opt,	sto t
	slr xit
	load opu, trn opj

opq,	llr t
	lal
	cyl
	cyl
	sto t
	llr (7
	ana
	llr opj+2
	add (add fch
	sto .+1
	xx

opu,	xx
	slr opu
	pno

opj,	cla
	add opc
	cyr
	sto opc
	trn opq
	cyl
	trn opq-1
	tra rtn

opc,	171717

fch,	flex  0t-add-fch
	flex 11 -add-fch-1
	flex 22 -add-fch-2
	flex 33 -add-fch-3
	flex 44 -add-fch-4
	flex 55 -add-fch-5
	flex 66 -add-fch-6
	flex 77 -add-fch-7

ers=17740
xit=ers
t=ers-1

const
start

rtn rtl
reloc
entry rtn,rtl

rtn,	llr xit
rtl,	lac
	add (tra-llr+2
	sto rtx
	cal
rtx,	xx

xit=17740

const
start