*20
	LMODE
	SEGMNT 2
	*20
	PDP
	PMODE
	TLS
START,	CLA CLL
	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
	FENT=JMS I 7
	FEXT=0
	OUTF=JMS I 6
	INPF=JMS I 5