子程序1：显示字符串
assume cs:code
data segment
db'100000000',0
data ends
code segment
start:
mov dh , 2
mov dl , 5
mov cl , 2
mov ax , data
mov ds , ax
mov si , 0
call show_str
mov ax , 4c00h
int 21h
;名称:show_str
;功能:在指定的位置，用指定的颜色，显示一个用0结束的字符串
;参数:(dh)=行号(取值范围0~24),(dl)=列号(取值范围0~79),(cl)=颜色,ds:si指向字符串的首地址
;返回:无
show_str:
push ax
push bx
push cx
push dx
push si
push bp
push di
push es
mov al , dh;行号
add al , 1
mov bl , 0a0h
mul bl
mov dh , 0
sub dx , 1;
add dx , dx;因为一个字符占两个字节
add ax , dx;把dl中的列号加在ax中
mov di , ax;di放屏幕显示的初始位置
mov ah , cl;ax 要显示的字符和颜色
mov ch , 0;cx 确定循环的条件
mov bx , 0b800h
mov es , bx;es显示的地址
mov bp , 0;显示地址的游标
s_showstr:
mov cl , ds:[si]
mov al , ds:[si]
jcxz retseg
mov es:[di+bp] , ax
inc si
add bp , 2
loop s_showstr
retseg:
pop es
pop di
pop bp
pop si
pop dx
pop cx
pop bx
pop ax
ret
code ends
end start
子程序2：解决除法溢出的问题
assume cs:code
code segment
start:
mov ax , 2h
mov dx , 2h
mov cx , 0ah
call divdw
mov ax , 4c00h
int 21h
;名称:divdw
;功能:进行不会溢出的除法运算，被除数为dword型，除数为word型，结果为dword型
;参数:(ax)=dword型数据的低16位，(dx)=dword型数据的高16位，(cx)=除数
;返回:(dx)=结果的高16位，(ax)=结果的低16位，(cx)=余数
;X/N = int(H/N)*65536 +[rem(H/N)*65536+L]/N
divdw:
dataseg_divdw segment
db 100 dup(0) ;存放参数
db 100 dup(0) ;存放结果和中间变量
dataseg_divdw ends
push bx
push es
mov bx , dataseg_divdw
mov es , bx
mov es:[0] , ax ;L
mov es:[2] , dx ;H
mov es:[4] , cx ;N
mov dx , 0
mov ax , es:[2] ;计算 H/N , dx:ax / cx
div word ptr es:[4]
mov es:[100] , ax ;结果dx
mov ax , es:[0];[rem(H/N)*65536+L]/N ren是余数
div word ptr es:[4]
mov es:[102] , ax ;结果ax
mov es:[104] , dx ;结果cx
mov dx , es:[100]
mov ax , es:[102]
mov cx , es:[104]
pop bx
pop es
ret
code ends
end start
子程序3：数值显示（word转字符串）
assume cs:code
data segment
db 10 dup(0)
data ends
code segment
start:
mov ax , 10000
mov bx ,data
mov ds , bx
mov si , 0
call dtoc
mov dh , 8
mov dl , 3
mov cl , 2
call show_str ; 子程序1实现
mov ax , 4c00h
int 21h
;名称:dtoc
;功能:将word型数据转变为表示十进制的字符串，字符串以0为结尾符。
;参数:(ax)=word型数据，ds:si指向字符串的首地址
;返回:无
dtoc:
dataseg_dtoc segment
db 100 dup(0) ;存放参数和寄存器值
db 100 dup(0) ;存放结果和中间变量
dataseg_dtoc ends
push bx
push es
push dx
push cx
push di
mov bx , dataseg_dtoc
mov es , bx
mov es:[0] , ax
mov es:[2] , ds
mov es:[4] , si
mov bx , 10
mov di , 0
mov ax , es:[0]
s:
mov dx , 0
div bx
mov cx , ax
add dl , 30h
mov byte ptr es:[100+di] ,dl
inc di
jcxz getCount
mov cx , 2 ; 当商为1的时候cx-- ， 就为1了，就会跳出循环
loop s
getCount:
mov cx , di
mov ds , es:[2]
mov si , es:[4]
reverse:
mov bl , es:[99+di]
mov ds:[si] , bl
inc si
dec di
loop reverse
mov byte ptr ds:[si] , 0
mov ds , es:[2]
mov si , es:[4]
pop di
pop cx
pop dx
pop es
pop bx
ret
code ends
end start
子程序3加强版：32位数值转字符串
assume cs:code
data segment
db 20 dup(0)
data ends
code segment
start:
mov dx , 0
mov ax , 10
mov bx ,data
mov ds , bx
mov si , 0
call dtocex
mov dh , 8
mov dl , 3
mov cl , 4
call show_str ；子程序1实现
mov ax , 4c00h
int 21h
;名称:dtocex
;功能:将dword型数据转变为表示十进制的字符串,字符串以0为结尾符。
;参数:(ax)=dword型数据的低16位,(dx)=dword型数据的高16位,ds:si指向字符串的首地址
;返回:无
dtocex:
dataseg_dtocex segment
db 100 dup(0) ;存放参数和寄存器值
db 100 dup(0) ;存放结果和中间变量
dataseg_dtocex ends
push bx
push es
push di
push cx
mov bx , dataseg_dtocex
mov es , bx
mov es:[0] , ax
mov es:[2] , ds
mov es:[4] , si
mov es:[6] , dx
mov di , 0
mov ax , es:[0]
dtocex_s:
mov cx , 10
call divdw;dx:ax / cx = dx:ax~cx；子程序二实现
add cl , 30h
mov byte ptr es:[100+di] ,cl
inc di
cmp dx , 0
je dxisz
jmp dtocex_s
dxisz:
cmp ax , 0
jne dtocex_s
mov cx , di
mov ds , es:[2]
mov si , es:[4]
dtocex_reverse:
mov bl , es:[99+di]
mov ds:[si] , bl
inc si
dec di
loop dtocex_reverse
mov byte ptr ds:[si] , 0
mov ds , es:[2]
mov si , es:[4]
pop cx
pop di
pop es
pop bx
ret
code ends
end start