4.38编程题【汇编】：键入某班学生(30人)的计算机考试成绩.doc

4.38 编程：1）键入某班学生（30人）的计算机考试成绩，成绩按学号（130）排放在SOUND数据区中。2）按考分排序（降序），列出相应学号到ORDER数据区中。3）在屏幕显示前三名学生的学号和他们的成绩。程序如下：N EQU 30DATA SEGMENTBUF DB 4*NTEMP DB ?SOUND DB N DUP(4 DUP(?),$MARK DB N DUP(0)ORDER DW N DUP(?)DATA ENDSSTACK SEGMENTSTA DB 128 DUP(?)TOP EQU SIZE STASTACK ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,SS:STACKSTART:MOV AX,DATAMOV DS,AXMOV AX,STACKMOV SS,AXMOV SP,TOPLEA DX,BUFMOV AH,0AHINT 21HMOV DL,0AHMOV AH,02HINT 21HMOV SI,0MOV CH,30HT:MOV AX,SIMOV BX,AXMOV CL,10DIV CLMOV BYTE PTR ORDERBXSI,ALADD BYTE PTR ORDERBXSI,CHMOV BYTE PTR ORDERBXSI+1,AHADD BYTE PTR ORDERBXSI+1,CHINC SICMP SI,NJNZ TCALL TRANCALL RANKCALL SHOWMOV AH,4CHINT 21HTRAN PROC ;ASCII码转换十六进制子程序XOR BX,BXMOV SI,0P1: MOV AL,SOUNDBXINC BXCMP AL,20HJZ P1SUB AL,30HMOV CH,SOUNDBXINC BXCMP CH,20HJZ NEXTP2: SUB CH,30HMOV CL,10 MUL CLADD AL,CHMOV CH,SOUNDBXINC BXCMP CH,20HJZ NEXTJMP P2NEXT: MOV MARKSI,ALINC SICMP SI,NJNZ P1RETTRAN ENDPRANK PROC ;排序子程序XOR BX,BXMOV SI,0R1: CMP BX,N-1JZ GAMEOVERMOV AL,MARKBX+1 INC BXCMP AL,MARKBX-1JNA R1MOV SI,BXR2: XCHG AL,MARKSI-1MOV MARKSI,ALPUSH BXMOV BX,SIMOV AX,ORDERBX+SIXCHG AX,ORDERBX+SI-2MOV ORDERBX+SI,AXPOP BXDEC SIJZ R1MOV AL,MARKSICMP AL,MARKSI-1JA R2JMP R1GAMEOVER: RETRANK ENDPSHOW PROC ;显示子程序XOR DX,DXMOV SI,0MOV DI,0MOV CX,3S1: MOV DL,BYTE PTR ORDERSIMOV AH,02HINT 21HINC SIMOV DL,BYTE PTR ORDERSIMOV AH,02HINT 21HINC SIMOV DL,20HMOV AH,02HINT 21HCMP MARKDI,100JZ GREATMOV AL,BYTE PTR MARKDIMOV AH,0INC DIMOV DL,10DIV DLADD AX,3030HMOV BH,AHMOV DL,ALMOV AH,02HINT 21HMOV DL,BHMOV AH,02HINT 21HJMP S2GREAT: MOV DL,31HMOV AH,02HINT 21HMOV DL,30HMOV AH,02HINT 21HMOV DL,30HMOV AH,02HINT 21HINC DIS2: MOV DL