DIV	START
BEGIN	LD	GR3,X
	LD	GR1,Y
	LD	GR2,A
	LAD	GR0,0,GR3
LOOP	SUBL	GR3,Y
    LAD	GR2,1,GR2
    CPL	GR3,Y
	JPL	LOOP
    JZE LOOP
	RET
X	DC	64
Y	DC	8
A	DC	0
M	DS	1
	END