D07700=7700
S07701=7701

	FIELD	0

	*7702
L07702,	KSF 
	JMP L07702
	KRB
	JMP I S07701
S07706=7706

	*7707
	TAD I S07720
	DCA I S07720
	TAD I S07720
	TAD D07700
	SZL 
	CLL IAC
	DCA D07700
	ISZ S07720
	JMP I S07706
S07720=7720

	*7721
	JMS S07701
	CLL RTL 
	RTL 
	DCA I S07720
	JMS S07701
	AND D07744
	JMS S07706
	KRB
	CLL RTL 
	RTL 
	AND D07744
	DCA I S07720
	TAD P07767
	JMS S07701
	JMS S07706
	JMP I S07720
S07741=7741

	*7742
	DCA I P07767
	ISZ D07770
D07744,	7417
	JMP L07766
	ISZ P07767
	JMP I S07741
L07750,	JMS S07720
D07751=7751
D07752=7752

	*7753
	TAD D07751
	JMS S07741
	TAD D07752
	JMS S07741
	JMP L07771
L07760,	KCC
L07761,	JMS S07701
	SZA 
	JMP L07761
	JMS S07701
	DCA D07700
L07766,	JMS S07720
P07767=7767
D07770=7770

	*7771
L07771,	TAD D07770
	SZA CLA 
	JMP L07750
	TAD D07700
	ISZ D07700
	HLT
	JMP L07760
$