Code  Segment;定义段

   Assume CS:Code,DS:Code,ES:Code; 建立段寄存器寻址 ; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ; 功能：输出一个字符  ; 入口：dl=要显示的字符  Output_Chr  proc  Near ;定义过程.

   push  ax ;压入堆栈

   mov  ah,02h  ;调用中断输出一个数    int  21h     pop  ax ;弹出堆栈    ret ;过程返回 Output_Chr  endp ;过程结束 ; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－  ; 功能：把AX中的二进制无符号数转换成显式的十进制ASCII码，并送显示屏显示 ; 入口：AX=二进制数  ; 出口：在当前光标位置显示转换后的ASCII码数字  Dec_ASCII  Proc  Near     push  dx ;压入堆栈    push  bx ;压入堆栈    push  di;压入堆栈    mov  bx,10     lea  di,@@Temp_Save[6] ;LEA DX,string ;把偏移地址存到DX    mov  byte ptr [di],'$'     dec  di ;减 1    cld ;清方向标志位. @@Divide:  xor  dx,dx ;异或运算            div  bx ;无符号除法.            or   dl,30h ;或运算            mov  [di],dl             dec  di ;减 1            test  ax,0ffffh ;测试指令            jnz  @@Divide ;条件转移指令             inc  di ;加 1.            push  di ;压入堆栈            pop  dx ;弹出堆栈            mov  ah,9             int  21h             pop  di ;弹出堆栈            pop  bx ;弹出堆栈            pop  dx;弹出堆栈            ret ;过程返回 @@Temp_Save db   7 dup(?) Dec_ASCII  EndP ; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Press_Key db   13,10,13,10,'Press any key to exit...$'  Start:   push cs;压入堆栈          pop  ds;弹出堆栈          push es;压入堆栈          pop  es;弹出堆          mov  cx,6;随机产生25个1～6的随机数                            @@L1:  xor  al,al;异或运算        out  43h,al;I/O端口输出语法: OUT {端口号│DX},累加器         in  al,40h;I/O端口输入语法: IN 累加器, {端口号│DX}         cmp  al,6;比较.(两操作数作减法,仅修改标志位,不回送结果).        ja  @@L1   ;大于6则继续产生随机数        cmp al,0   ;等于0则继续产生随机数        jz @@L1        xor  ah,ah;异或运算,清0        call Dec_ASCII ;显示输出这个数        mov  dl,20h        call Output_Chr        loop @@L1        lea  dx,Press_Key; LEA DX,string ;把偏移地址存到DX.        mov  ah,9        int  21h        mov  ah,1        int  21h Exit_Proc: mov  ah,4ch ;结束程序            int  21h Code  ENDS END   Start

 

 

本文转自蓬莱仙羽51CTO博客，原文链接：http://blog.51cto.com/dingxiaowei/1366798，如需转载请自行联系原作者