prime or not

MOV DI,02H
MOV CX,[2000H]
MOV BX,CX
L1:INC DI
DEC BX
MOV AX,CX
MOV DX,00H
DIV BX
CMP BX,02H
JNZ L4
JMP L5
L4:CMP DX,00H
JNZ L1
L5:CMP DI,CX
JZ L2
JMP L3
L2:MOV [3000H],01H
HLT
L3:MOV [3000H],00H
HLT