program to find LCM

mov bx,[2002h]
mov cx,[2000h]
mov di,[2002h]
dec di
l1: inc di
mov ax,di
 div cx
 cmp dx,00h
jz l5
jnz l1
l5:mov ax,di
div bx
cmp dx,00h
jz l6
jnz l1
l6:mov [4000h],di
hlt