/
/ VERSION 5A 4-27-77  PT
/
	SECT	SIGN
	ENTRY	ISIGN
	JA	#ST
#XR,	ORG	.+10
	TEXT	'SIGN  '
#BASE,	ORG	.+3
A,	ORG	.+3
B,	ORG	.+3
	ORG	#BASE+31
	JA	#BASE
GOBACK,	0;0;0
	BASE	#BASE
ISIGN,
#ST,	STARTD
	0210
	FSTA	GOBACK+1,0
	0200
	SETX	#XR
	SETB	#BASE
	LDX	0,1
	FSTA	#BASE
	FLDA%	#BASE,1+
	FSTA	A
	FLDA%	#BASE,1+
	FSTA	B
	STARTF
	FLDA%	B
	JLT	#50
	FLDA%	A
	JLT	#100
	JA	GOBACK+1
#50,	FLDA%	A
	JLT	GOBACK+1
#100,	FNEG
	JA	GOBACK+1
	END
