D00000=0000

	FIELD	0

	*0001
	5602
P00002,	L06655
D00007=0007

	*6600
	CLA CLL 
	DCA D06767
	HLT
	CLA OSR 
L06604,	DCA P06773
	TAD P06773
	TAD D06777
	DCA P06772
	TAD I P06772
	DCA D06771
D06612,	1376
	DCA I P06772
	CLA OSR 
D06615,	7640
	JMP L06641
	TAD D06767
	SZA CLA 
	JMP L06634
L06622,	TAD I P06773
	AND D06671
	TAD D06672
	SZA CLA 
	JMP L06646
	ISZ D06767
	TAD P06773
	IAC
	DCA D06770
	JMP L06646
L06634,	TAD P06773
	CIA
	TAD D06770
	SZA CLA 
D06640,	5247
L06641,	DCA D06767
	JMP L06622
	HLT
	HLT
	HLT
L06646,	JMS P06673
L06647,	TAD D06774
	CLL RAR 
	TAD D06775
	JMP I P06772
	HLT
	HLT
L06655,	DCA D06775
	RAL 
	DCA D06774
D06660,	1371
	DCA I P06772
	KSF 
	JMP L06666
	KCC
	HLT
L06666,	TAD D00000
	JMP L06604
	HLT
D06671,	7000
D06672,	4000
P06673,	L07402
	JMS P06704
	TAD D06775
	JMS P06715
	TAD P06773
	JMS P06715
	TAD I P06773
	JMS P06715
	JMP I P06673
P06704,	L07402
	JMS P06751
	TAD D06774
	TAD D06750
	JMS P06761
	TAD D06714
	JMS P06761
	JMP I P06704
D06714,	0240
P06715,	L07402
	DCA D06741
	TAD D06741
	RTL 
	RTL 
	JMS P06742
	TAD D06741
	RTR 
	RTR 
	RTR 
	JMS P06742
	TAD D06741
	RAR 
	RTR 
	JMS P06742
	TAD D06741
	JMS P06742
	TAD D06714
	JMS P06761
	JMP I P06715
D06741,	7402
P06742,	L07402
	AND D06747
	TAD D06750
	JMS P06761
	JMP I P06742
D06747,	0007
D06750,	0260
P06751,	L07402
	TAD D06757
	JMS P06761
	TAD D06760
	JMS P06761
	JMP I P06751
D06757,	0215
D06760,	0212
P06761,	L07402
	TLS
L06763,	TSF 
	JMP L06763
	CLA 
	JMP I P06761
D06767,	0000
D06770,	0000
D06771,	0000
P06772,	D00000
P06773,	L07402
D06774,	0000
D06775,	0000
D06776,	6001
D06777,	7777
L07402=7402
$