*20
	PMODE
	*3000
FLOAT,	0
	TAD 64
	DCA 45
	DCA 46
	TAD FCM13
	CIA
	DCA 44
	JMS I 7
	FNOR
	FEXT
	JMP I FLOAT
SINK,	0
	TAD 44
	SZA SMA
	JMP .+3
	CLA
	JMP FCA+1
	TAD FCM13
	SNA
	JMP FCA
	SMA
	JMP FCA+3
	DCA 44
	CLL
	TAD 45
	SPA
	CML
	RAR
	DCA 45
	ISZ 44
	JMP .-7
FCA,	TAD 45
	DCA 64
	JMP I SINK
	DCA 61
	JMP .-3
FCM13,	-13
ROUND,	0
	TAD I IGO2
	DCA 15
	TAD 45
	RAL
	CLA RAR
	DCA FAF
	JMS I 7
	FABS
	FPUT FAB
	FEXT
	TAD 65
	SMA
	JMP .+4
	DCA FAG
	TAD FAI
	JMP .+3
	CIA
	DCA FAG
	TAD FAH
	DCA FAJ
	JMS I 7
	FGET FA10
	FDIV FA10
	FEXT
	TAD 65
	SNA
	JMP .+6
	JMS I 7
FAJ,	FMPY FA10
	FEXT
	ISZ FAG
	JMP .-4
	JMS I 7
	FPUT FAC
	FMPY FAB
	FPUT FAD
	FINT
	FPUT FAE
	FSUB FAD
	FADD FA5
	FEXT
	TAD 45
	SMA
	JMP .+7
	JMS I 7
	FGET FA10
	FDIV FA10
	FADD FAE
	FPUT FAE
	FEXT
	JMS I 7
	FGET FAE
	FDIV FAC
	FEXT
	TAD FAF
	SZA
	JMS I FACMNS
	TAD 15
	DCA I IGO2
	JMP I ROUND
IGO2,	GO2
	GO2=5655
FAB,	0
	0
	0
FAC,	0
	0
	0
FAD,	0
	0
	0
FAE,	0
	0
	0
FA10,	4
	2400
	0
FA5,	0
	2000
	0
FAF,	0
FAG,	0
FAH,	FMPY FA10
FAI,	1000
FACMNS,	ACMINS
	ACMINS=6000
	*3200
ABSOL,	0
	CLA CLL
	TAD 45
	SPA
	JMP .+3
	CLA CLL
	JMP I ABSOL
	JMS I .+2
	JMP .-2
	ACMINS
INPT,	0
	JMS I 5
	JMP I INPT
OUTP,	0
	CLA
	JMS I 7
	FPUT FOUTP
	FEXT
	CLA
	TAD 63
	JMS I 6
	JMS I 7
	FGET FOUTP
	FEXT
	JMP I OUTP
FOUTP,	0
	0
	0
INTR,	0
	CLA CLL
	JMS I ISINK
	JMS I IFLOAT
	CLA CLL
	JMP I INTR
ISINK,	SINK
IFLOAT,	FLOAT
	FEXT=0
	FADD=1000
	FSUB=2000
	FMPY=3000
	FDIV=4000
	FGET=5000
	FPUT=6000
	FNOR=7000
	FSQR=1
	SQRT=2
	FSIN=3
	FCOS=4
	FATN=5
	FEXP=6
	FLOG=7
	FSNK=10
	FLOT=11
	FABS=12
	FINP=13
	FOUT=14
	FINT=15
	FRND=16
	FENT=JMS I 7
	INPF=JMS I 5
	OUTF=JMS I 6
	LMODE
	SEGMNT 2
	*20
	PDP
	PMODE
	TLS
START,	CLA CLL
	KSF
	JMP .-1
	KCC
	OSR
	SPA
	JMP TWO+1
	TAD M777
	SMA
	JMP TWO
	TAD P777
	DCA FUN
	JMP ONE
TWO,	TAD P777
	TAD ADD
	DCA FUN
	INPF
	FENT
	FPUT A
	FEXT
ONE,	INPF
	FENT
FUN,	0
	FEXT
	TAD P5
	OUTF
	JMP START
ADD,	A&177!200
A,	0
	0
	0
P777,	777
M777,	-777
P5,	5
	CRLF=JMS .
	0
	CLA CLL
	TAD CR
	TYPE
	CLA CLL
	TAD LF
	TYPE
	JMP I .-7
CR,	215
LF,	212
	TYPE=JMS .
	0
	TSF
	JMP .-1
	TLS
	JMP I .-4
	*5
	7400		/INPUT
	7200		/OUTPUT
	*7374
	3150		/MAKE OUTPUT
/			/MORE ACCURATE
/			/DIV BY 10+
	*7207
	1055		/SO CAN CR AFTER
/			/OUTPUT
	*62
	7		/NO. CHAR OUT
	7		/NO. TO RIGHT
	0		/SINK FLOAT
	2		/ROUNDING
	*6554		/COMMAND TABLE
	SINK
	FLOAT
	ABSOL
	INPT
	OUTP
	INTR
	ROUND
	0