(***)判断一个不超过65535的整数是否为质数。
DATAS SEGMENT
BUF1 DW 6532
BUF2 DB 'YES','$'
BUF3 DB 'NO','$'
DATAS ENDS
STACKS SEGMENT
;此处输入堆栈段代码
STACKS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
MOV AX,DATAS
MOV DS,AX
;此处输入代码段代码
MOV CX,BUF1
CMP CX,0
JE NO
DEC CX
L:
MOV AX,BUF1
MOV DX,0
DIV CX
CMP DL,0
JE NO
DEC CX
CMP CX,1
JE YES
JMP L
YES:
LEA DX,BUF2
MOV AH,09H
INT 21H
JMP END0
NO:
LEA DX,BUF3
MOV AH,09H
INT 21H
JMP END0
END0:
MOV AH,4CH
INT 21H
CODES ENDS
END START
