*20
	PMODE
	*3000
FLOAT,	0
	TAD 65
	DCA 45
	TAD 66
	DCA 46
	TAD FD27
	DCA 44
	JMS I 7
	FNOR
	FEXT
	JMP I FLOAT
FD27,	27
ROUND,	0
	TAD I IGO2
	DCA 15
	TAD 45
	RAL
	CLA RAR
	DCA FAF
	JMS I 7
	FABS
	FPUT FAB
	FEXT
	TAD 64
	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 64
	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
SINK,	0
	JMS I FGMNS
	JMS I FGMNS
	TAD 45
	DCA 65
	TAD 46
	DCA 66
	TAD 44
	SZA SMA
	JMP .+5
	CLA
	DCA 65
	DCA 66
	JMP I SINK
	TAD FGM27
	SNA
	JMP FGT
	SMA
	JMP FGH
	DCA FGE
FGC,	CLL
	TAD 65
	SPA
	CML
	RAR
	DCA 65
	TAD 66
	RAR
	DCA 66
	ISZ FGE
	JMP FGC
	JMP FGT
FGH,	DCA 61
	DCA 65
	DCA 66
	JMP I SINK
FGT,	CLA CLL
	TAD FGS
	JMP FGMNS-2
	JMS I FGMNS
	TAD 66
	CIA
	DCA 66
	TAD 65
	CMA
	SZL
	IAC
	DCA 65
	CLA CLL
	JMP I SINK
FGMNS,	ACMINS
FGM27,	-27
FGE,	0
FGS,	0
/
/
	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
	5600		/FPT ENTR
/
/
	*7374
	3150		/MAKE OUTPUT
/			/MORE ACCURATE
/			/MULT BY 0.1+
	*7207
	1055		/SO CAN CR AFTER
/			/OUTPUT
/
	*61
	0		/61=ERROR FLAG
	7		/62=NO. CHAR OUT
	7		/63=NO. TO RIGHT
	2		/64=ROUNDING
	0		/65=H ORD SNK-FL
	0		/66=L ORD SNK-FL
/
/
	*6554		/COMMAND TABLE
	SINK
	FLOAT
	ABSOL
	INPT
	OUTP
	INTR
	ROUND
	0
/
/
	*7507		/THIS IS NEW
	7575		/0.1 FOR INPUT
	*7575		/ROUTINE
	7775
	3146
	3147