ЭТЮДЫ

[LW]

поделить на 7 сдвигами

;A=A mod 7
	ld	c,a
	xor	a
	ld	b,#08
label2	rl	c
	adc	a,a
	sbc	a,7
	jr	nc,label1
	add	a,7
label1	djnz	label2