prime2.asm

80X86的一些例子程序

;******************************************************
;* 文件名:Prime2.asm
;* 创建日期:2001.7.2
;* 作者:陈文尧
;* 功能:打印素数
;* 备注:本程序是Prime.asm的修订版本
;******************************************************
include system.inc

;******************************************************
;* 以下代码由汇编专家产生,不要随便修改
;******************************************************
.CODE
	ifdef __COM__
		org	100h
	endif
@@Start:
;------------------------------------------------------
; 初始化数据段
;------------------------------------------------------
	InitDS	cs
;------------------------------------------------------
; 调用主函数
;------------------------------------------------------
	call	main
;------------------------------------------------------
; 正常返回DOS
;------------------------------------------------------
	ReturnDos

;++++++++++++++++++++++++++++++++++++++++++++++++++++++
;+ 主函数,加入实现程序功能的代码
;++++++++++++++++++++++++++++++++++++++++++++++++++++++
main	proc
	DisplayMessage	msg1
@GetNumber:
	LibCall		GetLong ;结果在dx:ax或eax
	or			eax,eax
	jg			short @Continue
	DisplayMessage	msg2
	jmp			@GetNumber
@Continue:
	mov			edi,eax
      LibCall		PutLong,dx,ax
	DisplayMessage	msg3
	sub			esi,esi
	sub			ch,ch
@Outer:
	inc			esi
	call			Limit
	cmp			ebp,00000001h
	jg			short @Skip
	cmp			esi,ebp
	jz			short @Outer@End
	jmp			short @Print
@Skip:
	sub			ebx,ebx
	inc			ebx
@Inner:
	inc			ebx
	mov			eax,esi
	sub			edx,edx
	div			ebx
	or			edx,edx
	jz			short @Outer@End
      cmp			ebx,ebp
      jb			@Inner
@Print:
      inc			ch
      and			ch,07h
      jnz			short @Skip@Crlf
      inc			ch
      push			cx
      LibCall		Crlf
      pop			cx
@Skip@Crlf:
      mov			eax,esi
      shr			eax,10h
      push			cx
      LibCall		PutLongEx,ax,si,11d,10d
      pop			cx
@Outer@End:
	cmp			esi,edi
	jb			@Outer
	;
	ret
main	endp

Limit proc near
      sub		cl,cl
      mov		eax,esi
      mov		ebp,eax
@Limit@Begin:
      shr		eax,01h
      jz		short @Limit@End
      inc		cl
      jmp		@Limit@Begin
@Limit@End:
      cmp		cl,01h
      jz		short @Limit@Skip
      shr		cl,01h
@Limit@Skip:
      shr		ebp,cl
      ;
      ret
Limit endp

msg1	db	'求n（n为正整数）以内的素数，请输入n值：$'
msg2	db	'输入的n值不合格，请重新输入：$'
msg3	db	'以内的素数有：',0dh,0ah,'$'
;******************************************************
;* 标志程序结束并指定程序入口
;******************************************************
	end	@@Start