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