微机原理实验报告冒泡排序

MOV CX,16 LL2: POP DX

ADD DL,30H ;将DL中的数进行ASCII码转换

MOV AH,2 ;2号DOS功能调用,输出字符“0”或“1” INT 21H LOOP LL2

MOV AH,4CH

INT 21H ;4C号功能调用,返回DOS MAIN ENDP

;-------------------------------------------------------------------------------------------------------------------------------- 子程序:CRLF

功能: 回车与换行

;-------------------------------------------------------------------------------------------------------------------------------- CRLF PROC

LEA DX,CR MOV AH,09H INT 21H RET CRLF ENDP

;-------------------------------------------------------------------------------------------------------------------------------- 子程序:INPUT

功能: 输入一组数据

;-------------------------------------------------------------------------------------------------------------------------------- INPUT PROC

MOV CX,COUNT ;计数器CX=5 AND SI,0

NEXT1: CALL DTB ;调用DTB子程序,将输入转换为二进制数 DEC CX ;CX←CX-1

CMP DL,20H ;判断输入字符就是否为空格符 JE STO

CMP DL,0DH ;判断输入字符就是否为换行符 JE EXIT2 CALL CRLF ERROR: LEA DX,STR8

MOV AH,09H ;9号DOS功能调用,提示输入不合法 INT 21H CALL CRLF

MOV AX,FAULT ;以AX中的值作为出错标志 JMP EXIT3

STO: MOV ARRAY[SI],BX ;就是空格符,将BX中的二进制数存入存储单元 ADD SI,2 JMP NEXT1

EXIT2: MOV ARRAY[SI],BX ;就是换行符,将BX中的二进制数存入存储单元 CALL CRLF

微机原理实验报告冒泡排序

EXIT3: RET INPUT ENDP

;-------------------------------------------------------------------------------------------------------------------------------- 子程序:DTB

功能: 将键盘输入的十进制数转换为二进制数形式存入BX

;-------------------------------------------------------------------------------------------------------------------------------- DTB PROC

AND BX,0

AND FLAG1,0 ;符号标志,0为正,1为负

CHAR: MOV AH,01H ;1号DOS功能调用,输入一个字符,存入AL INT 21H MOV DL,AL

CMP AL,2DH ;判断输入字符就是否为负号\ JNZ NEXT2

MOV FLAG1,1 ;就是负数,将符号标志FLAG1置1 JMP CHAR

NEXT2: SUB AL,30H ;判断输入字符就是否在0-9之间 JL NEXT3 CMP AL,09H JG NEXT3 CBW

XCHG AX,BX ;输入字符在0-9之间,将BX中的数乘以10 MOV CX,10 MUL CX XCHG AX,BX

ADD BX,AX ;将BX中的数与新输入的数相加 JMP CHAR

NEXT3: CMP FLAG1,1 ;根据符号标志判断输入就是否为负 JNZ EXIT1

NEG BX ;对BX中的数求补 EXIT1: RET DTB ENDP

;-------------------------------------------------------------------------------------------------------------------------------- 子程序:OUTPUT

功能: 输出一组数据

;-------------------------------------------------------------------------------------------------------------------------------- OUTPUT PROC

CALL CRLF

MOV DI,COUNT ;计数器DI=5 AND SI,0

GO1: MOV BX,ARRAY[SI] ;将存储单元的第一组数据存入BX TEST BX,8000H ;判断正负 JZ GO2

MOV DL,2DH

微机原理实验报告冒泡排序

MOV AH,02H ;2号DOS功能调用,输出负号\ INT 21H NEG BX

GO2: CALL ONE ;调用ONE子程序,将BX中二进制数转换为十进制数输出 MOV DL,20H

MOV AH,02H ;2号DOS功能调用,输出空格符 INT 21H

ADD SI,2 ;指针指向下一数据 DEC DI ;DI←DI-1

JNZ GO1 ;计数器DI不为零,继续循环 CALL CRLF RET OUTPUT ENDP

;-------------------------------------------------------------------------------------------------------------------------------- 子程序:ONE

功能: 将BX中的的二进制数转换为十进制数,由高到低各位依次输出

;-------------------------------------------------------------------------------------------------------------------------------- ONE PROC PUSH BX PUSH CX PUSH SI PUSH DI

MOV CX,10000 ;除数存入CX CALL BTD

MOV CX,1000 CALL BTD MOV CX,100 CALL BTD MOV CX,10 CALL BTD MOV CX,1 CALL BTD

ADD DL,FLAG2

CMP DL,30H ;与\的ASCII码比较,判断该数就是否为\ JNE QUIT3

MOV AH,02H ;2号DOS功能调用,输出\ INT 21H QUIT3: POP DI POP SI POP CX POP BX

AND FLAG2,0 ;将首位标志FLAG2重新置0 RET ONE ENDP

微机原理实验报告冒泡排序

;-------------------------------------------------------------------------------------------------------------------------------- 子程序:BTD

功能: 将BX中的二进制数转换为一个十进制数输出

;-------------------------------------------------------------------------------------------------------------------------------- BTD PROC

MOV AX,BX AND DX,0

DIV CX ;字除法,商值存入AX,余数存入DX MOV BX,DX ;余数存入BX MOV DL,AL

ADD DL,30H ;对DL中的数进行ASCII码转换 CMP FLAG2,0 ;判断就是否为首位数据 JNE QUIT1

CMP DL,30H ;就是首位则判断就是否为\ JE QUIT2 ;就是\则不输出

MOV FLAG2,1 ;不就是\将首位标志置1

QUIT1: MOV AH,02H ;2号DOS功能调用,输出一位十进制数 INT 21H QUIT2: RET BTD ENDP

;-------------------------------------------------------------------------------------------------------------------------------- 子程序:SORT 功能: 冒泡排序

;-------------------------------------------------------------------------------------------------------------------------------- SORT PROC CLD

MOV CX,COUNT ;初始化计数器CX DEC CX ;CX=4

LOO1: MOV DI,CX ;CX中的数存入DI AND SI,0

LOO2: MOV AX,ARRAY[SI]

CMP AX,ARRAY[SI+2] ;相邻两数进行比较 JL LOO3

XCHG AX,ARRAY[SI+2] ;前一数较大则进行数据交换 MOV ARRAY[SI],AX

LOO3: ADD SI,2 ;前一数较小,则进行下一组比较 LOOP LOO2 ;CX=0,停止内循环 MOV CX,DI ;还原计数器CX的值 LOOP LOO1 ;CX=0,停止外循环 RET SORT ENDP

;-------------------------------------------------------------------------------------------------------------------------------- CODE ENDS

END START