微机原理实验代码打印

1）从键盘输入一个2位无符号的16进制数（00H~FFH），

然后在显示器上同时以二进制和十进制形式显示出来。

例如: Please input N(00H-FFH): 9B

N = 9BH = 10011011B = 155

stck segment stack 'stack'

dw 32 dup(0)

stck ends

data segment

ENDL DB 0DH,0AH,'$' ;回车换行

IBUF_HEX DB 3,0,3 DUP(0)

OBUF_BIN DB 10 DUP('$')

OBUF_BCD DB 4 DUP('$')

STR_IN_HEX DB 'Please input N (00H~FFH):$'

STR_OUT1 DB 'N = $'

STR_OUT2 DB ' = $'

data ends

code segment

main proc far

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

push ds

xor ax,ax

push ax ;保存psp地址

mov ax,data

mov ds,ax

MOV DX,OFFSET STR_IN_HEX ;提示用户输入十六进制数，如9B

MOV AH,9

INT 21H

MOV DX,OFFSET IBUF_HEX ;接收输入的十六进制数

MOV AH,10

INT 21H

MOV DX,OFFSET ENDL

MOV AH,9

INT 21H ;回车换行

MOV DX,OFFSET STR_OUT1 ;输出'N = '

MOV AH,9

INT 21H

MOV SI,OFFSET IBUF_HEX+2

MOV CL,IBUF_HEX+1

MOV CH,0

PUSH SI

ADD SI,CX

MOV BYTE PTR [SI],'$'

POP SI

MOV DX,SI ;输出输入的十六进制数，如9BH

MOV AH,9

INT 21H

MOV DL,'H'

MOV AH,2

INT 21H

MOV DX,OFFSET STR_OUT2 ;输出' = '

MOV AH,9

INT 21H

CALL hex2bin; 调用子函数，将输入的十六进制数转为二进制值

PUSH AX ;AL压栈，留给指令CALL bcdout使用

CALL binout ;把AL二进制值按二进制格式输出

MOV DX,OFFSET STR_OUT2 ;输出' = '

MOV AH,9

INT 21H

POP AX

CALL bcdout ;把AL二进制值按十进制格式输出

MOV DX,OFFSET ENDL

MOV AH,9

INT 21H ;回车换行

ret

main endp

;十六进制数--->二进制数

如: 输入:FF 处理:AL=FFH

hex2bin proc

MOV CL,IBUF_HEX+1 ;保存输入字符个数

MOV CH,0

MOV SI,OFFSET IBUF_HEX+2

MOV AX,0

hex2bin_AGAIN:

MOV DL,16 ;乘数为16

MUL DL 乘积保存在AX中

MOV BL,[SI]

CMP BL,'A'

JB hex2bin_SMALLER

SUB BL,07H

hex2bin_SMALLER:

SUB BL,30H

ADD AL,BL

INC SI

LOOP hex2bin_AGAIN

ret

hex2bin endp

;二进制数--->二进制格式输出

如: AL=FFH 输出:11111111B

binout proc

MOV BYTE PTR OBUF_BIN+8,'B'

MOV DI,OFFSET OBUF_BIN

MOV AH,0

MOV CX,8 ;设置LOOP循环次数binout_NEXT:

MOV DL,0

SHL AL,1

ADC DL,30H ;将每一位转为ASCII码

MOV [DI],DL ;保存转换后的ASCII码

INC DI

LOOP binout_NEXT ;cx值为8，循环8次

MOV DX,OFFSET OBUF_BIN ;输出处理结果

MOV AH,9

INT 21H

ret ;返回调用

binout endp

;二进制数--->十进制数输出

如: AL=0AH 输出:10

bcdout proc

MOV DI,OFFSET OBUF_BCD+2

MOV AH,0

MOV CX,10

bcdout_AGAIN:

MOV DX,0 ;无符号数16位扩展为32位

DIV CX ;余数DX,商AX

ADD DL,30H

MOV [DI],DL

DEC DI

OR AX,AX

JNE bcdout_AGAIN

INC DI

MOV DX,DI ;输出处理结果

MOV AH,9

INT 21H

ret

bcdout endp

code ends

end main ;程序主函数入口

2)将输入的十进制数0-255，实际数值保存在bl中，输出如下格式如：Please input N(0-255):180

N = 180 = B4H = 10110100B

stck segment stack 'stack'

dw 32 dup(0)

stck ends

data segment

ENDL DB 0DH,0AH,'$' ;回车换行

STR_IN_BCD DB 'Please input N(0-255):$'

STR_OUT1 DB 'N = $'

STR_OUT2 DB ' = $'

IBUF_BCD DB 4,0,4 DUP(0)

OBUF_BIN DB 10 DUP('$')

OBUF_HEX DB 4 DUP('$')

data ends

code segment

main proc far

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

push ds

xor ax,ax

push ax ;保存psp地址

mov ax,data

mov ds,ax

MOV DX,OFFSET STR_IN_BCD

MOV AH,9

