D00000=0000
L00001=0001
D00016=0016
D00077=0077

	FIELD	0

	*7000
L07000,	CDF CIF 0
	JMP I P07002
P07002,	L07003
L07003,	CLA OSR 
	SMA 
	JMP L07017
	CLA 
	6305
D07010,	6304
L07011,	6300
	JMP L07011
	6306
	SZA 
	HLT
	JMP L07075
L07017,	6700
	6701
L07021,	6703
	AND D07105
	SZA CLA 
	JMP L07021
	6701
	TAD D07106
	6702
	ISZ P07112
L07031,	6705
	JMP L07031
D07033,	6703
	AND D07107
	SZA 
	HLT
	CLA CLL RAL IAC
	6701
	CLA IAC
	6702
	6701
	DCA P07112
	TAD D07110
	6702
	CLA CLL CML RAL IAC
	6701
L07051,	JMS P07061
	BSW 
	DCA D07113
	JMS P07061
	TAD D07113
	DCA I P07112
	ISZ P07112
	JMP L07051
P07061,	L07000
L07062,	6704
	JMP L07067
	6703
	AND D07111
	JMP I P07061
L07067,	6705
	JMP L07062
	6701
	6703
	SZA 
	HLT
L07075,	CLA 
	6701
	JMP L00001
	AND D00000
	AND D00000
	AND D00000
	AND D00000
	AND D00000
D07105,	0001
D07106,	0016
D07107,	0233
D07110,	0210
D07111,	0077
P07112,	D00000
D07113,	0000
$