EXTERN	BUG
	EXTERN	CPUT
	SECT	DECODE
	JA	#ST
#XR,	ORG	.+10
	TEXT	+DECODE+
#RET,	SETX	#XR
	SETB	#BASE
	JA	.+3
#BASE,	ORG	.+6
N,	ORG	.+3
I,	ORG	.+3
J,	ORG	.+3
	ORG	#BASE+30
	FNOP
	JA	#RET
	FNOP
#GOBAK,	0;0
#ARGS,	ORG	.+3
I1,	ORG	.+0003
J1,	ORG	.+0003
#TMP,	ORG	.+0011
#LIT,	0001
	2000
	0000
	0002
	2000
	0000
	0002
	3000
	0000
	0003
	2000
	0000
	0003
	3000
	0000
	0005
	3500
	0000
	4040
	4040
	4040
	#LBL=.
	COMMON	GETCOM
IN1,	ORG	.+0003
IN2,	ORG	.+0003
IN3,	ORG	.+0003
IN4,	ORG	.+0003
IN5,	ORG	.+0003
IN6,	ORG	.+0003
	ORG	#LBL
#RTN,	BASE	#BASE
	JA	#GOBAK
#ST,	STARTD
	0210
	FSTA	#GOBAK,0
	0200
	SETX	#XR
	SETB	#BASE
	LDX	0,1
	FSTA	#BASE
	FSTA	#ARGS
	FLDA%	#BASE,1+
	FSTA	N
	FLDA%	#BASE,1+
	FSTA	I
	FLDA%	#BASE,1+
	FSTA	J
	STARTF
	LDX	0002,0
	LDX	0003,0
	LDX	0004,0
	FLDA	#LIT+0022
	FSTA	I1
	LDX	0005,0
	FLDA	#LIT+0022
	FSTA	J1
	LDX	0006,0
	FLDA%	N
	ATX	1
	STARTD
	FLDA	.+2,1
	STARTF
	JAC
	JA	#101
	JA	#102
	JA	#103
	JA	#104
	JA	#105
	JA	#106
	LDX	0007,0
	JSR	BUG
	JA	.+0004
	JA	#LIT+0017
	LDX	0010,0

#106,	JSR	CPUT
	JA	.+0010
	JA	J1
	JA	#LIT+0003
	JA	IN6
	LDX	0011,0

#105,	JSR	CPUT
	JA	.+0010
	JA	J1
	JA	#LIT+0000
	JA	IN5
	LDX	0012,0

#104,	JSR	CPUT
	JA	.+0010
	JA	I1
	JA	#LIT+0011
	JA	IN4
	LDX	0013,0

#103,	JSR	CPUT
	JA	.+0010
	JA	I1
	JA	#LIT+0006
	JA	IN3
	LDX	0014,0

#102,	JSR	CPUT
	JA	.+0010
	JA	I1
	JA	#LIT+0003
	JA	IN2
	LDX	0015,0

#101,	JSR	CPUT
	JA	.+0010
	JA	I1
	JA	#LIT+0000
	JA	IN1
	LDX	0016,0
	FLDA	I1
	FSTA%	I
	LDX	0017,0
	FLDA	J1
	FSTA%	J
	LDX	0020,0
	EXTERN	#NE
	JA	#RTN
	LDX	0021,0
	EXTERN	#NE
	JA	#RTN
#IT+0011
	JA	IN4
	LDX	0013,0

#103,	JSR	CPUT
	JA	.+0010
	JA	I1
	JA	#LIT+0006
	JA	IN3
	LDX	0014,0

#102,	JSR	CPUT
	JA	.+0010
	JA	I1
	JA	#LIT+0003
	JA	IN2
	LDX	0015,0

#101,	JSR	CPUT
	JA	.+0010
	JA	I1
	JA	#LIT+0000
	JA	IN1
	LD