*20
/DAN GRAY
/OCTOBER 15,1970
/ROTATES AN ON BIT THROUGH
/THA ACCUMULATOR, AT 
/DIRECTION SPECIFIED BY RIGHT
/SWITCHES ZERO BIT AND AT
/SPEEDS SPECIFIED BY LOW ORDER
/RIGHT SWITCH SETTINGS.SENSE
/SWITCH ZERO COMPLEMENTS AND
/THUS ROTATES A HOLE.
	CLR
BEGIN,	RSW
	ROL I 1
	ADA I
	0001
	COM
	STC 17
	SNS 0
	JMP .+3
	LDA I
	0001
	SAE
	A
	JMP .+2
	JMP .+5
	STC A
	ADD B
	COM
	STC B
	LDA
	B
	LZE
	ROR 2
	ROL 1
	SNS I 1
	JMP .+4
	STC B
	CLR
	ADD B
	SET I 16
	0000
	XSK I 16
	JMP .-1
	XSK I 17
	JMP .-5
	STC B
	JMP BEGIN
A,	0000
B,	0001
	0000