*20
	CLR
	PDP
	PMODE
	JMP I P200
P200,	200
	*200
	CLA CLL
	OSR
	DCA RSW
	TAD RSW
	AND M
	CIA
	DCA COUNT
	TAD RSW
	RAL 
	CLA
	TAD BIT
	SZL
	RTR CLL
	RAL CLL
	SNA
	JMS ADAC
	CLL
	ISZ IL
	JMP .-1
	ISZ COUNT
	JMP .-3
	DCA BIT
	JMP 200
ADAC,	0
	CLL
	OSR
	RAL
	CLA
	SZL
	TAD P3777
	TAD BIT2
	JMP I ADAC
BIT,	1
M,	3777
IL,	0
RSW,	0
COUNT,	0
BIT2,	1
P3777,	3777
	*4400
	LMODE
	701
	7300
/ROTATE BIT THROUGN ACCUMULATOR
	TITLE: D2 II