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