第四次作业之汇编程序编写和提高

1、实验四 汇编程序编写和提高 实验作业截止日 2015年4月6日（星期一）23:59:59 （编写程序和画程序流程图）1、 编写一个汇编程序，先键盘输入的多个小写字母，回车后用大写字母显示出来。2、 将键盘上输入的十六进制数转换成十进制数，并在屏幕上显示。3、 利用中断调用，在屏幕上显示19之间随机数。中断号86H4、 键盘输入10个学生的成绩，编写一个程序统计60-69分，70-79分，80-89分，90-99分及100分的人数，分别存放在Score6，Score7，Score8，Score9和Score10单元中。【输入10个学生的成绩如下】6565 98 78 82 88 95 72 62

2、 90 1001DATAS SEGMENT n db 100 dup(?) ;此处输入数据段代码 DATAS ENDSSTACKS SEGMENT stack db 128 dup(?) ;此处输入堆栈段代码STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX lea si,n mov ah,1 next: int 21h cmp al,13 jz done cmp al,'a' jl noop cmp al,'z' jg noop sub

3、 al,20h noop: mov si,al inc si jmp next done: mov ah,2 mov dl,13 int 21h mov dl,10 int 21h mov byte ptrsi,'$' mov ah,9 lea dx,n int 21h ;此处输入代码段代码 MOV AH,4CH INT 21HCODES ENDS END START2DATAS SEGMENTH1 DB 5H2 DB ?H3 DB 5 DUP(?)D DB 5 DUP(?),'$'MES DB 'Input four hexadecimal numbe

4、r:','$'en DB 10,13,10,13,'$'ERR DB 'ERROR','$'OF DB 'Overflow!','$'此处输入数据段代码 DATAS ENDSSTACKS SEGMENT;此处输入堆栈段代码STACKS ENDSCODES SEGMENTASSUME CS:CODES,DS:DATAS,SS:STACKSSTART:MOV AX,DATASMOV DS,AXLEA DX,MESMOV AH,9INT 21HLEA DX,H1MOV AH,0AHINT 21HM

5、OV CX,4 ;对输入的ASC2字符做数值化处理LEA SI,H3AGIN:CMP BYTE PTRSI,'0'JB ERRORCMP BYTE PTRSI,'9'JA AaSUB BYTE PTRSI,'0'JMP OVERAa: CMP BYTE PTRSI,'A'JB ERRORCMP BYTE PTRSI,'F'JA aSUB BYTE PTRSI,7SUB BYTE PTRSI,'0'JMP OVERa: CMP BYTE PTRSI,'a'JB ERRORCMP BYT

6、E PTRSI,'f'JA ERRORSUB BYTE PTRSI,39SUB BYTE PTRSI,'0'OVER:INC SILOOPNE AGINLEA SI,H3 ;把十六进制数值放入AX中MOV AH,H3MOV CL,4SHL AH,CLINC SIOR AH,SIINC SIMOV AL,SISHL AL,CLINC SIOR AL,SICMP AX,9999 ;比较JA OVFMOV DX,0 ;转换MOV BX,1000DIV BXLEA SI,DMOV SI,ALADD BYTE PTRSI,'0'MOV AX,DXMOV D

7、X,0MOV BL,100DIV BLINC SIMOV SI,ALADD BYTE PTRSI,'0'XCHG AL,AHMOV AH,0MOV BL,10DIV BLINC SIMOV SI,ALADD BYTE PTRSI,'0'INC SIMOV SI,AHADD BYTE PTRSI,'0'LEA DX,en ;正确输出MOV AH,9INT 21HLEA DX,DMOV AH,9INT 21HMOV DL,'D'MOV AH,2INT 21HJMP ENDDOVF:LEA DX,en ;溢出输出MOV AH,9INT

8、21H LEA DX,OFMOV AH,9INT 21HJMP ENDD ERROR: ;错误输出LEA DX,enMOV AH,9INT 21HLEA DX,ERRMOV AH,9INT 21HENDD: ;此处输入代码段代码MOV AH,4CHINT 21HCODES ENDSEND START3DOSSEG.MODEL small.stack 100h.data second db 0 first db 0.codestart: mov ax,data mov ds,axs10: mov ah,2ch int 21h cmp first,0 jnz s20 mov first,1 mov

9、 second,dhs20: cmp second,dh jz s10 mov second,dh mov al,dl xor ah,ah mov bl,second xor bh,bh mul bx mov bx,9 xor dx,dx div bx add dl,'1' mov ah,2 int 21h mov ah,1 int 16h jz s10 mov ah,0 int 16h cmp ah,1 jnz s10 mov ah,4ch int 21h end start4Code Segment Assume CS:Code,DS:CodeScore db 65,98,

10、78,82,88,95,72,62,90,100 ; 成绩单Elements equ ($-Score)/Type Score ;元素个数S6 db 0 ;60-69分计数S7 db 0 ;70-79分计数S8 db 0 ;80-89分计数S9 db 0 ;90-99分计数S10 db 0 ;100分计数Start: push cs pop ds cld lea si,Score ; 成绩首地址 mov cx,Elements ;成绩数目 mov dl,10 ; 用于除10Read_Score: lodsb ; 提取成绩 div dl ; 除10 cmp al,5 ; >5，及格 jg $+4 mov al,5 ; <=5，不及格 sub al,5 ; 减5，分数段计数地址偏移量 xor