D00000=0000
D00010=0010
L00200=0200

	FIELD	0

	*7600
L07600,	TAD D07726
	6326
L07602,	6322
	SNA 
	JMP L07602
	7421
	6322
	6321
	CLA CLL CMA 
	6327
	7701
	CLL RAL 
	SZL 
	JMP L07625
	RAL 
	SZL 
	JMP L07630
	RAL 
	SZL CLA 
	JMP L07634
	JMP L07600
L07625,	TAD P07727
	6326
	JMP L07637
L07630,	CLA CLL CML RAR 
	6326
	CLA CLL RAL IAC
	JMP L07637
L07634,	CLA CLL CML RTR 
	6326
	CLA CLL RTL IAC
L07637,	CLL RTL 
D07640,	7001
	7421
	CLA CLL BSW IAC
	6326
	6365
	6364
	6373
	NOP
	AND D07726
	SZA CLA 
	JMP L07661
	CLA CLL CML RAL IAC
	6375
L07655,	6373
	JMP L07655
	CLA CLL 
	6365
L07661,	7721
	6375
	JMS S07716
	DCA P07730
	JMS S07716
	DCA D07731
L07667,	JMS S07716
	DCA I P07730
	7521
	TAD I P07730
	7521
	ISZ P07730
	ISZ D07731
	JMP L07667
	JMS S07716
	DCA P07730
L07701,	CLA CLL CML RAL IAC
	6375
	CLA CLL BSW IAC
	6327
	7721
	CIA
	TAD P07730
	SNA CLA 
	JMP I P07727
L07712,	TAD D07726
	6311
	CLA CLL CML RAL IAC
	JMP L07600
S07716,	0000
L07717,	6373
	JMP L07717
	AND D07640
	SNA CLA 
	JMP L07712
	6376
	JMP I S07716
D07726,	0010
P07727,	L00200
P07730=7730
D07731=7731

	*7756
L07756,	KCC
L07757,	KSF 
	JMP L07757
	KRB
	CLL RTL 
	RTL 
	SPA 
	JMP L07757
	RTL 
L07767,	KSF 
	JMP L07767
	KRS
	SNL 
	DCA I P07776
	DCA P07776
	JMP L07756
P07776,	D00000
	JMP L07701
$