DIV	START
BEGIN	LD	GR1,X
	LD	GR2,A
LOOP	SUBL	GR1,Y
    ADDL	GR2,=1
    CPL	GR1,Y
	JPL	LOOP
    JZE LOOP
MOD	LAD	GR3,0,GR1
	ST	GR3,M
FIN	ST	GR2,A
	RET
X	DC	87
Y	DC	11
A	DC	0
M	DS	1
	END