AUTO=10

FIELD 1

*2123
ENABL1,	0001

*2743
ENABL2,	0001

*3462

GTSMSR,	0
	CLA CLL
GTLOP,	DCA TEM2
	ADSF
	JMP .-1

	CLSA
	CLA

	ADRB
	CLSK
	JMP .-1

	TAD MINMIT
	SPA CLA
	IAC
	CLL RAR
	TAD TEM1
	RAL
	DCA TEM1

	JMP GTLOC

*3520

GTLOC,	TAD TEM2
	STL RAL
	SMA
	JMP GTLOP

	CLA CLL
	TAD TEM1
	CDF 0
	DCA I AUTO
	CDF 10
	JMP I GTSMSR

MINMIT,	-767
TEM1,	0
TEM2,	0