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