*20
	PMODE
	*200
	LAS		/RT SW TO ACC
	RAL		/ROT ACC TO LNK
	SZL		/BIT SET?
	ISZ C		/YES, INC C
	CLL		/IF LNK SET,CLR
	SZA		/ALL BITS CLEAR?
	JMP .-5		/NO, ROTATE MORE
	TAD C		/YES,ACC CLR, SO
	ISZ C		/WAIT WITH COUNT
	JMP .-1		/IN ACCUMULATOR
	JMP 200		/DO AGAIN
C,	0