float define Feb 3,1960
fit=30
fpc=fit+10
fac=fpc+1
flt=fac+13
define
	float
	llr .
	tra flt
	terminate
fid=0	|index decrement, y
ftp=020000	|transfer on plus to x, but not +0
ftn=040000	|transfer on neg to x, but not -0
ftz=060000	|transfer on zero to x
fnz=100000	|transfer on non-zero to x
fca=120000	|clear, and add x
fad=140000	|add x
fcs=160000	|clear, and subtract x
fsb=200000	|subtravt x
fst=220000	|store accumulator in x
fmp=240000	|multiply by x
fdv=260000	|divide by x
fxt=300000	|exit:transfer computer control to x
fts=320000	|transfer to subroutine in floating point
fht=340000	|halt, then transfer to x
ftx=360000	|transfer with index register n increased by y
flx=400000	|load index register n with contents of x
fti=420000	|trns to x if i.r. exceeds y,if not, proceed. If trns,n-y to n.
fla=440000	|loads address with contents of index register n
fir=560000	|denotes an indexed operation.  Use before operution.
ftr=600000	|unconditional transfer to x
fsz=460000	|store zero in x
ftd=500000	|trns if index exceeds decrement.  ind.reg.not changed.
fal=520000	|add logical contents of x to pseudo accumulator
fsl=540000	|store the fractional part (only) of the acc. in x
ftb=620000	|test bit n of tac, if off skip next instruction.
fhn=640000	|halt, display n in live reg,add 1s in acc, then to fhl
fcv=660000	|convert fixed to floating.  Muse be used after fid.
frc=700000	|convert float to bin, use after fid, overflow set if runs over.
	|use of an undefined octal number, such as 720000, will cause fio alarm
fhl=740000	|halt, then proceed
fsp=740001	|set plus
fsn=740002	|set negative   None of the 740000 series is addressable.
fch=740003	|change sign
foz=740004	|operate zero - does nothing.
fov=740005	|skip next inst. if no ovrflw.  Always clears overflow indicator.
fdc=740006	|same as fov, except for divide by zero check.
define
	falx X,N
	fir N
	fal X
	terminate
define
	fslx X,N
	fir N
	fsl X
	terminate

define
	fcax X,N
	fir N
	fca X
	terminate
define
	fadx X,N
	fir N
	fad X
	terminate
define
	fcsx X,N
	fir N
	fcs X
	terminate
define
	fsbx X,N
	fir N
	fsb X
	terminate
define
	fstx X,N
	fir N
	fst X
	terminate
define
	fmpx X,N
	fir N
	fmp X
	terminate
define
	fdvx X,N
	fir N
	fdv X
	terminate
define
	ftxx X,N,D
	fid D
	fir N
	ftx X
	terminate
define
	ftix X,N,D
	fid D
	fir N
	fti X
	terminate
define
	flxx X,N
	fir N
	flx X
	terminate
define
	flax X,N
	fir N
	fla X
	terminate
define
	fxtofl N
	fid N
	fcv
	terminate
define
	fltofx N
	fid N
	frc
	terminate
define
	fszx X,N
	fir N
	fsz X
	terminate
define
	ftdx X,N,D
	fid D
	fir N
	ftd X
	terminate
define
	fmp2to N
	fxt .+1
	add fac+1
	add (N
	sto fac+1
	float
	terminate
start 54
t