用汇编语言球100以内的素数.doc

count dw 0;存放素数的个数
sum dw 0;存放素数的和
sushu db 100 dup(?);存放素数
msgsushu db 'all of sushu are:','$';显示素数的提示信息
msgcount db 0dh,0ah,'count of sushu is:',0dh,0ah,'$';显示素数个数的提示信息
msgsum db 0dh,0ah,'sum of sushu is:',0dh,0ah,'$';显示素数和的提示信息
DSEG ENDS
CSEG SEGMENT
assume cs:CSEG, ds:DSEG
MAIN PROC FAR ;主程序入口
call jisuan;将100以内素数的个数存入COUNT单元中,素数的和存入SUM单元中,并将素数存入内存自SUSHU开始的单元中
lea dx,msgsushu;显示素数的提示信息
mov ah,9
int 21h
call dispsushu;显示素数
lea dx,msgcount;显示素数个数的提示信息
mov ah,9
int 21h
call dispcount;显示素数个数
lea dx,msgsum;显示素数和的提示信息
mov ah,9
int 21h
call dispsum;显示素数和

mov ah,1;按任意键退出
int 21h
mov ax, 4c00h ;程序结束,返回到操作系统系统
int 21h
MAIN ENDP
jisuan proc near
mov ax, dseg
mov ds, ax
lea di,sushu
mov bh,0
mov bl,2;求从2到100的素数、素数个数、素数的和,BL从2到100变化
next11:
cmp bl,100
ja tj
mov dl,2;如果BL不能被DL从2到BL-1整除的话,则BL为素数
next12:
cmp dl,bl
jae next13
mov ax,bx
div dl
cmp ah,0
jz next14;整除则不是素数
inc dl
jmp next12
next13:
inc count;是素数,则将个数加1
add sum,bx;是素数,则加到和中
mov [di],bl;是素数,则存入相应单元中
inc di
next14:
inc bl
jmp next11
tj:ret
jisuan endp
dispsushu proc near
lea si,sushu
mov cx,count
next21:
mov ax,count;每行10个素数
sub ax,cx
mov bl,10
div bl
cmp ah,0
jnz next22
mov dl,0dh;每行10个素数,行末加回车换行
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
next22:
mov bl,[si];取出一个素数
mov bh,0
call disp10;以十进制形式输出
mov