汇编语言实现整数冒泡排序

第三次实验报告1.实现正整数的冒泡排序，要求有输入与输出。

实验源程序
;LT413.ASM
.model small
.stack
.data
count = 10
array dw count dup(0)
wtemp dw ?
flg db 0
.code
.startup
mov cx,count
mov bx,offset array
againi: call read
mov [bx],ax
inc bx
inc bx
call dpcrlfi
loop againi
;
;
mov cx,count
dec cx
outlp:
mov flg,0
mov dx,cx
mov bx,offset array
inlp: mov ax,[bx]
cmp ax,[bx+2]
jna next
xchg ax,[bx+2]
mov flg,1
mov [bx],ax
next: inc bx
inc bx
jnz inlp
cmp flg,0
jz fxw
loop outlp
;
;
fxw:
mov cx,count
mov bx,offset array againo: mov ax,[bx]
mov wtemp,ax
call write
inc bx
inc bx
call dpcrlfo
loop againo
.exit 0
read proc
push bx
push cx
push dx
xor bx,bx
xor cx,cx
mov ah,1
int 21h
cmp al,'+'
jz read1
cmp al,'-'
jnz read2
mov cx,-1
read1: mov ah,1
int 21h
read2: cmp al,'0'
jb read3
cmp al,'9'
ja read3
sub al,30h
shl bx,1
mov dx,bx
shl bx,1
add bx,dx
;
mov ah,0
add bx,ax
jmp read1
read3: cmp cx,0
jz read4
neg bx
read4: mov ax,bx
pop dx
pop cx
pop bx
ret
read endp dpcrlfi proc
push ax
push dx
mov ah,2
mov dl,0dh
int 21h
mov ah,2
mov dl,0ah
int 21h
pop dx
pop ax
ret
dpcrlfi endp
write proc
push ax
push bx
push dx
mov ax,wtemp
test ax,ax
jnz write1
mov dl,'0'
mov ah,2
int 21h
jmp write5 write1: jns write2 mov bx,ax
mov dl,'-'
mov ah,2
int 21h
mov ax,bx
neg ax
write2: mov bx,10
push bx
write3: cmp ax,0
jz write4
sub dx,dx
div bx
add dl,30h
push dx
jmp write3
write4: pop dx
cmp dl,10
je write5
mov ah,2
int 21h
jmp write4
write5: pop dx
pop bx
pop ax
ret
write endp
dpcrlfo proc
push ax
push dx
mov ah,2
mov dl,0dh
int 21h
mov ah,2
mov dl,0ah
int 21h
pop dx
pop ax
ret
dpcrlfo endp
end
实验结果：
2.编制一个子程序把一个16位二进制数用十六进制的形式在屏幕上显示出来，分别运用
如下三种参数传递方式，并用一个主程序验证它
（1）采用AX寄存器传递这个16位的二进制数
（2）采用wordTEMP变量传递这个16为二进制数
（3）采用堆栈方法传递这个16位二进制数
实验源程序：
.model small
.stack
.data
string1 db 'Mean1 use register :','$'
string2 db 'Mean2 use variable :','$'
string3 db 'Mean3 use stack :','$'
string4 db 0dh,0ah,'$'
mydata dw 1992h
wordTEMP dw ?
.code
.startup
;AX方式
mov dx,offset string1;
mov ah,9;
int 21h;
mov ax,word ptr mydata;
call chan1;
;变量方式
push ax
mov dx,offset string4;
mov ah,09h;
int 21h;
mov dx,offset string2;
mov ah,09h;
int 21h;
pop ax
mov word ptr wordTEMP,ax;
call chan2;
;栈方式
push ax
mov dx,offset string4;
mov ah,09h;
int 21h;
mov dx,offset string3;
mov ah,09h;
int 21h;
pop ax
push ax;
call chan3;
pop ax;
.exit 0
chan1 proc
push ax;
push bx;
mov bl,al;
mov al,ah;
call ALdisp;
mov al,bl;
call ALdisp;
pop bx;
pop ax;
ret
chan1 endp
chan2 proc;wordTEMP传递
push ax;
push bx;
mov bl,al;
mov al,ah;
call ALdisp;
mov al,bl;
call ALdisp;
pop ax;
ret
chan2 endp
chan3 proc;栈传递
push bp;
mov bp,sp;
push ax;
push bx;
mov ax,[bp+4];
mov bl,al;
mov al,ah;
call ALdisp;
mov al,bl;
call ALdisp;
pop bx;
pop ax;
pop bp;
ret
chan3 endp
ALdisp proc
push ax
push cx
push dx
push ax
mov dl,al
mov cl,4
shr dl,cl
or dl,30h
cmp dl,39h
jbe aldisp1
add dl,7
aldisp1: mov ah,2 int 21h
pop dx
and dl,0fh
or dl,30h
cmp dl,39h
jbe aldisp2
add dl,7
aldisp2: mov ah,2 int 21h
pop cx
pop ax
ret
ALdisp endp
end
实验结果：。