INT 21H ;提示用户输入十进制数，如180

MOV DX,OFFSET IBUF_BCD

MOV AH,10

INT 21H ;接收输入的十进制数

MOV DX,OFFSET ENDL

MOV AH,9

INT 21H ;回车换行

MOV DX,OFFSET STR_OUT1 ;输出'N = '

MOV AH,9

INT 21H

MOV CL,IBUF_BCD+1 ;保存字符个数

MOV CH,0

MOV SI,OFFSET IBUF_BCD+2 ;保存输入串首地址

PUSH SI

ADD SI,CX

MOV BYTE PTR [SI],'$'

POP SI

MOV DX,SI ;输出输入的十进制数

MOV AH,9

INT 21H

MOV DX,OFFSET STR_OUT2 ;输出' = '

MOV AH,9

INT 21H

CALL bcd2bin

PUSH AX

CALL hexout

MOV DX,OFFSET STR_OUT2 ;输出' = '

MOV AH,9

INT 21H

POP AX

CALL binout

MOV DX,OFFSET ENDL ;回车换行

MOV AH,9

INT 21H

ret ;返回调用

main endp

十进制数--->二进制数

如: 输入:10 处理:AL=0AH

bcd2bin proc

MOV CL,IBUF_BCD+1 ;保存输入字符个数

MOV CH,0

MOV SI,OFFSET IBUF_BCD+2

MOV AX,0

bcd2bin_AGAIN:

MOV DL,10 ;乘数为10

MUL DL ;乘积保存在AX中

MOV BL,[SI]

SUB BL,30H

ADD AL,BL

INC SI

LOOP bcd2bin_AGAIN

ret

bcd2bin endp

二进制数--->二进制格式输出

如: AL=FFH 输出:11111111B

binout proc

MOV BYTE PTR OBUF_BIN+8,'B'

MOV DI,OFFSET OBUF_BIN

MOV AH,0

MOV CX,8 ;设置LOOP循环次数binout_NEXT:

MOV DL,0

SHL AL,1

ADC DL,30H ;将每一位转为ASCII码

MOV [DI],DL ;保存转换后的ASCII码

INC DI

LOOP binout_NEXT ;cx值为8，循环8次

MOV DX,OFFSET OBUF_BIN ;输出处理结果

MOV AH,9

INT 21H

ret ;返回调用binout endp

二进制数--->十六进制输出

如: AL=FFH 输出:FFH

hexout proc

MOV BYTE PTR OBUF_HEX+2,'H'

MOV DI,OFFSET OBUF_HEX+1

MOV AH,0

MOV CX,16

hexout_AGAIN:

MOV DX,0 ;无符号数16位扩展为32位

DIV CX ;余数DX,商AX

CMP DL,10

JB hexout_SMALLER

ADD DL,07H

hexout_SMALLER:

ADD DL,30H

MOV [DI],DL

DEC DI

OR AX,AX

JNE hexout_AGAIN

INC DI

MOV DX,DI 输出处理结果

MOV AH,9

INT 21H

ret

hexout endp

code ends

end main ;程序主函数入口

3）输入一个十进制的个位数，求出这个数的平方值，显示其十进制结果，要求有如下提示信息。

例如：Please input a number: 8

The result is: 64

stck segment stack 'stack' ;定义堆栈段

dw 32 dup(0) ;分配64字节栈空间

stck ends

data segment ;定义数据段

ENDL DB 0DH,0AH,'$' ;回车换行

IBUF DB 2,0,2 DUP(0) ;定义输入缓冲区

STR_IN DB 'Please input a number (0-9): $'

STR_OUT DB 'The result is: $'

SQUARE_TABLE DB ' 0$ 1$ 4$ 9$16$25$36$49$64$81$' ;定义平方表data ends

code segment ;定义代码段

main proc far

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

push ds

sub ax,ax

push ax ;保存psp地址

mov ax,data

mov ds,ax

RUNTEST:

MOV DX,OFFSET STR_IN ;提示用户输入

MOV AH,9

INT 21H

MOV DX,OFFSET IBUF ;接收用户输入

MOV AH,10

INT 21H

MOV DX,OFFSET ENDL ;回车换行

MOV AH,9

INT 21H

MOV AL,IBUF+2

SUB AL,30H ;得到实际数值

MOV CL,3

MUL CL

MOV DI,OFFSET SQUARE_TABLE ;指向自定义的平方表

ADD DI,AX

PUSH AX

MOV DX,OFFSET STR_OUT

MOV AH,9

INT 21H

POP AX

CMP AX,12

;12=3N,N=4,N^2=16,为保证输出数据左对齐，N>=4时输出一个空格

JB NEXT

MOV DL,20H

MOV AH,2

INT 21H

NEXT: MOV DX,DI

MOV AH,9

INT 21H

MOV DX,OFFSET ENDL ;回车换行

MOV AH,9

INT 21H

;JMP RUNTEST ;不限次数测试

ret ;返回调用

main endp

code ends

end main ;程序主函数入口