实验4 宏指令及子程序设计实验

从键盘输入10个无符号十进制数（小于256），将其转换为二进制数并存放在NUM字节型变量中，找出其中的最大数，并将找出的最大数在屏幕上显示出来。

要求：

1）在屏幕上显示字符串提示信息的功能由宏指令DSTRING实现；

2）将键盘输入的十进制数转换成二进制数由子程序DTOB实现；

3）在N个无符号字节型二进制数中找出最大数的功能由子程序FMAX实现；

4）将一个无符号字节型二进制数转换为十进制数并在屏幕上显示的功能由子程序BTOAD实现。

COUNT EQU 10

DATA SEGMENT

NUM DB 10  DUP(?)

IBUF DB 7,0,6 DUP(?)

OBUF DB 6 DUP(?)

INFOR1 DB "Please input 10 numbers(<256):",0AH,0DH,'$'

INFOR2 DB "The max found in the 10 numbers is $"

INFOR3 DB 0AH,0DH,'$'

DATA ENDS

STACK SEGMENT stack

DATA2 DW 40 DUP(?)

TOP EQU LENGTH DATA2

CODE SEGMENT

ASSUME CS:CODE, DS:DATA, SS:STACK

START: MOV AX,DATA

MOV DS,AX

MOV AX,STACK

MOV SS,AX

MOV AX,TOP

MOV SP,AX

DSTRING MACRO STRING

PUSH DX

PUSH AX

MOV DX,OFFSET STRING

MOV AH,09H

INT 21H

POP AX

POP DX

ENDM

DSTRING INFOR1

MOV BX,OFFSET NUM

MOV CX,COUNT

LOOP1: CALL DTOB

DSTRING INFOR3

MOV [BX],AL

INC BX

             ;

LOOP LOOP1

MOV AX,OFFSET NUM

PUSH AX

MOV CX,COUNT

PUSH CX

CALL FMAX

DSTRING INFOR2

CALL BTOAD

MOV AH,4CH

INT 21H

FMAX PROC

PUSH CX            ;

PUSH SI            ;

MOV AL,NUM

MOV SI,OFFSET NUM

MOV CX,9

ONCEMORE:

INC SI

CMP AL,[SI]

JAE NOCHANGE

XCHG AL,[SI]

NOCHANGE:     

        DEC CX

JNE ONCEMORE   

MOV AH,0

POP SI            ;

POP CX             ;

RET

FMAX ENDP

BTOAD PROC                               ;子程序，将最大数在屏幕上显示

PUSH BX

PUSH CX

PUSH DX

MOV BX,OFFSET OBUF+5

MOV BYTE PTR[BX],'$'

MOV CX,10

LOOP2: MOV DX,0

DIV CX

ADD DL,30H

DEC BX

MOV [BX],DL

OR AX,AX

JNZ LOOP2

MOV DX,BX

 ;MOV DL,0AH

 ;MOV AH,02H

 ;INT 21H

MOV AH,09H

INT 21H  

POP DX

POP CX

POP BX  

RET

BTOAD ENDP

DTOB PROC   ;子程序，从键盘输入一个小于256的数

PUSH CX     ;

PUSH DX     ;

PUSH SI     ;

MOV DX,OFFSET IBUF

MOV AH,0AH

INT 21H

MOV CL,IBUF+1

MOV CH,0

MOV SI,OFFSET IBUF+2

MOV AX,0

AGAIN: MOV DX,10

MUL DX

AND BYTE PTR[SI],0FH

ADD AL,[SI]

ADD AH,0

INC SI

LOOP AGAIN

POP SI        ;

POP DX        ;

POP CX        ;

RET

DTOB ENDP

CODE ENDS

END START