汇编语言(王爽)--实验10编写子程序

assume cs:code,ds:data
data segment
db 'welcome to masm!',0
data ends

code segment

start: mov dh,8
mov dl,1
mov cl,2
mov ax,data
mov ds,ax
mov si,0
call show_str

mov ax,4c00h
int 21h
;显示字符串函数 dh为行号dl为列号cl为颜色
show_str:mov bl,cl
push cx
push si

mov ax,0B800H
mov es,ax ;显存段地址进es

mov al,160 ;行号和列号的偏移地址准备就绪
mul dh
mov di,ax
mov al,2
mul dl
add di,ax

s:mov cl,ds:[si]
mov ch,0
jcxz ok ;到字符串末尾0跳到ok
mov es:[di],cl
mov es:[di+1],bl
add di,2
inc si
jmp s

ok:pop si
pop cx
ret

code ends

end start

assume cs:code,ss:stack

stack segment
dw 16 dup(0)
stack ends

code segment

start:mov ax,0ffffh ;低16位
mov dx,0fffh ;高16位
mov cx,0ah ;除数
call divdw

mov ax,4c00h
int 21h
;32位除法 结果：dx放搞16位，ax放低16位 cx放商
divdw:mov bx,ax ;低16位暂存

mov ax,dx
mov dx,0 ;dx ax
div cx ;0 被除数高16位
push ax ;商push

;(rem(H/N)*65536+L) /N
; 上一步的余 低16位 除数
mov ax,bx ; DX bx->ax cx
div cx
;事情做完
mov cx,dx ;DX余，ax商
pop bx
mov dx,bx
ret
code ends

end start

assume cs:code,ds:data,ss:stack

data segment
db 16 dup(0)
data ends

stack segment
db 16 dup(0)
stack ends

code segment
start:mov ax,34694
mov bx,data
mov ds,bx
mov si,0
call dtoc

mov dh,8
mov dl,3
mov cl,2
call show_str

mov ax,4c00h
int 21h
;将word型数据转变位表示十进制数的字符串，字符串以0为结尾符
;参数ax,写入ds:[si]
dtoc:push si
mov di,0
dtocs1:mov bx,10    ;16位除法
mov dx,0
div bx

add dx,30h ;数字是倒叙的，所以要利用栈后进先出的特性改顺序
push dx
inc di
mov cx,ax

jcxz dtocs2
jmp dtocs1
;正序
dtocs2:mov cx,di
dtocs3:pop ds:[si]
inc si
loop dtocs3

mov ds:[si],0  ;0结尾
pop si
ret
;;显示字符串函数  dh为行号dl为列号cl为颜色
show_str:mov bl,cl
push cx
push si

mov ax,0B800H
mov es,ax                 ;显存段地址进es

mov al,160          ;行号和列号的偏移地址准备就绪
mul dh
mov di,ax
mov al,2
mul dl
add di,ax

shows1:mov cl,ds:[si]
mov ch,0
jcxz showok          ;到字符串末尾0跳到ok
mov es:[di],cl
mov es:[di+1],bl
add di,2
inc si
jmp shows1

showok:pop si
pop cx
ret
code ends

end start