汇编语言 学生成绩统计

DATA SEGMENT
DATA1 DB '98,100,80,67,89,40,69,77,99,90,88,80,81,96,98,60,46,55,76,66',0AH,0DH,'$'
DATA2 DW 98,100,80,67,89,40,69,77,99,90,88,80,81,96,98,60,46,55,76,66
S1 DB 0AH,'SCORE[<60]:$'
S2 DB 0AH,'SCORE[60-70]:$'
S3 DB 0AH,'SCORE[70-80]:$'
S4 DB 0AH,'SCORE[80-90]:$'
    S5 DB 0AH,'SCORE[90-100]:$'
    S6 DB 0AH,'SCORE[100]:$'
SEG1 DB 00H
SEG2 DB 00H
SEG3 DB 00H
SEG4 DB 00H
SEG5 DB 00H
SEG6 DB 00H
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV DX,OFFSET DATA1
MOV AH,9
INT 21H
XOR AX,AX
MOV CL,20
MOV BX,OFFSET DATA2
CYC1:ADD AX,WORD PTR[BX]
ADD BX,02
LOOP CYC1

MOV CL,20
DIV CL

MOV DL,AL
AND AL,0F0H
MOV CL,4
ROR AL,CL
MOV CL,AL
MOV AL,DL
AND AL,0FH
CMP AL,09
JBE CYC2
ADD AL,06
CYC2:MOV BL,16H
CYC3:ADD AL,BL
DAA
MOV BH,AL
LOOP CYC3

MOV CL,04
MOV DL,BH
AND DL,0F0H
ROR DL,CL
ADD DL,30H
MOV AH,02
INT 21H
AND DL,0FH
ADD DL,30H
MOV AH,02
INT 21H