; Подпрограмма выводит содержимое DS в строку STRING
 ; в двоичном виде. 
Bit01:	push	r16
	push	r17
	push	r18
	push	XL
	push	XH
	ldi	XL,low(string)
	ldi	XH,high(string)
	lds	r16,DS
	ldi	r17,8
tt:	ldi	r18,0x18
	lsl	r16
	rol	r18
	st	x+,r18
	dec	r17
	brne	tt
	pop	XH
	pop	XL
	pop	r18
	pop	r17
	pop	r16
	ret